GAMES2/MOONESCAPE

Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES2/MOONESCAPE

GAMES2/MOONESCAPE

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF
Filename:	GAMES2/MOONESCAPE
Read OK:	✔
File size:	1D7D bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

   60:
  100ON ERROR GOTO 3540
  110MODE6:VDU19,0,4,0;0
  120PROCinst
  130PROCsetchars
  140*FX4,1 
  150II%=RND(-TIME)
  160IF S%<>-1 !&80=1000
  170PRINT''"Skill level (1/2)"
  180REPEAT:Z$=GET$:UNTIL Z$="1" OR Z$="2"
  190IF Z$="1" G%=FALSE:AT%=5 ELSE G%=TRUE:AT%=10
  200MODE4:VDU23,1,0;0;0;0;:VDU19,0,4;0;
  210*FX15,0
  220DOCK=20:LL%=1:S%=0:B%=17000:I%=B%:FI%=400:F%=FI%:X%=0:NS%=FALSE:U%=0:FLAG1%=FALSE
  230NL%=3:IN%=FALSE:AN%=FALSE:D%=0:FT%=TRUE:A%=981434236:SP$=CHR$(32) 
  240W%=16777183:Y%=-66822:Y1%=-8429729:H%=!&80:V%=FALSE:BBB%=V%:*FX11,0
  250CLS:DIM X%(41),Y%(41),IX%(41),IY%(41):NG%=0
  260L$=STRING$(40,CHR$238):PRINTTAB(0,0)"Score : 000000"
  270PRINTTAB(0,2);L$;:PRINTTAB(20,0)" Hiscore : 000000"
  280PRINTTAB(0,1)"Landers : 00";TAB(14,1)"Fuel : 0000";TAB(29,1)"Level : 00";
  290PRINTTAB(0,31)"LandingS: This level 00 : This game 000";
  300SEA1$=STRING$(40,CHR$253)
  310STMP$=STRING$(2,SP$)+CHR$247+CHR$245+CHR$249+STRING$(2,SP$)+CHR$10+STRING$(7,CHR$8)+SP$+CHR$243+SP$
  320STM2$=SP$+CHR$244+SP$+CHR$10+STRING$(7,CHR$8)+STRING$(2,SP$)+STRING$(3,CHR$248)+SP$+SP$
  330SHIP$=STMP$+SP$+STM2$
  340Q$=SHIP$:ANY$=STRING$(3,CHR$232)
  350WHT$=STRING$(2,CHR$234)
  360FOR II%=0TOH%STEP(H%DIV100):PRINTTAB(37-LEN(STR$(II%)),0);II%
  370SOUND0,-15,3,1:NEXT
  380 PRINTTAB(37-LEN(STR$(H%)),0);H%
  390SOUND1,-15,150,4
  400FOR II%=1 TO 3:PRINTTAB(11,1);II%:SOUND0,-15,3,3:NEXT
  410FORII%=20 TO F% STEP20:PRINTTAB(25-LEN(STR$(II%)),1);II%:SOUND0,-15,7,1:NEXT
  420SOUND1,-15,150,8:PRINTTAB(38,1)"1"
  430MANSHIP$=STMP$+CHR$(255)+STM2$
  440ENTER$=STMP$+SP$+SP$+CHR$244+SP$
  450PRINTTAB(0,30);SEA1$;
  460PRINTTAB(0,29);:VDU234,234,232:PRINTSPC(34);:VDU233,234,234
  470PRINTTAB(0,28);:VDU234,232:PRINTSPC(36);:VDU233,234
  480 PRINTTAB(0,27);CHR$232;SPC(38);CHR$233;
  490PRINTTAB(9,29);WHT$;SPC(8);WHT$;SPC(8);WHT$;
  500PRINTTAB(8,28);WHT$;WHT$;SPC(6);WHT$;WHT$;SPC(6);WHT$;WHT$;
  510PRINTTAB(17,27);WHT$;WHT$;WHT$;
  520IF IN%=TRUE GOTO 1860
  530L%=RND(25)+5
  540M%=3
  550PRINTTAB(L%,M%);SHIP$
  560N%=RND(3)-2:IF N%=0 GOTO560
  570J%=0:K%=0
  580TIME=0
  590PROCsetastros
  600PROCdispastros
  610BBB%=FALSE
  620REPEAT
  630PROCmaninship
  640PROCmoveastros
  650UNTIL V%=TRUE
  660REPEAT
  670PROCmoveman
  680PROCmoveastros
  690PROCmoveship
  700UNTIL BBB% OR U%=1
  710IF BBB% THEN BBB%=FALSE:GOTO620
  720X%=0
  730REPEAT
  740PROCmoveastros
  750PROCmoveship
  760UNTIL INKEY(-99)
  770PRINTTAB(QW%,K%+1)STRING$(6,SP$)
  780REPEAT
  790PROCmoveastros
  800PROCupwego
  810PROCmoveship
  820UNTIL BBB% OR DOCK<6:IF BBB% THEN BBB%=FALSE:GOTO620
  830PROChavewedocked
  840*FX15,0
  850GOTO 620
  860END
  870:
 1000DEFPROCmoveship:T%=L%+N%:IF T%=0 OR T%=35 N%=-N%:T%=L%+N%
 1010L%=T%:PRINTTAB(L%,M%);SHIP$:ENDPROC
 1020:
 1030DEFPROCmaninship:T%=L%+N%:IF T%=0 OR T%=35 N%=-N%:T%=L%+N%
 1040L%=T%:PRINTTAB(L%,M%);MANSHIP$:IF INKEY$(2)<>SP$ ENDPROC
 1050V%=TRUE:PRINTTAB(L%,M%+2);SPC10:PRINTTAB(L%+3,M%+1);SP$
 1060SOUND1,-15,220,1:J%=L%+3:K%=M%+3
 1070PRINTTAB(J%,K%);CHR$(255):PRINTTAB(L%,M%);SHIP$:X%=0:ENDPROC
 1080:
 1090DEFPROCsetastros
 1100FOR Q%=0 TO AT%+1
 1110X%(Q%)=RND(37)+1
 1120Y%(Q%)=RND(18)+6
 1130IX%(Q%)=RND(5)-3:IF IX%(Q%)=0 GOTO 1130
 1140IF G%=FALSE GOTO 1160
 1150IY%(Q%)=RND(3)-2
 1160IF Q%MOD5=0 PROCmoveship
 1170NEXT
 1180ENDPROC
 1190:
 1200DEFPROCmoveastros
 1210IF AT%<10 BG%=1:E%=AT%:GOTO1240
 1220IF FT%=TRUE BG%=1:E%=AT%DIV2:FT%=FALSE:GOTO1240
 1230BG%=AT% DIV 2:E%=AT%:FT%=TRUE
 1240FOR Z%=BG%TO E%
 1250T%=X%(Z%)+IX%(Z%)
 1260R%=Y%(Z%)+IY%(Z%)
 1270IF T%<0 PRINTTAB(X%(Z%),Y%(Z%))SP$;:T%=39:X%(Z%)=T%:GOTO1290
 1280IF T%>39 PRINTTAB(X%(Z%),Y%(Z%))SP$;:T%=0:X%(Z%)=T%
 1290IF R%<7 PRINTTAB(X%(Z%),Y%(Z%))SP$:R%=24:Y%(Z%)=R%:GOTO1330
 1300IF R%>24 PRINTTAB(X%(Z%),Y%(Z%))SP$:R%=7:Y%(Z%)=R%:GOTO1330
 1310PRINTTAB(X%(Z%),Y%(Z%))SP$;
 1320Y%(Z%)=Y%(Z%)+IY%(Z%)
 1330 X%(Z%)=X%(Z%)+IX%(Z%)
 1340PRINTTAB(X%(Z%),Y%(Z%));CHR$(254);
 1350NEXT
 1360P%=!((K%*40*8)+4+&5800+(J%*8))
 1370IF P%=A% BBB%=TRUE:PROClosealife
 1380ENDPROC
 1390:
 1400DEFPROCdispastros
 1410FOR II%=1 TO AT%:PRINTTAB(X%(II%),Y%(II%));CHR$(254);:NEXT:ENDPROC
 1420:
 1430DEFPROCupwego
 1440X%=0
 1450IF INKEY(-98) X%=-1
 1460IF INKEY(-67) X%=1
 1470IF INKEY(-74) PROCwaitabit
 1480IF AN%=TRUE AN%=FALSE:ENDPROC
 1490PROClessenfuelbyone:J%=J%+X%
 1500IF BBB%=TRUE THEN ENDPROC
 1510IF J%<0 J%=0:X%=0
 1520IF J%>39 J%=39:X%=0
 1530IF K%<6 DOCK=5:ENDPROC
 1540IF K%<9 SHIP$=ENTER$:PRINTTAB(L%,M%+2);SPC(7)
 1550K%=K%-1
 1560PRINTTAB(J%-X%,K%+1)SP$;
 1570P%=!((K%*40*8)+4+&5800+(J%*8))
 1580PRINTTAB(J%,K%);CHR$(255);
 1590IF P%=0 ENDPROC
 1600PROClosealife:BBB%=TRUE:ENDPROC
 1610:
 1620DEFPROChavewedocked
 1630PRINTTAB(L%,M%+2)SPC6
 1640IF J%<L%+2 OR J%>L%+4 YES=FALSE ELSE YES =TRUE
 1650IF YES=FALSE J%=J%-X%:PROClosealife:BBB%=TRUE:ENDPROC
 1660PRINTTAB(L%,M%);MANSHIP$
 1670SHIP$=Q$
 1680J%=L%+3:K%=M%+1
 1690IF NS%=FALSE oldfuel%=F%:F%=F%+100:IF F%>FI% THEN F%=FI%
 1700IF NS%=FALSE PROCdispfuel(oldfuel%)
 1710IF NS%=TRUE NS%=FALSE:PROCnewscreen
 1720V%=FALSE:U%=0:DOCK=20
 1730SHIP$=Q$
 1740ENDPROC
 1750:
 1760DEFPROCnewscreen
 1770IN%=TRUE
 1780D%=0
 1790PROCclearastros
 1800PRINTTAB(0,12)"Well done ... you cleared the screen !!"
 1810PROCnoise:PROCnoise
 1820PROCbonuscount
 1830PRINTTAB(0,16)"You have a bonus of ":PRINTTAB(20,16);B%;:PRINT" points !"
 1840PRINTTAB(21,31)"00";
 1850GOTO 450
 1860PROCaddbonus
 1870AT%=AT%+5
 1880IF AT% MOD 2=1 AT%=AT%+5
 1890IF AT%>40 AT%=40
 1900IF AT%>9 BG%=0:E%=AT% DIV 2
 1910PROCsetastros
 1920PROCclearastros
 1930PROCdispastros
 1940LL%=LL%+1
 1950IF LL%=3 NL%=NL%+1:PRINTTAB(12-LEN(STR$(NL%)),1);NL%:PROCnoise 
 1960SOUND1,-15,150,26
 1970PRINTTAB(39-LEN(STR$(LL%)),1);LL%
 1980I%=I%+3000:B%=I%:TIME=0
 1990FI%=FI%+100
 2000oldfuel%=F%:F%=FI%
 2010PROCdispfuel(oldfuel%)
 2020I%=I%+4000
 2030B%=I%
 2040D%=0
 2050ENDPROC
 2060:
 2070DEFPROCclearastros:VDU28,0,24,39,7:CLS:VDU28,0,31,39,0:ENDPROC
 2080:
 2090DEFPROCdockingssofar
 2100PRINTTAB(39-LEN(STR$(TD%)),31);TD%;:PRINTTAB(22,31);D%;:ENDPROC
 2110:
 2120DEFPROCmoveman
 2130X%=0
 2140IF INKEY(-98) X%=-1
 2150IF INKEY(-67) X%=1
 2160IF INKEY(-74) PROCwaitabit
 2170IF AN%=TRUE AN%=FALSE:ENDPROC
 2180J%=J%+X%:PROClessenfuelbyone
 2190IF BBB%=TRUE THEN ENDPROC
 2200IF J%<0 J%=0:X%=0
 2210IF J%>39 J%=39:X%=0
 2220K%=K%+1
 2230PRINTTAB(J%-X%,K%-1)SP$;
 2240P%=!((K%*40*8)+4+&5800+(J%*8))
 2250PRINTTAB(J%,K%);CHR$(255);
 2260IF P%=0 ENDPROC
 2270IF P%=A% OR P%=W% PROClosealife:BBB%=TRUE:ENDPROC
 2280IF P%=Y% OR P%=Y1% FLAG1%=2+(P%=Y%):PROClosealife:BBB%=TRUE:ENDPROC 
 2290PROCblock
 2300U%=1
 2310ENDPROC
 2320:
 2330DEFPROCblock
 2340IF J%<13 QW%=6
 2350IF J%<26 AND J%>12 QW%=17
 2360IF J%<39 AND J%>25 QW%=26
 2370PRINTTAB(J%,K%-1);CHR$(255)
 2380PRINTTAB(J%,K%);CHR$234;
 2390IF K%=28 SC%=100 ELSE IF K%=29 SC%=200 ELSE SC%=50
 2400D%=D%+1
 2410IF D%=7 NS%=TRUE
 2420TD%=TD%+1
 2430PROCdockingssofar
 2440PROCnoise
 2450S%=S%+SC%:PROCscore
 2460K%=K%-1
 2470ENDPROC
 2480:
 2490DEFPROClosealife
 2500SHIP$=Q$
 2510NL%=NL%-1
 2520PRINTTAB(12-LEN(STR$(NL%)),1);NL%
 2530PRINTTAB(J%,K%);CHR$242
 2540PROCcrash
 2550PRINTTAB(J%,K%)SP$
 2560IF FLAG1% THEN PRINTTAB(J%,K%);CHR$(231+FLAG1%);:FLAG1%=FALSE 
 2570IF NL%=0 PROCfinish:IF Z$<>"Y" END
 2580V%=FALSE:U%=0:DOCK=20
 2590PRINTTAB(0,30);SEA1$;
 2600J%=L%+3:K%=M%+2
 2610*FX15,0
 2620IF NS%=FALSE ENDPROC
 2630PROCnewscreen:DOCKS=0:NS%=FALSE:ENDPROC
 2640:
 2650DEFPROCfinish
 2660VDU28,0,31,39,3:CLS:*FX15,0
 2670PRINTTAB(9,12)"G A M E   O V E R"
 2680PRINTTAB(0,25)"Do you want to play again (Y/N)":VDU28,0,31,39,0
 2690IF S%>H% PRINTTAB(0,17)"You got the high score : well done!!":H%=S%:!&80=H%
 2700S%=-1:Z$=GET$:IF Z$<>"N" RUN
 2710*FX4
 2720VDU22,6:*FX11,40
 2730ENDPROC
 2740:
 2750DEFPROCbonuscount
 2760B%=I%-TIME:B%=B% DIV 10:IF B%<0 B%=0:ENDPROC ELSE ENDPROC
 2770:
 2780DEFPROCaddbonus:S%=S%+B%:FOR II%=S%-B% TO S% STEP 10
 2790PRINTTAB(14-LEN(STR$(II%)),0);II%:SOUND0,-15,3,1:NEXT
 2800PRINTTAB(14-LEN(STR$(II%)),0);S%:PROCnoise:ENDPROC
 2810:
 2820DEFPROClessenfuelbyone
 2830P%=F%-1
 2840IF F%=-1 F%=FI%:PROClosealife:PROCdispfuel(10):BBB%=TRUE
 2850PRINTTAB(21,1)"0000"
 2860PRINTTAB(25-LEN(STR$(F%)),1);F%;
 2870ENDPROC
 2880:
 2890DEFPROCdispfuel(oldfuel%):PRINTTAB(21,1)"0000"
 2900FOR II%=oldfuel% TO F% STEP 10:PRINTTAB(25-LEN(STR$(II%)),1);II%
 2910SOUND0,-15,3,3:NEXT:ENDPROC
 2920:
 2930DEFPROCwaitabit
 2940IF F%<11 AN%=FALSE:ENDPROC
 2950F%=F%-10
 2960PRINTTAB(21,1)"0000"
 2970PRINTTAB(25-LEN(STR$(F%)),1);F%
 2980AN%=TRUE
 2990ENDPROC
 3000:
 3010DEFPROCscore:FOR II%=S%-SC% TO S% STEP 2
 3020PRINTTAB(14-LEN(STR$(II%)),0);II%:SOUND0,-15,3,1:NEXT:ENDPROC
 3030:
 3040DEFPROCnoise
 3050FOR II%=1 TO 6
 3060SOUND1,-15,5,3
 3070SOUND1,-15,20,3
 3080NEXT
 3090*FX15,1
 3100TIME=0:REPEAT UNTIL TIME>90
 3110ENDPROC
 3120:
 3130DEFPROCcrash
 3140FOR II%=-15 TO 0
 3150SOUND0,II%,3+RND(3),5
 3160NEXT
 3170ENDPROC
 3180:
 3190DEFPROCinst
 3200PRINTTAB(12)"LUNAR ESCAPE"''
 3210PRINT''"Guide your shutle down through the"
 3220PRINT"asteroids to the launch pads below."
 3230PRINT"Collect the waiting people and fly"
 3240PRINT"back to the mother ship."'
 3250PRINT"Your shuttle has only a limited ammount"
 3260PRINT"of fuel, so watch for it running out."''
 3270PRINTSPC11;"Z      - move LEFT"
 3280PRINTSPC11;"X      - move RIGHT"
 3290PRINTSPC11;"RETURN - SLOW DOWN"'
 3300PRINTSPC11;"SPACE  - RELEASE FROM"
 3310PRINTSPC20;"MOTHER SHIP"
 3320PRINTSPC20;"OR TAKE OFF"
 3330VDU28,0,24,39,0
 3340ENDPROC
 3350:
 3360DEFPROCsetchars
 3370VDU23,1,0;0;0;0;
 3380VDU23,255,24,60,189,255,102,60,66,129
 3390VDU23,232,96,232,232,232,250,250,254,255
 3400VDU23,233,6,23,23,23,95,95,127,255
 3410VDU23,234,255,255,255,255,255,255,255,255
 3420VDU23,238,255,255,0,0,0,0,0,0
 3430VDU23,242,153,90,60,231,231,60,90,153
 3440VDU23,254,78,255,255,252,124,127,127,58
 3450VDU23,253,144,146,210,218,223,255,255,0
 3460VDU23,243,1,3,3,7,7,3,3,1
 3470VDU23,244,128,192,192,224,224,192,192,128 
 3480VDU23,245,61,255,255,195,129,0,0,0
 3490VDU23,247,0,3,7,31,63,126,124,248
 3500VDU23,248,129,126,0,0,0,0,0,0
 3510VDU23,249,0,192,224,248,252,126,62,31
 3520ENDPROC
 3530:
 3540ON ERROR OFF
 3550IF ERR=0 THEN PROCfinish ELSE REPORT:PRINT" at line ";ERL 
 3560*FX4
 3570*FX12
 3580VDU23;11,255;0;0;0
 3590END

