Music Play

10 REM                                                             MUSIC PLAY                      written by Eric Boisvert        ©1986 BYTE POWER              
   15 IF PEEK 23681=0 THEN CLS : LIST 9999: STOP 
   20 LET tempo=5: REM tempo
   30 LET start=60000: REM start of data to play
   35 REM LOOP TO READ AND PLAY
   40 LET fine=PEEK start: LET coarse=PEEK (start+1): LET pause=PEEK (start+2): LET start=start+3
   50 IF fine=254 THEN GO TO 80: REM if pause (254)
   60 IF fine=255 THEN GO TO 150: REM if end (255)
   65 REM SET UP FOR METALLIC      SOUND and ENVELOPE GENERATIOR   (see AUGUST & OCTOBER issues)
   70 SOUND 0,fine;1,coarse;2,fine+1;3,coarse;8,16;9,16;7,60;13,0;12,pause*5
   80 REM wait for note to finish
   90 PAUSE tempo*pause
  100 GO TO 35
  150 REM END
  160 STOP 
 9000 REM LOAD DATA FILE 
 9010 REM NOTES MAY BE ANY WHERE
 9020 LOAD "MUSIC DEMO"CODE 6e4
 9030 GO TO 10
 9999 SAVE "MUSIC PLAY" LINE 9000: SAVE "MUSIC DEMO"CODE 6e4,1594: VERIFY "": VERIFY ""CODE