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