Rem routine to play a RAW sample 
'
FREQ=12000 : Rem 12,000 Hz - Sample Speed in cycles/second  
'
NAME$="Sample" : Rem change this to the name of the sample to play
Open In 1,NAME$ : Rem open the file
LOS=Lof(1) : Rem los = length of sample 
Close 1 : Rem Close the file 
Reserve As Chip Work 1,LOS : Rem reserve a bank for the sample
Bload NAME$,Start(1) : Rem Bload the sample into the reserved bank  
Sam Raw %1111,Start(1),LOS,FREQ : Rem play the sample