100 REM BUMBLE.100 MODS BY larry gensch 110 DEFINTA-Z:N=0:P=INP(186):X=5:Y=20:J=1:INPUT"Speed (0=Fast...100=Slow)";S 120 CLS:PRINT:PRINT:PRINT" The Flight of the Bumblebee" 130 PRINT:PRINT" by Nikolai Rimsky-Korsakoff" 500 READF:IFF=-9999THENOUT186,P:MENU 510 IFF<0THENC=-F:GOTO500 520 FORD=1TOC:GOSUB700:OUT188,FMOD256:OUT189,((F/256)AND127)OR64:OUT184,195:OUT186,PAND219OR32 560 FORE=1TOS:NEXTE,D:GOTO500 700 LINE(X,Y)-(X+1,Y+1),0,BF:PSET(X-J,Y-J):IFX>235THENJ=-1ELSEIFX<5THENJ=1 710 X=X+J:R=RND(1)*100:IFR<40THEN810ELSEIFR<80THEN820ELSEIFR<90THEN830ELSE840 720 LINE(X,Y)-(X+1,Y+1),1,BF:RETURN 810 IFY<60THENY=Y+1:GOTO720 820 IFY>5THENY=Y-1:GOTO720ELSE810 830 IFX>5THENX=X-1:GOTO720 840 IFX<240THENX=X+1 850 GOTO720 1000 DATA-1,1864,1975,2092,2216,2092,2216,2348,2488,2348 1010 DATA2488,2636,2793,2959,3134,3321,3516,3728,3950,4184 1020 DATA4433,4184,4433,4697,4976,4697,4976,5272,5586,5918 1030 DATA6269,6642,7032,7456,7900,8368,8866,8368,8866,9394 1040 DATA9952,7456,7900,8368,8866,8368,8866,9394,9952,7456 1050 DATA7900,8368,8866,9394,7032,7456,7900,7456,7900,8368 1060 DATA8866,9394,8866,8368,7900,7456,7900,8368,8866,9394 1070 DATA7032,7456,7900,7456,7900,8368,8866,9394,8866,8368 1080 DATA7900,7456,7900,8368,8866,8368,8866,9394,9952,9394 1090 DATA8866,8368,7900,7456,7032,7456,7900,7456,7900,8368 1100 DATA8866,8368,8866,9394,9952,9394,8866,8368,7900,7456 1110 DATA6642,6269,5918,5586,5918,6269,6642,7032,5272,5586 1120 DATA5918,5586,5918,6269,6642,7032,6642,6269,5918,5586 1130 DATA5918,6269,6642,7032,5272,5586,5918,5586,5918,6269 1140 DATA6642,7032,6642,6269,5918,5586,5918,6269,6642,6269 1150 DATA6642,7032,7456,7032,6642,6269,5918,5586,5272,5586 1160 DATA5918,5586,5918,6269,6642,6269,6642,7032,7456,7032 1170 DATA6642,6269,5918,5586,5272,5586,5918,-8,5586,-1 1180 DATA5272,5918,5272,5918,5272,5918,5272,5918,-8,5586 1190 DATA-1,5272,5918,5272,5918,5272,5918,5272,5918,5586 1200 DATA5272,5586,5918,5586,5272,5586,5918,5586,5272,5586 1210 DATA5918,5586,5272,5586,5918,5586,5272,4976,4697,4433 1220 DATA4697,4976,5272,5586,5272,4976,4697,4433,4697,4976 1230 DATA5272,-8,4184,-1,3950,4433,3950,4433,3950,4433 1240 DATA3950,4433,-8,4184,-1,3950,4433,3950,4433,3950 1250 DATA4433,3950,4433,4184,3950,4184,4433,4184,3950,4184 1260 DATA4433,4184,3950,4184,4433,4184,3950,4184,4433,4184 1270 DATA3950,3728,3516,3321,3516,3728,3950,4184,3950,3728 1280 DATA3516,3321,3516,3728,3950,2092,2216,2348,2488,2636 1290 DATA1975,2092,2216,2092,2216,2348,2488,2636,2488,2348 1300 DATA2216,2092,2216,2348,2488,2348,2488,2636,2793,2636 1310 DATA2488,2348,2216,2348,2216,2092,1975,1864,1975,2092 1320 DATA2216,2092,2216,2348,2488,2348,2488,2636,2793,2959 1330 DATA3134,3321,3516,3728,3516,3728,3950,7456,3516,9952 1340 DATA3950,11172,3516,14064,3950,11172,3516,9394,3950,7456 1350 DATA3516,3728,3950,7456,3516,9394,3950,11172,3516,14064 1360 DATA3950,11172,3516,9394,3950,7456,3950,4184,4433,4184 1370 DATA4433,4697,4976,4697,4976,5272,5586,5918,6269,6642 1380 DATA7032,7456,7032,7456,7900,7456,7032,7456,7900,7456 1390 DATA7032,7456,7900,932,7032,1174,7900,1396,7032,1758 1400 DATA7900,1396,7032,1174,7900,932,7032,7456,7900,932 1410 DATA7032,1174,7900,1396,7032,1758,7900,1396,7032,1174 1420 DATA7900,932,7032,6642,6269,5918,5586,5272,4976,4697 1430 DATA4433,4184,3950,3728,3516,3321,3134,2959,2793,2636 1440 DATA2488,2348,2216,2092,1975,1864,1758,1864,1975,1864 1450 DATA1758,1864,1975,3728,3950,4184,4433,4697,3516,3728 1460 DATA3950,3728,3950,4184,4433,4697,4433,4184,3950,3728 1470 DATA3950,4184,4433,4697,3516,3728,3950,3728,3950,4184 1480 DATA4433,4697,4433,4184,3950,3728,3950,4184,4433,4184 1490 DATA4433,4697,4976,4697,4433,4184,3950,3728,3516,3728 1500 DATA3950,3728,3950,4184,4433,4184,4433,4697,4976,4697 1510 DATA4433,4184,3950,3728,3321,3134,2959,2793,2959,3134 1520 DATA3321,3516,2636,2793,2959,2793,2959,3134,3321,3516 1530 DATA3321,3134,2959,2793,2959,3134,3321,3516,2636,2793 1540 DATA2959,2793,2959,3134,3321,3516,3321,3134,2959,2793 1550 DATA2959,3134,3321,3134,3321,3516,3728,3516,3321,3134 1560 DATA2959,2793,2636,2793,2959,2793,2959,3134,3321,3516 1570 DATA3321,3134,2959,2793,2488,2348,2092,1864,1758,1864 1580 DATA1975,1864,1975,2092,2216,2348,1758,1864,1975,1864 1590 DATA1975,2092,2216,2348,2216,2092,1975,1864,1975,2092 1600 DATA2216,2348,1758,1864,1975,1864,1975,2092,2216,2348 1610 DATA2216,2092,1975,1864,0,5918,5586,5272,4976,4697 1620 DATA4433,4184,4433,4697,4976,4697,4976,5272,5586,5918 1630 DATA5586,5272,4976,4697,4433,4184,3950,3728,3516,3728 1640 DATA3950,3728,3516,3728,3950,3728,0,5918,5586,5272 1650 DATA4976,4697,4433,4184,4433,4697,4976,4697,4976,5272 1660 DATA5586,5918,5586,5272,4976,4697,4433,4184,3950,3728 1670 DATA3321,2959,2793,2488,2348,2092,1975,1864,1975,2092 1680 DATA2216,2348,1758,1864,1975,1864,1975,2092,2216,2348 1690 DATA2216,2092,1975,1864,1975,2092,2216,2348,1758,1864 1700 DATA1975,1864,1975,2092,2216,2348,2216,2092,1975,1864 1710 DATA0,5918,5586,5272,4976,4697,4433,4184,4433,4697 1720 DATA4976,4697,4976,5272,5586,5918,5586,5272,4976,4697 1730 DATA4433,4184,3950,3728,3516,3728,3950,3728,3516,3728 1740 DATA3950,3728,0,5918,5586,5272,4976,4697,4433,4184 1750 DATA4433,4697,4976,4697,4976,5272,5586,5918,5586,5272 1760 DATA4976,4697,4433,4184,3950,3728,3516,3728,3950,3728 1770 DATA3321,3134,2959,2793,2959,3134,3321,3134,3321,3516 1780 DATA3728,3516,3728,3950,4184,4433,4697,4976,5272,5586 1790 DATA5918,6269,6642,6269,6642,7032,7456,7032,7456,7900 1800 DATA8368,8866,9394,9952,10544,-4,11172,-1,10544,11836 1810 DATA10544,11836,-2,11172,-1,11836,9952,12538,8866,14064 1820 DATA8368,-4,7456,-1,7032,7900,7032,7900,-2,7456 1830 DATA-1,8368,6642,9394,6269,9952,5918,-2,5586,0 1840 DATA-1,14912,14064,13284,12538,11836,11172,10544,9952,9394 1850 DATA8866,8368,7900,7456,7032,6642,6269,5918,5586,5272 1860 DATA4976,4697,4433,4184,3950,3728,3321,3134,2959,-2 1870 DATA2793,-4,0,-25586,-4,0,-2,11172 2000 DATA-9999