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