10 REM THIS PROG BY FRANK AND RUPERT DUDLEY. MARCH 1991 20 *FX200,1 30 MODE7 40 VDU23,1,0;0;0;0; 50 PROCINSTRS 60 PROCCLEARTONGUE 70 PROCCLEARBOTTOM 80 PROCLEGS 90 PROCMID 100 wa%=800 110 count%=0 120 count2%=0 130 count3%=0 140 Z%=RND(9000) 150 IF Z%<3000 X%=0 160 IF Z%>3000 AND Z%<6000 X%=17 170 IF Z%>6000 X%=34 180 REPEAT 190 count%=count%+1 200 count2%=count2%+1 210 IF count2%=800 AND count3%<30 PROCDIE:PROCFAIL 220 IF count2%=800 AND count3%>30 PROCRESET2 230 IF count%=10 PROCRESET 240 PRINT TAB(X%,0)"-p. " 250 FOR WAIT%=1 TO 100:NEXT WAIT% 260 PRINT TAB(X%,0)" " 270 IF INKEY(-1)AND P%=1 PROCTRIGHT 280 IF INKEY(-1)AND P%=2 PROCTLEFT 290 IF INKEY(-1)AND P%=3 PROCTMID 300 IF INKEY(-98)PROCLEFT 310 IF INKEY(-67)PROCMID 320 IF INKEY(-83)PROCRIGHT 330 PRINTTAB(13,24);"SCORE :";count3%;CHR$30 340 UNTIL FALSE 350 DEFPROCRIGHT 360 P%=1 370 VDU30 380 PRINT''''''''" " 390 PRINT" " 400 PRINT" " 410 PRINT" " 420 PRINT" " 430 PRINT" " 440 PRINT" " 450 ENDPROC 460 DEFPROCLEFT 470 P%=2 480 VDU30 490 PRINT''''''''" " 500 PRINT" " 510 PRINT" " 520 PRINT" " 530 PRINT" " 540 PRINT" " 550 PRINT" " 560 ENDPROC 570 DEFPROCMID 580 P%=3 590 VDU30 600 PRINT''''''''" " 610 PRINT" " 620 PRINT" " 630 PRINT" " 640 PRINT" " 650 PRINT" " 660 PRINT" " 670 ENDPROC 680 DEFPROCRESET 690 count%=0 700 Z%=RND(9000) 710 IF Z%<3000 X%=0 720 IF Z%>3000 AND Z%<6000 X%=17 730 IF Z%>6000 X%=34 740 ENDPROC 750 DEFPROCTMID 760 VDU30 770 PRINT" " 780 PRINT" " 790 PRINT" " 800 PRINT" " 810 PRINT" " 820 PRINT" " 830 PRINT" " 840 PRINT" " 850 PRINT" " 860 PRINT" " 870 PRINT" " 880 PRINT" " 890 PRINT" " 900 PRINT" " 910 PRINT" " 920 IF X%=17 PROCSOUND 930 FOR WAIT%=1 TO wa%:NEXT WAIT% 940 PROCCLEARTONGUE 950 PROCMID 960 ENDPROC 970 DEFPROCTRIGHT 980 VDU30 990 PRINT" " 1000 PRINT" " 1010 PRINT" " 1020 PRINT" " 1030 PRINT" " 1040 PRINT" " 1050 PRINT" " 1060 PRINT" " 1070 PRINT" " 1080 PRINT" " 1090 PRINT" " 1100 PRINT" " 1110 PRINT" " 1120 PRINT" 𠠠" 1130 PRINT" " 1140 IF X%=34 PROCSOUND 1150 FOR WAIT%=1 TO wa%:NEXT WAIT% 1160 PROCCLEARTONGUE 1170 PROCRIGHT 1180 ENDPROC 1190 DEFPROCTLEFT 1200 VDU30 1210 PRINT" " 1220 PRINT" " 1230 PRINT" " 1240 PRINT" " 1250 PRINT" " 1260 PRINT" " 1270 PRINT" " 1280 PRINT" " 1290 PRINT" " 1300 PRINT" " 1310 PRINT" " 1320 PRINT" " 1330 PRINT" " 1340 PRINT" " 1350 PRINT" " 1360 IF X%=0 PROCSOUND 1370 FOR WAIT%=1 TO wa%:NEXT WAIT% 1380 PROCCLEARTONGUE 1390 PROCLEFT 1400 ENDPROC 1410 DEFPROCSOUND 1420 SOUND0,-15,20,5 1430 FOR WAIT%=1 TO wa%:NEXT WAIT% 1440 PROCSMILE 1450 FOR WAIT%=1 TO wa%:NEXT WAIT% 1460 count3%=count3%+1 1470 PROCRESET 1480 ENDPROC 1490 DEFPROCSMILE 1500 VDU30 1510 PROCCLEARTONGUE 1520 PRINT" " 1530 PRINT" " 1540 PRINT" " 1550 PRINT" " 1560 PRINT" " 1570 PRINT" " 1580 PRINTTAB(13,24);"SCORE :";count3%;CHR$30 1590 ENDPROC 1600 DEFPROCFAIL 1610 VDU30 1620 PRINT''''''" Too Slow! You died of starvation." 1630 PRINT" Too Slow! You died of starvation." 1640 PRINT''" Another game? es o" 1650 PRINT''"" 1660 PRINT'''''''" " 1670 PRINT" " 1680 PRINT" " 1690 PRINT"Programmed by Frank & Rupert Dudley"; 1700 *FX15 1710 IF GET$="Y" RUN ELSE CLS:END 1720 ENDPROC 1730 DEFPROCRESET2 1740 count2%=0 1750 count3%=0 1760 ENDPROC 1770 DEFPROCINSTRS 1780 CLS 1790 FORj=1TO2:PRINTCHR$132;CHR$157;CHR$141;CHR$131;" YOU ARE A FAT GREEN FROG!":NEXT 1800 PROCblue("In order to survive you must catch") 1810 PROCblue("at least 30 flies per minute.") 1820 PROCblue(" Z : look left") 1830 PROCblue(" X : look up") 1840 PROCblue(" C : look right") 1850 PROCblue(" SHIFT : stick out your tongue") 1860 PROCMID 1870 PROCLEGS 1880 PRINT" PRESS SPACE";CHR$30; 1890 REPEATPROCLEFT:OSCLI"FX19":PROCMID:OSCLI"FX19":PROCRIGHT:OSCLI"FX19":PROCMID:OSCLI"FX19":UNTILINKEY(0)=32 1900 ENDPROC 1910 DEFPROCCLEARTONGUE 1920 VDU30:FORj=1TO9:PRINTSTRING$(39," "):NEXT:ENDPROC 1930 : 1940 DEFPROCblue(a$):PRINTCHR$132;CHR$157;CHR$135;a$:ENDPROC 1950 DEFPROCCLEARBOTTOM 1960 PRINTTAB(0,24);STRING$(39," ");CHR$30; 1970 ENDPROC 1980 DEFPROCDIE 1990 SOUND0,-15,3,-1 2000 PROCCLEARTONGUE:PROCCLEARBOTTOM 2010 PROCMID 2020 PROCLEGS 2030 FORj=1TO13 2040 SOUND1,-0,(130-j)*10,0 2050 PRINTTAB(0,24);CHR$132;CHR$157;CHR$30; 2060 PRINTTAB(0,0);CHR$11 2070 *FX19 2080 NEXT 2090 PRINTTAB(0,24);CHR$132;CHR$157;CHR$30; 2100 *FX15,0 2110 ENDPROC 2120 DEFPROCLEGS 2130 VDU30 2140 PRINT'''''''''''''' 2150 PRINT" " 2160 PRINT" " 2170 PRINT" " 2180 PRINT" " 2190 PRINT" " 2200 PRINT" " 2210 PRINT" " 2220 PRINT" " 2230 PRINT" " 2240 PRINT""; 2250 ENDPROC