10 KEY(1) ON:ON KEY(1) GOSUB 730
20 CLS:COLOR 3,13:LOCATE 12,32
30 PRINT"TOCCATA IN C  MAJOR":LOCATE 14,32
40 PRINT"by  German Composer":LOCATE 16,31
50 PRINT"Johann Sebastian Bach":LOCATE 18,36
60 PRINT"1685-1750":COLOR 1,15
70 LOCATE 23,33:PRINT "PRESS F1 FOR EXIT"
80 PLAY"<T70MLC16E16G32<B32>F16P16P8P16<A16"
90 PLAY"B16>D32<G32>E16P16P8C32<B32A32"
100 PLAY"G32F32E32D32C32<B32>D32F32<B32>C32"
110 PLAY"<C32P4>C32D32E32F32E32D32C32"
120 PLAY"D32C32<B32A32B32G32A32B32>C32D32E32"
130 PLAY"F32G32F32E32D32E32C32D32E32F32"
140 PLAY"G32A32B32>C32<B32A32G32A32G32F32E32"
150 PLAY">F32E32D32C32D32C32<B32A32B32G32"
160 PLAY"A32B32>C32D32E32F32G32F32E32D32E32"
170 PLAY"D32C32<B32>A32G32F32E32F32E32D32"
180 PLAY"C32>B-32A32G32F32G32F32E32D32B-32"
190 PLAY"A32G32F32G32F32E32D32F32E32D32C32"
200 PLAY"D32C32<B32A32>F32E32D32C32D32C32<"
210 PLAY"B32A32>G32F32E32D32E32D32C32<B32>"
220 PLAY"C32<B32A32G32A32G32F32E32F32E32D32"
230 PLAY"C32<B32>C32D32E32F32E32D32C32<B32"
240 PLAY"A32G32F32E32>C32<B32A32G32F32E32D32"
250 PLAY"E32F32G32F32E32D32C32<B32>C32<"
260 PLAY"G32A32B32>C32F32E32F32G32F32E32D32"
270 PLAY"E32F32G32A32B-32G32A32B-32>C32D32"
280 PLAY"E32F32G32F32E32D32E32F32G32A32B-32"
290 PLAY"G32E32C32<G32E32C16P4C32D32E32F32"
300 PLAY"E32D32C32D32E32F32E32D32C32D32E32"
310 PLAY"F32G32F32E32F32G32A32G32F32E32F32"
320 PLAY"G32A32G32F32E32F32G32A32B-32A32G32"
330 PLAY"A32B-32>C32<B-32A32G32A32B-32>C32"
340 PLAY"D32E32F32G32A32E32F32C32<A32F32P4>"
350 PLAY">F32E32D32C32<B32A32G32F32E32D32"
360 PLAY"C32<B32>>G32F32E32D32F32E32D32C32"
370 PLAY"<B32A32G32F32E32D32C32<B32>>D32<A32"
380 PLAY"G32F32E32G32>C32<G32E32G32E32<B32>"
390 PLAY"C32E32C32<G32E32G32E32C32E32G32>"
400 PLAY"C32<G32E32C32<G32>C32<C8P8P16>C16"
410 PLAY"G16<G16>C8P8C16E16D16F16E16G16F#16"
420 PLAY"A16G16B16A16>C16<B16>D16<G16P16P8"
430 PLAY"P16>C16<B16>D16<A16>C16<B16>D16<G16"
440 PLAY"P16P8P16>C16<B16>D16<G16B16A16>C16<"
450 PLAY"F#16A16G16A16<B16P16P8P16>A16G16"
460 PLAY"B16F#16A16G16A16<B16P16P8P16>G16F16"
470 PLAY"G16E16G16F16G16<B16>G16F16G16E16"
480 PLAY"G16F16G16<B16>F16E16F16D16F16E16G16"
490 PLAY"C16P16P8P16F16E16F16D16F16E16G16"
500 PLAY"C16P16P8P16B-16A16B-16G16B-16A16>"
510 PLAY"C16<F16A16G16A16E16G16F16G16D16F16"
520 PLAY"E16F16C16E16D16F16<B16>G16F16G16D16"
530 PLAY"F16E16G16C16>C16<F#16A16D16>C16<"
540 PLAY"F#16A16D16>C16<A16>C16<F16A16G16B16"
550 PLAY"D16>D16<G16B16D16>D16<B16>D16<G16"
560 PLAY"B16D16G16<G16>>D16<B16>D16<G16B16"
570 PLAY"D16G16<G16>G16F24G24F24E24F24E24D16"
580 PLAY"F16E16F16D24E24D24C24D24C24<B64>C64"
590 PLAY"<B64>C64<B64>C64<B64>D16C16E16D16"
600 PLAY"F16E16G16D16F16C16D32E32D16E32F32"
610 PLAY"E16G16C16E16D16F16E16G16F16A16C#16"
620 PLAY"E16D16E32F32E16F32G32F16A16D16F16"
630 PLAY"E16F32G32F16G32A32<B16>G16C16D16<"
640 PLAY"G16>E16D64E64D64E64D64E64D64C8.P32"
650 PLAY"B-16E16G16C16B-16A16C16F16G16E16"
660 PLAY"G16C16>C16<B-24>C24<B-24A24B-24A24"
670 PLAY"G24A24G24F24G24F24E24F24E24D24E24"
680 PLAY"D24C24D24C24<B-24>C24<B-24A24B-24"
690 PLAY"A24G24A24G24F16G32F32E16F16G8.>F#16"
700 PLAY"G16.F32G16.F32G16.F#32G16.F#32G32"
710 PLAY"F32E32F32G32F32E32F32G16.<B32>"
720 PLAY"C16.<F32G8.C4P4"
730 COLOR 7,0,0:CLS