<:
d� � � �dTM
n�6:�19,0,4,0;0
x	�inst
�
�setchars
�*FX4,1 
�
II%=�(-�)
�� S%<>-1 !&80=1000
��''"Skill level (1/2)"
��:Z$=�:� Z$="1" � Z$="2"
�%� Z$="1" G%=�:AT%=5 � G%=�:AT%=10
� �4:�23,1,0;0;0;0;:�19,0,4;0;
�*FX15,0
�MDOCK=20:LL%=1:S%=0:B%=17000:I%=B%:FI%=400:F%=FI%:X%=0:NS%=�:U%=0:FLAG1%=�
�8NL%=3:IN%=�:AN%=�:D%=0:FT%=�:A%=981434236:SP$=�(32) 
�CW%=16777183:Y%=-66822:Y1%=-8429729:H%=!&80:V%=�:BBB%=V%:*FX11,0
�+�:� X%(41),Y%(41),IX%(41),IY%(41):NG%=0
'L$=�40,�238):�0,0)"Score : 000000"
)�0,2);L$;:�20,0)" Hiscore : 000000"
@�0,1)"Landers : 00";�14,1)"Fuel : 0000";�29,1)"Level : 00";
"5�0,31)"LandingS: This level 00 : This game 000";
,SEA1$=�40,�253)
6@STMP$=�2,SP$)+�247+�245+�249+�2,SP$)+�10+�7,�8)+SP$+�243+SP$
@:STM2$=SP$+�244+SP$+�10+�7,�8)+�2,SP$)+�3,�248)+SP$+SP$
JSHIP$=STMP$+SP$+STM2$
TQ$=SHIP$:ANY$=�3,�232)
^WHT$=�2,�234)
h-� II%=0�H%�(H%�100):�37-�(�(II%)),0);II%
r�0,-15,3,1:�
| �37-�(�(H%)),0);H%
��1,-15,150,4
�(� II%=1 � 3:�11,1);II%:�0,-15,3,3:�
�7�II%=20 � F% �20:�25-�(�(II%)),1);II%:�0,-15,7,1:�
��1,-15,150,8:�38,1)"1"
�MANSHIP$=STMP$+�(255)+STM2$
�!ENTER$=STMP$+SP$+SP$+�244+SP$
��0,30);SEA1$;
�.�0,29);:�234,234,232:�(34);:�233,234,234
�&�0,28);:�234,232:�(36);:�233,234
� �0,27);�232;�(38);�233;
�%�9,29);WHT$;�(8);WHT$;�(8);WHT$;
�4�8,28);WHT$;WHT$;�(6);WHT$;WHT$;�(6);WHT$;WHT$;
��17,27);WHT$;WHT$;WHT$;
� IN%=� � �DDG
L%=�(25)+5
M%=3
&�L%,M%);SHIP$
0N%=�(3)-2:� N%=0 �TpB
:
J%=0:K%=0
D�=0
N�setastros
X�dispastros
b
BBB%=�
l�
v�maninship
��moveastros
�
� V%=�
��
��moveman
��moveastros
�
�moveship
�� BBB% � U%=1
�� BBB% � BBB%=�:�DlB
�X%=0
��
��moveastros
�
�moveship
�� �(-99)
�QW%,K%+1)�6,SP$)
�
�moveastros
 �upwego
