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