10REM"****************************** 20REM"* THE LITTLE NEGRO * 30REM"* BY CLAUDE DEBUSSY * 40REM"* FROM CLASSICS TO MODERNS 4 * 50REM"* GRAPHICS AND MUSIC BY * 60REM"* THEO GRAY - 6/8/92 * 70REM"****************************** 80MODE7 90VDU23,1,0;0;0;0; 100ONERRORVDU23,1,1;0;0;0;:PROCENDER:E ND 110REM *****GRAPHICS***** 120REM *****LITTLE***** 130VDU133,157:PRINT 140VDU133,157,150,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 150PRINT 160VDU133,157,150,9,162,255,181,9,9,9, 9,9,9,248,244,9,254,255,255,253,254,255, 255,253,9,171,255,244,9,224,254,247,240, 251,255,244 170PRINT 180VDU133,157,150,9,9,255,161,9,9,9,9, 9,9,239,191,9,162,255,255,161,162,255,25 5,161,9,224,255,191,9,234,255,167,163,16 3,163,163 190PRINT 200VDU133,157,150,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,255,170, 255,244,240,248,255,167 210PRINT 220VDU133,157,150,9,175,255,255,255,25 5,255,167,9,9,239,191,9,9,162,239,191,16 1,162,239,191,165,162,239,191,161,9,162, 239,255,191,161 230PRINT:VDU133,157 240REM *****NEGRO***** 250PRINT:VDU133,157,150,9,9,232,255,25 5,255,180,232,255,253 260PRINT:VDU133,157,150,9,9,254,255,16 3,255,253,170,255,255,9,9,248,188,236,24 4,9,240,240,176,9,9,248,244,9,224,176,22 4,252,244 270PRINT:VDU133,157,150,9,9,255,255,18 1,239,255,180,255,255,181,254,255,172,17 2,175,232,191,171,253,176,170,255,175,25 5,191,161,254,167,239,180 280PRINT:VDU133,157,150,9,9,234,255,25 3,170,255,245,250,255,165,255,253,240,24 8,252,234,245,224,255,245,9,255,181,9,9, 9,255,176,250,181 290PRINT:VDU133,157,150,9,9,170,255,19 1,9,239,255,255,191,9,162,239,255,191,16 1,9,239,255,239,255,168,255,165,9,9,9,17 0,255,191 300PRINT:VDU133,157,150,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,170,255 310PRINT:VDU133,157,150,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,232,244,9,248,191 320PRINT:VDU133,157,150,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,162,171,255,167 330PRINT:VDU133,157 340REM *****DEBUSSY***** 350PRINT:VDU10,9,9,9,9,151,255,175,175 ,175,175,175,239,244 360PRINT:VDU151,9,9,9,9,255,234,255,25 5,255,255,244,171,175,175,175,175,175,17 5,175,175,175,175,175,175,175,175,175,17 5,175,175,175,175,175,175,175,239,181 370PRINT:VDU151,9,9,9,9,255,234,255,18 1,162,239,255,234,255,255,181,255,175,25 5,180,255,181,234,255,234,255,255,255,23 4,255,255,181,255,245,250,255,234,181 380PRINT:VDU151,9,9,9,9,255,234,255,18 1,9,234,255,234,245,240,9,255,240,254,16 5,255,181,234,255,234,255,240,240,234,25 5,240,176,162,239,191,225,254,165 390PRINT:VDU151,9,9,9,9,255,234,255,18 1,224,254,255,234,183,163,9,255,163,239, 180,255,253,254,255,162,163,255,255,162, 163,255,181,255,234,181,255,161 400PRINT:VDU151,9,9,9,9,255,234,255,25 5,255,255,167,234,255,255,181,255,252,25 5,165,171,255,255,167,234,255,255,255,23 4,255,255,181,255,234,181,255 410PRINT:VDU151,9,9,9,9,255,252,252,25 2,252,252,252,252,252,252,252,252,252,25 2,254,253,252,252,252,252,252,252,252,25 2,252,252,252,255,252,252,255:PRINT 420REM *****END OF GRAPHICS***** 430REM *****MUSIC***** 440G%=0 450RESTORE520 460REPEAT 470G%=G%+1 480READ C%,A%,P%,D% 490SOUND C%,-A%,P%,D%*3 500UNTIL G%=659 510REM *****MUSIC DATA***** 520DATA 1,10,164,1,1,10,176,2,1,10,164 ,1,2,0,1,4,3,0,1,4,1,10,176,1,1,0,1,1,1, 10,164,1,1,0,1,1,2,0,1,4,3,0,1,4 530DATA 1,10,148,1,1,10,164,2,1,10,148 ,1,2,0,1,4,3,0,1,4,1,10,164,1,1,0,1,1,1, 10,148,1,1,0,1,1,2,0,1,4,3,0,1,4 540DATA 1,10,136,1,1,10,148,2,1,10,136 ,1,2,10,120,2,2,10,124,2,3,10,108,2,3,10 ,112,2,1,10,148,2,1,10,136,1,1,10,148,1, 2,10,128,2,2,10,124,2,3,10,116,2,3,10,11 2,2 550DATA 1,10,136,2,1,9,136,2,2,10,120, 2,2,9,124,2,3,10,108,2,3,9,112,2,1,9,136 ,2,1,9,136,2,2,9,120,2,2,9,116,2,3,8,108 ,2,3,7,104,2 560DATA 1,8,128,1,1,8,136,2,1,8,128,1, 2,8,112,2,2,8,108,2,3,8,100,2,3,8,96,2,1 ,8,116,1,1,0,1,1,1,8,128,2,2,8,104,2,2,8 ,100,2,3,8,92,2,3,8,88,2 570DATA 1,7,116,1,1,7,120,2,2,7,96,2,2 ,7,92,2,3,7,84,2,3,7,80,2,1,7,116,1,1,7, 100,3,1,0,1,1,2,7,88,2,2,7,84,1,2,0,1,1, 3,7,76,2,3,7,72,1,3,0,1,1 580DATA 1,12,100,1,1,12,108,2,1,12,100 ,1,2,12,80,2,2,12,76,2,3,12,68,2,3,12,64 ,2,1,12,80,2,1,12,80,1,1,12,96,1,2,12,72 ,2,2,12,76,2,3,12,60,2,3,12,64,2 590DATA 1,12,80,2,1,11,80,2,2,12,72,2, 2,11,32,2,3,12,60,2,3,0,1,2,1,11,80,2,1, 10,80,2,2,11,76,2,2,10,32,2,3,11,56,2,3, 0,1,2 600DATA 1,10,68,1,1,10,80,2,1,10,68,1, 2,10,52,1,2,0,1,1,2,10,100,1,2,0,1,1,3,0 ,1,2,3,0,1,2,1,10,80,1,1,0,1,1,1,10,68,1 ,1,0,1,1,2,10,48,1,2,0,1,1,2,10,96,1,2,0 ,1,1,3,0,1,2,3,0,1,2 610DATA 1,10,52,1,1,10,68,2,1,10,52,1, 2,10,40,1,2,0,1,1,2,10,88,1,2,0,1,1,3,0, 1,2,3,0,1,2,1,10,68,1,1,0,1,1,1,10,52,1, 1,0,1,1,2,10,32,1,2,0,1,1,2,10,80,1,2,0, 1,1,3,0,1,2,3,0,1,2 620DATA 1,10,40,1,1,10,52,2,1,10,40,1, 2,10,24,1,2,0,1,1,2,10,72,1,2,0,1,1,3,0, 1,2,3,0,1,2,1,10,52,2,1,10,40,1,1,10,52, 1,2,10,20,1,2,0,1,1,2,10,68,1,2,0,1,1,3, 0,1,2,3,0,1,2 630DATA 1,10,40,2,1,9,40,2,2,10,12,1,2 ,0,1,1,2,9,60,1,2,0,1,1,3,0,1,2,3,0,1,2, 1,8,40,2,1,7,40,2,2,8,24,1,2,0,1,1,2,7,7 2,1,2,0,1,1,3,0,1,2,3,0,1,2 640DATA 1,0,1,4,2,7,32,1,2,7,40,2,2,8, 52,1,3,0,1,4,1,8,60,1,1,0,1,1,1,8,68,1,1 ,0,1,1,2,0,1,4,3,0,1,4 650DATA 1,0,1,4,2,8,80,1,2,8,88,2,2,9, 100,1,3,0,1,4,1,9,108,2,1,10,116,1,1,10, 128,1,2,0,1,4,3,0,1,4 660DATA 1,0,1,4,2,10,136,1,2,11,148,2, 2,11,156,1,3,0,1,4,1,11,164,2,1,12,176,1 ,1,12,184,1,2,0,1,2,2,12,168,2,3,0,1,2,3 ,12,156,2 670DATA 1,12,196,4,2,12,164,4,3,12,148 ,4,1,0,1,4,2,0,1,4,3,0,1,2,3,9,100,2 680DATA 1,8,140,4,2,0,1,4,3,0,1,4,1,8, 140,2,1,0,1,2,2,0,1,2,2,8,108,2,3,0,1,4 690DATA 1,9,140,4,2,0,1,4,3,0,1,4,1,9, 140,2,1,0,1,2,2,0,1,2,2,9,120,2,3,0,1,4 700DATA 1,10,140,4,2,0,1,4,3,0,1,4,1,1 0,140,2,1,0,1,2,2,0,1,2,2,10,128,2,3,0,1 ,4 710DATA 1,10,140,4,2,10,128,4,3,10,100 ,4,1,10,140,4,2,10,128,4,3,10,100,4 720DATA 1,10,140,4,2,10,128,4,3,10,100 ,4,1,0,1,2,1,6,144,2,2,0,1,4,3,0,1,2,3,6 ,96,2 730DATA 1,6,148,2,1,6,140,2,2,0,1,2,2, 6,116,2,3,6,100,4,1,7,140,2,1,7,136,2,2, 7,116,2,2,0,1,2,3,7,100,2,3,7,88,2 740DATA 1,7,120,2,1,7,136,2,2,0,1,2,2, 7,100,2,3,7,72,4,1,8,136,2,1,8,108,2,2,8 ,100,2,2,0,1,2,3,8,72,2,3,8,60,2 750DATA 1,8,116,2,1,8,128,2,2,0,1,2,2, 8,96,2,3,8,68,4,1,9,96,2,1,9,128,2,2,0,1 ,2,2,9,108,2,3,9,60,4 760DATA 1,9,100,2,1,9,128,2,2,0,1,2,2, 9,116,2,3,9,52,4,1,9,128,2,1,4,88,2,2,9, 116,2,2,0,1,2,3,9,52,2,3,4,40,2 770DATA 1,5,92,2,1,6,108,2,2,5,44,2,2, 6,60,2,3,0,1,4,1,7,120,2,1,8,128,2,2,7,7 2,2,2,8,80,2,3,0,1,4 780DATA 1,9,140,2,1,10,156,2,2,9,92,2, 2,10,108,2,3,0,1,4,1,11,168,2,1,12,156,2 ,2,11,120,2,2,12,108,2,3,0,1,4 790DATA 1,11,140,2,1,11,124,2,2,0,1,2, 2,11,104,2,3,11,92,4,1,0,1,2,1,11,124,2, 2,0,1,2,2,11,104,2,3,11,92,4 800DATA 1,11,140,2,1,11,124,2,2,0,1,2, 2,11,104,2,3,11,92,4,1,11,124,1,1,0,1,1, 1,11,144,2,2,11,104,1,2,0,1,3,3,11,96,4 810DATA 1,6,148,2,1,6,140,2,2,0,1,2,2, 6,116,2,3,6,100,4,1,7,140,2,1,7,136,2,2, 7,116,2,2,0,1,2,3,7,100,2,3,7,88,2 820DATA 1,7,120,2,1,7,136,2,2,0,1,2,2, 7,100,2,3,7,72,4,1,8,136,2,1,8,108,2,2,8 ,100,2,2,0,1,2,3,8,72,2,3,8,60,2 830DATA 1,8,116,2,1,8,128,2,2,0,1,2,2, 8,96,2,3,8,68,4,1,9,96,2,1,9,128,2,2,0,1 ,2,2,9,108,2,3,9,60,4 840DATA 1,9,100,2,1,9,128,2,2,0,1,2,2, 9,116,2,3,9,52,4,1,9,128,2,1,4,88,2,2,9, 116,2,2,0,1,2,3,9,52,2,3,4,40,2 850DATA 1,5,92,2,1,6,108,2,2,5,44,2,2, 6,60,2,3,0,1,4,1,7,120,2,1,8,128,2,2,7,7 2,2,2,8,80,2,3,0,1,4 860DATA 1,9,140,2,1,10,156,2,2,9,92,2, 2,10,108,2,3,0,1,4,1,11,168,2,1,12,156,2 ,2,11,120,2,2,12,108,2,3,0,1,4 870DATA 1,12,168,1,1,0,1,1,1,12,156,2, 2,12,120,1,2,0,1,1,2,12,108,2,3,0,1,4,1, 12,168,1,1,0,1,1,1,12,160,2,2,12,120,1,2 ,0,1,1,2,12,112,2,3,0,1,4 880DATA 1,12,168,1,1,0,1,1,1,12,160,2, 2,12,120,1,2,0,1,1,2,12,112,2,3,0,1,4,1, 12,168,1,1,0,1,1,1,12,160,2,2,12,120,1,2 ,0,1,1,2,12,112,2,3,0,1,4 890DATA 1,12,172,1,1,0,1,1,1,12,160,2, 2,12,124,1,2,0,1,1,2,12,112,2,3,0,1,4,1, 12,172,1,1,0,1,1,1,0,1,2,2,12,124,1,2,0, 1,1,2,12,144,2,3,0,1,4 900DATA 1,11,164,1,1,11,176,2,1,11,164 ,1,2,10,148,4,3,0,1,4,1,11,176,1,1,0,1,1 ,1,11,164,1,1,0,1,1,2,10,144,4,3,0,1,4 910DATA 1,11,148,1,1,11,164,2,1,11,148 ,1,2,10,136,4,3,0,1,4,1,11,164,1,1,0,1,1 ,1,11,148,1,1,0,1,1,2,10,128,4,3,0,1,4 920DATA 1,11,136,1,1,11,148,2,1,11,136 ,1,2,11,120,2,2,11,124,2,3,11,108,2,3,11 ,112,2,1,10,148,2,1,10,136,1,1,10,148,1, 2,10,128,2,2,10,124,2,3,10,116,2,3,10,11 2,2 930DATA 1,10,136,2,1,9,136,2,2,10,120, 2,2,9,124,2,3,10,108,2,3,9,112,2,1,9,136 ,2,1,9,136,2,2,9,120,2,2,9,116,2,3,8,108 ,2,3,7,104,2 940DATA 1,8,128,1,1,8,136,2,1,8,128,1, 2,8,112,2,2,8,108,2,3,8,100,2,3,8,96,2,1 ,8,116,1,1,0,1,1,1,8,128,2,2,8,104,2,2,8 ,100,2,3,8,92,2,3,8,88,2 950DATA 1,7,116,1,1,7,120,2,2,7,96,2,2 ,7,92,2,3,7,84,2,3,7,80,2,1,7,116,1,1,7, 100,3,1,0,1,1,2,7,88,2,2,7,84,1,2,0,1,1, 3,7,76,2,3,7,72,1,3,0,1,1 960DATA 1,12,100,1,1,12,108,2,1,12,100 ,1,2,12,80,2,2,12,76,2,3,12,68,2,3,12,64 ,2,1,12,80,2,1,12,80,1,1,12,96,1,2,12,72 ,2,2,12,76,2,3,12,60,2,3,12,64,2 970DATA 1,12,80,2,1,11,80,2,2,12,72,2, 2,11,32,2,3,12,60,2,3,0,1,2,1,11,80,2,1, 10,80,2,2,11,76,2,2,10,32,2,3,11,56,2,3, 0,1,2 980DATA 1,10,68,1,1,10,80,2,1,10,68,1, 2,10,52,1,2,0,1,1,2,10,100,1,2,0,1,1,3,0 ,1,2,3,0,1,2,1,10,80,1,1,0,1,1,1,10,68,1 ,1,0,1,1,2,10,48,1,2,0,1,1,2,10,96,1,2,0 ,1,1,3,0,1,2,3,0,1,2 990DATA 1,10,52,1,1,10,68,2,1,10,52,1, 2,10,40,1,2,0,1,1,2,10,88,1,2,0,1,1,3,0, 1,2,3,0,1,2,1,10,68,1,1,0,1,1,1,10,52,1, 1,0,1,1,2,10,32,1,2,0,1,1,2,10,80,1,2,0, 1,1,3,0,1,2,3,0,1,2 1000DATA 1,10,40,1,1,10,52,2,1,10,40,1, 2,10,24,1,2,0,1,1,2,10,72,1,2,0,1,1,3,0, 1,2,3,0,1,2,1,10,52,2,1,10,40,1,1,10,52, 1,2,10,20,1,2,0,1,1,2,10,68,1,2,0,1,1,3, 0,1,2,3,0,1,2 1010DATA 1,10,40,2,1,9,40,2,2,10,12,1,2 ,0,1,1,2,9,60,1,2,0,1,1,3,0,1,2,3,0,1,2, 1,8,40,2,1,7,40,2,2,8,24,1,2,0,1,1,2,7,7 2,1,2,0,1,1,3,0,1,2,3,0,1,2 1020DATA 1,0,1,4,2,7,32,1,2,7,40,2,2,8, 52,1,3,0,1,4,1,8,60,1,1,0,1,1,1,8,68,1,1 ,0,1,1,2,0,1,4,3,0,1,4 1030DATA 1,0,1,4,2,8,80,1,2,8,88,2,2,9, 100,1,3,0,1,4,1,9,108,2,1,10,116,1,1,10, 128,1,2,0,1,4,3,0,1,4 1040DATA 1,0,1,4,2,10,136,1,2,11,148,2, 2,11,156,1,3,0,1,4,1,11,164,2,1,12,176,1 ,1,12,184,1,2,0,1,2,2,12,168,2,3,0,1,2,3 ,12,156,2 1050DATA 1,12,196,2,1,0,1,2,2,12,164,2, 2,0,1,2,3,12,148,2,3,0,1,2,1,12,148,2,2, 12,116,2,3,12,100,2 1060REM *****END OF MUSIC DATA***** 1070REM *****END OF MUSIC***** 1080FORWAIT=1TO5000:NEXT 1090PROCENDER 1100END 1110: 1120DEFPROCENDER 1130PRINT'''''" THANKS FOR LISTENING"' 1140PRINT" MUSIC & GRAPHICS BY" 1150PRINT'" THEO GRAY 6/8/92"'''''' 1160COLOUR7 1170ENDPROC