*
�moveship
4)� BBB% � DOCK<6:� BBB% � BBB%=�:�DlB
>�havewedocked
H*FX15,0
R
� �DlB
\�
f:
�6��moveship:T%=L%+N%:� T%=0 � T%=35 N%=-N%:T%=L%+N%
�L%=T%:�L%,M%);SHIP$:�
�:
7��maninship:T%=L%+N%:� T%=0 � T%=35 N%=-N%:T%=L%+N%
)L%=T%:�L%,M%);MANSHIP$:� �(2)<>SP$ �
(V%=�:�L%,M%+2);�10:�L%+3,M%+1);SP$
$ �1,-15,220,1:J%=L%+3:K%=M%+3
.)�J%,K%);�(255):�L%,M%);SHIP$:X%=0:�
8:
B��setastros
L� Q%=0 � AT%+1
VX%(Q%)=�(37)+1
`Y%(Q%)=�(18)+6
j%IX%(Q%)=�(5)-3:� IX%(Q%)=0 � �DjD
t� G%=� � �tHD
~IY%(Q%)=�(3)-2
�� Q%�5=0 �moveship
��
��
�:
���moveastros
�� AT%<10 BG%=1:E%=AT%:�dXD
�&� FT%=� BG%=1:E%=AT%�2:FT%=�:�dXD
�BG%=AT% � 2:E%=AT%:FT%=�
�� Z%=BG%� E%
�T%=X%(Z%)+IX%(Z%)
�R%=Y%(Z%)+IY%(Z%)
�5� T%<0 �X%(Z%),Y%(Z%))SP$;:T%=39:X%(Z%)=T%:�TJE
/� T%>39 �X%(Z%),Y%(Z%))SP$;:T%=0:X%(Z%)=T%

4� R%<7 �X%(Z%),Y%(Z%))SP$:R%=24:Y%(Z%)=R%:�TrE
4� R%>24 �X%(Z%),Y%(Z%))SP$:R%=7:Y%(Z%)=R%:�TrE
�X%(Z%),Y%(Z%))SP$;
(Y%(Z%)=Y%(Z%)+IY%(Z%)
2 X%(Z%)=X%(Z%)+IX%(Z%)
<�X%(Z%),Y%(Z%));�(254);
F�
P"P%=!((K%*40*8)+4+&5800+(J%*8))
Z� P%=A% BBB%=�:�losealife
d�
n:
x��dispastros
�0� II%=1 � AT%:�X%(II%),Y%(II%));�(254);:�:�
�:
���upwego
�X%=0
�� �(-98) X%=-1
�� �(-67) X%=1
�� �(-74) �waitabit
�� AN%=� AN%=�:�
��lessenfuelbyone:J%=J%+X%
�� BBB%=� � �
�� J%<0 J%=0:X%=0
�� J%>39 J%=39:X%=0
�� K%<6 DOCK=5:�
'� K%<9 SHIP$=ENTER$:�L%,M%+2);�(7)
K%=K%-1
�J%-X%,K%+1)SP$;
""P%=!((K%*40*8)+4+&5800+(J%*8))
,�J%,K%);�(255);
6� P%=0 �
@�losealife:BBB%=�:�
J:
T��havewedocked
^�L%,M%+2)�6
h&� J%<L%+2 � J%>L%+4 YES=� � YES =�
r(� YES=� J%=J%-X%:�losealife:BBB%=�:�
|�L%,M%);MANSHIP$
�SHIP$=Q$
�J%=L%+3:K%=M%+1
�3� NS%=� oldfuel%=F%:F%=F%+100:� F%>FI% � F%=FI%
�� NS%=� �dispfuel(oldfuel%)
�� NS%=� NS%=�:�newscreen
�V%=�:U%=0:DOCK=20
�SHIP$=Q$
��
�:
���newscreen
�	IN%=�
�D%=0
��clearastros
4�0,12)"Well done ... you cleared the screen !!"
�noise:�noise
�bonuscount
&;�0,16)"You have a bonus of ":�20,16);B%;:�" points !"
0�21,31)"00";
:
� �dBA
D
�addbonus
N
AT%=AT%+5
X� AT% � 2=1 AT%=AT%+5
b� AT%>40 AT%=40
l� AT%>9 BG%=0:E%=AT% � 2
v�setastros
��clearastros
��dispastros
�
LL%=LL%+1
�3� LL%=3 NL%=NL%+1:�12-�(�(NL%)),1);NL%:�noise 
��1,-15,150,26
��39-�(�(LL%)),1);LL%
�I%=I%+3000:B%=I%:�=0
�FI%=FI%+100
�oldfuel%=F%:F%=FI%
��dispfuel(oldfuel%)
�I%=I%+4000
�	B%=I%
�D%=0
�
:
1��clearastros:�28,0,24,39,7:�:�28,0,31,39,0:�
 :
*��dockingssofar
4*�39-�(�(TD%)),31);TD%;:�22,31);D%;:�
>:
H
��moveman
RX%=0
\� �(-98) X%=-1
f� �(-67) X%=1
p� �(-74) �waitabit
z� AN%=� AN%=�:�
�J%=J%+X%:�lessenfuelbyone
�� BBB%=� � �
�� J%<0 J%=0:X%=0
�� J%>39 J%=39:X%=0
�K%=K%+1
��J%-X%,K%-1)SP$;
�"P%=!((K%*40*8)+4+&5800+(J%*8))
��J%,K%);�(255);
�� P%=0 �
�'� P%=A% � P%=W% �losealife:BBB%=�:�
�:� P%=Y% � P%=Y1% FLAG1%=2+(P%=Y%):�losealife:BBB%=�:� 
�
�block
�U%=1
	�
	:
	��block
	$� J%<13 QW%=6
	.� J%<26 � J%>12 QW%=17
	8� J%<39 � J%>25 QW%=26
	B�J%,K%-1);�(255)
	L�J%,K%);�234;
	V.� K%=28 SC%=100 � � K%=29 SC%=200 � SC%=50
	`D%=D%+1
	j� D%=7 NS%=�
	t
TD%=TD%+1
	~�dockingssofar
	�
�noise
	�S%=S%+SC%:�score
	�K%=K%-1
	��
	�:
	���losealife
	�SHIP$=Q$
	�
NL%=NL%-1
	��12-�(�(NL%)),1);NL%
	��J%,K%);�242
	�
�crash
	��J%,K%)SP$
0� FLAG1% � �J%,K%);�(231+FLAG1%);:FLAG1%=� 

� NL%=0 �finish:� Z$<>"Y" �
V%=�:U%=0:DOCK=20
�0,30);SEA1$;
(J%=L%+3:K%=M%+2
2*FX15,0
<
� NS%=� �
F�newscreen:DOCKS=0:NS%=�:�
P:
Z��finish
d�28,0,31,39,3:�:*FX15,0
n�9,12)"G A M E   O V E R"
x:�0,25)"Do you want to play again (Y/N)":�28,0,31,39,0
�G� S%>H% �0,17)"You got the high score : well done!!":H%=S%:!&80=H%
�S%=-1:Z$=�:� Z$<>"N" �
�*FX4
��22,6:*FX11,40
��
�:
���bonuscount
�(B%=I%-�:B%=B% � 10:� B%<0 B%=0:� � �
�:
�-��addbonus:S%=S%+B%:� II%=S%-B% � S% � 10
�&�14-�(�(II%)),0);II%:�0,-15,3,1:�
�!�14-�(�(II%)),0);S%:�noise:�
�:
��lessenfuelbyone
P%=F%-1
2� F%=-1 F%=FI%:�losealife:�dispfuel(10):BBB%=�
"�21,1)"0000"
,�25-�(�(F%)),1);F%;
6�
@:
J&��dispfuel(oldfuel%):�21,1)"0000"
T2� II%=oldfuel% � F% � 10:�25-�(�(II%)),1);II%
^�0,-15,3,3:�:�
h:
r��waitabit
|� F%<11 AN%=�:�
�F%=F%-10
��21,1)"0000"
��25-�(�(F%)),1);F%
�	AN%=�
��
�:
�!��score:� II%=S%-SC% � S% � 2
�(�14-�(�(II%)),0);II%:�0,-15,3,1:�:�
�:
���noise
�� II%=1 � 6
��1,-15,5,3
��1,-15,20,3
�
*FX15,1
�=0:� � �>90
&�
0:
:��crash
D� II%=-15 � 0
N�0,II%,3+�(3),5
X�
b�
l:
v
��inst
��12)"LUNAR ESCAPE"''
�+�''"Guide your shutle down through the"
�*�"asteroids to the launch pads below."
�)�"Collect the waiting people and fly"
� �"back to the mother ship."'
�.�"Your shuttle has only a limited ammount"
�.�"of fuel, so watch for it running out."''
��11;"Z      - move LEFT"
��11;"X      - move RIGHT"
��11;"RETURN - SLOW DOWN"'
� �11;"SPACE  - RELEASE FROM"
��20;"MOTHER SHIP"
��20;"OR TAKE OFF"

�28,0,24,39,0

�

:

 ��setchars

*�23,1,0;0;0;0;

4'�23,255,24,60,189,255,102,60,66,129

>*�23,232,96,232,232,232,250,250,254,255

H$�23,233,6,23,23,23,95,95,127,255

R+�23,234,255,255,255,255,255,255,255,255

\�23,238,255,255,0,0,0,0,0,0

f'�23,242,153,90,60,231,231,60,90,153

p)�23,254,78,255,255,252,124,127,127,58

z)�23,253,144,146,210,218,223,255,255,0

��23,243,1,3,3,7,7,3,3,1

�,�23,244,128,192,192,224,224,192,192,128 

�$�23,245,61,255,255,195,129,0,0,0

�#�23,247,0,3,7,31,63,126,124,248

��23,248,129,126,0,0,0,0,0,0

�'�23,249,0,192,224,248,252,126,62,31

��

�:

�	� � �

�'� �=0 � �finish � �:�" at line ";� 

�*FX4

�	*FX12

��23;11,255;0;0;0
�
�

