' *** SAMPLE.LST *** 2nd GFA-Manual, page 16-12 > PROCEDURE sample(adr%,length%,speed%) ' ' *** Play sample with speed% (try 0-10) ' *** BASCODE.INL (2794 bytes) must be in INLINE-line sample.bascode% ' *** Sample starts at address adr% (byte-array or INLINE-line), length% bytes ' *** A short PAUSE after calling this Procedure is advisable ' ' *** Global: sample.bascode% ' LOCAL start% start%=ADD(sample.bascode%,28) LONG{ADD(start%,2)}=adr% LONG{ADD(start%,6)}=length% LONG{ADD(start%,10)}=speed% CALL start% ! play sample RETURN ' ********* '