1 REM"�****************
    2 REM"�* �PARACHUTE�  *
    3 REM"�*�BY THEO GRAY�*
    4 REM"�*  �FOR 8BS   �*
    5 REM"�*�  28/2/93�   * 
    6 REM"�****************
   10 MODE2
   20 *FX11,0
   30 ONERRORPROCerror
   40 S%=0:D%=0:L%=5
   50 VDU28,5,21,16,11
   60 VDU23,224,0,235,8,28,28,62,62,127
   70 VDU23,225,0,128,58,2,7,15,15,255
   80 VDU23,226,0,0,224,0,0,128,128,248
   90 VDU23,227,249,249,127,63,31,4,10,4
  100 VDU23,228,39,39,255,255,255,0,0,0
  110 VDU23,229,28,14,254,252,248,32,80,32
  120 VDU23,230,0,0,68,238,255,187,17,0
  130 VDU23,231,96,112,36,188,112,24,22,50
  140 VDU23,232,192,76,40,251,149,18,8,0
  150 VDU23,233,0,56,126,191,191,126,56,0
  160 VDU23,234,0,0,0,0,0,0,1,1
  170 VDU23,235,0,28,126,254,254,252,124,56
  180 VDU23,236,19,35,20,200,184,44,64,192
  190 VDU23,237,192,0,128,0,0,0,0,0
  200 VDU23,238,24,60,60,126,126,126,36,24
  210 VDU23,239,24,28,73,62,8,28,54,34
  220 VDU23,240,0,0,1,1,3,3,3,6
  230 VDU23,241,112,248,252,36,38,38,38,35
  240 VDU23,242,6,7,7,5,4,2,3,0
  250 VDU23,243,35,255,255,37,169,114,116,248
  260 VDU23,244,32,168,112,32,32,112,216,136
  270 VDU23,245,14,15,15,6,6,7,6,0
  280 VDU23,246,0,0,128,0,224,176,24,12
  290 VDU23,247,31,15,7,3,0,0,0,0
  300 VDU23,248,230,243,249,252,1,3,1,0
  310 VDU23,249,120,56,176,144,192,224,192,0
  320 VDU23,250,0,0,0,0,0,0,0,3
  330 VDU23,251,224,240,248,96,96,124,76,152
  340 VDU23,252,10,29,31,28,8,0,0,0
  350 VDU23,253,119,207,63,255,0,0,0,0
  360 VDU23,254,248,248,240,240,0,0,0,0
  370 PROCtitle
  380 REPEAT
  390 IF S%MOD100=0 AND S%<>0 THEN D%=D%+1 ELSE D%=D%
  400 M%=1
  410 COLOUR134:CLS
  420 PROCsea_helicopter
  430 VDU23,1,0;0;0;0;
  440 C%=RND(3)
  450 IF C%=1 THEN PROCm1
  460 IF C%=2 THEN PROCm2
  470 IF C%=3 THEN PROCm3
  480 UNTIL FALSE
  490 END
  500 :
  510 DEFPROCsea_helicopter
  520 COLOUR4:VDU10,10,10,10,10,10,10,10
  530 VDU230,9,230,9,230,9,230,9,230,9,230,9
  540 VDU9,230,9,230,9,230,9,230,9,230,9,230
  550 VDU230,9,230,9,230,9,230,9,230,9,230,9
  560 COLOUR0:VDU11,11,11,11,11,11,11,11,11,11
  570 VDU8,8,8,224,225,226,10,8,8,8,227,228,229
  580 ENDPROC
  590 :
  600 DEFPROCm1
  610 VDU8,8,8,8,11,231
  620 FORWAIT%=1 TO2000-(D%*100):NEXT
  630 PROCmove
  640 SOUND1,-5,53,3
  650 VDU9,9,9,9,9,9,9,9,9,127,8,8,232,233
  660 FORWAIT%=1 TO2000-(D%*100):NEXT
  670 PROCmove
  680 SOUND1,-5,53,3
  690 VDU9,9,9,9,9,9,9,9,127,127,8,8,234,235,10,8,8,236,237
  700 FORWAIT%=1 TO2000-(D%*100):NEXT
  710 PROCmove
  720 SOUND1,-5,53,3
  730 VDU9,9,9,9,9,9,127,127,9,9,10,127,127,8,10,238,8,10,239
  740 FORWAIT%=1 TO2000-(D%*100):NEXT
  750 PROCmove
  760 SOUND1,-5,53,3
  770 VDU9,9,9,9,10,10,10,127,11,9,127,10,10,8,240,241,10,8,8,242,243,10,8,244
  780 FORWAIT%=1 TO2000-(D%*100):NEXT
  790 IF M%=C% THEN S%=S%+5 ELSE PROCDIE
  800 IF L%=0 THEN PROCEND
  810 ENDPROC
  820 :
  830 DEFPROCmove
  840 VDU30
  850 X%=INKEY(0)
  860 IF X%=144 THEN GOTO850
  870 IFX%=90 THEN M%=M%-1
  880 IFX%=88 THEN M%=M%+1
  890 IF M%<1 THEN M%=1
  900 IF M%>3 THEN M%=3
  910 IF M%=1 THEN VDU10,10,10,10,10,10,9,9,9,9,9,9,9,127,127,10,9,9,9,127,127,127,8,8,8,8,11,245,246,10,8,8,247,248,249:VDU30:ENDPROC
  920 IF M%=2 AND X%=90 THEN VDU10,10,10,10,10,10,9,9,9,9,9,9,9,9,9,9,9,127,127,10,9,9,9,127,127,127,8,8,8,8,11,250,251,10,8,8,252,253,254:VDU30:ENDPROC
  930 IF M%=2 AND X%=88 THEN VDU10,10,10,10,10,10,9,9,9,127,127,10,9,9,9,127,127,127,9,9,9,9,11,250,251,10,8,8,252,253,254:VDU30:ENDPROC
  940 IF M%=3 THEN VDU10,10,10,10,10,10,9,9,9,9,9,9,9,127,127,10,9,9,9,127,127,127,9,9,9,9,11,245,246,10,8,8,247,248,249:VDU30:ENDPROC
  950 VDU30
  960 ENDPROC
  970 :
  980 DEFPROCm2
  990 VDU8,8,8,8,231
 1000 FORWAIT%=1 TO2000-(D%*100):NEXT
 1010 PROCmove
 1020 SOUND1,-5,53,3
 1030 VDU9,9,9,9,9,9,9,9,9,10,127,8,8,10,234,235,10,8,8,236,237
 1040 FORWAIT%=1 TO2000-(D%*100):NEXT
 1050 PROCmove
 1060 SOUND1,-5,53,3
 1070 VDU9,9,9,9,9,9,9,9,10,10,127,127,9,9,10,127,127,10,240,241,10,8,8,242,243,10,8,244
 1080 FORWAIT%=1 TO2000-(D%*100):NEXT
 1090 IF M%=C% THEN S%=S%+5 ELSE PROCDIE
 1100 IF L%=0 THEN PROCEND
 1110 ENDPROC
 1120 :
 1130 DEFPROCm3
 1140 VDU8,8,8,10,231
 1150 FORWAIT%=1 TO2000-(D%*100):NEXT
 1160 PROCmove
 1170 SOUND1,-5,53,3
 1180 VDU9,9,9,9,9,9,9,9,9,9,10,10,127,9,238,10,8,239
 1190 FORWAIT%=1 TO2000-(D%*100):NEXT
 1200 PROCmove 
 1210 SOUND1,-5,53,3
 1220 VDU9,9,9,9,9,9,9,9,9,9,9,10,10,127,9,10,127,10,240,241,10,8,8,242,243,10,8,244
 1230 FORWAIT%=1 TO2000-(D%*100):NEXT
 1240 IF M%=C% THEN S%=S%+5 ELSE PROCDIE
 1250 IF L%=0 THEN PROCEND
 1260 ENDPROC
 1270 DEFPROCEND
 1280 COLOUR128:CLS
 1290 COLOUR1:PRINT'" WELL DONE"
 1300 PRINT"SAILOR! YOU"
 1310 PRINT"  SAVED A"
 1320 PRINT" TOTAL OF ":COLOUR3:PRINT"   ";S%DIV5
 1330 COLOUR1:PRINT"PARACHUTES"
 1340 PRINT" AND HAVE"
 1350 PRINT" BEEN PAID"
 1360 COLOUR3:PRINT" `";S%;:COLOUR1:PRINT;" FOR"
 1370 PRINT" YOUR WORK"
 1380 VDU23,1,1;0;0;0;
 1390 REPEAT
 1400 GG=GET
 1410 UNTIL GG=32 OR GG=70
 1420 IF GG=32 THENS%=0:D%=0:L%=5:GOTO380 ELSE ?&1903=180:END
 1430 END
 1440 ENDPROC
 1450 :
 1460 DEFPROCDIE
 1470 SOUND1,-10,4,7
 1480 SOUND1,0,53,1
 1490 SOUND1,-10,4,3
 1500 SOUND1,0,53,1
 1510 SOUND1,-10,4,3
 1520 SOUND1,0,53,1
 1530 SOUND1,-10,4,7
 1540 VDU127,11,9,127,127,11,9,9,127,127,10,10,10,240,241,10,8,8,242,243,10,8,244
 1550 L%=L%-1
 1560 FORWAIT%=1TO2000:NEXT
 1570 ENDPROC
 1580 :
 1590 DEFPROCtitle
 1600 COLOUR1:PRINT" PARACHUTE"
 1610 PRINT" ---------"
 1620 PRINT"WRITTEN BY"
 1630 PRINT" THEO GRAY"
 1640 COLOUR2:PRINT" IDEA FROM"
 1650 PRINT"A NINTENDO"
 1660 PRINT"   GAME"
 1670 PRINT"OF THE SAME"
 1680 PRINT"   NAME"
 1690 COLOUR3:PRINT"PRESS SPACE"
 1700 REPEAT
 1710 A=GET
 1720 UNTIL A=32
 1721 COLOUR5:PRINT'''"  WRITTEN"
 1722 PRINT"  FOR 8BS"
 1723 COLOUR3:PRINT''''"PRESS SPACE"
 1724 REPEAT
 1725 A=GET
 1726 UNTIL A=32
 1730 COLOUR1:PRINT" YOU ARE A"
 1740 PRINT"  BOATMAN"
 1750 PRINT" HIRED TO"
 1760 PRINT" CATCH THE"
 1770 PRINT"PARACHUTES"
 1780 PRINT"LANDING IN"
 1790 PRINT"THE SEA AND"
 1800 PRINT" SO SAVING"
 1810 PRINT"   THEM"
 1820 COLOUR3:PRINT"PRESS SPACE"
 1830 REPEAT
 1840 A=GET
 1850 UNTIL A=32
 1860 COLOUR1:PRINT" YOU ARE"
 1870 PRINT" PAID `5"
 1880 PRINT" FOR EVERY"
 1890 PRINT" SUCCESFUL"
 1900 PRINT"CATCH MADE"
 1910 PRINT"BUT LOSE A"
 1920 PRINT" LIFE FOR"
 1930 PRINT"EVERY MISS"
 1940 COLOUR3:PRINT'"PRESS SPACE"
 1950 REPEAT
 1960 A=GET
 1970 UNTIL A=32
 1980 COLOUR2:PRINT'"  Z-LEFT"
 1990 PRINT"  X-RIGHT":COLOUR1:PRINT"AT THE END":PRINT"PRESS ";:COLOUR2:PRINT;"SPACE":COLOUR1:PRINT"TO RESTART":PRINT"OR PRESS ";:COLOUR2:PRINT;"F":COLOUR1:PRINT" TO FINISH"
 2000 COLOUR3:PRINT'"PRESS SPACE"
 2010 PRINT" TO START!"
 2020 REPEAT
 2030 A=GET
 2040 UNTILA=32
 2050 ENDPROC
 2060 :
 2070 DEFPROCerror
 2080 IF ERR=17 COLOUR128:CLS:ENDPROC
 2090 CLS
 2100 ?&1903=180
 2110 END
 2120 ENDPROC