100 ' PRAELUDIUM I FROM BOOK I OF THE WELL-TEMPERED CLAVIER BY J. S. BACH
110 ' REALIZED AND ADAPTED FOR PC BY JOHN D. BRINK, RIVER FOREST, ILL
120 ' OCTOBER, 1983   -   DEDICATED TO W(?) CARLOS
130 '
140 SCREEN 0,1:    WIDTH 80: COLOR 4,7,1: KEY OFF: CLS: PLAY "MB L16 T144 MN"
150 FOR I=1 TO 35: READ M$:  PRINT I; " "; M$:     PLAY M$:   NEXT I
160 FOR I=1 TO 1500: NEXT I: COLOR 7,0,0:  KEY ON: CLS: END
170 '
180 DATA " O2 C E G O3 C E O2 G O3 C E   O2 C E G O3 C E O2 G O3 C E "
190 DATA " O2 C D A O3 D F O2 A O3 D F   O2 C D A O3 D F O2 A O3 D F "
200 DATA " O1BO2D G O3 D F O2 G O3 D F   O1BO2D G O3 D F O2 G O3 D F "
210 DATA " O2 C E G O3 C E O2 G O3 C E   O2 C E G O3 C E O2 G O3 C E "
220 DATA " O2 C E A O3 E A O2 A O3 E A   O2 C E A O3 E A O2 A O3 E A "
230 DATA " O2 C D F#A O3 D O2 F#A O3 D   O2 C D F#A O3 D O2 F#A O3 D "
240 DATA " O1BO2D G O3 D G O2 G O3 D G   O1BO2D G O3 D G O2 G O3 D G "
250 DATA " O1BO2C E G O3 C O2 E G O3 C   O1BO2C E G O3 C O2 E G O3 C "
260 DATA " O1AO2C E G O3 C O2 E G O3 C   O1AO2C E G O3 C O2 E G O3 C "
270 DATA "O1D AO2D F#O3 C O2 D F#O3 C   O1D AO2D F#O3 C O2 D F#O3 C "
280 DATA "O1 G B O2 D G B D G B         O1 G B O2 D G B D G B "
290 DATA "O1GA#O2E G O3 C#O2 E G O3 C#  O1GA#O2E G O3 C#O2 E G O3 C#"
300 DATA "O1F AO2D A O3 D O2 D A O3 D   O1F AO2D A O3 D O2 D A O3 D "
310 DATA "O1 F G#O2 D F B D F B         O1 F G#O2 D F B D F B "
320 DATA "O1EG O2C G O3 C O2 C G O3 C   O1EG O2C G O3 C O2 C G O3 C "
330 DATA "O1 E F A O2 C F O1 A O2 C F   O1 E F A O2 C F O1 A O2 C F "
340 DATA "O1 D F A O2 C F O1 A O2 C F   O1 D F A O2 C F O1 A O2 C F "
350 DATA "O0GO1D G B O2 F O1 G B O2 F   O0GO1D G B O2 F O1 G B O2 F "
360 DATA "O1 C E G O2 C E O1 G O2 C E   O1 C E G O2 C E O1 G O2 C E "
370 DATA "O1 C G A#O2 C E O1 A#O2 C E   O1 C G A#O2 C E O1 A#O2 C E "
380 DATA "O0FO1F A O2 C E O1 A O2 C E   O0FO1F A O2 C E O1 A O2 C E "
390 DATA "O0F#O1CA O2 C D#O1 A O2 C D#  O0F#O1CA O2 C D#O1 A O2 C D#"
400 DATA "O0G O1D#B O2C D#O1 B O2 C D#  O0G O1D#B O2C D#O1 B O2 C D#"
410 DATA "O0G#O1FB O2 C D O1 B O2 C D   O0G#O1FB O2 C D O1 B O2 C D "
420 DATA "O0G O1FG B O2 D O1 G B O2 D   O0G O1FG B O2 D O1 G B O2 D "
430 DATA "O0G O1EG O2 C E O1 G O2 C E   O0G O1EG O2 C E O1 G O2 C E "
440 DATA "O0G O1DG O2 C F O1 G O2 C F   O0G O1DG O2 C F O1 G O2 C F "
450 DATA "O0G O1DG B O2 F O1 G B O2 F   O0G O1DG B O2 F O1 G B O2 F "
460 DATA "O0G O1D#A O2C F#O1 A O2 C F#  O0G O1D#A O2C F#O1 A O2 C F#"
470 DATA "O0G O1E G O2C G O1 G O2 C G   O0G O1E G O2C G O1 G O2 C G "
480 DATA "O0G O1D G O2C F O1 G O2 C F   O0G O1D G O2C F O1 G O2 C F "
490 DATA "O0G O1DG B O2 F O1 G B O2 F   O0G O1DG B O2 F O1 G B O2 F "
500 DATA "O0C O1CG A#O2 E O1 G A#O2 E   O0C O1CG A#O2 E O1 G A#O2 E "
510 DATA "T130 O0C O1C F A O2C F C O1A  O2C O1A F A F D F D "
520 DATA "T115 O0C B O2G B O3D F D O2B  O3D O2B G B D F E D C2"
530 '     THAT'S ALL, FOLKS!
F C O1A  O2C O1A F A F  F D "
520 DATA "T115 O0C B O2G B O3D F D O2B  O3D O2B G B D F E D C2"
530 '     THAT'S ALL, FOLKS!
F C O1A  O2C O1A F A F