00000000  0d 00 3c 05 3a 0d 00 64  0e ee 20 85 20 e5 20 8d  |..<.:..d.. . . .|
00000010  64 54 4d 0d 00 6e 12 eb  36 3a ef 31 39 2c 30 2c  |dTM..n..6:.19,0,|
00000020  34 2c 30 3b 30 0d 00 78  09 f2 69 6e 73 74 0d 00  |4,0;0..x..inst..|
00000030  82 0d f2 73 65 74 63 68  61 72 73 0d 00 8c 0b 2a  |...setchars....*|
00000040  46 58 34 2c 31 20 0d 00  96 0d 49 49 25 3d b3 28  |FX4,1 ....II%=.(|
00000050  2d 91 29 0d 00 a0 16 e7  20 53 25 3c 3e 2d 31 20  |-.)..... S%<>-1 |
00000060  21 26 38 30 3d 31 30 30  30 0d 00 aa 1a f1 27 27  |!&80=1000.....''|
00000070  22 53 6b 69 6c 6c 20 6c  65 76 65 6c 20 28 31 2f  |"Skill level (1/|
00000080  32 29 22 0d 00 b4 1c f5  3a 5a 24 3d be 3a fd 20  |2)".....:Z$=.:. |
00000090  5a 24 3d 22 31 22 20 84  20 5a 24 3d 22 32 22 0d  |Z$="1" . Z$="2".|
000000a0  00 be 25 e7 20 5a 24 3d  22 31 22 20 47 25 3d a3  |..%. Z$="1" G%=.|
000000b0  3a 41 54 25 3d 35 20 8b  20 47 25 3d b9 3a 41 54  |:AT%=5 . G%=.:AT|
000000c0  25 3d 31 30 0d 00 c8 20  eb 34 3a ef 32 33 2c 31  |%=10... .4:.23,1|
000000d0  2c 30 3b 30 3b 30 3b 30  3b 3a ef 31 39 2c 30 2c  |,0;0;0;0;:.19,0,|
000000e0  34 3b 30 3b 0d 00 d2 0b  2a 46 58 31 35 2c 30 0d  |4;0;....*FX15,0.|
000000f0  00 dc 4d 44 4f 43 4b 3d  32 30 3a 4c 4c 25 3d 31  |..MDOCK=20:LL%=1|
00000100  3a 53 25 3d 30 3a 42 25  3d 31 37 30 30 30 3a 49  |:S%=0:B%=17000:I|
00000110  25 3d 42 25 3a 46 49 25  3d 34 30 30 3a 46 25 3d  |%=B%:FI%=400:F%=|
00000120  46 49 25 3a 58 25 3d 30  3a 4e 53 25 3d a3 3a 55  |FI%:X%=0:NS%=.:U|
00000130  25 3d 30 3a 46 4c 41 47  31 25 3d a3 0d 00 e6 38  |%=0:FLAG1%=....8|
00000140  4e 4c 25 3d 33 3a 49 4e  25 3d a3 3a 41 4e 25 3d  |NL%=3:IN%=.:AN%=|
00000150  a3 3a 44 25 3d 30 3a 46  54 25 3d b9 3a 41 25 3d  |.:D%=0:FT%=.:A%=|
00000160  39 38 31 34 33 34 32 33  36 3a 53 50 24 3d bd 28  |981434236:SP$=.(|
00000170  33 32 29 20 0d 00 f0 43  57 25 3d 31 36 37 37 37  |32) ...CW%=16777|
00000180  31 38 33 3a 59 25 3d 2d  36 36 38 32 32 3a 59 31  |183:Y%=-66822:Y1|
00000190  25 3d 2d 38 34 32 39 37  32 39 3a 48 25 3d 21 26  |%=-8429729:H%=!&|
000001a0  38 30 3a 56 25 3d a3 3a  42 42 42 25 3d 56 25 3a  |80:V%=.:BBB%=V%:|
000001b0  2a 46 58 31 31 2c 30 0d  00 fa 2b db 3a de 20 58  |*FX11,0...+.:. X|
000001c0  25 28 34 31 29 2c 59 25  28 34 31 29 2c 49 58 25  |%(41),Y%(41),IX%|
000001d0  28 34 31 29 2c 49 59 25  28 34 31 29 3a 4e 47 25  |(41),IY%(41):NG%|
000001e0  3d 30 0d 01 04 27 4c 24  3d c4 34 30 2c bd 32 33  |=0...'L$=.40,.23|
000001f0  38 29 3a f1 8a 30 2c 30  29 22 53 63 6f 72 65 20  |8):..0,0)"Score |
00000200  3a 20 30 30 30 30 30 30  22 0d 01 0e 29 f1 8a 30  |: 000000"...)..0|
00000210  2c 32 29 3b 4c 24 3b 3a  f1 8a 32 30 2c 30 29 22  |,2);L$;:..20,0)"|
00000220  20 48 69 73 63 6f 72 65  20 3a 20 30 30 30 30 30  | Hiscore : 00000|
00000230  30 22 0d 01 18 40 f1 8a  30 2c 31 29 22 4c 61 6e  |0"...@..0,1)"Lan|
00000240  64 65 72 73 20 3a 20 30  30 22 3b 8a 31 34 2c 31  |ders : 00";.14,1|
00000250  29 22 46 75 65 6c 20 3a  20 30 30 30 30 22 3b 8a  |)"Fuel : 0000";.|
00000260  32 39 2c 31 29 22 4c 65  76 65 6c 20 3a 20 30 30  |29,1)"Level : 00|
00000270  22 3b 0d 01 22 35 f1 8a  30 2c 33 31 29 22 4c 61  |";.."5..0,31)"La|
00000280  6e 64 69 6e 67 53 3a 20  54 68 69 73 20 6c 65 76  |ndingS: This lev|
00000290  65 6c 20 30 30 20 3a 20  54 68 69 73 20 67 61 6d  |el 00 : This gam|
000002a0  65 20 30 30 30 22 3b 0d  01 2c 13 53 45 41 31 24  |e 000";..,.SEA1$|
000002b0  3d c4 34 30 2c bd 32 35  33 29 0d 01 36 40 53 54  |=.40,.253)..6@ST|
000002c0  4d 50 24 3d c4 32 2c 53  50 24 29 2b bd 32 34 37  |MP$=.2,SP$)+.247|
000002d0  2b bd 32 34 35 2b bd 32  34 39 2b c4 32 2c 53 50  |+.245+.249+.2,SP|
000002e0  24 29 2b bd 31 30 2b c4  37 2c bd 38 29 2b 53 50  |$)+.10+.7,.8)+SP|
000002f0  24 2b bd 32 34 33 2b 53  50 24 0d 01 40 3a 53 54  |$+.243+SP$..@:ST|
00000300  4d 32 24 3d 53 50 24 2b  bd 32 34 34 2b 53 50 24  |M2$=SP$+.244+SP$|
00000310  2b bd 31 30 2b c4 37 2c  bd 38 29 2b c4 32 2c 53  |+.10+.7,.8)+.2,S|
00000320  50 24 29 2b c4 33 2c bd  32 34 38 29 2b 53 50 24  |P$)+.3,.248)+SP$|
00000330  2b 53 50 24 0d 01 4a 19  53 48 49 50 24 3d 53 54  |+SP$..J.SHIP$=ST|
00000340  4d 50 24 2b 53 50 24 2b  53 54 4d 32 24 0d 01 54  |MP$+SP$+STM2$..T|
00000350  1a 51 24 3d 53 48 49 50  24 3a 41 4e 59 24 3d c4  |.Q$=SHIP$:ANY$=.|
00000360  33 2c bd 32 33 32 29 0d  01 5e 11 57 48 54 24 3d  |3,.232)..^.WHT$=|
00000370  c4 32 2c bd 32 33 34 29  0d 01 68 2d e3 20 49 49  |.2,.234)..h-. II|
00000380  25 3d 30 b8 48 25 88 28  48 25 81 31 30 30 29 3a  |%=0.H%.(H%.100):|
00000390  f1 8a 33 37 2d a9 28 c3  28 49 49 25 29 29 2c 30  |..37-.(.(II%)),0|
000003a0  29 3b 49 49 25 0d 01 72  10 d4 30 2c 2d 31 35 2c  |);II%..r..0,-15,|
000003b0  33 2c 31 3a ed 0d 01 7c  18 20 f1 8a 33 37 2d a9  |3,1:...|. ..37-.|
000003c0  28 c3 28 48 25 29 29 2c  30 29 3b 48 25 0d 01 86  |(.(H%)),0);H%...|
000003d0  10 d4 31 2c 2d 31 35 2c  31 35 30 2c 34 0d 01 90  |..1,-15,150,4...|
000003e0  28 e3 20 49 49 25 3d 31  20 b8 20 33 3a f1 8a 31  |(. II%=1 . 3:..1|
000003f0  31 2c 31 29 3b 49 49 25  3a d4 30 2c 2d 31 35 2c  |1,1);II%:.0,-15,|
00000400  33 2c 33 3a ed 0d 01 9a  37 e3 49 49 25 3d 32 30  |3,3:....7.II%=20|
00000410  20 b8 20 46 25 20 88 32  30 3a f1 8a 32 35 2d a9  | . F% .20:..25-.|
00000420  28 c3 28 49 49 25 29 29  2c 31 29 3b 49 49 25 3a  |(.(II%)),1);II%:|
00000430  d4 30 2c 2d 31 35 2c 37  2c 31 3a ed 0d 01 a4 1b  |.0,-15,7,1:.....|
00000440  d4 31 2c 2d 31 35 2c 31  35 30 2c 38 3a f1 8a 33  |.1,-15,150,8:..3|
00000450  38 2c 31 29 22 31 22 0d  01 ae 1f 4d 41 4e 53 48  |8,1)"1"....MANSH|
00000460  49 50 24 3d 53 54 4d 50  24 2b bd 28 32 35 35 29  |IP$=STMP$+.(255)|
00000470  2b 53 54 4d 32 24 0d 01  b8 21 45 4e 54 45 52 24  |+STM2$...!ENTER$|
00000480  3d 53 54 4d 50 24 2b 53  50 24 2b 53 50 24 2b bd  |=STMP$+SP$+SP$+.|
00000490  32 34 34 2b 53 50 24 0d  01 c2 12 f1 8a 30 2c 33  |244+SP$......0,3|
000004a0  30 29 3b 53 45 41 31 24  3b 0d 01 cc 2e f1 8a 30  |0);SEA1$;......0|
000004b0  2c 32 39 29 3b 3a ef 32  33 34 2c 32 33 34 2c 32  |,29);:.234,234,2|
000004c0  33 32 3a f1 89 28 33 34  29 3b 3a ef 32 33 33 2c  |32:..(34);:.233,|
000004d0  32 33 34 2c 32 33 34 0d  01 d6 26 f1 8a 30 2c 32  |234,234...&..0,2|
000004e0  38 29 3b 3a ef 32 33 34  2c 32 33 32 3a f1 89 28  |8);:.234,232:..(|
000004f0  33 36 29 3b 3a ef 32 33  33 2c 32 33 34 0d 01 e0  |36);:.233,234...|
00000500  1d 20 f1 8a 30 2c 32 37  29 3b bd 32 33 32 3b 89  |. ..0,27);.232;.|
00000510  28 33 38 29 3b bd 32 33  33 3b 0d 01 ea 25 f1 8a  |(38);.233;...%..|
00000520  39 2c 32 39 29 3b 57 48  54 24 3b 89 28 38 29 3b  |9,29);WHT$;.(8);|
00000530  57 48 54 24 3b 89 28 38  29 3b 57 48 54 24 3b 0d  |WHT$;.(8);WHT$;.|
00000540  01 f4 34 f1 8a 38 2c 32  38 29 3b 57 48 54 24 3b  |..4..8,28);WHT$;|
00000550  57 48 54 24 3b 89 28 36  29 3b 57 48 54 24 3b 57  |WHT$;.(6);WHT$;W|
00000560  48 54 24 3b 89 28 36 29  3b 57 48 54 24 3b 57 48  |HT$;.(6);WHT$;WH|
00000570  54 24 3b 0d 01 fe 1c f1  8a 31 37 2c 32 37 29 3b  |T$;......17,27);|
00000580  57 48 54 24 3b 57 48 54  24 3b 57 48 54 24 3b 0d  |WHT$;WHT$;WHT$;.|
00000590  02 08 12 e7 20 49 4e 25  3d b9 20 e5 20 8d 44 44  |.... IN%=. . .DD|
000005a0  47 0d 02 12 0e 4c 25 3d  b3 28 32 35 29 2b 35 0d  |G....L%=.(25)+5.|
000005b0  02 1c 08 4d 25 3d 33 0d  02 26 12 f1 8a 4c 25 2c  |...M%=3..&...L%,|
000005c0  4d 25 29 3b 53 48 49 50  24 0d 02 30 1a 4e 25 3d  |M%);SHIP$..0.N%=|
000005d0  b3 28 33 29 2d 32 3a e7  20 4e 25 3d 30 20 e5 8d  |.(3)-2:. N%=0 ..|
000005e0  54 70 42 0d 02 3a 0d 4a  25 3d 30 3a 4b 25 3d 30  |TpB..:.J%=0:K%=0|
000005f0  0d 02 44 07 d1 3d 30 0d  02 4e 0e f2 73 65 74 61  |..D..=0..N..seta|
00000600  73 74 72 6f 73 0d 02 58  0f f2 64 69 73 70 61 73  |stros..X..dispas|
00000610  74 72 6f 73 0d 02 62 0a  42 42 42 25 3d a3 0d 02  |tros..b.BBB%=...|
00000620  6c 05 f5 0d 02 76 0e f2  6d 61 6e 69 6e 73 68 69  |l....v..maninshi|
00000630  70 0d 02 80 0f f2 6d 6f  76 65 61 73 74 72 6f 73  |p.....moveastros|
00000640  0d 02 8a 0a fd 20 56 25  3d b9 0d 02 94 05 f5 0d  |..... V%=.......|
00000650  02 9e 0c f2 6d 6f 76 65  6d 61 6e 0d 02 a8 0f f2  |....moveman.....|
00000660  6d 6f 76 65 61 73 74 72  6f 73 0d 02 b2 0d f2 6d  |moveastros.....m|
00000670  6f 76 65 73 68 69 70 0d  02 bc 11 fd 20 42 42 42  |oveship..... BBB|
00000680  25 20 84 20 55 25 3d 31  0d 02 c6 19 e7 20 42 42  |% . U%=1..... BB|
00000690  42 25 20 8c 20 42 42 42  25 3d a3 3a e5 8d 44 6c  |B% . BBB%=.:..Dl|
000006a0  42 0d 02 d0 08 58 25 3d  30 0d 02 da 05 f5 0d 02  |B....X%=0.......|
000006b0  e4 0f f2 6d 6f 76 65 61  73 74 72 6f 73 0d 02 ee  |...moveastros...|
000006c0  0d f2 6d 6f 76 65 73 68  69 70 0d 02 f8 0c fd 20  |..moveship..... |
000006d0  a6 28 2d 39 39 29 0d 03  02 16 f1 8a 51 57 25 2c  |.(-99)......QW%,|
000006e0  4b 25 2b 31 29 c4 36 2c  53 50 24 29 0d 03 0c 05  |K%+1).6,SP$)....|
000006f0  f5 0d 03 16 0f f2 6d 6f  76 65 61 73 74 72 6f 73  |......moveastros|
00000700  0d 03 20 0b f2 75 70 77  65 67 6f 0d 03 2a 0d f2  |.. ..upwego..*..|
00000710  6d 6f 76 65 73 68 69 70  0d 03 34 29 fd 20 42 42  |moveship..4). BB|
00000720  42 25 20 84 20 44 4f 43  4b 3c 36 3a e7 20 42 42  |B% . DOCK<6:. BB|
00000730  42 25 20 8c 20 42 42 42  25 3d a3 3a e5 8d 44 6c  |B% . BBB%=.:..Dl|
00000740  42 0d 03 3e 11 f2 68 61  76 65 77 65 64 6f 63 6b  |B..>..havewedock|
00000750  65 64 0d 03 48 0b 2a 46  58 31 35 2c 30 0d 03 52  |ed..H.*FX15,0..R|
00000760  0a e5 20 8d 44 6c 42 0d  03 5c 05 e0 0d 03 66 05  |.. .DlB..\....f.|
00000770  3a 0d 03 e8 36 dd f2 6d  6f 76 65 73 68 69 70 3a  |:...6..moveship:|
00000780  54 25 3d 4c 25 2b 4e 25  3a e7 20 54 25 3d 30 20  |T%=L%+N%:. T%=0 |
00000790  84 20 54 25 3d 33 35 20  4e 25 3d 2d 4e 25 3a 54  |. T%=35 N%=-N%:T|
000007a0  25 3d 4c 25 2b 4e 25 0d  03 f2 1a 4c 25 3d 54 25  |%=L%+N%....L%=T%|
000007b0  3a f1 8a 4c 25 2c 4d 25  29 3b 53 48 49 50 24 3a  |:..L%,M%);SHIP$:|
000007c0  e1 0d 03 fc 05 3a 0d 04  06 37 dd f2 6d 61 6e 69  |.....:...7..mani|
000007d0  6e 73 68 69 70 3a 54 25  3d 4c 25 2b 4e 25 3a e7  |nship:T%=L%+N%:.|
000007e0  20 54 25 3d 30 20 84 20  54 25 3d 33 35 20 4e 25  | T%=0 . T%=35 N%|
000007f0  3d 2d 4e 25 3a 54 25 3d  4c 25 2b 4e 25 0d 04 10  |=-N%:T%=L%+N%...|
00000800  29 4c 25 3d 54 25 3a f1  8a 4c 25 2c 4d 25 29 3b  |)L%=T%:..L%,M%);|
00000810  4d 41 4e 53 48 49 50 24  3a e7 20 bf 28 32 29 3c  |MANSHIP$:. .(2)<|
00000820  3e 53 50 24 20 e1 0d 04  1a 28 56 25 3d b9 3a f1  |>SP$ ....(V%=.:.|
00000830  8a 4c 25 2c 4d 25 2b 32  29 3b 89 31 30 3a f1 8a  |.L%,M%+2);.10:..|
00000840  4c 25 2b 33 2c 4d 25 2b  31 29 3b 53 50 24 0d 04  |L%+3,M%+1);SP$..|
00000850  24 20 d4 31 2c 2d 31 35  2c 32 32 30 2c 31 3a 4a  |$ .1,-15,220,1:J|
00000860  25 3d 4c 25 2b 33 3a 4b  25 3d 4d 25 2b 33 0d 04  |%=L%+3:K%=M%+3..|
00000870  2e 29 f1 8a 4a 25 2c 4b  25 29 3b bd 28 32 35 35  |.)..J%,K%);.(255|
00000880  29 3a f1 8a 4c 25 2c 4d  25 29 3b 53 48 49 50 24  |):..L%,M%);SHIP$|
00000890  3a 58 25 3d 30 3a e1 0d  04 38 05 3a 0d 04 42 0f  |:X%=0:...8.:..B.|
000008a0  dd f2 73 65 74 61 73 74  72 6f 73 0d 04 4c 12 e3  |..setastros..L..|
000008b0  20 51 25 3d 30 20 b8 20  41 54 25 2b 31 0d 04 56  | Q%=0 . AT%+1..V|
000008c0  12 58 25 28 51 25 29 3d  b3 28 33 37 29 2b 31 0d  |.X%(Q%)=.(37)+1.|
000008d0  04 60 12 59 25 28 51 25  29 3d b3 28 31 38 29 2b  |.`.Y%(Q%)=.(18)+|
000008e0  36 0d 04 6a 25 49 58 25  28 51 25 29 3d b3 28 35  |6..j%IX%(Q%)=.(5|
000008f0  29 2d 33 3a e7 20 49 58  25 28 51 25 29 3d 30 20  |)-3:. IX%(Q%)=0 |
00000900  e5 20 8d 44 6a 44 0d 04  74 11 e7 20 47 25 3d a3  |. .DjD..t.. G%=.|
00000910  20 e5 20 8d 74 48 44 0d  04 7e 12 49 59 25 28 51  | . .tHD..~.IY%(Q|
00000920  25 29 3d b3 28 33 29 2d  32 0d 04 88 16 e7 20 51  |%)=.(3)-2..... Q|
00000930  25 83 35 3d 30 20 f2 6d  6f 76 65 73 68 69 70 0d  |%.5=0 .moveship.|
00000940  04 92 05 ed 0d 04 9c 05  e1 0d 04 a6 05 3a 0d 04  |.............:..|
00000950  b0 10 dd f2 6d 6f 76 65  61 73 74 72 6f 73 0d 04  |....moveastros..|
00000960  ba 1f e7 20 41 54 25 3c  31 30 20 42 47 25 3d 31  |... AT%<10 BG%=1|
00000970  3a 45 25 3d 41 54 25 3a  e5 8d 64 58 44 0d 04 c4  |:E%=AT%:..dXD...|
00000980  26 e7 20 46 54 25 3d b9  20 42 47 25 3d 31 3a 45  |&. FT%=. BG%=1:E|
00000990  25 3d 41 54 25 81 32 3a  46 54 25 3d a3 3a e5 8d  |%=AT%.2:FT%=.:..|
000009a0  64 58 44 0d 04 ce 1c 42  47 25 3d 41 54 25 20 81  |dXD....BG%=AT% .|
000009b0  20 32 3a 45 25 3d 41 54  25 3a 46 54 25 3d b9 0d  | 2:E%=AT%:FT%=..|
000009c0  04 d8 10 e3 20 5a 25 3d  42 47 25 b8 20 45 25 0d  |.... Z%=BG%. E%.|
000009d0  04 e2 15 54 25 3d 58 25  28 5a 25 29 2b 49 58 25  |...T%=X%(Z%)+IX%|
000009e0  28 5a 25 29 0d 04 ec 15  52 25 3d 59 25 28 5a 25  |(Z%)....R%=Y%(Z%|
000009f0  29 2b 49 59 25 28 5a 25  29 0d 04 f6 35 e7 20 54  |)+IY%(Z%)...5. T|
00000a00  25 3c 30 20 f1 8a 58 25  28 5a 25 29 2c 59 25 28  |%<0 ..X%(Z%),Y%(|
00000a10  5a 25 29 29 53 50 24 3b  3a 54 25 3d 33 39 3a 58  |Z%))SP$;:T%=39:X|
00000a20  25 28 5a 25 29 3d 54 25  3a e5 8d 54 4a 45 0d 05  |%(Z%)=T%:..TJE..|
00000a30  00 2f e7 20 54 25 3e 33  39 20 f1 8a 58 25 28 5a  |./. T%>39 ..X%(Z|
00000a40  25 29 2c 59 25 28 5a 25  29 29 53 50 24 3b 3a 54  |%),Y%(Z%))SP$;:T|
00000a50  25 3d 30 3a 58 25 28 5a  25 29 3d 54 25 0d 05 0a  |%=0:X%(Z%)=T%...|
00000a60  34 e7 20 52 25 3c 37 20  f1 8a 58 25 28 5a 25 29  |4. R%<7 ..X%(Z%)|
00000a70  2c 59 25 28 5a 25 29 29  53 50 24 3a 52 25 3d 32  |,Y%(Z%))SP$:R%=2|
00000a80  34 3a 59 25 28 5a 25 29  3d 52 25 3a e5 8d 54 72  |4:Y%(Z%)=R%:..Tr|
00000a90  45 0d 05 14 34 e7 20 52  25 3e 32 34 20 f1 8a 58  |E...4. R%>24 ..X|
00000aa0  25 28 5a 25 29 2c 59 25  28 5a 25 29 29 53 50 24  |%(Z%),Y%(Z%))SP$|
00000ab0  3a 52 25 3d 37 3a 59 25  28 5a 25 29 3d 52 25 3a  |:R%=7:Y%(Z%)=R%:|
00000ac0  e5 8d 54 72 45 0d 05 1e  18 f1 8a 58 25 28 5a 25  |..TrE......X%(Z%|
00000ad0  29 2c 59 25 28 5a 25 29  29 53 50 24 3b 0d 05 28  |),Y%(Z%))SP$;..(|
00000ae0  19 59 25 28 5a 25 29 3d  59 25 28 5a 25 29 2b 49  |.Y%(Z%)=Y%(Z%)+I|
00000af0  59 25 28 5a 25 29 0d 05  32 1a 20 58 25 28 5a 25  |Y%(Z%)..2. X%(Z%|
00000b00  29 3d 58 25 28 5a 25 29  2b 49 58 25 28 5a 25 29  |)=X%(Z%)+IX%(Z%)|
00000b10  0d 05 3c 1c f1 8a 58 25  28 5a 25 29 2c 59 25 28  |..<...X%(Z%),Y%(|
00000b20  5a 25 29 29 3b bd 28 32  35 34 29 3b 0d 05 46 05  |Z%));.(254);..F.|
00000b30  ed 0d 05 50 22 50 25 3d  21 28 28 4b 25 2a 34 30  |...P"P%=!((K%*40|
00000b40  2a 38 29 2b 34 2b 26 35  38 30 30 2b 28 4a 25 2a  |*8)+4+&5800+(J%*|
00000b50  38 29 29 0d 05 5a 1d e7  20 50 25 3d 41 25 20 42  |8))..Z.. P%=A% B|
00000b60  42 42 25 3d b9 3a f2 6c  6f 73 65 61 6c 69 66 65  |BB%=.:.losealife|
00000b70  0d 05 64 05 e1 0d 05 6e  05 3a 0d 05 78 10 dd f2  |..d....n.:..x...|
00000b80  64 69 73 70 61 73 74 72  6f 73 0d 05 82 30 e3 20  |dispastros...0. |
00000b90  49 49 25 3d 31 20 b8 20  41 54 25 3a f1 8a 58 25  |II%=1 . AT%:..X%|
00000ba0  28 49 49 25 29 2c 59 25  28 49 49 25 29 29 3b bd  |(II%),Y%(II%));.|
00000bb0  28 32 35 34 29 3b 3a ed  3a e1 0d 05 8c 05 3a 0d  |(254);:.:.....:.|
00000bc0  05 96 0c dd f2 75 70 77  65 67 6f 0d 05 a0 08 58  |.....upwego....X|
00000bd0  25 3d 30 0d 05 aa 12 e7  20 a6 28 2d 39 38 29 20  |%=0..... .(-98) |
00000be0  58 25 3d 2d 31 0d 05 b4  11 e7 20 a6 28 2d 36 37  |X%=-1..... .(-67|
00000bf0  29 20 58 25 3d 31 0d 05  be 16 e7 20 a6 28 2d 37  |) X%=1..... .(-7|
00000c00  34 29 20 f2 77 61 69 74  61 62 69 74 0d 05 c8 13  |4) .waitabit....|
00000c10  e7 20 41 4e 25 3d b9 20  41 4e 25 3d a3 3a e1 0d  |. AN%=. AN%=.:..|
00000c20  05 d2 1d f2 6c 65 73 73  65 6e 66 75 65 6c 62 79  |....lessenfuelby|
00000c30  6f 6e 65 3a 4a 25 3d 4a  25 2b 58 25 0d 05 dc 10  |one:J%=J%+X%....|
00000c40  e7 20 42 42 42 25 3d b9  20 8c 20 e1 0d 05 e6 14  |. BBB%=. . .....|
00000c50  e7 20 4a 25 3c 30 20 4a  25 3d 30 3a 58 25 3d 30  |. J%<0 J%=0:X%=0|
00000c60  0d 05 f0 16 e7 20 4a 25  3e 33 39 20 4a 25 3d 33  |..... J%>39 J%=3|
00000c70  39 3a 58 25 3d 30 0d 05  fa 13 e7 20 4b 25 3c 36  |9:X%=0..... K%<6|
00000c80  20 44 4f 43 4b 3d 35 3a  e1 0d 06 04 27 e7 20 4b  | DOCK=5:....'. K|
00000c90  25 3c 39 20 53 48 49 50  24 3d 45 4e 54 45 52 24  |%<9 SHIP$=ENTER$|
00000ca0  3a f1 8a 4c 25 2c 4d 25  2b 32 29 3b 89 28 37 29  |:..L%,M%+2);.(7)|
00000cb0  0d 06 0e 0b 4b 25 3d 4b  25 2d 31 0d 06 18 15 f1  |....K%=K%-1.....|
00000cc0  8a 4a 25 2d 58 25 2c 4b  25 2b 31 29 53 50 24 3b  |.J%-X%,K%+1)SP$;|
00000cd0  0d 06 22 22 50 25 3d 21  28 28 4b 25 2a 34 30 2a  |..""P%=!((K%*40*|
00000ce0  38 29 2b 34 2b 26 35 38  30 30 2b 28 4a 25 2a 38  |8)+4+&5800+(J%*8|
00000cf0  29 29 0d 06 2c 14 f1 8a  4a 25 2c 4b 25 29 3b bd  |))..,...J%,K%);.|
00000d00  28 32 35 35 29 3b 0d 06  36 0c e7 20 50 25 3d 30  |(255);..6.. P%=0|
00000d10  20 e1 0d 06 40 17 f2 6c  6f 73 65 61 6c 69 66 65  | ...@..losealife|
00000d20  3a 42 42 42 25 3d b9 3a  e1 0d 06 4a 05 3a 0d 06  |:BBB%=.:...J.:..|
00000d30  54 12 dd f2 68 61 76 65  77 65 64 6f 63 6b 65 64  |T...havewedocked|
00000d40  0d 06 5e 10 f1 8a 4c 25  2c 4d 25 2b 32 29 89 36  |..^...L%,M%+2).6|
00000d50  0d 06 68 26 e7 20 4a 25  3c 4c 25 2b 32 20 84 20  |..h&. J%<L%+2 . |
00000d60  4a 25 3e 4c 25 2b 34 20  59 45 53 3d a3 20 8b 20  |J%>L%+4 YES=. . |
00000d70  59 45 53 20 3d b9 0d 06  72 28 e7 20 59 45 53 3d  |YES =...r(. YES=|
00000d80  a3 20 4a 25 3d 4a 25 2d  58 25 3a f2 6c 6f 73 65  |. J%=J%-X%:.lose|
00000d90  61 6c 69 66 65 3a 42 42  42 25 3d b9 3a e1 0d 06  |alife:BBB%=.:...|
00000da0  7c 15 f1 8a 4c 25 2c 4d  25 29 3b 4d 41 4e 53 48  ||...L%,M%);MANSH|
00000db0  49 50 24 0d 06 86 0c 53  48 49 50 24 3d 51 24 0d  |IP$....SHIP$=Q$.|
00000dc0  06 90 13 4a 25 3d 4c 25  2b 33 3a 4b 25 3d 4d 25  |...J%=L%+3:K%=M%|
00000dd0  2b 31 0d 06 9a 33 e7 20  4e 53 25 3d a3 20 6f 6c  |+1...3. NS%=. ol|
00000de0  64 66 75 65 6c 25 3d 46  25 3a 46 25 3d 46 25 2b  |dfuel%=F%:F%=F%+|
00000df0  31 30 30 3a e7 20 46 25  3e 46 49 25 20 8c 20 46  |100:. F%>FI% . F|
00000e00  25 3d 46 49 25 0d 06 a4  1f e7 20 4e 53 25 3d a3  |%=FI%..... NS%=.|
00000e10  20 f2 64 69 73 70 66 75  65 6c 28 6f 6c 64 66 75  | .dispfuel(oldfu|
00000e20  65 6c 25 29 0d 06 ae 1c  e7 20 4e 53 25 3d b9 20  |el%)..... NS%=. |
00000e30  4e 53 25 3d a3 3a f2 6e  65 77 73 63 72 65 65 6e  |NS%=.:.newscreen|
00000e40  0d 06 b8 15 56 25 3d a3  3a 55 25 3d 30 3a 44 4f  |....V%=.:U%=0:DO|
00000e50  43 4b 3d 32 30 0d 06 c2  0c 53 48 49 50 24 3d 51  |CK=20....SHIP$=Q|
00000e60  24 0d 06 cc 05 e1 0d 06  d6 05 3a 0d 06 e0 0f dd  |$.........:.....|
00000e70  f2 6e 65 77 73 63 72 65  65 6e 0d 06 ea 09 49 4e  |.newscreen....IN|
00000e80  25 3d b9 0d 06 f4 08 44  25 3d 30 0d 06 fe 10 f2  |%=.....D%=0.....|
00000e90  63 6c 65 61 72 61 73 74  72 6f 73 0d 07 08 34 f1  |clearastros...4.|
00000ea0  8a 30 2c 31 32 29 22 57  65 6c 6c 20 64 6f 6e 65  |.0,12)"Well done|
00000eb0  20 2e 2e 2e 20 79 6f 75  20 63 6c 65 61 72 65 64  | ... you cleared|
00000ec0  20 74 68 65 20 73 63 72  65 65 6e 20 21 21 22 0d  | the screen !!".|
00000ed0  07 12 11 f2 6e 6f 69 73  65 3a f2 6e 6f 69 73 65  |....noise:.noise|
00000ee0  0d 07 1c 0f f2 62 6f 6e  75 73 63 6f 75 6e 74 0d  |.....bonuscount.|
00000ef0  07 26 3b f1 8a 30 2c 31  36 29 22 59 6f 75 20 68  |.&;..0,16)"You h|
00000f00  61 76 65 20 61 20 62 6f  6e 75 73 20 6f 66 20 22  |ave a bonus of "|
00000f10  3a f1 8a 32 30 2c 31 36  29 3b 42 25 3b 3a f1 22  |:..20,16);B%;:."|
00000f20  20 70 6f 69 6e 74 73 20  21 22 0d 07 30 11 f1 8a  | points !"..0...|
00000f30  32 31 2c 33 31 29 22 30  30 22 3b 0d 07 3a 0a e5  |21,31)"00";..:..|
00000f40  20 8d 64 42 41 0d 07 44  0d f2 61 64 64 62 6f 6e  | .dBA..D..addbon|
00000f50  75 73 0d 07 4e 0d 41 54  25 3d 41 54 25 2b 35 0d  |us..N.AT%=AT%+5.|
00000f60  07 58 19 e7 20 41 54 25  20 83 20 32 3d 31 20 41  |.X.. AT% . 2=1 A|
00000f70  54 25 3d 41 54 25 2b 35  0d 07 62 13 e7 20 41 54  |T%=AT%+5..b.. AT|
00000f80  25 3e 34 30 20 41 54 25  3d 34 30 0d 07 6c 1c e7  |%>40 AT%=40..l..|
00000f90  20 41 54 25 3e 39 20 42  47 25 3d 30 3a 45 25 3d  | AT%>9 BG%=0:E%=|
00000fa0  41 54 25 20 81 20 32 0d  07 76 0e f2 73 65 74 61  |AT% . 2..v..seta|
00000fb0  73 74 72 6f 73 0d 07 80  10 f2 63 6c 65 61 72 61  |stros.....cleara|
00000fc0  73 74 72 6f 73 0d 07 8a  0f f2 64 69 73 70 61 73  |stros.....dispas|
00000fd0  74 72 6f 73 0d 07 94 0d  4c 4c 25 3d 4c 4c 25 2b  |tros....LL%=LL%+|
00000fe0  31 0d 07 9e 33 e7 20 4c  4c 25 3d 33 20 4e 4c 25  |1...3. LL%=3 NL%|
00000ff0  3d 4e 4c 25 2b 31 3a f1  8a 31 32 2d a9 28 c3 28  |=NL%+1:..12-.(.(|
00001000  4e 4c 25 29 29 2c 31 29  3b 4e 4c 25 3a f2 6e 6f  |NL%)),1);NL%:.no|
00001010  69 73 65 20 0d 07 a8 11  d4 31 2c 2d 31 35 2c 31  |ise .....1,-15,1|
00001020  35 30 2c 32 36 0d 07 b2  19 f1 8a 33 39 2d a9 28  |50,26......39-.(|
00001030  c3 28 4c 4c 25 29 29 2c  31 29 3b 4c 4c 25 0d 07  |.(LL%)),1);LL%..|
00001040  bc 18 49 25 3d 49 25 2b  33 30 30 30 3a 42 25 3d  |..I%=I%+3000:B%=|
00001050  49 25 3a d1 3d 30 0d 07  c6 0f 46 49 25 3d 46 49  |I%:.=0....FI%=FI|
00001060  25 2b 31 30 30 0d 07 d0  16 6f 6c 64 66 75 65 6c  |%+100....oldfuel|
00001070  25 3d 46 25 3a 46 25 3d  46 49 25 0d 07 da 17 f2  |%=F%:F%=FI%.....|
00001080  64 69 73 70 66 75 65 6c  28 6f 6c 64 66 75 65 6c  |dispfuel(oldfuel|
00001090  25 29 0d 07 e4 0e 49 25  3d 49 25 2b 34 30 30 30  |%)....I%=I%+4000|
000010a0  0d 07 ee 09 42 25 3d 49  25 0d 07 f8 08 44 25 3d  |....B%=I%....D%=|
000010b0  30 0d 08 02 05 e1 0d 08  0c 05 3a 0d 08 16 31 dd  |0.........:...1.|
000010c0  f2 63 6c 65 61 72 61 73  74 72 6f 73 3a ef 32 38  |.clearastros:.28|
000010d0  2c 30 2c 32 34 2c 33 39  2c 37 3a db 3a ef 32 38  |,0,24,39,7:.:.28|
000010e0  2c 30 2c 33 31 2c 33 39  2c 30 3a e1 0d 08 20 05  |,0,31,39,0:... .|
000010f0  3a 0d 08 2a 13 dd f2 64  6f 63 6b 69 6e 67 73 73  |:..*...dockingss|
00001100  6f 66 61 72 0d 08 34 2a  f1 8a 33 39 2d a9 28 c3  |ofar..4*..39-.(.|
00001110  28 54 44 25 29 29 2c 33  31 29 3b 54 44 25 3b 3a  |(TD%)),31);TD%;:|
00001120  f1 8a 32 32 2c 33 31 29  3b 44 25 3b 3a e1 0d 08  |..22,31);D%;:...|
00001130  3e 05 3a 0d 08 48 0d dd  f2 6d 6f 76 65 6d 61 6e  |>.:..H...moveman|
00001140  0d 08 52 08 58 25 3d 30  0d 08 5c 12 e7 20 a6 28  |..R.X%=0..\.. .(|
00001150  2d 39 38 29 20 58 25 3d  2d 31 0d 08 66 11 e7 20  |-98) X%=-1..f.. |
00001160  a6 28 2d 36 37 29 20 58  25 3d 31 0d 08 70 16 e7  |.(-67) X%=1..p..|
00001170  20 a6 28 2d 37 34 29 20  f2 77 61 69 74 61 62 69  | .(-74) .waitabi|
00001180  74 0d 08 7a 13 e7 20 41  4e 25 3d b9 20 41 4e 25  |t..z.. AN%=. AN%|
00001190  3d a3 3a e1 0d 08 84 1d  4a 25 3d 4a 25 2b 58 25  |=.:.....J%=J%+X%|
000011a0  3a f2 6c 65 73 73 65 6e  66 75 65 6c 62 79 6f 6e  |:.lessenfuelbyon|
000011b0  65 0d 08 8e 10 e7 20 42  42 42 25 3d b9 20 8c 20  |e..... BBB%=. . |
000011c0  e1 0d 08 98 14 e7 20 4a  25 3c 30 20 4a 25 3d 30  |...... J%<0 J%=0|
000011d0  3a 58 25 3d 30 0d 08 a2  16 e7 20 4a 25 3e 33 39  |:X%=0..... J%>39|
000011e0  20 4a 25 3d 33 39 3a 58  25 3d 30 0d 08 ac 0b 4b  | J%=39:X%=0....K|
000011f0  25 3d 4b 25 2b 31 0d 08  b6 15 f1 8a 4a 25 2d 58  |%=K%+1......J%-X|
00001200  25 2c 4b 25 2d 31 29 53  50 24 3b 0d 08 c0 22 50  |%,K%-1)SP$;..."P|
00001210  25 3d 21 28 28 4b 25 2a  34 30 2a 38 29 2b 34 2b  |%=!((K%*40*8)+4+|
00001220  26 35 38 30 30 2b 28 4a  25 2a 38 29 29 0d 08 ca  |&5800+(J%*8))...|
00001230  14 f1 8a 4a 25 2c 4b 25  29 3b bd 28 32 35 35 29  |...J%,K%);.(255)|
00001240  3b 0d 08 d4 0c e7 20 50  25 3d 30 20 e1 0d 08 de  |;..... P%=0 ....|
00001250  27 e7 20 50 25 3d 41 25  20 84 20 50 25 3d 57 25  |'. P%=A% . P%=W%|
00001260  20 f2 6c 6f 73 65 61 6c  69 66 65 3a 42 42 42 25  | .losealife:BBB%|
00001270  3d b9 3a e1 0d 08 e8 3a  e7 20 50 25 3d 59 25 20  |=.:....:. P%=Y% |
00001280  84 20 50 25 3d 59 31 25  20 46 4c 41 47 31 25 3d  |. P%=Y1% FLAG1%=|
00001290  32 2b 28 50 25 3d 59 25  29 3a f2 6c 6f 73 65 61  |2+(P%=Y%):.losea|
000012a0  6c 69 66 65 3a 42 42 42  25 3d b9 3a e1 20 0d 08  |life:BBB%=.:. ..|
000012b0  f2 0a f2 62 6c 6f 63 6b  0d 08 fc 08 55 25 3d 31  |...block....U%=1|
000012c0  0d 09 06 05 e1 0d 09 10  05 3a 0d 09 1a 0b dd f2  |.........:......|
000012d0  62 6c 6f 63 6b 0d 09 24  11 e7 20 4a 25 3c 31 33  |block..$.. J%<13|
000012e0  20 51 57 25 3d 36 0d 09  2e 1a e7 20 4a 25 3c 32  | QW%=6..... J%<2|
000012f0  36 20 80 20 4a 25 3e 31  32 20 51 57 25 3d 31 37  |6 . J%>12 QW%=17|
00001300  0d 09 38 1a e7 20 4a 25  3c 33 39 20 80 20 4a 25  |..8.. J%<39 . J%|
00001310  3e 32 35 20 51 57 25 3d  32 36 0d 09 42 15 f1 8a  |>25 QW%=26..B...|
00001320  4a 25 2c 4b 25 2d 31 29  3b bd 28 32 35 35 29 0d  |J%,K%-1);.(255).|
00001330  09 4c 12 f1 8a 4a 25 2c  4b 25 29 3b bd 32 33 34  |.L...J%,K%);.234|
00001340  3b 0d 09 56 2e e7 20 4b  25 3d 32 38 20 53 43 25  |;..V.. K%=28 SC%|
00001350  3d 31 30 30 20 8b 20 e7  20 4b 25 3d 32 39 20 53  |=100 . . K%=29 S|
00001360  43 25 3d 32 30 30 20 8b  20 53 43 25 3d 35 30 0d  |C%=200 . SC%=50.|
00001370  09 60 0b 44 25 3d 44 25  2b 31 0d 09 6a 10 e7 20  |.`.D%=D%+1..j.. |
00001380  44 25 3d 37 20 4e 53 25  3d b9 0d 09 74 0d 54 44  |D%=7 NS%=...t.TD|
00001390  25 3d 54 44 25 2b 31 0d  09 7e 12 f2 64 6f 63 6b  |%=TD%+1..~..dock|
000013a0  69 6e 67 73 73 6f 66 61  72 0d 09 88 0a f2 6e 6f  |ingssofar.....no|
000013b0  69 73 65 0d 09 92 14 53  25 3d 53 25 2b 53 43 25  |ise....S%=S%+SC%|
000013c0  3a f2 73 63 6f 72 65 0d  09 9c 0b 4b 25 3d 4b 25  |:.score....K%=K%|
000013d0  2d 31 0d 09 a6 05 e1 0d  09 b0 05 3a 0d 09 ba 0f  |-1.........:....|
000013e0  dd f2 6c 6f 73 65 61 6c  69 66 65 0d 09 c4 0c 53  |..losealife....S|
000013f0  48 49 50 24 3d 51 24 0d  09 ce 0d 4e 4c 25 3d 4e  |HIP$=Q$....NL%=N|
00001400  4c 25 2d 31 0d 09 d8 19  f1 8a 31 32 2d a9 28 c3  |L%-1......12-.(.|
00001410  28 4e 4c 25 29 29 2c 31  29 3b 4e 4c 25 0d 09 e2  |(NL%)),1);NL%...|
00001420  11 f1 8a 4a 25 2c 4b 25  29 3b bd 32 34 32 0d 09  |...J%,K%);.242..|
00001430  ec 0a f2 63 72 61 73 68  0d 09 f6 0f f1 8a 4a 25  |...crash......J%|
00001440  2c 4b 25 29 53 50 24 0d  0a 00 30 e7 20 46 4c 41  |,K%)SP$...0. FLA|
00001450  47 31 25 20 8c 20 f1 8a  4a 25 2c 4b 25 29 3b bd  |G1% . ..J%,K%);.|
00001460  28 32 33 31 2b 46 4c 41  47 31 25 29 3b 3a 46 4c  |(231+FLAG1%);:FL|
00001470  41 47 31 25 3d a3 20 0d  0a 0a 1f e7 20 4e 4c 25  |AG1%=. ..... NL%|
00001480  3d 30 20 f2 66 69 6e 69  73 68 3a e7 20 5a 24 3c  |=0 .finish:. Z$<|
00001490  3e 22 59 22 20 e0 0d 0a  14 15 56 25 3d a3 3a 55  |>"Y" .....V%=.:U|
000014a0  25 3d 30 3a 44 4f 43 4b  3d 32 30 0d 0a 1e 12 f1  |%=0:DOCK=20.....|
000014b0  8a 30 2c 33 30 29 3b 53  45 41 31 24 3b 0d 0a 28  |.0,30);SEA1$;..(|
000014c0  13 4a 25 3d 4c 25 2b 33  3a 4b 25 3d 4d 25 2b 32  |.J%=L%+3:K%=M%+2|
000014d0  0d 0a 32 0b 2a 46 58 31  35 2c 30 0d 0a 3c 0d e7  |..2.*FX15,0..<..|
000014e0  20 4e 53 25 3d a3 20 e1  0d 0a 46 1e f2 6e 65 77  | NS%=. ...F..new|
000014f0  73 63 72 65 65 6e 3a 44  4f 43 4b 53 3d 30 3a 4e  |screen:DOCKS=0:N|
00001500  53 25 3d a3 3a e1 0d 0a  50 05 3a 0d 0a 5a 0c dd  |S%=.:...P.:..Z..|
00001510  f2 66 69 6e 69 73 68 0d  0a 64 1b ef 32 38 2c 30  |.finish..d..28,0|
00001520  2c 33 31 2c 33 39 2c 33  3a db 3a 2a 46 58 31 35  |,31,39,3:.:*FX15|
00001530  2c 30 0d 0a 6e 1e f1 8a  39 2c 31 32 29 22 47 20  |,0..n...9,12)"G |
00001540  41 20 4d 20 45 20 20 20  4f 20 56 20 45 20 52 22  |A M E   O V E R"|
00001550  0d 0a 78 3a f1 8a 30 2c  32 35 29 22 44 6f 20 79  |..x:..0,25)"Do y|
00001560  6f 75 20 77 61 6e 74 20  74 6f 20 70 6c 61 79 20  |ou want to play |
00001570  61 67 61 69 6e 20 28 59  2f 4e 29 22 3a ef 32 38  |again (Y/N)":.28|
00001580  2c 30 2c 33 31 2c 33 39  2c 30 0d 0a 82 47 e7 20  |,0,31,39,0...G. |
00001590  53 25 3e 48 25 20 f1 8a  30 2c 31 37 29 22 59 6f  |S%>H% ..0,17)"Yo|
000015a0  75 20 67 6f 74 20 74 68  65 20 68 69 67 68 20 73  |u got the high s|
000015b0  63 6f 72 65 20 3a 20 77  65 6c 6c 20 64 6f 6e 65  |core : well done|
000015c0  21 21 22 3a 48 25 3d 53  25 3a 21 26 38 30 3d 48  |!!":H%=S%:!&80=H|
000015d0  25 0d 0a 8c 1a 53 25 3d  2d 31 3a 5a 24 3d be 3a  |%....S%=-1:Z$=.:|
000015e0  e7 20 5a 24 3c 3e 22 4e  22 20 f9 0d 0a 96 08 2a  |. Z$<>"N" .....*|
000015f0  46 58 34 0d 0a a0 12 ef  32 32 2c 36 3a 2a 46 58  |FX4.....22,6:*FX|
00001600  31 31 2c 34 30 0d 0a aa  05 e1 0d 0a b4 05 3a 0d  |11,40.........:.|
00001610  0a be 10 dd f2 62 6f 6e  75 73 63 6f 75 6e 74 0d  |.....bonuscount.|
00001620  0a c8 28 42 25 3d 49 25  2d 91 3a 42 25 3d 42 25  |..(B%=I%-.:B%=B%|
00001630  20 81 20 31 30 3a e7 20  42 25 3c 30 20 42 25 3d  | . 10:. B%<0 B%=|
00001640  30 3a e1 20 8b 20 e1 0d  0a d2 05 3a 0d 0a dc 2d  |0:. . .....:...-|
00001650  dd f2 61 64 64 62 6f 6e  75 73 3a 53 25 3d 53 25  |..addbonus:S%=S%|
00001660  2b 42 25 3a e3 20 49 49  25 3d 53 25 2d 42 25 20  |+B%:. II%=S%-B% |
00001670  b8 20 53 25 20 88 20 31  30 0d 0a e6 26 f1 8a 31  |. S% . 10...&..1|
00001680  34 2d a9 28 c3 28 49 49  25 29 29 2c 30 29 3b 49  |4-.(.(II%)),0);I|
00001690  49 25 3a d4 30 2c 2d 31  35 2c 33 2c 31 3a ed 0d  |I%:.0,-15,3,1:..|
000016a0  0a f0 21 f1 8a 31 34 2d  a9 28 c3 28 49 49 25 29  |..!..14-.(.(II%)|
000016b0  29 2c 30 29 3b 53 25 3a  f2 6e 6f 69 73 65 3a e1  |),0);S%:.noise:.|
000016c0  0d 0a fa 05 3a 0d 0b 04  15 dd f2 6c 65 73 73 65  |....:......lesse|
000016d0  6e 66 75 65 6c 62 79 6f  6e 65 0d 0b 0e 0b 50 25  |nfuelbyone....P%|
000016e0  3d 46 25 2d 31 0d 0b 18  32 e7 20 46 25 3d 2d 31  |=F%-1...2. F%=-1|
000016f0  20 46 25 3d 46 49 25 3a  f2 6c 6f 73 65 61 6c 69  | F%=FI%:.loseali|
00001700  66 65 3a f2 64 69 73 70  66 75 65 6c 28 31 30 29  |fe:.dispfuel(10)|
00001710  3a 42 42 42 25 3d b9 0d  0b 22 11 f1 8a 32 31 2c  |:BBB%=..."...21,|
00001720  31 29 22 30 30 30 30 22  0d 0b 2c 18 f1 8a 32 35  |1)"0000"..,...25|
00001730  2d a9 28 c3 28 46 25 29  29 2c 31 29 3b 46 25 3b  |-.(.(F%)),1);F%;|
00001740  0d 0b 36 05 e1 0d 0b 40  05 3a 0d 0b 4a 26 dd f2  |..6....@.:..J&..|
00001750  64 69 73 70 66 75 65 6c  28 6f 6c 64 66 75 65 6c  |dispfuel(oldfuel|
00001760  25 29 3a f1 8a 32 31 2c  31 29 22 30 30 30 30 22  |%):..21,1)"0000"|
00001770  0d 0b 54 32 e3 20 49 49  25 3d 6f 6c 64 66 75 65  |..T2. II%=oldfue|
00001780  6c 25 20 b8 20 46 25 20  88 20 31 30 3a f1 8a 32  |l% . F% . 10:..2|
00001790  35 2d a9 28 c3 28 49 49  25 29 29 2c 31 29 3b 49  |5-.(.(II%)),1);I|
000017a0  49 25 0d 0b 5e 12 d4 30  2c 2d 31 35 2c 33 2c 33  |I%..^..0,-15,3,3|
000017b0  3a ed 3a e1 0d 0b 68 05  3a 0d 0b 72 0e dd f2 77  |:.:...h.:..r...w|
000017c0  61 69 74 61 62 69 74 0d  0b 7c 13 e7 20 46 25 3c  |aitabit..|.. F%<|
000017d0  31 31 20 41 4e 25 3d a3  3a e1 0d 0b 86 0c 46 25  |11 AN%=.:.....F%|
000017e0  3d 46 25 2d 31 30 0d 0b  90 11 f1 8a 32 31 2c 31  |=F%-10......21,1|
000017f0  29 22 30 30 30 30 22 0d  0b 9a 17 f1 8a 32 35 2d  |)"0000"......25-|
00001800  a9 28 c3 28 46 25 29 29  2c 31 29 3b 46 25 0d 0b  |.(.(F%)),1);F%..|
00001810  a4 09 41 4e 25 3d b9 0d  0b ae 05 e1 0d 0b b8 05  |..AN%=..........|
00001820  3a 0d 0b c2 21 dd f2 73  63 6f 72 65 3a e3 20 49  |:...!..score:. I|
00001830  49 25 3d 53 25 2d 53 43  25 20 b8 20 53 25 20 88  |I%=S%-SC% . S% .|
00001840  20 32 0d 0b cc 28 f1 8a  31 34 2d a9 28 c3 28 49  | 2...(..14-.(.(I|
00001850  49 25 29 29 2c 30 29 3b  49 49 25 3a d4 30 2c 2d  |I%)),0);II%:.0,-|
00001860  31 35 2c 33 2c 31 3a ed  3a e1 0d 0b d6 05 3a 0d  |15,3,1:.:.....:.|
00001870  0b e0 0b dd f2 6e 6f 69  73 65 0d 0b ea 0f e3 20  |.....noise..... |
00001880  49 49 25 3d 31 20 b8 20  36 0d 0b f4 0e d4 31 2c  |II%=1 . 6.....1,|
00001890  2d 31 35 2c 35 2c 33 0d  0b fe 0f d4 31 2c 2d 31  |-15,5,3.....1,-1|
000018a0  35 2c 32 30 2c 33 0d 0c  08 05 ed 0d 0c 12 0b 2a  |5,20,3.........*|
000018b0  46 58 31 35 2c 31 0d 0c  1c 10 d1 3d 30 3a f5 20  |FX15,1.....=0:. |
000018c0  fd 20 91 3e 39 30 0d 0c  26 05 e1 0d 0c 30 05 3a  |. .>90..&....0.:|
000018d0  0d 0c 3a 0b dd f2 63 72  61 73 68 0d 0c 44 11 e3  |..:...crash..D..|
000018e0  20 49 49 25 3d 2d 31 35  20 b8 20 30 0d 0c 4e 13  | II%=-15 . 0..N.|
000018f0  d4 30 2c 49 49 25 2c 33  2b b3 28 33 29 2c 35 0d  |.0,II%,3+.(3),5.|
00001900  0c 58 05 ed 0d 0c 62 05  e1 0d 0c 6c 05 3a 0d 0c  |.X....b....l.:..|
00001910  76 0a dd f2 69 6e 73 74  0d 0c 80 19 f1 8a 31 32  |v...inst......12|
00001920  29 22 4c 55 4e 41 52 20  45 53 43 41 50 45 22 27  |)"LUNAR ESCAPE"'|
00001930  27 0d 0c 8a 2b f1 27 27  22 47 75 69 64 65 20 79  |'...+.''"Guide y|
00001940  6f 75 72 20 73 68 75 74  6c 65 20 64 6f 77 6e 20  |our shutle down |
00001950  74 68 72 6f 75 67 68 20  74 68 65 22 0d 0c 94 2a  |through the"...*|
00001960  f1 22 61 73 74 65 72 6f  69 64 73 20 74 6f 20 74  |."asteroids to t|
00001970  68 65 20 6c 61 75 6e 63  68 20 70 61 64 73 20 62  |he launch pads b|
00001980  65 6c 6f 77 2e 22 0d 0c  9e 29 f1 22 43 6f 6c 6c  |elow."...)."Coll|
00001990  65 63 74 20 74 68 65 20  77 61 69 74 69 6e 67 20  |ect the waiting |
000019a0  70 65 6f 70 6c 65 20 61  6e 64 20 66 6c 79 22 0d  |people and fly".|
000019b0  0c a8 20 f1 22 62 61 63  6b 20 74 6f 20 74 68 65  |.. ."back to the|
000019c0  20 6d 6f 74 68 65 72 20  73 68 69 70 2e 22 27 0d  | mother ship."'.|
000019d0  0c b2 2e f1 22 59 6f 75  72 20 73 68 75 74 74 6c  |...."Your shuttl|
000019e0  65 20 68 61 73 20 6f 6e  6c 79 20 61 20 6c 69 6d  |e has only a lim|
000019f0  69 74 65 64 20 61 6d 6d  6f 75 6e 74 22 0d 0c bc  |ited ammount"...|
00001a00  2e f1 22 6f 66 20 66 75  65 6c 2c 20 73 6f 20 77  |.."of fuel, so w|
00001a10  61 74 63 68 20 66 6f 72  20 69 74 20 72 75 6e 6e  |atch for it runn|
00001a20  69 6e 67 20 6f 75 74 2e  22 27 27 0d 0c c6 1d f1  |ing out."''.....|
00001a30  89 31 31 3b 22 5a 20 20  20 20 20 20 2d 20 6d 6f  |.11;"Z      - mo|
00001a40  76 65 20 4c 45 46 54 22  0d 0c d0 1e f1 89 31 31  |ve LEFT"......11|
00001a50  3b 22 58 20 20 20 20 20  20 2d 20 6d 6f 76 65 20  |;"X      - move |
00001a60  52 49 47 48 54 22 0d 0c  da 1e f1 89 31 31 3b 22  |RIGHT"......11;"|
00001a70  52 45 54 55 52 4e 20 2d  20 53 4c 4f 57 20 44 4f  |RETURN - SLOW DO|
00001a80  57 4e 22 27 0d 0c e4 20  f1 89 31 31 3b 22 53 50  |WN"'... ..11;"SP|
00001a90  41 43 45 20 20 2d 20 52  45 4c 45 41 53 45 20 46  |ACE  - RELEASE F|
00001aa0  52 4f 4d 22 0d 0c ee 16  f1 89 32 30 3b 22 4d 4f  |ROM"......20;"MO|
00001ab0  54 48 45 52 20 53 48 49  50 22 0d 0c f8 16 f1 89  |THER SHIP"......|
00001ac0  32 30 3b 22 4f 52 20 54  41 4b 45 20 4f 46 46 22  |20;"OR TAKE OFF"|
00001ad0  0d 0d 02 11 ef 32 38 2c  30 2c 32 34 2c 33 39 2c  |.....28,0,24,39,|
00001ae0  30 0d 0d 0c 05 e1 0d 0d  16 05 3a 0d 0d 20 0e dd  |0.........:.. ..|
00001af0  f2 73 65 74 63 68 61 72  73 0d 0d 2a 12 ef 32 33  |.setchars..*..23|
00001b00  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 0d 34 27 ef  |,1,0;0;0;0;..4'.|
00001b10  32 33 2c 32 35 35 2c 32  34 2c 36 30 2c 31 38 39  |23,255,24,60,189|
00001b20  2c 32 35 35 2c 31 30 32  2c 36 30 2c 36 36 2c 31  |,255,102,60,66,1|
00001b30  32 39 0d 0d 3e 2a ef 32  33 2c 32 33 32 2c 39 36  |29..>*.23,232,96|
00001b40  2c 32 33 32 2c 32 33 32  2c 32 33 32 2c 32 35 30  |,232,232,232,250|
00001b50  2c 32 35 30 2c 32 35 34  2c 32 35 35 0d 0d 48 24  |,250,254,255..H$|
00001b60  ef 32 33 2c 32 33 33 2c  36 2c 32 33 2c 32 33 2c  |.23,233,6,23,23,|
00001b70  32 33 2c 39 35 2c 39 35  2c 31 32 37 2c 32 35 35  |23,95,95,127,255|
00001b80  0d 0d 52 2b ef 32 33 2c  32 33 34 2c 32 35 35 2c  |..R+.23,234,255,|
00001b90  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00001ba0  32 35 35 2c 32 35 35 2c  32 35 35 0d 0d 5c 1f ef  |255,255,255..\..|
00001bb0  32 33 2c 32 33 38 2c 32  35 35 2c 32 35 35 2c 30  |23,238,255,255,0|
00001bc0  2c 30 2c 30 2c 30 2c 30  2c 30 0d 0d 66 27 ef 32  |,0,0,0,0,0..f'.2|
00001bd0  33 2c 32 34 32 2c 31 35  33 2c 39 30 2c 36 30 2c  |3,242,153,90,60,|
00001be0  32 33 31 2c 32 33 31 2c  36 30 2c 39 30 2c 31 35  |231,231,60,90,15|
00001bf0  33 0d 0d 70 29 ef 32 33  2c 32 35 34 2c 37 38 2c  |3..p).23,254,78,|
00001c00  32 35 35 2c 32 35 35 2c  32 35 32 2c 31 32 34 2c  |255,255,252,124,|
00001c10  31 32 37 2c 31 32 37 2c  35 38 0d 0d 7a 29 ef 32  |127,127,58..z).2|
00001c20  33 2c 32 35 33 2c 31 34  34 2c 31 34 36 2c 32 31  |3,253,144,146,21|
00001c30  30 2c 32 31 38 2c 32 32  33 2c 32 35 35 2c 32 35  |0,218,223,255,25|
00001c40  35 2c 30 0d 0d 84 1b ef  32 33 2c 32 34 33 2c 31  |5,0.....23,243,1|
00001c50  2c 33 2c 33 2c 37 2c 37  2c 33 2c 33 2c 31 0d 0d  |,3,3,7,7,3,3,1..|
00001c60  8e 2c ef 32 33 2c 32 34  34 2c 31 32 38 2c 31 39  |.,.23,244,128,19|
00001c70  32 2c 31 39 32 2c 32 32  34 2c 32 32 34 2c 31 39  |2,192,224,224,19|
00001c80  32 2c 31 39 32 2c 31 32  38 20 0d 0d 98 24 ef 32  |2,192,128 ...$.2|
00001c90  33 2c 32 34 35 2c 36 31  2c 32 35 35 2c 32 35 35  |3,245,61,255,255|
00001ca0  2c 31 39 35 2c 31 32 39  2c 30 2c 30 2c 30 0d 0d  |,195,129,0,0,0..|
00001cb0  a2 23 ef 32 33 2c 32 34  37 2c 30 2c 33 2c 37 2c  |.#.23,247,0,3,7,|
00001cc0  33 31 2c 36 33 2c 31 32  36 2c 31 32 34 2c 32 34  |31,63,126,124,24|
00001cd0  38 0d 0d ac 1f ef 32 33  2c 32 34 38 2c 31 32 39  |8.....23,248,129|
00001ce0  2c 31 32 36 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,126,0,0,0,0,0,0|
00001cf0  0d 0d b6 27 ef 32 33 2c  32 34 39 2c 30 2c 31 39  |...'.23,249,0,19|
00001d00  32 2c 32 32 34 2c 32 34  38 2c 32 35 32 2c 31 32  |2,224,248,252,12|
00001d10  36 2c 36 32 2c 33 31 0d  0d c0 05 e1 0d 0d ca 05  |6,62,31.........|
00001d20  3a 0d 0d d4 09 ee 20 85  20 87 0d 0d de 27 e7 20  |:..... . ....'. |
00001d30  9f 3d 30 20 8c 20 f2 66  69 6e 69 73 68 20 8b 20  |.=0 . .finish . |
00001d40  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
00001d50  20 0d 0d e8 08 2a 46 58  34 0d 0d f2 09 2a 46 58  | ....*FX4....*FX|
00001d60  31 32 0d 0d fc 14 ef 32  33 3b 31 31 2c 32 35 35  |12.....23;11,255|
00001d70  3b 30 3b 30 3b 30 0d 0e  06 05 e0 0d ff           |;0;0;0.......|
00001d7d

GAMES2/MOONESCAPE.m0

GAMES2/MOONESCAPE.m1

GAMES2/MOONESCAPE.m2

GAMES2/MOONESCAPE.m4

GAMES2/MOONESCAPE.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .