Prelude by Chopin

Related Content

• 30 Music Programs for Timex-Sinclair 2068 (book)

Source Code

    1 REM program 31 p. 109 of "30 Music Programs for Timex Sinclair 2068" by Jefimenko
    2 REM Example of Sound function
   10 BORDER 4: PAPER 6: CLS : READ N$,R
   15 LET TT=10: LET Z$=""
   20 LET TT=10: LET Z$=""
   30 PRINT PAPER 5;"***********NOW PLAYING**********"
   40 PRINT AT 10,(31-LEN N$)/2;N$
   50 PRINT PAPER 5;AT 21,0;"***********NOW PLAYING**********"
   60 PRINT PAPER 3; INK 7;AT 20,0;"TO STOP PRESS""SHIFT"" + ""BREAK"""
   70 LET T=R*TT: SOUND 7,56;8,15;9,15;10,15
   80 READ AF,AC,BF,BC,CF,CC,F,V: ON ERR GO TO 130: IF AF<0 THEN GO TO 100
   90 SOUND 0,AF;1,AC;2,BF;3,BC;4,CF;5,CC
  100 IF F<>99 THEN GO TO 120
  110 PAUSE T/V*60: GO TO 80
  120 BEEP T/V,F: GO TO 80
  130 ON ERR RESET : SOUND 7,63
  140 RESTORE 3010: IF Z$="1" THEN GO TO 70
  150 CLS : PRINT AT 7,0;"PRESS ""1"" TO PLAY CONTINUOUSLY."
  160 PRINT '"PRESS ""2""TO PLAY DIFFERENTLY"
  170 PRINT '"PRESS ""S""TO STOP"
  180 PAUSE 0: LET Z$=INKEY$
  190 IF Z$="1" THEN CLS : GO TO 30
  200 IF Z$="2" THEN GO TO 220
  210 STOP 
  220 CLS : PRINT AT 4,0;"YOU CAN PLAY THIS COMPOSITION"
  230 PRINT "AT A DIFFERENT TEMPO. THE"
  240 PRINT "ORIGINAL TEMPO IS 10.  INPUT 10"
  250 PRINT "TO RETAIN THE ORIGINAL TEMPO."
  260 PRINT "INPUT A LARGER NUMBER FOR A"
  270 PRINT "SLOWER TEMPO. INPUT A SMALLER"
  280 PRINT "NUMBER FOR A FASTER TEMPO."
  290 INPUT TT: CLS : GO TO 30
  380 SAVE "PRELUDE" LINE 10
 3000 DATA "PRELUDE BY CHOPIN",.2
 3010 DATA 0,0,0,0,0,0,4,4,47,5,47,5,47,5,13,5.33,-1,0,0,0,0,0,14,16,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,4,7,1,116,1,115,2,11,1,0,0,0,0,0,0,18,4,209,0,226,3,226,3,15,5.22,-1,0,0,0,0,0,16,16,197,0,75,1,241,1,21,4
 3020 DATA 197,1,75,1,241,1,21,4,197,0,75,1,241,1,21,2,0,0,0,0,0,0,13,4,138,1,47,5,47,5,10,5.33,-1,0,0,0,0,0,11,16,39,1,186,1,151,2,14,4,39,1,186,1,151,2,14,4,39,1,186,1,151,2,14,2,116,1,0,0,0,0,8,4,116,1,196,7,196,7,8,5.33
 3030 DATA -1,0,0,0,0,0,9,16,138,1,241,1,151,2,13,4,138,1,241,1,151,2,13,4,138,1,241,1,151,2,13,2,0,0,0,0,0,0,4,4,47,5,47,5,47,5,13,5.33,-1,0,0,0,0,0,14,16,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,2
 3040 DATA 0,0,0,0,0,0,18,4,209,0,226,3,226,3,15,5.33,-1,0,0,0,0,0,16,16,124,0,75,1,241,1,25,4,124,0,75,1,241,1,25,4,117,0,138,1,79,2,25,2,248,0,0,0,0,0,13,4,234,0,235,6,235,6,13,5.33,-1,0,0,0,0,0,14,16,221,0,116,1,79,2,18,4
 3050 DATA 248,0,186,1,79,2,18,4,7,1,186,1,151,2,18,2,116,1,0,0,0,0,8,4,116,1,196,7,196,7,11,5.33,-1,0,0,0,0,0,9,16,197,0,241,1,151,2,21,4,197,0,75,1,241,1,21,4,197,0,75,1,241,1,21,2,0,0,0,0,0,0,99,4,0,0,0,0,0,0,4,4
 3060 DATA 47,5,47,5,47,5,13,5.33,-1,0,0,0,0,0,14,16,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,2,0,0,0,0,0,0,18,4,209,0,226,3,226,3,15,5.33,-1,0,0,0,0,0,16,16,197,0,75,1,241,1,21,4,197,0,75,1,241,1,21,4
 3070 DATA 197,0,75,1,241,1,21,2,0,0,0,0,0,0,13,4,138,1,47,5,47,5,10,5.33,-1,0,0,0,0,0,11,16,39,1,186,1,151,2,14,4,39,1,186,1,151,2,14,4,39,1,186,1,151,2,14,2,116,1,0,0,0,0,8,4,116,1,196,7,196,7,8,5.33,-1,0,0,0,0,0,9,16
 3080 DATA 138,1,124,1,151,2,13,4,138,1,241,1,151,2,13,4,138,1,241,1,151,2,13,2,0,0,0,0,0,0,4,4,47,5,47,5,47,5,13,5.33,-1,0,0,0,0,0,14,16,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,4,7,1,116,1,151,2,11,2,0,0,0,0,0,0,18,4
 3090 DATA 209,0,226,3,226,3,15,5.33,-1,0,0,0,0,0,16,16,124,0,75,1,241,1,25,4,124,0,75,1,241,1,25,4,117,0,138,1,79,2,25,2,248,0,0,0,0,0,13,4,234,0,235,6,235,6,13,5.33,-1,0,0,0,0,0,14,16,221,0,116,1,79,2,18,4,248,0,186,1,79,2,18,4
 3100 DATA 7,1,186,1,151,2,18,2,116,1,0,0,0,0,8,4,116,1,196,7,196,7,11,5.33,-1,0,0,0,0,0,9,16,197,0,241,1,151,2,21,4,197,0,75,1,241,1,21,2,0,0,0,0,0,0,99,4
 9997 STOP 
 9998 SAVE "CHOPIN" LINE 10