0�scor$(19):�scor(20):lev=1:�6:*LOAD Megadata
$scor$(0)="Proozy":scor(0)=5008:�
*scor$(1)="The TNT Master":scor(1)=5824
(!scor$(2)="Mairo":scor(2)=6001
2+scor$(3)="Sonic":scor(3)=6289:�assemble
<!scor$(4)="Mummy":scor(4)=6724
F!scor$(5)="Daddy":scor(5)=6741
P"scor$(6)="Dr.Who":scor(6)=7647
Z&scor$(7)="C16":scor(7)=7982:�sound
d$scor$(8)="Electron":scor(8)=9028
n$scor$(9)="Spectrum":scor(9)=9802
x%scor$(10)="Repton":scor(10)=10024
�,scor$(11)="Percy Penquin":scor(11)=10874
�"scor$(12)="Rom":scor(12)=11013
�"scor$(13)="Ram":scor(13)=11089
�"scor$(14)="C64":scor(14)=11874
�$scor$(15)="Beano":scor(15)=12482
�$scor$(16)="Tiger":scor(16)=13012
�%scor$(17)="Poodle":scor(17)=13997
�#scor$(18)="Judy":scor(18)=14512
�$scor$(19)="Woozy":scor(19)=57846
�3�23,128,255,189,255,24,24,126,90,66:�mons(20,1)
�+�23,129,102,255,255,255,255,255,255,255
�'�23,130,24,24,60,60,126,126,255,255
�'�23,131,255,255,126,126,60,60,24,24

#�23,132,64,96,48,24,8,24,60,126

)�23,133,102,106,102,106,102,126,60,24

!�23,134,0,0,60,60,60,60,60,60

"!�23,135,60,60,60,60,60,60,0,0

,%�23,136,24,24,24,255,255,24,24,24

6#�23,137,24,24,24,24,24,24,24,24

@!�23,138,0,0,0,0,0,126,126,126

J+�23,139,126,126,126,126,126,126,126,126

T*�23,140,24,126,255,126,189,219,213,255

^*�23,141,255,255,255,255,255,255,126,24

h$�23,142,16,16,24,24,24,24,28,254

r"�23,143,127,56,24,24,24,24,8,8

|+�23,144,126,171,213,171,213,171,213,126

��4:�15,0);"MegaLand"

��15,1);"========"

�
�lop=0�19

�0�5,23-lop);scor$(lop);�30,23-lop);scor(lop)

��

�+�6,30);"Press the space bar to start."

�6�5,26);"I would like to start on level ";lev;". "

��(-73)�lev=lev+1

��(-105)�lev=lev-1

��lev<1�lev=1��lev>50�lev=50

��(-99)��d~A

�	�dBA

��5:�1:�init
�move:�objects
!�badmove:mons=res:�whats:�lay
�live<=-1��end:�tFA
&�clock=�((lev/2)*2)��levup
0	�THB
:1��screen:add=&3FFF+((lev-1)�50)*60:asave=&A00
D2�lo=0�14:�lop=0�3:add=add+1:addcom=?add:?add=0
N4�lp=1�5:�addcom=0�rem=0�rem=3��(addcom/3^lp-0.5)
X1?asave=rem:�rem=1��lop*5+(lp-1),2*lo);�(144)
b(�rem=1��lop*5+(lp-1),2*lo+1);�(144)
l%asave=asave+1:�,,:�clock:�clock:�
v
��init
�.clock=0:score=0:live=3:�23,1,0;0;0;:mons=0
�'�screen:imortal=�:imold=0:ya=1:yb=1
��
�,��levup:�sou$="Y"��1,-7,52,2:�1,-7,100,5
��1
�lev=lev+1:�screen:clock=0
�'�((lev-1)/4)=(lev-1)/4�live=live+1
�imortal=�:imold=0:�
�	��end
�5�3:�5,10);"Game Over":�x=0�1000:�:�sou$="N"��dnB
�$�1,-7,56,5:�1,-7,64,5:�1,-7,76,5
��score<scor(0)��
�check=-1:m=0
2�:check=check+1:�score<=scor(check+1)�check=20
*�lop=1�check:scor(check-1)=scor(check)
C scor$(check-1)=scor$(check):�:score=scor(check):�sou$="N"��TjC
 $�1,-7,48,5:�1,-7,52,5:�1,-7,56,5
