27-01-89/Moon2

Home » CEEFAX disks » telesoftware12.adl » 27-01-89/Moon2

27-01-89/Moon2

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 » CEEFAX disks » telesoftware12.adl
Filename:	27-01-89/Moon2
Read OK:	✔
File size:	147F bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10REM Moon Patrol - Listing II
   20REM by Andrew Cook
   30REM (c) The Micro User
   40MODE2:VDU23,1,0;0;0;0;:*fx4,1
   50DIMscore$(10),score(10)
   60FORO%=1TO10:score$(O%)="The Patrol":score(O%)=(11-O%)*1000:NEXT
   70VDU19,15,1;0;:ON ERROR GOTO 2260
   80diff=1:LIVES=2:S%=0
   90PROCdemo:VDU26
  100IF diff>24 diff=1
  110PROCinit:PROCheadings 
  120?&7E=(PAT MOD 256)+5
  130?&7F=wino% MOD 256
  140PROCobjects
  150PROCcave
  160PROCacid(RND(3))
  170FORO=&B00TO wino% STEP 4
  180PROCdp(O,&40)
  190O?2=RND(7):O?3=RND(10)+1:NEXT
  200FORO=&B80TO PAT STEP5
  210?O=0:O?1=RND(5):O?2=RND(4)-1
  220PROCdp(O+3,&60):NEXT
  230FORO=&84 TO num STEP4
  240PROCdp(O,&20)
  250?O=?&70:O?1=?&71:O?2=(O-&7C)/4
  260O?3=0:NEXT
  270FORO=1TO15:PROCdp(&70,&80):NEXT
  280PROCdp(&70,&A0):PROCdp(&80,0)
  290!&80=!&70
  300FORO=1TO8:SOUND1,-10,100,1:CALLM%:FORI=1TO500:NEXT:NEXT
  310SOUND3,2,0,1
  320!&70=!&80
  330IFINKEY-90 REPEATUNTILINKEY-106
  340IFINKEY-98 CALLM%:CALLL%:CALLM%:GOTO360
  350IFINKEY-67 CALLM%:CALLR%:CALLM%
  360IFINKEY-105 CALLM%:CALLD%:CALLM%:GOTO380
  370IFINKEY-73 CALLM%:CALLU%:CALLM%
  380!&80=!&70
  390CALLH%
  400IF?&74=11 PROCairbonus:diff=diff+1:GOTO100
  410IF?&74<>13 GOTO470
  420?&72=&80:CALLM%:SOUND1,1,200,1:GEM=GEM+1:COLOUR2:PRINTTAB(18,1);GEM;
  430IFGEM=15 SOUND2,1,230,1:S%=S%+100*diff
  440S%=S%+100:PROCscore(S%)
  450IF GEM=10 SOUND2,1,100,1:PROCdp(&70,&C0)
  460GOTO490
  470IF?&75=&3D OR ?&75=5 GOTO880
  480IF?&74=14 ?&72=&A0:CALLM%:PROCair
  490Z%=(?&80+256*?&81)-&3000
  500FORO=&84TO num STEP4
  510O?3=O?3+1:IFO?3<O?2 GOTO660
  520O?3=0
  530IFO?2=0 GOTO660
  540!&70=!O
  550?&72=&20:?&73=&A
  560V%=(?&70+256*?&71)-&3000
  570CALLM%
  580IF V%MOD640<Z%MOD640CALLR%:GOTO600
  590IF V%MOD640>Z%MOD640CALLL%
  600IF V%DIV640<Z%DIV640CALLD%:GOTO620
  610IF V%DIV640>Z%DIV640CALLU%
  620CALLM%
  630CALLH%
  640IF?&75=&3D CALLM%:O?2=0:SOUND2,3,1,10:S%=S%+500:PROCscore(S%)
  650?O=?&70:O?1=?&71
  660NEXT
  670PNM=PNM+5:IF PNM=PAT PNM=&B80
  680IFPNM?1<>0 GOTO770
  690PNM?1=RND(5):?PNM=0:PNM?2=RND(4)-1
  700IF PNM?2=0 Z=RND(55)*16+&7840
  710IF PNM?2=1 Z=&3A40+RND(25)*640
  720IF PNM?2=2 Z=RND(55)*16+&3A40
  730IF PNM?2=3 Z=&3C40+RND(25)*640
  740PNM?3=Z MOD 256:PNM?4=Z DIV 256
  750!&70=PNM!3:?&72=&60:?&73=&A
  760CALLM%
  770CALLW%
  780CALLT%
  790PROCcol
  800O%=O%-8:IFO%<200 GOTO880:ELSEGCOL0,0:MOVEO%,1016:DRAWO%,1004
  810FORO=1TO DELAY:NEXT
  820GOTO320
  830DEFPROCcol
  840C=C+1:IFC>7 C=0
  850VDU19,12,C;0;19,11,(C+1)MOD8;0;19,10,(C+2)MOD8;0;19,9,(C+3)MOD8;0;
  860ENDPROC
  870REM ***** DEATH *****
  880FORO=1TO500:NEXT:FORO=100TO0STEP-10:SOUND3,3,O,2:NEXT:FORO=1TO1000:NEXT
  890LIVES=LIVES-1
  900IFLIVES<0 PROChiscore:GOTO80
  910COLOUR3:PRINTTAB(15,1);LIVES;
  920FORO=1TO2000:GOTO100
  930:
  940DEFPROCdp(O,CHAR)
  950?O=RND(16)*16:O?1=RND(&30)+&40
  960?&70=?O:?&71=O?1:?&72=CHAR:?&73=&A 
  970CALLM%:CALLH%
  980IF ?&75<>0 CALLM%:GOTO950
  990ENDPROC
 1000DEFPROCair
 1010GCOL0,6
 1020AIR=-8
 1030REPEAT:AIR=AIR+8:FORI=0TO32STEP8:SOUND&11,-10,(AIR+O%)/8+I,2:NEXT
 1040MOVEAIR+O%,1016:DRAWAIR+O%,1004
 1050UNTIL AIR>500 OR AIR+O%>=1268
 1060O%=O%+AIR+8
 1070ENDPROC
 1080DEFPROCacid(N)
 1090FORO=1TON:A=RND(800)+200:B=RND(700)+100
 1100F=&3E
 1110S=RND(3)
 1120FORP=-45 TO 45 STEP (S*4)
 1130?&359=F:MOVE-120/S+A+((P^2)/20)/S,B+P/S
 1140DRAW120/S+A-((P^2)/20)/S,B+P/S
 1150F=F EOR 3:NEXT:NEXT:ENDPROC
 1160DEFPROCcave
 1170COLOUR15
 1180PRINTTAB(0,2);STRING$(20,CHR$247);CHR$243;  
 1190FORO=3TO30:PRINTTAB(0,O)CHR$244;TAB(19,O)CHR$245;:NEXT
 1200PRINTTAB(0,31);STRING$(19,CHR$246);
 1210GCOL0,15:VDU5:MOVE1220,28:VDU 246,4
 1220GCOL0,7:FORO=1TOdiff
 1230MOVE O*24,0:DRAWO*24,12:NEXT
 1240ENDPROC
 1250DEFPROCinit
 1260CLS
 1270IF diff<10 DELAY=100-diff*10 ELSE DELAY=1
 1280C=1:GEM=0:O%=1276
 1290num=&80+(diff DIV 2)*4:wino%=&B00+diff*4:PAT=&B80+diff*5:PNM=&B80
 1300WX=50:WV=1226:NR=INT(diff/2):NE=diff*2
 1310ENDPROC
 1320DEFPROCobjects
 1330GCOL0,3:FORO=1TONE:A=RND(29)*32+64:B=828-RND(20)*32
 1340VDU5:MOVEA,B:PRINTCHR$248;:NEXT:VDU4
 1350COLOUR15:VDU5:FORO=1TO NR:A=RND(29)*32+64:B=828-RND(20)*32
 1360GCOL0,15:MOVEA+64,B:PRINTCHR$249:MOVEA,B-32:PRINTCHR$250;CHR$251;CHR$252:MOVEA,B-64:PRINTCHR$253;CHR$254;CHR$255
 1370MOVEA+56,B-96:DRAWA+128,B-96
 1380NEXT:VDU4:ENDPROC
 1390DEFPROCscore(S)
 1400COLOUR7:S$=STR$(S)
 1410PRINTTAB(12-LEN(S$),1);S$;
 1420ENDPROC
 1430DEFPROCairbonus
 1440SOUND3,0,0,1
 1450FORO=1TO1000:NEXT
 1460REPEAT:SOUND&11,-10,O%/8,2
 1470GCOL0,0:MOVEO%,1016:DRAWO%,1004
 1480O%=O%-8:S%=S%+diff
 1490PROCscore(S%)
 1500UNTILO%<200
 1510FORO=1TO2000:NEXT:ENDPROC
 1520DEFPROCheadings
 1530!&70=&0A003440:CALLM%
 1540!&70=&0A8034A0:CALLM%
 1550COLOUR5:PRINTTAB(0,0)"OXY";
 1560COLOUR1:PRINTTAB(0,1)"SCORE:";
 1570COLOUR7:PRINTTAB(6,1)"000000";:PROCscore(S%)
 1580COLOUR2:PRINTTAB(18,1)"0";
 1590COLOUR3:PRINTTAB(15,1);LIVES;
 1600GCOL0,6:MOVE200,1004:MOVE1268,1004:PLOT85,200,1016:PLOT85,1268,1016
 1610GCOL0,7:MOVE192,1000:DRAW1276,1000:DRAW1276,1020:DRAW192,1020:DRAW192,1000
 1620ENDPROC
 1630DEFPROCdemo
 1640VDU26
 1650PROCinit:PROCcave:PROCheadings
 1660VDU28,1,30,18,3
 1670COLOUR7:PRINTTAB(3,2)"MOON PATROL";
 1680VDU19,14,2;0;:COLOUR14
 1690FORO=1TO10:PRINTTAB(0,O+5);"000000..";score$(O);
 1700PRINTTAB(6-LEN(STR$(score(O))),O+5);score(O);:NEXT
 1710COLOUR10:PRINTTAB(0,26)"Enter level 1 to 9";
 1720TIME=0:D=1
 1730VDU19,14,D;0;:D=D+1:IFD>7 D=1
 1740PROCcol:FORO=1TO100:NEXT
 1750A=INKEY(0):IFA>48 AND A<58 diff=A-48:ENDPROC
 1760PROCsound
 1770*FX19
 1780IF TIME<750 GOTO1730
 1790CLS
 1800COLOUR7:PRINTTAB(3,2)"MOON PATROL";
 1810!&70=&0A004440:CALLM%
 1820!&70=&0A204940:CALLM%
 1830!&70=&0A404E40:CALLM%
 1840!&70=&0A605340:CALLM%
 1850!&70=&0A805840:CALLM%
 1860!&70=&0AA05D40:CALLM%
 1870!&70=&0AC06240:CALLM%
 1880COLOUR3
 1890RESTORE 1970:FORO=1TO7:READA$:PRINTTAB(5,2*O+3);A$;:NEXT
 1900COLOUR10:PRINTTAB(0,26)"Enter level 1 to 9";
 1910TIME=0
 1920FORO=1TO100:NEXT:PROCcol
 1930A=INKEY(0):IFA>48 AND A<58 diff=A-48:ENDPROC
 1940PROCsound
 1950IF TIME<750 GOTO1920
 1960CLS:GOTO1670
 1970DATA Spaceman Sid,Fuzz,Winotron,Scout Craft,Crystal,Oxygen,Space capsule
 1980DEFPROCsound
 1990IFINKEY(-82) THEN *FX210,0
 2000IFINKEY(-17) THEN *FX210,1
 2010ENDPROC
 2020DEFPROChiscore
 2030*FX200,1
 2040IF S%<score(10) ENDPROC
 2050PROCcave:VDU26,28,1,30,18,3,12
 2060COLOUR3:PRINTTAB(2,1)"YOUR SCORE OF"'
 2070COLOUR10:PRINTTAB(6,3)"000000";TAB(12-LEN(STR$(S%)),3);STR$(S%);
 2080COLOUR3:PRINTTAB(0,5)"QUALIFIES YOU FOR"''" THE HALL OF FAME"
 2090COLOUR5:PRINT'''''"PLEASE ENTER YOUR"''TAB(7)"NAME:"
 2100COLOUR132:PRINTTAB(3,20)STRING$(12," ");
 2110S$="":X=4:CHAR=60:T=0:*FX15,0
 2120COLOUR7:PRINTTAB(X,20)"<"
 2130PROCcol:T=T+1:IFT>7 T=0:CHAR=CHAR EOR 2:PRINTTAB(X,20)CHR$(CHAR);
 2140FORO=1TO100:NEXT
 2150A=INKEY(0):IFA=-1 GOTO2130
 2160IFA=127 AND LEN(S$)>0 S$=LEFT$(S$,LEN(S$)-1):PRINTTAB(X,20)" ";:X=X-1
 2170IFA=127 GOTO 2130
 2180IFA=13 GOTO2210
 2190IFLEN(S$)<10 G$=CHR$(A):S$=S$+G$:PRINTTAB(X,20)G$;:X=X+1
 2200GOTO2130
 2210O=0:REPEAT:O=O+1:UNTIL score(O)<=S%
 2220FORI=9TO O STEP-1:score(I+1)=score(I):score$(I+1)=score$(I):NEXT
 2230score(O)=S%:score$(O)=S$
 2240COLOUR128:*FX200,0
 2250ENDPROC
 2260IF ERR=17 VDU26:GOTO80
 2270MODE7:REPORT:PRINT" at line";ERL:END


� Moon Patrol - Listing II
� by Andrew Cook
� (c) The Micro User
(�2:�23,1,0;0;0;0;:*fx4,1
2�score$(10),score(10)
<=�O%=1�10:score$(O%)="The Patrol":score(O%)=(11-O%)*1000:�
F�19,15,1;0;:� � � �dTH
Pdiff=1:LIVES=2:S%=0
Z
�demo:�26
d� diff>24 diff=1
n�init:�headings 
x?&7E=(PAT � 256)+5
�?&7F=wino% � 256
��objects
�	�cave
��acid(�(3))
��O=&B00� wino% � 4
��dp(O,&40)
�O?2=�(7):O?3=�(10)+1:�
��O=&B80� PAT �5
�?O=0:O?1=�(5):O?2=�(4)-1
��dp(O+3,&60):�
��O=&84 � num �4
��dp(O,&20)
�"?O=?&70:O?1=?&71:O?2=(O-&7C)/4
O?3=0:�
�O=1�15:�dp(&70,&80):�
�dp(&70,&A0):�dp(&80,0)
"
!&80=!&70
,(�O=1�8:�1,-10,100,1:�M%:�I=1�500:�:�
6�3,2,0,1
@
!&70=!&80
J�-90 ���-106
T�-98 �M%:�L%:�M%:�DhA
^�-67 �M%:�R%:�M%
h�-105 �M%:�D%:�M%:�D|A
r�-73 �M%:�U%:�M%
|
!&80=!&70
��H%
�(�?&74=11 �airbonus:diff=diff+1:�Dd@
��?&74<>13 �dVA
�5?&72=&80:�M%:�1,1,200,1:GEM=GEM+1:�2:�18,1);GEM;
�%�GEM=15 �2,1,230,1:S%=S%+100*diff
�S%=S%+100:�score(S%)
�$� GEM=10 �2,1,100,1:�dp(&70,&C0)
�	�djA
��?&75=&3D � ?&75=5 �DpC
��?&74=14 ?&72=&A0:�M%:�air
�Z%=(?&80+256*?&81)-&3000
��O=&84� num �4
�O?3=O?3+1:�O?3<O?2 �tTB
	O?3=0
�O?2=0 �tTB
!&70=!O
&?&72=&20:?&73=&A
0V%=(?&70+256*?&71)-&3000
:�M%
D� V%�640<Z%�640�R%:�DXB
N� V%�640>Z%�640�L%
X� V%�640<Z%�640�D%:�DlB
b� V%�640>Z%�640�U%
l�M%
v�H%
�6�?&75=&3D �M%:O?2=0:�2,3,1,10:S%=S%+500:�score(S%)
�?O=?&70:O?1=?&71
��
� PNM=PNM+5:� PNM=PAT PNM=&B80
��PNM?1<>0 �TBC
�"PNM?1=�(5):?PNM=0:PNM?2=�(4)-1
�� PNM?2=0 Z=�(55)*16+&7840
�� PNM?2=1 Z=&3A40+�(25)*640
�� PNM?2=2 Z=�(55)*16+&3A40
�� PNM?2=3 Z=&3C40+�(25)*640
�PNM?3=Z � 256:PNM?4=Z � 256
�!&70=PNM!3:?&72=&60:?&73=&A
��M%
�W%
�T%
�col
 1O%=O%-8:�O%<200 �DpC:��0,0:�O%,1016:�O%,1004
*�O=1� DELAY:�
4	�D@A
>	��col
HC=C+1:�C>7 C=0
R>�19,12,C;0;19,11,(C+1)�8;0;19,10,(C+2)�8;0;19,9,(C+3)�8;0;
\�
f� ***** DEATH *****
p2�O=1�500:�:�O=100�0�-10:�3,3,O,2:�:�O=1�1000:�
zLIVES=LIVES-1
��LIVES<0 �hiscore:�DP@
��3:�15,1);LIVES;
��O=1�2000:�Dd@
�:
���dp(O,CHAR)
�?O=�(16)*16:O?1=�(&30)+&40
�'?&70=?O:?&71=O?1:?&72=CHAR:?&73=&A 
��M%:�H%
�� ?&75<>0 �M%:�tvC
��
�	��air
��0,6
�
AIR=-8
3�:AIR=AIR+8:�I=0�32�8:�&11,-10,(AIR+O%)/8+I,2:�
�AIR+O%,1016:�AIR+O%,1004
� AIR>500 � AIR+O%>=1268
$O%=O%+AIR+8
.�
8
��acid(N)
B$�O=1�N:A=�(800)+200:B=�(700)+100
L	F=&3E
V
S=�(3)
`�P=-45 � 45 � (S*4)
j(?&359=F:�-120/S+A+((P^2)/20)/S,B+P/S
t�120/S+A-((P^2)/20)/S,B+P/S
~F=F � 3:�:�:�
�
��cave
��15
��0,2);�20,�247);�243;  
�$�O=3�30:�0,O)�244;�19,O)�245;:�
��0,31);�19,�246);
��0,15:�5:�1220,28:� 246,4
��0,7:�O=1�diff
�� O*24,0:�O*24,12:�
��
�
��init
��
�)� diff<10 DELAY=100-diff*10 � DELAY=1
C=1:GEM=0:O%=1276

Cnum=&80+(diff � 2)*4:wino%=&B00+diff*4:PAT=&B80+diff*5:PNM=&B80
(WX=50:WV=1226:NR=�(diff/2):NE=diff*2
�
(
��objects
2-�0,3:�O=1�NE:A=�(29)*32+64:B=828-�(20)*32
<�5:�A,B:�248;:�:�4
F0�15:�5:�O=1� NR:A=�(29)*32+64:B=828-�(20)*32
PG�0,15:�A+64,B:�249:�A,B-32:�250;�251;�252:�A,B-64:�253;�254;�255
Z�A+56,B-96:�A+128,B-96
d
�:�4:�
n��score(S)
x�7:S$=�(S)
��12-�(S$),1);S$;
��
���airbonus
��3,0,0,1
��O=1�1000:�
��:�&11,-10,O%/8,2
��0,0:�O%,1016:�O%,1004
�O%=O%-8:S%=S%+diff
��score(S%)
��O%<200
��O=1�2000:�:�
���headings
�!&70=&0A003440:�M%
!&70=&0A8034A0:�M%
�5:�0,0)"OXY";
�1:�0,1)"SCORE:";
"!�7:�6,1)"000000";:�score(S%)
,�2:�18,1)"0";
6�3:�15,1);LIVES;
@8�0,6:�200,1004:�1268,1004:�85,200,1016:�85,1268,1016
J<�0,7:�192,1000:�1276,1000:�1276,1020:�192,1020:�192,1000
T�
^
��demo
h�26
r�init:�cave:�headings
|�28,1,30,18,3
��7:�3,2)"MOON PATROL";
��19,14,2;0;:�14
�*�O=1�10:�0,O+5);"000000..";score$(O);
�'�6-�(�(score(O))),O+5);score(O);:�
�$�10:�0,26)"Enter level 1 to 9";
��=0:D=1
��19,14,D;0;:D=D+1:�D>7 D=1
��col:�O=1�100:�
�#A=�(0):�A>48 � A<58 diff=A-48:�
�
�sound
�	*FX19
�� �<750 �dBF
��
�7:�3,2)"MOON PATROL";
!&70=&0A004440:�M%
!&70=&0A204940:�M%
&!&70=&0A404E40:�M%
0!&70=&0A605340:�M%
:!&70=&0A805840:�M%
D!&70=&0AA05D40:�M%
N!&70=&0AC06240:�M%
X�3
b&� �trG:�O=1�7:�A$:�5,2*O+3);A$;:�
l$�10:�0,26)"Enter level 1 to 9";
v�=0
��O=1�100:�:�col
�#A=�(0):�A>48 � A<58 diff=A-48:�
�
�sound
�� �<750 �t@G
��:�tFF
�I� Spaceman Sid,Fuzz,Winotron,Scout Craft,Crystal,Oxygen,Space capsule
���sound
��(-82) � *FX210,0
��(-17) � *FX210,1
��
�
��hiscore
�*FX200,1
�� S%<score(10) �
�cave:�26,28,1,30,18,3,12
�3:�2,1)"YOUR SCORE OF"'
-�10:�6,3)"000000";�12-�(�(S%)),3);�(S%);
 5�3:�0,5)"QUALIFIES YOU FOR"''" THE HALL OF FAME"
*,�5:�'''''"PLEASE ENTER YOUR"''�7)"NAME:"
4�132:�3,20)�12," ");
>!S$="":X=4:CHAR=60:T=0:*FX15,0
H�7:�X,20)"<"
R5�col:T=T+1:�T>7 T=0:CHAR=CHAR � 2:�X,20)�(CHAR);
\�O=1�100:�
fA=�(0):�A=-1 �DRH
p6�A=127 � �(S$)>0 S$=�S$,�(S$)-1):�X,20)" ";:X=X-1
z�A=127 � �DRH
��A=13 �tbH
�/�(S$)<10 G$=�(A):S$=S$+G$:�X,20)G$;:X=X+1
�	�DRH
�O=0:�:O=O+1:� score(O)<=S%
�;�I=9� O �-1:score(I+1)=score(I):score$(I+1)=score$(I):�
�score(O)=S%:score$(O)=S$
��128:*FX200,0
��
�� �=17 �26:�DP@
��7:�:�" at line";�:�
�

00000000  0d 00 0a 1e f4 20 4d 6f  6f 6e 20 50 61 74 72 6f  |..... Moon Patro|
00000010  6c 20 2d 20 4c 69 73 74  69 6e 67 20 49 49 0d 00  |l - Listing II..|
00000020  14 14 f4 20 62 79 20 41  6e 64 72 65 77 20 43 6f  |... by Andrew Co|
00000030  6f 6b 0d 00 1e 18 f4 20  28 63 29 20 54 68 65 20  |ok..... (c) The |
00000040  4d 69 63 72 6f 20 55 73  65 72 0d 00 28 1c eb 32  |Micro User..(..2|
00000050  3a ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 3a  |:.23,1,0;0;0;0;:|
00000060  2a 66 78 34 2c 31 0d 00  32 19 de 73 63 6f 72 65  |*fx4,1..2..score|
00000070  24 28 31 30 29 2c 73 63  6f 72 65 28 31 30 29 0d  |$(10),score(10).|
00000080  00 3c 3d e3 4f 25 3d 31  b8 31 30 3a 73 63 6f 72  |.<=.O%=1.10:scor|
00000090  65 24 28 4f 25 29 3d 22  54 68 65 20 50 61 74 72  |e$(O%)="The Patr|
000000a0  6f 6c 22 3a 73 63 6f 72  65 28 4f 25 29 3d 28 31  |ol":score(O%)=(1|
000000b0  31 2d 4f 25 29 2a 31 30  30 30 3a ed 0d 00 46 1a  |1-O%)*1000:...F.|
000000c0  ef 31 39 2c 31 35 2c 31  3b 30 3b 3a ee 20 85 20  |.19,15,1;0;:. . |
000000d0  e5 20 8d 64 54 48 0d 00  50 17 64 69 66 66 3d 31  |. .dTH..P.diff=1|
000000e0  3a 4c 49 56 45 53 3d 32  3a 53 25 3d 30 0d 00 5a  |:LIVES=2:S%=0..Z|
000000f0  0d f2 64 65 6d 6f 3a ef  32 36 0d 00 64 14 e7 20  |..demo:.26..d.. |
00000100  64 69 66 66 3e 32 34 20  64 69 66 66 3d 31 0d 00  |diff>24 diff=1..|
00000110  6e 14 f2 69 6e 69 74 3a  f2 68 65 61 64 69 6e 67  |n..init:.heading|
00000120  73 20 0d 00 78 16 3f 26  37 45 3d 28 50 41 54 20  |s ..x.?&7E=(PAT |
00000130  83 20 32 35 36 29 2b 35  0d 00 82 14 3f 26 37 46  |. 256)+5....?&7F|
00000140  3d 77 69 6e 6f 25 20 83  20 32 35 36 0d 00 8c 0c  |=wino% . 256....|
00000150  f2 6f 62 6a 65 63 74 73  0d 00 96 09 f2 63 61 76  |.objects.....cav|
00000160  65 0d 00 a0 0f f2 61 63  69 64 28 b3 28 33 29 29  |e.....acid(.(3))|
00000170  0d 00 aa 16 e3 4f 3d 26  42 30 30 b8 20 77 69 6e  |.....O=&B00. win|
00000180  6f 25 20 88 20 34 0d 00  b4 0e f2 64 70 28 4f 2c  |o% . 4.....dp(O,|
00000190  26 34 30 29 0d 00 be 1a  4f 3f 32 3d b3 28 37 29  |&40)....O?2=.(7)|
000001a0  3a 4f 3f 33 3d b3 28 31  30 29 2b 31 3a ed 0d 00  |:O?3=.(10)+1:...|
000001b0  c8 13 e3 4f 3d 26 42 38  30 b8 20 50 41 54 20 88  |...O=&B80. PAT .|
000001c0  35 0d 00 d2 1c 3f 4f 3d  30 3a 4f 3f 31 3d b3 28  |5....?O=0:O?1=.(|
000001d0  35 29 3a 4f 3f 32 3d b3  28 34 29 2d 31 0d 00 dc  |5):O?2=.(4)-1...|
000001e0  12 f2 64 70 28 4f 2b 33  2c 26 36 30 29 3a ed 0d  |..dp(O+3,&60):..|
000001f0  00 e6 13 e3 4f 3d 26 38  34 20 b8 20 6e 75 6d 20  |....O=&84 . num |
00000200  88 34 0d 00 f0 0e f2 64  70 28 4f 2c 26 32 30 29  |.4.....dp(O,&20)|
00000210  0d 00 fa 22 3f 4f 3d 3f  26 37 30 3a 4f 3f 31 3d  |..."?O=?&70:O?1=|
00000220  3f 26 37 31 3a 4f 3f 32  3d 28 4f 2d 26 37 43 29  |?&71:O?2=(O-&7C)|
00000230  2f 34 0d 01 04 0b 4f 3f  33 3d 30 3a ed 0d 01 0e  |/4....O?3=0:....|
00000240  1a e3 4f 3d 31 b8 31 35  3a f2 64 70 28 26 37 30  |..O=1.15:.dp(&70|
00000250  2c 26 38 30 29 3a ed 0d  01 18 1b f2 64 70 28 26  |,&80):......dp(&|
00000260  37 30 2c 26 41 30 29 3a  f2 64 70 28 26 38 30 2c  |70,&A0):.dp(&80,|
00000270  30 29 0d 01 22 0d 21 26  38 30 3d 21 26 37 30 0d  |0)..".!&80=!&70.|
00000280  01 2c 28 e3 4f 3d 31 b8  38 3a d4 31 2c 2d 31 30  |.,(.O=1.8:.1,-10|
00000290  2c 31 30 30 2c 31 3a d6  4d 25 3a e3 49 3d 31 b8  |,100,1:.M%:.I=1.|
000002a0  35 30 30 3a ed 3a ed 0d  01 36 0c d4 33 2c 32 2c  |500:.:...6..3,2,|
000002b0  30 2c 31 0d 01 40 0d 21  26 37 30 3d 21 26 38 30  |0,1..@.!&70=!&80|
000002c0  0d 01 4a 11 e7 a6 2d 39  30 20 f5 fd a6 2d 31 30  |..J...-90 ...-10|
000002d0  36 0d 01 54 1b e7 a6 2d  39 38 20 d6 4d 25 3a d6  |6..T...-98 .M%:.|
000002e0  4c 25 3a d6 4d 25 3a e5  8d 44 68 41 0d 01 5e 15  |L%:.M%:..DhA..^.|
000002f0  e7 a6 2d 36 37 20 d6 4d  25 3a d6 52 25 3a d6 4d  |..-67 .M%:.R%:.M|
00000300  25 0d 01 68 1c e7 a6 2d  31 30 35 20 d6 4d 25 3a  |%..h...-105 .M%:|
00000310  d6 44 25 3a d6 4d 25 3a  e5 8d 44 7c 41 0d 01 72  |.D%:.M%:..D|A..r|
00000320  15 e7 a6 2d 37 33 20 d6  4d 25 3a d6 55 25 3a d6  |...-73 .M%:.U%:.|
00000330  4d 25 0d 01 7c 0d 21 26  38 30 3d 21 26 37 30 0d  |M%..|.!&80=!&70.|
00000340  01 86 07 d6 48 25 0d 01  90 28 e7 3f 26 37 34 3d  |....H%...(.?&74=|
00000350  31 31 20 f2 61 69 72 62  6f 6e 75 73 3a 64 69 66  |11 .airbonus:dif|
00000360  66 3d 64 69 66 66 2b 31  3a e5 8d 44 64 40 0d 01  |f=diff+1:..Dd@..|
00000370  9a 13 e7 3f 26 37 34 3c  3e 31 33 20 e5 8d 64 56  |...?&74<>13 ..dV|
00000380  41 0d 01 a4 35 3f 26 37  32 3d 26 38 30 3a d6 4d  |A...5?&72=&80:.M|
00000390  25 3a d4 31 2c 31 2c 32  30 30 2c 31 3a 47 45 4d  |%:.1,1,200,1:GEM|
000003a0  3d 47 45 4d 2b 31 3a fb  32 3a f1 8a 31 38 2c 31  |=GEM+1:.2:..18,1|
000003b0  29 3b 47 45 4d 3b 0d 01  ae 25 e7 47 45 4d 3d 31  |);GEM;...%.GEM=1|
000003c0  35 20 d4 32 2c 31 2c 32  33 30 2c 31 3a 53 25 3d  |5 .2,1,230,1:S%=|
000003d0  53 25 2b 31 30 30 2a 64  69 66 66 0d 01 b8 18 53  |S%+100*diff....S|
000003e0  25 3d 53 25 2b 31 30 30  3a f2 73 63 6f 72 65 28  |%=S%+100:.score(|
000003f0  53 25 29 0d 01 c2 24 e7  20 47 45 4d 3d 31 30 20  |S%)...$. GEM=10 |
00000400  d4 32 2c 31 2c 31 30 30  2c 31 3a f2 64 70 28 26  |.2,1,100,1:.dp(&|
00000410  37 30 2c 26 43 30 29 0d  01 cc 09 e5 8d 64 6a 41  |70,&C0)......djA|
00000420  0d 01 d6 1c e7 3f 26 37  35 3d 26 33 44 20 84 20  |.....?&75=&3D . |
00000430  3f 26 37 35 3d 35 20 e5  8d 44 70 43 0d 01 e0 1e  |?&75=5 ..DpC....|
00000440  e7 3f 26 37 34 3d 31 34  20 3f 26 37 32 3d 26 41  |.?&74=14 ?&72=&A|
00000450  30 3a d6 4d 25 3a f2 61  69 72 0d 01 ea 1c 5a 25  |0:.M%:.air....Z%|
00000460  3d 28 3f 26 38 30 2b 32  35 36 2a 3f 26 38 31 29  |=(?&80+256*?&81)|
00000470  2d 26 33 30 30 30 0d 01  f4 12 e3 4f 3d 26 38 34  |-&3000.....O=&84|
00000480  b8 20 6e 75 6d 20 88 34  0d 01 fe 1c 4f 3f 33 3d  |. num .4....O?3=|
00000490  4f 3f 33 2b 31 3a e7 4f  3f 33 3c 4f 3f 32 20 e5  |O?3+1:.O?3<O?2 .|
000004a0  8d 74 54 42 0d 02 08 09  4f 3f 33 3d 30 0d 02 12  |.tTB....O?3=0...|
000004b0  10 e7 4f 3f 32 3d 30 20  e5 8d 74 54 42 0d 02 1c  |..O?2=0 ..tTB...|
000004c0  0b 21 26 37 30 3d 21 4f  0d 02 26 14 3f 26 37 32  |.!&70=!O..&.?&72|
000004d0  3d 26 32 30 3a 3f 26 37  33 3d 26 41 0d 02 30 1c  |=&20:?&73=&A..0.|
000004e0  56 25 3d 28 3f 26 37 30  2b 32 35 36 2a 3f 26 37  |V%=(?&70+256*?&7|
000004f0  31 29 2d 26 33 30 30 30  0d 02 3a 07 d6 4d 25 0d  |1)-&3000..:..M%.|
00000500  02 44 1c e7 20 56 25 83  36 34 30 3c 5a 25 83 36  |.D.. V%.640<Z%.6|
00000510  34 30 d6 52 25 3a e5 8d  44 58 42 0d 02 4e 16 e7  |40.R%:..DXB..N..|
00000520  20 56 25 83 36 34 30 3e  5a 25 83 36 34 30 d6 4c  | V%.640>Z%.640.L|
00000530  25 0d 02 58 1c e7 20 56  25 81 36 34 30 3c 5a 25  |%..X.. V%.640<Z%|
00000540  81 36 34 30 d6 44 25 3a  e5 8d 44 6c 42 0d 02 62  |.640.D%:..DlB..b|
00000550  16 e7 20 56 25 81 36 34  30 3e 5a 25 81 36 34 30  |.. V%.640>Z%.640|
00000560  d6 55 25 0d 02 6c 07 d6  4d 25 0d 02 76 07 d6 48  |.U%..l..M%..v..H|
00000570  25 0d 02 80 36 e7 3f 26  37 35 3d 26 33 44 20 d6  |%...6.?&75=&3D .|
00000580  4d 25 3a 4f 3f 32 3d 30  3a d4 32 2c 33 2c 31 2c  |M%:O?2=0:.2,3,1,|
00000590  31 30 3a 53 25 3d 53 25  2b 35 30 30 3a f2 73 63  |10:S%=S%+500:.sc|
000005a0  6f 72 65 28 53 25 29 0d  02 8a 14 3f 4f 3d 3f 26  |ore(S%)....?O=?&|
000005b0  37 30 3a 4f 3f 31 3d 3f  26 37 31 0d 02 94 05 ed  |70:O?1=?&71.....|
000005c0  0d 02 9e 20 50 4e 4d 3d  50 4e 4d 2b 35 3a e7 20  |... PNM=PNM+5:. |
000005d0  50 4e 4d 3d 50 41 54 20  50 4e 4d 3d 26 42 38 30  |PNM=PAT PNM=&B80|
000005e0  0d 02 a8 13 e7 50 4e 4d  3f 31 3c 3e 30 20 e5 8d  |.....PNM?1<>0 ..|
000005f0  54 42 43 0d 02 b2 22 50  4e 4d 3f 31 3d b3 28 35  |TBC..."PNM?1=.(5|
00000600  29 3a 3f 50 4e 4d 3d 30  3a 50 4e 4d 3f 32 3d b3  |):?PNM=0:PNM?2=.|
00000610  28 34 29 2d 31 0d 02 bc  1e e7 20 50 4e 4d 3f 32  |(4)-1..... PNM?2|
00000620  3d 30 20 5a 3d b3 28 35  35 29 2a 31 36 2b 26 37  |=0 Z=.(55)*16+&7|
00000630  38 34 30 0d 02 c6 1f e7  20 50 4e 4d 3f 32 3d 31  |840..... PNM?2=1|
00000640  20 5a 3d 26 33 41 34 30  2b b3 28 32 35 29 2a 36  | Z=&3A40+.(25)*6|
00000650  34 30 0d 02 d0 1e e7 20  50 4e 4d 3f 32 3d 32 20  |40..... PNM?2=2 |
00000660  5a 3d b3 28 35 35 29 2a  31 36 2b 26 33 41 34 30  |Z=.(55)*16+&3A40|
00000670  0d 02 da 1f e7 20 50 4e  4d 3f 32 3d 33 20 5a 3d  |..... PNM?2=3 Z=|
00000680  26 33 43 34 30 2b b3 28  32 35 29 2a 36 34 30 0d  |&3C40+.(25)*640.|
00000690  02 e4 1f 50 4e 4d 3f 33  3d 5a 20 83 20 32 35 36  |...PNM?3=Z . 256|
000006a0  3a 50 4e 4d 3f 34 3d 5a  20 81 20 32 35 36 0d 02  |:PNM?4=Z . 256..|
000006b0  ee 1f 21 26 37 30 3d 50  4e 4d 21 33 3a 3f 26 37  |..!&70=PNM!3:?&7|
000006c0  32 3d 26 36 30 3a 3f 26  37 33 3d 26 41 0d 02 f8  |2=&60:?&73=&A...|
000006d0  07 d6 4d 25 0d 03 02 07  d6 57 25 0d 03 0c 07 d6  |..M%.....W%.....|
000006e0  54 25 0d 03 16 08 f2 63  6f 6c 0d 03 20 31 4f 25  |T%.....col.. 1O%|
000006f0  3d 4f 25 2d 38 3a e7 4f  25 3c 32 30 30 20 e5 8d  |=O%-8:.O%<200 ..|
00000700  44 70 43 3a 8b e6 30 2c  30 3a ec 4f 25 2c 31 30  |DpC:..0,0:.O%,10|
00000710  31 36 3a df 4f 25 2c 31  30 30 34 0d 03 2a 11 e3  |16:.O%,1004..*..|
00000720  4f 3d 31 b8 20 44 45 4c  41 59 3a ed 0d 03 34 09  |O=1. DELAY:...4.|
00000730  e5 8d 44 40 41 0d 03 3e  09 dd f2 63 6f 6c 0d 03  |..D@A..>...col..|
00000740  48 12 43 3d 43 2b 31 3a  e7 43 3e 37 20 43 3d 30  |H.C=C+1:.C>7 C=0|
00000750  0d 03 52 3e ef 31 39 2c  31 32 2c 43 3b 30 3b 31  |..R>.19,12,C;0;1|
00000760  39 2c 31 31 2c 28 43 2b  31 29 83 38 3b 30 3b 31  |9,11,(C+1).8;0;1|
00000770  39 2c 31 30 2c 28 43 2b  32 29 83 38 3b 30 3b 31  |9,10,(C+2).8;0;1|
00000780  39 2c 39 2c 28 43 2b 33  29 83 38 3b 30 3b 0d 03  |9,9,(C+3).8;0;..|
00000790  5c 05 e1 0d 03 66 17 f4  20 2a 2a 2a 2a 2a 20 44  |\....f.. ***** D|
000007a0  45 41 54 48 20 2a 2a 2a  2a 2a 0d 03 70 32 e3 4f  |EATH *****..p2.O|
000007b0  3d 31 b8 35 30 30 3a ed  3a e3 4f 3d 31 30 30 b8  |=1.500:.:.O=100.|
000007c0  30 88 2d 31 30 3a d4 33  2c 33 2c 4f 2c 32 3a ed  |0.-10:.3,3,O,2:.|
000007d0  3a e3 4f 3d 31 b8 31 30  30 30 3a ed 0d 03 7a 11  |:.O=1.1000:...z.|
000007e0  4c 49 56 45 53 3d 4c 49  56 45 53 2d 31 0d 03 84  |LIVES=LIVES-1...|
000007f0  1b e7 4c 49 56 45 53 3c  30 20 f2 68 69 73 63 6f  |..LIVES<0 .hisco|
00000800  72 65 3a e5 8d 44 50 40  0d 03 8e 15 fb 33 3a f1  |re:..DP@.....3:.|
00000810  8a 31 35 2c 31 29 3b 4c  49 56 45 53 3b 0d 03 98  |.15,1);LIVES;...|
00000820  13 e3 4f 3d 31 b8 32 30  30 30 3a e5 8d 44 64 40  |..O=1.2000:..Dd@|
00000830  0d 03 a2 05 3a 0d 03 ac  10 dd f2 64 70 28 4f 2c  |....:......dp(O,|
00000840  43 48 41 52 29 0d 03 b6  1e 3f 4f 3d b3 28 31 36  |CHAR)....?O=.(16|
00000850  29 2a 31 36 3a 4f 3f 31  3d b3 28 26 33 30 29 2b  |)*16:O?1=.(&30)+|
00000860  26 34 30 0d 03 c0 27 3f  26 37 30 3d 3f 4f 3a 3f  |&40...'?&70=?O:?|
00000870  26 37 31 3d 4f 3f 31 3a  3f 26 37 32 3d 43 48 41  |&71=O?1:?&72=CHA|
00000880  52 3a 3f 26 37 33 3d 26  41 20 0d 03 ca 0b d6 4d  |R:?&73=&A .....M|
00000890  25 3a d6 48 25 0d 03 d4  17 e7 20 3f 26 37 35 3c  |%:.H%..... ?&75<|
000008a0  3e 30 20 d6 4d 25 3a e5  8d 74 76 43 0d 03 de 05  |>0 .M%:..tvC....|
000008b0  e1 0d 03 e8 09 dd f2 61  69 72 0d 03 f2 08 e6 30  |.......air.....0|
000008c0  2c 36 0d 03 fc 0a 41 49  52 3d 2d 38 0d 04 06 33  |,6....AIR=-8...3|
000008d0  f5 3a 41 49 52 3d 41 49  52 2b 38 3a e3 49 3d 30  |.:AIR=AIR+8:.I=0|
000008e0  b8 33 32 88 38 3a d4 26  31 31 2c 2d 31 30 2c 28  |.32.8:.&11,-10,(|
000008f0  41 49 52 2b 4f 25 29 2f  38 2b 49 2c 32 3a ed 0d  |AIR+O%)/8+I,2:..|
00000900  04 10 1d ec 41 49 52 2b  4f 25 2c 31 30 31 36 3a  |....AIR+O%,1016:|
00000910  df 41 49 52 2b 4f 25 2c  31 30 30 34 0d 04 1a 1c  |.AIR+O%,1004....|
00000920  fd 20 41 49 52 3e 35 30  30 20 84 20 41 49 52 2b  |. AIR>500 . AIR+|
00000930  4f 25 3e 3d 31 32 36 38  0d 04 24 0f 4f 25 3d 4f  |O%>=1268..$.O%=O|
00000940  25 2b 41 49 52 2b 38 0d  04 2e 05 e1 0d 04 38 0d  |%+AIR+8.......8.|
00000950  dd f2 61 63 69 64 28 4e  29 0d 04 42 24 e3 4f 3d  |..acid(N)..B$.O=|
00000960  31 b8 4e 3a 41 3d b3 28  38 30 30 29 2b 32 30 30  |1.N:A=.(800)+200|
00000970  3a 42 3d b3 28 37 30 30  29 2b 31 30 30 0d 04 4c  |:B=.(700)+100..L|
00000980  09 46 3d 26 33 45 0d 04  56 0a 53 3d b3 28 33 29  |.F=&3E..V.S=.(3)|
00000990  0d 04 60 17 e3 50 3d 2d  34 35 20 b8 20 34 35 20  |..`..P=-45 . 45 |
000009a0  88 20 28 53 2a 34 29 0d  04 6a 28 3f 26 33 35 39  |. (S*4)..j(?&359|
000009b0  3d 46 3a ec 2d 31 32 30  2f 53 2b 41 2b 28 28 50  |=F:.-120/S+A+((P|
000009c0  5e 32 29 2f 32 30 29 2f  53 2c 42 2b 50 2f 53 0d  |^2)/20)/S,B+P/S.|
000009d0  04 74 1f df 31 32 30 2f  53 2b 41 2d 28 28 50 5e  |.t..120/S+A-((P^|
000009e0  32 29 2f 32 30 29 2f 53  2c 42 2b 50 2f 53 0d 04  |2)/20)/S,B+P/S..|
000009f0  7e 11 46 3d 46 20 82 20  33 3a ed 3a ed 3a e1 0d  |~.F=F . 3:.:.:..|
00000a00  04 88 0a dd f2 63 61 76  65 0d 04 92 07 fb 31 35  |.....cave.....15|
00000a10  0d 04 9c 1c f1 8a 30 2c  32 29 3b c4 32 30 2c bd  |......0,2);.20,.|
00000a20  32 34 37 29 3b bd 32 34  33 3b 20 20 0d 04 a6 24  |247);.243;  ...$|
00000a30  e3 4f 3d 33 b8 33 30 3a  f1 8a 30 2c 4f 29 bd 32  |.O=3.30:..0,O).2|
00000a40  34 34 3b 8a 31 39 2c 4f  29 bd 32 34 35 3b 3a ed  |44;.19,O).245;:.|
00000a50  0d 04 b0 16 f1 8a 30 2c  33 31 29 3b c4 31 39 2c  |......0,31);.19,|
00000a60  bd 32 34 36 29 3b 0d 04  ba 1d e6 30 2c 31 35 3a  |.246);.....0,15:|
00000a70  ef 35 3a ec 31 32 32 30  2c 32 38 3a ef 20 32 34  |.5:.1220,28:. 24|
00000a80  36 2c 34 0d 04 c4 12 e6  30 2c 37 3a e3 4f 3d 31  |6,4.....0,7:.O=1|
00000a90  b8 64 69 66 66 0d 04 ce  17 ec 20 4f 2a 32 34 2c  |.diff..... O*24,|
00000aa0  30 3a df 4f 2a 32 34 2c  31 32 3a ed 0d 04 d8 05  |0:.O*24,12:.....|
00000ab0  e1 0d 04 e2 0a dd f2 69  6e 69 74 0d 04 ec 05 db  |.......init.....|
00000ac0  0d 04 f6 29 e7 20 64 69  66 66 3c 31 30 20 44 45  |...). diff<10 DE|
00000ad0  4c 41 59 3d 31 30 30 2d  64 69 66 66 2a 31 30 20  |LAY=100-diff*10 |
00000ae0  8b 20 44 45 4c 41 59 3d  31 0d 05 00 15 43 3d 31  |. DELAY=1....C=1|
00000af0  3a 47 45 4d 3d 30 3a 4f  25 3d 31 32 37 36 0d 05  |:GEM=0:O%=1276..|
00000b00  0a 43 6e 75 6d 3d 26 38  30 2b 28 64 69 66 66 20  |.Cnum=&80+(diff |
00000b10  81 20 32 29 2a 34 3a 77  69 6e 6f 25 3d 26 42 30  |. 2)*4:wino%=&B0|
00000b20  30 2b 64 69 66 66 2a 34  3a 50 41 54 3d 26 42 38  |0+diff*4:PAT=&B8|
00000b30  30 2b 64 69 66 66 2a 35  3a 50 4e 4d 3d 26 42 38  |0+diff*5:PNM=&B8|
00000b40  30 0d 05 14 28 57 58 3d  35 30 3a 57 56 3d 31 32  |0...(WX=50:WV=12|
00000b50  32 36 3a 4e 52 3d a8 28  64 69 66 66 2f 32 29 3a  |26:NR=.(diff/2):|
00000b60  4e 45 3d 64 69 66 66 2a  32 0d 05 1e 05 e1 0d 05  |NE=diff*2.......|
00000b70  28 0d dd f2 6f 62 6a 65  63 74 73 0d 05 32 2d e6  |(...objects..2-.|
00000b80  30 2c 33 3a e3 4f 3d 31  b8 4e 45 3a 41 3d b3 28  |0,3:.O=1.NE:A=.(|
00000b90  32 39 29 2a 33 32 2b 36  34 3a 42 3d 38 32 38 2d  |29)*32+64:B=828-|
00000ba0  b3 28 32 30 29 2a 33 32  0d 05 3c 17 ef 35 3a ec  |.(20)*32..<..5:.|
00000bb0  41 2c 42 3a f1 bd 32 34  38 3b 3a ed 3a ef 34 0d  |A,B:..248;:.:.4.|
00000bc0  05 46 30 fb 31 35 3a ef  35 3a e3 4f 3d 31 b8 20  |.F0.15:.5:.O=1. |
00000bd0  4e 52 3a 41 3d b3 28 32  39 29 2a 33 32 2b 36 34  |NR:A=.(29)*32+64|
00000be0  3a 42 3d 38 32 38 2d b3  28 32 30 29 2a 33 32 0d  |:B=828-.(20)*32.|
00000bf0  05 50 47 e6 30 2c 31 35  3a ec 41 2b 36 34 2c 42  |.PG.0,15:.A+64,B|
00000c00  3a f1 bd 32 34 39 3a ec  41 2c 42 2d 33 32 3a f1  |:..249:.A,B-32:.|
00000c10  bd 32 35 30 3b bd 32 35  31 3b bd 32 35 32 3a ec  |.250;.251;.252:.|
00000c20  41 2c 42 2d 36 34 3a f1  bd 32 35 33 3b bd 32 35  |A,B-64:..253;.25|
00000c30  34 3b bd 32 35 35 0d 05  5a 1a ec 41 2b 35 36 2c  |4;.255..Z..A+56,|
00000c40  42 2d 39 36 3a df 41 2b  31 32 38 2c 42 2d 39 36  |B-96:.A+128,B-96|
00000c50  0d 05 64 0a ed 3a ef 34  3a e1 0d 05 6e 0e dd f2  |..d..:.4:...n...|
00000c60  73 63 6f 72 65 28 53 29  0d 05 78 0e fb 37 3a 53  |score(S)..x..7:S|
00000c70  24 3d c3 28 53 29 0d 05  82 15 f1 8a 31 32 2d a9  |$=.(S)......12-.|
00000c80  28 53 24 29 2c 31 29 3b  53 24 3b 0d 05 8c 05 e1  |(S$),1);S$;.....|
00000c90  0d 05 96 0e dd f2 61 69  72 62 6f 6e 75 73 0d 05  |......airbonus..|
00000ca0  a0 0c d4 33 2c 30 2c 30  2c 31 0d 05 aa 0f e3 4f  |...3,0,0,1.....O|
00000cb0  3d 31 b8 31 30 30 30 3a  ed 0d 05 b4 15 f5 3a d4  |=1.1000:......:.|
00000cc0  26 31 31 2c 2d 31 30 2c  4f 25 2f 38 2c 32 0d 05  |&11,-10,O%/8,2..|
00000cd0  be 1a e6 30 2c 30 3a ec  4f 25 2c 31 30 31 36 3a  |...0,0:.O%,1016:|
00000ce0  df 4f 25 2c 31 30 30 34  0d 05 c8 16 4f 25 3d 4f  |.O%,1004....O%=O|
00000cf0  25 2d 38 3a 53 25 3d 53  25 2b 64 69 66 66 0d 05  |%-8:S%=S%+diff..|
00000d00  d2 0e f2 73 63 6f 72 65  28 53 25 29 0d 05 dc 0b  |...score(S%)....|
00000d10  fd 4f 25 3c 32 30 30 0d  05 e6 11 e3 4f 3d 31 b8  |.O%<200.....O=1.|
00000d20  32 30 30 30 3a ed 3a e1  0d 05 f0 0e dd f2 68 65  |2000:.:.......he|
00000d30  61 64 69 6e 67 73 0d 05  fa 16 21 26 37 30 3d 26  |adings....!&70=&|
00000d40  30 41 30 30 33 34 34 30  3a d6 4d 25 0d 06 04 16  |0A003440:.M%....|
00000d50  21 26 37 30 3d 26 30 41  38 30 33 34 41 30 3a d6  |!&70=&0A8034A0:.|
00000d60  4d 25 0d 06 0e 13 fb 35  3a f1 8a 30 2c 30 29 22  |M%.....5:..0,0)"|
00000d70  4f 58 59 22 3b 0d 06 18  16 fb 31 3a f1 8a 30 2c  |OXY";.....1:..0,|
00000d80  31 29 22 53 43 4f 52 45  3a 22 3b 0d 06 22 21 fb  |1)"SCORE:";.."!.|
00000d90  37 3a f1 8a 36 2c 31 29  22 30 30 30 30 30 30 22  |7:..6,1)"000000"|
00000da0  3b 3a f2 73 63 6f 72 65  28 53 25 29 0d 06 2c 12  |;:.score(S%)..,.|
00000db0  fb 32 3a f1 8a 31 38 2c  31 29 22 30 22 3b 0d 06  |.2:..18,1)"0";..|
00000dc0  36 15 fb 33 3a f1 8a 31  35 2c 31 29 3b 4c 49 56  |6..3:..15,1);LIV|
00000dd0  45 53 3b 0d 06 40 38 e6  30 2c 36 3a ec 32 30 30  |ES;..@8.0,6:.200|
00000de0  2c 31 30 30 34 3a ec 31  32 36 38 2c 31 30 30 34  |,1004:.1268,1004|
00000df0  3a f0 38 35 2c 32 30 30  2c 31 30 31 36 3a f0 38  |:.85,200,1016:.8|
00000e00  35 2c 31 32 36 38 2c 31  30 31 36 0d 06 4a 3c e6  |5,1268,1016..J<.|
00000e10  30 2c 37 3a ec 31 39 32  2c 31 30 30 30 3a df 31  |0,7:.192,1000:.1|
00000e20  32 37 36 2c 31 30 30 30  3a df 31 32 37 36 2c 31  |276,1000:.1276,1|
00000e30  30 32 30 3a df 31 39 32  2c 31 30 32 30 3a df 31  |020:.192,1020:.1|
00000e40  39 32 2c 31 30 30 30 0d  06 54 05 e1 0d 06 5e 0a  |92,1000..T....^.|
00000e50  dd f2 64 65 6d 6f 0d 06  68 07 ef 32 36 0d 06 72  |..demo..h..26..r|
00000e60  19 f2 69 6e 69 74 3a f2  63 61 76 65 3a f2 68 65  |..init:.cave:.he|
00000e70  61 64 69 6e 67 73 0d 06  7c 11 ef 32 38 2c 31 2c  |adings..|..28,1,|
00000e80  33 30 2c 31 38 2c 33 0d  06 86 1b fb 37 3a f1 8a  |30,18,3.....7:..|
00000e90  33 2c 32 29 22 4d 4f 4f  4e 20 50 41 54 52 4f 4c  |3,2)"MOON PATROL|
00000ea0  22 3b 0d 06 90 13 ef 31  39 2c 31 34 2c 32 3b 30  |";.....19,14,2;0|
00000eb0  3b 3a fb 31 34 0d 06 9a  2a e3 4f 3d 31 b8 31 30  |;:.14...*.O=1.10|
00000ec0  3a f1 8a 30 2c 4f 2b 35  29 3b 22 30 30 30 30 30  |:..0,O+5);"00000|
00000ed0  30 2e 2e 22 3b 73 63 6f  72 65 24 28 4f 29 3b 0d  |0..";score$(O);.|
00000ee0  06 a4 27 f1 8a 36 2d a9  28 c3 28 73 63 6f 72 65  |..'..6-.(.(score|
00000ef0  28 4f 29 29 29 2c 4f 2b  35 29 3b 73 63 6f 72 65  |(O))),O+5);score|
00000f00  28 4f 29 3b 3a ed 0d 06  ae 24 fb 31 30 3a f1 8a  |(O);:....$.10:..|
00000f10  30 2c 32 36 29 22 45 6e  74 65 72 20 6c 65 76 65  |0,26)"Enter leve|
00000f20  6c 20 31 20 74 6f 20 39  22 3b 0d 06 b8 0b d1 3d  |l 1 to 9";.....=|
00000f30  30 3a 44 3d 31 0d 06 c2  1e ef 31 39 2c 31 34 2c  |0:D=1.....19,14,|
00000f40  44 3b 30 3b 3a 44 3d 44  2b 31 3a e7 44 3e 37 20  |D;0;:D=D+1:.D>7 |
00000f50  44 3d 31 0d 06 cc 13 f2  63 6f 6c 3a e3 4f 3d 31  |D=1.....col:.O=1|
00000f60  b8 31 30 30 3a ed 0d 06  d6 23 41 3d a6 28 30 29  |.100:....#A=.(0)|
00000f70  3a e7 41 3e 34 38 20 80  20 41 3c 35 38 20 64 69  |:.A>48 . A<58 di|
00000f80  66 66 3d 41 2d 34 38 3a  e1 0d 06 e0 0a f2 73 6f  |ff=A-48:......so|
00000f90  75 6e 64 0d 06 ea 09 2a  46 58 31 39 0d 06 f4 11  |und....*FX19....|
00000fa0  e7 20 91 3c 37 35 30 20  e5 8d 64 42 46 0d 06 fe  |. .<750 ..dBF...|
00000fb0  05 db 0d 07 08 1b fb 37  3a f1 8a 33 2c 32 29 22  |.......7:..3,2)"|
00000fc0  4d 4f 4f 4e 20 50 41 54  52 4f 4c 22 3b 0d 07 12  |MOON PATROL";...|
00000fd0  16 21 26 37 30 3d 26 30  41 30 30 34 34 34 30 3a  |.!&70=&0A004440:|
00000fe0  d6 4d 25 0d 07 1c 16 21  26 37 30 3d 26 30 41 32  |.M%....!&70=&0A2|
00000ff0  30 34 39 34 30 3a d6 4d  25 0d 07 26 16 21 26 37  |04940:.M%..&.!&7|
00001000  30 3d 26 30 41 34 30 34  45 34 30 3a d6 4d 25 0d  |0=&0A404E40:.M%.|
00001010  07 30 16 21 26 37 30 3d  26 30 41 36 30 35 33 34  |.0.!&70=&0A60534|
00001020  30 3a d6 4d 25 0d 07 3a  16 21 26 37 30 3d 26 30  |0:.M%..:.!&70=&0|
00001030  41 38 30 35 38 34 30 3a  d6 4d 25 0d 07 44 16 21  |A805840:.M%..D.!|
00001040  26 37 30 3d 26 30 41 41  30 35 44 34 30 3a d6 4d  |&70=&0AA05D40:.M|
00001050  25 0d 07 4e 16 21 26 37  30 3d 26 30 41 43 30 36  |%..N.!&70=&0AC06|
00001060  32 34 30 3a d6 4d 25 0d  07 58 06 fb 33 0d 07 62  |240:.M%..X..3..b|
00001070  26 f7 20 8d 74 72 47 3a  e3 4f 3d 31 b8 37 3a f3  |&. .trG:.O=1.7:.|
00001080  41 24 3a f1 8a 35 2c 32  2a 4f 2b 33 29 3b 41 24  |A$:..5,2*O+3);A$|
00001090  3b 3a ed 0d 07 6c 24 fb  31 30 3a f1 8a 30 2c 32  |;:...l$.10:..0,2|
000010a0  36 29 22 45 6e 74 65 72  20 6c 65 76 65 6c 20 31  |6)"Enter level 1|
000010b0  20 74 6f 20 39 22 3b 0d  07 76 07 d1 3d 30 0d 07  | to 9";..v..=0..|
000010c0  80 13 e3 4f 3d 31 b8 31  30 30 3a ed 3a f2 63 6f  |...O=1.100:.:.co|
000010d0  6c 0d 07 8a 23 41 3d a6  28 30 29 3a e7 41 3e 34  |l...#A=.(0):.A>4|
000010e0  38 20 80 20 41 3c 35 38  20 64 69 66 66 3d 41 2d  |8 . A<58 diff=A-|
000010f0  34 38 3a e1 0d 07 94 0a  f2 73 6f 75 6e 64 0d 07  |48:......sound..|
00001100  9e 11 e7 20 91 3c 37 35  30 20 e5 8d 74 40 47 0d  |... .<750 ..t@G.|
00001110  07 a8 0b db 3a e5 8d 74  46 46 0d 07 b2 49 dc 20  |....:..tFF...I. |
00001120  53 70 61 63 65 6d 61 6e  20 53 69 64 2c 46 75 7a  |Spaceman Sid,Fuz|
00001130  7a 2c 57 69 6e 6f 74 72  6f 6e 2c 53 63 6f 75 74  |z,Winotron,Scout|
00001140  20 43 72 61 66 74 2c 43  72 79 73 74 61 6c 2c 4f  | Craft,Crystal,O|
00001150  78 79 67 65 6e 2c 53 70  61 63 65 20 63 61 70 73  |xygen,Space caps|
00001160  75 6c 65 0d 07 bc 0b dd  f2 73 6f 75 6e 64 0d 07  |ule......sound..|
00001170  c6 16 e7 a6 28 2d 38 32  29 20 8c 20 2a 46 58 32  |....(-82) . *FX2|
00001180  31 30 2c 30 0d 07 d0 16  e7 a6 28 2d 31 37 29 20  |10,0......(-17) |
00001190  8c 20 2a 46 58 32 31 30  2c 31 0d 07 da 05 e1 0d  |. *FX210,1......|
000011a0  07 e4 0d dd f2 68 69 73  63 6f 72 65 0d 07 ee 0c  |.....hiscore....|
000011b0  2a 46 58 32 30 30 2c 31  0d 07 f8 14 e7 20 53 25  |*FX200,1..... S%|
000011c0  3c 73 63 6f 72 65 28 31  30 29 20 e1 0d 08 02 1d  |<score(10) .....|
000011d0  f2 63 61 76 65 3a ef 32  36 2c 32 38 2c 31 2c 33  |.cave:.26,28,1,3|
000011e0  30 2c 31 38 2c 33 2c 31  32 0d 08 0c 1d fb 33 3a  |0,18,3,12.....3:|
000011f0  f1 8a 32 2c 31 29 22 59  4f 55 52 20 53 43 4f 52  |..2,1)"YOUR SCOR|
00001200  45 20 4f 46 22 27 0d 08  16 2d fb 31 30 3a f1 8a  |E OF"'...-.10:..|
00001210  36 2c 33 29 22 30 30 30  30 30 30 22 3b 8a 31 32  |6,3)"000000";.12|
00001220  2d a9 28 c3 28 53 25 29  29 2c 33 29 3b c3 28 53  |-.(.(S%)),3);.(S|
00001230  25 29 3b 0d 08 20 35 fb  33 3a f1 8a 30 2c 35 29  |%);.. 5.3:..0,5)|
00001240  22 51 55 41 4c 49 46 49  45 53 20 59 4f 55 20 46  |"QUALIFIES YOU F|
00001250  4f 52 22 27 27 22 20 54  48 45 20 48 41 4c 4c 20  |OR"''" THE HALL |
00001260  4f 46 20 46 41 4d 45 22  0d 08 2a 2c fb 35 3a f1  |OF FAME"..*,.5:.|
00001270  27 27 27 27 27 22 50 4c  45 41 53 45 20 45 4e 54  |'''''"PLEASE ENT|
00001280  45 52 20 59 4f 55 52 22  27 27 8a 37 29 22 4e 41  |ER YOUR"''.7)"NA|
00001290  4d 45 3a 22 0d 08 34 19  fb 31 33 32 3a f1 8a 33  |ME:"..4..132:..3|
000012a0  2c 32 30 29 c4 31 32 2c  22 20 22 29 3b 0d 08 3e  |,20).12," ");..>|
000012b0  21 53 24 3d 22 22 3a 58  3d 34 3a 43 48 41 52 3d  |!S$="":X=4:CHAR=|
000012c0  36 30 3a 54 3d 30 3a 2a  46 58 31 35 2c 30 0d 08  |60:T=0:*FX15,0..|
000012d0  48 11 fb 37 3a f1 8a 58  2c 32 30 29 22 3c 22 0d  |H..7:..X,20)"<".|
000012e0  08 52 35 f2 63 6f 6c 3a  54 3d 54 2b 31 3a e7 54  |.R5.col:T=T+1:.T|
000012f0  3e 37 20 54 3d 30 3a 43  48 41 52 3d 43 48 41 52  |>7 T=0:CHAR=CHAR|
00001300  20 82 20 32 3a f1 8a 58  2c 32 30 29 bd 28 43 48  | . 2:..X,20).(CH|
00001310  41 52 29 3b 0d 08 5c 0e  e3 4f 3d 31 b8 31 30 30  |AR);..\..O=1.100|
00001320  3a ed 0d 08 66 16 41 3d  a6 28 30 29 3a e7 41 3d  |:...f.A=.(0):.A=|
00001330  2d 31 20 e5 8d 44 52 48  0d 08 70 36 e7 41 3d 31  |-1 ..DRH..p6.A=1|
00001340  32 37 20 80 20 a9 28 53  24 29 3e 30 20 53 24 3d  |27 . .(S$)>0 S$=|
00001350  c0 53 24 2c a9 28 53 24  29 2d 31 29 3a f1 8a 58  |.S$,.(S$)-1):..X|
00001360  2c 32 30 29 22 20 22 3b  3a 58 3d 58 2d 31 0d 08  |,20)" ";:X=X-1..|
00001370  7a 11 e7 41 3d 31 32 37  20 e5 20 8d 44 52 48 0d  |z..A=127 . .DRH.|
00001380  08 84 0f e7 41 3d 31 33  20 e5 8d 74 62 48 0d 08  |....A=13 ..tbH..|
00001390  8e 2f e7 a9 28 53 24 29  3c 31 30 20 47 24 3d bd  |./..(S$)<10 G$=.|
000013a0  28 41 29 3a 53 24 3d 53  24 2b 47 24 3a f1 8a 58  |(A):S$=S$+G$:..X|
000013b0  2c 32 30 29 47 24 3b 3a  58 3d 58 2b 31 0d 08 98  |,20)G$;:X=X+1...|
000013c0  09 e5 8d 44 52 48 0d 08  a2 1e 4f 3d 30 3a f5 3a  |...DRH....O=0:.:|
000013d0  4f 3d 4f 2b 31 3a fd 20  73 63 6f 72 65 28 4f 29  |O=O+1:. score(O)|
000013e0  3c 3d 53 25 0d 08 ac 3b  e3 49 3d 39 b8 20 4f 20  |<=S%...;.I=9. O |
000013f0  88 2d 31 3a 73 63 6f 72  65 28 49 2b 31 29 3d 73  |.-1:score(I+1)=s|
00001400  63 6f 72 65 28 49 29 3a  73 63 6f 72 65 24 28 49  |core(I):score$(I|
00001410  2b 31 29 3d 73 63 6f 72  65 24 28 49 29 3a ed 0d  |+1)=score$(I):..|
00001420  08 b6 1c 73 63 6f 72 65  28 4f 29 3d 53 25 3a 73  |...score(O)=S%:s|
00001430  63 6f 72 65 24 28 4f 29  3d 53 24 0d 08 c0 11 fb  |core$(O)=S$.....|
00001440  31 32 38 3a 2a 46 58 32  30 30 2c 30 0d 08 ca 05  |128:*FX200,0....|
00001450  e1 0d 08 d4 14 e7 20 9f  3d 31 37 20 ef 32 36 3a  |...... .=17 .26:|
00001460  e5 8d 44 50 40 0d 08 de  18 eb 37 3a f6 3a f1 22  |..DP@.....7:.:."|
00001470  20 61 74 20 6c 69 6e 65  22 3b 9e 3a e0 0d ff     | at line";.:...|
0000147f

27-01-89/Moon2.m0

27-01-89/Moon2.m1

27-01-89/Moon2.m2

27-01-89/Moon2.m4

27-01-89/Moon2.m5

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