� >!Guardians.!RunImage

 
*� ***  Guardians of the Labyrinth  ***
*� ********  By Vince M. Hudd  ********
*� ***  (C)1991 Soft Rock Software  ***
 
� � � �T~@

� 15:�
U� Sprite_area 90000,C 1000,Screen 9000,Small 6000,SN$(50),text 4000,save_area 500
	�initialise

�new_game(schce)
� � � �Ty@
�display

�move_player
� dead � �TZ@
� won � �Td@
Ȏ S% �
� 1:�s1
� 2:�s2
� 3:�s3
� 4:�s4
�
� gx%>-1 � �move_ghost
� dead � �TZ@
� � �>14

� �TM@
&� ***** player dead routine ******
�DIE
O�plot("G",512,670):�plot("A",576,670):�plot("M",640,670):�plot("E",704,670)
O�plot("O",512,588):�plot("V",576,588):�plot("E",640,588):�plot("R",704,588)
��plot("P",288,350):�plot("R",352,350):�plot("E",416,350):�plot("S",480,350):�plot("S",544,350):�plot("S",672,350):�plot("P",736,350):�plot("A",800,350):�plot("C",864,350):�plot("E",928,350)
 � � �(-99)
!� � � �(-99)
"*FX15,1
#
� �T{@
$%� ***** player won routine ******
&
� �Tv@
'� LOOP=0 � 15:� CL,TN
(� CL Ȝ TN
)7ȓ Ȑ 64+LOOP*8,192+LOOP*8,1152-LOOP*16,796-LOOP*16
*�
+O�plot("W",352,800):�plot("E",416,800):�plot("L",480,800):�plot("L",544,800)
,O�plot("D",672,800):�plot("O",736,800):�plot("N",800,800):�plot("E",864,800)
-<�plot("Y",384,700):�plot("O",448,700):�plot("U",512,700)
.O�plot("H",640,700):�plot("A",704,700):�plot("V",768,700):�plot("E",832,700)
/��plot("C",352,600):�plot("O",416,600):�plot("M",480,600):�plot("P",544,600):�plot("L",608,600):�plot("E",672,600):�plot("T",736,600):�plot("E",800,600):�plot("D",864,600)
0��plot("T",320,500):�plot("H",384,500):�plot("E",448,500):�plot("S",576,500):�plot("C",640,500):�plot("R",704,500):�plot("E",768,500):�plot("E",832,500):�plot("N",896,500)
1��plot("P",288,350):�plot("R",352,350):�plot("E",416,350):�plot("S",480,350):�plot("S",544,350):�plot("S",672,350):�plot("P",736,350):�plot("A",800,350):�plot("C",864,350):�plot("E",928,350)
2� � �(-99)
3� � � �(-99)
4*FX15,1
5
� �T{@
66�63,192,63,128,63,64,63,0,42,192,42,128,42,64,42,0
72�21,192,21,128,21,64,21,0,0,192,0,128,0,64,0,0
8�
9� � <> 17 � �T~@
:� � � �T~@
; *SCREENLOAD <Game$Dir>.TITLE
=�ttlscn:� �TJ@
>� 15
?*FX15,1
@	*ADFS
BȘ
C�
D��initialise
E *SCREENLOAD <Game$Dir>.TITLE
G!Sprite_area=90000
H!Small=4000
I;ș"OS_SpriteOp",266,Sprite_area,"<Game$Dir>.spritefile"
J4ș"OS_SpriteOp",266,Small,"<Game$Dir>.smallfile"
K*�("LOAD <Game$Dir>.Characters "+�~(C))
L-�("LOAD <Game$Dir>.ScrollText "+�~(text))
M6zzz=�("<Game$Dir>.ScrollText"):scrtl=�#(zzz):�#zzz
N � A=0 � 47:SN$(A)=$(C+8*A):�
Osound=�
P�ttlscn
Q�
R��new_game(selection)
S#*SCREENLOAD <Game$Dir>.BackDrop
T0score=0:energy=880:level=0:drain%=1:rate%=30
Ub1=�
Vb2=�
Wb3=�
X1�("LOAD <Game$Dir>.ScreenSet"+" "+�~(Screen))
Y!sx%=0:sy%=0:px%=1:py%=1:bp%=0
Z� selection=0 �load_old
[
�count
]�
^��count
_!s1%=0:s2%=0:s3%=0:s4%=0:ky%=0
`.� SX=0 � 6:� SY=0 � 6:� X=0 � 15:� Y=0 � 7
aA=�at(X,Y,SX,SY)
b� A=13 � s1%+=1
c� A=14 � s2%+=1
d� A=15 � s3%+=1
e� A=16 � s4%+=1
f� A=38 � ky%+=1
g�,,,
h�show:�
i� �display
j!�0 Ȝ 0:ȓ Ȑ 64,192,1152,796
k� X=-1 � 16:� Y=-1 � 8
lchar=27
m� X=-1 � Y=-1 � �Dv@
n� X=-1 � Y=8 � �Dv@
o� X=16 � Y=-1 � �Dv@
p� X=16 � Y=8 � �Dv@
q=� X>-1 � X<16 � Y>-1 � Y<8 � char=�at(X,Y,sx%,sy%):� �Dv@
r4� sx%>0 � X=-1 � char=�at(15,Y,sx%-1,sy%):� �Dv@
s3� sx%<6 � X=16 � char=�at(0,Y,sx%+1,sy%):� �Dv@
t3� sy%>0 � Y=-1 � char=�at(X,7,sx%,sy%-1):� �Dv@
u+� sy%<6 � Y=8 � char=�at(X,0,sx%,sy%+1)
v�out(X,Y,char)
w�,
x�screen_vars
y�
z� �screen_vars
{'no_move=0:gx%=-1:gy%=-1:bg%=0:gd%=0
|� X=0 � 15:� Y=0 � 7
}C=�at(X,Y,sx%,sy%)
~� C=8 � gx%=X:gy%=Y:bg%=0
�,
�gd%=�gd(gx%,gy%,sx%,sy%)
��
�� �at(x1,y1,x2,y2)
�)at=?(Screen+(x1+x2*16)+(y1+y2*8)*128)
�B� at=17 � level>=1 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�B� at=18 � level>=2 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�B� at=19 � level>=3 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�A� at=20 � level=4 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�=at
�� �out(X,Y,C)
�� C>63 C=0
�Hș"OS_SpriteOp",34+256,Sprite_area,SN$(C),128+X*64,1024-(192+Y*80),0
��
�� �out2(X,Y,C$)
�Ȗ
�Dș"OS_SpriteOp",34+256,Sprite_area,C$,128+X*64,1024-(192+Y*80),0
��
�
��show
�� �12,29);�"00"+�(s1%),2)
�� �20,29);�"00"+�(s2%),2)
�� �28,29);�"00"+�(s3%),2)
�� �36,29);�"00"+�(s4%),2)
�� �44,29);�"00"+�(ky%),2)
�#� �64,30);�"000000"+�(score),6)
��3:ȓ Ȑ 256,128,energy,28
�2� energy>160 � �12:ȓ Ȑ 416,128,energy-160,28
�� b1 � �out(14,10,45)
�� b2 � �out(13,10,46)
�� b3 � �out(12,10,47)
��
���move_player
��=0
�5won=�:dead=�:x1%=px%:y1%=py%:x2%=sx%:y2%=sy%:S%=0
�$� �(-98) � �p_l:no_move=0:� �ti@
�$� �(-67) � �p_r:no_move=0:� �ti@
�%� �(-105) � �p_d:no_move=0:� �ti@
�$� �(-80) � �p_u:no_move=0:� �ti@
�� �(-102) � �local_map:�
�� bp%=39 � �energy(drain%)
�?�out(px%,py%,1):no_move+=1:� no_move=100 �food(1):no_move=0
�,?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=1
��
�
� �p_l
�direction=2
�"x1%=x1%-1:� x2%=0 � x1%=-1 � �
�� x1%=-1 � x1%=15:x2%=x2%-1
��check_below_player
�� x1%=px% � �
�� x2%=sx% �
�,� pc=1 � 4:�out2(x1%,y1%,"PLYL"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�px%=x1%:bp%=under
��
�� x2%<>sx% �
�+� pc=1 � 4:�out2(-1,y1%,"PLYL"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:px%=x1%:sx%=x2%
��display
��
��energy(drain%)
��
�
� �p_r
�direction=4
�"x1%=x1%+1:� x2%=6 � x1%=16 � �
�� x1%=16 � x1%=0:x2%=x2%+1
��check_below_player
�� x1%=px% � �
�� x2%=sx% �
�,� pc=1 � 4:�out2(px%,py%,"PLYR"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�px%=x1%:bp%=under
��
�� x2%<>sx% �
�,� pc=1 � 4:�out2(px%,py%,"PLYR"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:px%=x1%:sx%=x2%
��display
��
��energy(drain%)
��
�
� �p_u
�direction=1
�"y1%=y1%-1:� y2%=0 � y1%=-1 � �
�� y1%=-1 � y1%=7:y2%=y2%-1
��check_below_player
�� y1%=py% � �
�� y2%=sy% �
�,� pc=1 � 4:�out2(px%,py%,"PLUP"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�py%=y1%:bp%=under
��
�� y2%<>sy% �
�,� pc=1 � 4:�out2(px%,py%,"PLUP"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:py%=y1%:sy%=y2%
��display
��
��energy(drain%)
��
�
� �p_d
�direction=3
�!y1%=y1%+1:� y2%=6 � y1%=8 � �
�� y1%=8 � y1%=0:y2%=y2%+1
��check_below_player
�� y1%=py% � �
�� y2%=sy% �
�,� pc=1 � 4:�out2(x1%,y1%,"PLDN"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�py%=y1%:bp%=under
��
�� y2%<>sy% �
�*� pc=1 � 4:�out2(x1%,8,"PLDN"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:py%=y1%:sy%=y2%
��display
��
��energy(drain%)
��
�� �check_below_player

under=�at(x1%,y1%,x2%,y2%)


Ȏ under �

� 8:dead=�

*� 13:under=0:S%=1:�food(32):�SCORE(10)

*� 14:under=0:S%=2:�food(32):�SCORE(10)

*� 15:under=0:S%=3:�food(32):�SCORE(10)

*� 16:under=0:S%=4:�food(32):�SCORE(10)

(� 17:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 18:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

	(� 19:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%


(� 20:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 26:under=�dissolve(26):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 25:under=�dissolve(25):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%


<� 24:under=�dissolve(24):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 23:under=�dissolve(23):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 22:under=�dissolve(22):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 21:under=�dissolve(21):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 27:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 28:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 29:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 30:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

� 35:under=0:�food(350)

� 36:won=�

� 38:�key:�SCORE(15)

� 39:drain%=rate%

� 0:drain%=1

P� 45:rate%=rate%-10:b1=�:under=0:�out(11,10,45):�SCORE(25):� rate%<5 rate%=1

P� 46:rate%=rate%-10:b2=�:under=0:�out(13,10,46):�SCORE(25):� rate%<5 rate%=1

P� 47:rate%=rate%-10:b3=�:under=0:�out(12,10,47):�SCORE(25):� rate%<5 rate%=1

�

�

��s1

 's1%=s1%-1:� �12,29);�"00"+�(s1%),2)

!
� s1%=0 �

"�SCORE(100)

#�food(880)

$level=level+1

%�redraw(17)

&�

'�

(��s2

)'s2%=s2%-1:� �20,29);�"00"+�(s2%),2)

*
� s2%=0 �

+�food(880):�SCORE(100)

,level=level+1

-�redraw(18)

.�

/�

0��s3

1's3%=s3%-1:� �28,29);�"00"+�(s3%),2)

2
� s3%=0 �

3�food(880):�SCORE(100)

4level=level+1

5�redraw(19)

6�

7�

8��s4

9's4%=s4%-1:� �36,29);�"00"+�(s4%),2)

:
� s4%=0 �

;�food(880):�SCORE(100)

<level=level+1

=�redraw(20)

>�

?�

@� �dissolve(WALL)

A WALL=WALL+1:� WALL=27 WALL=0

BP�out((px%-(direction=4)+(direction=2)),py%+(direction=1)-(direction=3),WALL)

C/?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=WALL

D�energy(20)

E	=WALL

F�

G��food(increase)

H4energy=energy+increase:� energy>880 � energy=880

I�3:ȓ Ȑ 256,128,energy,28

J2� energy>160 � �12:ȓ Ȑ 416,128,energy-160,28

K�

L�PRROCexit

M� ky%=0 � won=�

N-� ky%>0 � x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

O�

U��energy(amount)

V�0 Ȝ 0

W� energy-amount>0 �

X+ȓ Ȑ 256+(energy-amount),128,amount,28

Y�

Zȓ Ȑ 256,128,amount,28

[�

\.energy=energy-amount:� energy<0 � energy=0

]� energy=0 � dead=�

^�

_	��key

`ky%=ky%-1:under=0

a� �44,29);�"00"+�(ky%),2)

b�

c��local_map

d�0:ȓ Ȑ 64,192,1152,796

e)OX%=(px%+sx%*16)-28:OY%=(py%+sy%*8)-9

f� X%=0 � 56

g� Y%=0 � 19

h� (X%+OX%)<0 � C%=27:� �DoA

i!� (OX%+X%)>111 � C%=27:� �DoA

j � (OY%+Y%)>55 � C%=27:� �DoA

k� (OY%+Y%)<0 � C%=27:� �DoA

l&C%=?(Screen+(X%+OX%+128*(Y%+OY%)))

m� C%>60 � C%=0

n� C%>21 � C%<27 � C%=21

o?ș"OS_SpriteOp",34+256,Small,SN$(C%),72+X%*20,952-(Y%*40),0

p�,

q� � � �(-102)

r� � �(-102)

s� � � �(-102)

t�display

u�

v��redraw(Z%)

w� X=-1 � 16:� Y=-1 � 8

xCX=sx%:CY=sy%:AX=X:AY=Y

y� X=-1 � Y=-1 � �tIA

z� X=-1 � Y=8 � �tIA

{� X=16 � Y=-1 � �tIA

|� X=16 � Y=8 � �tIA

}� X=-1 � sx%=0 � �tIA

~� X=16 � sx%=6 � �tIA

� Y=8 � sy%=6 � �tIA

�� Y=-1 � sy%=0 � �tIA

�� X=-1 � CX=CX-1:AX=15

�� Y=-1 � CY=CY-1:AY=8

�� X=16 � CX=CX+1:AX=0

�� Y=8 � CY=CY+1:AY=0

�+� Z%=?(Screen+AX+CX*16+(AY+CY*8)*128) �

�&?(Screen+AX+CX*16+(AY+CY*8)*128)=0

��out(X,Y,0)

��

��,

��

���move_ghost

�od%=gd%

�nx%=gx%:ny%=gy%

�Ȏ gd% �

�� 1:ny%-=1

�� 2:nx%+=1

�� 3:ny%+=1

�� 4:nx%-=1

��

�7� nx%=-1 � nx%=16 � ny%=-1 � ny%=8 � �rotate:� �tMA

�ch=�at(nx%,ny%,sx%,sy%)

�� ch>1 � �rotate:� �tMA

�� ch=1 � dead=�:� �tYA

�� od%<>gd% � �

�Ȏ gd% �

�.� 1:� X=1 � 4:�out2(gx%,gy%,"GSTU"+�(X)):�

�.� 2:� X=1 � 4:�out2(gx%,gy%,"GSTR"+�(X)):�

�0� 3:� X=1 � 4:�out2(gx%,gy%+1,"GSTD"+�(X)):�

�0� 4:� X=1 � 4:�out2(gx%-1,gy%,"GSTL"+�(X)):�

��

�:�out(nx%,ny%,8):?(Screen+nx%+16*sx%+(ny%+sy%*8)*128)=8

�:�out(gx%,gy%,0):?(Screen+gx%+16*sx%+(gy%+sy%*8)*128)=0

�gx%=nx%:gy%=ny%:bg%=ch

��

���rotate

�ND%=�(2):� ND%=2 ND%=-1

�gd%=gd%+ND%

�� gd%=5 gd%=1

�� gd%=0 gd%=4

��

�� �gd(gx%,gy%,sx%,sy%)

�� gx%=-1 � =0

�+� gy%>0 � �at(gx%,gy%-1,sx%,sy%)=0 � =1

�,� gx%<15 � �at(gx%+1,gy%,sx%,sy%)=0 � =2

�+� gy%<7 � �at(gx%,gy%+1,sx%,sy%)=0 � =3

�+� gx%>0 � �at(gx%-1,gy%,sx%,sy%)=0 � =4

�,� gx%<15 � �at(gx%+1,gy%,sx%,sy%)=0 � =2

�=0

�+��ttlscn:�OPS:next$=�select(�(?(text)))