*,�2,12);"What is your name";scor$(check)
46� �(scor$(check))<19��2,12);"Max 20 letters.":m=1
>� m=1 � �I=0�1000:�:�TjC
H�
R��sound:lev=0
\�15,0);"MegaLand"
f�15,1);"========"
p" �15,15);"Sound (Y/N)":sou$=�
z�sou$<>"N"�sou$<>"Y"��DpC
��
�/��move:yadd=ya+yb*20+&A00:yaold=ya:ybold=yb
�-�(-98)�?(yadd-1)<>1�?(yadd-1)<>2�ya=ya-1
�-�(-67)�?(yadd+1)<>1�?(yadd+1)<>2�ya=ya+1
�/�(-73)�?(yadd-20)<>1�?(yadd-20)<>2�yb=yb-1
�0�(-105)�?(yadd+20)<>1�?(yadd+20)<>2�yb=yb+1
��yaold<>ya ��hit
��ybold<>yb ��hit
��ya,yb*2);"*":�
�*��hit:�redraw:?(yaold+ybold*20+&A00)=0
�/youhit=?(ya+yb*20+&A00):?(ya+yb*20+&A00)=20
��youhit=3��
� �youhit<6�imortal<�-500��die
�youhit<6��
&�youhit=6�score=score+�(500)+500:�
�youhit=7�mons=mons-1:�
$�youhit=8��destroy:�
.$�youhit=9�clock=clock+1:�clock:�
8�
B��redraw
L(�ya,yb*2);�(128);�ya,yb*2+1);�(129)
V.�yaold,ybold*2);" ";�yaold,ybold*2+1);" "
`�
j
��destroy
t?&57FE=5
~?&57FF=0
��&D00:�delete
��
���clock
�� clock=�(lev/2)*2��
�,� clock/2<>�(clock/2�ENDPROCELSEFORI=0�1
�ac=�(20)-1:do=�(15)-1
��?(ac+do*20+&A00)<>0��tzD
�B?(ac+do*20+&A00)=9:�2:�ac,do*2);�(130);�ac,do*2+1);�(131):�:�
�
��objects
�� �(75)<>50��
��l=3�8:�(6)<>2�l=4�l=5��
�.?&57FE=l:?&57FF=0:�&D00:�delete:�lo=1��(3)
xpos=�(20)-1:ypos=�(15)-1

$� ?(&A00+xpos+ypos*20)<>0 � �T@E
#?(&A00+xpos+ypos*20)=l:�draw:�,
�
(��assemble
2�lop=0�2�2
<P%=&D00
F[OPT lop
P# LDY#0:.dela LDX&A00,Y:CPX&57FE
Z' BEQdelab:.baca INY:CPY#&FF:BNEdela
d# LDY#0:.delb LDX&B00,Y:CPX&57FE
n+ BEQdelbb:.bacb INY:CPY#&FF:BNEdelb:RTS
x& .delab:LDA&57FF:STA&A00,Y:JMPbaca
�& .delbb:LDA&57FF:STA&B00,Y:JMPbacb
�	]:�:�
���delete:�?&BA0=0��
�!�loop=&BB0�(?&BA0)+&BAF:tot=0
�:tot=(?loop)*&FF+?(loop+1):xpos=totMOD 19:ypos=tot � 19
�*�xpos,ypos*2);" ";�xpos,ypos*2+1);" "
��:�
���die:�sou$="Y"��1,-7,0,50
�-�19,0,1,0;0;0;:live=live-1:�19,0,0,0;0;0;
�imortal=�:�
���whats
�� mons<=2 � �duE � �dzE
��x=mons �4
�
�admon
��x
�#�0,31);score;�10,31);live;" ";
�
��admon
� mons=21 � �
"xp=�(20)-1:yp=�(15)-1
, � ?(&A00+xp+yp*20)<>0 � �TbF
6?(&A00+xp+yp*20)=4
@/mons(mons,0)=xp:mons(mons,1)=yp:mons=mons+1
J�
T��badmove:res=mons
^:�mons=0�res-1:monadd=&9FF+mons(mons,0)+mons(mons,1)*20
h-conten$="LEFT":�good:�result=� ��bhit:�:�
r.conten$="RIGHT":�good:�result=� ��bhit:�:�
|+conten$="UP":�good:�result=� ��bhit:�:�
�-conten$="DOWN":�good:�result=� ��bhit:�:�
�Gdir=�(4):�dir=1�?monadd=0�?monadd=4:mons(mons,0)=mons(mons,0)-1:�:�
�F�dir=2�?(monadd+2)=0�?(monadd+2)=4:mons(mons,0)=mons(mons,0)+1:�:�
�H�dir=3�?(monadd-19)=0�?(monadd-19)=4:mons(mons,1)=mons(mons,1)-1:�:�
�H�dir=4�?(monadd+21)=0�?(monadd+21)=4:mons(mons,1)=mons(mons,1)+1:�:�
�	�tPF
�
��draw
�4�l=3��3:�xpos,ypos);�(138);�xpos,ypos+1);�(139)
�4�l=6��3:�xpos,ypos);�(134);�xpos,ypos+1);�(135)
�4�l=7��2:�xpos,ypos);�(136);�xpos,ypos+1);�(137)
�4�l=8��1:�xpos,ypos);�(140);�xpos,ypos+1);�(141)
��
���bhit:�

��good
)�conten$="LEFT"�adofquest=-1:x=-1:y=0
(�conten$="RIGHT"�adofquest=1:x=1:y=0
(�conten$="UP"�adofquest=-20:y=-1:x=0
&(�conten$="DOWN"�adofquest=20:x=0:y=1
09monhit=?(&A00+adofquest+mons(mons,0)+mons(mons,1)*20)
:� monhit<3�result=�
D)� monhit=3��admon:�movemon:result=�:�
N � monhit=4�result=�:�
X+� monhit=5��moveuxb:result=�:�movemon:�
b"� monhit<9��movemon:result=�:�
l� monhit=9�result=�:�
v(� monhit=20�result=�:�die:�movemon:�
��
�
��movemon
�4?(&A00+adofquest+mons(mons,0)+mons(mons,1)*20)=4
�*?(&A00+mons(mons,0)+mons(mons,1)*20)=0
�J�mons(mons,0),mons(mons,1)*2);" ";�mons(mons,0),mons(mons,1)*2+1);" "
�R�mons(mons,0)+x,mons(mons,1)*2+y);" ";�mons(mons,0)+x,mons(mons,1)*2+1+y);" "
��
�
��moveuxb
�3ac=�(20)-1:do=�(15)-1:�?(&A00+ac+do*20)<>0��dPG
�?(&A00+ac+do*20)=5:�
�	��lay
�� �(50)<>8 � �
��moveuxb
�
�

00000000  0d 00 0a 30 de 73 63 6f  72 24 28 31 39 29 3a de  |...0.scor$(19):.|
00000010  73 63 6f 72 28 32 30 29  3a 6c 65 76 3d 31 3a eb  |scor(20):lev=1:.|
00000020  36 3a 2a 4c 4f 41 44 20  4d 65 67 61 64 61 74 61  |6:*LOAD Megadata|
00000030  0d 00 14 24 73 63 6f 72  24 28 30 29 3d 22 50 72  |...$scor$(0)="Pr|
00000040  6f 6f 7a 79 22 3a 73 63  6f 72 28 30 29 3d 35 30  |oozy":scor(0)=50|
00000050  30 38 3a db 0d 00 1e 2a  73 63 6f 72 24 28 31 29  |08:....*scor$(1)|
00000060  3d 22 54 68 65 20 54 4e  54 20 4d 61 73 74 65 72  |="The TNT Master|
00000070  22 3a 73 63 6f 72 28 31  29 3d 35 38 32 34 0d 00  |":scor(1)=5824..|
00000080  28 21 73 63 6f 72 24 28  32 29 3d 22 4d 61 69 72  |(!scor$(2)="Mair|
00000090  6f 22 3a 73 63 6f 72 28  32 29 3d 36 30 30 31 0d  |o":scor(2)=6001.|
000000a0  00 32 2b 73 63 6f 72 24  28 33 29 3d 22 53 6f 6e  |.2+scor$(3)="Son|
000000b0  69 63 22 3a 73 63 6f 72  28 33 29 3d 36 32 38 39  |ic":scor(3)=6289|
000000c0  3a f2 61 73 73 65 6d 62  6c 65 0d 00 3c 21 73 63  |:.assemble..<!sc|
000000d0  6f 72 24 28 34 29 3d 22  4d 75 6d 6d 79 22 3a 73  |or$(4)="Mummy":s|
000000e0  63 6f 72 28 34 29 3d 36  37 32 34 0d 00 46 21 73  |cor(4)=6724..F!s|
000000f0  63 6f 72 24 28 35 29 3d  22 44 61 64 64 79 22 3a  |cor$(5)="Daddy":|
00000100  73 63 6f 72 28 35 29 3d  36 37 34 31 0d 00 50 22  |scor(5)=6741..P"|
00000110  73 63 6f 72 24 28 36 29  3d 22 44 72 2e 57 68 6f  |scor$(6)="Dr.Who|
00000120  22 3a 73 63 6f 72 28 36  29 3d 37 36 34 37 0d 00  |":scor(6)=7647..|
00000130  5a 26 73 63 6f 72 24 28  37 29 3d 22 43 31 36 22  |Z&scor$(7)="C16"|
00000140  3a 73 63 6f 72 28 37 29  3d 37 39 38 32 3a f2 73  |:scor(7)=7982:.s|
00000150  6f 75 6e 64 0d 00 64 24  73 63 6f 72 24 28 38 29  |ound..d$scor$(8)|
00000160  3d 22 45 6c 65 63 74 72  6f 6e 22 3a 73 63 6f 72  |="Electron":scor|
00000170  28 38 29 3d 39 30 32 38  0d 00 6e 24 73 63 6f 72  |(8)=9028..n$scor|
00000180  24 28 39 29 3d 22 53 70  65 63 74 72 75 6d 22 3a  |$(9)="Spectrum":|
00000190  73 63 6f 72 28 39 29 3d  39 38 30 32 0d 00 78 25  |scor(9)=9802..x%|
000001a0  73 63 6f 72 24 28 31 30  29 3d 22 52 65 70 74 6f  |scor$(10)="Repto|
000001b0  6e 22 3a 73 63 6f 72 28  31 30 29 3d 31 30 30 32  |n":scor(10)=1002|
000001c0  34 0d 00 82 2c 73 63 6f  72 24 28 31 31 29 3d 22  |4...,scor$(11)="|
000001d0  50 65 72 63 79 20 50 65  6e 71 75 69 6e 22 3a 73  |Percy Penquin":s|
000001e0  63 6f 72 28 31 31 29 3d  31 30 38 37 34 0d 00 8c  |cor(11)=10874...|
000001f0  22 73 63 6f 72 24 28 31  32 29 3d 22 52 6f 6d 22  |"scor$(12)="Rom"|
00000200  3a 73 63 6f 72 28 31 32  29 3d 31 31 30 31 33 0d  |:scor(12)=11013.|
00000210  00 96 22 73 63 6f 72 24  28 31 33 29 3d 22 52 61  |.."scor$(13)="Ra|
00000220  6d 22 3a 73 63 6f 72 28  31 33 29 3d 31 31 30 38  |m":scor(13)=1108|
00000230  39 0d 00 a0 22 73 63 6f  72 24 28 31 34 29 3d 22  |9..."scor$(14)="|
00000240  43 36 34 22 3a 73 63 6f  72 28 31 34 29 3d 31 31  |C64":scor(14)=11|
00000250  38 37 34 0d 00 aa 24 73  63 6f 72 24 28 31 35 29  |874...$scor$(15)|
00000260  3d 22 42 65 61 6e 6f 22  3a 73 63 6f 72 28 31 35  |="Beano":scor(15|
00000270  29 3d 31 32 34 38 32 0d  00 b4 24 73 63 6f 72 24  |)=12482...$scor$|
00000280  28 31 36 29 3d 22 54 69  67 65 72 22 3a 73 63 6f  |(16)="Tiger":sco|
00000290  72 28 31 36 29 3d 31 33  30 31 32 0d 00 be 25 73  |r(16)=13012...%s|
000002a0  63 6f 72 24 28 31 37 29  3d 22 50 6f 6f 64 6c 65  |cor$(17)="Poodle|
000002b0  22 3a 73 63 6f 72 28 31  37 29 3d 31 33 39 39 37  |":scor(17)=13997|
000002c0  0d 00 c8 23 73 63 6f 72  24 28 31 38 29 3d 22 4a  |...#scor$(18)="J|
000002d0  75 64 79 22 3a 73 63 6f  72 28 31 38 29 3d 31 34  |udy":scor(18)=14|
000002e0  35 31 32 0d 00 d2 24 73  63 6f 72 24 28 31 39 29  |512...$scor$(19)|
000002f0  3d 22 57 6f 6f 7a 79 22  3a 73 63 6f 72 28 31 39  |="Woozy":scor(19|
00000300  29 3d 35 37 38 34 36 0d  00 dc 33 ef 32 33 2c 31  |)=57846...3.23,1|
00000310  32 38 2c 32 35 35 2c 31  38 39 2c 32 35 35 2c 32  |28,255,189,255,2|
00000320  34 2c 32 34 2c 31 32 36  2c 39 30 2c 36 36 3a de  |4,24,126,90,66:.|
00000330  6d 6f 6e 73 28 32 30 2c  31 29 0d 00 e6 2b ef 32  |mons(20,1)...+.2|
00000340  33 2c 31 32 39 2c 31 30  32 2c 32 35 35 2c 32 35  |3,129,102,255,25|
00000350  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000360  35 2c 32 35 35 0d 00 f0  27 ef 32 33 2c 31 33 30  |5,255...'.23,130|
00000370  2c 32 34 2c 32 34 2c 36  30 2c 36 30 2c 31 32 36  |,24,24,60,60,126|
00000380  2c 31 32 36 2c 32 35 35  2c 32 35 35 0d 00 fa 27  |,126,255,255...'|
00000390  ef 32 33 2c 31 33 31 2c  32 35 35 2c 32 35 35 2c  |.23,131,255,255,|
000003a0  31 32 36 2c 31 32 36 2c  36 30 2c 36 30 2c 32 34  |126,126,60,60,24|
000003b0  2c 32 34 0d 01 04 23 ef  32 33 2c 31 33 32 2c 36  |,24...#.23,132,6|
000003c0  34 2c 39 36 2c 34 38 2c  32 34 2c 38 2c 32 34 2c  |4,96,48,24,8,24,|
000003d0  36 30 2c 31 32 36 0d 01  0e 29 ef 32 33 2c 31 33  |60,126...).23,13|
000003e0  33 2c 31 30 32 2c 31 30  36 2c 31 30 32 2c 31 30  |3,102,106,102,10|
000003f0  36 2c 31 30 32 2c 31 32  36 2c 36 30 2c 32 34 0d  |6,102,126,60,24.|
00000400  01 18 21 ef 32 33 2c 31  33 34 2c 30 2c 30 2c 36  |..!.23,134,0,0,6|
00000410  30 2c 36 30 2c 36 30 2c  36 30 2c 36 30 2c 36 30  |0,60,60,60,60,60|
00000420  0d 01 22 21 ef 32 33 2c  31 33 35 2c 36 30 2c 36  |.."!.23,135,60,6|
00000430  30 2c 36 30 2c 36 30 2c  36 30 2c 36 30 2c 30 2c  |0,60,60,60,60,0,|
00000440  30 0d 01 2c 25 ef 32 33  2c 31 33 36 2c 32 34 2c  |0..,%.23,136,24,|
00000450  32 34 2c 32 34 2c 32 35  35 2c 32 35 35 2c 32 34  |24,24,255,255,24|
00000460  2c 32 34 2c 32 34 0d 01  36 23 ef 32 33 2c 31 33  |,24,24..6#.23,13|
00000470  37 2c 32 34 2c 32 34 2c  32 34 2c 32 34 2c 32 34  |7,24,24,24,24,24|
00000480  2c 32 34 2c 32 34 2c 32  34 0d 01 40 21 ef 32 33  |,24,24,24..@!.23|
00000490  2c 31 33 38 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,138,0,0,0,0,0,1|
000004a0  32 36 2c 31 32 36 2c 31  32 36 0d 01 4a 2b ef 32  |26,126,126..J+.2|
000004b0  33 2c 31 33 39 2c 31 32  36 2c 31 32 36 2c 31 32  |3,139,126,126,12|
000004c0  36 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 31 32  |6,126,126,126,12|
000004d0  36 2c 31 32 36 0d 01 54  2a ef 32 33 2c 31 34 30  |6,126..T*.23,140|
000004e0  2c 32 34 2c 31 32 36 2c  32 35 35 2c 31 32 36 2c  |,24,126,255,126,|
000004f0  31 38 39 2c 32 31 39 2c  32 31 33 2c 32 35 35 0d  |189,219,213,255.|
00000500  01 5e 2a ef 32 33 2c 31  34 31 2c 32 35 35 2c 32  |.^*.23,141,255,2|
00000510  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000520  35 35 2c 31 32 36 2c 32  34 0d 01 68 24 ef 32 33  |55,126,24..h$.23|
00000530  2c 31 34 32 2c 31 36 2c  31 36 2c 32 34 2c 32 34  |,142,16,16,24,24|
00000540  2c 32 34 2c 32 34 2c 32  38 2c 32 35 34 0d 01 72  |,24,24,28,254..r|
00000550  22 ef 32 33 2c 31 34 33  2c 31 32 37 2c 35 36 2c  |".23,143,127,56,|
00000560  32 34 2c 32 34 2c 32 34  2c 32 34 2c 38 2c 38 0d  |24,24,24,24,8,8.|
00000570  01 7c 2b ef 32 33 2c 31  34 34 2c 31 32 36 2c 31  |.|+.23,144,126,1|
00000580  37 31 2c 32 31 33 2c 31  37 31 2c 32 31 33 2c 31  |71,213,171,213,1|
00000590  37 31 2c 32 31 33 2c 31  32 36 0d 01 86 19 eb 34  |71,213,126.....4|
000005a0  3a f1 8a 31 35 2c 30 29  3b 22 4d 65 67 61 4c 61  |:..15,0);"MegaLa|
000005b0  6e 64 22 0d 01 90 16 f1  8a 31 35 2c 31 29 3b 22  |nd"......15,1);"|
000005c0  3d 3d 3d 3d 3d 3d 3d 3d  22 0d 01 9a 0d e3 6c 6f  |========".....lo|
000005d0  70 3d 30 b8 31 39 0d 01  a4 30 f1 8a 35 2c 32 33  |p=0.19...0..5,23|
000005e0  2d 6c 6f 70 29 3b 73 63  6f 72 24 28 6c 6f 70 29  |-lop);scor$(lop)|
000005f0  3b 8a 33 30 2c 32 33 2d  6c 6f 70 29 3b 73 63 6f  |;.30,23-lop);sco|
00000600  72 28 6c 6f 70 29 0d 01  ae 05 ed 0d 01 b8 2b f1  |r(lop)........+.|
00000610  8a 36 2c 33 30 29 3b 22  50 72 65 73 73 20 74 68  |.6,30);"Press th|
00000620  65 20 73 70 61 63 65 20  62 61 72 20 74 6f 20 73  |e space bar to s|
00000630  74 61 72 74 2e 22 0d 01  c2 36 f1 8a 35 2c 32 36  |tart."...6..5,26|
00000640  29 3b 22 49 20 77 6f 75  6c 64 20 6c 69 6b 65 20  |);"I would like |
00000650  74 6f 20 73 74 61 72 74  20 6f 6e 20 6c 65 76 65  |to start on leve|
00000660  6c 20 22 3b 6c 65 76 3b  22 2e 20 22 0d 01 cc 15  |l ";lev;". "....|
00000670  e7 a6 28 2d 37 33 29 8c  6c 65 76 3d 6c 65 76 2b  |..(-73).lev=lev+|
00000680  31 0d 01 d6 16 e7 a6 28  2d 31 30 35 29 8c 6c 65  |1......(-105).le|
00000690  76 3d 6c 65 76 2d 31 0d  01 e0 1f e7 6c 65 76 3c  |v=lev-1.....lev<|
000006a0  31 8c 6c 65 76 3d 31 8b  e7 6c 65 76 3e 35 30 8c  |1.lev=1..lev>50.|
000006b0  6c 65 76 3d 35 30 0d 01  ea 10 e7 a6 28 2d 39 39  |lev=50......(-99|
000006c0  29 8c 8d 64 7e 41 0d 01  f4 09 e5 8d 64 42 41 0d  |)..d~A......dBA.|
000006d0  01 fe 0f eb 35 3a fb 31  3a f2 69 6e 69 74 0d 02  |....5:.1:.init..|
000006e0  08 12 f2 6d 6f 76 65 3a  f2 6f 62 6a 65 63 74 73  |...move:.objects|
000006f0  0d 02 12 21 f2 62 61 64  6d 6f 76 65 3a 6d 6f 6e  |...!.badmove:mon|
00000700  73 3d 72 65 73 3a f2 77  68 61 74 73 3a f2 6c 61  |s=res:.whats:.la|
00000710  79 0d 02 1c 18 e7 6c 69  76 65 3c 3d 2d 31 8c f2  |y.....live<=-1..|
00000720  65 6e 64 3a e5 8d 74 46  41 0d 02 26 1e e7 63 6c  |end:..tFA..&..cl|
00000730  6f 63 6b 3d a8 28 28 6c  65 76 2f 32 29 2a 32 29  |ock=.((lev/2)*2)|
00000740  8c f2 6c 65 76 75 70 0d  02 30 09 e5 8d 54 48 42  |..levup..0...THB|
00000750  0d 02 3a 31 dd f2 73 63  72 65 65 6e 3a 61 64 64  |..:1..screen:add|
00000760  3d 26 33 46 46 46 2b 28  28 6c 65 76 2d 31 29 83  |=&3FFF+((lev-1).|
00000770  35 30 29 2a 36 30 3a 61  73 61 76 65 3d 26 41 30  |50)*60:asave=&A0|
00000780  30 0d 02 44 32 e3 6c 6f  3d 30 b8 31 34 3a e3 6c  |0..D2.lo=0.14:.l|
00000790  6f 70 3d 30 b8 33 3a 61  64 64 3d 61 64 64 2b 31  |op=0.3:add=add+1|
000007a0  3a 61 64 64 63 6f 6d 3d  3f 61 64 64 3a 3f 61 64  |:addcom=?add:?ad|
000007b0  64 3d 30 0d 02 4e 34 e3  6c 70 3d 31 b8 35 3a e7  |d=0..N4.lp=1.5:.|
000007c0  61 64 64 63 6f 6d 3d 30  8c 72 65 6d 3d 30 8b 72  |addcom=0.rem=0.r|
000007d0  65 6d 3d 33 83 a8 28 61  64 64 63 6f 6d 2f 33 5e  |em=3..(addcom/3^|
000007e0  6c 70 2d 30 2e 35 29 0d  02 58 31 3f 61 73 61 76  |lp-0.5)..X1?asav|
000007f0  65 3d 72 65 6d 3a e7 72  65 6d 3d 31 8c f1 8a 6c  |e=rem:.rem=1...l|
00000800  6f 70 2a 35 2b 28 6c 70  2d 31 29 2c 32 2a 6c 6f  |op*5+(lp-1),2*lo|
00000810  29 3b bd 28 31 34 34 29  0d 02 62 28 e7 72 65 6d  |);.(144)..b(.rem|
00000820  3d 31 8c f1 8a 6c 6f 70  2a 35 2b 28 6c 70 2d 31  |=1...lop*5+(lp-1|
00000830  29 2c 32 2a 6c 6f 2b 31  29 3b bd 28 31 34 34 29  |),2*lo+1);.(144)|
00000840  0d 02 6c 25 61 73 61 76  65 3d 61 73 61 76 65 2b  |..l%asave=asave+|
00000850  31 3a ed 2c 2c 3a f2 63  6c 6f 63 6b 3a f2 63 6c  |1:.,,:.clock:.cl|
00000860  6f 63 6b 3a e1 0d 02 76  0a dd f2 69 6e 69 74 0d  |ock:...v...init.|
00000870  02 80 2e 63 6c 6f 63 6b  3d 30 3a 73 63 6f 72 65  |...clock=0:score|
00000880  3d 30 3a 6c 69 76 65 3d  33 3a ef 32 33 2c 31 2c  |=0:live=3:.23,1,|
00000890  30 3b 30 3b 30 3b 3a 6d  6f 6e 73 3d 30 0d 02 8a  |0;0;0;:mons=0...|
000008a0  27 f2 73 63 72 65 65 6e  3a 69 6d 6f 72 74 61 6c  |'.screen:imortal|
000008b0  3d 91 3a 69 6d 6f 6c 64  3d 30 3a 79 61 3d 31 3a  |=.:imold=0:ya=1:|
000008c0  79 62 3d 31 0d 02 94 05  e1 0d 02 9e 2c dd f2 6c  |yb=1........,..l|
000008d0  65 76 75 70 3a e7 73 6f  75 24 3d 22 59 22 8c d4  |evup:.sou$="Y"..|
000008e0  31 2c 2d 37 2c 35 32 2c  32 3a d4 31 2c 2d 37 2c  |1,-7,52,2:.1,-7,|
000008f0  31 30 30 2c 35 0d 02 a8  06 fb 31 0d 02 b2 1d 6c  |100,5.....1....l|
00000900  65 76 3d 6c 65 76 2b 31  3a f2 73 63 72 65 65 6e  |ev=lev+1:.screen|
00000910  3a 63 6c 6f 63 6b 3d 30  0d 02 bc 27 e7 a8 28 28  |:clock=0...'..((|
00000920  6c 65 76 2d 31 29 2f 34  29 3d 28 6c 65 76 2d 31  |lev-1)/4)=(lev-1|
00000930  29 2f 34 8c 6c 69 76 65  3d 6c 69 76 65 2b 31 0d  |)/4.live=live+1.|
00000940  02 c6 17 69 6d 6f 72 74  61 6c 3d 91 3a 69 6d 6f  |...imortal=.:imo|
00000950  6c 64 3d 30 3a e1 0d 02  d0 09 dd f2 65 6e 64 0d  |ld=0:.......end.|
00000960  02 da 35 fb 33 3a f1 8a  35 2c 31 30 29 3b 22 47  |..5.3:..5,10);"G|
00000970  61 6d 65 20 4f 76 65 72  22 3a e3 78 3d 30 b8 31  |ame Over":.x=0.1|
00000980  30 30 30 3a ed 3a e7 73  6f 75 24 3d 22 4e 22 8c  |000:.:.sou$="N".|
00000990  8d 64 6e 42 0d 02 e4 24  d4 31 2c 2d 37 2c 35 36  |.dnB...$.1,-7,56|
000009a0  2c 35 3a d4 31 2c 2d 37  2c 36 34 2c 35 3a d4 31  |,5:.1,-7,64,5:.1|
000009b0  2c 2d 37 2c 37 36 2c 35  0d 02 ee 14 e7 73 63 6f  |,-7,76,5.....sco|
000009c0  72 65 3c 73 63 6f 72 28  30 29 8c e1 0d 02 f8 10  |re<scor(0)......|
000009d0  63 68 65 63 6b 3d 2d 31  3a 6d 3d 30 0d 03 02 32  |check=-1:m=0...2|
000009e0  f5 3a 63 68 65 63 6b 3d  63 68 65 63 6b 2b 31 3a  |.:check=check+1:|
000009f0  fd 73 63 6f 72 65 3c 3d  73 63 6f 72 28 63 68 65  |.score<=scor(che|
00000a00  63 6b 2b 31 29 84 63 68  65 63 6b 3d 32 30 0d 03  |ck+1).check=20..|
00000a10  0c 2a e3 6c 6f 70 3d 31  b8 63 68 65 63 6b 3a 73  |.*.lop=1.check:s|
00000a20  63 6f 72 28 63 68 65 63  6b 2d 31 29 3d 73 63 6f  |cor(check-1)=sco|
00000a30  72 28 63 68 65 63 6b 29  0d 03 16 43 20 73 63 6f  |r(check)...C sco|
00000a40  72 24 28 63 68 65 63 6b  2d 31 29 3d 73 63 6f 72  |r$(check-1)=scor|
00000a50  24 28 63 68 65 63 6b 29  3a ed 3a 73 63 6f 72 65  |$(check):.:score|
00000a60  3d 73 63 6f 72 28 63 68  65 63 6b 29 3a e7 73 6f  |=scor(check):.so|
00000a70  75 24 3d 22 4e 22 8c 8d  54 6a 43 0d 03 20 24 d4  |u$="N"..TjC.. $.|
00000a80  31 2c 2d 37 2c 34 38 2c  35 3a d4 31 2c 2d 37 2c  |1,-7,48,5:.1,-7,|
00000a90  35 32 2c 35 3a d4 31 2c  2d 37 2c 35 36 2c 35 0d  |52,5:.1,-7,56,5.|
00000aa0  03 2a 2c e8 8a 32 2c 31  32 29 3b 22 57 68 61 74  |.*,..2,12);"What|
00000ab0  20 69 73 20 79 6f 75 72  20 6e 61 6d 65 22 3b 73  | is your name";s|
00000ac0  63 6f 72 24 28 63 68 65  63 6b 29 0d 03 34 36 e7  |cor$(check)..46.|
00000ad0  20 a9 28 73 63 6f 72 24  28 63 68 65 63 6b 29 29  | .(scor$(check))|
00000ae0  3c 31 39 8c f1 8a 32 2c  31 32 29 3b 22 4d 61 78  |<19...2,12);"Max|
00000af0  20 32 30 20 6c 65 74 74  65 72 73 2e 22 3a 6d 3d  | 20 letters.":m=|
00000b00  31 0d 03 3e 1d e7 20 6d  3d 31 20 8c 20 e3 49 3d  |1..>.. m=1 . .I=|
00000b10  30 b8 31 30 30 30 3a ed  3a e5 8d 54 6a 43 0d 03  |0.1000:.:..TjC..|
00000b20  48 05 e1 0d 03 52 11 dd  f2 73 6f 75 6e 64 3a 6c  |H....R...sound:l|
00000b30  65 76 3d 30 0d 03 5c 16  f1 8a 31 35 2c 30 29 3b  |ev=0..\...15,0);|
00000b40  22 4d 65 67 61 4c 61 6e  64 22 0d 03 66 16 f1 8a  |"MegaLand"..f...|
00000b50  31 35 2c 31 29 3b 22 3d  3d 3d 3d 3d 3d 3d 3d 22  |15,1);"========"|
00000b60  0d 03 70 22 20 f1 8a 31  35 2c 31 35 29 3b 22 53  |..p" ..15,15);"S|
00000b70  6f 75 6e 64 20 28 59 2f  4e 29 22 3a 73 6f 75 24  |ound (Y/N)":sou$|
00000b80  3d be 0d 03 7a 1d e7 73  6f 75 24 3c 3e 22 4e 22  |=...z..sou$<>"N"|
00000b90  80 73 6f 75 24 3c 3e 22  59 22 8c 8d 44 70 43 0d  |.sou$<>"Y"..DpC.|
00000ba0  03 84 05 e1 0d 03 8e 2f  dd f2 6d 6f 76 65 3a 79  |......./..move:y|
00000bb0  61 64 64 3d 79 61 2b 79  62 2a 32 30 2b 26 41 30  |add=ya+yb*20+&A0|
00000bc0  30 3a 79 61 6f 6c 64 3d  79 61 3a 79 62 6f 6c 64  |0:yaold=ya:ybold|
00000bd0  3d 79 62 0d 03 98 2d e7  a6 28 2d 39 38 29 80 3f  |=yb...-..(-98).?|
00000be0  28 79 61 64 64 2d 31 29  3c 3e 31 80 3f 28 79 61  |(yadd-1)<>1.?(ya|
00000bf0  64 64 2d 31 29 3c 3e 32  8c 79 61 3d 79 61 2d 31  |dd-1)<>2.ya=ya-1|
00000c00  0d 03 a2 2d e7 a6 28 2d  36 37 29 80 3f 28 79 61  |...-..(-67).?(ya|
00000c10  64 64 2b 31 29 3c 3e 31  80 3f 28 79 61 64 64 2b  |dd+1)<>1.?(yadd+|
00000c20  31 29 3c 3e 32 8c 79 61  3d 79 61 2b 31 0d 03 ac  |1)<>2.ya=ya+1...|
00000c30  2f e7 a6 28 2d 37 33 29  80 3f 28 79 61 64 64 2d  |/..(-73).?(yadd-|
00000c40  32 30 29 3c 3e 31 80 3f  28 79 61 64 64 2d 32 30  |20)<>1.?(yadd-20|
00000c50  29 3c 3e 32 8c 79 62 3d  79 62 2d 31 0d 03 b6 30  |)<>2.yb=yb-1...0|
00000c60  e7 a6 28 2d 31 30 35 29  80 3f 28 79 61 64 64 2b  |..(-105).?(yadd+|
00000c70  32 30 29 3c 3e 31 80 3f  28 79 61 64 64 2b 32 30  |20)<>1.?(yadd+20|
00000c80  29 3c 3e 32 8c 79 62 3d  79 62 2b 31 0d 03 c0 14  |)<>2.yb=yb+1....|
00000c90  e7 79 61 6f 6c 64 3c 3e  79 61 20 8c f2 68 69 74  |.yaold<>ya ..hit|
00000ca0  0d 03 ca 14 e7 79 62 6f  6c 64 3c 3e 79 62 20 8c  |.....ybold<>yb .|
00000cb0  f2 68 69 74 0d 03 d4 14  f1 8a 79 61 2c 79 62 2a  |.hit......ya,yb*|
00000cc0  32 29 3b 22 2a 22 3a e1  0d 03 de 2a dd f2 68 69  |2);"*":....*..hi|
00000cd0  74 3a f2 72 65 64 72 61  77 3a 3f 28 79 61 6f 6c  |t:.redraw:?(yaol|
00000ce0  64 2b 79 62 6f 6c 64 2a  32 30 2b 26 41 30 30 29  |d+ybold*20+&A00)|
00000cf0  3d 30 0d 03 e8 2f 79 6f  75 68 69 74 3d 3f 28 79  |=0.../youhit=?(y|
00000d00  61 2b 79 62 2a 32 30 2b  26 41 30 30 29 3a 3f 28  |a+yb*20+&A00):?(|
00000d10  79 61 2b 79 62 2a 32 30  2b 26 41 30 30 29 3d 32  |ya+yb*20+&A00)=2|
00000d20  30 0d 03 f2 0f e7 79 6f  75 68 69 74 3d 33 8c e1  |0.....youhit=3..|
00000d30  0d 03 fc 20 e7 79 6f 75  68 69 74 3c 36 80 69 6d  |... .youhit<6.im|
00000d40  6f 72 74 61 6c 3c 91 2d  35 30 30 8c f2 64 69 65  |ortal<.-500..die|
00000d50  0d 04 06 0f e7 79 6f 75  68 69 74 3c 36 8c e1 0d  |.....youhit<6...|
00000d60  04 10 26 e7 79 6f 75 68  69 74 3d 36 8c 73 63 6f  |..&.youhit=6.sco|
00000d70  72 65 3d 73 63 6f 72 65  2b b3 28 35 30 30 29 2b  |re=score+.(500)+|
00000d80  35 30 30 3a e1 0d 04 1a  1b e7 79 6f 75 68 69 74  |500:......youhit|
00000d90  3d 37 8c 6d 6f 6e 73 3d  6d 6f 6e 73 2d 31 3a e1  |=7.mons=mons-1:.|
00000da0  0d 04 24 18 e7 79 6f 75  68 69 74 3d 38 8c f2 64  |..$..youhit=8..d|
00000db0  65 73 74 72 6f 79 3a e1  0d 04 2e 24 e7 79 6f 75  |estroy:....$.you|
00000dc0  68 69 74 3d 39 8c 63 6c  6f 63 6b 3d 63 6c 6f 63  |hit=9.clock=cloc|
00000dd0  6b 2b 31 3a f2 63 6c 6f  63 6b 3a e1 0d 04 38 05  |k+1:.clock:...8.|
00000de0  e1 0d 04 42 0c dd f2 72  65 64 72 61 77 0d 04 4c  |...B...redraw..L|
00000df0  28 f1 8a 79 61 2c 79 62  2a 32 29 3b bd 28 31 32  |(..ya,yb*2);.(12|
00000e00  38 29 3b 8a 79 61 2c 79  62 2a 32 2b 31 29 3b bd  |8);.ya,yb*2+1);.|
00000e10  28 31 32 39 29 0d 04 56  2e f1 8a 79 61 6f 6c 64  |(129)..V...yaold|
00000e20  2c 79 62 6f 6c 64 2a 32  29 3b 22 20 22 3b 8a 79  |,ybold*2);" ";.y|
00000e30  61 6f 6c 64 2c 79 62 6f  6c 64 2a 32 2b 31 29 3b  |aold,ybold*2+1);|
00000e40  22 20 22 0d 04 60 05 e1  0d 04 6a 0d dd f2 64 65  |" "..`....j...de|
00000e50  73 74 72 6f 79 0d 04 74  0c 3f 26 35 37 46 45 3d  |stroy..t.?&57FE=|
00000e60  35 0d 04 7e 0c 3f 26 35  37 46 46 3d 30 0d 04 88  |5..~.?&57FF=0...|
00000e70  11 d6 26 44 30 30 3a f2  64 65 6c 65 74 65 0d 04  |..&D00:.delete..|
00000e80  92 05 e1 0d 04 9c 0b dd  f2 63 6c 6f 63 6b 0d 04  |.........clock..|
00000e90  a6 18 e7 20 63 6c 6f 63  6b 3d a8 28 6c 65 76 2f  |... clock=.(lev/|
00000ea0  32 29 2a 32 8c e1 0d 04  b0 2c e7 20 63 6c 6f 63  |2)*2.....,. cloc|
00000eb0  6b 2f 32 3c 3e a8 28 63  6c 6f 63 6b 2f 32 8c 45  |k/2<>.(clock/2.E|
00000ec0  4e 44 50 52 4f 43 45 4c  53 45 46 4f 52 49 3d 30  |NDPROCELSEFORI=0|
00000ed0  b8 31 0d 04 ba 19 61 63  3d b3 28 32 30 29 2d 31  |.1....ac=.(20)-1|
00000ee0  3a 64 6f 3d b3 28 31 35  29 2d 31 0d 04 c4 1d e7  |:do=.(15)-1.....|
00000ef0  3f 28 61 63 2b 64 6f 2a  32 30 2b 26 41 30 30 29  |?(ac+do*20+&A00)|
00000f00  3c 3e 30 8c 8d 74 7a 44  0d 04 ce 42 3f 28 61 63  |<>0..tzD...B?(ac|
00000f10  2b 64 6f 2a 32 30 2b 26  41 30 30 29 3d 39 3a fb  |+do*20+&A00)=9:.|
00000f20  32 3a f1 8a 61 63 2c 64  6f 2a 32 29 3b bd 28 31  |2:..ac,do*2);.(1|
00000f30  33 30 29 3b 8a 61 63 2c  64 6f 2a 32 2b 31 29 3b  |30);.ac,do*2+1);|
00000f40  bd 28 31 33 31 29 3a ed  3a e1 0d 04 d8 0d dd f2  |.(131):.:.......|
00000f50  6f 62 6a 65 63 74 73 0d  04 e2 11 e7 20 b3 28 37  |objects..... .(7|
00000f60  35 29 3c 3e 35 30 8c e1  0d 04 ec 1d e3 6c 3d 33  |5)<>50.......l=3|
00000f70  b8 38 3a e7 b3 28 36 29  3c 3e 32 84 6c 3d 34 84  |.8:..(6)<>2.l=4.|
00000f80  6c 3d 35 8c ed 0d 04 f6  2e 3f 26 35 37 46 45 3d  |l=5......?&57FE=|
00000f90  6c 3a 3f 26 35 37 46 46  3d 30 3a d6 26 44 30 30  |l:?&57FF=0:.&D00|
00000fa0  3a f2 64 65 6c 65 74 65  3a e3 6c 6f 3d 31 b8 b3  |:.delete:.lo=1..|
00000fb0  28 33 29 0d 05 00 1d 78  70 6f 73 3d b3 28 32 30  |(3)....xpos=.(20|
00000fc0  29 2d 31 3a 79 70 6f 73  3d b3 28 31 35 29 2d 31  |)-1:ypos=.(15)-1|
00000fd0  0d 05 0a 24 e7 20 3f 28  26 41 30 30 2b 78 70 6f  |...$. ?(&A00+xpo|
00000fe0  73 2b 79 70 6f 73 2a 32  30 29 3c 3e 30 20 8c 20  |s+ypos*20)<>0 . |
00000ff0  8d 54 40 45 0d 05 14 23  3f 28 26 41 30 30 2b 78  |.T@E...#?(&A00+x|
00001000  70 6f 73 2b 79 70 6f 73  2a 32 30 29 3d 6c 3a f2  |pos+ypos*20)=l:.|
00001010  64 72 61 77 3a ed 2c 0d  05 1e 05 e1 0d 05 28 0e  |draw:.,.......(.|
00001020  dd f2 61 73 73 65 6d 62  6c 65 0d 05 32 0e e3 6c  |..assemble..2..l|
00001030  6f 70 3d 30 b8 32 88 32  0d 05 3c 0b 50 25 3d 26  |op=0.2.2..<.P%=&|
00001040  44 30 30 0d 05 46 0c 5b  4f 50 54 20 6c 6f 70 0d  |D00..F.[OPT lop.|
00001050  05 50 23 20 4c 44 59 23  30 3a 2e 64 65 6c 61 20  |.P# LDY#0:.dela |
00001060  4c 44 58 26 41 30 30 2c  59 3a 43 50 58 26 35 37  |LDX&A00,Y:CPX&57|
00001070  46 45 0d 05 5a 27 20 42  45 51 64 65 6c 61 62 3a  |FE..Z' BEQdelab:|
00001080  2e 62 61 63 61 20 49 4e  59 3a 43 50 59 23 26 46  |.baca INY:CPY#&F|
00001090  46 3a 42 4e 45 64 65 6c  61 0d 05 64 23 20 4c 44  |F:BNEdela..d# LD|
000010a0  59 23 30 3a 2e 64 65 6c  62 20 4c 44 58 26 42 30  |Y#0:.delb LDX&B0|
000010b0  30 2c 59 3a 43 50 58 26  35 37 46 45 0d 05 6e 2b  |0,Y:CPX&57FE..n+|
000010c0  20 42 45 51 64 65 6c 62  62 3a 2e 62 61 63 62 20  | BEQdelbb:.bacb |
000010d0  49 4e 59 3a 43 50 59 23  26 46 46 3a 42 4e 45 64  |INY:CPY#&FF:BNEd|
000010e0  65 6c 62 3a 52 54 53 0d  05 78 26 20 2e 64 65 6c  |elb:RTS..x& .del|
000010f0  61 62 3a 4c 44 41 26 35  37 46 46 3a 53 54 41 26  |ab:LDA&57FF:STA&|
00001100  41 30 30 2c 59 3a 4a 4d  50 62 61 63 61 0d 05 82  |A00,Y:JMPbaca...|
00001110  26 20 2e 64 65 6c 62 62  3a 4c 44 41 26 35 37 46  |& .delbb:LDA&57F|
00001120  46 3a 53 54 41 26 42 30  30 2c 59 3a 4a 4d 50 62  |F:STA&B00,Y:JMPb|
00001130  61 63 62 0d 05 8c 09 5d  3a ed 3a e1 0d 05 96 17  |acb....]:.:.....|
00001140  dd f2 64 65 6c 65 74 65  3a e7 3f 26 42 41 30 3d  |..delete:.?&BA0=|
00001150  30 8c e1 0d 05 a0 21 e3  6c 6f 6f 70 3d 26 42 42  |0.....!.loop=&BB|
00001160  30 b8 28 3f 26 42 41 30  29 2b 26 42 41 46 3a 74  |0.(?&BA0)+&BAF:t|
00001170  6f 74 3d 30 0d 05 aa 3a  74 6f 74 3d 28 3f 6c 6f  |ot=0...:tot=(?lo|
00001180  6f 70 29 2a 26 46 46 2b  3f 28 6c 6f 6f 70 2b 31  |op)*&FF+?(loop+1|
00001190  29 3a 78 70 6f 73 3d 74  6f 74 4d 4f 44 20 31 39  |):xpos=totMOD 19|
000011a0  3a 79 70 6f 73 3d 74 6f  74 20 81 20 31 39 0d 05  |:ypos=tot . 19..|
000011b0  b4 2a f1 8a 78 70 6f 73  2c 79 70 6f 73 2a 32 29  |.*..xpos,ypos*2)|
000011c0  3b 22 20 22 3b 8a 78 70  6f 73 2c 79 70 6f 73 2a  |;" ";.xpos,ypos*|
000011d0  32 2b 31 29 3b 22 20 22  0d 05 be 07 ed 3a e1 0d  |2+1);" ".....:..|
000011e0  05 c8 1e dd f2 64 69 65  3a e7 73 6f 75 24 3d 22  |.....die:.sou$="|
000011f0  59 22 8c d4 31 2c 2d 37  2c 30 2c 35 30 0d 05 d2  |Y"..1,-7,0,50...|
00001200  2d ef 31 39 2c 30 2c 31  2c 30 3b 30 3b 30 3b 3a  |-.19,0,1,0;0;0;:|
00001210  6c 69 76 65 3d 6c 69 76  65 2d 31 3a ef 31 39 2c  |live=live-1:.19,|
00001220  30 2c 30 2c 30 3b 30 3b  30 3b 0d 05 dc 0f 69 6d  |0,0,0;0;0;....im|
00001230  6f 72 74 61 6c 3d 91 3a  e1 0d 05 e6 0b dd f2 77  |ortal=.:.......w|
00001240  68 61 74 73 0d 05 f0 1b  e7 20 6d 6f 6e 73 3c 3d  |hats..... mons<=|
00001250  32 20 8c 20 8d 64 75 45  20 8b 20 8d 64 7a 45 0d  |2 . .duE . .dzE.|
00001260  05 f5 0e e3 78 3d 6d 6f  6e 73 20 b8 34 0d 05 f6  |....x=mons .4...|
00001270  0a f2 61 64 6d 6f 6e 0d  05 f7 06 ed 78 0d 05 fa  |..admon.....x...|
00001280  23 f1 8a 30 2c 33 31 29  3b 73 63 6f 72 65 3b 8a  |#..0,31);score;.|
00001290  31 30 2c 33 31 29 3b 6c  69 76 65 3b 22 20 22 3b  |10,31);live;" ";|
000012a0  0d 06 04 05 e1 0d 06 0e  0b dd f2 61 64 6d 6f 6e  |...........admon|
000012b0  0d 06 18 11 e7 20 6d 6f  6e 73 3d 32 31 20 8c 20  |..... mons=21 . |
000012c0  e1 0d 06 22 19 78 70 3d  b3 28 32 30 29 2d 31 3a  |...".xp=.(20)-1:|
000012d0  79 70 3d b3 28 31 35 29  2d 31 0d 06 2c 20 e7 20  |yp=.(15)-1.., . |
000012e0  3f 28 26 41 30 30 2b 78  70 2b 79 70 2a 32 30 29  |?(&A00+xp+yp*20)|
000012f0  3c 3e 30 20 8c 20 8d 54  62 46 0d 06 36 16 3f 28  |<>0 . .TbF..6.?(|
00001300  26 41 30 30 2b 78 70 2b  79 70 2a 32 30 29 3d 34  |&A00+xp+yp*20)=4|
00001310  0d 06 40 2f 6d 6f 6e 73  28 6d 6f 6e 73 2c 30 29  |..@/mons(mons,0)|
00001320  3d 78 70 3a 6d 6f 6e 73  28 6d 6f 6e 73 2c 31 29  |=xp:mons(mons,1)|
00001330  3d 79 70 3a 6d 6f 6e 73  3d 6d 6f 6e 73 2b 31 0d  |=yp:mons=mons+1.|
00001340  06 4a 05 e1 0d 06 54 16  dd f2 62 61 64 6d 6f 76  |.J....T...badmov|
00001350  65 3a 72 65 73 3d 6d 6f  6e 73 0d 06 5e 3a e3 6d  |e:res=mons..^:.m|
00001360  6f 6e 73 3d 30 b8 72 65  73 2d 31 3a 6d 6f 6e 61  |ons=0.res-1:mona|
00001370  64 64 3d 26 39 46 46 2b  6d 6f 6e 73 28 6d 6f 6e  |dd=&9FF+mons(mon|
00001380  73 2c 30 29 2b 6d 6f 6e  73 28 6d 6f 6e 73 2c 31  |s,0)+mons(mons,1|
00001390  29 2a 32 30 0d 06 68 2d  63 6f 6e 74 65 6e 24 3d  |)*20..h-conten$=|
000013a0  22 4c 45 46 54 22 3a f2  67 6f 6f 64 3a e7 72 65  |"LEFT":.good:.re|
000013b0  73 75 6c 74 3d b9 20 8c  f2 62 68 69 74 3a ed 3a  |sult=. ..bhit:.:|
000013c0  e1 0d 06 72 2e 63 6f 6e  74 65 6e 24 3d 22 52 49  |...r.conten$="RI|
000013d0  47 48 54 22 3a f2 67 6f  6f 64 3a e7 72 65 73 75  |GHT":.good:.resu|
000013e0  6c 74 3d b9 20 8c f2 62  68 69 74 3a ed 3a e1 0d  |lt=. ..bhit:.:..|
000013f0  06 7c 2b 63 6f 6e 74 65  6e 24 3d 22 55 50 22 3a  |.|+conten$="UP":|
00001400  f2 67 6f 6f 64 3a e7 72  65 73 75 6c 74 3d b9 20  |.good:.result=. |
00001410  8c f2 62 68 69 74 3a ed  3a e1 0d 06 86 2d 63 6f  |..bhit:.:....-co|
00001420  6e 74 65 6e 24 3d 22 44  4f 57 4e 22 3a f2 67 6f  |nten$="DOWN":.go|
00001430  6f 64 3a e7 72 65 73 75  6c 74 3d b9 20 8c f2 62  |od:.result=. ..b|
00001440  68 69 74 3a ed 3a e1 0d  06 90 47 64 69 72 3d b3  |hit:.:....Gdir=.|
00001450  28 34 29 3a e7 64 69 72  3d 31 80 3f 6d 6f 6e 61  |(4):.dir=1.?mona|
00001460  64 64 3d 30 8c 3f 6d 6f  6e 61 64 64 3d 34 3a 6d  |dd=0.?monadd=4:m|
00001470  6f 6e 73 28 6d 6f 6e 73  2c 30 29 3d 6d 6f 6e 73  |ons(mons,0)=mons|
00001480  28 6d 6f 6e 73 2c 30 29  2d 31 3a ed 3a e1 0d 06  |(mons,0)-1:.:...|
00001490  9a 46 e7 64 69 72 3d 32  80 3f 28 6d 6f 6e 61 64  |.F.dir=2.?(monad|
000014a0  64 2b 32 29 3d 30 8c 3f  28 6d 6f 6e 61 64 64 2b  |d+2)=0.?(monadd+|
000014b0  32 29 3d 34 3a 6d 6f 6e  73 28 6d 6f 6e 73 2c 30  |2)=4:mons(mons,0|
000014c0  29 3d 6d 6f 6e 73 28 6d  6f 6e 73 2c 30 29 2b 31  |)=mons(mons,0)+1|
000014d0  3a ed 3a e1 0d 06 a4 48  e7 64 69 72 3d 33 80 3f  |:.:....H.dir=3.?|
000014e0  28 6d 6f 6e 61 64 64 2d  31 39 29 3d 30 8c 3f 28  |(monadd-19)=0.?(|
000014f0  6d 6f 6e 61 64 64 2d 31  39 29 3d 34 3a 6d 6f 6e  |monadd-19)=4:mon|
00001500  73 28 6d 6f 6e 73 2c 31  29 3d 6d 6f 6e 73 28 6d  |s(mons,1)=mons(m|
00001510  6f 6e 73 2c 31 29 2d 31  3a ed 3a e1 0d 06 ae 48  |ons,1)-1:.:....H|
00001520  e7 64 69 72 3d 34 80 3f  28 6d 6f 6e 61 64 64 2b  |.dir=4.?(monadd+|
00001530  32 31 29 3d 30 8c 3f 28  6d 6f 6e 61 64 64 2b 32  |21)=0.?(monadd+2|
00001540  31 29 3d 34 3a 6d 6f 6e  73 28 6d 6f 6e 73 2c 31  |1)=4:mons(mons,1|
00001550  29 3d 6d 6f 6e 73 28 6d  6f 6e 73 2c 31 29 2b 31  |)=mons(mons,1)+1|
00001560  3a ed 3a e1 0d 06 b8 09  e5 8d 74 50 46 0d 06 c2  |:.:.......tPF...|
00001570  0a dd f2 64 72 61 77 0d  06 cc 34 e7 6c 3d 33 8c  |...draw...4.l=3.|
00001580  fb 33 3a f1 8a 78 70 6f  73 2c 79 70 6f 73 29 3b  |.3:..xpos,ypos);|
00001590  bd 28 31 33 38 29 3b 8a  78 70 6f 73 2c 79 70 6f  |.(138);.xpos,ypo|
000015a0  73 2b 31 29 3b bd 28 31  33 39 29 0d 06 d6 34 e7  |s+1);.(139)...4.|
000015b0  6c 3d 36 8c fb 33 3a f1  8a 78 70 6f 73 2c 79 70  |l=6..3:..xpos,yp|
000015c0  6f 73 29 3b bd 28 31 33  34 29 3b 8a 78 70 6f 73  |os);.(134);.xpos|
000015d0  2c 79 70 6f 73 2b 31 29  3b bd 28 31 33 35 29 0d  |,ypos+1);.(135).|
000015e0  06 e0 34 e7 6c 3d 37 8c  fb 32 3a f1 8a 78 70 6f  |..4.l=7..2:..xpo|
000015f0  73 2c 79 70 6f 73 29 3b  bd 28 31 33 36 29 3b 8a  |s,ypos);.(136);.|
00001600  78 70 6f 73 2c 79 70 6f  73 2b 31 29 3b bd 28 31  |xpos,ypos+1);.(1|
00001610  33 37 29 0d 06 ea 34 e7  6c 3d 38 8c fb 31 3a f1  |37)...4.l=8..1:.|
00001620  8a 78 70 6f 73 2c 79 70  6f 73 29 3b bd 28 31 34  |.xpos,ypos);.(14|
00001630  30 29 3b 8a 78 70 6f 73  2c 79 70 6f 73 2b 31 29  |0);.xpos,ypos+1)|
00001640  3b bd 28 31 34 31 29 0d  06 f4 05 e1 0d 06 fe 0c  |;.(141).........|
00001650  dd f2 62 68 69 74 3a e1  0d 07 03 0a dd f2 67 6f  |..bhit:.......go|
00001660  6f 64 0d 07 08 29 e7 63  6f 6e 74 65 6e 24 3d 22  |od...).conten$="|
00001670  4c 45 46 54 22 8c 61 64  6f 66 71 75 65 73 74 3d  |LEFT".adofquest=|
00001680  2d 31 3a 78 3d 2d 31 3a  79 3d 30 0d 07 12 28 e7  |-1:x=-1:y=0...(.|
00001690  63 6f 6e 74 65 6e 24 3d  22 52 49 47 48 54 22 8c  |conten$="RIGHT".|
000016a0  61 64 6f 66 71 75 65 73  74 3d 31 3a 78 3d 31 3a  |adofquest=1:x=1:|
000016b0  79 3d 30 0d 07 1c 28 e7  63 6f 6e 74 65 6e 24 3d  |y=0...(.conten$=|
000016c0  22 55 50 22 8c 61 64 6f  66 71 75 65 73 74 3d 2d  |"UP".adofquest=-|
000016d0  32 30 3a 79 3d 2d 31 3a  78 3d 30 0d 07 26 28 e7  |20:y=-1:x=0..&(.|
000016e0  63 6f 6e 74 65 6e 24 3d  22 44 4f 57 4e 22 8c 61  |conten$="DOWN".a|
000016f0  64 6f 66 71 75 65 73 74  3d 32 30 3a 78 3d 30 3a  |dofquest=20:x=0:|
00001700  79 3d 31 0d 07 30 39 6d  6f 6e 68 69 74 3d 3f 28  |y=1..09monhit=?(|
00001710  26 41 30 30 2b 61 64 6f  66 71 75 65 73 74 2b 6d  |&A00+adofquest+m|
00001720  6f 6e 73 28 6d 6f 6e 73  2c 30 29 2b 6d 6f 6e 73  |ons(mons,0)+mons|
00001730  28 6d 6f 6e 73 2c 31 29  2a 32 30 29 0d 07 3a 17  |(mons,1)*20)..:.|
00001740  e7 20 6d 6f 6e 68 69 74  3c 33 8c 72 65 73 75 6c  |. monhit<3.resul|
00001750  74 3d a3 0d 07 44 29 e7  20 6d 6f 6e 68 69 74 3d  |t=...D). monhit=|
00001760  33 8c f2 61 64 6d 6f 6e  3a f2 6d 6f 76 65 6d 6f  |3..admon:.movemo|
00001770  6e 3a 72 65 73 75 6c 74  3d b9 3a e1 0d 07 4e 1a  |n:result=.:...N.|
00001780  20 e7 20 6d 6f 6e 68 69  74 3d 34 8c 72 65 73 75  | . monhit=4.resu|
00001790  6c 74 3d a3 3a e1 0d 07  58 2b e7 20 6d 6f 6e 68  |lt=.:...X+. monh|
000017a0  69 74 3d 35 8c f2 6d 6f  76 65 75 78 62 3a 72 65  |it=5..moveuxb:re|
000017b0  73 75 6c 74 3d b9 3a f2  6d 6f 76 65 6d 6f 6e 3a  |sult=.:.movemon:|
000017c0  e1 0d 07 62 22 e7 20 6d  6f 6e 68 69 74 3c 39 8c  |...b". monhit<9.|
000017d0  f2 6d 6f 76 65 6d 6f 6e  3a 72 65 73 75 6c 74 3d  |.movemon:result=|
000017e0  b9 3a e1 0d 07 6c 19 e7  20 6d 6f 6e 68 69 74 3d  |.:...l.. monhit=|
000017f0  39 8c 72 65 73 75 6c 74  3d a3 3a e1 0d 07 76 28  |9.result=.:...v(|
00001800  e7 20 6d 6f 6e 68 69 74  3d 32 30 8c 72 65 73 75  |. monhit=20.resu|
00001810  6c 74 3d b9 3a f2 64 69  65 3a f2 6d 6f 76 65 6d  |lt=.:.die:.movem|
00001820  6f 6e 3a e1 0d 07 80 05  e1 0d 07 8a 0d dd f2 6d  |on:............m|
00001830  6f 76 65 6d 6f 6e 0d 07  94 34 3f 28 26 41 30 30  |ovemon...4?(&A00|
00001840  2b 61 64 6f 66 71 75 65  73 74 2b 6d 6f 6e 73 28  |+adofquest+mons(|
00001850  6d 6f 6e 73 2c 30 29 2b  6d 6f 6e 73 28 6d 6f 6e  |mons,0)+mons(mon|
00001860  73 2c 31 29 2a 32 30 29  3d 34 0d 07 9e 2a 3f 28  |s,1)*20)=4...*?(|
00001870  26 41 30 30 2b 6d 6f 6e  73 28 6d 6f 6e 73 2c 30  |&A00+mons(mons,0|
00001880  29 2b 6d 6f 6e 73 28 6d  6f 6e 73 2c 31 29 2a 32  |)+mons(mons,1)*2|
00001890  30 29 3d 30 0d 07 a8 4a  f1 8a 6d 6f 6e 73 28 6d  |0)=0...J..mons(m|
000018a0  6f 6e 73 2c 30 29 2c 6d  6f 6e 73 28 6d 6f 6e 73  |ons,0),mons(mons|
000018b0  2c 31 29 2a 32 29 3b 22  20 22 3b 8a 6d 6f 6e 73  |,1)*2);" ";.mons|
000018c0  28 6d 6f 6e 73 2c 30 29  2c 6d 6f 6e 73 28 6d 6f  |(mons,0),mons(mo|
000018d0  6e 73 2c 31 29 2a 32 2b  31 29 3b 22 20 22 0d 07  |ns,1)*2+1);" "..|
000018e0  b2 52 f1 8a 6d 6f 6e 73  28 6d 6f 6e 73 2c 30 29  |.R..mons(mons,0)|
000018f0  2b 78 2c 6d 6f 6e 73 28  6d 6f 6e 73 2c 31 29 2a  |+x,mons(mons,1)*|
00001900  32 2b 79 29 3b 22 20 22  3b 8a 6d 6f 6e 73 28 6d  |2+y);" ";.mons(m|
00001910  6f 6e 73 2c 30 29 2b 78  2c 6d 6f 6e 73 28 6d 6f  |ons,0)+x,mons(mo|
00001920  6e 73 2c 31 29 2a 32 2b  31 2b 79 29 3b 22 20 22  |ns,1)*2+1+y);" "|
00001930  0d 07 bc 05 e1 0d 07 c6  0d dd f2 6d 6f 76 65 75  |...........moveu|
00001940  78 62 0d 07 d0 33 61 63  3d b3 28 32 30 29 2d 31  |xb...3ac=.(20)-1|
00001950  3a 64 6f 3d b3 28 31 35  29 2d 31 3a e7 3f 28 26  |:do=.(15)-1:.?(&|
00001960  41 30 30 2b 61 63 2b 64  6f 2a 32 30 29 3c 3e 30  |A00+ac+do*20)<>0|
00001970  8c 8d 64 50 47 0d 07 da  18 3f 28 26 41 30 30 2b  |..dPG....?(&A00+|
00001980  61 63 2b 64 6f 2a 32 30  29 3d 35 3a e1 0d 07 e4  |ac+do*20)=5:....|
00001990  09 dd f2 6c 61 79 0d 07  ee 12 e7 20 b3 28 35 30  |...lay..... .(50|
000019a0  29 3c 3e 38 20 8c 20 e1  0d 07 f8 0c f2 6d 6f 76  |)<>8 . ......mov|
000019b0  65 75 78 62 0d 08 02 05  e1 0d ff                 |euxb.......|
000019bb