Jingle Bells

   10 REM Jingle Bells
   20 REM Spera (P.M.) style!
  100 REM ==> MAIN PROGRAM <==
  110 RESTORE 1000
  120 READ duration,pitch,chord
  130 IF chord>0 THEN GO SUB 9000+chord
  140 IF duration=-99 THEN GO TO 100
  150 IF duration<0 THEN PAUSE (ABS duration): GO TO 120
  160 BEEP duration,pitch
  170 GO TO 120
 1000 REM ==> SONG DATA <==
 1010 DATA .25,0,0,.25,0,30,.25,9,0,.25,7,0,.25,5,0,.75,0,0,.128,0,0,.128,0,0
 1020 DATA .25,0,30,.25,9,0,.25,7,0,.25,5,0,.75,2,40,.25,2,0,.25,2,0,.25,10,0,.25,9,0,.25,7,0
 1030 DATA .75,4,60,.25,12,0,.25,14,0,.25,12,0,.25,10,0,.25,7,0,.75,9,30,.25,0,0
 1040 DATA .25,0,30,.25,9,0,.25,7,0,.25,5,0,.75,0,0,.128,0,0,.128,0,0
 1050 DATA .25,0,30,.25,9,0,.25,7,0,.25,5,0,.75,2,40,.25,2,0,.25,2,0,.25,10,0,.25,9,0,.25,7,0
 1060 DATA .25,12,60,.25,12,0,.25,12,0,.25,12,0,.25,14,0,.25,12,0,.25,10,0,.25,7,0,1,5,30
 1070 DATA .25,9,30,.25,9,0,.50,9,0,.25,9,0,.25,9,0,.50,9,0,.25,9,0,.25,12,0,.25,5,0,.25,7,0,1,9,0
 1080 DATA .25,10,60,.25,10,0,.25,10,0,.25,10,0,.25,10,30,.25,9,0,.25,9,0,.125,9,0,.125,9,0
 1090 DATA .25,9,70,.25,7,0,.25,7,0,.25,9,0,.50,7,60,.50,12,0
 1100 DATA .25,9,30,.25,9,0,.50,9,0,.25,9,0,.25,9,0,.50,9,0,.25,9,0,.25,12,0,.25,5,0,.25,7,0,1,9,0
 1110 DATA .25,10,60,.25,10,0,.25,10,0,.25,10,0,.25,10,30,.25,9,0,.25,9,0,.125,9,0,.125,9,0
 1120 DATA .25,12,60,.25,12,0,.25,10,0,.25,7,0,1,5,30,-99,-99,900
 9000 REM ==> CHORDS <==
 9010 REM D maj. chord
 9012 SOUND 0,248;1,0;2,186;3,0;4,147;5,0;7,56;8,12;9,12;10,12
 9014 RETURN 
 9020 REM G maj. chord
 9022 SOUND 0,23;1,1;2,221;3,0;4,139;5,0;7,56;8,12;9,12;10,12
 9024 RETURN 
 9030 REM F maj. chord
 9032 SOUND 0,248;1,0;2,209;3,0;4,156;5,0;7,56;8,12;9,12;10,12
 9034 RETURN 
 9040 REM Bb maj. chord
 9042 SOUND 0,234;1,0;2,186;3,0;4,156;5,0;7,56;8,12;9,12;10,12
 9044 RETURN 
 9050 REM C maj. chord
 9052 SOUND 0,23;1,1;2,209;3,0;4,165;5,0;7,56;8,12;9,12;10,12
 9054 RETURN 
 9060 REM C 7th chord
 9062 SOUND 0,234;1,0;2,209;3,0;4,165;5,0;7,56;8,12;9,12;10,12
 9064 RETURN 
 9070 REM G 7th chord
 9072 SOUND 0,23;1,1;2,221;3,0;4,156;5,0;7,56;8,12;9,12;10,12
 9074 RETURN 
 9080 REM A maj. chord
 9082 SOUND 0,248;1,0;2,197;3,0;4,165;5,0;7,56;8,12;9,12;10,12
 9084 RETURN 
 9900 REM ==> STOP CHORDS <==
 9902 SOUND 7,63;13,0
 9904 RETURN 
 9990 STOP 
 9999 SAVE "jingle" LINE 100