�(schce=-1:scroll=0:scrolling=�:nchr=1

��28,5,29,75,27

��24,0;0;1199;160;

�
�:�scroll

� � �(-49) � �(-108) � schce=1

� � �(-50) � �(-125) � schce=2

� � �(-18) � �(-109) � schce=3

� � �(-19) � �(-123) � schce=4

� � �(-20) � �(-124) � schce=5

�� �(-53) � �(-27) � schce=6

�� �(-87) � schce=0

�� �(-82) � �sound

�� schce>=0

��26

�*FX15,1

��

�	��DIE

�� A=31 � 34

��out(px%,py%,A)

�� T=0 � 5000:�

��

��out(px%,py%,0)

��

���scroll

�� scrolling � �scr:�

��next_char:�

���next_char

�scrolling=�:scrolled=1200

�out$=next$

�Bnext$=�select(�(?(nchr+text))):nchr=nchr+1:� nchr=scrtl nchr=0

��plot(out$,1136,60)

��

�	��scr

�� times=1 � 4

��23,7,0,1,1|

��

�scrolled=scrolled-8

��plot(next$,scrolled,60)

�"� scrolled<=1136 � scrolling=�

��

�� �select(ctp$):

�#� ctp$>="A" � ctp$<="Z" � =ctp$

�� ctp$="a" � ="PLAYR"

�� ctp$="b" � ="GHOST"

�� ctp$="c" � ="SHLD1"

�� ctp$="d" � ="SHLD2"

�� ctp$="e" � ="SHLD3"

�� ctp$="f" � ="SHLD4"

�� ctp$="g" � ="DOOR1"

�� ctp$="h" � ="DOOR2"

�� ctp$="i" � ="DOOR3"

�� ctp$="j" � ="DOOR4"

�� ctp$="k" � ="KEY"

�� ctp$="l" � ="EXIT"

�� ctp$="m" � ="DOORD"

�� ctp$="n" � ="DEDLY"

�� ctp$="o" � ="FOOD"

�� ctp$="p" � ="SKULL"

�� ctp$="q" � ="BONE1"

�� ctp$="r" � ="BONE2"

�� ctp$="." � ="DOT"

�� ctp$="," � ="COMMA"

�� ctp$="'" � ="APOST"

�� ctp$="!" � ="EXCLA"

�� ctp$="(" � ="OBRAK"

�� ctp$=")" � ="CBRAK"

�� ctp$="0" � ="ZERO"

�� ctp$="1" � ="ONE"

�� ctp$="2" � ="TWO"

�� ctp$="3" � ="THREE"

�� ctp$="4" � ="FOUR"

�� ctp$="5" � ="FIVE"

�� ctp$="6" � ="SIX"

�� ctp$="7" � ="SEVEN"
� ctp$="8" � ="EIGHT"

� ctp$="9" � ="NINE"
� ctp$="/" � ="SLASH"
="SPACE"
��plot(out$,x%,y%)
3ș"OS_SpriteOp",256+34,Sprite_area,out$,x%,y%,0
�
(��SCORE(SCORE)
)score=score+SCORE
*#� �64,30);�"000000"+�(score),6)
+�
,��OPS:�5
-� A=16 � 1 � -1
.
� �Tv@
/� B=1 � A:� CL,TN:�
0� CL Ȝ TN
1/� 408,400:� "PRESS THE SPACE BAR TO PLAY.."
3� T=1 � 800:�
4�
5
�4:�:�
�

00000000  0d 00 00 1b f4 20 3e 21  47 75 61 72 64 69 61 6e  |..... >!Guardian|
00000010  73 2e 21 52 75 6e 49 6d  61 67 65 0d 00 01 05 20  |s.!RunImage.... |
00000020  0d 00 02 2a f4 20 2a 2a  2a 20 20 47 75 61 72 64  |...*. ***  Guard|
00000030  69 61 6e 73 20 6f 66 20  74 68 65 20 4c 61 62 79  |ians of the Laby|
00000040  72 69 6e 74 68 20 20 2a  2a 2a 0d 00 03 2a f4 20  |rinth  ***...*. |
00000050  2a 2a 2a 2a 2a 2a 2a 2a  20 20 42 79 20 56 69 6e  |********  By Vin|
00000060  63 65 20 4d 2e 20 48 75  64 64 20 20 2a 2a 2a 2a  |ce M. Hudd  ****|
00000070  2a 2a 2a 2a 0d 00 04 2a  f4 20 2a 2a 2a 20 20 28  |****...*. ***  (|
00000080  43 29 31 39 39 31 20 53  6f 66 74 20 52 6f 63 6b  |C)1991 Soft Rock|
00000090  20 53 6f 66 74 77 61 72  65 20 20 2a 2a 2a 0d 00  | Software  ***..|
000000a0  05 05 20 0d 00 06 0e ee  20 85 20 e5 20 8d 54 7e  |.. ..... . . .T~|
000000b0  40 0d 00 07 0a eb 20 31  35 3a 87 0d 00 08 55 de  |@..... 15:....U.|
000000c0  20 53 70 72 69 74 65 5f  61 72 65 61 20 39 30 30  | Sprite_area 900|
000000d0  30 30 2c 43 20 31 30 30  30 2c 53 63 72 65 65 6e  |00,C 1000,Screen|
000000e0  20 39 30 30 30 2c 53 6d  61 6c 6c 20 36 30 30 30  | 9000,Small 6000|
000000f0  2c 53 4e 24 28 35 30 29  2c 74 65 78 74 20 34 30  |,SN$(50),text 40|
00000100  30 30 2c 73 61 76 65 5f  61 72 65 61 20 35 30 30  |00,save_area 500|
00000110  0d 00 09 0f f2 69 6e 69  74 69 61 6c 69 73 65 0d  |.....initialise.|
00000120  00 0a 14 f2 6e 65 77 5f  67 61 6d 65 28 73 63 68  |....new_game(sch|
00000130  63 65 29 0d 00 0b 0e ee  20 85 20 e5 20 8d 54 79  |ce)..... . . .Ty|
00000140  40 0d 00 0c 0c f2 64 69  73 70 6c 61 79 0d 00 0d  |@.....display...|
00000150  10 f2 6d 6f 76 65 5f 70  6c 61 79 65 72 0d 00 0e  |..move_player...|
00000160  11 e7 20 64 65 61 64 20  8c 20 8d 54 5a 40 0d 00  |.. dead . .TZ@..|
00000170  0f 10 e7 20 77 6f 6e 20  8c 20 8d 54 64 40 0d 00  |... won . .Td@..|
00000180  10 0b c8 8e 20 53 25 20  ca 0d 00 11 0b c9 20 31  |.... S% ...... 1|
00000190  3a f2 73 31 0d 00 12 0b  c9 20 32 3a f2 73 32 0d  |:.s1..... 2:.s2.|
000001a0  00 13 0b c9 20 33 3a f2  73 33 0d 00 14 0b c9 20  |.... 3:.s3..... |
000001b0  34 3a f2 73 34 0d 00 15  05 cb 0d 00 16 1a e7 20  |4:.s4.......... |
000001c0  67 78 25 3e 2d 31 20 8c  20 f2 6d 6f 76 65 5f 67  |gx%>-1 . .move_g|
000001d0  68 6f 73 74 0d 00 17 11  e7 20 64 65 61 64 20 8c  |host..... dead .|
000001e0  20 8d 54 5a 40 0d 00 18  0c f5 20 fd 20 91 3e 31  | .TZ@..... . .>1|
000001f0  34 0d 00 19 0a e5 20 8d  54 4d 40 0d 00 1a 26 f4  |4..... .TM@...&.|
00000200  20 2a 2a 2a 2a 2a 20 70  6c 61 79 65 72 20 64 65  | ***** player de|
00000210  61 64 20 72 6f 75 74 69  6e 65 20 2a 2a 2a 2a 2a  |ad routine *****|
00000220  2a 0d 00 1c 08 f2 44 49  45 0d 00 1d 4f f2 70 6c  |*.....DIE...O.pl|
00000230  6f 74 28 22 47 22 2c 35  31 32 2c 36 37 30 29 3a  |ot("G",512,670):|
00000240  f2 70 6c 6f 74 28 22 41  22 2c 35 37 36 2c 36 37  |.plot("A",576,67|
00000250  30 29 3a f2 70 6c 6f 74  28 22 4d 22 2c 36 34 30  |0):.plot("M",640|
00000260  2c 36 37 30 29 3a f2 70  6c 6f 74 28 22 45 22 2c  |,670):.plot("E",|
00000270  37 30 34 2c 36 37 30 29  0d 00 1e 4f f2 70 6c 6f  |704,670)...O.plo|
00000280  74 28 22 4f 22 2c 35 31  32 2c 35 38 38 29 3a f2  |t("O",512,588):.|
00000290  70 6c 6f 74 28 22 56 22  2c 35 37 36 2c 35 38 38  |plot("V",576,588|
000002a0  29 3a f2 70 6c 6f 74 28  22 45 22 2c 36 34 30 2c  |):.plot("E",640,|
000002b0  35 38 38 29 3a f2 70 6c  6f 74 28 22 52 22 2c 37  |588):.plot("R",7|
000002c0  30 34 2c 35 38 38 29 0d  00 1f c1 f2 70 6c 6f 74  |04,588).....plot|
000002d0  28 22 50 22 2c 32 38 38  2c 33 35 30 29 3a f2 70  |("P",288,350):.p|
000002e0  6c 6f 74 28 22 52 22 2c  33 35 32 2c 33 35 30 29  |lot("R",352,350)|
000002f0  3a f2 70 6c 6f 74 28 22  45 22 2c 34 31 36 2c 33  |:.plot("E",416,3|
00000300  35 30 29 3a f2 70 6c 6f  74 28 22 53 22 2c 34 38  |50):.plot("S",48|
00000310  30 2c 33 35 30 29 3a f2  70 6c 6f 74 28 22 53 22  |0,350):.plot("S"|
00000320  2c 35 34 34 2c 33 35 30  29 3a f2 70 6c 6f 74 28  |,544,350):.plot(|
00000330  22 53 22 2c 36 37 32 2c  33 35 30 29 3a f2 70 6c  |"S",672,350):.pl|
00000340  6f 74 28 22 50 22 2c 37  33 36 2c 33 35 30 29 3a  |ot("P",736,350):|
00000350  f2 70 6c 6f 74 28 22 41  22 2c 38 30 30 2c 33 35  |.plot("A",800,35|
00000360  30 29 3a f2 70 6c 6f 74  28 22 43 22 2c 38 36 34  |0):.plot("C",864|
00000370  2c 33 35 30 29 3a f2 70  6c 6f 74 28 22 45 22 2c  |,350):.plot("E",|
00000380  39 32 38 2c 33 35 30 29  0d 00 20 0e f5 20 fd 20  |928,350).. .. . |
00000390  a6 28 2d 39 39 29 0d 00  21 10 f5 20 fd 20 ac 20  |.(-99)..!.. . . |
000003a0  a6 28 2d 39 39 29 0d 00  22 0b 2a 46 58 31 35 2c  |.(-99)..".*FX15,|
000003b0  31 0d 00 23 0a e5 20 8d  54 7b 40 0d 00 24 25 f4  |1..#.. .T{@..$%.|
000003c0  20 2a 2a 2a 2a 2a 20 70  6c 61 79 65 72 20 77 6f  | ***** player wo|
000003d0  6e 20 72 6f 75 74 69 6e  65 20 2a 2a 2a 2a 2a 2a  |n routine ******|
000003e0  0d 00 26 0a f7 20 8d 54  76 40 0d 00 27 19 e3 20  |..&.. .Tv@..'.. |
000003f0  4c 4f 4f 50 3d 30 20 b8  20 31 35 3a f3 20 43 4c  |LOOP=0 . 15:. CL|
00000400  2c 54 4e 0d 00 28 0e e6  20 43 4c 20 c8 9c 20 54  |,TN..(.. CL .. T|
00000410  4e 0d 00 29 37 c8 93 20  c8 90 20 36 34 2b 4c 4f  |N..)7.. .. 64+LO|
00000420  4f 50 2a 38 2c 31 39 32  2b 4c 4f 4f 50 2a 38 2c  |OP*8,192+LOOP*8,|
00000430  31 31 35 32 2d 4c 4f 4f  50 2a 31 36 2c 37 39 36  |1152-LOOP*16,796|
00000440  2d 4c 4f 4f 50 2a 31 36  0d 00 2a 05 ed 0d 00 2b  |-LOOP*16..*....+|
00000450  4f f2 70 6c 6f 74 28 22  57 22 2c 33 35 32 2c 38  |O.plot("W",352,8|
00000460  30 30 29 3a f2 70 6c 6f  74 28 22 45 22 2c 34 31  |00):.plot("E",41|
00000470  36 2c 38 30 30 29 3a f2  70 6c 6f 74 28 22 4c 22  |6,800):.plot("L"|
00000480  2c 34 38 30 2c 38 30 30  29 3a f2 70 6c 6f 74 28  |,480,800):.plot(|
00000490  22 4c 22 2c 35 34 34 2c  38 30 30 29 0d 00 2c 4f  |"L",544,800)..,O|
000004a0  f2 70 6c 6f 74 28 22 44  22 2c 36 37 32 2c 38 30  |.plot("D",672,80|
000004b0  30 29 3a f2 70 6c 6f 74  28 22 4f 22 2c 37 33 36  |0):.plot("O",736|
000004c0  2c 38 30 30 29 3a f2 70  6c 6f 74 28 22 4e 22 2c  |,800):.plot("N",|
000004d0  38 30 30 2c 38 30 30 29  3a f2 70 6c 6f 74 28 22  |800,800):.plot("|
000004e0  45 22 2c 38 36 34 2c 38  30 30 29 0d 00 2d 3c f2  |E",864,800)..-<.|
000004f0  70 6c 6f 74 28 22 59 22  2c 33 38 34 2c 37 30 30  |plot("Y",384,700|
00000500  29 3a f2 70 6c 6f 74 28  22 4f 22 2c 34 34 38 2c  |):.plot("O",448,|
00000510  37 30 30 29 3a f2 70 6c  6f 74 28 22 55 22 2c 35  |700):.plot("U",5|
00000520  31 32 2c 37 30 30 29 0d  00 2e 4f f2 70 6c 6f 74  |12,700)...O.plot|
00000530  28 22 48 22 2c 36 34 30  2c 37 30 30 29 3a f2 70  |("H",640,700):.p|
00000540  6c 6f 74 28 22 41 22 2c  37 30 34 2c 37 30 30 29  |lot("A",704,700)|
00000550  3a f2 70 6c 6f 74 28 22  56 22 2c 37 36 38 2c 37  |:.plot("V",768,7|
00000560  30 30 29 3a f2 70 6c 6f  74 28 22 45 22 2c 38 33  |00):.plot("E",83|
00000570  32 2c 37 30 30 29 0d 00  2f ae f2 70 6c 6f 74 28  |2,700)../..plot(|
00000580  22 43 22 2c 33 35 32 2c  36 30 30 29 3a f2 70 6c  |"C",352,600):.pl|
00000590  6f 74 28 22 4f 22 2c 34  31 36 2c 36 30 30 29 3a  |ot("O",416,600):|
000005a0  f2 70 6c 6f 74 28 22 4d  22 2c 34 38 30 2c 36 30  |.plot("M",480,60|
000005b0  30 29 3a f2 70 6c 6f 74  28 22 50 22 2c 35 34 34  |0):.plot("P",544|
000005c0  2c 36 30 30 29 3a f2 70  6c 6f 74 28 22 4c 22 2c  |,600):.plot("L",|
000005d0  36 30 38 2c 36 30 30 29  3a f2 70 6c 6f 74 28 22  |608,600):.plot("|
000005e0  45 22 2c 36 37 32 2c 36  30 30 29 3a f2 70 6c 6f  |E",672,600):.plo|
000005f0  74 28 22 54 22 2c 37 33  36 2c 36 30 30 29 3a f2  |t("T",736,600):.|
00000600  70 6c 6f 74 28 22 45 22  2c 38 30 30 2c 36 30 30  |plot("E",800,600|
00000610  29 3a f2 70 6c 6f 74 28  22 44 22 2c 38 36 34 2c  |):.plot("D",864,|
00000620  36 30 30 29 0d 00 30 ae  f2 70 6c 6f 74 28 22 54  |600)..0..plot("T|
00000630  22 2c 33 32 30 2c 35 30  30 29 3a f2 70 6c 6f 74  |",320,500):.plot|
00000640  28 22 48 22 2c 33 38 34  2c 35 30 30 29 3a f2 70  |("H",384,500):.p|
00000650  6c 6f 74 28 22 45 22 2c  34 34 38 2c 35 30 30 29  |lot("E",448,500)|
00000660  3a f2 70 6c 6f 74 28 22  53 22 2c 35 37 36 2c 35  |:.plot("S",576,5|
00000670  30 30 29 3a f2 70 6c 6f  74 28 22 43 22 2c 36 34  |00):.plot("C",64|
00000680  30 2c 35 30 30 29 3a f2  70 6c 6f 74 28 22 52 22  |0,500):.plot("R"|
00000690  2c 37 30 34 2c 35 30 30  29 3a f2 70 6c 6f 74 28  |,704,500):.plot(|
000006a0  22 45 22 2c 37 36 38 2c  35 30 30 29 3a f2 70 6c  |"E",768,500):.pl|
000006b0  6f 74 28 22 45 22 2c 38  33 32 2c 35 30 30 29 3a  |ot("E",832,500):|
000006c0  f2 70 6c 6f 74 28 22 4e  22 2c 38 39 36 2c 35 30  |.plot("N",896,50|
000006d0  30 29 0d 00 31 c1 f2 70  6c 6f 74 28 22 50 22 2c  |0)..1..plot("P",|
000006e0  32 38 38 2c 33 35 30 29  3a f2 70 6c 6f 74 28 22  |288,350):.plot("|
000006f0  52 22 2c 33 35 32 2c 33  35 30 29 3a f2 70 6c 6f  |R",352,350):.plo|
00000700  74 28 22 45 22 2c 34 31  36 2c 33 35 30 29 3a f2  |t("E",416,350):.|
00000710  70 6c 6f 74 28 22 53 22  2c 34 38 30 2c 33 35 30  |plot("S",480,350|
00000720  29 3a f2 70 6c 6f 74 28  22 53 22 2c 35 34 34 2c  |):.plot("S",544,|
00000730  33 35 30 29 3a f2 70 6c  6f 74 28 22 53 22 2c 36  |350):.plot("S",6|
00000740  37 32 2c 33 35 30 29 3a  f2 70 6c 6f 74 28 22 50  |72,350):.plot("P|
00000750  22 2c 37 33 36 2c 33 35  30 29 3a f2 70 6c 6f 74  |",736,350):.plot|
00000760  28 22 41 22 2c 38 30 30  2c 33 35 30 29 3a f2 70  |("A",800,350):.p|
00000770  6c 6f 74 28 22 43 22 2c  38 36 34 2c 33 35 30 29  |lot("C",864,350)|
00000780  3a f2 70 6c 6f 74 28 22  45 22 2c 39 32 38 2c 33  |:.plot("E",928,3|
00000790  35 30 29 0d 00 32 0e f5  20 fd 20 a6 28 2d 39 39  |50)..2.. . .(-99|
000007a0  29 0d 00 33 10 f5 20 fd  20 ac 20 a6 28 2d 39 39  |)..3.. . . .(-99|
000007b0  29 0d 00 34 0b 2a 46 58  31 35 2c 31 0d 00 35 0a  |)..4.*FX15,1..5.|
000007c0  e5 20 8d 54 7b 40 0d 00  36 36 dc 36 33 2c 31 39  |. .T{@..66.63,19|
000007d0  32 2c 36 33 2c 31 32 38  2c 36 33 2c 36 34 2c 36  |2,63,128,63,64,6|
000007e0  33 2c 30 2c 34 32 2c 31  39 32 2c 34 32 2c 31 32  |3,0,42,192,42,12|
000007f0  38 2c 34 32 2c 36 34 2c  34 32 2c 30 0d 00 37 32  |8,42,64,42,0..72|
00000800  dc 32 31 2c 31 39 32 2c  32 31 2c 31 32 38 2c 32  |.21,192,21,128,2|
00000810  31 2c 36 34 2c 32 31 2c  30 2c 30 2c 31 39 32 2c  |1,64,21,0,0,192,|
00000820  30 2c 31 32 38 2c 30 2c  36 34 2c 30 2c 30 0d 00  |0,128,0,64,0,0..|
00000830  38 05 e0 0d 00 39 14 e7  20 9f 20 3c 3e 20 31 37  |8....9.. . <> 17|
00000840  20 8c 20 8d 54 7e 40 0d  00 3a 0e ee 20 85 20 e5  | . .T~@..:.. . .|
00000850  20 8d 54 7e 40 0d 00 3b  20 2a 53 43 52 45 45 4e  | .T~@..; *SCREEN|
00000860  4c 4f 41 44 20 3c 47 61  6d 65 24 44 69 72 3e 2e  |LOAD <Game$Dir>.|
00000870  54 49 54 4c 45 0d 00 3d  12 f2 74 74 6c 73 63 6e  |TITLE..=..ttlscn|
00000880  3a e5 20 8d 54 4a 40 0d  00 3e 08 eb 20 31 35 0d  |:. .TJ@..>.. 15.|
00000890  00 3f 0b 2a 46 58 31 35  2c 31 0d 00 40 09 2a 41  |.?.*FX15,1..@.*A|
000008a0  44 46 53 0d 00 42 06 c8  98 0d 00 43 05 e0 0d 00  |DFS..B.....C....|
000008b0  44 10 dd f2 69 6e 69 74  69 61 6c 69 73 65 0d 00  |D...initialise..|
000008c0  45 20 2a 53 43 52 45 45  4e 4c 4f 41 44 20 3c 47  |E *SCREENLOAD <G|
000008d0  61 6d 65 24 44 69 72 3e  2e 54 49 54 4c 45 0d 00  |ame$Dir>.TITLE..|
000008e0  47 16 21 53 70 72 69 74  65 5f 61 72 65 61 3d 39  |G.!Sprite_area=9|
000008f0  30 30 30 30 0d 00 48 0f  21 53 6d 61 6c 6c 3d 34  |0000..H.!Small=4|
00000900  30 30 30 0d 00 49 3b c8  99 22 4f 53 5f 53 70 72  |000..I;.."OS_Spr|
00000910  69 74 65 4f 70 22 2c 32  36 36 2c 53 70 72 69 74  |iteOp",266,Sprit|
00000920  65 5f 61 72 65 61 2c 22  3c 47 61 6d 65 24 44 69  |e_area,"<Game$Di|
00000930  72 3e 2e 73 70 72 69 74  65 66 69 6c 65 22 0d 00  |r>.spritefile"..|
00000940  4a 34 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |J4.."OS_SpriteOp|
00000950  22 2c 32 36 36 2c 53 6d  61 6c 6c 2c 22 3c 47 61  |",266,Small,"<Ga|
00000960  6d 65 24 44 69 72 3e 2e  73 6d 61 6c 6c 66 69 6c  |me$Dir>.smallfil|
00000970  65 22 0d 00 4b 2a ff 28  22 4c 4f 41 44 20 3c 47  |e"..K*.("LOAD <G|
00000980  61 6d 65 24 44 69 72 3e  2e 43 68 61 72 61 63 74  |ame$Dir>.Charact|
00000990  65 72 73 20 22 2b c3 7e  28 43 29 29 0d 00 4c 2d  |ers "+.~(C))..L-|
000009a0  ff 28 22 4c 4f 41 44 20  3c 47 61 6d 65 24 44 69  |.("LOAD <Game$Di|
000009b0  72 3e 2e 53 63 72 6f 6c  6c 54 65 78 74 20 22 2b  |r>.ScrollText "+|
000009c0  c3 7e 28 74 65 78 74 29  29 0d 00 4d 36 7a 7a 7a  |.~(text))..M6zzz|
000009d0  3d ad 28 22 3c 47 61 6d  65 24 44 69 72 3e 2e 53  |=.("<Game$Dir>.S|
000009e0  63 72 6f 6c 6c 54 65 78  74 22 29 3a 73 63 72 74  |crollText"):scrt|
000009f0  6c 3d a2 23 28 7a 7a 7a  29 3a d9 23 7a 7a 7a 0d  |l=.#(zzz):.#zzz.|
00000a00  00 4e 20 e3 20 41 3d 30  20 b8 20 34 37 3a 53 4e  |.N . A=0 . 47:SN|
00000a10  24 28 41 29 3d 24 28 43  2b 38 2a 41 29 3a ed 0d  |$(A)=$(C+8*A):..|
00000a20  00 4f 0b 73 6f 75 6e 64  3d b9 0d 00 50 0b f2 74  |.O.sound=...P..t|
00000a30  74 6c 73 63 6e 0d 00 51  05 e1 0d 00 52 19 dd f2  |tlscn..Q....R...|
00000a40  6e 65 77 5f 67 61 6d 65  28 73 65 6c 65 63 74 69  |new_game(selecti|
00000a50  6f 6e 29 0d 00 53 23 2a  53 43 52 45 45 4e 4c 4f  |on)..S#*SCREENLO|
00000a60  41 44 20 3c 47 61 6d 65  24 44 69 72 3e 2e 42 61  |AD <Game$Dir>.Ba|
00000a70  63 6b 44 72 6f 70 0d 00  54 30 73 63 6f 72 65 3d  |ckDrop..T0score=|
00000a80  30 3a 65 6e 65 72 67 79  3d 38 38 30 3a 6c 65 76  |0:energy=880:lev|
00000a90  65 6c 3d 30 3a 64 72 61  69 6e 25 3d 31 3a 72 61  |el=0:drain%=1:ra|
00000aa0  74 65 25 3d 33 30 0d 00  55 08 62 31 3d a3 0d 00  |te%=30..U.b1=...|
00000ab0  56 08 62 32 3d a3 0d 00  57 08 62 33 3d a3 0d 00  |V.b2=...W.b3=...|
00000ac0  58 31 ff 28 22 4c 4f 41  44 20 3c 47 61 6d 65 24  |X1.("LOAD <Game$|
00000ad0  44 69 72 3e 2e 53 63 72  65 65 6e 53 65 74 22 2b  |Dir>.ScreenSet"+|
00000ae0  22 20 22 2b c3 7e 28 53  63 72 65 65 6e 29 29 0d  |" "+.~(Screen)).|
00000af0  00 59 21 73 78 25 3d 30  3a 73 79 25 3d 30 3a 70  |.Y!sx%=0:sy%=0:p|
00000b00  78 25 3d 31 3a 70 79 25  3d 31 3a 62 70 25 3d 30  |x%=1:py%=1:bp%=0|
00000b10  0d 00 5a 1b e7 20 73 65  6c 65 63 74 69 6f 6e 3d  |..Z.. selection=|
00000b20  30 20 f2 6c 6f 61 64 5f  6f 6c 64 0d 00 5b 0a f2  |0 .load_old..[..|
00000b30  63 6f 75 6e 74 0d 00 5d  05 e1 0d 00 5e 0b dd f2  |count..]....^...|
00000b40  63 6f 75 6e 74 0d 00 5f  21 73 31 25 3d 30 3a 73  |count.._!s1%=0:s|
00000b50  32 25 3d 30 3a 73 33 25  3d 30 3a 73 34 25 3d 30  |2%=0:s3%=0:s4%=0|
00000b60  3a 6b 79 25 3d 30 0d 00  60 2e e3 20 53 58 3d 30  |:ky%=0..`.. SX=0|
00000b70  20 b8 20 36 3a e3 20 53  59 3d 30 20 b8 20 36 3a  | . 6:. SY=0 . 6:|
00000b80  e3 20 58 3d 30 20 b8 20  31 35 3a e3 20 59 3d 30  |. X=0 . 15:. Y=0|
00000b90  20 b8 20 37 0d 00 61 14  41 3d a4 61 74 28 58 2c  | . 7..a.A=.at(X,|
00000ba0  59 2c 53 58 2c 53 59 29  0d 00 62 13 e7 20 41 3d  |Y,SX,SY)..b.. A=|
00000bb0  31 33 20 8c 20 73 31 25  2b 3d 31 0d 00 63 13 e7  |13 . s1%+=1..c..|
00000bc0  20 41 3d 31 34 20 8c 20  73 32 25 2b 3d 31 0d 00  | A=14 . s2%+=1..|
00000bd0  64 13 e7 20 41 3d 31 35  20 8c 20 73 33 25 2b 3d  |d.. A=15 . s3%+=|
00000be0  31 0d 00 65 13 e7 20 41  3d 31 36 20 8c 20 73 34  |1..e.. A=16 . s4|
00000bf0  25 2b 3d 31 0d 00 66 13  e7 20 41 3d 33 38 20 8c  |%+=1..f.. A=38 .|
00000c00  20 6b 79 25 2b 3d 31 0d  00 67 08 ed 2c 2c 2c 0d  | ky%+=1..g..,,,.|
00000c10  00 68 0b f2 73 68 6f 77  3a e1 0d 00 69 0e dd 20  |.h..show:...i.. |
00000c20  f2 64 69 73 70 6c 61 79  0d 00 6a 21 e6 30 20 c8  |.display..j!.0 .|
00000c30  9c 20 30 3a c8 93 20 c8  90 20 36 34 2c 31 39 32  |. 0:.. .. 64,192|
00000c40  2c 31 31 35 32 2c 37 39  36 0d 00 6b 1a e3 20 58  |,1152,796..k.. X|
00000c50  3d 2d 31 20 b8 20 31 36  3a e3 20 59 3d 2d 31 20  |=-1 . 16:. Y=-1 |
00000c60  b8 20 38 0d 00 6c 0b 63  68 61 72 3d 32 37 0d 00  |. 8..l.char=27..|
00000c70  6d 18 e7 20 58 3d 2d 31  20 80 20 59 3d 2d 31 20  |m.. X=-1 . Y=-1 |
00000c80  8c 20 8d 44 76 40 0d 00  6e 17 e7 20 58 3d 2d 31  |. .Dv@..n.. X=-1|
00000c90  20 80 20 59 3d 38 20 8c  20 8d 44 76 40 0d 00 6f  | . Y=8 . .Dv@..o|
00000ca0  18 e7 20 58 3d 31 36 20  80 20 59 3d 2d 31 20 8c  |.. X=16 . Y=-1 .|
00000cb0  20 8d 44 76 40 0d 00 70  17 e7 20 58 3d 31 36 20  | .Dv@..p.. X=16 |
00000cc0  80 20 59 3d 38 20 8c 20  8d 44 76 40 0d 00 71 3d  |. Y=8 . .Dv@..q=|
00000cd0  e7 20 58 3e 2d 31 20 80  20 58 3c 31 36 20 80 20  |. X>-1 . X<16 . |
00000ce0  59 3e 2d 31 20 80 20 59  3c 38 20 8c 20 63 68 61  |Y>-1 . Y<8 . cha|
00000cf0  72 3d a4 61 74 28 58 2c  59 2c 73 78 25 2c 73 79  |r=.at(X,Y,sx%,sy|
00000d00  25 29 3a e5 20 8d 44 76  40 0d 00 72 34 e7 20 73  |%):. .Dv@..r4. s|
00000d10  78 25 3e 30 20 80 20 58  3d 2d 31 20 8c 20 63 68  |x%>0 . X=-1 . ch|
00000d20  61 72 3d a4 61 74 28 31  35 2c 59 2c 73 78 25 2d  |ar=.at(15,Y,sx%-|
00000d30  31 2c 73 79 25 29 3a e5  20 8d 44 76 40 0d 00 73  |1,sy%):. .Dv@..s|
00000d40  33 e7 20 73 78 25 3c 36  20 80 20 58 3d 31 36 20  |3. sx%<6 . X=16 |
00000d50  8c 20 63 68 61 72 3d a4  61 74 28 30 2c 59 2c 73  |. char=.at(0,Y,s|
00000d60  78 25 2b 31 2c 73 79 25  29 3a e5 20 8d 44 76 40  |x%+1,sy%):. .Dv@|
00000d70  0d 00 74 33 e7 20 73 79  25 3e 30 20 80 20 59 3d  |..t3. sy%>0 . Y=|
00000d80  2d 31 20 8c 20 63 68 61  72 3d a4 61 74 28 58 2c  |-1 . char=.at(X,|
00000d90  37 2c 73 78 25 2c 73 79  25 2d 31 29 3a e5 20 8d  |7,sx%,sy%-1):. .|
00000da0  44 76 40 0d 00 75 2b e7  20 73 79 25 3c 36 20 80  |Dv@..u+. sy%<6 .|
00000db0  20 59 3d 38 20 8c 20 63  68 61 72 3d a4 61 74 28  | Y=8 . char=.at(|
00000dc0  58 2c 30 2c 73 78 25 2c  73 79 25 2b 31 29 0d 00  |X,0,sx%,sy%+1)..|
00000dd0  76 12 f2 6f 75 74 28 58  2c 59 2c 63 68 61 72 29  |v..out(X,Y,char)|
00000de0  0d 00 77 06 ed 2c 0d 00  78 10 f2 73 63 72 65 65  |..w..,..x..scree|
00000df0  6e 5f 76 61 72 73 0d 00  79 05 e1 0d 00 7a 12 dd  |n_vars..y....z..|
00000e00  20 f2 73 63 72 65 65 6e  5f 76 61 72 73 0d 00 7b  | .screen_vars..{|
00000e10  27 6e 6f 5f 6d 6f 76 65  3d 30 3a 67 78 25 3d 2d  |'no_move=0:gx%=-|
00000e20  31 3a 67 79 25 3d 2d 31  3a 62 67 25 3d 30 3a 67  |1:gy%=-1:bg%=0:g|
00000e30  64 25 3d 30 0d 00 7c 18  e3 20 58 3d 30 20 b8 20  |d%=0..|.. X=0 . |
00000e40  31 35 3a e3 20 59 3d 30  20 b8 20 37 0d 00 7d 16  |15:. Y=0 . 7..}.|
00000e50  43 3d a4 61 74 28 58 2c  59 2c 73 78 25 2c 73 79  |C=.at(X,Y,sx%,sy|
00000e60  25 29 0d 00 7e 1d e7 20  43 3d 38 20 8c 20 67 78  |%)..~.. C=8 . gx|
00000e70  25 3d 58 3a 67 79 25 3d  59 3a 62 67 25 3d 30 0d  |%=X:gy%=Y:bg%=0.|
00000e80  00 7f 06 ed 2c 0d 00 80  1c 67 64 25 3d a4 67 64  |....,....gd%=.gd|
00000e90  28 67 78 25 2c 67 79 25  2c 73 78 25 2c 73 79 25  |(gx%,gy%,sx%,sy%|
00000ea0  29 0d 00 81 05 e1 0d 00  82 16 dd 20 a4 61 74 28  |).......... .at(|
00000eb0  78 31 2c 79 31 2c 78 32  2c 79 32 29 0d 00 83 29  |x1,y1,x2,y2)...)|
00000ec0  61 74 3d 3f 28 53 63 72  65 65 6e 2b 28 78 31 2b  |at=?(Screen+(x1+|
00000ed0  78 32 2a 31 36 29 2b 28  79 31 2b 79 32 2a 38 29  |x2*16)+(y1+y2*8)|
00000ee0  2a 31 32 38 29 0d 00 84  42 e7 20 61 74 3d 31 37  |*128)...B. at=17|
00000ef0  20 80 20 6c 65 76 65 6c  3e 3d 31 20 8c 20 3f 28  | . level>=1 . ?(|
00000f00  53 63 72 65 65 6e 2b 28  78 31 2b 78 32 2a 31 36  |Screen+(x1+x2*16|
00000f10  29 2b 28 79 31 2b 79 32  2a 38 29 2a 31 32 38 29  |)+(y1+y2*8)*128)|
00000f20  3d 30 3a 61 74 3d 30 0d  00 85 42 e7 20 61 74 3d  |=0:at=0...B. at=|
00000f30  31 38 20 80 20 6c 65 76  65 6c 3e 3d 32 20 8c 20  |18 . level>=2 . |
00000f40  3f 28 53 63 72 65 65 6e  2b 28 78 31 2b 78 32 2a  |?(Screen+(x1+x2*|
00000f50  31 36 29 2b 28 79 31 2b  79 32 2a 38 29 2a 31 32  |16)+(y1+y2*8)*12|
00000f60  38 29 3d 30 3a 61 74 3d  30 0d 00 86 42 e7 20 61  |8)=0:at=0...B. a|
00000f70  74 3d 31 39 20 80 20 6c  65 76 65 6c 3e 3d 33 20  |t=19 . level>=3 |
00000f80  8c 20 3f 28 53 63 72 65  65 6e 2b 28 78 31 2b 78  |. ?(Screen+(x1+x|
00000f90  32 2a 31 36 29 2b 28 79  31 2b 79 32 2a 38 29 2a  |2*16)+(y1+y2*8)*|
00000fa0  31 32 38 29 3d 30 3a 61  74 3d 30 0d 00 87 41 e7  |128)=0:at=0...A.|
00000fb0  20 61 74 3d 32 30 20 80  20 6c 65 76 65 6c 3d 34  | at=20 . level=4|
00000fc0  20 8c 20 3f 28 53 63 72  65 65 6e 2b 28 78 31 2b  | . ?(Screen+(x1+|
00000fd0  78 32 2a 31 36 29 2b 28  79 31 2b 79 32 2a 38 29  |x2*16)+(y1+y2*8)|
00000fe0  2a 31 32 38 29 3d 30 3a  61 74 3d 30 0d 00 88 07  |*128)=0:at=0....|
00000ff0  3d 61 74 0d 00 89 11 dd  20 f2 6f 75 74 28 58 2c  |=at..... .out(X,|
00001000  59 2c 43 29 0d 00 8a 0e  e7 20 43 3e 36 33 20 43  |Y,C)..... C>63 C|
00001010  3d 30 0d 00 8b 48 c8 99  22 4f 53 5f 53 70 72 69  |=0...H.."OS_Spri|
00001020  74 65 4f 70 22 2c 33 34  2b 32 35 36 2c 53 70 72  |teOp",34+256,Spr|
00001030  69 74 65 5f 61 72 65 61  2c 53 4e 24 28 43 29 2c  |ite_area,SN$(C),|
00001040  31 32 38 2b 58 2a 36 34  2c 31 30 32 34 2d 28 31  |128+X*64,1024-(1|
00001050  39 32 2b 59 2a 38 30 29  2c 30 0d 00 8c 05 e1 0d  |92+Y*80),0......|
00001060  00 8d 13 dd 20 f2 6f 75  74 32 28 58 2c 59 2c 43  |.... .out2(X,Y,C|
00001070  24 29 0d 00 8e 06 c8 96  0d 00 8f 44 c8 99 22 4f  |$).........D.."O|
00001080  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
00001090  35 36 2c 53 70 72 69 74  65 5f 61 72 65 61 2c 43  |56,Sprite_area,C|
000010a0  24 2c 31 32 38 2b 58 2a  36 34 2c 31 30 32 34 2d  |$,128+X*64,1024-|
000010b0  28 31 39 32 2b 59 2a 38  30 29 2c 30 0d 00 90 05  |(192+Y*80),0....|
000010c0  e1 0d 00 91 0a dd f2 73  68 6f 77 0d 00 92 1d f1  |.......show.....|
000010d0  20 8a 31 32 2c 32 39 29  3b c2 22 30 30 22 2b c3  | .12,29);."00"+.|
000010e0  28 73 31 25 29 2c 32 29  0d 00 93 1d f1 20 8a 32  |(s1%),2)..... .2|
000010f0  30 2c 32 39 29 3b c2 22  30 30 22 2b c3 28 73 32  |0,29);."00"+.(s2|
00001100  25 29 2c 32 29 0d 00 94  1d f1 20 8a 32 38 2c 32  |%),2)..... .28,2|
00001110  39 29 3b c2 22 30 30 22  2b c3 28 73 33 25 29 2c  |9);."00"+.(s3%),|
00001120  32 29 0d 00 95 1d f1 20  8a 33 36 2c 32 39 29 3b  |2)..... .36,29);|
00001130  c2 22 30 30 22 2b c3 28  73 34 25 29 2c 32 29 0d  |."00"+.(s4%),2).|
00001140  00 96 1d f1 20 8a 34 34  2c 32 39 29 3b c2 22 30  |.... .44,29);."0|
00001150  30 22 2b c3 28 6b 79 25  29 2c 32 29 0d 00 97 23  |0"+.(ky%),2)...#|
00001160  f1 20 8a 36 34 2c 33 30  29 3b c2 22 30 30 30 30  |. .64,30);."0000|
00001170  30 30 22 2b c3 28 73 63  6f 72 65 29 2c 36 29 0d  |00"+.(score),6).|
00001180  00 98 1e e6 33 3a c8 93  20 c8 90 20 32 35 36 2c  |....3:.. .. 256,|
00001190  31 32 38 2c 65 6e 65 72  67 79 2c 32 38 0d 00 99  |128,energy,28...|
000011a0  32 e7 20 65 6e 65 72 67  79 3e 31 36 30 20 8c 20  |2. energy>160 . |
000011b0  e6 31 32 3a c8 93 20 c8  90 20 34 31 36 2c 31 32  |.12:.. .. 416,12|
000011c0  38 2c 65 6e 65 72 67 79  2d 31 36 30 2c 32 38 0d  |8,energy-160,28.|
000011d0  00 9a 19 e7 20 62 31 20  8c 20 f2 6f 75 74 28 31  |.... b1 . .out(1|
000011e0  34 2c 31 30 2c 34 35 29  0d 00 9b 19 e7 20 62 32  |4,10,45)..... b2|
000011f0  20 8c 20 f2 6f 75 74 28  31 33 2c 31 30 2c 34 36  | . .out(13,10,46|
00001200  29 0d 00 9c 19 e7 20 62  33 20 8c 20 f2 6f 75 74  |)..... b3 . .out|
00001210  28 31 32 2c 31 30 2c 34  37 29 0d 00 9d 05 e1 0d  |(12,10,47)......|
00001220  00 9e 11 dd f2 6d 6f 76  65 5f 70 6c 61 79 65 72  |.....move_player|
00001230  0d 00 9f 07 d1 3d 30 0d  00 a0 35 77 6f 6e 3d a3  |.....=0...5won=.|
00001240  3a 64 65 61 64 3d a3 3a  78 31 25 3d 70 78 25 3a  |:dead=.:x1%=px%:|
00001250  79 31 25 3d 70 79 25 3a  78 32 25 3d 73 78 25 3a  |y1%=py%:x2%=sx%:|
00001260  79 32 25 3d 73 79 25 3a  53 25 3d 30 0d 00 a1 24  |y2%=sy%:S%=0...$|
00001270  e7 20 a6 28 2d 39 38 29  20 8c 20 f2 70 5f 6c 3a  |. .(-98) . .p_l:|
00001280  6e 6f 5f 6d 6f 76 65 3d  30 3a e5 20 8d 74 69 40  |no_move=0:. .ti@|
00001290  0d 00 a2 24 e7 20 a6 28  2d 36 37 29 20 8c 20 f2  |...$. .(-67) . .|
000012a0  70 5f 72 3a 6e 6f 5f 6d  6f 76 65 3d 30 3a e5 20  |p_r:no_move=0:. |
000012b0  8d 74 69 40 0d 00 a3 25  e7 20 a6 28 2d 31 30 35  |.ti@...%. .(-105|
000012c0  29 20 8c 20 f2 70 5f 64  3a 6e 6f 5f 6d 6f 76 65  |) . .p_d:no_move|
000012d0  3d 30 3a e5 20 8d 74 69  40 0d 00 a4 24 e7 20 a6  |=0:. .ti@...$. .|
000012e0  28 2d 38 30 29 20 8c 20  f2 70 5f 75 3a 6e 6f 5f  |(-80) . .p_u:no_|
000012f0  6d 6f 76 65 3d 30 3a e5  20 8d 74 69 40 0d 00 a5  |move=0:. .ti@...|
00001300  1c e7 20 a6 28 2d 31 30  32 29 20 8c 20 f2 6c 6f  |.. .(-102) . .lo|
00001310  63 61 6c 5f 6d 61 70 3a  e1 0d 00 a7 1e e7 20 62  |cal_map:...... b|
00001320  70 25 3d 33 39 20 8c 20  f2 65 6e 65 72 67 79 28  |p%=39 . .energy(|
00001330  64 72 61 69 6e 25 29 0d  00 a8 3f f2 6f 75 74 28  |drain%)...?.out(|
00001340  70 78 25 2c 70 79 25 2c  31 29 3a 6e 6f 5f 6d 6f  |px%,py%,1):no_mo|
00001350  76 65 2b 3d 31 3a e7 20  6e 6f 5f 6d 6f 76 65 3d  |ve+=1:. no_move=|
00001360  31 30 30 20 f2 66 6f 6f  64 28 31 29 3a 6e 6f 5f  |100 .food(1):no_|
00001370  6d 6f 76 65 3d 30 0d 00  a9 2c 3f 28 53 63 72 65  |move=0...,?(Scre|
00001380  65 6e 2b 28 70 78 25 2b  73 78 25 2a 31 36 29 2b  |en+(px%+sx%*16)+|
00001390  28 70 79 25 2b 73 79 25  2a 38 29 2a 31 32 38 29  |(py%+sy%*8)*128)|
000013a0  3d 31 0d 00 aa 05 e1 0d  00 ab 0a dd 20 f2 70 5f  |=1.......... .p_|
000013b0  6c 0d 00 ac 0f 64 69 72  65 63 74 69 6f 6e 3d 32  |l....direction=2|
000013c0  0d 00 ad 22 78 31 25 3d  78 31 25 2d 31 3a e7 20  |..."x1%=x1%-1:. |
000013d0  78 32 25 3d 30 20 80 20  78 31 25 3d 2d 31 20 8c  |x2%=0 . x1%=-1 .|
000013e0  20 e1 0d 00 ae 1f e7 20  78 31 25 3d 2d 31 20 8c  | ...... x1%=-1 .|
000013f0  20 78 31 25 3d 31 35 3a  78 32 25 3d 78 32 25 2d  | x1%=15:x2%=x2%-|
00001400  31 0d 00 af 17 f2 63 68  65 63 6b 5f 62 65 6c 6f  |1.....check_belo|
00001410  77 5f 70 6c 61 79 65 72  0d 00 b0 11 e7 20 78 31  |w_player..... x1|
00001420  25 3d 70 78 25 20 8c 20  e1 0d 00 b1 0f e7 20 78  |%=px% . ...... x|
00001430  32 25 3d 73 78 25 20 8c  0d 00 b2 2c e3 20 70 63  |2%=sx% ....,. pc|
00001440  3d 31 20 b8 20 34 3a f2  6f 75 74 32 28 78 31 25  |=1 . 4:.out2(x1%|
00001450  2c 79 31 25 2c 22 50 4c  59 4c 22 2b c3 28 70 63  |,y1%,"PLYL"+.(pc|
00001460  29 29 3a ed 0d 00 b3 40  f2 6f 75 74 28 70 78 25  |)):....@.out(px%|
00001470  2c 70 79 25 2c 62 70 25  29 3a 3f 28 53 63 72 65  |,py%,bp%):?(Scre|
00001480  65 6e 2b 28 70 78 25 2b  73 78 25 2a 31 36 29 2b  |en+(px%+sx%*16)+|
00001490  28 70 79 25 2b 73 79 25  2a 38 29 2a 31 32 38 29  |(py%+sy%*8)*128)|
000014a0  3d 62 70 25 0d 00 b4 2c  3f 28 53 63 72 65 65 6e  |=bp%...,?(Screen|
000014b0  2b 28 78 31 25 2b 78 32  25 2a 31 36 29 2b 28 79  |+(x1%+x2%*16)+(y|
000014c0  31 25 2b 79 32 25 2a 38  29 2a 31 32 38 29 3d 31  |1%+y2%*8)*128)=1|
000014d0  0d 00 b5 15 70 78 25 3d  78 31 25 3a 62 70 25 3d  |....px%=x1%:bp%=|
000014e0  75 6e 64 65 72 0d 00 b6  05 cd 0d 00 b7 10 e7 20  |under.......... |
000014f0  78 32 25 3c 3e 73 78 25  20 8c 0d 00 b8 2b e3 20  |x2%<>sx% ....+. |
00001500  70 63 3d 31 20 b8 20 34  3a f2 6f 75 74 32 28 2d  |pc=1 . 4:.out2(-|
00001510  31 2c 79 31 25 2c 22 50  4c 59 4c 22 2b c3 28 70  |1,y1%,"PLYL"+.(p|
00001520  63 29 29 3a ed 0d 00 b9  40 f2 6f 75 74 28 70 78  |c)):....@.out(px|
00001530  25 2c 70 79 25 2c 62 70  25 29 3a 3f 28 53 63 72  |%,py%,bp%):?(Scr|
00001540  65 65 6e 2b 28 70 78 25  2b 73 78 25 2a 31 36 29  |een+(px%+sx%*16)|
00001550  2b 28 70 79 25 2b 73 79  25 2a 38 29 2a 31 32 38  |+(py%+sy%*8)*128|
00001560  29 3d 62 70 25 0d 00 ba  2c 3f 28 53 63 72 65 65  |)=bp%...,?(Scree|
00001570  6e 2b 28 78 31 25 2b 78  32 25 2a 31 36 29 2b 28  |n+(x1%+x2%*16)+(|
00001580  79 31 25 2b 79 32 25 2a  38 29 2a 31 32 38 29 3d  |y1%+y2%*8)*128)=|
00001590  31 0d 00 bb 1d 62 70 25  3d 75 6e 64 65 72 3a 70  |1....bp%=under:p|
000015a0  78 25 3d 78 31 25 3a 73  78 25 3d 78 32 25 0d 00  |x%=x1%:sx%=x2%..|
000015b0  bc 0c f2 64 69 73 70 6c  61 79 0d 00 bd 05 cd 0d  |...display......|
000015c0  00 be 13 f2 65 6e 65 72  67 79 28 64 72 61 69 6e  |....energy(drain|
000015d0  25 29 0d 00 bf 05 e1 0d  00 c0 0a dd 20 f2 70 5f  |%).......... .p_|
000015e0  72 0d 00 c1 0f 64 69 72  65 63 74 69 6f 6e 3d 34  |r....direction=4|
000015f0  0d 00 c2 22 78 31 25 3d  78 31 25 2b 31 3a e7 20  |..."x1%=x1%+1:. |
00001600  78 32 25 3d 36 20 80 20  78 31 25 3d 31 36 20 8c  |x2%=6 . x1%=16 .|
00001610  20 e1 0d 00 c3 1e e7 20  78 31 25 3d 31 36 20 8c  | ...... x1%=16 .|
00001620  20 78 31 25 3d 30 3a 78  32 25 3d 78 32 25 2b 31  | x1%=0:x2%=x2%+1|
00001630  0d 00 c4 17 f2 63 68 65  63 6b 5f 62 65 6c 6f 77  |.....check_below|
00001640  5f 70 6c 61 79 65 72 0d  00 c5 11 e7 20 78 31 25  |_player..... x1%|
00001650  3d 70 78 25 20 8c 20 e1  0d 00 c6 0f e7 20 78 32  |=px% . ...... x2|
00001660  25 3d 73 78 25 20 8c 0d  00 c7 2c e3 20 70 63 3d  |%=sx% ....,. pc=|
00001670  31 20 b8 20 34 3a f2 6f  75 74 32 28 70 78 25 2c  |1 . 4:.out2(px%,|
00001680  70 79 25 2c 22 50 4c 59  52 22 2b c3 28 70 63 29  |py%,"PLYR"+.(pc)|
00001690  29 3a ed 0d 00 c8 40 f2  6f 75 74 28 70 78 25 2c  |):....@.out(px%,|
000016a0  70 79 25 2c 62 70 25 29  3a 3f 28 53 63 72 65 65  |py%,bp%):?(Scree|
000016b0  6e 2b 28 70 78 25 2b 73  78 25 2a 31 36 29 2b 28  |n+(px%+sx%*16)+(|
000016c0  70 79 25 2b 73 79 25 2a  38 29 2a 31 32 38 29 3d  |py%+sy%*8)*128)=|
000016d0  62 70 25 0d 00 c9 2c 3f  28 53 63 72 65 65 6e 2b  |bp%...,?(Screen+|
000016e0  28 78 31 25 2b 78 32 25  2a 31 36 29 2b 28 79 31  |(x1%+x2%*16)+(y1|
000016f0  25 2b 79 32 25 2a 38 29  2a 31 32 38 29 3d 31 0d  |%+y2%*8)*128)=1.|
00001700  00 ca 15 70 78 25 3d 78  31 25 3a 62 70 25 3d 75  |...px%=x1%:bp%=u|
00001710  6e 64 65 72 0d 00 cb 05  cd 0d 00 cc 10 e7 20 78  |nder.......... x|
00001720  32 25 3c 3e 73 78 25 20  8c 0d 00 cd 2c e3 20 70  |2%<>sx% ....,. p|
00001730  63 3d 31 20 b8 20 34 3a  f2 6f 75 74 32 28 70 78  |c=1 . 4:.out2(px|
00001740  25 2c 70 79 25 2c 22 50  4c 59 52 22 2b c3 28 70  |%,py%,"PLYR"+.(p|
00001750  63 29 29 3a ed 0d 00 ce  40 f2 6f 75 74 28 70 78  |c)):....@.out(px|
00001760  25 2c 70 79 25 2c 62 70  25 29 3a 3f 28 53 63 72  |%,py%,bp%):?(Scr|
00001770  65 65 6e 2b 28 70 78 25  2b 73 78 25 2a 31 36 29  |een+(px%+sx%*16)|
00001780  2b 28 70 79 25 2b 73 79  25 2a 38 29 2a 31 32 38  |+(py%+sy%*8)*128|
00001790  29 3d 62 70 25 0d 00 cf  2c 3f 28 53 63 72 65 65  |)=bp%...,?(Scree|
000017a0  6e 2b 28 78 31 25 2b 78  32 25 2a 31 36 29 2b 28  |n+(x1%+x2%*16)+(|
000017b0  79 31 25 2b 79 32 25 2a  38 29 2a 31 32 38 29 3d  |y1%+y2%*8)*128)=|
000017c0  31 0d 00 d0 1d 62 70 25  3d 75 6e 64 65 72 3a 70  |1....bp%=under:p|
000017d0  78 25 3d 78 31 25 3a 73  78 25 3d 78 32 25 0d 00  |x%=x1%:sx%=x2%..|
000017e0  d1 0c f2 64 69 73 70 6c  61 79 0d 00 d2 05 cd 0d  |...display......|
000017f0  00 d3 13 f2 65 6e 65 72  67 79 28 64 72 61 69 6e  |....energy(drain|
00001800  25 29 0d 00 d4 05 e1 0d  00 d5 0a dd 20 f2 70 5f  |%).......... .p_|
00001810  75 0d 00 d6 0f 64 69 72  65 63 74 69 6f 6e 3d 31  |u....direction=1|
00001820  0d 00 d7 22 79 31 25 3d  79 31 25 2d 31 3a e7 20  |..."y1%=y1%-1:. |
00001830  79 32 25 3d 30 20 80 20  79 31 25 3d 2d 31 20 8c  |y2%=0 . y1%=-1 .|
00001840  20 e1 0d 00 d8 1e e7 20  79 31 25 3d 2d 31 20 8c  | ...... y1%=-1 .|
00001850  20 79 31 25 3d 37 3a 79  32 25 3d 79 32 25 2d 31  | y1%=7:y2%=y2%-1|
00001860  0d 00 d9 17 f2 63 68 65  63 6b 5f 62 65 6c 6f 77  |.....check_below|
00001870  5f 70 6c 61 79 65 72 0d  00 da 11 e7 20 79 31 25  |_player..... y1%|
00001880  3d 70 79 25 20 8c 20 e1  0d 00 db 0f e7 20 79 32  |=py% . ...... y2|
00001890  25 3d 73 79 25 20 8c 0d  00 dc 2c e3 20 70 63 3d  |%=sy% ....,. pc=|
000018a0  31 20 b8 20 34 3a f2 6f  75 74 32 28 70 78 25 2c  |1 . 4:.out2(px%,|
000018b0  70 79 25 2c 22 50 4c 55  50 22 2b c3 28 70 63 29  |py%,"PLUP"+.(pc)|
000018c0  29 3a ed 0d 00 dd 40 f2  6f 75 74 28 70 78 25 2c  |):....@.out(px%,|
000018d0  70 79 25 2c 62 70 25 29  3a 3f 28 53 63 72 65 65  |py%,bp%):?(Scree|
000018e0  6e 2b 28 70 78 25 2b 73  78 25 2a 31 36 29 2b 28  |n+(px%+sx%*16)+(|
000018f0  70 79 25 2b 73 79 25 2a  38 29 2a 31 32 38 29 3d  |py%+sy%*8)*128)=|
00001900  62 70 25 0d 00 de 3c f2  6f 75 74 28 78 31 25 2c  |bp%...<.out(x1%,|
00001910  79 31 25 2c 31 29 3a 3f  28 53 63 72 65 65 6e 2b  |y1%,1):?(Screen+|
00001920  28 78 31 25 2b 78 32 25  2a 31 36 29 2b 28 79 31  |(x1%+x2%*16)+(y1|
00001930  25 2b 79 32 25 2a 38 29  2a 31 32 38 29 3d 31 0d  |%+y2%*8)*128)=1.|
00001940  00 df 15 70 79 25 3d 79  31 25 3a 62 70 25 3d 75  |...py%=y1%:bp%=u|
00001950  6e 64 65 72 0d 00 e0 05  cd 0d 00 e1 10 e7 20 79  |nder.......... y|
00001960  32 25 3c 3e 73 79 25 20  8c 0d 00 e2 2c e3 20 70  |2%<>sy% ....,. p|
00001970  63 3d 31 20 b8 20 34 3a  f2 6f 75 74 32 28 70 78  |c=1 . 4:.out2(px|
00001980  25 2c 70 79 25 2c 22 50  4c 55 50 22 2b c3 28 70  |%,py%,"PLUP"+.(p|
00001990  63 29 29 3a ed 0d 00 e3  40 f2 6f 75 74 28 70 78  |c)):....@.out(px|
000019a0  25 2c 70 79 25 2c 62 70  25 29 3a 3f 28 53 63 72  |%,py%,bp%):?(Scr|
000019b0  65 65 6e 2b 28 70 78 25  2b 73 78 25 2a 31 36 29  |een+(px%+sx%*16)|
000019c0  2b 28 70 79 25 2b 73 79  25 2a 38 29 2a 31 32 38  |+(py%+sy%*8)*128|
000019d0  29 3d 62 70 25 0d 00 e4  3c f2 6f 75 74 28 78 31  |)=bp%...<.out(x1|
000019e0  25 2c 79 31 25 2c 31 29  3a 3f 28 53 63 72 65 65  |%,y1%,1):?(Scree|
000019f0  6e 2b 28 78 31 25 2b 78  32 25 2a 31 36 29 2b 28  |n+(x1%+x2%*16)+(|
00001a00  79 31 25 2b 79 32 25 2a  38 29 2a 31 32 38 29 3d  |y1%+y2%*8)*128)=|
00001a10  31 0d 00 e5 1d 62 70 25  3d 75 6e 64 65 72 3a 70  |1....bp%=under:p|
00001a20  79 25 3d 79 31 25 3a 73  79 25 3d 79 32 25 0d 00  |y%=y1%:sy%=y2%..|
00001a30  e6 0c f2 64 69 73 70 6c  61 79 0d 00 e7 05 cd 0d  |...display......|
00001a40  00 e8 13 f2 65 6e 65 72  67 79 28 64 72 61 69 6e  |....energy(drain|
00001a50  25 29 0d 00 e9 05 e1 0d  00 ea 0a dd 20 f2 70 5f  |%).......... .p_|
00001a60  64 0d 00 eb 0f 64 69 72  65 63 74 69 6f 6e 3d 33  |d....direction=3|
00001a70  0d 00 ec 21 79 31 25 3d  79 31 25 2b 31 3a e7 20  |...!y1%=y1%+1:. |
00001a80  79 32 25 3d 36 20 80 20  79 31 25 3d 38 20 8c 20  |y2%=6 . y1%=8 . |
00001a90  e1 0d 00 ed 1d e7 20 79  31 25 3d 38 20 8c 20 79  |...... y1%=8 . y|
00001aa0  31 25 3d 30 3a 79 32 25  3d 79 32 25 2b 31 0d 00  |1%=0:y2%=y2%+1..|
00001ab0  ee 17 f2 63 68 65 63 6b  5f 62 65 6c 6f 77 5f 70  |...check_below_p|
00001ac0  6c 61 79 65 72 0d 00 ef  11 e7 20 79 31 25 3d 70  |layer..... y1%=p|
00001ad0  79 25 20 8c 20 e1 0d 00  f0 0f e7 20 79 32 25 3d  |y% . ...... y2%=|
00001ae0  73 79 25 20 8c 0d 00 f1  2c e3 20 70 63 3d 31 20  |sy% ....,. pc=1 |
00001af0  b8 20 34 3a f2 6f 75 74  32 28 78 31 25 2c 79 31  |. 4:.out2(x1%,y1|
00001b00  25 2c 22 50 4c 44 4e 22  2b c3 28 70 63 29 29 3a  |%,"PLDN"+.(pc)):|
00001b10  ed 0d 00 f2 40 f2 6f 75  74 28 70 78 25 2c 70 79  |....@.out(px%,py|
00001b20  25 2c 62 70 25 29 3a 3f  28 53 63 72 65 65 6e 2b  |%,bp%):?(Screen+|
00001b30  28 70 78 25 2b 73 78 25  2a 31 36 29 2b 28 70 79  |(px%+sx%*16)+(py|
00001b40  25 2b 73 79 25 2a 38 29  2a 31 32 38 29 3d 62 70  |%+sy%*8)*128)=bp|
00001b50  25 0d 00 f3 3c f2 6f 75  74 28 78 31 25 2c 79 31  |%...<.out(x1%,y1|
00001b60  25 2c 31 29 3a 3f 28 53  63 72 65 65 6e 2b 28 78  |%,1):?(Screen+(x|
00001b70  31 25 2b 78 32 25 2a 31  36 29 2b 28 79 31 25 2b  |1%+x2%*16)+(y1%+|
00001b80  79 32 25 2a 38 29 2a 31  32 38 29 3d 31 0d 00 f4  |y2%*8)*128)=1...|
00001b90  15 70 79 25 3d 79 31 25  3a 62 70 25 3d 75 6e 64  |.py%=y1%:bp%=und|
00001ba0  65 72 0d 00 f5 05 cd 0d  00 f6 10 e7 20 79 32 25  |er.......... y2%|
00001bb0  3c 3e 73 79 25 20 8c 0d  00 f7 2a e3 20 70 63 3d  |<>sy% ....*. pc=|
00001bc0  31 20 b8 20 34 3a f2 6f  75 74 32 28 78 31 25 2c  |1 . 4:.out2(x1%,|
00001bd0  38 2c 22 50 4c 44 4e 22  2b c3 28 70 63 29 29 3a  |8,"PLDN"+.(pc)):|
00001be0  ed 0d 00 f8 40 f2 6f 75  74 28 70 78 25 2c 70 79  |....@.out(px%,py|
00001bf0  25 2c 62 70 25 29 3a 3f  28 53 63 72 65 65 6e 2b  |%,bp%):?(Screen+|
00001c00  28 70 78 25 2b 73 78 25  2a 31 36 29 2b 28 70 79  |(px%+sx%*16)+(py|
00001c10  25 2b 73 79 25 2a 38 29  2a 31 32 38 29 3d 62 70  |%+sy%*8)*128)=bp|
00001c20  25 0d 00 f9 3c f2 6f 75  74 28 78 31 25 2c 79 31  |%...<.out(x1%,y1|
00001c30  25 2c 31 29 3a 3f 28 53  63 72 65 65 6e 2b 28 78  |%,1):?(Screen+(x|
00001c40  31 25 2b 78 32 25 2a 31  36 29 2b 28 79 31 25 2b  |1%+x2%*16)+(y1%+|
00001c50  79 32 25 2a 38 29 2a 31  32 38 29 3d 31 0d 00 fa  |y2%*8)*128)=1...|
00001c60  1d 62 70 25 3d 75 6e 64  65 72 3a 70 79 25 3d 79  |.bp%=under:py%=y|
00001c70  31 25 3a 73 79 25 3d 79  32 25 0d 00 fb 0c f2 64  |1%:sy%=y2%.....d|
00001c80  69 73 70 6c 61 79 0d 00  fc 05 cd 0d 00 fd 13 f2  |isplay..........|
00001c90  65 6e 65 72 67 79 28 64  72 61 69 6e 25 29 0d 00  |energy(drain%)..|
00001ca0  fe 05 e1 0d 00 ff 19 dd  20 f2 63 68 65 63 6b 5f  |........ .check_|
00001cb0  62 65 6c 6f 77 5f 70 6c  61 79 65 72 0d 01 00 1e  |below_player....|
00001cc0  75 6e 64 65 72 3d a4 61  74 28 78 31 25 2c 79 31  |under=.at(x1%,y1|
00001cd0  25 2c 78 32 25 2c 79 32  25 29 0d 01 01 0e c8 8e  |%,x2%,y2%)......|
00001ce0  20 75 6e 64 65 72 20 ca  0d 01 02 0e c9 20 38 3a  | under ...... 8:|
00001cf0  64 65 61 64 3d b9 0d 01  03 2a c9 20 31 33 3a 75  |dead=....*. 13:u|
00001d00  6e 64 65 72 3d 30 3a 53  25 3d 31 3a f2 66 6f 6f  |nder=0:S%=1:.foo|
00001d10  64 28 33 32 29 3a f2 53  43 4f 52 45 28 31 30 29  |d(32):.SCORE(10)|
00001d20  0d 01 04 2a c9 20 31 34  3a 75 6e 64 65 72 3d 30  |...*. 14:under=0|
00001d30  3a 53 25 3d 32 3a f2 66  6f 6f 64 28 33 32 29 3a  |:S%=2:.food(32):|
00001d40  f2 53 43 4f 52 45 28 31  30 29 0d 01 05 2a c9 20  |.SCORE(10)...*. |
00001d50  31 35 3a 75 6e 64 65 72  3d 30 3a 53 25 3d 33 3a  |15:under=0:S%=3:|
00001d60  f2 66 6f 6f 64 28 33 32  29 3a f2 53 43 4f 52 45  |.food(32):.SCORE|
00001d70  28 31 30 29 0d 01 06 2a  c9 20 31 36 3a 75 6e 64  |(10)...*. 16:und|
00001d80  65 72 3d 30 3a 53 25 3d  34 3a f2 66 6f 6f 64 28  |er=0:S%=4:.food(|
00001d90  33 32 29 3a f2 53 43 4f  52 45 28 31 30 29 0d 01  |32):.SCORE(10)..|
00001da0  07 28 c9 20 31 37 3a 78  31 25 3d 70 78 25 3a 78  |.(. 17:x1%=px%:x|
00001db0  32 25 3d 73 78 25 3a 79  31 25 3d 70 79 25 3a 79  |2%=sx%:y1%=py%:y|
00001dc0  32 25 3d 73 79 25 0d 01  08 28 c9 20 31 38 3a 78  |2%=sy%...(. 18:x|
00001dd0  31 25 3d 70 78 25 3a 78  32 25 3d 73 78 25 3a 79  |1%=px%:x2%=sx%:y|
00001de0  31 25 3d 70 79 25 3a 79  32 25 3d 73 79 25 0d 01  |1%=py%:y2%=sy%..|
00001df0  09 28 c9 20 31 39 3a 78  31 25 3d 70 78 25 3a 78  |.(. 19:x1%=px%:x|
00001e00  32 25 3d 73 78 25 3a 79  31 25 3d 70 79 25 3a 79  |2%=sx%:y1%=py%:y|
00001e10  32 25 3d 73 79 25 0d 01  0a 28 c9 20 32 30 3a 78  |2%=sy%...(. 20:x|
00001e20  31 25 3d 70 78 25 3a 78  32 25 3d 73 78 25 3a 79  |1%=px%:x2%=sx%:y|
00001e30  31 25 3d 70 79 25 3a 79  32 25 3d 73 79 25 0d 01  |1%=py%:y2%=sy%..|
00001e40  0b 3c c9 20 32 36 3a 75  6e 64 65 72 3d a4 64 69  |.<. 26:under=.di|
00001e50  73 73 6f 6c 76 65 28 32  36 29 3a 78 31 25 3d 70  |ssolve(26):x1%=p|
00001e60  78 25 3a 78 32 25 3d 73  78 25 3a 79 31 25 3d 70  |x%:x2%=sx%:y1%=p|
00001e70  79 25 3a 79 32 25 3d 73  79 25 0d 01 0c 3c c9 20  |y%:y2%=sy%...<. |
00001e80  32 35 3a 75 6e 64 65 72  3d a4 64 69 73 73 6f 6c  |25:under=.dissol|
00001e90  76 65 28 32 35 29 3a 78  31 25 3d 70 78 25 3a 78  |ve(25):x1%=px%:x|
00001ea0  32 25 3d 73 78 25 3a 79  31 25 3d 70 79 25 3a 79  |2%=sx%:y1%=py%:y|
00001eb0  32 25 3d 73 79 25 0d 01  0d 3c c9 20 32 34 3a 75  |2%=sy%...<. 24:u|
00001ec0  6e 64 65 72 3d a4 64 69  73 73 6f 6c 76 65 28 32  |nder=.dissolve(2|
00001ed0  34 29 3a 78 31 25 3d 70  78 25 3a 78 32 25 3d 73  |4):x1%=px%:x2%=s|
00001ee0  78 25 3a 79 31 25 3d 70  79 25 3a 79 32 25 3d 73  |x%:y1%=py%:y2%=s|
00001ef0  79 25 0d 01 0e 3c c9 20  32 33 3a 75 6e 64 65 72  |y%...<. 23:under|
00001f00  3d a4 64 69 73 73 6f 6c  76 65 28 32 33 29 3a 78  |=.dissolve(23):x|
00001f10  31 25 3d 70 78 25 3a 78  32 25 3d 73 78 25 3a 79  |1%=px%:x2%=sx%:y|
00001f20  31 25 3d 70 79 25 3a 79  32 25 3d 73 79 25 0d 01  |1%=py%:y2%=sy%..|
00001f30  0f 3c c9 20 32 32 3a 75  6e 64 65 72 3d a4 64 69  |.<. 22:under=.di|
00001f40  73 73 6f 6c 76 65 28 32  32 29 3a 78 31 25 3d 70  |ssolve(22):x1%=p|
00001f50  78 25 3a 78 32 25 3d 73  78 25 3a 79 31 25 3d 70  |x%:x2%=sx%:y1%=p|
00001f60  79 25 3a 79 32 25 3d 73  79 25 0d 01 10 3c c9 20  |y%:y2%=sy%...<. |
00001f70  32 31 3a 75 6e 64 65 72  3d a4 64 69 73 73 6f 6c  |21:under=.dissol|
00001f80  76 65 28 32 31 29 3a 78  31 25 3d 70 78 25 3a 78  |ve(21):x1%=px%:x|
00001f90  32 25 3d 73 78 25 3a 79  31 25 3d 70 79 25 3a 79  |2%=sx%:y1%=py%:y|
00001fa0  32 25 3d 73 79 25 0d 01  11 28 c9 20 32 37 3a 78  |2%=sy%...(. 27:x|
00001fb0  31 25 3d 70 78 25 3a 78  32 25 3d 73 78 25 3a 79  |1%=px%:x2%=sx%:y|
00001fc0  31 25 3d 70 79 25 3a 79  32 25 3d 73 79 25 0d 01  |1%=py%:y2%=sy%..|
00001fd0  12 28 c9 20 32 38 3a 78  31 25 3d 70 78 25 3a 78  |.(. 28:x1%=px%:x|
00001fe0  32 25 3d 73 78 25 3a 79  31 25 3d 70 79 25 3a 79  |2%=sx%:y1%=py%:y|
00001ff0  32 25 3d 73 79 25 0d 01  13 28 c9 20 32 39 3a 78  |2%=sy%...(. 29:x|
00002000  31 25 3d 70 78 25 3a 78  32 25 3d 73 78 25 3a 79  |1%=px%:x2%=sx%:y|
00002010  31 25 3d 70 79 25 3a 79  32 25 3d 73 79 25 0d 01  |1%=py%:y2%=sy%..|
00002020  14 28 c9 20 33 30 3a 78  31 25 3d 70 78 25 3a 78  |.(. 30:x1%=px%:x|
00002030  32 25 3d 73 78 25 3a 79  31 25 3d 70 79 25 3a 79  |2%=sx%:y1%=py%:y|
00002040  32 25 3d 73 79 25 0d 01  15 1b c9 20 33 35 3a 75  |2%=sy%..... 35:u|
00002050  6e 64 65 72 3d 30 3a f2  66 6f 6f 64 28 33 35 30  |nder=0:.food(350|
00002060  29 0d 01 16 0e c9 20 33  36 3a 77 6f 6e 3d b9 0d  |)..... 36:won=..|
00002070  01 17 18 c9 20 33 38 3a  f2 6b 65 79 3a f2 53 43  |.... 38:.key:.SC|
00002080  4f 52 45 28 31 35 29 0d  01 18 15 c9 20 33 39 3a  |ORE(15)..... 39:|
00002090  64 72 61 69 6e 25 3d 72  61 74 65 25 0d 01 19 10  |drain%=rate%....|
000020a0  c9 20 30 3a 64 72 61 69  6e 25 3d 31 0d 01 1a 50  |. 0:drain%=1...P|
000020b0  c9 20 34 35 3a 72 61 74  65 25 3d 72 61 74 65 25  |. 45:rate%=rate%|
000020c0  2d 31 30 3a 62 31 3d b9  3a 75 6e 64 65 72 3d 30  |-10:b1=.:under=0|
000020d0  3a f2 6f 75 74 28 31 31  2c 31 30 2c 34 35 29 3a  |:.out(11,10,45):|
000020e0  f2 53 43 4f 52 45 28 32  35 29 3a e7 20 72 61 74  |.SCORE(25):. rat|
000020f0  65 25 3c 35 20 72 61 74  65 25 3d 31 0d 01 1b 50  |e%<5 rate%=1...P|
00002100  c9 20 34 36 3a 72 61 74  65 25 3d 72 61 74 65 25  |. 46:rate%=rate%|
00002110  2d 31 30 3a 62 32 3d b9  3a 75 6e 64 65 72 3d 30  |-10:b2=.:under=0|
00002120  3a f2 6f 75 74 28 31 33  2c 31 30 2c 34 36 29 3a  |:.out(13,10,46):|
00002130  f2 53 43 4f 52 45 28 32  35 29 3a e7 20 72 61 74  |.SCORE(25):. rat|
00002140  65 25 3c 35 20 72 61 74  65 25 3d 31 0d 01 1c 50  |e%<5 rate%=1...P|
00002150  c9 20 34 37 3a 72 61 74  65 25 3d 72 61 74 65 25  |. 47:rate%=rate%|
00002160  2d 31 30 3a 62 33 3d b9  3a 75 6e 64 65 72 3d 30  |-10:b3=.:under=0|
00002170  3a f2 6f 75 74 28 31 32  2c 31 30 2c 34 37 29 3a  |:.out(12,10,47):|
00002180  f2 53 43 4f 52 45 28 32  35 29 3a e7 20 72 61 74  |.SCORE(25):. rat|
00002190  65 25 3c 35 20 72 61 74  65 25 3d 31 0d 01 1d 05  |e%<5 rate%=1....|
000021a0  cb 0d 01 1e 05 e1 0d 01  1f 08 dd f2 73 31 0d 01  |............s1..|
000021b0  20 27 73 31 25 3d 73 31  25 2d 31 3a f1 20 8a 31  | 's1%=s1%-1:. .1|
000021c0  32 2c 32 39 29 3b c2 22  30 30 22 2b c3 28 73 31  |2,29);."00"+.(s1|
000021d0  25 29 2c 32 29 0d 01 21  0d e7 20 73 31 25 3d 30  |%),2)..!.. s1%=0|
000021e0  20 8c 0d 01 22 0f f2 53  43 4f 52 45 28 31 30 30  | ..."..SCORE(100|
000021f0  29 0d 01 23 0e f2 66 6f  6f 64 28 38 38 30 29 0d  |)..#..food(880).|
00002200  01 24 11 6c 65 76 65 6c  3d 6c 65 76 65 6c 2b 31  |.$.level=level+1|
00002210  0d 01 25 0f f2 72 65 64  72 61 77 28 31 37 29 0d  |..%..redraw(17).|
00002220  01 26 05 cd 0d 01 27 05  e1 0d 01 28 08 dd f2 73  |.&....'....(...s|
00002230  32 0d 01 29 27 73 32 25  3d 73 32 25 2d 31 3a f1  |2..)'s2%=s2%-1:.|
00002240  20 8a 32 30 2c 32 39 29  3b c2 22 30 30 22 2b c3  | .20,29);."00"+.|
00002250  28 73 32 25 29 2c 32 29  0d 01 2a 0d e7 20 73 32  |(s2%),2)..*.. s2|
00002260  25 3d 30 20 8c 0d 01 2b  1a f2 66 6f 6f 64 28 38  |%=0 ...+..food(8|
00002270  38 30 29 3a f2 53 43 4f  52 45 28 31 30 30 29 0d  |80):.SCORE(100).|
00002280  01 2c 11 6c 65 76 65 6c  3d 6c 65 76 65 6c 2b 31  |.,.level=level+1|
00002290  0d 01 2d 0f f2 72 65 64  72 61 77 28 31 38 29 0d  |..-..redraw(18).|
000022a0  01 2e 05 cd 0d 01 2f 05  e1 0d 01 30 08 dd f2 73  |....../....0...s|
000022b0  33 0d 01 31 27 73 33 25  3d 73 33 25 2d 31 3a f1  |3..1's3%=s3%-1:.|
000022c0  20 8a 32 38 2c 32 39 29  3b c2 22 30 30 22 2b c3  | .28,29);."00"+.|
000022d0  28 73 33 25 29 2c 32 29  0d 01 32 0d e7 20 73 33  |(s3%),2)..2.. s3|
000022e0  25 3d 30 20 8c 0d 01 33  1a f2 66 6f 6f 64 28 38  |%=0 ...3..food(8|
000022f0  38 30 29 3a f2 53 43 4f  52 45 28 31 30 30 29 0d  |80):.SCORE(100).|
00002300  01 34 11 6c 65 76 65 6c  3d 6c 65 76 65 6c 2b 31  |.4.level=level+1|
00002310  0d 01 35 0f f2 72 65 64  72 61 77 28 31 39 29 0d  |..5..redraw(19).|
00002320  01 36 05 cd 0d 01 37 05  e1 0d 01 38 08 dd f2 73  |.6....7....8...s|
00002330  34 0d 01 39 27 73 34 25  3d 73 34 25 2d 31 3a f1  |4..9's4%=s4%-1:.|
00002340  20 8a 33 36 2c 32 39 29  3b c2 22 30 30 22 2b c3  | .36,29);."00"+.|
00002350  28 73 34 25 29 2c 32 29  0d 01 3a 0d e7 20 73 34  |(s4%),2)..:.. s4|
00002360  25 3d 30 20 8c 0d 01 3b  1a f2 66 6f 6f 64 28 38  |%=0 ...;..food(8|
00002370  38 30 29 3a f2 53 43 4f  52 45 28 31 30 30 29 0d  |80):.SCORE(100).|
00002380  01 3c 11 6c 65 76 65 6c  3d 6c 65 76 65 6c 2b 31  |.<.level=level+1|
00002390  0d 01 3d 0f f2 72 65 64  72 61 77 28 32 30 29 0d  |..=..redraw(20).|
000023a0  01 3e 05 cd 0d 01 3f 05  e1 0d 01 40 15 dd 20 a4  |.>....?....@.. .|
000023b0  64 69 73 73 6f 6c 76 65  28 57 41 4c 4c 29 0d 01  |dissolve(WALL)..|
000023c0  41 20 57 41 4c 4c 3d 57  41 4c 4c 2b 31 3a e7 20  |A WALL=WALL+1:. |
000023d0  57 41 4c 4c 3d 32 37 20  57 41 4c 4c 3d 30 0d 01  |WALL=27 WALL=0..|
000023e0  42 50 f2 6f 75 74 28 28  70 78 25 2d 28 64 69 72  |BP.out((px%-(dir|
000023f0  65 63 74 69 6f 6e 3d 34  29 2b 28 64 69 72 65 63  |ection=4)+(direc|
00002400  74 69 6f 6e 3d 32 29 29  2c 70 79 25 2b 28 64 69  |tion=2)),py%+(di|
00002410  72 65 63 74 69 6f 6e 3d  31 29 2d 28 64 69 72 65  |rection=1)-(dire|
00002420  63 74 69 6f 6e 3d 33 29  2c 57 41 4c 4c 29 0d 01  |ction=3),WALL)..|
00002430  43 2f 3f 28 53 63 72 65  65 6e 2b 28 78 31 25 2b  |C/?(Screen+(x1%+|
00002440  78 32 25 2a 31 36 29 2b  28 79 31 25 2b 79 32 25  |x2%*16)+(y1%+y2%|
00002450  2a 38 29 2a 31 32 38 29  3d 57 41 4c 4c 0d 01 44  |*8)*128)=WALL..D|
00002460  0f f2 65 6e 65 72 67 79  28 32 30 29 0d 01 45 09  |..energy(20)..E.|
00002470  3d 57 41 4c 4c 0d 01 46  05 e1 0d 01 47 14 dd f2  |=WALL..F....G...|
00002480  66 6f 6f 64 28 69 6e 63  72 65 61 73 65 29 0d 01  |food(increase)..|
00002490  48 34 65 6e 65 72 67 79  3d 65 6e 65 72 67 79 2b  |H4energy=energy+|
000024a0  69 6e 63 72 65 61 73 65  3a e7 20 65 6e 65 72 67  |increase:. energ|
000024b0  79 3e 38 38 30 20 8c 20  65 6e 65 72 67 79 3d 38  |y>880 . energy=8|
000024c0  38 30 0d 01 49 1e e6 33  3a c8 93 20 c8 90 20 32  |80..I..3:.. .. 2|
000024d0  35 36 2c 31 32 38 2c 65  6e 65 72 67 79 2c 32 38  |56,128,energy,28|
000024e0  0d 01 4a 32 e7 20 65 6e  65 72 67 79 3e 31 36 30  |..J2. energy>160|
000024f0  20 8c 20 e6 31 32 3a c8  93 20 c8 90 20 34 31 36  | . .12:.. .. 416|
00002500  2c 31 32 38 2c 65 6e 65  72 67 79 2d 31 36 30 2c  |,128,energy-160,|
00002510  32 38 0d 01 4b 05 e1 0d  01 4c 0e dd 50 52 52 4f  |28..K....L..PRRO|
00002520  43 65 78 69 74 0d 01 4d  13 e7 20 6b 79 25 3d 30  |Cexit..M.. ky%=0|
00002530  20 8c 20 77 6f 6e 3d b9  0d 01 4e 2d e7 20 6b 79  | . won=...N-. ky|
00002540  25 3e 30 20 8c 20 78 31  25 3d 70 78 25 3a 78 32  |%>0 . x1%=px%:x2|
00002550  25 3d 73 78 25 3a 79 31  25 3d 70 79 25 3a 79 32  |%=sx%:y1%=py%:y2|
00002560  25 3d 73 79 25 0d 01 4f  05 e1 0d 01 55 14 dd f2  |%=sy%..O....U...|
00002570  65 6e 65 72 67 79 28 61  6d 6f 75 6e 74 29 0d 01  |energy(amount)..|
00002580  56 0b e6 30 20 c8 9c 20  30 0d 01 57 17 e7 20 65  |V..0 .. 0..W.. e|
00002590  6e 65 72 67 79 2d 61 6d  6f 75 6e 74 3e 30 20 8c  |nergy-amount>0 .|
000025a0  0d 01 58 2b c8 93 20 c8  90 20 32 35 36 2b 28 65  |..X+.. .. 256+(e|
000025b0  6e 65 72 67 79 2d 61 6d  6f 75 6e 74 29 2c 31 32  |nergy-amount),12|
000025c0  38 2c 61 6d 6f 75 6e 74  2c 32 38 0d 01 59 05 cc  |8,amount,28..Y..|
000025d0  0d 01 5a 1b c8 93 20 c8  90 20 32 35 36 2c 31 32  |..Z... .. 256,12|
000025e0  38 2c 61 6d 6f 75 6e 74  2c 32 38 0d 01 5b 05 cd  |8,amount,28..[..|
000025f0  0d 01 5c 2e 65 6e 65 72  67 79 3d 65 6e 65 72 67  |..\.energy=energ|
00002600  79 2d 61 6d 6f 75 6e 74  3a e7 20 65 6e 65 72 67  |y-amount:. energ|
00002610  79 3c 30 20 8c 20 65 6e  65 72 67 79 3d 30 0d 01  |y<0 . energy=0..|
00002620  5d 17 e7 20 65 6e 65 72  67 79 3d 30 20 8c 20 64  |].. energy=0 . d|
00002630  65 61 64 3d b9 0d 01 5e  05 e1 0d 01 5f 09 dd f2  |ead=...^...._...|
00002640  6b 65 79 0d 01 60 15 6b  79 25 3d 6b 79 25 2d 31  |key..`.ky%=ky%-1|
00002650  3a 75 6e 64 65 72 3d 30  0d 01 61 1d f1 20 8a 34  |:under=0..a.. .4|
00002660  34 2c 32 39 29 3b c2 22  30 30 22 2b c3 28 6b 79  |4,29);."00"+.(ky|
00002670  25 29 2c 32 29 0d 01 62  05 e1 0d 01 63 0f dd f2  |%),2)..b....c...|
00002680  6c 6f 63 61 6c 5f 6d 61  70 0d 01 64 1c e6 30 3a  |local_map..d..0:|
00002690  c8 93 20 c8 90 20 36 34  2c 31 39 32 2c 31 31 35  |.. .. 64,192,115|
000026a0  32 2c 37 39 36 0d 01 65  29 4f 58 25 3d 28 70 78  |2,796..e)OX%=(px|
000026b0  25 2b 73 78 25 2a 31 36  29 2d 32 38 3a 4f 59 25  |%+sx%*16)-28:OY%|
000026c0  3d 28 70 79 25 2b 73 79  25 2a 38 29 2d 39 0d 01  |=(py%+sy%*8)-9..|
000026d0  66 0f e3 20 58 25 3d 30  20 b8 20 35 36 0d 01 67  |f.. X%=0 . 56..g|
000026e0  0f e3 20 59 25 3d 30 20  b8 20 31 39 0d 01 68 1f  |.. Y%=0 . 19..h.|
000026f0  e7 20 28 58 25 2b 4f 58  25 29 3c 30 20 8c 20 43  |. (X%+OX%)<0 . C|
00002700  25 3d 32 37 3a e5 20 8d  44 6f 41 0d 01 69 21 e7  |%=27:. .DoA..i!.|
00002710  20 28 4f 58 25 2b 58 25  29 3e 31 31 31 20 8c 20  | (OX%+X%)>111 . |
00002720  43 25 3d 32 37 3a e5 20  8d 44 6f 41 0d 01 6a 20  |C%=27:. .DoA..j |
00002730  e7 20 28 4f 59 25 2b 59  25 29 3e 35 35 20 8c 20  |. (OY%+Y%)>55 . |
00002740  43 25 3d 32 37 3a e5 20  8d 44 6f 41 0d 01 6b 1f  |C%=27:. .DoA..k.|
00002750  e7 20 28 4f 59 25 2b 59  25 29 3c 30 20 8c 20 43  |. (OY%+Y%)<0 . C|
00002760  25 3d 32 37 3a e5 20 8d  44 6f 41 0d 01 6c 26 43  |%=27:. .DoA..l&C|
00002770  25 3d 3f 28 53 63 72 65  65 6e 2b 28 58 25 2b 4f  |%=?(Screen+(X%+O|
00002780  58 25 2b 31 32 38 2a 28  59 25 2b 4f 59 25 29 29  |X%+128*(Y%+OY%))|
00002790  29 0d 01 6d 12 e7 20 43  25 3e 36 30 20 8c 20 43  |)..m.. C%>60 . C|
000027a0  25 3d 30 0d 01 6e 1b e7  20 43 25 3e 32 31 20 80  |%=0..n.. C%>21 .|
000027b0  20 43 25 3c 32 37 20 8c  20 43 25 3d 32 31 0d 01  | C%<27 . C%=21..|
000027c0  6f 3f c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |o?.."OS_SpriteOp|
000027d0  22 2c 33 34 2b 32 35 36  2c 53 6d 61 6c 6c 2c 53  |",34+256,Small,S|
000027e0  4e 24 28 43 25 29 2c 37  32 2b 58 25 2a 32 30 2c  |N$(C%),72+X%*20,|
000027f0  39 35 32 2d 28 59 25 2a  34 30 29 2c 30 0d 01 70  |952-(Y%*40),0..p|
00002800  06 ed 2c 0d 01 71 11 f5  20 fd 20 ac 20 a6 28 2d  |..,..q.. . . .(-|
00002810  31 30 32 29 0d 01 72 0f  f5 20 fd 20 a6 28 2d 31  |102)..r.. . .(-1|
00002820  30 32 29 0d 01 73 11 f5  20 fd 20 ac 20 a6 28 2d  |02)..s.. . . .(-|
00002830  31 30 32 29 0d 01 74 0c  f2 64 69 73 70 6c 61 79  |102)..t..display|
00002840  0d 01 75 05 e1 0d 01 76  10 dd f2 72 65 64 72 61  |..u....v...redra|
00002850  77 28 5a 25 29 0d 01 77  1a e3 20 58 3d 2d 31 20  |w(Z%)..w.. X=-1 |
00002860  b8 20 31 36 3a e3 20 59  3d 2d 31 20 b8 20 38 0d  |. 16:. Y=-1 . 8.|
00002870  01 78 1b 43 58 3d 73 78  25 3a 43 59 3d 73 79 25  |.x.CX=sx%:CY=sy%|
00002880  3a 41 58 3d 58 3a 41 59  3d 59 0d 01 79 18 e7 20  |:AX=X:AY=Y..y.. |
00002890  58 3d 2d 31 20 80 20 59  3d 2d 31 20 8c 20 8d 74  |X=-1 . Y=-1 . .t|
000028a0  49 41 0d 01 7a 17 e7 20  58 3d 2d 31 20 80 20 59  |IA..z.. X=-1 . Y|
000028b0  3d 38 20 8c 20 8d 74 49  41 0d 01 7b 18 e7 20 58  |=8 . .tIA..{.. X|
000028c0  3d 31 36 20 80 20 59 3d  2d 31 20 8c 20 8d 74 49  |=16 . Y=-1 . .tI|
000028d0  41 0d 01 7c 17 e7 20 58  3d 31 36 20 80 20 59 3d  |A..|.. X=16 . Y=|
000028e0  38 20 8c 20 8d 74 49 41  0d 01 7d 19 e7 20 58 3d  |8 . .tIA..}.. X=|
000028f0  2d 31 20 80 20 73 78 25  3d 30 20 8c 20 8d 74 49  |-1 . sx%=0 . .tI|
00002900  41 0d 01 7e 19 e7 20 58  3d 31 36 20 80 20 73 78  |A..~.. X=16 . sx|
00002910  25 3d 36 20 8c 20 8d 74  49 41 0d 01 7f 18 e7 20  |%=6 . .tIA..... |
00002920  59 3d 38 20 80 20 73 79  25 3d 36 20 8c 20 8d 74  |Y=8 . sy%=6 . .t|
00002930  49 41 0d 01 80 19 e7 20  59 3d 2d 31 20 80 20 73  |IA..... Y=-1 . s|
00002940  79 25 3d 30 20 8c 20 8d  74 49 41 0d 01 81 1a e7  |y%=0 . .tIA.....|
00002950  20 58 3d 2d 31 20 8c 20  43 58 3d 43 58 2d 31 3a  | X=-1 . CX=CX-1:|
00002960  41 58 3d 31 35 0d 01 82  19 e7 20 59 3d 2d 31 20  |AX=15..... Y=-1 |
00002970  8c 20 43 59 3d 43 59 2d  31 3a 41 59 3d 38 0d 01  |. CY=CY-1:AY=8..|
00002980  83 19 e7 20 58 3d 31 36  20 8c 20 43 58 3d 43 58  |... X=16 . CX=CX|
00002990  2b 31 3a 41 58 3d 30 0d  01 84 18 e7 20 59 3d 38  |+1:AX=0..... Y=8|
000029a0  20 8c 20 43 59 3d 43 59  2b 31 3a 41 59 3d 30 0d  | . CY=CY+1:AY=0.|
000029b0  01 85 2b e7 20 5a 25 3d  3f 28 53 63 72 65 65 6e  |..+. Z%=?(Screen|
000029c0  2b 41 58 2b 43 58 2a 31  36 2b 28 41 59 2b 43 59  |+AX+CX*16+(AY+CY|
000029d0  2a 38 29 2a 31 32 38 29  20 8c 0d 01 86 26 3f 28  |*8)*128) ....&?(|
000029e0  53 63 72 65 65 6e 2b 41  58 2b 43 58 2a 31 36 2b  |Screen+AX+CX*16+|
000029f0  28 41 59 2b 43 59 2a 38  29 2a 31 32 38 29 3d 30  |(AY+CY*8)*128)=0|
00002a00  0d 01 87 0f f2 6f 75 74  28 58 2c 59 2c 30 29 0d  |.....out(X,Y,0).|
00002a10  01 88 05 cd 0d 01 89 06  ed 2c 0d 01 8a 05 e1 0d  |.........,......|
00002a20  01 8b 10 dd f2 6d 6f 76  65 5f 67 68 6f 73 74 0d  |.....move_ghost.|
00002a30  01 8c 0b 6f 64 25 3d 67  64 25 0d 01 8d 13 6e 78  |...od%=gd%....nx|
00002a40  25 3d 67 78 25 3a 6e 79  25 3d 67 79 25 0d 01 8e  |%=gx%:ny%=gy%...|
00002a50  0c c8 8e 20 67 64 25 20  ca 0d 01 8f 0e c9 20 31  |... gd% ...... 1|
00002a60  3a 6e 79 25 2d 3d 31 0d  01 90 0e c9 20 32 3a 6e  |:ny%-=1..... 2:n|
00002a70  78 25 2b 3d 31 0d 01 91  0e c9 20 33 3a 6e 79 25  |x%+=1..... 3:ny%|
00002a80  2b 3d 31 0d 01 92 0e c9  20 34 3a 6e 78 25 2d 3d  |+=1..... 4:nx%-=|
00002a90  31 0d 01 93 05 cb 0d 01  94 37 e7 20 6e 78 25 3d  |1........7. nx%=|
00002aa0  2d 31 20 84 20 6e 78 25  3d 31 36 20 84 20 6e 79  |-1 . nx%=16 . ny|
00002ab0  25 3d 2d 31 20 84 20 6e  79 25 3d 38 20 8c 20 f2  |%=-1 . ny%=8 . .|
00002ac0  72 6f 74 61 74 65 3a e5  20 8d 74 4d 41 0d 01 95  |rotate:. .tMA...|
00002ad0  1b 63 68 3d a4 61 74 28  6e 78 25 2c 6e 79 25 2c  |.ch=.at(nx%,ny%,|
00002ae0  73 78 25 2c 73 79 25 29  0d 01 96 1b e7 20 63 68  |sx%,sy%)..... ch|
00002af0  3e 31 20 8c 20 f2 72 6f  74 61 74 65 3a e5 20 8d  |>1 . .rotate:. .|
00002b00  74 4d 41 0d 01 97 1a e7  20 63 68 3d 31 20 8c 20  |tMA..... ch=1 . |
00002b10  64 65 61 64 3d b9 3a e5  20 8d 74 59 41 0d 01 98  |dead=.:. .tYA...|
00002b20  12 e7 20 6f 64 25 3c 3e  67 64 25 20 8c 20 e1 0d  |.. od%<>gd% . ..|
00002b30  01 99 0c c8 8e 20 67 64  25 20 ca 0d 01 9a 2e c9  |..... gd% ......|
00002b40  20 31 3a e3 20 58 3d 31  20 b8 20 34 3a f2 6f 75  | 1:. X=1 . 4:.ou|
00002b50  74 32 28 67 78 25 2c 67  79 25 2c 22 47 53 54 55  |t2(gx%,gy%,"GSTU|
00002b60  22 2b c3 28 58 29 29 3a  ed 0d 01 9b 2e c9 20 32  |"+.(X)):...... 2|
00002b70  3a e3 20 58 3d 31 20 b8  20 34 3a f2 6f 75 74 32  |:. X=1 . 4:.out2|
00002b80  28 67 78 25 2c 67 79 25  2c 22 47 53 54 52 22 2b  |(gx%,gy%,"GSTR"+|
00002b90  c3 28 58 29 29 3a ed 0d  01 9c 30 c9 20 33 3a e3  |.(X)):....0. 3:.|
00002ba0  20 58 3d 31 20 b8 20 34  3a f2 6f 75 74 32 28 67  | X=1 . 4:.out2(g|
00002bb0  78 25 2c 67 79 25 2b 31  2c 22 47 53 54 44 22 2b  |x%,gy%+1,"GSTD"+|
00002bc0  c3 28 58 29 29 3a ed 0d  01 9d 30 c9 20 34 3a e3  |.(X)):....0. 4:.|
00002bd0  20 58 3d 31 20 b8 20 34  3a f2 6f 75 74 32 28 67  | X=1 . 4:.out2(g|
00002be0  78 25 2d 31 2c 67 79 25  2c 22 47 53 54 4c 22 2b  |x%-1,gy%,"GSTL"+|
00002bf0  c3 28 58 29 29 3a ed 0d  01 9e 05 cb 0d 01 9f 3a  |.(X)):.........:|
00002c00  f2 6f 75 74 28 6e 78 25  2c 6e 79 25 2c 38 29 3a  |.out(nx%,ny%,8):|
00002c10  3f 28 53 63 72 65 65 6e  2b 6e 78 25 2b 31 36 2a  |?(Screen+nx%+16*|
00002c20  73 78 25 2b 28 6e 79 25  2b 73 79 25 2a 38 29 2a  |sx%+(ny%+sy%*8)*|
00002c30  31 32 38 29 3d 38 0d 01  a0 3a f2 6f 75 74 28 67  |128)=8...:.out(g|
00002c40  78 25 2c 67 79 25 2c 30  29 3a 3f 28 53 63 72 65  |x%,gy%,0):?(Scre|
00002c50  65 6e 2b 67 78 25 2b 31  36 2a 73 78 25 2b 28 67  |en+gx%+16*sx%+(g|
00002c60  79 25 2b 73 79 25 2a 38  29 2a 31 32 38 29 3d 30  |y%+sy%*8)*128)=0|
00002c70  0d 01 a1 1a 67 78 25 3d  6e 78 25 3a 67 79 25 3d  |....gx%=nx%:gy%=|
00002c80  6e 79 25 3a 62 67 25 3d  63 68 0d 01 a2 05 e1 0d  |ny%:bg%=ch......|
00002c90  01 a3 0c dd f2 72 6f 74  61 74 65 0d 01 a4 1b 4e  |.....rotate....N|
00002ca0  44 25 3d b3 28 32 29 3a  e7 20 4e 44 25 3d 32 20  |D%=.(2):. ND%=2 |
00002cb0  4e 44 25 3d 2d 31 0d 01  a5 0f 67 64 25 3d 67 64  |ND%=-1....gd%=gd|
00002cc0  25 2b 4e 44 25 0d 01 a6  11 e7 20 67 64 25 3d 35  |%+ND%..... gd%=5|
00002cd0  20 67 64 25 3d 31 0d 01  a7 11 e7 20 67 64 25 3d  | gd%=1..... gd%=|
00002ce0  30 20 67 64 25 3d 34 0d  01 a8 05 e1 0d 01 a9 1a  |0 gd%=4.........|
00002cf0  dd 20 a4 67 64 28 67 78  25 2c 67 79 25 2c 73 78  |. .gd(gx%,gy%,sx|
00002d00  25 2c 73 79 25 29 0d 01  aa 11 e7 20 67 78 25 3d  |%,sy%)..... gx%=|
00002d10  2d 31 20 8c 20 3d 30 0d  01 ab 2b e7 20 67 79 25  |-1 . =0...+. gy%|
00002d20  3e 30 20 80 20 a4 61 74  28 67 78 25 2c 67 79 25  |>0 . .at(gx%,gy%|
00002d30  2d 31 2c 73 78 25 2c 73  79 25 29 3d 30 20 8c 20  |-1,sx%,sy%)=0 . |
00002d40  3d 31 0d 01 ac 2c e7 20  67 78 25 3c 31 35 20 80  |=1...,. gx%<15 .|
00002d50  20 a4 61 74 28 67 78 25  2b 31 2c 67 79 25 2c 73  | .at(gx%+1,gy%,s|
00002d60  78 25 2c 73 79 25 29 3d  30 20 8c 20 3d 32 0d 01  |x%,sy%)=0 . =2..|
00002d70  ad 2b e7 20 67 79 25 3c  37 20 80 20 a4 61 74 28  |.+. gy%<7 . .at(|
00002d80  67 78 25 2c 67 79 25 2b  31 2c 73 78 25 2c 73 79  |gx%,gy%+1,sx%,sy|
00002d90  25 29 3d 30 20 8c 20 3d  33 0d 01 ae 2b e7 20 67  |%)=0 . =3...+. g|
00002da0  78 25 3e 30 20 80 20 a4  61 74 28 67 78 25 2d 31  |x%>0 . .at(gx%-1|
00002db0  2c 67 79 25 2c 73 78 25  2c 73 79 25 29 3d 30 20  |,gy%,sx%,sy%)=0 |
00002dc0  8c 20 3d 34 0d 01 af 2c  e7 20 67 78 25 3c 31 35  |. =4...,. gx%<15|
00002dd0  20 80 20 a4 61 74 28 67  78 25 2b 31 2c 67 79 25  | . .at(gx%+1,gy%|
00002de0  2c 73 78 25 2c 73 79 25  29 3d 30 20 8c 20 3d 32  |,sx%,sy%)=0 . =2|
00002df0  0d 01 b0 06 3d 30 0d 01  b1 2b dd f2 74 74 6c 73  |....=0...+..ttls|
00002e00  63 6e 3a f2 4f 50 53 3a  6e 65 78 74 24 3d a4 73  |cn:.OPS:next$=.s|
00002e10  65 6c 65 63 74 28 bd 28  3f 28 74 65 78 74 29 29  |elect(.(?(text))|
00002e20  29 0d 01 b2 28 73 63 68  63 65 3d 2d 31 3a 73 63  |)...(schce=-1:sc|
00002e30  72 6f 6c 6c 3d 30 3a 73  63 72 6f 6c 6c 69 6e 67  |roll=0:scrolling|
00002e40  3d a3 3a 6e 63 68 72 3d  31 0d 01 b3 12 ef 32 38  |=.:nchr=1.....28|
00002e50  2c 35 2c 32 39 2c 37 35  2c 32 37 0d 01 b4 15 ef  |,5,29,75,27.....|
00002e60  32 34 2c 30 3b 30 3b 31  31 39 39 3b 31 36 30 3b  |24,0;0;1199;160;|
00002e70  0d 01 b5 0d f5 3a f2 73  63 72 6f 6c 6c 0d 01 b6  |.....:.scroll...|
00002e80  20 e7 20 a6 28 2d 34 39  29 20 84 20 a6 28 2d 31  | . .(-49) . .(-1|
00002e90  30 38 29 20 8c 20 73 63  68 63 65 3d 31 0d 01 b7  |08) . schce=1...|
00002ea0  20 e7 20 a6 28 2d 35 30  29 20 84 20 a6 28 2d 31  | . .(-50) . .(-1|
00002eb0  32 35 29 20 8c 20 73 63  68 63 65 3d 32 0d 01 b8  |25) . schce=2...|
00002ec0  20 e7 20 a6 28 2d 31 38  29 20 84 20 a6 28 2d 31  | . .(-18) . .(-1|
00002ed0  30 39 29 20 8c 20 73 63  68 63 65 3d 33 0d 01 b9  |09) . schce=3...|
00002ee0  20 e7 20 a6 28 2d 31 39  29 20 84 20 a6 28 2d 31  | . .(-19) . .(-1|
00002ef0  32 33 29 20 8c 20 73 63  68 63 65 3d 34 0d 01 ba  |23) . schce=4...|
00002f00  20 e7 20 a6 28 2d 32 30  29 20 84 20 a6 28 2d 31  | . .(-20) . .(-1|
00002f10  32 34 29 20 8c 20 73 63  68 63 65 3d 35 0d 01 bb  |24) . schce=5...|
00002f20  1f e7 20 a6 28 2d 35 33  29 20 84 20 a6 28 2d 32  |.. .(-53) . .(-2|
00002f30  37 29 20 8c 20 73 63 68  63 65 3d 36 0d 01 bc 16  |7) . schce=6....|
00002f40  e7 20 a6 28 2d 38 37 29  20 8c 20 73 63 68 63 65  |. .(-87) . schce|
00002f50  3d 30 0d 01 bd 15 e7 20  a6 28 2d 38 32 29 20 8c  |=0..... .(-82) .|
00002f60  20 f2 73 6f 75 6e 64 0d  01 be 0e fd 20 73 63 68  | .sound..... sch|
00002f70  63 65 3e 3d 30 0d 01 bf  07 ef 32 36 0d 01 c0 0b  |ce>=0.....26....|
00002f80  2a 46 58 31 35 2c 31 0d  01 c1 05 e1 0d 01 c6 09  |*FX15,1.........|
00002f90  dd f2 44 49 45 0d 01 c7  0f e3 20 41 3d 33 31 20  |..DIE..... A=31 |
00002fa0  b8 20 33 34 0d 01 c8 13  f2 6f 75 74 28 70 78 25  |. 34.....out(px%|
00002fb0  2c 70 79 25 2c 41 29 0d  01 c9 12 e3 20 54 3d 30  |,py%,A)..... T=0|
00002fc0  20 b8 20 35 30 30 30 3a  ed 0d 01 ca 05 ed 0d 01  | . 5000:........|
00002fd0  cb 13 f2 6f 75 74 28 70  78 25 2c 70 79 25 2c 30  |...out(px%,py%,0|
00002fe0  29 0d 01 cc 05 e1 0d 01  cd 0c dd f2 73 63 72 6f  |)...........scro|
00002ff0  6c 6c 0d 01 ce 18 e7 20  73 63 72 6f 6c 6c 69 6e  |ll..... scrollin|
00003000  67 20 8c 20 f2 73 63 72  3a e1 0d 01 cf 10 f2 6e  |g . .scr:......n|
00003010  65 78 74 5f 63 68 61 72  3a e1 0d 01 d0 0f dd f2  |ext_char:.......|
00003020  6e 65 78 74 5f 63 68 61  72 0d 01 d1 1d 73 63 72  |next_char....scr|
00003030  6f 6c 6c 69 6e 67 3d b9  3a 73 63 72 6f 6c 6c 65  |olling=.:scrolle|
00003040  64 3d 31 32 30 30 0d 01  d2 0e 6f 75 74 24 3d 6e  |d=1200....out$=n|
00003050  65 78 74 24 0d 01 d3 42  6e 65 78 74 24 3d a4 73  |ext$...Bnext$=.s|
00003060  65 6c 65 63 74 28 bd 28  3f 28 6e 63 68 72 2b 74  |elect(.(?(nchr+t|
00003070  65 78 74 29 29 29 3a 6e  63 68 72 3d 6e 63 68 72  |ext))):nchr=nchr|
00003080  2b 31 3a e7 20 6e 63 68  72 3d 73 63 72 74 6c 20  |+1:. nchr=scrtl |
00003090  6e 63 68 72 3d 30 0d 01  d4 17 f2 70 6c 6f 74 28  |nchr=0.....plot(|
000030a0  6f 75 74 24 2c 31 31 33  36 2c 36 30 29 0d 01 d5  |out$,1136,60)...|
000030b0  05 e1 0d 01 d6 09 dd f2  73 63 72 0d 01 d7 11 e3  |........scr.....|
000030c0  20 74 69 6d 65 73 3d 31  20 b8 20 34 0d 01 d8 10  | times=1 . 4....|
000030d0  ef 32 33 2c 37 2c 30 2c  31 2c 31 7c 0d 01 d9 05  |.23,7,0,1,1|....|
000030e0  ed 0d 01 da 17 73 63 72  6f 6c 6c 65 64 3d 73 63  |.....scrolled=sc|
000030f0  72 6f 6c 6c 65 64 2d 38  0d 01 db 1c f2 70 6c 6f  |rolled-8.....plo|
00003100  74 28 6e 65 78 74 24 2c  73 63 72 6f 6c 6c 65 64  |t(next$,scrolled|
00003110  2c 36 30 29 0d 01 dc 22  e7 20 73 63 72 6f 6c 6c  |,60)...". scroll|
00003120  65 64 3c 3d 31 31 33 36  20 8c 20 73 63 72 6f 6c  |ed<=1136 . scrol|
00003130  6c 69 6e 67 3d a3 0d 01  dd 05 e1 0d 01 de 14 dd  |ling=...........|
00003140  20 a4 73 65 6c 65 63 74  28 63 74 70 24 29 3a 0d  | .select(ctp$):.|
00003150  01 df 23 e7 20 63 74 70  24 3e 3d 22 41 22 20 80  |..#. ctp$>="A" .|
00003160  20 63 74 70 24 3c 3d 22  5a 22 20 8c 20 3d 63 74  | ctp$<="Z" . =ct|
00003170  70 24 0d 01 e0 19 e7 20  63 74 70 24 3d 22 61 22  |p$..... ctp$="a"|
00003180  20 8c 20 3d 22 50 4c 41  59 52 22 0d 01 e1 19 e7  | . ="PLAYR".....|
00003190  20 63 74 70 24 3d 22 62  22 20 8c 20 3d 22 47 48  | ctp$="b" . ="GH|
000031a0  4f 53 54 22 0d 01 e2 19  e7 20 63 74 70 24 3d 22  |OST"..... ctp$="|
000031b0  63 22 20 8c 20 3d 22 53  48 4c 44 31 22 0d 01 e3  |c" . ="SHLD1"...|
000031c0  19 e7 20 63 74 70 24 3d  22 64 22 20 8c 20 3d 22  |.. ctp$="d" . ="|
000031d0  53 48 4c 44 32 22 0d 01  e4 19 e7 20 63 74 70 24  |SHLD2"..... ctp$|
000031e0  3d 22 65 22 20 8c 20 3d  22 53 48 4c 44 33 22 0d  |="e" . ="SHLD3".|
000031f0  01 e5 19 e7 20 63 74 70  24 3d 22 66 22 20 8c 20  |.... ctp$="f" . |
00003200  3d 22 53 48 4c 44 34 22  0d 01 e6 19 e7 20 63 74  |="SHLD4"..... ct|
00003210  70 24 3d 22 67 22 20 8c  20 3d 22 44 4f 4f 52 31  |p$="g" . ="DOOR1|
00003220  22 0d 01 e7 19 e7 20 63  74 70 24 3d 22 68 22 20  |"..... ctp$="h" |
00003230  8c 20 3d 22 44 4f 4f 52  32 22 0d 01 e8 19 e7 20  |. ="DOOR2"..... |
00003240  63 74 70 24 3d 22 69 22  20 8c 20 3d 22 44 4f 4f  |ctp$="i" . ="DOO|
00003250  52 33 22 0d 01 e9 19 e7  20 63 74 70 24 3d 22 6a  |R3"..... ctp$="j|
00003260  22 20 8c 20 3d 22 44 4f  4f 52 34 22 0d 01 ea 17  |" . ="DOOR4"....|
00003270  e7 20 63 74 70 24 3d 22  6b 22 20 8c 20 3d 22 4b  |. ctp$="k" . ="K|
00003280  45 59 22 0d 01 eb 18 e7  20 63 74 70 24 3d 22 6c  |EY"..... ctp$="l|
00003290  22 20 8c 20 3d 22 45 58  49 54 22 0d 01 ec 19 e7  |" . ="EXIT".....|
000032a0  20 63 74 70 24 3d 22 6d  22 20 8c 20 3d 22 44 4f  | ctp$="m" . ="DO|
000032b0  4f 52 44 22 0d 01 ed 19  e7 20 63 74 70 24 3d 22  |ORD"..... ctp$="|
000032c0  6e 22 20 8c 20 3d 22 44  45 44 4c 59 22 0d 01 ee  |n" . ="DEDLY"...|
000032d0  18 e7 20 63 74 70 24 3d  22 6f 22 20 8c 20 3d 22  |.. ctp$="o" . ="|
000032e0  46 4f 4f 44 22 0d 01 ef  19 e7 20 63 74 70 24 3d  |FOOD"..... ctp$=|
000032f0  22 70 22 20 8c 20 3d 22  53 4b 55 4c 4c 22 0d 01  |"p" . ="SKULL"..|
00003300  f0 19 e7 20 63 74 70 24  3d 22 71 22 20 8c 20 3d  |... ctp$="q" . =|
00003310  22 42 4f 4e 45 31 22 0d  01 f1 19 e7 20 63 74 70  |"BONE1"..... ctp|
00003320  24 3d 22 72 22 20 8c 20  3d 22 42 4f 4e 45 32 22  |$="r" . ="BONE2"|
00003330  0d 01 f2 17 e7 20 63 74  70 24 3d 22 2e 22 20 8c  |..... ctp$="." .|
00003340  20 3d 22 44 4f 54 22 0d  01 f3 19 e7 20 63 74 70  | ="DOT"..... ctp|
00003350  24 3d 22 2c 22 20 8c 20  3d 22 43 4f 4d 4d 41 22  |$="," . ="COMMA"|
00003360  0d 01 f4 19 e7 20 63 74  70 24 3d 22 27 22 20 8c  |..... ctp$="'" .|
00003370  20 3d 22 41 50 4f 53 54  22 0d 01 f5 19 e7 20 63  | ="APOST"..... c|
00003380  74 70 24 3d 22 21 22 20  8c 20 3d 22 45 58 43 4c  |tp$="!" . ="EXCL|
00003390  41 22 0d 01 f6 19 e7 20  63 74 70 24 3d 22 28 22  |A"..... ctp$="("|
000033a0  20 8c 20 3d 22 4f 42 52  41 4b 22 0d 01 f7 19 e7  | . ="OBRAK".....|
000033b0  20 63 74 70 24 3d 22 29  22 20 8c 20 3d 22 43 42  | ctp$=")" . ="CB|
000033c0  52 41 4b 22 0d 01 f8 18  e7 20 63 74 70 24 3d 22  |RAK"..... ctp$="|
000033d0  30 22 20 8c 20 3d 22 5a  45 52 4f 22 0d 01 f9 17  |0" . ="ZERO"....|
000033e0  e7 20 63 74 70 24 3d 22  31 22 20 8c 20 3d 22 4f  |. ctp$="1" . ="O|
000033f0  4e 45 22 0d 01 fa 17 e7  20 63 74 70 24 3d 22 32  |NE"..... ctp$="2|
00003400  22 20 8c 20 3d 22 54 57  4f 22 0d 01 fb 19 e7 20  |" . ="TWO"..... |
00003410  63 74 70 24 3d 22 33 22  20 8c 20 3d 22 54 48 52  |ctp$="3" . ="THR|
00003420  45 45 22 0d 01 fc 18 e7  20 63 74 70 24 3d 22 34  |EE"..... ctp$="4|
00003430  22 20 8c 20 3d 22 46 4f  55 52 22 0d 01 fd 18 e7  |" . ="FOUR".....|
00003440  20 63 74 70 24 3d 22 35  22 20 8c 20 3d 22 46 49  | ctp$="5" . ="FI|
00003450  56 45 22 0d 01 fe 17 e7  20 63 74 70 24 3d 22 36  |VE"..... ctp$="6|
00003460  22 20 8c 20 3d 22 53 49  58 22 0d 01 ff 19 e7 20  |" . ="SIX"..... |
00003470  63 74 70 24 3d 22 37 22  20 8c 20 3d 22 53 45 56  |ctp$="7" . ="SEV|
00003480  45 4e 22 0d 02 00 19 e7  20 63 74 70 24 3d 22 38  |EN"..... ctp$="8|
00003490  22 20 8c 20 3d 22 45 49  47 48 54 22 0d 02 01 18  |" . ="EIGHT"....|
000034a0  e7 20 63 74 70 24 3d 22  39 22 20 8c 20 3d 22 4e  |. ctp$="9" . ="N|
000034b0  49 4e 45 22 0d 02 02 19  e7 20 63 74 70 24 3d 22  |INE"..... ctp$="|
000034c0  2f 22 20 8c 20 3d 22 53  4c 41 53 48 22 0d 02 03  |/" . ="SLASH"...|
000034d0  0c 3d 22 53 50 41 43 45  22 0d 02 04 16 dd f2 70  |.="SPACE"......p|
000034e0  6c 6f 74 28 6f 75 74 24  2c 78 25 2c 79 25 29 0d  |lot(out$,x%,y%).|
000034f0  02 05 33 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..3.."OS_SpriteO|
00003500  70 22 2c 32 35 36 2b 33  34 2c 53 70 72 69 74 65  |p",256+34,Sprite|
00003510  5f 61 72 65 61 2c 6f 75  74 24 2c 78 25 2c 79 25  |_area,out$,x%,y%|
00003520  2c 30 0d 02 06 05 e1 0d  02 28 12 dd f2 53 43 4f  |,0.......(...SCO|
00003530  52 45 28 53 43 4f 52 45  29 0d 02 29 15 73 63 6f  |RE(SCORE)..).sco|
00003540  72 65 3d 73 63 6f 72 65  2b 53 43 4f 52 45 0d 02  |re=score+SCORE..|
00003550  2a 23 f1 20 8a 36 34 2c  33 30 29 3b c2 22 30 30  |*#. .64,30);."00|
00003560  30 30 30 30 22 2b c3 28  73 63 6f 72 65 29 2c 36  |0000"+.(score),6|
00003570  29 0d 02 2b 05 e1 0d 02  2c 0c dd f2 4f 50 53 3a  |)..+....,...OPS:|
00003580  ef 35 0d 02 2d 13 e3 20  41 3d 31 36 20 b8 20 31  |.5..-.. A=16 . 1|
00003590  20 88 20 2d 31 0d 02 2e  0a f7 20 8d 54 76 40 0d  | . -1..... .Tv@.|
000035a0  02 2f 17 e3 20 42 3d 31  20 b8 20 41 3a f3 20 43  |./.. B=1 . A:. C|
000035b0  4c 2c 54 4e 3a ed 0d 02  30 0e e6 20 43 4c 20 c8  |L,TN:...0.. CL .|
000035c0  9c 20 54 4e 0d 02 31 2f  ec 20 34 30 38 2c 34 30  |. TN..1/. 408,40|
000035d0  30 3a f1 20 22 50 52 45  53 53 20 54 48 45 20 53  |0:. "PRESS THE S|
000035e0  50 41 43 45 20 42 41 52  20 54 4f 20 50 4c 41 59  |PACE BAR TO PLAY|
000035f0  2e 2e 22 0d 02 33 11 e3  20 54 3d 31 20 b8 20 38  |.."..3.. T=1 . 8|
00003600  30 30 3a ed 0d 02 34 05  ed 0d 02 35 0a ef 34 3a  |00:...4....5..4:|
00003610  87 3a e1 0d ff                                    |.:...|
00003615