10REM ***************************** 20REM * LITTLE PRELUDE IN E * 30REM * BY JOHANN SEBASTIAN BACH * 40REM * MUSIC AND GRAPHICS BY * 50REM * THEO GRAY - 19F - 5/8/92 * 60REM ***************************** 70MODE7 80ON ERROR VDU23,1,1;0;0;0;:END 90VDU23,1,0;0;0;0; 100VDU10 110VDU131,157,145,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9 120PRINT 130VDU131,157,145,9,254,255,180,9,9,9, 9,9,9,238,189,9,9,254,253,9,9,254,253,9, 9,254,253,9,9,9,9,240,240,240,176,9,9 140PRINT 150VDU131,157,145,9,162,255,181,9,9,9, 9,9,9,248,244,9,254,255,255,253,254,255, 255,253,9,255,255,9,9,224,254,247,240,25 1,255,244 160PRINT 170VDU131,157,145,9,9,255,161,9,9,9,9, 9,9,239,191,9,162,255,255,161,162,255,25 5,161,9,255,255,9,9,234,255,167,163,163, 163,163 180PRINT 190VDU131,157,145,9,250,255,244,240,24 0,252,255,180,9,250,245,9,9,255,255,248, 180,255,255,248,180,255,255,248,180,170, 255,244,240,248,255,167 200PRINT 210VDU131,157,145,9,175,255,255,255,25 5,255,167,9,9,239,191,9,9,162,239,191,16 5,162,239,191,165,162,239,191,165,9,162, 239,255,191,161,9 220PRINT 230VDU131,157,145,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9 240PRINT 250VDU131,157,145,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9 260PRINT 270VDU131,157,145,254,255,175,255,244, 9,9,9,9,9,9,9,9,9,9,9,254,253,9,9,9,9,9, 9,9,9,9,255,9,9,9,9,9,9 280PRINT 290VDU131,157,145,239,255,252,255,191, 224,252,176,9,240,9,224,252,172,252,176, 255,255,9,9,224,176,240,9,224,240,240,25 5,9,224,252,172,252,176 300PRINT 310VDU131,157,145,234,245,162,163,9,23 9,191,239,255,167,232,255,189,172,174,16 5,255,255,9,9,254,165,239,180,254,167,23 9,255,232,255,189,172,174,165 320PRINT 330VDU131,157,145,255,255,9,9,9,234,25 5,9,9,9,234,255,244,240,252,180,255,255, 248,180,255,176,250,181,255,176,250,255, 234,255,244,240,252,180 340PRINT 350VDU131,157,145,171,191,9,9,9,238,19 1,9,9,9,9,171,255,255,167,9,162,239,191, 161,170,255,191,9,170,255,191,239,9,171, 255,255,167 360PRINT 370VDU131,157,145,9 380PRINT' 390VDU141,134:PRINTTAB(23)"BY J.S.BACH " 400VDU141,133:PRINTTAB(23)"BY J.S.BACH " 410PRINT 420VDU141,131:PRINT"MUSIC AND GRAPHICS BY THEO GRAY" 430VDU141,129:PRINT"MUSIC AND GRAPHICS BY THEO GRAY" 440A%=11 450G%=0 460RESTORE 610 470REPEAT 480READ C%,P%,D% 490G%=G%+1 500SOUND C%,-A%,P%,D%/3 510UNTIL G%=239 520RESTORE1320 530SOUND 1,0,52,10:SOUND 2,0,52,10 540G%=0 550REPEAT 560READ C%,P%,D% 570G%=G%+1 580SOUND C%,-A%,P%,D%/3 590UNTIL G%=235 600VDU10,23,1,1;0;0;0; 610DATA 2,68,10,1,68,10,2,116,10 620DATA 1,116,10,2,144,20 630DATA 1,112,10,1,116,10 640DATA 2,164,20,1,84,10 650DATA 1,116,10,2,144,20 660DATA 1,112,10,1,116,10 670DATA 2,152,20,2,136,20 680DATA 2,124,20,2,144,20 690DATA 1,88,10,1,116,10 700DATA 1,124,10,1,116,10 710DATA 1,112,10,1,104,10 720DATA 1,96,10,1,88,10 730DATA 2,116,20,2,124,10 740DATA 2,132,10,2,136,20 750DATA 2,132,20 760DATA 1,84,10,1,116,10 770DATA 1,112,10,1,116,10 780DATA 1,104,10,1,116,10 790DATA 1,96,10,1,116,10 800DATA 2,124,20,2,144,20 810DATA 2,136,20,2,132,20 820DATA 1,88,10,1,116,10 830DATA 1,84,10,1,116,10 840DATA 1,76,10,1,116,10 850DATA 1,68,10,1,116,10 860DATA 1,112,20,1,76,20,1,96,20,1,76, 20 870DATA 2,124,10,2,144,10,2,140,10,2,1 44,10 880DATA 2,112,10,2,144,10,2,140,10,2,1 44,10 890DATA 1,84,20,1,68,20,1,56,20,1,76,2 0 900DATA 2,116,10,2,144,10,2,152,10,2,1 44,10 910DATA 2,140,10,2,132,10,2,124,10,2,1 16,10 920END 930DATA 1,48,20,1,56,10,1,64,10,1,68,2 0,1,64,20 940DATA 2,112,10,2,144,10,2,140,10,2,1 44,10 950DATA 2,132,10,2,144,10,2,124,10,2,1 44,10 960DATA 1,56,20,1,76,20,1,68,20,1,64,2 0 970DATA 2,116,10,2,144,10,2,112,10,2,1 44,10 980DATA 2,104,10,2,144,10,2,96,10,2,14 4,10 990DATA 2,140,20,2,152,20,2,172,20,2,1 52,20 1000DATA 1,56,10,1,76,10,1,68,10,1,76,1 0 1010DATA 1,64,10,1,76,10,1,68,10,1,76,1 0 1020DATA 2,160,20,2,148,20,2,132,20,2,1 72,20 1030DATA 1,52,10,1,76,10,1,84,10,1,76,1 0 1040DATA 1,72,10,1,64,10,1,56,10,1,52,1 0 1050DATA 1,56,20,1,68,20,1,88,20,1,68,2 0 1060DATA 2,164,10,2,184,10,2,180,10,2,1 84,10 1070DATA 2,172,10,2,184,10,2,180,10,2,1 84,10 1080DATA 1,76,20,1,64,20,1,48,20,1,88,2 0 1090DATA 2,160,10,2,184,10,2,192,10,2,1 84,10 1100DATA 2,180,10,2,172,10,2,164,10,2,1 60,10 1110DATA 2,164,20,2,144,20,2,164,20,2,1 44,20 1120DATA 1,84,10,1,68,10,1,64,10,1,68,1 0 1130DATA 1,56,10,1,68,10,1,64,10,1,68,1 0 1140DATA 2,152,20,2,136,20,2,124,20,2,1 44,20 1150DATA 1,40,10,1,68,10,1,76,10,1,68,1 0 1160DATA 1,64,10,1,56,10,1,48,10,1,40,1 0 1170DATA 2,116,20,2,124,10,2,132,10,2,1 36,20,2,132,20 1180DATA 1,36,10,1,68,10,1,64,10,1,68,1 0 1190DATA 1,56,10,1,68,10,1,48,10,1,68,1 0 1200DATA 2,124,20,2,144,20,2,136,20,2,1 32,20 1210DATA 1,40,10,1,68,10,1,36,10,1,68,1 0 1220DATA 1,28,10,1,68,10,1,20,10,1,68,1 0 1230DATA 2,124,20,2,116,10,2,124,10,2,1 32,20,2,124,20 1240DATA 1,48,10,1,64,10,1,56,10,1,64,1 0 1250DATA 1,68,10,1,48,10,1,76,10,1,48,1 0 1260DATA 2,116,20,2,164,20,2,160,10,2,1 52,10,2,160,10,2,164,10 1270DATA 1,84,10,1,48,10,1,92,10,1,48,1 0,1,96,20,1,84,20 1280DATA 1,64,20,1,48,20,1,76,20,1,28,2 0 1290DATA 2,172,10,2,164,10,2,180,10,2,1 72,10 1300DATA 2,164,10,2,160,10,2,152,10,2,1 44,10 1310DATA 1,48,40,1,0,40,2,144,10,2,124, 10,2,112,10,2,96,50 1320DATA 1,48,20,2,48,12,2,124,10,1,76, 20,2,116,10,2,124,10 1330DATA 1,96,20,2,112,10,2,124,10,1,76 ,20,2,144,10,2,132,10 1340DATA 1,64,20,1,76,20,1,48,20,1,64,2 0 1350DATA 2,136,10,2,124,10,2,116,10,2,1 24,10 1360DATA 2,112,10,2,124,10,2,136,10,2,1 24,10 1370DATA 2,132,20,2,124,10,2,132,10 1380DATA 1,68,10,1,96,10,1,88,10,1,96,1 0 1390DATA 2,116,20,2,144,20,1,84,10,1,96 ,10,1,116,10,1,104,10 1400DATA 2,132,20,2,144,20,2,116,20,2,1 32,20 1410DATA 1,108,10,1,96,10,1,88,10,1,96, 10 1420DATA 1,84,10,1,96,10,1,108,10,1,96, 10 1430DATA 2,136,20,2,152,20,1,104,10,1,8 8,10,1,84,10,1,88,10 1440DATA 2,184,48,1,76,10,1,88,10,1,104 ,10,1,88,10 1450DATA 2,144,10,2,136,10,2,144,10 1460DATA 1,96,10,1,84,10,1,76,10,1,84,1 0 1470DATA 2,180,52,1,72,10,1,84,10,1,96, 10,1,84,10 1480DATA 2,152,20,2,172,20,2,152,20 1490DATA 1,88,10,1,76,10,1,72,10,1,76,1 0 1500DATA 1,60,10,1,76,10,1,72,10,1,76,1 0 1510DATA 2,156,20,2,144,20,2,132,20,2,1 68,20 1520DATA 1,48,10,1,76,10,1,72,10,1,76,1 0 1530DATA 1,56,10,1,104,10,1,96,10,1,104 ,10 1540DATA 1,88,20,1,104,20,1,124,20,1,10 4,20 1550DATA 2,172,10,2,152,10,2,144,10,2,1 52,10 1560DATA 2,136,10,2,152,10,2,172,10,2,1 60,10 1570DATA 1,92,20,1,104,20,1,76,20,1,92, 20 1580DATA 2,164,10,2,152,10,2,144,10,2,1 52,10 1590DATA 2,140,10,2,152,10,2,164,10,2,1 52,10 1600DATA 2,160,20,2,152,10,2,160,10,2,1 44,20,2,172,20 1610DATA 1,96,10,1,76,10,1,68,10,1,76,1 0 1620DATA 1,64,10,1,76,10,1,96,10,1,84,1 0 1630DATA 2,160,20,2,172,20,2,144,20,2,1 60,20 1640DATA 1,88,10,1,76,10,1,68,10,1,76,1 0 1650DATA 1,64,10,1,76,10,1,88,10,1,76,1 0 1660DATA 1,84,20,1,96,20,1,116,20,1,84, 20 1670DATA 2,164,10,2,144,10,2,136,10,2,1 44,10 1680DATA 2,132,10,2,144,10,2,156,10,2,1 44,10 1690DATA 1,88,20,1,104,20,1,112,20,1,76 ,20 1700DATA 2,152,10,2,136,10,2,132,10,2,1 36,10 1710DATA 2,124,10,2,136,10,2,152,10,2,1 36,10 1720DATA 1,84,20,1,96,20,1,104,20,1,68, 20 1730DATA 2,144,10,2,132,10,2,124,10,2,1 32,10 1740DATA 2,116,10,2,132,10,2,144,10,2,1 32,10 1750DATA 1,76,20,1,88,20,1,96,20,1,64,2 0 1760DATA 2,136,10,2,124,10,2,116,10,2,1 24,10 1770DATA 2,112,10,2,124,10,2,136,10,2,1 24,10 1780DATA 2,132,20,2,124,10,2,132,10 1790DATA 1,68,10,1,96,10,1,116,10,1,112 ,10 1800DATA 2,136,10,2,132,10,2,124,10,2,1 16,10 1810DATA 1,104,10,1,96,10,1,88,10,1,84, 10 1820DATA 2,152,20,2,160,20,2,164,20,2,1 44,20 1830DATA 1,88,10,1,84,10,1,76,10,1,88,1 0 1840DATA 1,84,10,1,116,10,1,112,10,1,11 6,10 1850DATA 2,152,20,2,136,20,2,160,20,2,1 44,20 1860DATA 1,88,10,1,116,10,1,112,10,1,11 6,10 1870DATA 1,96,20,1,48,20 1880DATA 2,164,80 1890DATA 1,68,10,1,20,10,1,36,10,1,48,1 0,1,68,40