Plays Chopin’s Prelude.
Content
Image Gallery
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