(� BombScare - <c> 1992 Andrew Clover
+� Updated, 1994 � Archimedes World 1994
=� Apologies for the pathetic programming in places here -
(+� I do much better stuff these days ;-)
2
<'ș "OS_Byte",129,0,255 � ,kludge_os
F� IF kludge_os>&A4 THEN
P& kludge_mode=15:kludge_modeofs=512
Z
� ELSE
d'� kludge_mode=67:kludge_modeofs=512
n� ENDIF
x
�kludge_pause=4
�
�� kludge_block 8
�!kludge_block=149
�kludge_block!4=-1
�6ș "OS_ReadVduVariables",kludge_block,kludge_block
�kludge_screen=!kludge_block
�:
�C� � �uerror("Arrgh ! There's been a "+�$+" at line "+�(�)+" !")
�c� bspri% 257570+97584, bcode% 10000,L%-1, blevs% 13610, btext% 2000, bfont% 17160, bspau% 26940
�S� bgraf% 204800, blevl% 900, bmess% 13610, bhtex% 240, bstar% 1610, btcol% 1030
�� lstar%=0�1600�4
�1bstar%!lstar%=kludge_screen-1+�(81920-320*34)

_�:fsave%=�:ș "OS_Byte",196,1,0 � ,kdela%:ș "OS_Byte",197,1,0 � ,krepa%:�"FX11,25":*FX12,4

:

	�0Ȝ0

":

,+hfile%=� "<Obey$Dir>.Resources.Options"

6�#hfile%,klist$

@�#hfile%,vmusx%

J�#hfile%,veffx%

T�#hfile%

^&flevs$=�sysvar("BombScare$Levels")

hhfile%=� flevs$

r� hfile% �

|�#hfile%

��

�/flevs$=�sysvar("BombLevels$Dir")+".Default"

�hfile%=� flevs$

�� hfile% �

��#hfile%

��

�0flevs$=�sysvar("Obey$Dir")+".Levels.Default"

�hfile%=� flevs$

�� hfile% �

��#hfile%

��

�0�uerror("I cannot find any levels to load.")

��
�
�
:
&
frog=1
0ș "BS_Initialise" � handl%
:6� "Load <Obey$Dir>.Resources.Scrolltext "+�~btext%
D&ș "BS_Encrypt",handl%,btext%,1971
NI� "Load "+flevs$+" "+�~(blevs%):ș "BS_Encrypt",handl%,blevs%+4,13596
X4� "Load <Obey$Dir>.Resources.Graphics "+�~bspri%
b.ș "BS_Unpack",handl%,bspri%,bgraf%,131053
l4� "Load <Obey$Dir>.Resources.PauseSpr "+�~bspri%
v-ș "BS_Unpack",handl%,bspri%,bspau%,17472
�<� "Load <Obey$Dir>.Resources.Sprites "+�~(bspri%+241000)
�5ș "BS_Unpack",handl%,bspri%+241000,bspri%,113894
�6� "Load <Obey$Dir>.Resources.HelpScroll "+�~bhtex%
�0� "Load <Obey$Dir>.Resources.Font "+�~bfont%
�4� "Load <Obey$Dir>.Resources.ColTable "+�~btcol%
�J�assemblecode:ș "OS_SpriteOp",256+15,bspri%,"SpriteOp60",0,320,304,13
�Mș "OS_SpriteOp",256+24,bspri%,"SpriteOp60" � ,,asadr%:bgame!76=asadr%+44
�%bgame!128=bgame!76+320-16:� efade
�E� � � �serror=� � �save:�closedown:� � � 13:ș "OS_RemoveCursors"
�:
�� Menu/title screen
�:
�>� 13:ș "OS_RemoveCursors":�starttune:ș "Coco_SeqStart",0
�
0�:bdata!28=btext%:bdata!12=4:bdata!24=btext%
�
 =ș "OS_SpriteOp",34+256,bspri%,"logo",640-288*2,1024-42*4
*)�print(�getlnstr(blevs%+76,20),0,836)
4� lscor%=0�4
><�print(�getlnstr(blevs%+4+10*lscor%,10),0,736-lscor%*64)
H"sscor$=�(blevs%!(54+lscor%*4))
R2�print(sscor$,1280-�(sscor$)*64,736-lscor%*64)
\�
f(�print("H-HELP,O-OPTS,E-EDIT",0,336)
p(�print("L-LOAD,P-PASS,Q-QUIT",0,272)
z(�print("PRESS RETURN TO PLAY",0,208)
�+�0,63 Ȝ 4:� 0,33*4:� 1280,33*4:*FX21,0
��
�Ȗ
�� edscr
�ckeyp$=�caps(�(0))
�%� ckeyp$=�128 � frog=1-frog:�frog
�^� ckeyp$="H" � ckeyp$="O" � ckeyp$="E" � ckeyp$="L" � ckeyp$="P" � ckeyp$="Q" � ckeyp$=�13
�!� ckeyp$<>"Q" � A%=42:� efade
�Ȏ (ckeyp$) �
�� "H": �help
�� "O": �options
�� "E": � �:�editor
�� "L": � �:�load
� "P": � �:�game(�password)
-� "Q": � �:� �:� ecfad:�save:�closedown:�
� �13: � �:�game(1)
$�
.� �
8:
B� Print instructions
L:
V
��help
`9bdata!24=bhtex%:bdata!28=bhtex%:bdata!32=4:bdata!12=4
j)�print("THE SILLY PLOT.     ",0,1023)
t(�print("IT IS 3456AD. EARTH ",0,878)
~(�print("HAS BEEN TAKEN OVER ",0,814)
�(�print("BY ALIENS. THE ONLY ",0,750)
�(�print("HOPE IS E.R.F.F. THE",0,686)
�(�print("EARTH REVOLUTIONARY ",0,622)
�(�print("FREEDOM FIGHTERS.   ",0,558)
�(�print("BUT ALIENS HAVE PUT ",0,494)
�(�print("BOMBS ALL OVER ERFF ",0,430)
�(�print("HQ, AND IT IS YOUR  ",0,366)
�(�print("JOB TO REMOVE THEM. ",0,302)
�(�print("           ANYKEY...",0,208)
��
�Ȗ:� edscr
�� �(0)<>""
A%=42:� efade

)�print("YOU ARE AN EXPERT   ",0,1020)
(�print("BOMB DISPOSAL BLOKE ",0,956)
(�print("WHO CAN DISARM BOMBS",0,892)
((�print("BY TOUCHING THEM -  ",0,828)
2(�print("BUT FIRST, YOU MUST ",0,764)
<(�print("GET TO THEM, THROUGH",0,700)
F(�print("THE MAZE OF WALLS,  ",0,636)
P(�print("BLOCKS, MINES AND   ",0,572)
Z(�print("TRANSPORTERS, ETC.  ",0,508)
d(�print("HOWEVER, MOST OF THE",0,444)
n(�print("WALLS IN THE MAZE   ",0,380)
x(�print("CAN BE PUSHED ALONG,",0,316)
�(�print("           ANYKEY...",0,208)
��
�Ȗ:� edscr
�� �(0)<>""
�A%=42:� efade
�)�print("TO MAKE NEW WAYS    ",0,1020)
�(�print("THROUGH THE MAZE.   ",0,956)
�(�print("BUT YOU CAN'T PUSH  ",0,892)
�(�print("A WALL INTO A SPACE ",0,828)
�(�print("ALREADY OCCUPIED BY ",0,764)
�(�print("ANOTHER WALL. ALSO, ",0,700)
�(�print("SOME WALLS CAN'T BE ",0,636)
�(�print("PUSHED AT ALL. SO,  ",0,572)
(�print("GET ALL THE BOMBS TO",0,508)
(�print("COMPLETE THE LEVEL. ",0,444)
(�print("DON'T TOUCH MINES.  ",0,380)
"(�print("THEY KILL YOU.      ",0,316)
,(�print("           ANYKEY...",0,208)
6�
@Ȗ:� edscr
J� �(0)<>""
TA%=42:� efade
^)�print("MINES KILL YOU, BUT ",0,1020)
h(�print("YOU CAN DESTROY THEM",0,956)
r(�print("BY PUSHING WALLS    ",0,892)
|(�print("THROUGH THEM. YOU   ",0,828)
�(�print("CAN'T WALK THROUGH  ",0,764)
�(�print("BLOCKS. YOU CAN     ",0,700)
�(�print("SEE WHAT THE THINGS ",0,636)
�(�print("LOOK LIKE BELOW.    ",0,572)
�(�print("PLAY THE LEVELS TO  ",0,508)
�(�print("GET THE HANG OF IT. ",0,444)
�(�print("HAVE FUN YOU FROODY ",0,380)
�(�print("WOSSNAMES.          ",0,316)
�(�print("           ANYKEY...",0,208)
��
�Ȗ:� edscr
�� �(0)<>""
�� efade
.bdata!28=btext%:bdata!12=4:bdata!24=btext%
�
:
&��wait(xleng%)
0� xlwat%=1� xleng%
:Ȗ:�
D�
N:
X!��print(xsprn$,xposx%,xposy%)
b� xlprn%=0� �(xsprn$)-1
lA%=�(�xsprn$,xlprn%+1,1))
vB%=xposx%/4+xlprn%*16
�C%=(1020-xposy%)/4
�� epsml
��
��
�:
���uerror(xperr$)
�� 12
�� xperr$
�A�'"Press <RETURN> to re-run the program, or <SPACE> to quit."
�(� xcget$=�:� xcget$=" " � xcget$=�13
�� xcget$=" " � �closedown:�
�"ș "Coco_Reset":ș "Coco_Stop"
��
:
ݤserror
ȗ �
 � �=17 � =�
*� 12
40� "There's been an internal error : ";�$;"."
>I� "Press <RETURN> to return to the title screen, or <SPACE> to quit."
H(� xcget$=�:� xcget$=" " � xcget$=�13
R� xcget$=" " � =�
\=�
f:
pݤcaps(xchar$)
z?� �(xchar$)>96 � �(xchar$)<122 � =�(�(xchar$)-32) � =xchar$
�:
�ݤsysvar(xfvar$)
�:ș "OS_ReadVarVal",xfvar$,bmess%,bmess%+512 � ,,pmess%
�bmess%?pmess%=13
�=$(bmess%)
�:
�ݤgetctstr(xbmes%)
�
xsred$=""
��
�xsred$+=�(?xbmes%)
�
xbmes%+=1
�!� ?xbmes%<32 � � (xsred$)=255
�=xsred$
	:
	ݤgetlnstr(xbstr%,xlest%)
	xsred$="":� xlest%=0 � =""
	$$� xlstr%=xbstr%� xbstr%+xlest%-1
	.xsred$+=�(?xlstr%)
	8�
	B=xsred$
	L:
	V��starttune
	`ș "Coco_Start"
	jș "Coco_Volume",255-vmusx%
	t�
	~:
	���closedown
	�� � �:�
	��fadeout
	�ș "Coco_Stop"
	�'� kludge_mode:ș "OS_RemoveCursors"
	�Eș "OS_SpriteOp",256+34,bspri%,"Goodbye",213,168+kludge_modeofs,0
	�ș "OS_Byte",196,kdela%,0
	�ș "OS_Byte",197,krepa%,0
	�� 0 Ȝ 0
	�&� ȗ a,b,c:G$=�(1):� G$<>"" � c<>0
	��
	�:

��fadeout

!� lfade%=255-vmusx% � 200 � 2
ș "Coco_Volume",lfade%
Ȗ
(�
2�
<:
F
��frog
P��0,0);"How much is that doggy in the window?   The one with the waggly tail.           How much is that doggy in the window?   I do hope that doggy's for sale!        "
Z/�" - John Major, 1992                     "
d�
n:
x��assemblecode
��fpass%=%1000 � %1010 � 2
�
P%=bcode%
�[OPT fpass%
�:
�; Shutter fade routine
�:
�
.efade
�
MOV R6,#4
�ADR R12,bdata
�LDR R7,[R12,#4]
�CMP R0,#42
��Q R0,#320
��Q R1,#222
MULEQ R8,R0,R1
MOVNE R8,#(320*256)

.lfade
"
MOV R3,R7
,
MOV R4,R8
6
.lfadl
@LDR R5,[R3]
JMOV R5,R5,LSR #8
TSTR R5,[R3],#4
^SUBS R4,R4,#4
h
BNE lfadl
rSUBS R6,R6,#1
|
BNE lfade
�
MOV R8,#0
�MOV PC,R14
�:
�2; The following code prints a 16x16 character.
�:
�
.epsml
�SUB R0,R0,#32
�MOVMI PC,R14
�ADR R12,bdata
�LDR R3,[R12,#0]
�MOV R4,#256
�MLA R11,R0,R4,R3
�MOV R4,#320
LDR R3,[R12,#4]
MLA R10,R2,R4,R1
ADD R10,R10,R3
&
MOV R9,#8
0
.lpsml
:LDMIA R11!,{R0-R7}
DSTMIA R10,{R0-R3}
NADD R10,R10,#320
XSTMIA R10,{R4-R7}
bADD R10,R10,#320
lSUBS R9,R9,#1
v
BNE lpsml
�MOV PC,R14
�:
�; Display scrolltext
�:
�
.edscr
�ADR R12,bdata
�LDR R0,[R12,#8]
�LDR R3,[R12,#12]
�ADD R1,R0,R3
�MOV R2,#255
�
.ldscr
�LDMIA R1!,{R3-R12}
�STMIA R0!,{R3-R12}

SUBS R2,R2,#1


BNE ldscr

LDMIA R1!,{R3-R11}

 STMIA R0!,{R3-R11}

*ADR R12,bdata

4:

>M; Add new data on right ; I know it is inefficient, but the ARM does have

HP; enough time on its hands, as it were. Actually, it won't work properly, so

RP; I could have used a much quicker routine, but why re-program when you have

\%; got a working routine, anyway ?

fQ; I'm sorry the system doesn't seem to be particularly well inter-programmed,

pM; but a lot of it was written for version 1, which was subsequently wiped

z1; ( the !RunImage file ) by that nasty drive.

�;

�P; Yes, folks, there was a half-done version which got partially wiped before

�; the finished one.

�;

�; Did I learn?

�;

�; Did I CABBAGE.

�:

�ADD R11,R12,#12

�LDMIA R11,{R0-R5}

�
CMP R0,#1

�
BEQ skipp

�LDRB R3,[R4]
MOV R6,#1024
MLA R2,R6,R3,R2
ADD R2,R2,R5
$SUB R1,R1,#4
.SUB R2,R2,#4
8MOV R10,#9920
BMOV R9,#992
L
.ldnsl
VLDR R11,[R2,R9]
`STR R11,[R1,R10]
jSUBS R10,R10,#320
tSUB R9,R9,#32
~
BPL ldnsl
�
.skipp
�LDR R0,[R12,#32]
�LDR R1,[R12,#12]
�LDR R9,[R12,#28]
�ADD R0,R0,R1
�CMP R0,#35
�MOVPL R0,#4
�STR R0,[R12,#32]
�ADDPL R9,R9,#1
�
.cagai
�STR R9,[R12,#28]
�LDRB R0,[R9]
SUBS R0,R0,#160


BMI estar
:
; Deal with control codes
(:
2LDREQ R1,[R12,#24]
<STREQ R1,[R12,#28]
F
�Q PC,R14
PSTR R0,[R12,#12]
ZADD R9,R9,#1
dB cagai
n:
x2; I've decided to add some pink parallax stars
�:
�
.estar
�LDR R0,[R12,#36]
�LDR R1,[R12,#40]
�MOV R2,#400
�
MOV R5,#0
�MOV R8,#81920
�SUB R8,R8,#&2A00
�SUB R8,R8,#&81
�ADD R9,R12,#44
�MOV R11,#1
�
.lstar
�� R10,R2,#11
LDRB R7,[R9,R10]
LDR R3,[R0]
LDRB R4,[R3]
"
CMP R4,R7
,STREQB R5,[R3]
6� R6,R2,#11
@ADD R6,R11,R6,LSR #1
JADD R3,R3,R6
T
CMP R3,R1
^SUBPL R3,R3,R8
hLDRB R4,[R3]
r
CMP R4,#0
|STREQB R7,[R3]
�STR R3,[R0],#4
�SUBS R2,R2,#1
�
BNE lstar
�MOV PC,R14
�:
�;; Databay for font display / scrolltext / star routines
�;
�!; Yuck - this is cack. Sorry.
�:
�
.bdata
�/EQUD bfont%               ; Font data start
�1EQUD kludge_screen             ; Screen start
�8EQUD (kludge_screen+(320*224)) ; Place to print text
9EQUD 4                    ; Scroll rate - bytes/vsync
:EQUD (kludge_screen+(320*225)) ; Point to add new data
3EQUD bgraf%               ; Graphics data start
&*EQUD btext%               ; Text start
04EQUD btext%               ; Current text pointer
:8EQUD 4                    ; Next part to be revealed
D?EQUD bstar%               ; I've decided to have some stars
N<EQUD kludge_screen+&13FFF-(320*34)    ; End of star area
X#EQUB 12:EQUB 13:EQUB 14:EQUB 15
b'EQUB 176:EQUB 177:EQUB 178:EQUB 179
l6EQUB 220:EQUB 221:EQUB 222:EQUB 223 ; Star colours
v3EQUD btcol%               ; Ptr to colour table
�:
�; Colour fade routine
�:
�
.ecfad
�ADR R12,bdata
�MOV R11,#23
�LDR R10,[R12,#4]
�LDR R3,[R12,#56]
�MOV R9,#255
�
.lcfvs
�MOV R4,R10
�MOV R5,#(81920/4)
�
.lcfsf
LDR R6,[R4]
� R8,R9,R6,ASL#0
LDR R7,[R3,R8,ASL#2]
 � R8,R9,R6,LSR#8
*LDR R0,[R3,R8,ASL#2]
4ADD R7,R7,R0,ASL#8
>� R8,R9,R6,LSR#16
HLDR R0,[R3,R8,ASL#2]
RADD R7,R7,R0,ASL#16
\� R8,R9,R6,LSR#24
fLDR R0,[R3,R8,ASL#2]
pADD R7,R7,R0,ASL#24
zSTR R7,[R4],#4
�SUBS R5,R5,#1
�
BNE lcfsf
�MOV R0,#19
�SWI "OS_Byte"
�SUBS R11,R11,#1
�
BNE lcfvs
�MOV PC,R14
�:
�; Fill with zero bytes
�:
�
.ezero
�
MOV R2,#0
�
.lzero
STRB R2,[R0],#1
SUBS R1,R1,#1

BNE lzero
$MOV PC,R14
.:
8; Copy bytes
B:
L
.ecopy
VLDRB R3,[R0],#1
`STRB R3,[R1],#1
jSUBS R2,R2,#1
t
BNE ecopy
~MOV PC,R14
�:
�; Game-playing routines
�:
�.eg_showtime
��adr(12,bgdat)
�LDR R1,[R12,#0]
�MOV R2,#255
�SUB R4,R2,R0
�ADD R4,R4,#1
�MOV R3,#320
�MLA R1,R4,R3,R1
�
.lshti
LDMIA R1,{R4-R7}

�S R8,R2,R4
MOV R8,#160
STREQB R8,[R1,#0]
(�S R8,R2,R4,LSR#8
2MOV R8,#161
<STREQB R8,[R1,#1]
F�S R8,R2,R4,LSR#16
PMOV R8,#162
ZSTREQB R8,[R1,#2]
d�S R8,R2,R4,LSR#24
nMOV R8,#163
xSTREQB R8,[R1,#3]
��S R8,R2,R5
�MOV R8,#204
�STREQB R8,[R1,#4]
��S R8,R2,R5,LSR#8
�MOV R8,#205
�STREQB R8,[R1,#5]
��S R8,R2,R5,LSR#16
�MOV R8,#206
�STREQB R8,[R1,#6]
��S R8,R2,R5,LSR#24
�MOV R8,#207
�STREQB R8,[R1,#7]
��S R8,R2,R6
MOV R8,#206
STREQB R8,[R1,#8]
�S R8,R2,R6,LSR#8
"MOV R8,#205
,STREQB R8,[R1,#9]
6�S R8,R2,R6,LSR#16
@MOV R8,#204
JSTREQB R8,[R1,#10]
T�S R8,R2,R6,LSR#24
^MOV R8,#163
hSTREQB R8,[R1,#11]
r�S R8,R2,R7
|MOV R8,#162
�STREQB R8,[R1,#12]
��S R8,R2,R7,LSR#8
�MOV R8,#161
�STREQB R8,[R1,#13]
��S R8,R2,R7,LSR#16
�MOV R8,#160
�STREQB R8,[R1,#14]
�ADD R1,R1,R3
�SUBS R0,R0,#1
�
BNE lshti
�MOV PC,R14
�:
�.eg_showlife
�adr(12,bgdat)
STR R14,[R12,#4]
STR R1,[R12,#8]
&ADD R0,R0,#48
0MOV R1,#304
:MOV R2,#240
DBL epsml
N�adr(12,bgdat)
XLDR R14,[R12,#4]
bLDR R0,[R12,#8]
lCMP R0,#15
vMOVPL R0,#15
�LDR R1,[R12,#0]
�MOV R2,#255
�SUB R4,R2,R0
�MOV R3,#320
�MLA R1,R4,R3,R1
�ADD R0,R0,#1
�B lshti
�:
�.eg_showscor
��adr(12,bgdat)
�SUB R1,R1,#1
�STR R14,[R12,#4]
�STR R1,[R12,#8]
LDR R1,[R12,#12]
MOV R2,#512
SWI "OS_ConvertCardinal3"
 MOV R2,#81
*
.lpsco
4LDRB R1,[R0],#1
>
CMP R1,#0
HBEQ eg_rtscor
RSTR R0,[R12,#16]
\STR R2,[R12,#20]
f
MOV R0,R1
pMOV R1,#304
zBL epsml
��adr(12,bgdat)
�LDR R0,[R12,#16]
�LDR R2,[R12,#20]
�ADD R2,R2,#16
�B lpsco
�.eg_rtscor
��adr(12,bgdat)
�MOV R11,R2
�LDR R14,[R12,#4]
�LDR R0,[R12,#8]
�CMP R0,#174
�MOVPL R0,#174
�LDR R1,[R12,#0]
MOV R2,#255
SUB R4,R2,R0
CMP R4,R11
$MOVPL PC,R14
.MOV R3,#320
8MLA R1,R4,R3,R1
BSUB R0,R11,R4
LB lshti
V:
`.eg_showmids
j�adr(12,bgdat)
tLDR R3,[R12,#24]
~MOV R4,#256
�MLA R3,R4,R2,R3
�RSBS R4,R0,#2
�MOVMI R4,#0
�RSB R5,R0,#19
�
CMP R5,#7
�MOVPL R5,#7
�SUB R0,R5,R4
�RSBS R2,R1,#2
�MOVMI R2,#0
�RSB R5,R1,#19
�
CMP R5,#6
�MOVPL R5,#6
SUB R1,R5,R2


.lpmdy

MOV R5,R0

MOV R6,R4
(
.lpmdx
2STMFD R13!,{R0}
<LDR R0,[R12,#-12]
FLDR R9,[R12,#-4]
PLDR R7,[R12,#28]
ZMOV R8,#48
dMLA R7,R8,R6,R7
nMLA R7,R9,R2,R7
xLDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
ADD R7,R7,R0
LDMIA R3!,{R8-R11}
STMIA R7,{R8-R11}
"ADD R7,R7,R0
,LDMIA R3!,{R8-R11}
6STMIA R7,{R8-R11}
@ADD R7,R7,R0
JLDMIA R3!,{R8-R11}
TSTMIA R7,{R8-R11}
^ADD R7,R7,R0
hLDMIA R3!,{R8-R11}
rSTMIA R7,{R8-R11}
|ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
�STMIA R7,{R8-R11}
�ADD R7,R7,R0
�LDMIA R3!,{R8-R11}
STMIA R7,{R8-R11}
ADD R7,R7,R0
LDMIA R3!,{R8-R11}
&STMIA R7,{R8-R11}
0ADD R7,R7,R0
:LDMIA R3!,{R8-R11}
DSTMIA R7,{R8-R11}
NLDMFD R13!,{R0}
XADD R6,R6,#1
bSUB R3,R3,#256
lSUBS R5,R5,#1
v
BNE lpmdx
�ADD R2,R2,#1
�SUBS R1,R1,#1
�CMP R1,#1:BPL lpmdy
�MOV PC,R14
�:
�.eg_showalls
��adr(12,bgdat)
�STR R0,[R12,#8]
�STR R1,[R12,#16]
�STR R2,[R12,#20]
�MOV R10,R2
�� R4,R2,#7
�� R5,R2,#1
MOV R6,#1024
LDR R7,[R12,#32]
LDR R8,[R12,#36]
 MLA R2,R4,R6,R7
*MLA R3,R5,R6,R8
4SUB R0,R0,#2
>SUB R1,R1,#2
H
MOV R4,#6
RLDR R6,[R12,#40]
\
MOV R8,#0
f
.llhwl
p
MOV R5,#6
z
MOV R7,#0
�
.lohwl
�+CMP R0,#0:BMI nohwl:CMP R1,#0:BMI nohwl
�-CMP R0,#16:BPL nohwl:CMP R1,#17:BPL nohwl
�-MOV R10,#16:MLA R9,R1,R10,R0:ADD R9,R9,R6
�&LDRB R10,[R9]:CMP R10,#1:BMI nohwl
��Q R11,R2:MOVNE R11,R3
� MOV R9,#48:LDR R10,[R12,#28]
�&MLA R10,R9,R7,R10:LDR R9,[R12,#-4]
�%MLA R10,R9,R8,R10:ADD R10,R10,#16
�(STMFD R13!,{R0-R8}:LDR R8,[R12,#-12]
�7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
�7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
�7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
$7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
.7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
87LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
B7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
L7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
V7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
`7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
j7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
t7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
~7LDMIA R11!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
�LDMFD R13!,{R0-R8}
�
.nohwl
�ADD R7,R7,#1:ADD R0,R0,#1
�SUBS R5,R5,#1:BNE lohwl
�SUB R0,R0,#6:ADD R8,R8,#1
�(ADD R1,R1,#1:SUBS R4,R4,#1:BNE llhwl
�:
�$LDR R0,[R12,#8]:LDR R1,[R12,#16]
�!ADD R2,R2,#512:ADD R3,R3,#512
�SUB R0,R0,#2:SUB R1,R1,#2
�
MOV R5,#7
�LDR R6,[R12,#44]
LDR R10,[R12,#20]


MOV R7,#0

.llvwl

MOV R4,#5
(
MOV R8,#0
2
.lovwl
<+CMP R0,#0:BMI novwl:CMP R1,#0:BMI novwl
F-CMP R0,#17:BPL novwl:CMP R1,#16:BPL novwl
P-MOV R10,#16:MLA R9,R0,R10,R1:ADD R9,R9,R6
Z&LDRB R10,[R9]:CMP R10,#1:BMI novwl
d�Q R11,R2:MOVNE R11,R3
n MOV R9,#48:LDR R10,[R12,#28]
x&MLA R10,R9,R7,R10:LDR R9,[R12,#-4]
�5MLA R10,R9,R8,R10:LDR R9,[R12,#-8]:ADD R10,R10,R9
�(STMFD R13!,{R0-R8}:LDR R8,[R12,#-12]
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
�XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
"XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
,XLDMIA R11!,{R0-R7}:STMIA R10,{R0-R3}:ADD R10,R10,R8:STMIA R10,{R4-R7}:ADD R10,R10,R8
6LDMFD R13!,{R0-R8}
@
.novwl
JADD R8,R8,#1:ADD R1,R1,#1
TSUBS R4,R4,#1:BNE lovwl
^SUB R1,R1,#5:ADD R7,R7,#1
h(ADD R0,R0,#1:SUBS R5,R5,#1:BNE llvwl
rMOV PC,R14
|:
�.eg_showobjs
�+ADR R12,bgdat:SUB R0,R0,#2:SUB R1,R1,#2
�9MOV R3,#0:MOV R5,#5:LDR R6,[R12,#48]:LDR R7,[R12,#28]
�/ADD R7,R7,#16:ADD R7,R7,#(320*16):MOV R8,#6
�
.lysqr
�MOV R2,#0:MOV R4,R8
�
.lxsqr
�+CMP R0,#0:BMI nosqr:CMP R1,#0:BMI nosqr
�-CMP R0,#16:BPL nosqr:CMP R1,#16:BPL nosqr
�-MOV R11,#16:MLA R9,R1,R11,R0:ADD R9,R9,R6
�LDRB R10,[R9]:� R10,R10,#15
�&ADD R9,R12,#64:ADD R9,R9,R10,ASL#1
�*LDRB R10,[R9],#1:CMP R10,#93:BEQ nosqr
 1LDRB R11,[R9]:ADD R9,R12,#52:LDRB R9,[R9,R11]
 $ADD R10,R10,R9:MOV R9,R10,ASL#10
 #LDR R10,[R12,#56]:ADD R9,R10,R9
 &!MOV R11,#48:MLA R10,R2,R11,R7
 0(LDR R11,[R12,#-4]:MLA R10,R3,R11,R10
 :(STMFD R13!,{R0-R8}:LDR R8,[R12,#-12]
 D6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 N6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 X6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 b6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 l6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 v6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
 �6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
! 6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!*6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!46LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!>6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!H6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!R6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!\6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!f6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!p6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!z6LDMIA R9!,{R0-R7}:STMIA R10,{R0-R7}:ADD R10,R10,R8
!�LDMFD R13!,{R0-R8}
!�
.nosqr
!�ADD R0,R0,#1:ADD R2,R2,#1
!�SUBS R4,R4,#1:BNE lxsqr
!�*ADD R1,R1,#1:ADD R3,R3,#1:SUB R0,R0,R8
!�SUBS R5,R5,#1:BNE lysqr
!�MLDRB R0,[R12,#52]:ADD R0,R0,#1:CMP R0,#8:SUBPL R0,R0,#8:STRB R0,[R12,#52]
!�OLDRB R0,[R12,#53]:ADD R0,R0,#1:CMP R0,#12:SUBPL R0,R0,#12:STRB R0,[R12,#53]
!�OLDRB R0,[R12,#54]:ADD R0,R0,#1:CMP R0,#16:SUBPL R0,R0,#16:STRB R0,[R12,#54]
!�MOV PC,R14
!�:
!�;;-12: EQUD 320                    ; Columns on screen !
!�D;-8 : EQUD 320*16                 ; Columns on screen * Wossname
"D;-4 : EQUD 320*48                 ; Columns on screen * Wossname
"A.bgdat                            ; Databay for game routines
"G;+0 : EQUD kludge_screen+304           ; Start point for time block
"$?;+4 : EQUD 0                      ; Temporary store for R14
".H;+8 : EQUD 0                      ; Another temporary register store
"8<;+12: EQUD bmess%+4               ; Ptr to message block
"BB;+16: EQUD 0                      ; Yet another register store
"L-;+20: EQUD 0                      ; Ditto
"VC;+24: EQUD bgraf%+38*1024         ; Start of MiddleBit graphics
"`9;+28: EQUD kludge_screen               ; Screen start
"j8;+32: EQUD bgraf%+98*1024         ; Wall grafx start
"t<;+36: EQUD bgraf%+96*1024         ; Imm Wall grafx start
"~=;+40: EQUD blevl%                 ; Horz. wall data start
"�=;+44: EQUD blevl%+272             ; Vert. wall data start
"�9;+48: EQUD blevl%+544             ; Square data start
"�:;+52: EQUD 0                      ; Animation counters
"�3;+56: EQUD bgraf%                 ; Grafx start
"�=;+60: EQUD kludge_screen+112*321       ; Middle of screen
"�3;+64: EQUB 93:EQUB 3              ; Object data
"�EQUB 122:EQUB 1
"�EQUB 106:EQUB 2
"�EQUB 134:EQUB 1
"�EQUB 37:EQUB 3
"�EQUB 93:EQUB 3
"�EQUB 146:EQUB 0
#	ALIGN
#
;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
#9;+108:EQUD kludge_screen               ; Screen start
#
:ALIGN
#(.eg_showyou
#2ADR R12,bgdat
#<LDR R2,[R12,#56]
#FMOV R9,#1024
#PMLA R10,R0,R9,R2
#ZMLA R11,R1,R9,R2
#dLDR R12,[R12,#60]
#nMOV R9,#32
#x
.lsyou
#�;LDMIA R12,{R0-R2}:LDMIA R10!,{R3-R5}:LDMIA R11!,{R6-R8}
#�H� R0,R0,R6:�R R0,R0,R3:� R1,R1,R7:�R R1,R1,R4:� R2,R2,R8:�R R2,R2,R5
#�NSTMIA R12!,{R0-R2}:LDMIA R12,{R0-R2}:LDMIA R10!,{R3-R5}:LDMIA R11!,{R6-R8}
#�H� R0,R0,R6:�R R0,R0,R3:� R1,R1,R7:�R R1,R1,R4:� R2,R2,R8:�R R2,R2,R5
#�NSTMIA R12!,{R0-R2}:LDMIA R12,{R0-R1}:LDMIA R10!,{R3-R4}:LDMIA R11!,{R6-R7}
#�D� R0,R0,R6:�R R0,R0,R3:� R1,R1,R7:�R R1,R1,R4:STMIA R12!,{R0-R1}
#�1ADD R12,R12,#(320-32):SUBS R9,R9,#1:BNE lsyou
#�MOV PC,R14
#�.eg_wipeyou
#�ADR R11,bgdat
#�LDR R0,[R11,#60]
#�%ADD R11,R11,#80:LDMIA R11,{R2-R9}
#��STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320
$�STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320
$�STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320
$�STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:
$"�STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320:STMIA R0,{R2-R9}:ADD R0,R0,#320
$,MOV PC,R14
$6:
$@,.eg_playgame ; Woo ! This is it, folks !
$JSTMFD R13!,{R14}
$TSTMFD R13!,{R0-R3}
$^6�adr(12,bgame):STR R4,[R12,#112]:STR R5,[R12,#116]
$hIMOV R0,#11:MOV R1,#1:SWI "OS_Byte":MOV R0,#12:MOV R1,#1:SWI "OS_Byte"
$r
.lsgam
$|�adr(12,bgame)
$�1MOV R0,#129:MOV R1,#0:MOV R2,#0:SWI "OS_Byte"
$�  Cmp     R1,#�("a")
$�  RsbPlS  R14,R1,#�("z")
$�D  SubPl   R1,R1,#32                      ; Kludge -> Upper case!
$�3CMP R2,#27:BEQ out_escape:CMP R2,#255:BEQ nokey
$�MOV R10,R1
$�/LDR R1,[R12,#0]:LDR R2,[R12,#4]:MOV R3,#255
$�  Ldr     R14,[R12,#140]
$�  SubS    R14,R14,#1
$�  StrPl   R14,[R12,#140]
$�  Bpl     nokey
$�&� R4,R3,R1:CMP R10,R4:BEQ key_left
$�-� R4,R3,R1,LSR#8:CMP R10,R4:BEQ key_right
%+� R4,R3,R1,LSR#16:CMP R10,R4:BEQ key_up
%-� R4,R3,R1,LSR#24:CMP R10,R4:BEQ key_down
%'� R4,R3,R2:CMP R10,R4:BEQ out_pause
%&-� R4,R3,R2,LSR#8:CMP R10,R4:BEQ out_abort
%0
.nokey
%:BL eg_wipeyou
%DLDMFD R13!,{R0-R3}
%N-ADD R3,R3,#1:�S R4,R3,#&1F:SUBEQ R2,R2,#1
%X#STMFD R13!,{R0-R3}:BLEQ dectime
%bBL eg_showobjs
%lLDMFD R13,{R0-R3}
%v)� R0,R3,#7:ADD R1,R0,#8:BL eg_showyou
%�MOV R0,#19:SWI "OS_Byte"
%�B lsgam
%�
.key_left
%�LSTMFD R13!,{R0-R2}:MOV R0,#21:MOV R1,#0:SWI "OS_Byte":LDMFD R13!,{R0-R2}
%�LDMFD R13!,{R0,R2,R3,R4}
%�,SUBS R1,R0,#1:STMMIFD R13!,{R0,R2,R3,R4}
%�>BMI nokey:LDR R5,[R12,#96]:ADD R5,R5,R1:ADD R7,R5,R2,ASL#4
%�7LDRB R14,[R7]:CMP R14,#4:STMEQFD R13!,{R0,R2,R3,R4}
%�BBEQ nokey:MOV R11,#0:LDR R10,[R12,#72]:LDR R10,[R10]:MOV R9,#0
%�4LDR R5,[R12,#92]:ADD R5,R5,R2:ADD R5,R5,R1,ASL#4
%�NLDRB R6,[R5,#16]!:CMP R6,#1:STMGTFD R13!,{R0,R2,R3,R4}:BGT nokey:BNE nolbw
%�DLDRB R6,[R5,#-16]:CMP R6,#0:STMNEFD R13!,{R0,R2,R3,R4}:BNE nokey
%�GSTREQB R9,[R5]:�EQ R11,R10,#7:ADDEQ R11,R11,#1:CMP R14,#2:BNE nolbw
&<STRB R9,[R7]:STMFD R13!,{R1,R2,R3,R4}:STR R11,[R12,#100]
&DMOV R0,#3:MVN R1,#14:MOV R2,#&1B00:MOV R3,#1:SWI "Sound_Control"
&LDMFD R13,{R0-R3}:MOV R1,R2
& 5LDR R0,[R12,#112]:ADD R0,R0,#11:STR R0,[R12,#112]
&*#BL eg_showscor:�sfadr(12,bgame)
&4B nslbw
&>6.nolbw STMFD R13!,{R1,R2,R3,R4}:STR R11,[R12,#100]
&HR.nslbw LDR R0,[R12,#76]:ADD R1,R12,#28:LDMIA R1,{R2-R11,R14}:LDR R1,[R12,#120]
&R9.llcbf STMIA R0!,{R2-R11,R14}:SUBS R1,R1,#1:BNE llcbf
&\BSTMIA R0!,{R2}:LDR R2,[R12,#124]:MOV R1,#256:LDR R0,[R12,#128]
&f8.llcbg LDMIA R2!,{R3-R11,R14}:STMIA R0!,{R3-R11,R14}
&p6LDMIA R2!,{R3-R4}:STMIA R0!,{R3-R4}:ADD R2,R2,#272
&z*ADD R0,R0,#320:SUBS R1,R1,#1:BNE llcbg
&�5LDR R0,[R12,#76]:�sadr(11,bgdat):STR R0,[R11,#28]
&�eMOV R0,#368:STR R0,[R11,#-12]:MOV R0,#(368*16):STR R0,[R11,#-8]:MOV R0,#(368*48):STR R0,[R11,#-4]
&�!LDR R0,[R12,#72]:LDR R11,[R0]
&�GLDMFD R13,{R0-R3}:� R2,R11,#3:STMFD R13!,{R0-R1,R11}:BL eg_showmids
&�6LDMFD R13!,{R0-R2}:BL eg_showalls:�sfadr(12,bgame)
&�BLDMFD R13,{R0-R3}:MOV R4,#44:LDR R5,[R12,#76]:LDR R6,[R12,#80]
&�STMFD R13!,{R0-R6}
&�
.lscrl
&�3LDMFD R13,{R0-R6}:�sfadr(12,bgame):ADD R5,R5,R4
&�?ADD R5,R5,#&A100:ADD R11,R5,#&90:CMP R4,#44:BLNE eg_wipedwn
&�-�sadr(12,bgdat):SUB R0,R0,#2:SUB R1,R1,#2
&�9MOV R3,#0:MOV R5,#5:LDR R6,[R12,#48]:LDR R7,[R12,#28]
&�8ADD R7,R7,#16:ADD R7,R7,#(368*16):MOV R8,#7:BL lysqr
'3�sfadr(12,bgame):LDMFD R13,{R0-R6}:ADD R5,R5,R4
'=ADD R5,R5,#&A100:ADD R11,R5,#&70:BL eg_showyouwithoutmask
';LDMFD R13,{R0-R6}:LDR R2,[R12,#100]:CMP R2,#1:BMI nslwp
'$<ADD R5,R5,R4:ADD R5,R5,#&A100:ADD R0,R5,#&60:BL eg_sprwh
'.5.nslwp LDMFD R13,{R0-R6}:ADD R5,R5,R4:MOV R7,#256
'8MOV R0,#19:SWI "OS_Byte"
'B
.llcpy
'L<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
'V<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
'`<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
'j<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
't<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
'~<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
'�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
'�PLDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8}:ADD R6,R6,#16:ADD R5,R5,#48
'�SUBS R7,R7,#1:BNE llcpy
'�;LDMFD R13!,{R0-R6}:SUBS R4,R4,#4:ADD R3,R3,#1:BMI lslot
'�STMFD R13!,{R0-R6}:B lscrl
'�
.lslot
'��sfadr(12,bgame)
'�LDR R11,[R12,#100]
'�CMP R11,#0:BEQ nnlwl
'�DMOV R0,#1:MVN R1,#14:MOV R2,#&2700:MOV R3,#1:SWI "Sound_Control"
'�LDMFD R13,{R0-R3}
'�4LDR R5,[R12,#92]:ADD R5,R5,R1:ADD R5,R5,R0,ASL#4
(MOV R11,#1:STRB R11,[R5]
(
#.nnlwl MOV R0,#19:SWI "OS_Byte"
(4�sfadr(12,bgame):�adr(11,bgdat):LDR R0,[R12,#80]
(#LDR R0,kludgey:STR R0,[R11,#28]
((eMOV R0,#320:STR R0,[R11,#-12]:MOV R0,#(320*16):STR R0,[R11,#-8]:MOV R0,#(320*48):STR R0,[R11,#-4]
(2B newsq
(<.kludgey Equd kludge_screen
(F.key_right
(PLSTMFD R13!,{R0-R2}:MOV R0,#21:MOV R1,#0:SWI "OS_Byte":LDMFD R13!,{R0-R2}
(ZLDMFD R13!,{R0,R2,R3,R4}
(d6ADD R1,R0,#1:CMP R1,#16:STMPLFD R13!,{R0,R2,R3,R4}
(n>BPL nokey:LDR R5,[R12,#96]:ADD R5,R5,R1:ADD R7,R5,R2,ASL#4
(x7LDRB R14,[R7]:CMP R14,#4:STMEQFD R13!,{R0,R2,R3,R4}
(�BBEQ nokey:MOV R11,#0:LDR R10,[R12,#72]:LDR R10,[R10]:MOV R9,#0
(�4LDR R5,[R12,#92]:ADD R5,R5,R2:ADD R5,R5,R1,ASL#4
(�MLDRB R6,[R5,#0]!:CMP R6,#1:STMGTFD R13!,{R0,R2,R3,R4}:BGT nokey:BNE norbw
(�CLDRB R6,[R5,#16]:CMP R6,#0:STMNEFD R13!,{R0,R2,R3,R4}:BNE nokey
(�GSTREQB R9,[R5]:�EQ R11,R10,#7:ADDEQ R11,R11,#1:CMP R14,#2:BNE norbw
(�<STRB R9,[R7]:STMFD R13!,{R1,R2,R3,R4}:STR R11,[R12,#100]
(�DMOV R0,#3:MVN R1,#14:MOV R2,#&1B00:MOV R3,#1:SWI "Sound_Control"
(�LDMFD R13,{R0-R3}:MOV R1,R2
(�5LDR R0,[R12,#112]:ADD R0,R0,#11:STR R0,[R12,#112]
(�#BL eg_showscor:�sfadr(12,bgame)
(�B nsrbw
(�6.norbw STMFD R13!,{R1,R2,R3,R4}:STR R11,[R12,#100]
(�R.nsrbw LDR R0,[R12,#76]:ADD R1,R12,#28:LDMIA R1,{R2-R11,R14}:LDR R1,[R12,#120]
)9.lrcbf STMIA R0!,{R2-R11,R14}:SUBS R1,R1,#1:BNE lrcbf
)@STMIA R0!,{R2}:LDR R2,[R12,#80]:MOV R1,#256:LDR R0,[R12,#76]
)8.lrcbg LDMIA R2!,{R3-R11,R14}:STMIA R0!,{R3-R11,R14}
)"6LDMIA R2!,{R3-R4}:STMIA R0!,{R3-R4}:ADD R2,R2,#272
),*ADD R0,R0,#320:SUBS R1,R1,#1:BNE lrcbg
)6CLDR R0,[R12,#76]:�sadr(11,bgdat):ADD R0,R0,#48:STR R0,[R11,#28]
)@eMOV R0,#368:STR R0,[R11,#-12]:MOV R0,#(368*16):STR R0,[R11,#-8]:MOV R0,#(368*48):STR R0,[R11,#-4]
)J!LDR R0,[R12,#72]:LDR R11,[R0]
)TGLDMFD R13,{R0-R3}:� R2,R11,#3:STMFD R13!,{R0-R1,R11}:BL eg_showmids
)^6LDMFD R13!,{R0-R2}:BL eg_showalls:�sfadr(12,bgame)
)hALDMFD R13,{R0-R3}:MOV R4,#4:LDR R5,[R12,#76]:LDR R6,[R12,#80]
)rSTMFD R13!,{R0-R6}
)|
.lscrr
)�3LDMFD R13,{R0-R6}:�sfadr(12,bgame):ADD R5,R5,R4
)�>ADD R5,R5,#&A100:ADD R11,R5,#&6C:CMP R4,#4:BLNE eg_wipedwn
)�-�sadr(12,bgdat):SUB R0,R0,#3:SUB R1,R1,#2
)�GMOV R3,#0:MOV R5,#5:LDR R6,[R12,#48]:LDR R7,[R12,#28]:SUB R7,R7,#48
)�8ADD R7,R7,#16:ADD R7,R7,#(368*16):MOV R8,#7:BL lysqr
)�3�sfadr(12,bgame):LDMFD R13,{R0-R6}:ADD R5,R5,R4
)�=ADD R5,R5,#&A100:ADD R11,R5,#&70:BL eg_showyouwithoutmask
)�;LDMFD R13,{R0-R6}:LDR R2,[R12,#100]:CMP R2,#1:BMI nsrwp
)�<ADD R5,R5,R4:ADD R5,R5,#&A100:ADD R0,R5,#&90:BL eg_sprwh
)�5.nsrwp LDMFD R13,{R0-R6}:ADD R5,R5,R4:MOV R7,#256
)�MOV R0,#19:SWI "OS_Byte"
)�
.lrcpy
)�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*&<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*0<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*:<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
*DPLDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8}:ADD R6,R6,#16:ADD R5,R5,#48
*NSUBS R7,R7,#1:BNE lrcpy
*XELDMFD R13!,{R0-R6}:ADD R4,R4,#4:CMP R4,#52:ADD R3,R3,#1:BPL lsrot
*bSTMFD R13!,{R0-R6}:B lscrr
*l
.lsrot
*v�sfadr(12,bgame)
*�LDR R11,[R12,#100]
*�CMP R11,#0:BEQ nnrwl
*�DMOV R0,#1:MVN R1,#14:MOV R2,#&2700:MOV R3,#1:SWI "Sound_Control"
*�LDMFD R13,{R0-R3}
*�4LDR R5,[R12,#92]:ADD R5,R5,R1:ADD R5,R5,R0,ASL#4
*� MOV R11,#1:STRB R11,[R5,#16]
*�#.nnrwl MOV R0,#19:SWI "OS_Byte"
*�4�sfadr(12,bgame):�adr(11,bgdat):LDR R0,[R12,#80]
*�#LDR R0,kludgey:STR R0,[R11,#28]
*�eMOV R0,#320:STR R0,[R11,#-12]:MOV R0,#(320*16):STR R0,[R11,#-8]:MOV R0,#(320*48):STR R0,[R11,#-4]
*�B newsq
*�.key_up
*�LSTMFD R13!,{R0-R2}:MOV R0,#21:MOV R1,#0:SWI "OS_Byte":LDMFD R13!,{R0-R2}
+LDMFD R13!,{R0,R2,R3,R4}
+,SUBS R1,R2,#1:STMMIFD R13!,{R0,R2,R3,R4}
+>BMI nokey:LDR R5,[R12,#96]:ADD R5,R5,R0:ADD R7,R5,R1,ASL#4
+ 7LDRB R14,[R7]:CMP R14,#4:STMEQFD R13!,{R0,R2,R3,R4}
+*BBEQ nokey:MOV R11,#0:LDR R10,[R12,#72]:LDR R10,[R10]:MOV R9,#0
+44LDR R5,[R12,#88]:ADD R5,R5,R0:ADD R5,R5,R1,ASL#4
+>NLDRB R6,[R5,#16]!:CMP R6,#1:STMGTFD R13!,{R0,R2,R3,R4}:BGT nokey:BNE noubw
+HDLDRB R6,[R5,#-16]:CMP R6,#0:STMNEFD R13!,{R0,R2,R3,R4}:BNE nokey
+RGSTREQB R9,[R5]:�EQ R11,R10,#7:ADDEQ R11,R11,#1:CMP R14,#2:BNE noubw
+\<STRB R9,[R7]:STMFD R13!,{R0,R1,R3,R4}:STR R11,[R12,#100]
+fDMOV R0,#3:MVN R1,#14:MOV R2,#&1B00:MOV R3,#1:SWI "Sound_Control"
+pLDMFD R13,{R0-R3}:MOV R1,R2
+z5LDR R0,[R12,#112]:ADD R0,R0,#11:STR R0,[R12,#112]
+�#BL eg_showscor:�sfadr(12,bgame)
+�B nsubw
+�6.noubw STMFD R13!,{R0,R1,R3,R4}:STR R11,[R12,#100]
+�Q.nsubw LDR R0,[R12,#76]:ADD R1,R12,#28:LDMIA R1,{R2-R11,R14}:LDR R1,[R12,#84]
+�9.lucbf STMIA R0!,{R2-R11,R14}:SUBS R1,R1,#1:BNE lucbf
+�3STMIA R0!,{R2-R10}:LDR R2,[R12,#24]:MOV R1,#384
+�P.lucbg LDMIA R2!,{R3-R11,R14}:STMIA R0!,{R3-R11,R14}:SUBS R1,R1,#1:BNE lucbg
+�SUB R0,R0,#(320*304)
+�$�sadr(11,bgdat):STR R0,[R11,#28]
+�!LDR R0,[R12,#72]:LDR R11,[R0]
+�GLDMFD R13,{R0-R3}:� R2,R11,#3:STMFD R13!,{R0-R1,R11}:BL eg_showmids
+�6LDMFD R13!,{R0-R2}:BL eg_showalls:�sfadr(12,bgame)
+�HLDMFD R13,{R0-R3}:MOV R4,#(44*320):LDR R5,[R12,#76]:LDR R6,[R12,#80]
,STMFD R13!,{R0-R6}
,
.lscru
,3LDMFD R13,{R0-R6}:�sfadr(12,bgame):ADD R5,R5,R4
,$EADD R5,R5,#&B400:ADD R11,R5,#&70:CMP R4,#(44*320):BLNE eg_wipeacr
,.-�sadr(12,bgdat):SUB R0,R0,#2:SUB R1,R1,#2
,89MOV R3,#0:MOV R5,#6:LDR R6,[R12,#48]:LDR R7,[R12,#28]
,B8ADD R7,R7,#16:ADD R7,R7,#(320*16):MOV R8,#6:BL lysqr
,L3�sfadr(12,bgame):LDMFD R13,{R0-R6}:ADD R5,R5,R4
,V=ADD R5,R5,#&8C00:ADD R11,R5,#&70:BL eg_showyouwithoutmask
,`;LDMFD R13,{R0-R6}:LDR R2,[R12,#100]:CMP R2,#1:BMI nsuwp
,j<ADD R5,R5,R4:ADD R5,R5,#&7800:ADD R0,R5,#&70:BL eg_sprwl
,t5.nsuwp LDMFD R13,{R0-R6}:ADD R5,R5,R4:MOV R7,#256
,~MOV R0,#19:SWI "OS_Byte"
,�
.lucpy
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
,�BLDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8}:ADD R6,R6,#16
,�SUBS R7,R7,#1:BNE lucpy
,�ALDMFD R13!,{R0-R6}:SUBS R4,R4,#(320*4):ADD R3,R3,#1:BMI lsuot
,�STMFD R13!,{R0-R6}:B lscru
-
.lsuot
-
�sfadr(12,bgame)
-LDR R11,[R12,#100]
-CMP R11,#0:BEQ nnuwl
-(DMOV R0,#1:MVN R1,#14:MOV R2,#&2700:MOV R3,#1:SWI "Sound_Control"
-2LDMFD R13,{R0-R3}
-<4LDR R5,[R12,#88]:ADD R5,R5,R0:ADD R5,R5,R1,ASL#4
-FMOV R11,#1:STRB R11,[R5]
-P#.nnuwl MOV R0,#19:SWI "OS_Byte"
-Z4�sfadr(12,bgame):�adr(11,bgdat):LDR R0,[R12,#80]
-d#Ldr R0,kludgey:STR R0,[R11,#28]
-nB newsq
-x
.key_down
-�LSTMFD R13!,{R0-R2}:MOV R0,#21:MOV R1,#0:SWI "OS_Byte":LDMFD R13!,{R0-R2}
-�LDMFD R13!,{R0,R2,R3,R4}
-�6ADD R1,R2,#1:CMP R1,#16:STMPLFD R13!,{R0,R2,R3,R4}
-�>BPL nokey:LDR R5,[R12,#96]:ADD R5,R5,R0:ADD R7,R5,R1,ASL#4
-�7LDRB R14,[R7]:CMP R14,#4:STMEQFD R13!,{R0,R2,R3,R4}
-�BBEQ nokey:MOV R11,#0:LDR R10,[R12,#72]:LDR R10,[R10]:MOV R9,#0
-�4LDR R5,[R12,#88]:ADD R5,R5,R0:ADD R5,R5,R1,ASL#4
-�MLDRB R6,[R5,#0]!:CMP R6,#1:STMGTFD R13!,{R0,R2,R3,R4}:BGT nokey:BNE nodbw
-�CLDRB R6,[R5,#16]:CMP R6,#0:STMNEFD R13!,{R0,R2,R3,R4}:BNE nokey
-�GSTREQB R9,[R5]:�EQ R11,R10,#7:ADDEQ R11,R11,#1:CMP R14,#2:BNE nodbw
-�<STRB R9,[R7]:STMFD R13!,{R0,R1,R3,R4}:STR R11,[R12,#100]
-�DMOV R0,#3:MVN R1,#14:MOV R2,#&1B00:MOV R3,#1:SWI "Sound_Control"
-�LDMFD R13,{R0-R3}:MOV R1,R2
.5LDR R0,[R12,#112]:ADD R0,R0,#11:STR R0,[R12,#112]
.#BL eg_showscor:�sfadr(12,bgame)
.B nsdbw
."6.nodbw STMFD R13!,{R0,R1,R3,R4}:STR R11,[R12,#100]
.,e.nsdbw LDR R0,[R12,#76]:ADD R0,R0,#(48*320):ADD R1,R12,#28:LDMIA R1,{R2-R11,R14}:LDR R1,[R12,#84]
.69.ldcbf STMIA R0!,{R2-R11,R14}:SUBS R1,R1,#1:BNE ldcbf
.@CSTMIA R0,{R2-R10}:LDR R2,[R12,#80]:MOV R1,#384:LDR R0,[R12,#76]
.JP.ldcbg LDMIA R2!,{R3-R11,R14}:STMIA R0!,{R3-R11,R14}:SUBS R1,R1,#1:BNE ldcbg
.T$�sadr(11,bgdat):STR R0,[R11,#28]
.^!LDR R0,[R12,#72]:LDR R11,[R0]
.hGLDMFD R13,{R0-R3}:� R2,R11,#3:STMFD R13!,{R0-R1,R11}:BL eg_showmids
.r6LDMFD R13!,{R0-R2}:BL eg_showalls:�sfadr(12,bgame)
.|GLDMFD R13,{R0-R3}:MOV R4,#(4*320):LDR R5,[R12,#76]:LDR R6,[R12,#80]
.�\STMFD R13!,{R0-R6}:�sadr(11,bgdat):LDR R0,[R11,#28]:SUB R0,R0,#(320*48):STR R0,[R11,#28]
.�
.lscrd
.�3LDMFD R13,{R0-R6}:�sfadr(12,bgame):ADD R5,R5,R4
.�DADD R5,R5,#&8700:ADD R11,R5,#&70:CMP R4,#(4*320):BLNE eg_wipeacr
.�-�sadr(12,bgdat):SUB R0,R0,#2:SUB R1,R1,#3
.�9MOV R3,#0:MOV R5,#6:LDR R6,[R12,#48]:LDR R7,[R12,#28]
.�8ADD R7,R7,#16:ADD R7,R7,#(320*16):MOV R8,#6:BL lysqr
.�3�sfadr(12,bgame):LDMFD R13,{R0-R6}:ADD R5,R5,R4
.�=ADD R5,R5,#&8C00:ADD R11,R5,#&70:BL eg_showyouwithoutmask
.�;LDMFD R13,{R0-R6}:LDR R2,[R12,#100]:CMP R2,#1:BMI nsdwp
.�<ADD R5,R5,R4:ADD R5,R5,#&B400:ADD R0,R5,#&70:BL eg_sprwl
.�5.nsdwp LDMFD R13,{R0-R6}:ADD R5,R5,R4:MOV R7,#256
.�MOV R0,#19:SWI "OS_Byte"
/
.ldcpy
/<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/&<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/0<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/:<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/D<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/N<LDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8-R11,R14}
/XBLDMIA R5!,{R0-4,R8-R11,R14}:STMIA R6!,{R0-R4,R8}:ADD R6,R6,#16
/bSUBS R7,R7,#1:BNE ldcpy
/lQLDMFD R13!,{R0-R6}:ADD R4,R4,#(320*4):CMP R4,#(320*52):ADD R3,R3,#1:BPL lsdot
/vSTMFD R13!,{R0-R6}:B lscrd
/�
.lsdot
/��sfadr(12,bgame)
/�LDR R11,[R12,#100]
/�CMP R11,#0:BEQ nndwl
/�DMOV R0,#1:MVN R1,#14:MOV R2,#&2700:MOV R3,#1:SWI "Sound_Control"
/�LDMFD R13,{R0-R3}
/�4LDR R5,[R12,#88]:ADD R5,R5,R0:ADD R5,R5,R1,ASL#4
/� MOV R11,#1:STRB R11,[R5,#16]
/�#.nndwl MOV R0,#19:SWI "OS_Byte"
/�4�sfadr(12,bgame):�adr(11,bgdat):LDR R0,[R12,#80]
/�%LDR R0,kludgey_q:STR R0,[R11,#28]
/�B newsq
/�!.kludgey_q Equd kludge_screen
0.out_escape
0MOV R0,#126:SWI "OS_Byte"
0LDMFD R13!,{R0-R3}
0 
MOV R0,#0
0*LDMFD R13!,{PC}
04.out_pause
0>LDMFD R13!,{R0-R3}
0HALDR R4,[R12,#72]:STRB R0,[R4],#1:STRB R1,[R4],#1:STRB R2,[R4]
0R
MOV R0,#1
0\LDMFD R13!,{PC}
0f.out_abort
0pLDMFD R13!,{R0-R3}
0z1LDR R4,[R12,#72]:STRB R0,[R4],#1:STRB R1,[R4]
0�
MOV R0,#2
0�LDMFD R13!,{PC}
0�
.out_time
0�LDMFD R13!,{R0-R3}
0�1LDR R4,[R12,#72]:STRB R0,[R4],#1:STRB R1,[R4]
0�
MOV R0,#3
0�LDMFD R13!,{PC}
0�:
0�
.out_mine
0�LDMFD R13!,{R0-R3}
0�1LDR R4,[R12,#72]:STRB R0,[R4],#1:STRB R1,[R4]
0�
MOV R0,#4
0�LDMFD R13!,{PC}
1:
1
.out_done
1LDMFD R13!,{R0-R3}
1$ALDR R4,[R12,#72]:STRB R0,[R4],#1:STRB R1,[R4],#1:STRB R2,[R4]
1.
MOV R0,#1
18
MOV R0,#5
1BLDMFD R13!,{PC}
1L:
1V:.bgame                          ; Databay for THE GAME
1`*EQUD 0:EQUD 0                   ; Keys
1j7;+8 : EQUD kludge_screen+304+255*320 ; Time bar end
1t$;+12: EQUD kludge_screen+320*248
1~3;+16: EQUD bgraf%                 ; Grafx start
1�=;+20: EQUD kludge_screen+112*321       ; Middle of screen
1�S;+24: EQUD kludge_screen+320*208       ; Brown girl in the ring, la la la la la
1�;+28: EQUD 0:EQUD 0:EQUD 0
1�EQUD 0:EQUD 0:EQUD 0:EQUD 0
1�4EQUD 0:EQUD 0:EQUD 0:EQUD 0       ; Quicknoughts
1�9;+72: EQUD bmess%                 ; Ptr to mess block
1�<;+76: EQUD 0                      ; Set up to SpriteOp60
1�9;+80: EQUD kludge_screen               ; Screen start
1�4;+84: EQUD 1861                   ; Scr bytes/44
1�=;+88: EQUD blevl%                 ; Horz. wall data start
1�=;+92: EQUD blevl%+272             ; Vert. wall data start
1�9;+96: EQUD blevl%+544             ; Square data start
2M;+100:EQUD 0                      ; Yes, another temporary register store
2
=;+104:EQUD bgraf%+97*1024         ; Wall grafx start-1024
2;;+108:EQUD kludge_screen+112+320*96    ; Wall above you
2-;+112:EQUD 0                      ; Score
2(2;+116:EQUD 0                      ; Bombs left
229;+120:EQUD 2141                   ; Wide scr bytes/44
2<#;+124:EQUD kludge_screen+304-48
2F;+128:EQUD 0
2P;+132:EQUD 0
2Z;+136:EQUD blevs%+266
2d6;+140:EQUD 0                      ; kludge_counter
2n
2x
.newsq
2�&MOV R0,#21:MOV R1,#0:SWI "OS_Byte"
2� LDMFD R13,{R0-R3}:MOV R11,R2
2�MLDR R2,[R12,#96]:ADD R0,R2,R0:ADD R0,R0,R1,ASL#4:LDRB R1,[R0]:� R2,R1,#15
2�  Mov     R0,#kludge_pause
2�  Str     R0,[R12,#140]
2�  Teq     R2,#1:BEQ sqbom
2�   Teq     R2,#2:BEQ out_mine
2�  Teq     R2,#3:BEQ sqtrn
2�  Teq     R2,#6:BEQ sqbon
2�  B       lsgam
2�:
2�
.sqbom
2�5LDR R0,[R12,#112]:ADD R0,R0,#23:STR R0,[R12,#112]
3MOV R1,R11:BL eg_showscor
3DMOV R0,#2:MVN R1,#14:MOV R2,#&1800:MOV R3,#1:SWI "Sound_Control"
3ADR R12,bgame
3"BLDR R0,[R12,#116]:SUBS R0,R0,#1:BEQ out_done:STR R0,[R12,#116]
3,.wypsq LDMFD R13,{R0-R3}
36KLDR R2,[R12,#96]:ADD R0,R2,R0:ADD R0,R0,R1,ASL#4:MOV R1,#0:STRB R1,[R0]
3@B lsgam
3J
.sqbon
3T@LDR R0,[R12,#112]:ADD R0,R0,#26:STR R0,[R12,#112]:MOV R1,R11
3^)BL eg_showscor:MOV R0,#4:ADR R1,bonvx
3h SWI "Sound_AttachNamedVoice"
3rDMOV R0,#4:MVN R1,#14:MOV R2,#&1800:MOV R3,#1:SWI "Sound_Control"
3|ADR R12,bgame:B wypsq
3�%.bonvx EQUS "BSgetbonus"+�0:ALIGN
3�.temps EQUD 0
3�$.sqtrn ADR R0,temps:STRB R1,[R0]
3�7MOV R0,#4:ADR R1,travx:SWI "Sound_AttachNamedVoice"
3�DMOV R0,#4:MVN R1,#14:MOV R2,#&2700:MOV R3,#1:SWI "Sound_Control"
3�0ADR R0,ttran:ADR R12,bgame:STR R0,[R12,#132]
3�.lptrn BL eg_wipeyou
3�LDMFD R13!,{R0-R3}
3�-ADD R3,R3,#1:�S R4,R3,#&1F:SUBEQ R2,R2,#1
3�#STMFD R13!,{R0-R3}:BLEQ dectime
3�BL eg_showobjs
3�LDMFD R13,{R0-R3}
3�EADR R12,bgame:LDR R1,[R12,#132]:LDRB R0,[R1],#1:STR R1,[R12,#132]
42CMP R0,#0:BEQ lptro:ADD R1,R0,#6:BL eg_showyou
4$MOV R0,#19:SWI "OS_Byte":B lptrn
4.lptro BL eg_wipeyou
4&LDMFD R13!,{R0-R3}
40-ADD R3,R3,#1:�S R4,R3,#&1F:SUBEQ R2,R2,#1
4:#STMFD R13!,{R0-R3}:BLEQ dectime
4DBL eg_showobjs
4NLDMFD R13,{R0-R3}
4XEADR R12,bgame:LDR R1,[R12,#132]:LDRB R0,[R1],#1:STR R1,[R12,#132]
4b=CMP R0,#0:BEQ lptrp:ADD R1,R0,#6:MOV R0,#93:BL eg_showyou
4l$MOV R0,#19:SWI "OS_Byte":B lptro
4v'.lptrp LDMFD R13,{R0-R3}:MOV R11,R2
4�KLDR R2,[R12,#96]:ADD R0,R2,R0:ADD R0,R0,R1,ASL#4:MOV R1,#0:STRB R1,[R0]
4�.lptrq BL eg_wipeyou
4�LDMFD R13!,{R0-R3}
4�-ADD R3,R3,#1:�S R4,R3,#&1F:SUBEQ R2,R2,#1
4�#STMFD R13!,{R0-R3}:BLEQ dectime
4�$BL eg_showobjs:LDMFD R13,{R0-R3}
4�EADR R12,bgame:LDR R1,[R12,#132]:LDRB R0,[R1],#1:STR R1,[R12,#132]
4�8CMP R0,#0:BEQ lptrr:MOV R0,#19:SWI "OS_Byte":B lptrq
4�
.lptrr
4�&MOV R0,#21:MOV R1,#0:SWI "OS_Byte"
4�PADR R12,bgame:LDR R0,[R12,#80]:ADD R2,R12,#28:LDMIA R2,{R1-R11}:MOV R12,#256
4�.ltcsz STMIA R0!,{R1-R11}:STMIA R0!,{R1-R11}:STMIA R0!,{R1-R11}:STMIA R0!,{R1-R11}:STMIA R0!,{R1-R11}:STMIA R0!,{R1-R11}:STMIA R0!,{R1-R10}:ADD R0,R0,#16
4�SUBS R12,R12,#1:BNE ltcsz
5AADR R12,bgame:LDR R0,[R12,#72]:LDRB R0,[R0]:LDR R1,[R12,#136]
54ADD R0,R1,R0,ASL#1:LDRB R10,[R0,#1]:LDRB R9,[R0]
5LDMFD R13,{R0-R3}
5 ADR R0,temps:LDRB R1,[R0]
5*>� R3,R1,#240:ADD R3,R3,#5:MOV R4,#256:MOV R0,R9:MOV R1,R10
54LDR R2,[R12,#96]:MOV R7,#0
5>..lfndr LDRB R5,[R2],#1:CMP R5,R3:BNE sfndr
5H0� R0,R7,#15:� R1,R7,#(15<<4):MOV R1,R1,LSR#4
5R/.sfndr ADD R7,R7,#1:SUBS R4,R4,#1:BNE lfndr
5\LDMFD R13!,{R2-R5}
5fSTMFD R13!,{R0-R1,R4-R5}
5p;LDR R2,[R12,#72]:LDRB R2,[R2]:� R2,R2,#3:BL eg_showmids
5z#LDMFD R13,{R0-R3}:ADR R12,bgame
5�;LDR R2,[R12,#72]:LDRB R2,[R2]:� R2,R2,#7:BL eg_showalls
5�>ADR R0,ttran:ADD R0,R0,#28:ADR R12,bgame:STR R0,[R12,#132]
5�.lptry BL eg_wipeyou
5�LDMFD R13!,{R0-R3}
5�-ADD R3,R3,#1:�S R4,R3,#&1F:SUBEQ R2,R2,#1
5�#STMFD R13!,{R0-R3}:BLEQ dectime
5�BL eg_showobjs
5�LDMFD R13,{R0-R3}
5�EADR R12,bgame:LDR R1,[R12,#132]:LDRB R0,[R1],#1:STR R1,[R12,#132]
5�2CMP R0,#0:BEQ lsgam:ADD R1,R0,#6:BL eg_showyou
5�$MOV R0,#19:SWI "OS_Byte":B lptry
5�%.travx EQUS "BStranspor"+�0:ALIGN
5�:
67.ttran EQUD &BABABBBA:EQUD &BBBBBCBB:EQUD &BCBCBDBC
60EQUD &BDBDBEBD:EQUD &BEBEBFBE:EQUD &BFBEBF00
60EQUD &BFBFBEBF:EQUD &BEBEBDBE:EQUD &BDBDBCBD
6$0EQUD &BCBCBBBC:EQUD &BBBBBABB:EQUD &BABBBA00
6.0EQUD &01010101:EQUD &01010101:EQUD &01010100
68:
6B.dectime
6L�sadr(12,bgame)
6V
CMP R2,#0
6`BMI out_time
6jLDR R4,[R12,#8]
6tMOV R5,#320
6~MUL R6,R5,R2
6�SUB R2,R4,R6
6�&MOV R4,#0:MOV R5,#255:MVN R11,#255
6�LDMIA R2,{R6-R9}
6�*� R10,R5,R6:CMP R10,#160:�EQ R6,R6,R11
6�7� R10,R5,R6,ROR#24:CMP R10,#163:�EQ R6,R6,R11,ROR#8
6�8� R10,R5,R6,ROR#16:CMP R10,#162:�EQ R6,R6,R11,ROR#16
6�7� R10,R5,R6,ROR#8:CMP R10,#161:�EQ R6,R6,R11,ROR#24
6�*� R10,R5,R7:CMP R10,#204:�EQ R7,R7,R11
6�7� R10,R5,R7,ROR#24:CMP R10,#207:�EQ R7,R7,R11,ROR#8
6�8� R10,R5,R7,ROR#16:CMP R10,#206:�EQ R7,R7,R11,ROR#16
6�7� R10,R5,R7,ROR#8:CMP R10,#205:�EQ R7,R7,R11,ROR#24
6�*� R10,R5,R8:CMP R10,#206:�EQ R8,R8,R11
77� R10,R5,R8,ROR#24:CMP R10,#163:�EQ R8,R8,R11,ROR#8
7
8� R10,R5,R8,ROR#16:CMP R10,#204:�EQ R8,R8,R11,ROR#16
77� R10,R5,R8,ROR#8:CMP R10,#205:�EQ R8,R8,R11,ROR#24
7*� R10,R5,R9:CMP R10,#162:�EQ R9,R9,R11
7(7� R10,R5,R9,ROR#8:CMP R10,#161:�EQ R9,R9,R11,ROR#24
728� R10,R5,R9,ROR#16:CMP R10,#160:�EQ R9,R9,R11,ROR#16
7<STMIA R2,{R6-R9}
7FMOV PC,R14
7P.eg_showyouwithoutmask
7Z�adr (10,bgdat)
7dLLDR R1,[R12,#16]:MOV R2,#7<<10:� R0,R2,R3,ASL#10:ADD R0,R1,R0:MOV R1,R11
7nLDR R11,[R10,#-12]
7x�LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7��LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11:LDMIA R0!,{R3-R10}:STMIA R1,{R3-R10}:ADD R1,R1,R11
7�MOV PC,R14
7�1.eg_wipeacr ADD R10,R12,#28:LDMIA R10,{R2-R9}
7�ISTMIA R11,{R2-R9}:ADD R11,R11,#320:STMIA R11,{R2-R9}:ADD R11,R11,#320
7�CSTMIA R11,{R2-R9}:ADD R11,R11,#320:STMIA R11,{R2-R9}:MOV PC,R14
7�
.eg_sprwl
7�4LDR R3,[R12,#104]:ADD R1,R3,R2,ASL#10:MOV R2,#16
8a.lspwa LDMIA R1!,{R3-R10}:STMIA R0,{R3-R10}:ADD R0,R0,#320:SUBS R2,R2,#1:BNE lspwa:MOV PC,R14
8.eg_wipedwn MOV R2,#0
8�STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:
8"�STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:
8,�STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:STR R2,[R11],#368:MOV PC,R14
86
.eg_sprwh
8@CLDR R3,[R12,#104]:ADD R1,R3,R2,ASL#10:ADD R1,R1,#512:MOV R2,#32
8J_.lspwd LDMIA R1!,{R3-R6}:STMIA R0,{R3-R6}:ADD R0,R0,#368:SUBS R2,R2,#1:BNE lspwd:MOV PC,R14
8T.botty EQUD bspau%
8^3.pauseprint ADR R1,botty:LDR R1,[R1]:MOV R2,#64
8h�.lpapr LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}
8r�LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R0!,{R3-R12}
8|NLDMIA R1!,{R3-R7}:STMIA R0!,{R3-R7}:ADD R0,R0,#220:SUBS R2,R2,#1:BNE lpapr
8�MOV PC,R14
8�H.pausewipe �sadr(1,bgame):ADD R1,R1,#28:LDMIA R1,{R2-R12}:MOV R1,#64
8��.lpawp STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R12}:STMIA R0!,{R2-R7}
8�*ADD R0,R0,#220:SUBS R1,R1,#1:BNE lpawp
8�MOV PC,R14
8�:
8�]:�
8��
8�:
8���editor
8�	�0Ȝ0
8�vlevl%=1:A%=0:� efade
8�� lldwn%=1024 � 768 � -4
96ș "OS_SpriteOp",34+256,bspri%,"editor",0,lldwn%,0
9Ȗ:�
9(�print("DO YOU WANT TO EDIT ",0,500)
9&(�print("THE EXISTING LEVELS ",0,436)
90*�print("-PRESS ""O""- OR PRESS",0,372)
9:*�print("""N"" TO CREATE NEW   ",0,308)
9D0�print("SOME NEW LEVELS.    ",0,244):*FX21,0
9N�
9Xckeyp$=�caps(�)
9b� ckeyp$="O" � ckeyp$="N"
9l7� ckeyp$="N" � �newlevels � � �editcode � � efade:�
9v� lsoff%=1�73
9�ȓ 0,0,1280,580 � 0,-8
9�Ȗ:�
9��print("HELP PAGE",608,980)
9�� llacr%=-184 � 180 � 4
9�7ș "OS_SpriteOp",34+256,bspri%,"mouse",llacr%,346,0
9�Ȗ:�
9�� llacr%=-184 � 0 � 4
9�6ș "OS_SpriteOp",34+256,bspri%,"mouse",llacr%,32,0
9�Ȗ:�
9� �print("WHILE IN A",478,706)
9� �print("WALL SPACE",478,644)
9�!�print("IN A SQUARE",462,286)
9�"�print("PLACE A WALL",376,506)
:$�print("IMMOVABLE WALL",376,442)
:!�print("REMOVE WALL",376,378)
:"�print("PLACE OBJECT",192,192)
: �print("DO NOWT",192,128)
:*"�print("REMOVE OBJECT",192,64)
:4!�print("CLICK MOUSE",540,900)
:>)�print("TO CONTINUE",540,836):*FX21,9
:H�
:Rȗ xdumy%,xdumy%,xbutt%
:\� xbutt%>0
:f�
:p� efade
:z�printmap(�)
:�ȗ �:vptrn%=1:�nextptr
:�4ș "OS_SpriteOp",256+34,bspri%,"editbar",0,960,0
:�9ș "OS_SpriteOp",256+34,bspri%,"editnumbersn",0,320,0
:�8ș "OS_SpriteOp",256+34,bspri%,"editobjects",0,508,0
:�-�print(�(blevs%?(13583+vlevl%)),204,1016)
:��print(�(vlevl%),640,1016)
:�boxup%=0:boxdn%=-1:boxan%=1
:�&�animbox:fexit%=�:fdraw%=�:*FX21,9
:��
:�ȗ mousx%,mousy%,mousb%
:�� mousb%>0 �
:�4� mousx%<180 � mousy%>508 � mousy%<600 � �selobj
:�?� mousx%<180 � mousy%<500 � mousy%>320 � boxdn%>-1 � �selno
;� mousy%>960 � �barclix
;B� mousx%>176 � mousy%>16 � mousx%<1100 � mousy%<940 � �levclix
;�
;$"� � fexit% � �animbox:�nextptr
;.Ȗ
;8� fexit%
;B� fdraw%
;Lȗ �
;V� efade
;`�
;j:
;t
��barclix
;~*� mousx%>132 � mousx%<184 � �time_up:�
;�,� mousx%>396 � mousx%<452 � �time_down:�
;�+� mousx%>576 � mousx%<628 � �level_up:�
;�� mousx%>1160 � �ehelp:�
;�� mousx%>1048 � �opts:�
;�� mousx%>936 � �high:�
;�� mousx%>824 � �pass:�
;� � mousx%>772 � �level_down:�
;��
;�:
;�
��time_up
;�fsave%=�
;�blevs%?(13583+vlevl%)+=1
<5�print(�pad(�(blevs%?(13583+vlevl%)),3),204,1016)
<
�
<:
<��time_down
<(fsave%=�
<2blevs%?(13583+vlevl%)-=1
<<5�print(�pad(�(blevs%?(13583+vlevl%)),3),204,1016)
<F�
<P:
<Z��level_up
<d$vlevl%+=1:� vlevl%=17 � vlevl%=1
<n� efade
<x�printmap(�)
<�4ș "OS_SpriteOp",256+34,bspri%,"editbar",0,960,0
<�� boxdn%>-1 � ș "OS_SpriteOp",256+34,bspri%,"editnumbersy",0,320,0 � ș "OS_SpriteOp",256+34,bspri%,"editnumbersn",0,320,0
<�8ș "OS_SpriteOp",256+34,bspri%,"editobjects",0,508,0
<�-�print(�(blevs%?(13583+vlevl%)),204,1016)
<�&�print(�(vlevl%),640,1016):*FX21,9
<��
<�:
<���level_down
<�$vlevl%-=1:� vlevl%=0 � vlevl%=16
<�� efade
<��printmap(�)
<�4ș "OS_SpriteOp",256+34,bspri%,"editbar",0,960,0
<�� boxdn%>-1 � ș "OS_SpriteOp",256+34,bspri%,"editnumbersy",0,320,0 � ș "OS_SpriteOp",256+34,bspri%,"editnumbersn",0,320,0
=8ș "OS_SpriteOp",256+34,bspri%,"editobjects",0,508,0
=-�print(�(blevs%?(13583+vlevl%)),204,1016)
=&�print(�(vlevl%),640,1016):*FX21,9
="�
=,:
=6��ehelp
=@ȗ �
=J� efade
=T3ș "OS_SpriteOp",34+256,bspri%,"editor",0,768,0
=^�print("HELP PAGE",608,980)
=h4ș "OS_SpriteOp",34+256,bspri%,"mouse",180,346,0
=r1ș "OS_SpriteOp",34+256,bspri%,"mouse",0,32,0
=| �print("WHILE IN A",478,706)
=� �print("WALL SPACE",478,644)
=�!�print("IN A SQUARE",462,286)
=�"�print("PLACE A WALL",376,506)
=�$�print("IMMOVABLE WALL",376,442)
=�!�print("REMOVE WALL",376,378)
=�"�print("PLACE OBJECT",192,192)
=��print("DO NOWT",192,128)
=�"�print("REMOVE OBJECT",192,64)
=�!�print("CLICK MOUSE",540,900)
=�)�print("TO CONTINUE",540,836):*FX21,9
=��
=�ȗ xdumy%,xdumy%,xbutt%
=�� xbutt%>0
>fexit%=�:fdraw%=�
>�
>:
>&
��pass
>0ȗ �
>:� efade
>Dfexit%=�:fdraw%=�
>N(�print("THE CURRENT PASSWORD",0,800)
>X(�print("FOR THIS LEVEL IS : ",0,736)
>bC�print("    <"+�getlnstr(blevs%+96+10*vlevl%,10)+">    ",0,672)
>l(�print("PRESS C TO CHANGE OR",0,608)
>v0�print("R TO RETURN TO EDIT.",0,544):*FX21,0
>��
>�ckeyp$=�caps(�)
>�� ckeyp$="C" � ckeyp$="R"
>�� ckeyp$="R" � �
>�fsave%=�
>�(�print("                    ",0,800)
>�(�print("PLEASE INPUT THE NEW",0,736)
>�(�print("      PASSWORD      ",0,672)
>�(�print("    >          <    ",0,608)
>�0�print("                    ",0,544):*FX21,0
>�B�putstr(�pad(�input(320,608,32,90,10),10),blevs%+96+10*vlevl%)
>��
>�:
?
��opts
?fexit%=�
?fdraw%=�
? ȗ �:� efade
?*3ș "OS_SpriteOp",34+256,bspri%,"editor",0,768,0
?4�print("OPTIONS",638,960)
?>(�print("A> SAVE LEVELS      ",0,746)
?H(�print("B> LOAD NEW LEVELS  ",0,682)
?R(�print("C> IMPORT A LEVEL   ",0,618)
?\(�print("D> SWAP TWO LEVELS  ",0,554)
?f(�print("E> COPY A LEVEL     ",0,490)
?p(�print("F> CHANGE EDIT CODE ",0,426)
?z(�print("G> CHANGE FILE NAME ",0,362)
?�(�print("H> CHANGE SET TITLE ",0,298)
?�(�print("I> RETURN TO EDITOR ",0,234)
?�(�print("J> QUIT BSE         ",0,170)
?�/�print(" PLEASE PRESS A KEY ",0,64):*FX21,0
?��
?�ckeyp$=�caps(�)
?�!� �(ckeyp$)>64 � �(ckeyp$)<75
?�Ȏ (ckeyp$) �
?�� "A": fsave%=�:�save
?�� "B": �save:�load
?�� "C": �import
?�� "D": �swaplevs
?�� "E": �copylev
@� "F": �newedit:fsave%=�
@� "G": �newfile:fsave%=�
@� "H": �newtitle:fsave%=�
@$� "J": fdraw%=�
@.�
@8�
@B:
@L��import
@Vfsave%=�:�0Ȝ0
@`ȓ Ȑ 0,0,1280,750
@j(�print("TELL ME THE FILE TO ",0,500)
@t'�print("GET THE LEVEL FROM.",0,436)
@~(�print("    >          <    ",0,372)
@�7fnlev$="<BombLevels$Dir>."+�input(320,372,33,90,10)
@�(�print("PLEASE TYPE THE EDIT",0,500)
@�(�print(" CODE FOR THAT SET. ",0,436)
@�(�print("    >          <    ",0,372)
@�,xedit$=�pad(�input(320,372,32,90,10),10)
@��
@�(�print(" WHICH LEVEL DO YOU ",0,500)
@�(�print("WANT FROM THIS FILE?",0,436)
@�(�print("        >  <        ",0,372)
@�%xlsrc%=�(�input(576,372,48,57,2))
@�� xlsrc%>0 � xlsrc%<17
@��
A(�print(" WHICH LEVEL DO YOU ",0,500)
A
(�print("  WANT TO MAKE IT?  ",0,436)
A(�print("        >  <        ",0,372)
A%xldst%=�(�input(576,372,48,57,2))
A(� xldst%>0 � xldst%<17
A2� 28,0,1,39,0
A<hfile%=� fnlev$
AF�� hfile%=0 � �print(" THAT FILE DOES NOT ",0,500):�print("       EXIST.       ",0,436):�print("                    ",0,372):�wait(30):�
AP+�#hfile%:�"Load "+fnlev$+" "+�~(bmess%)
AZ)ș "BS_Encrypt",handl%,bmess%+4,13596
AdA�putstr(�getlnstr(bmess%+264+xlsrc%*2,2),blevs%+264+xldst%*2)
AnB�putstr(�getlnstr(bmess%+96+xlsrc%*10,10),blevs%+96+xldst%*10)
Ax/blevs%?(13583+xldst%)=bmess%?(13583+xlsrc%)
A�� lcopy%=0�829�4
A�Iblevs%!(lcopy%+300+xldst%*830-830)=bmess%!(lcopy%+300+xlsrc%*830-830)
A��
A��
A�:
A�
��copylev
A��
A�fsave%=�:�0Ȝ0
A�ȓ Ȑ 0,0,1280,750
A�(�print("INPUT THE NUMBER OF ",0,500)
A�(�print(" THE SOURCE LEVEL.  ",0,436)
A�(�print("        >  <        ",0,372)
A�%xlsrc%=�(�input(576,372,48,57,2))
B� xlsrc%>0 � xlsrc%<17
B�
Bȓ Ȑ 0,0,1280,750
B"(�print("INPUT THE NUMBER OF ",0,500)
B,(�print("THE DESTINATION LEV.",0,436)
B6(�print("        >  <        ",0,372)
B@%xldst%=�(�input(576,372,48,57,2))
BJ� xldst%>0 � xldst%<17
BTA�putstr(�getlnstr(blevs%+264+xlsrc%*2,2),blevs%+264+xldst%*2)
B^B�putstr(�getlnstr(blevs%+96+xlsrc%*10,10),blevs%+96+xldst%*10)
Bh/blevs%?(13583+xldst%)=blevs%?(13583+xlsrc%)
Br� lcopy%=0�829�4
B|Iblevs%!(lcopy%+300+xldst%*830-830)=blevs%!(lcopy%+300+xlsrc%*830-830)
B��
B��
B�:
B���swaplevs
B��
B�fsave%=�:�0Ȝ0
B�ȓ Ȑ 0,0,1280,750
B�(�print("INPUT THE NUMBER OF ",0,500)
B�(�print(" ONE OF THE LEVELS. ",0,436)
B�(�print("        >  <        ",0,372)
B�%xlsrc%=�(�input(576,372,48,57,2))
B�� xlsrc%>0 � xlsrc%<17
B��
Cȓ Ȑ 0,0,1280,750
C(�print("INPUT THE NUMBER OF ",0,500)
C(�print("  THE OTHER LEVEL.  ",0,436)
C&(�print("        >  <        ",0,372)
C0%xldst%=�(�input(576,372,48,57,2))
C:� xldst%>0 � xldst%<17
CD+xtemp$=�getlnstr(blevs%+264+xldst%*2,2)
CNA�putstr(�getlnstr(blevs%+264+xlsrc%*2,2),blevs%+264+xldst%*2)
CX'�putstr(xtemp$,blevs%+264+xlsrc%*2)
Cb,xtemp$=�getlnstr(blevs%+96+xldst%*10,10)
ClB�putstr(�getlnstr(blevs%+96+xlsrc%*10,10),blevs%+96+xldst%*10)
Cv'�putstr(xtemp$,blevs%+96+xlsrc%*10)
C�2Ȕ blevs%?(13583+xldst%),blevs%?(13583+xlsrc%)
C�� lcopy%=0�829�4
C�LȔ blevs%!(lcopy%+300+xldst%*830-830),blevs%!(lcopy%+300+xlsrc%*830-830)
C��
C��
C�:
C�
��newedit
C�	�0Ȝ0
C�ȓ Ȑ 0,0,1280,750
C�(�print(" INPUT THE NEW EDIT ",0,500)
C�(�print("CODE FOR THE LEVELS.",0,436)
C�(�print("    >          <    ",0,372)
C�8�putstr(�pad(�input(320,372,32,90,10),10),blevs%+96)
D�
D:
D
��newfile
D 	�0Ȝ0
D*ȓ Ȑ 0,0,1280,750
D4(�print(" PLEASE GIVE A FILE ",0,500)
D>(�print("NAME FOR THE LEVELS.",0,436)
DH(�print("    >          <    ",0,372)
DR7flevs$="<BombLevels$Dir>."+�input(320,372,33,90,20)
D\�
Df:
Dp��newtitle
Dz	�0Ȝ0
D�ȓ Ȑ 0,0,1280,750
D�(�print("GIVE THESE LEVELS A ",0,500)
D�(�print("   TITLE, PLEASE    ",0,436)
D�(�print(">                  <",0,372)
D�6�putstr(�pad(�input(0,372,32,90,20),20),blevs%+76)
D��
D�:
D���newlevels
D�ȓ Ȑ 0,0,1280,510
D�	�save
D�o$blevs%="BOMBHIGHSCORE HIGHSCORE HIGHSCORE HIGHSCORE HIGHSCORE "+�20,�0)+"##LEVELLEVELLEVELLEVELEDITCODE  "
D�$(blevs%+106)="PASSWORD-1PASSWORD-2PASSWORD-3PASSWORD-4PASSWORD-5PASSWORD-6PASSWORD-7PASSWORD-8PASSWORD-9PASSWORD-APASSWORD-BPASSWORD-CPASSWORD-DPASSWORD-EPASSWORD-FPASSWORD-0"
D�A%=blevs%+266
EB%=13334
E� ezero
E�newedit
E$�newfile
E.
�newtitle
E8fsave%=�
EB�
EL:
EV
��save
E`� fsave% �
Ej � 28,0,5,39,0
Et* ș "BS_Decrypt",handl%,blevs%+4,13596
E~K ș "XOS_CLI","Save "+flevs$+" "+�~(blevs%)+" "+�~(blevs%+13600) � ;psr
E� � (psr � 1) �
E�@  �"WARNING - could not be saved"'"Press a key":kludgeypoo=�
E� �
E�   � "SetType "+flevs$+" 0C9"
E� �
E�* ș "BS_Encrypt",handl%,blevs%+4,13596
E��
E��
E�:
E�
��load
E�A%=0:� efade
E�(�print("PLEASE INPUT NAME OF",0,600)
F(�print("  THE LEVELS FILE.  ",0,536)
F
(�print("    >          <    ",0,420)
F7flevs$="<BombLevels$Dir>."+�input(320,420,33,90,10)
F� 28,0,1,39,0
F(hfile%=� flevs$
F2� hfile%>0 �
F<�#hfile%
FF#� "Load "+flevs$+" "+�~(blevs%)
FP)ș "BS_Encrypt",handl%,blevs%+4,13596
FZ�
Fd� efade
Fn(�print(" THAT FILE DOES NOT ",0,580)
Fx(�print("       EXIST.       ",0,516)
F�
�wait(30)
F��
F�� efade
F�fsave%=�
F��
F�:
F���wait(xwait%)
F�� xlwai%=1� xwait%
F�Ȗ:�
F��
F�:
F�
��high
F�fexit%=�:fdraw%=�
Gȗ �:� efade
G� lscor%=0�4
G<�print(�getlnstr(blevs%+4+10*lscor%,10),0,936-lscor%*64)
G""sscor$=�(blevs%!(54+lscor%*4))
G,2�print(sscor$,1280-�(sscor$)*64,936-lscor%*64)
G6�
G@(�print(" PRESS A NUMBER 1-5 ",0,450)
GJ(�print(" TO EDIT THAT NAME, ",0,386)
GT(�print("  SHIFT AND 1-5 TO  ",0,322)
G^(�print("   EDIT THE SCORE   ",0,258)
Gh(�print("OR PRESS R TO RETURN",0,194)
Gr0�print("     TO EDITOR.     ",0,130):*FX21,0
G|�
G��
G�#ckeyp%=�"12345!@#$%R",�caps(�))
G�� ckeyp%>0
G�� ckeyp%=11 � � �:�
G�"� ckeyp%<6 � �editname(ckeyp%)
G�%� ckeyp%>5 � �editscore(ckeyp%-5)
G�� �
G�:
G���editname(xhnum%)
G�fsave%=�
G�+�print(">          <",0,1000-xhnum%*64)
G�K�putstr(�pad(�input(64,1000-xhnum%*64,32,90,10),10),blevs%-6+xhnum%*10)
G�B�print(�getlnstr(blevs%-6+10*xhnum%,10)+"  ",0,1000-xhnum%*64)
H�
H:
H��editscore(xhnum%)
H&fsave%=�
H0+�print(">        <",640,1000-xhnum%*64)
H:?!(blevs%+50+xhnum%*4)=�(�input(704,1000-xhnum%*64,48,57,8))
HD"sscor$=�(blevs%!(50+xhnum%*4))
HN+� 0 Ȝ 0:ȓ Ȑ 640,940-xhnum%*64,640,64
HX3�print(sscor$,1280-�(sscor$)*64,1000-xhnum%*64)
Hb�
Hl:
Hv��putstr(xpstr$,xpmem%)
H�� xlmem%=0� �(xpstr$)-1
H�(xpmem%?xlmem%=�(�xpstr$,xlmem%+1,1))
H��
H��
H�:
H�
��levclix
H�.relmx%=(mousx%-180)�8:relmy%=(mousy%-20)�8
H�*sqnox%=relmx% �7:sqnoy%=(114-relmy%)�7
H�'� (relmx% �7)<3 � (relmy% �7)<3 � �
H�!� (relmx% �7)<3 � �vertclix:�
H�!� (relmy% �7)<3 � �horzclix:�
H��squareclix:�
H�:
I��horzclix
Ifsave%=�
I� (mousb%�2) � xwall%=2
I � (mousb%�4) � xwall%=1
I*� (mousb%�1) � xwall%=0
I47blevs%?(304+(vlevl%-1)*830+sqnox%+sqnoy%*16)=xwall%
I>Ȏ xwall% �
IHT� 0: ș "OS_SpriteOp",34+256,bspri%,"wallhoriblnk",sqnox%*56+204,916-sqnoy%*56,0
IRT� 1: ș "OS_SpriteOp",34+256,bspri%,"wallhorimove",sqnox%*56+204,916-sqnoy%*56,0
I\T� 2: ș "OS_SpriteOp",34+256,bspri%,"wallhoristuk",sqnox%*56+204,916-sqnoy%*56,0
If�
Ip�
Iz:
I���vertclix
I�fsave%=�
I�� (mousb%�2) � xwall%=2
I�� (mousb%�4) � xwall%=1
I�� (mousb%�1) � xwall%=0
I�7blevs%?(576+(vlevl%-1)*830+sqnoy%+sqnox%*16)=xwall%
I�Ȏ xwall% �
I�T� 0: ș "OS_SpriteOp",34+256,bspri%,"wallvertblnk",sqnox%*56+180,884-sqnoy%*56,0
I�T� 1: ș "OS_SpriteOp",34+256,bspri%,"wallvertmove",sqnox%*56+180,884-sqnoy%*56,0
I�T� 2: ș "OS_SpriteOp",34+256,bspri%,"wallvertstuk",sqnox%*56+180,884-sqnoy%*56,0
I��
I��
I�:
J��squareclix
Jfsave%=�
J/� mousb%=1 � xobjn%=0 � xobjn%=�btd(boxup%)
J$� boxup%=7 �
J.#Ȕ blevs%?(264+2*vlevl%),sqnox%
J8#Ȕ blevs%?(265+2*vlevl%),sqnoy%
JB7xobjn%=blevs%?(848+(vlevl%-1)*830+16*sqnoy%+sqnox%)
JL�
JV-� boxup%=5 � boxup%=6 � xobjn%+=boxdn%*16
J`7blevs%?(848+(vlevl%-1)*830+16*sqnoy%+sqnox%)=xobjn%
Jj�
JtȎ (xobjn% � %00001111) �
J~O� 0: ș "OS_SpriteOp",34+256,bspri%,"sqblank",sqnox%*56+204,884-sqnoy%*56,0
J�N� 1: ș "OS_SpriteOp",34+256,bspri%,"sqbomb",sqnox%*56+204,884-sqnoy%*56,0
J�N� 2: ș "OS_SpriteOp",34+256,bspri%,"sqmine",sqnox%*56+204,884-sqnoy%*56,0
J��� 3: ș "OS_SpriteOp",34+256,bspri%,"sqtransport",sqnox%*56+204,884-sqnoy%*56,0:ș "OS_SpriteOp",34+256,bspri%,"over"+�~((xobjn% � %11110000)>>4),sqnox%*56+204,884-sqnoy%*56,8
J�O� 4: ș "OS_SpriteOp",34+256,bspri%,"sqblock",sqnox%*56+204,884-sqnoy%*56,0
J��� 5: ș "OS_SpriteOp",34+256,bspri%,"sqreceiver",sqnox%*56+204,884-sqnoy%*56,0:ș "OS_SpriteOp",34+256,bspri%,"over"+�~((xobjn% � %11110000)>>4),sqnox%*56+204,884-sqnoy%*56,8
J�O� 6: ș "OS_SpriteOp",34+256,bspri%,"sqbonus",sqnox%*56+204,884-sqnoy%*56,0
J��
J�nș "OS_SpriteOp",34+256,bspri%,"overstart",(blevs%?(264+2*vlevl%))*56+204,884-(blevs%?(265+2*vlevl%))*56,8
J��
J�:
J�ݤbtd(xnumb%)
J�Ȏ (xnumb%) �
K� 0: =0
K
� 1: =1
K� 2: =2
K� 3: =4
K(� 4: =6
K2� 5: =3
K<� 6: =5
KF�
KP=-1
KZ:
Kd��selno
KnOș "OS_SpriteOp",256+34,bspri%,"boxn",(boxdn% � 4)*44,452-(boxdn% � 4)*44,8
KxPboxdn%=((mousx%-4)/44)+((mousy%<456)*-4)+((mousy%<408)*-4)+((mousy%<368)*-4)
K��
K�:
K���selobj
K�Oș "OS_SpriteOp",256+34,bspri%,"boxn",(boxup% � 4)*44,554-(boxup% � 4)*44,8
K�,boxup%=((mousx%-4)/44)+((mousy%<554)*-4)
K�� boxup%=5 � boxup%=6 �
K�P� boxdn%=-1 � boxdn%=0:ș "OS_SpriteOp",256+34,bspri%,"editnumbersy",0,320,0
K�S� � boxdn%>-1 � boxdn%=-1:ș "OS_SpriteOp",256+34,bspri%,"editnumbersn",0,320,0
K��
K��
K�:
K�
��animbox
K�boxan%=boxan% �4 +1
LYș "OS_SpriteOp",256+34,bspri%,"boxy"+�(boxan%),(boxup% � 4)*44,554-(boxup% � 4)*44,8
L� boxdn%=-1 � �
LYș "OS_SpriteOp",256+34,bspri%,"boxy"+�(boxan%),(boxdn% � 4)*44,452-(boxdn% � 4)*44,8
L"�
L,:
L6
��nextptr
L@<ș "OS_SpriteOp",256+36,bspri%,"ptr_bomb_"+�vptrn%,1,0,1
LJvptrn%=vptrn% �6 +1
LT�
L^:
Lhݤeditcode
Lr(�print("PLEASE INPUT THE    ",0,500)
L|(�print("EDIT CODE FOR THIS  ",0,436)
L�(�print("SET OF LEVELS.      ",0,372)
L�(�print("                    ",0,308)
L�(�print("    >          <    ",0,244)
L�C� (�pad(�input(320,244,32,90,10),10)=�getlnstr(blevs%+96,10)) �
L�(�print("    < CORRECT! >    ",0,244)
L�
�wait(20)
L�=�
L��
L�(�print("    <  WRONG!  >    ",0,244)
L�
�wait(20)
L�=�
L��
L�:
M/ݤinput(xposx%,xposy%,xminc%,xmaxc%,xlens%)
Mxsout$="":*FX21,0
M�
M&key_kludge%=�
M07� key_kludge%>(�("a")-1) � key_kludge%<(�("z")+1) �
M: xckey$=�(key_kludge%-32)
MD�
MN xckey$=�(key_kludge%)
MX�
Mb�� (xckey$=�127 � xckey$=�8) � �(xsout$)>0 � xsout$=�xsout$,�(xsout$)-1):A%=32:B%=xposx%/4+�(xsout$)*16:C%=(1020-xposy%)/4:� epsml:� �
Ml� xckey$=�13 � � �:=xsout$
Mv\� �(xckey$)<xminc% � �(xckey$)>xmaxc% � �(xsout$)=xlens% � xckey$=�127 � xckey$=�8 � � �
M�A%=�(xckey$)
M�B%=xposx%/4+�(xsout$)*16
M�C%=(1020-xposy%)/4:� epsml
M�xsout$+=xckey$
M�� �
M�:
M�ݤpad(xstri$,xlens%)
M�"=xstri$+�xlens%-�(xstri$),�32)
M�:
M���printmap(fprno%)
M�bomno%=0
M�1ș "OS_SpriteOp",256+60,bspri%,"SpriteOp60",0
M��
N� xlmdy%=0�16
N� xlmdx%=0�16
NKș "OS_SpriteOp",34+256,bspri%,"MiddleBit",xlmdx%*56+180,xlmdy%*56+20,0
N �:�
N*$xplev%=blevs%+304+(vlevl%-1)*830
N4� xlhzy%=0�16
N>� xlhzx%=0�15
NHȎ ?xplev% �
NRT� 1: ș "OS_SpriteOp",34+256,bspri%,"wallhorimove",xlhzx%*56+204,916-xlhzy%*56,0
N\T� 2: ș "OS_SpriteOp",34+256,bspri%,"wallhoristuk",xlhzx%*56+204,916-xlhzy%*56,0
Nf�
Npxplev%+=1:�:�
Nz� xlvtx%=0�16
N�� xlvty%=0�15
N�Ȏ ?xplev% �
N�T� 1: ș "OS_SpriteOp",34+256,bspri%,"wallvertmove",xlvtx%*56+180,884-xlvty%*56,0
N�T� 2: ș "OS_SpriteOp",34+256,bspri%,"wallvertstuk",xlvtx%*56+180,884-xlvty%*56,0
N��
N�xplev%+=1:�:�
N�� xlsqy%=0�15
N�� xlsqx%=0�15
N�Ȏ (?xplev% � %00001111) �
N�X� 1: ș "OS_SpriteOp",34+256,bspri%,"sqbomb",xlsqx%*56+204,884-xlsqy%*56,0:bomno%+=1
N�N� 2: ș "OS_SpriteOp",34+256,bspri%,"sqmine",xlsqx%*56+204,884-xlsqy%*56,0
N�� 3: ș "OS_SpriteOp",34+256,bspri%,"sqtransport",xlsqx%*56+204,884-xlsqy%*56,0:� fprno% � ș "OS_SpriteOp",34+256,bspri%,"over"+�~((?xplev% � %11110000)>>4),xlsqx%*56+204,884-xlsqy%*56,8
N�O� 4: ș "OS_SpriteOp",34+256,bspri%,"sqblock",xlsqx%*56+204,884-xlsqy%*56,0
O�� 5: ș "OS_SpriteOp",34+256,bspri%,"sqreceiver",xlsqx%*56+204,884-xlsqy%*56,0:� fprno% � ș "OS_SpriteOp",34+256,bspri%,"over"+�~((?xplev% � %11110000)>>4),xlsqx%*56+204,884-xlsqy%*56,8
OO� 6: ș "OS_SpriteOp",34+256,bspri%,"sqbonus",xlsqx%*56+204,884-xlsqy%*56,0
O�
O$
xplev%+=1
O.�:�
O8y� fprno% � ș "OS_SpriteOp",34+256,bspri%,"overstart",(blevs%?(264+2*vlevl%))*56+204,884-(blevs%?(265+2*vlevl%))*56,8
OB&ș "OS_SpriteOp",256+60,bspri%,0,0
OL5ș "OS_SpriteOp",256+34,bspri%,"SpriteOp60",0,0,0
OV�
O`:
Ojݤpassword
OtA%=0:� efade
O~(�print("  PLEASE INPUT THE  ",0,600)
O�(�print("  PASSWORD FOR THE  ",0,536)
O�(�print("   LEVEL TO PLAY.   ",0,472)
O�(�print("    >          <    ",0,408)
O�,xpass$=�pad(�input(320,408,32,90,10),10)
O�
xrlev%=-1
O�� xllev%=1�16
O�>� xpass$=�getlnstr(blevs%+96+10*xllev%,10) � xrlev%=xllev%
O��
O�C� xrlev%=-1 � �print(" >NO SUCH PASSWORD< ",0,408):�wait(30):=1
O�;�print("    < LEVEL "+�pad(�(xrlev%),2)+" >    ",0,408)
O�
�wait(30)
O�=xrlev%
P:
P

��options
P=ș "OS_SpriteOp",256+34,bspri%,"logo",640-288*2,1024-42*4
P(�print(" MUSIC VOLUME LEVEL ",0,840)
P(4ș "OS_SpriteOp",256+34,bspri%,"dragbox",108,708
P2(�print("EFFECTS VOLUME LEVEL",0,692)
P<4ș "OS_SpriteOp",256+34,bspri%,"dragbox",108,560
PF/�print("LEFT    "+�key(�klist$,1,1)),0,542)
PP/�print("RIGHT   "+�key(�klist$,2,1)),0,478)
PZ/�print("UP      "+�key(�klist$,3,1)),0,414)
Pd/�print("DOWN    "+�key(�klist$,4,1)),0,350)
Pn/�print("PAUSE   "+�key(�klist$,5,1)),0,286)
Px/�print("ABORT   "+�key(�klist$,6,1)),0,222)
P�� lpbut%=0�5
P�Dș "OS_SpriteOp",256+34,bspri%,"redefinebox",384,490-64*lpbut%,0
P��
P�7ș "OS_SpriteOp",256+34,bspri%,"savebox",1152,226,0
P�7ș "OS_SpriteOp",256+34,bspri%,"quitbox",1152,162,0
P�#�9Ȝ0:ȓ Ȑ 128,580,veffx%*4,20
P�ȓ Ȑ 128,728,vmusx%*4,20
P�?ȗ �:vptrn%=1:�nextptr:fofin%=�:keyno%=-1:�"FX21,9":*FX21,0
P��
P�� edscr
P�ȗ mousx%,mousy%,mousz%
P�M� mousx%>124 � mousx%<1152 � mousy%>724 � mousy%<752 � mousz%>0 � �musvol
P�L� mousx%>124 � mousx%<1152 � mousy%>576 � mousy%<604 � mousz%>0 � �fxvol
QA� mousx%>1148 � mousy%>162 � mousy%<222 � mousz%>0 � fofin%=�
QB� mousx%>1148 � mousy%>222 � mousy%<290 � mousz%>0 � �saveopts
QL� mousx%>380 � mousx%<448 � mousy%<554 � mousy%>166 � mousz%>0 � �keybut
Q"ckeyp$=�(0)
Q,&� ckeyp$<>"" � keyno%>-1 � �keyprs
Q6Ȗ
Q@� fofin%
QJȗ �
QTA%=42:� efade
Q^�
Qh:
Qr��musvol
Q|)� mousx%>128+vmusx%*4 � �9Ȝ0 � �0Ȝ0
Q�1ȓ Ȑ 128+vmusx%*4,728,mousx%-128-vmusx%*4,20
Q�vmusx%=(mousx%-128)/4
Q�ș "Coco_Volume",255-vmusx%
Q��
Q�:
Q���keybut
Q�nkyno%=(614-mousy%)/64-1
Q�� nkyno%=keyno% � �
Q�E� keyno%>-1 � �print(�key(�klist$,keyno%+1,1)),512,542-64*keyno%)
Q�keyno%=nkyno%
Q�	�0Ȝ0
Q�"ȓ Ȑ 512,490-64*keyno%,576,60
Q�@ș "OS_SpriteOp",256+34,bspri%,"typebox",512,490-64*keyno%,0
R�
R:
R��keyprs
R&'�klist$,keyno%+1,1)=�keyprc(ckeyp$)
R07�print(�key(�klist$,keyno%+1,1)),512,542-64*keyno%)
R:
keyno%=-1
RD�
RN:
RX��fxvol
Rb)� mousx%>128+veffx%*4 � �9Ȝ0 � �0Ȝ0
Rl1ȓ Ȑ 128+veffx%*4,580,mousx%-128-veffx%*4,20
Rvveffx%=(mousx%-128)/4
R��
R�:
R�ݤadr(rx,add%)
R�ad%=add%-8-P%
R�[OPTfpass%
R�ADD rx,PC,#ad% � 255
R�ADD rx,rx,#ad% � 255<<8
R�ADD rx,rx,#ad% � 255<<16
R�ADD rx,rx,#ad% � 255<<24
R�
]:=fpass%
R�:
R�ݤsadr(rx,add%)
R�!ad%=P%+8-add%:� ad%>65535 � �
S[OPTfpass%
SSUB rx,PC,#ad% � 255
SSUB rx,rx,#ad% � 255<<8
S 
]:=fpass%
S*:
S4ݤsfadr(rx,add%)
S>!ad%=add%-8-P%:� ad%>65535 � �
SH[OPTfpass%
SRADD rx,PC,#ad% � 255
S\ADD rx,rx,#ad% � 255<<8
Sf
]:=fpass%
Sp:
Sz��saveopts
S�+hfile%=� "<Obey$Dir>.Resources.Options"
S��#hfile%,klist$
S��#hfile%,vmusx%
S��#hfile%,veffx%
S��#hfile%
S��
S�:
S�ݤkey(xxkey$)
S�� �(xxkey$)=13 � ="RETURN"
S�� �(xxkey$)=127 � ="DELETE"
S�� �(xxkey$)=9 � ="TAB"
S� � �(xxkey$)=8 � ="BACKSPACE"
S�� �(xxkey$)=30 � ="HOME"
T� �(xxkey$)=32 � ="SPACE"
T=xxkey$
T:
T$ݤkeyprc(xxkey$)
T.� xxkey$="!" � ="1"
T8� xxkey$="@" � ="2"
TB� xxkey$="#" � ="3"
TL� xxkey$="$" � ="4"
TV� xxkey$="%" � ="5"
T`� xxkey$="^" � ="6"
Tj� xxkey$="&" � ="7"
Tt� xxkey$="*" � ="8"
T~� xxkey$="(" � ="9"
T�� xxkey$=")" � ="0"
T�� xxkey$="_" � ="-"
T�� xxkey$="+" � ="="
T�� xxkey$=":" � =";"
T�� xxkey$="""" � ="'"
T�� xxkey$="<" � =","
T�� xxkey$=">" � ="."
T�� xxkey$="?" � ="/"
T�_� �(xxkey$)<32 � �(xxkey$)<>8 � �(xxkey$)<>9 � �(xxkey$)<>13 � �(xxkey$)<>30 � =�(keyno%+1)
T�W� �(xxkey$)=8 � �(xxkey$)=9 � �(xxkey$)=13 � �(xxkey$)=30 � �(xxkey$)=127 � =xxkey$
T�5� �(xxkey$)>96 � �(xxkey$)<123 � =�(�(xxkey$)-32)
T�N� �"1234567890-=QWERTYUIOPASDFGHJKL;'ZXCVBNM,./ ",xxkey$)=0 � =�(keyno%+1)
U=xxkey$
U
:
U��complete
U'� kludge_mode:ș "OS_RemoveCursors"
U(Lș "OS_SpriteOp",256+34,bspri%,"Congrats",640-606,512-240+kludge_modeofs
U2@ș "OS_SpriteOp",256+34,bspri%,"0medals",80,0+kludge_modeofs
U<'�wait(200):medals%=�((16-gslev%)/3)
UFLș "OS_SpriteOp",256+34,bspri%,�(medals%)+"MedMes",286,30+kludge_modeofs
UPș "Coco_Stop"
UZ� medals%>0 �
Udȡ 1,"BSgetbomb"
Un+�wait(30):� lmedl%=1� medals%:�wait(50)
UxIș "OS_SpriteOp",256+34,bspri%,�(lmedl%)+"Medals",80,0+kludge_modeofs
U��1,-15,10000,10:�
U��
U��wait(200)
U�� ecfad
U��
U�:
U���game(vlevl%)
U�gslev%=vlevl%:medals%=-1
U�$bgame=klist$
U�A%=0:� efade
U�fgend%=0:rgend%=0
U�glife%=3:gscor%=0
U�:
V� Game loop
V:
VG�fadeout:ș "Coco_Move",54:ș "Coco_SeqStart",54:ș "Coco_Volume",0
V"�
V,�printmap(�)
V6<�print("      LEVEL "+�(vlevl%)+"      ",0,1020):*FX21,0
V@+gtime%=blevs%?(13583+vlevl%):lwait%=0:�
VJlwait%+=1:Ȗ
VTckeyp$=�(1)
V^"� lwait%=gtime%*3 � ckeyp$<>""
Vh� efade
Vr5� ckeyp$=�128 � frog=0 � vlevl%<16 � vlevl%+=1:�0
V|� ckeyp$<>" " �
V�'� kludge_mode:ș "OS_RemoveCursors"
V�Mș "OS_SpriteOp",256+34,bspri%,"PasswordIs",640-556,256-35+kludge_modeofs
V�
�wait(80)
V�� ecfad
V��13:ș "OS_RemoveCursors"
V�K�print("     "+�getlnstr(blevs%+96+10*vlevl%,10)+"     ",0,608):*FX21,0
V�lwait%=0:�
V�lwait%+=1:Ȗ
V�� lwait%=500 � �(0)<>""
V�� efade
V�'� kludge_mode:ș "OS_RemoveCursors"
V�Kș "OS_SpriteOp",256+34,bspri%,"GetReady",640-421,256-45+kludge_modeofs
V�
�wait(80)
W� ecfad
W�
W0�fadeout:ș "Coco_Stop":ș "Coco_Reset":Ƞ 4
W&7ȡ 1,"BSpushwall":ȡ 2,"BSgetbomb":ȡ 3,"BSzapmine"
W0*Ȣ 1,-127:Ȣ 2,-127:Ȣ 3,127:Ȣ 4,-127
W:� veffx%<2 � veffx%=2
WDD� "Volume "+�(�(veffx%/2)):ș "Coco_Move",0:ș "Coco_SeqStart",0
WN� �13:ș "OS_RemoveCursors"
WX9A%=blevs%+304+(vlevl%-1)*830:B%=blevl%:C%=830:� ecopy
Wb=gxpos%=blevs%?(264+2*vlevl%):gypos%=blevs%?(265+2*vlevl%)
Wl6gtime%=blevs%?(13583+vlevl%):� gtime%<1 � gtime%=1
Wv�:timer%=0:Ȗ
W�1ș "OS_SpriteOp",256+34,bspri%,"SideBar",1216
W�A%=gtime%:� eg_showtime
W�%A%=gscor%:B%=gtime%:� eg_showscor
W�%A%=glife%:B%=gtime%:� eg_showlife
W�6A%=gxpos%:B%=gypos%:C%=(vlevl%-1)� 4:� eg_showmids
W�1A%=gxpos%:B%=gypos%:C%=vlevl%-1:� eg_showalls
W�Dbgdat?52=(timer% �8):bgdat?53=(timer% �12):bgdat?54=(timer% �16)
W�1A%=gxpos%:B%=gypos%:C%=vlevl%-1:� eg_showobjs
W��
W�
timer%+=1
W�%A%=gxpos%:B%=gypos%:� eg_showobjs
W�Ȗ:� timer%=50
W�� lyapr%=0�7:timer%+=1
X%A%=gxpos%:B%=gypos%:� eg_showobjs
X/A%=170+lyapr%:B%=178+lyapr%:� eg_showyou:Ȗ
X� eg_wipeyou:�
X :
X*!bmess%=vlevl%-1:*FX21,0
X4hA%=gxpos%:B%=gypos%:C%=gtime%:D%=timer%:E%=gscor%:F%=bomno%:vreas%=�(eg_playgame):�"Fx11,25":*Fx12,4
X>Cgxpos%=?bmess%:gypos%=bmess%?1:gtime%=bmess%?2:gscor%=bgame!112
XH:
XR� vreas%=1 �
X\'� kludge_mode:ș "OS_RemoveCursors"
Xf@ș "OS_SpriteOp",34+256,bspri%,"0medals",30,0+kludge_modeofs
XpBș "OS_SpriteOp",34+256,bspri%,"0medals",1122,0+kludge_modeofs
Xz
ptimr=0:�
X�BA%=kludge_screen+110+640*(64-(�(�(�(ptimr))*64))):� pauseprint
X�pause$=�(0):Ȗ
X�AA%=kludge_screen+110+640*(64-(�(�(�(ptimr))*64))):� pausewipe
X�ptimr+=�/50:� pause$=" "
X��13:ș "OS_RemoveCursors"
X�bomno%=bgame!116
X��
X�:
X�� vreas%=5 �
X�� lyapr%=0�25:timer%+=1
X�%A%=gxpos%:B%=gypos%:� eg_showobjs
X�/A%=198+((timer% � 4)>>2):B%=93:� eg_showyou
X��� lyapr%=25 � ș "Coco_Move",67:ș "Coco_SeqStart",54:ș "Coco_Start":ș "Coco_Volume",255-vmusx%:� vlevl%=16 � ș "Coco_SeqStart",53
YȖ:�
Ygtime%-=1:� gtime%>0 �
Y�� gtime%=gtime% � 1 � -1:C%=gtime%:� dectime:gscor%+=1:A%=gscor%:B%=gtime%:� eg_showscor:A%=gxpos%:B%=gypos%:timer%+=1:� eg_showobjs
Y$AA%=198+((timer% � 4)>>2):B%=93:� eg_showyou:Ȗ:� eg_wipeyou:�
Y.�
Y8� efade:vlevl%+=1
YB�
YL:
YV� vreas%=4 � vreas%=2 �
Y`Yȡ 4,"BSdie":�4,-15,12600,1:� lgame%=1�10:timer%+=1:A%=gxpos%:B%=gypos%:� eg_showobjs
Yj,A%=0:B%=8:� eg_showyou:Ȗ:� eg_wipeyou:�
Yt� lyapr%=0�7:timer%+=1
Y~%A%=gxpos%:B%=gypos%:� eg_showobjs
Y�<A%=16+lyapr%:B%=24+lyapr%:� eg_showyou:Ȗ:� eg_wipeyou:�
Y�=� lgame%=1�40:timer%+=1:A%=gxpos%:B%=gypos%:� eg_showobjs
Y�.A%=23:B%=31:� eg_showyou:Ȗ:� eg_wipeyou:�
Y�B� lgame%=1�40:timer%+=1:A%=gxpos%:B%=gypos%:� eg_showobjs:Ȗ:�
Y��
Y�� vreas%=3 �
Y��3,-15,4000,1
Y�6� lflsh%=1�3:�63Ȝ255:ȓ Ȑ 0,0,1212,1024:�0Ȝ0:Ȗ
Y�ȓ Ȑ 0,0,1212,1024:Ȗ:�
Y�6A%=gxpos%:B%=gypos%:C%=(vlevl%-1)� 4:� eg_showmids
Y�1A%=gxpos%:B%=gypos%:C%=vlevl%-1:� eg_showalls
Y�0� lgame%=1�40:A%=154:B%=93:� eg_showyou:Ȗ:�
Z6� lgame%=155�169:A%=lgame%:B%=93:� eg_showyou:Ȗ:�
Z

�wait(40)
Z�
ZE� vreas%=4 � vreas%=3 � vreas%=2 � glife%-=frog:� efade:�wait(20)
Z(*Volume 127
Z2� vreas%<>1
Z<$� glife%<1 � vreas%=0 � vreas%=5
ZF� vreas%<>5 � vlevl%=17
ZP� efade
ZZ'� kludge_mode:ș "OS_RemoveCursors"
Zd� vlevl%=17 � �complete
Znș "Coco_Volume",255-vmusx%
Zx:ș "Coco_Move",52:ș "Coco_SeqStart",0:ș "Coco_Start"
Z�Kș "OS_SpriteOp",256+34,bspri%,"GameOver",640-553,256-44+kludge_modeofs
Z��wait(100)
Z�� ecfad
Z��13:ș "OS_RemoveCursors"
Z�!� gscor%>blevs%!70 � frog=1 �
Z�ș "Coco_SeqStart",61
Z�(�print("  YOU HAVE A SCORE  ",0,800)
Z�(�print("  WORTHY ENOUGH TO  ",0,736)
Z�(�print("BE RECORDED FOREVER.",0,662)
Z�(�print("WELL , UNTIL YOU GET",0,598)
Z�(�print("KNOCKED OFF , ANYWAY",0,534)
Z�(�print("  ENTER YOUR NAME , ",0,470)
Z�(�print(" YOU VALIANT THING. ",0,406)
[(�print("    >          <    ",0,342)
[�� medals%=-1 � gname$=�pad(�input(320,342,32,90,10),10) � �print(�(93+medals%),320,342):gname$=�(93+medals%)+�pad(�input(384,342,32,90,9),9)
[� efade:fsave%=�
["� lscor%=0�4
[,#� gscor%>blevs%!(54+lscor%*4) �
[6Ioscor%=blevs%!(54+lscor%*4):blevs%!(54+lscor%*4)=gscor%:gscor%=oscor%
[@+oname$=�getlnstr(blevs%+4+10*lscor%,10)
[J4�putstr(gname$,blevs%+4+10*lscor%):gname$=oname$
[T�
[^�
[hș "Coco_SeqStart",0
[r�
[|�
�

00000000  0d 00 0a 28 f4 20 42 6f  6d 62 53 63 61 72 65 20  |...(. BombScare |
00000010  2d 20 3c 63 3e 20 31 39  39 32 20 41 6e 64 72 65  |- <c> 1992 Andre|
00000020  77 20 43 6c 6f 76 65 72  0d 00 14 2b f4 20 55 70  |w Clover...+. Up|
00000030  64 61 74 65 64 2c 20 31  39 39 34 20 a9 20 41 72  |dated, 1994 . Ar|
00000040  63 68 69 6d 65 64 65 73  20 57 6f 72 6c 64 20 31  |chimedes World 1|
00000050  39 39 34 0d 00 1e 3d f4  20 41 70 6f 6c 6f 67 69  |994...=. Apologi|
00000060  65 73 20 66 6f 72 20 74  68 65 20 70 61 74 68 65  |es for the pathe|
00000070  74 69 63 20 70 72 6f 67  72 61 6d 6d 69 6e 67 20  |tic programming |
00000080  69 6e 20 70 6c 61 63 65  73 20 68 65 72 65 20 2d  |in places here -|
00000090  0d 00 28 2b f4 20 49 20  64 6f 20 6d 75 63 68 20  |..(+. I do much |
000000a0  62 65 74 74 65 72 20 73  74 75 66 66 20 74 68 65  |better stuff the|
000000b0  73 65 20 64 61 79 73 20  3b 2d 29 0d 00 32 04 0d  |se days ;-)..2..|
000000c0  00 3c 27 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |.<'.. "OS_Byte",|
000000d0  31 32 39 2c 30 2c 32 35  35 20 b8 20 2c 6b 6c 75  |129,0,255 . ,klu|
000000e0  64 67 65 5f 6f 73 0d 00  46 1b f4 20 49 46 20 6b  |dge_os..F.. IF k|
000000f0  6c 75 64 67 65 5f 6f 73  3e 26 41 34 20 54 48 45  |ludge_os>&A4 THE|
00000100  4e 0d 00 50 26 20 6b 6c  75 64 67 65 5f 6d 6f 64  |N..P& kludge_mod|
00000110  65 3d 31 35 3a 6b 6c 75  64 67 65 5f 6d 6f 64 65  |e=15:kludge_mode|
00000120  6f 66 73 3d 35 31 32 0d  00 5a 0a f4 20 45 4c 53  |ofs=512..Z.. ELS|
00000130  45 0d 00 64 27 f4 20 6b  6c 75 64 67 65 5f 6d 6f  |E..d'. kludge_mo|
00000140  64 65 3d 36 37 3a 6b 6c  75 64 67 65 5f 6d 6f 64  |de=67:kludge_mod|
00000150  65 6f 66 73 3d 35 31 32  0d 00 6e 0b f4 20 45 4e  |eofs=512..n.. EN|
00000160  44 49 46 0d 00 78 04 0d  00 82 12 6b 6c 75 64 67  |DIF..x.....kludg|
00000170  65 5f 70 61 75 73 65 3d  34 0d 00 8c 04 0d 00 96  |e_pause=4.......|
00000180  14 de 20 6b 6c 75 64 67  65 5f 62 6c 6f 63 6b 20  |.. kludge_block |
00000190  38 0d 00 a0 15 21 6b 6c  75 64 67 65 5f 62 6c 6f  |8....!kludge_blo|
000001a0  63 6b 3d 31 34 39 0d 00  aa 15 6b 6c 75 64 67 65  |ck=149....kludge|
000001b0  5f 62 6c 6f 63 6b 21 34  3d 2d 31 0d 00 b4 36 c8  |_block!4=-1...6.|
000001c0  99 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |. "OS_ReadVduVar|
000001d0  69 61 62 6c 65 73 22 2c  6b 6c 75 64 67 65 5f 62  |iables",kludge_b|
000001e0  6c 6f 63 6b 2c 6b 6c 75  64 67 65 5f 62 6c 6f 63  |lock,kludge_bloc|
000001f0  6b 0d 00 be 1f 6b 6c 75  64 67 65 5f 73 63 72 65  |k....kludge_scre|
00000200  65 6e 3d 21 6b 6c 75 64  67 65 5f 62 6c 6f 63 6b  |en=!kludge_block|
00000210  0d 00 c8 05 3a 0d 00 d2  43 ee 20 85 20 f2 75 65  |....:...C. . .ue|
00000220  72 72 6f 72 28 22 41 72  72 67 68 20 21 20 54 68  |rror("Arrgh ! Th|
00000230  65 72 65 27 73 20 62 65  65 6e 20 61 20 22 2b f6  |ere's been a "+.|
00000240  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 28  |$+" at line "+.(|
00000250  9e 29 2b 22 20 21 22 29  0d 00 dc 63 de 20 62 73  |.)+" !")...c. bs|
00000260  70 72 69 25 20 32 35 37  35 37 30 2b 39 37 35 38  |pri% 257570+9758|
00000270  34 2c 20 62 63 6f 64 65  25 20 31 30 30 30 30 2c  |4, bcode% 10000,|
00000280  4c 25 2d 31 2c 20 62 6c  65 76 73 25 20 31 33 36  |L%-1, blevs% 136|
00000290  31 30 2c 20 62 74 65 78  74 25 20 32 30 30 30 2c  |10, btext% 2000,|
000002a0  20 62 66 6f 6e 74 25 20  31 37 31 36 30 2c 20 62  | bfont% 17160, b|
000002b0  73 70 61 75 25 20 32 36  39 34 30 0d 00 e6 53 de  |spau% 26940...S.|
000002c0  20 62 67 72 61 66 25 20  32 30 34 38 30 30 2c 20  | bgraf% 204800, |
000002d0  62 6c 65 76 6c 25 20 39  30 30 2c 20 62 6d 65 73  |blevl% 900, bmes|
000002e0  73 25 20 31 33 36 31 30  2c 20 62 68 74 65 78 25  |s% 13610, bhtex%|
000002f0  20 32 34 30 2c 20 62 73  74 61 72 25 20 31 36 31  | 240, bstar% 161|
00000300  30 2c 20 62 74 63 6f 6c  25 20 31 30 33 30 0d 00  |0, btcol% 1030..|
00000310  f0 15 e3 20 6c 73 74 61  72 25 3d 30 b8 31 36 30  |... lstar%=0.160|
00000320  30 88 34 0d 00 fa 31 62  73 74 61 72 25 21 6c 73  |0.4...1bstar%!ls|
00000330  74 61 72 25 3d 6b 6c 75  64 67 65 5f 73 63 72 65  |tar%=kludge_scre|
00000340  65 6e 2d 31 2b b3 28 38  31 39 32 30 2d 33 32 30  |en-1+.(81920-320|
00000350  2a 33 34 29 0d 01 04 5f  ed 3a 66 73 61 76 65 25  |*34)..._.:fsave%|
00000360  3d a3 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |=.:.. "OS_Byte",|
00000370  31 39 36 2c 31 2c 30 20  b8 20 2c 6b 64 65 6c 61  |196,1,0 . ,kdela|
00000380  25 3a c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |%:.. "OS_Byte",1|
00000390  39 37 2c 31 2c 30 20 b8  20 2c 6b 72 65 70 61 25  |97,1,0 . ,krepa%|
000003a0  3a ff 22 46 58 31 31 2c  32 35 22 3a 2a 46 58 31  |:."FX11,25":*FX1|
000003b0  32 2c 34 0d 01 0e 05 3a  0d 01 18 09 e6 30 c8 9c  |2,4....:.....0..|
000003c0  30 0d 01 22 05 3a 0d 01  2c 2b 68 66 69 6c 65 25  |0..".:..,+hfile%|
000003d0  3d ad 20 22 3c 4f 62 65  79 24 44 69 72 3e 2e 52  |=. "<Obey$Dir>.R|
000003e0  65 73 6f 75 72 63 65 73  2e 4f 70 74 69 6f 6e 73  |esources.Options|
000003f0  22 0d 01 36 13 e8 23 68  66 69 6c 65 25 2c 6b 6c  |"..6..#hfile%,kl|
00000400  69 73 74 24 0d 01 40 13  e8 23 68 66 69 6c 65 25  |ist$..@..#hfile%|
00000410  2c 76 6d 75 73 78 25 0d  01 4a 13 e8 23 68 66 69  |,vmusx%..J..#hfi|
00000420  6c 65 25 2c 76 65 66 66  78 25 0d 01 54 0c d9 23  |le%,veffx%..T..#|
00000430  68 66 69 6c 65 25 0d 01  5e 26 66 6c 65 76 73 24  |hfile%..^&flevs$|
00000440  3d a4 73 79 73 76 61 72  28 22 42 6f 6d 62 53 63  |=.sysvar("BombSc|
00000450  61 72 65 24 4c 65 76 65  6c 73 22 29 0d 01 68 13  |are$Levels")..h.|
00000460  68 66 69 6c 65 25 3d ad  20 66 6c 65 76 73 24 0d  |hfile%=. flevs$.|
00000470  01 72 0e e7 20 68 66 69  6c 65 25 20 8c 0d 01 7c  |.r.. hfile% ...||
00000480  0c d9 23 68 66 69 6c 65  25 0d 01 86 05 cc 0d 01  |..#hfile%.......|
00000490  90 2f 66 6c 65 76 73 24  3d a4 73 79 73 76 61 72  |./flevs$=.sysvar|
000004a0  28 22 42 6f 6d 62 4c 65  76 65 6c 73 24 44 69 72  |("BombLevels$Dir|
000004b0  22 29 2b 22 2e 44 65 66  61 75 6c 74 22 0d 01 9a  |")+".Default"...|
000004c0  13 68 66 69 6c 65 25 3d  ad 20 66 6c 65 76 73 24  |.hfile%=. flevs$|
000004d0  0d 01 a4 0e e7 20 68 66  69 6c 65 25 20 8c 0d 01  |..... hfile% ...|
000004e0  ae 0c d9 23 68 66 69 6c  65 25 0d 01 b8 05 cc 0d  |...#hfile%......|
000004f0  01 c2 30 66 6c 65 76 73  24 3d a4 73 79 73 76 61  |..0flevs$=.sysva|
00000500  72 28 22 4f 62 65 79 24  44 69 72 22 29 2b 22 2e  |r("Obey$Dir")+".|
00000510  4c 65 76 65 6c 73 2e 44  65 66 61 75 6c 74 22 0d  |Levels.Default".|
00000520  01 cc 13 68 66 69 6c 65  25 3d ad 20 66 6c 65 76  |...hfile%=. flev|
00000530  73 24 0d 01 d6 0e e7 20  68 66 69 6c 65 25 20 8c  |s$..... hfile% .|
00000540  0d 01 e0 0c d9 23 68 66  69 6c 65 25 0d 01 ea 05  |.....#hfile%....|
00000550  cc 0d 01 f4 30 f2 75 65  72 72 6f 72 28 22 49 20  |....0.uerror("I |
00000560  63 61 6e 6e 6f 74 20 66  69 6e 64 20 61 6e 79 20  |cannot find any |
00000570  6c 65 76 65 6c 73 20 74  6f 20 6c 6f 61 64 2e 22  |levels to load."|
00000580  29 0d 01 fe 05 cd 0d 02  08 05 cd 0d 02 12 05 cd  |)...............|
00000590  0d 02 1c 05 3a 0d 02 26  0a 66 72 6f 67 3d 31 0d  |....:..&.frog=1.|
000005a0  02 30 1f c8 99 20 22 42  53 5f 49 6e 69 74 69 61  |.0... "BS_Initia|
000005b0  6c 69 73 65 22 20 b8 20  68 61 6e 64 6c 25 0d 02  |lise" . handl%..|
000005c0  3a 36 ff 20 22 4c 6f 61  64 20 3c 4f 62 65 79 24  |:6. "Load <Obey$|
000005d0  44 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 53  |Dir>.Resources.S|
000005e0  63 72 6f 6c 6c 74 65 78  74 20 22 2b c3 7e 62 74  |crolltext "+.~bt|
000005f0  65 78 74 25 0d 02 44 26  c8 99 20 22 42 53 5f 45  |ext%..D&.. "BS_E|
00000600  6e 63 72 79 70 74 22 2c  68 61 6e 64 6c 25 2c 62  |ncrypt",handl%,b|
00000610  74 65 78 74 25 2c 31 39  37 31 0d 02 4e 49 ff 20  |text%,1971..NI. |
00000620  22 4c 6f 61 64 20 22 2b  66 6c 65 76 73 24 2b 22  |"Load "+flevs$+"|
00000630  20 22 2b c3 7e 28 62 6c  65 76 73 25 29 3a c8 99  | "+.~(blevs%):..|
00000640  20 22 42 53 5f 45 6e 63  72 79 70 74 22 2c 68 61  | "BS_Encrypt",ha|
00000650  6e 64 6c 25 2c 62 6c 65  76 73 25 2b 34 2c 31 33  |ndl%,blevs%+4,13|
00000660  35 39 36 0d 02 58 34 ff  20 22 4c 6f 61 64 20 3c  |596..X4. "Load <|
00000670  4f 62 65 79 24 44 69 72  3e 2e 52 65 73 6f 75 72  |Obey$Dir>.Resour|
00000680  63 65 73 2e 47 72 61 70  68 69 63 73 20 22 2b c3  |ces.Graphics "+.|
00000690  7e 62 73 70 72 69 25 0d  02 62 2e c8 99 20 22 42  |~bspri%..b... "B|
000006a0  53 5f 55 6e 70 61 63 6b  22 2c 68 61 6e 64 6c 25  |S_Unpack",handl%|
000006b0  2c 62 73 70 72 69 25 2c  62 67 72 61 66 25 2c 31  |,bspri%,bgraf%,1|
000006c0  33 31 30 35 33 0d 02 6c  34 ff 20 22 4c 6f 61 64  |31053..l4. "Load|
000006d0  20 3c 4f 62 65 79 24 44  69 72 3e 2e 52 65 73 6f  | <Obey$Dir>.Reso|
000006e0  75 72 63 65 73 2e 50 61  75 73 65 53 70 72 20 22  |urces.PauseSpr "|
000006f0  2b c3 7e 62 73 70 72 69  25 0d 02 76 2d c8 99 20  |+.~bspri%..v-.. |
00000700  22 42 53 5f 55 6e 70 61  63 6b 22 2c 68 61 6e 64  |"BS_Unpack",hand|
00000710  6c 25 2c 62 73 70 72 69  25 2c 62 73 70 61 75 25  |l%,bspri%,bspau%|
00000720  2c 31 37 34 37 32 0d 02  80 3c ff 20 22 4c 6f 61  |,17472...<. "Loa|
00000730  64 20 3c 4f 62 65 79 24  44 69 72 3e 2e 52 65 73  |d <Obey$Dir>.Res|
00000740  6f 75 72 63 65 73 2e 53  70 72 69 74 65 73 20 22  |ources.Sprites "|
00000750  2b c3 7e 28 62 73 70 72  69 25 2b 32 34 31 30 30  |+.~(bspri%+24100|
00000760  30 29 0d 02 8a 35 c8 99  20 22 42 53 5f 55 6e 70  |0)...5.. "BS_Unp|
00000770  61 63 6b 22 2c 68 61 6e  64 6c 25 2c 62 73 70 72  |ack",handl%,bspr|
00000780  69 25 2b 32 34 31 30 30  30 2c 62 73 70 72 69 25  |i%+241000,bspri%|
00000790  2c 31 31 33 38 39 34 0d  02 94 36 ff 20 22 4c 6f  |,113894...6. "Lo|
000007a0  61 64 20 3c 4f 62 65 79  24 44 69 72 3e 2e 52 65  |ad <Obey$Dir>.Re|
000007b0  73 6f 75 72 63 65 73 2e  48 65 6c 70 53 63 72 6f  |sources.HelpScro|
000007c0  6c 6c 20 22 2b c3 7e 62  68 74 65 78 25 0d 02 9e  |ll "+.~bhtex%...|
000007d0  30 ff 20 22 4c 6f 61 64  20 3c 4f 62 65 79 24 44  |0. "Load <Obey$D|
000007e0  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 46 6f  |ir>.Resources.Fo|
000007f0  6e 74 20 22 2b c3 7e 62  66 6f 6e 74 25 0d 02 a8  |nt "+.~bfont%...|
00000800  34 ff 20 22 4c 6f 61 64  20 3c 4f 62 65 79 24 44  |4. "Load <Obey$D|
00000810  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 43 6f  |ir>.Resources.Co|
00000820  6c 54 61 62 6c 65 20 22  2b c3 7e 62 74 63 6f 6c  |lTable "+.~btcol|
00000830  25 0d 02 b2 4a f2 61 73  73 65 6d 62 6c 65 63 6f  |%...J.assembleco|
00000840  64 65 3a c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |de:.. "OS_Sprite|
00000850  4f 70 22 2c 32 35 36 2b  31 35 2c 62 73 70 72 69  |Op",256+15,bspri|
00000860  25 2c 22 53 70 72 69 74  65 4f 70 36 30 22 2c 30  |%,"SpriteOp60",0|
00000870  2c 33 32 30 2c 33 30 34  2c 31 33 0d 02 bc 4d c8  |,320,304,13...M.|
00000880  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000890  32 35 36 2b 32 34 2c 62  73 70 72 69 25 2c 22 53  |256+24,bspri%,"S|
000008a0  70 72 69 74 65 4f 70 36  30 22 20 b8 20 2c 2c 61  |priteOp60" . ,,a|
000008b0  73 61 64 72 25 3a 62 67  61 6d 65 21 37 36 3d 61  |sadr%:bgame!76=a|
000008c0  73 61 64 72 25 2b 34 34  0d 02 c6 25 62 67 61 6d  |sadr%+44...%bgam|
000008d0  65 21 31 32 38 3d 62 67  61 6d 65 21 37 36 2b 33  |e!128=bgame!76+3|
000008e0  32 30 2d 31 36 3a d6 20  65 66 61 64 65 0d 02 d0  |20-16:. efade...|
000008f0  45 ee 20 85 20 e7 20 a4  73 65 72 72 6f 72 3d b9  |E. . . .serror=.|
00000900  20 8c 20 f2 73 61 76 65  3a f2 63 6c 6f 73 65 64  | . .save:.closed|
00000910  6f 77 6e 3a e0 20 8b 20  eb 20 31 33 3a c8 99 20  |own:. . . 13:.. |
00000920  22 4f 53 5f 52 65 6d 6f  76 65 43 75 72 73 6f 72  |"OS_RemoveCursor|
00000930  73 22 0d 02 da 05 3a 0d  02 e4 17 f4 20 4d 65 6e  |s"....:..... Men|
00000940  75 2f 74 69 74 6c 65 20  73 63 72 65 65 6e 0d 02  |u/title screen..|
00000950  ee 05 3a 0d 02 f8 3e eb  20 31 33 3a c8 99 20 22  |..:...>. 13:.. "|
00000960  4f 53 5f 52 65 6d 6f 76  65 43 75 72 73 6f 72 73  |OS_RemoveCursors|
00000970  22 3a f2 73 74 61 72 74  74 75 6e 65 3a c8 99 20  |":.starttune:.. |
00000980  22 43 6f 63 6f 5f 53 65  71 53 74 61 72 74 22 2c  |"Coco_SeqStart",|
00000990  30 0d 03 02 05 f5 0d 03  0c 30 db 3a 62 64 61 74  |0........0.:bdat|
000009a0  61 21 32 38 3d 62 74 65  78 74 25 3a 62 64 61 74  |a!28=btext%:bdat|
000009b0  61 21 31 32 3d 34 3a 62  64 61 74 61 21 32 34 3d  |a!12=4:bdata!24=|
000009c0  62 74 65 78 74 25 0d 03  16 05 f5 0d 03 20 3d c8  |btext%....... =.|
000009d0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000009e0  33 34 2b 32 35 36 2c 62  73 70 72 69 25 2c 22 6c  |34+256,bspri%,"l|
000009f0  6f 67 6f 22 2c 36 34 30  2d 32 38 38 2a 32 2c 31  |ogo",640-288*2,1|
00000a00  30 32 34 2d 34 32 2a 34  0d 03 2a 29 f2 70 72 69  |024-42*4..*).pri|
00000a10  6e 74 28 a4 67 65 74 6c  6e 73 74 72 28 62 6c 65  |nt(.getlnstr(ble|
00000a20  76 73 25 2b 37 36 2c 32  30 29 2c 30 2c 38 33 36  |vs%+76,20),0,836|
00000a30  29 0d 03 34 10 e3 20 6c  73 63 6f 72 25 3d 30 b8  |)..4.. lscor%=0.|
00000a40  34 0d 03 3e 3c f2 70 72  69 6e 74 28 a4 67 65 74  |4..><.print(.get|
00000a50  6c 6e 73 74 72 28 62 6c  65 76 73 25 2b 34 2b 31  |lnstr(blevs%+4+1|
00000a60  30 2a 6c 73 63 6f 72 25  2c 31 30 29 2c 30 2c 37  |0*lscor%,10),0,7|
00000a70  33 36 2d 6c 73 63 6f 72  25 2a 36 34 29 0d 03 48  |36-lscor%*64)..H|
00000a80  22 73 73 63 6f 72 24 3d  c3 28 62 6c 65 76 73 25  |"sscor$=.(blevs%|
00000a90  21 28 35 34 2b 6c 73 63  6f 72 25 2a 34 29 29 0d  |!(54+lscor%*4)).|
00000aa0  03 52 32 f2 70 72 69 6e  74 28 73 73 63 6f 72 24  |.R2.print(sscor$|
00000ab0  2c 31 32 38 30 2d a9 28  73 73 63 6f 72 24 29 2a  |,1280-.(sscor$)*|
00000ac0  36 34 2c 37 33 36 2d 6c  73 63 6f 72 25 2a 36 34  |64,736-lscor%*64|
00000ad0  29 0d 03 5c 05 ed 0d 03  66 28 f2 70 72 69 6e 74  |)..\....f(.print|
00000ae0  28 22 48 2d 48 45 4c 50  2c 4f 2d 4f 50 54 53 2c  |("H-HELP,O-OPTS,|
00000af0  45 2d 45 44 49 54 22 2c  30 2c 33 33 36 29 0d 03  |E-EDIT",0,336)..|
00000b00  70 28 f2 70 72 69 6e 74  28 22 4c 2d 4c 4f 41 44  |p(.print("L-LOAD|
00000b10  2c 50 2d 50 41 53 53 2c  51 2d 51 55 49 54 22 2c  |,P-PASS,Q-QUIT",|
00000b20  30 2c 32 37 32 29 0d 03  7a 28 f2 70 72 69 6e 74  |0,272)..z(.print|
00000b30  28 22 50 52 45 53 53 20  52 45 54 55 52 4e 20 54  |("PRESS RETURN T|
00000b40  4f 20 50 4c 41 59 22 2c  30 2c 32 30 38 29 0d 03  |O PLAY",0,208)..|
00000b50  84 2b e6 30 2c 36 33 20  c8 9c 20 34 3a ec 20 30  |.+.0,63 .. 4:. 0|
00000b60  2c 33 33 2a 34 3a df 20  31 32 38 30 2c 33 33 2a  |,33*4:. 1280,33*|
00000b70  34 3a 2a 46 58 32 31 2c  30 0d 03 8e 05 f5 0d 03  |4:*FX21,0.......|
00000b80  98 06 c8 96 0d 03 a2 0b  d6 20 65 64 73 63 72 0d  |......... edscr.|
00000b90  03 ac 16 63 6b 65 79 70  24 3d a4 63 61 70 73 28  |...ckeyp$=.caps(|
00000ba0  bf 28 30 29 29 0d 03 b6  25 e7 20 63 6b 65 79 70  |.(0))...%. ckeyp|
00000bb0  24 3d bd 31 32 38 20 8c  20 66 72 6f 67 3d 31 2d  |$=.128 . frog=1-|
00000bc0  66 72 6f 67 3a f2 66 72  6f 67 0d 03 c0 5e fd 20  |frog:.frog...^. |
00000bd0  63 6b 65 79 70 24 3d 22  48 22 20 84 20 63 6b 65  |ckeyp$="H" . cke|
00000be0  79 70 24 3d 22 4f 22 20  84 20 63 6b 65 79 70 24  |yp$="O" . ckeyp$|
00000bf0  3d 22 45 22 20 84 20 63  6b 65 79 70 24 3d 22 4c  |="E" . ckeyp$="L|
00000c00  22 20 84 20 63 6b 65 79  70 24 3d 22 50 22 20 84  |" . ckeyp$="P" .|
00000c10  20 63 6b 65 79 70 24 3d  22 51 22 20 84 20 63 6b  | ckeyp$="Q" . ck|
00000c20  65 79 70 24 3d bd 31 33  0d 03 ca 21 e7 20 63 6b  |eyp$=.13...!. ck|
00000c30  65 79 70 24 3c 3e 22 51  22 20 8c 20 41 25 3d 34  |eyp$<>"Q" . A%=4|
00000c40  32 3a d6 20 65 66 61 64  65 0d 03 d4 11 c8 8e 20  |2:. efade...... |
00000c50  28 63 6b 65 79 70 24 29  20 ca 0d 03 de 10 c9 20  |(ckeyp$) ...... |
00000c60  22 48 22 3a 20 f2 68 65  6c 70 0d 03 e8 13 c9 20  |"H": .help..... |
00000c70  22 4f 22 3a 20 f2 6f 70  74 69 6f 6e 73 0d 03 f2  |"O": .options...|
00000c80  16 c9 20 22 45 22 3a 20  fd 20 b9 3a f2 65 64 69  |.. "E": . .:.edi|
00000c90  74 6f 72 0d 03 fc 14 c9  20 22 4c 22 3a 20 fd 20  |tor..... "L": . |
00000ca0  b9 3a f2 6c 6f 61 64 0d  04 06 1f c9 20 22 50 22  |.:.load..... "P"|
00000cb0  3a 20 fd 20 b9 3a f2 67  61 6d 65 28 a4 70 61 73  |: . .:.game(.pas|
00000cc0  73 77 6f 72 64 29 0d 04  10 2d c9 20 22 51 22 3a  |sword)...-. "Q":|
00000cd0  20 fd 20 b9 3a fd 20 b9  3a d6 20 65 63 66 61 64  | . .:. .:. ecfad|
00000ce0  3a f2 73 61 76 65 3a f2  63 6c 6f 73 65 64 6f 77  |:.save:.closedow|
00000cf0  6e 3a e0 0d 04 1a 17 c9  20 bd 31 33 3a 20 fd 20  |n:...... .13: . |
00000d00  b9 3a f2 67 61 6d 65 28  31 29 0d 04 24 05 cb 0d  |.:.game(1)..$...|
00000d10  04 2e 07 fd 20 a3 0d 04  38 05 3a 0d 04 42 18 f4  |.... ...8.:..B..|
00000d20  20 50 72 69 6e 74 20 69  6e 73 74 72 75 63 74 69  | Print instructi|
00000d30  6f 6e 73 0d 04 4c 05 3a  0d 04 56 0a dd f2 68 65  |ons..L.:..V...he|
00000d40  6c 70 0d 04 60 39 62 64  61 74 61 21 32 34 3d 62  |lp..`9bdata!24=b|
00000d50  68 74 65 78 25 3a 62 64  61 74 61 21 32 38 3d 62  |htex%:bdata!28=b|
00000d60  68 74 65 78 25 3a 62 64  61 74 61 21 33 32 3d 34  |htex%:bdata!32=4|
00000d70  3a 62 64 61 74 61 21 31  32 3d 34 0d 04 6a 29 f2  |:bdata!12=4..j).|
00000d80  70 72 69 6e 74 28 22 54  48 45 20 53 49 4c 4c 59  |print("THE SILLY|
00000d90  20 50 4c 4f 54 2e 20 20  20 20 20 22 2c 30 2c 31  | PLOT.     ",0,1|
00000da0  30 32 33 29 0d 04 74 28  f2 70 72 69 6e 74 28 22  |023)..t(.print("|
00000db0  49 54 20 49 53 20 33 34  35 36 41 44 2e 20 45 41  |IT IS 3456AD. EA|
00000dc0  52 54 48 20 22 2c 30 2c  38 37 38 29 0d 04 7e 28  |RTH ",0,878)..~(|
00000dd0  f2 70 72 69 6e 74 28 22  48 41 53 20 42 45 45 4e  |.print("HAS BEEN|
00000de0  20 54 41 4b 45 4e 20 4f  56 45 52 20 22 2c 30 2c  | TAKEN OVER ",0,|
00000df0  38 31 34 29 0d 04 88 28  f2 70 72 69 6e 74 28 22  |814)...(.print("|
00000e00  42 59 20 41 4c 49 45 4e  53 2e 20 54 48 45 20 4f  |BY ALIENS. THE O|
00000e10  4e 4c 59 20 22 2c 30 2c  37 35 30 29 0d 04 92 28  |NLY ",0,750)...(|
00000e20  f2 70 72 69 6e 74 28 22  48 4f 50 45 20 49 53 20  |.print("HOPE IS |
00000e30  45 2e 52 2e 46 2e 46 2e  20 54 48 45 22 2c 30 2c  |E.R.F.F. THE",0,|
00000e40  36 38 36 29 0d 04 9c 28  f2 70 72 69 6e 74 28 22  |686)...(.print("|
00000e50  45 41 52 54 48 20 52 45  56 4f 4c 55 54 49 4f 4e  |EARTH REVOLUTION|
00000e60  41 52 59 20 22 2c 30 2c  36 32 32 29 0d 04 a6 28  |ARY ",0,622)...(|
00000e70  f2 70 72 69 6e 74 28 22  46 52 45 45 44 4f 4d 20  |.print("FREEDOM |
00000e80  46 49 47 48 54 45 52 53  2e 20 20 20 22 2c 30 2c  |FIGHTERS.   ",0,|
00000e90  35 35 38 29 0d 04 b0 28  f2 70 72 69 6e 74 28 22  |558)...(.print("|
00000ea0  42 55 54 20 41 4c 49 45  4e 53 20 48 41 56 45 20  |BUT ALIENS HAVE |
00000eb0  50 55 54 20 22 2c 30 2c  34 39 34 29 0d 04 ba 28  |PUT ",0,494)...(|
00000ec0  f2 70 72 69 6e 74 28 22  42 4f 4d 42 53 20 41 4c  |.print("BOMBS AL|
00000ed0  4c 20 4f 56 45 52 20 45  52 46 46 20 22 2c 30 2c  |L OVER ERFF ",0,|
00000ee0  34 33 30 29 0d 04 c4 28  f2 70 72 69 6e 74 28 22  |430)...(.print("|
00000ef0  48 51 2c 20 41 4e 44 20  49 54 20 49 53 20 59 4f  |HQ, AND IT IS YO|
00000f00  55 52 20 20 22 2c 30 2c  33 36 36 29 0d 04 ce 28  |UR  ",0,366)...(|
00000f10  f2 70 72 69 6e 74 28 22  4a 4f 42 20 54 4f 20 52  |.print("JOB TO R|
00000f20  45 4d 4f 56 45 20 54 48  45 4d 2e 20 22 2c 30 2c  |EMOVE THEM. ",0,|
00000f30  33 30 32 29 0d 04 d8 28  f2 70 72 69 6e 74 28 22  |302)...(.print("|
00000f40  20 20 20 20 20 20 20 20  20 20 20 41 4e 59 4b 45  |           ANYKE|
00000f50  59 2e 2e 2e 22 2c 30 2c  32 30 38 29 0d 04 e2 05  |Y...",0,208)....|
00000f60  f5 0d 04 ec 0e c8 96 3a  d6 20 65 64 73 63 72 0d  |.......:. edscr.|
00000f70  04 f6 0e fd 20 bf 28 30  29 3c 3e 22 22 0d 05 00  |.... .(0)<>""...|
00000f80  11 41 25 3d 34 32 3a d6  20 65 66 61 64 65 0d 05  |.A%=42:. efade..|
00000f90  0a 29 f2 70 72 69 6e 74  28 22 59 4f 55 20 41 52  |.).print("YOU AR|
00000fa0  45 20 41 4e 20 45 58 50  45 52 54 20 20 20 22 2c  |E AN EXPERT   ",|
00000fb0  30 2c 31 30 32 30 29 0d  05 14 28 f2 70 72 69 6e  |0,1020)...(.prin|
00000fc0  74 28 22 42 4f 4d 42 20  44 49 53 50 4f 53 41 4c  |t("BOMB DISPOSAL|
00000fd0  20 42 4c 4f 4b 45 20 22  2c 30 2c 39 35 36 29 0d  | BLOKE ",0,956).|
00000fe0  05 1e 28 f2 70 72 69 6e  74 28 22 57 48 4f 20 43  |..(.print("WHO C|
00000ff0  41 4e 20 44 49 53 41 52  4d 20 42 4f 4d 42 53 22  |AN DISARM BOMBS"|
00001000  2c 30 2c 38 39 32 29 0d  05 28 28 f2 70 72 69 6e  |,0,892)..((.prin|
00001010  74 28 22 42 59 20 54 4f  55 43 48 49 4e 47 20 54  |t("BY TOUCHING T|
00001020  48 45 4d 20 2d 20 20 22  2c 30 2c 38 32 38 29 0d  |HEM -  ",0,828).|
00001030  05 32 28 f2 70 72 69 6e  74 28 22 42 55 54 20 46  |.2(.print("BUT F|
00001040  49 52 53 54 2c 20 59 4f  55 20 4d 55 53 54 20 22  |IRST, YOU MUST "|
00001050  2c 30 2c 37 36 34 29 0d  05 3c 28 f2 70 72 69 6e  |,0,764)..<(.prin|
00001060  74 28 22 47 45 54 20 54  4f 20 54 48 45 4d 2c 20  |t("GET TO THEM, |
00001070  54 48 52 4f 55 47 48 22  2c 30 2c 37 30 30 29 0d  |THROUGH",0,700).|
00001080  05 46 28 f2 70 72 69 6e  74 28 22 54 48 45 20 4d  |.F(.print("THE M|
00001090  41 5a 45 20 4f 46 20 57  41 4c 4c 53 2c 20 20 22  |AZE OF WALLS,  "|
000010a0  2c 30 2c 36 33 36 29 0d  05 50 28 f2 70 72 69 6e  |,0,636)..P(.prin|
000010b0  74 28 22 42 4c 4f 43 4b  53 2c 20 4d 49 4e 45 53  |t("BLOCKS, MINES|
000010c0  20 41 4e 44 20 20 20 22  2c 30 2c 35 37 32 29 0d  | AND   ",0,572).|
000010d0  05 5a 28 f2 70 72 69 6e  74 28 22 54 52 41 4e 53  |.Z(.print("TRANS|
000010e0  50 4f 52 54 45 52 53 2c  20 45 54 43 2e 20 20 22  |PORTERS, ETC.  "|
000010f0  2c 30 2c 35 30 38 29 0d  05 64 28 f2 70 72 69 6e  |,0,508)..d(.prin|
00001100  74 28 22 48 4f 57 45 56  45 52 2c 20 4d 4f 53 54  |t("HOWEVER, MOST|
00001110  20 4f 46 20 54 48 45 22  2c 30 2c 34 34 34 29 0d  | OF THE",0,444).|
00001120  05 6e 28 f2 70 72 69 6e  74 28 22 57 41 4c 4c 53  |.n(.print("WALLS|
00001130  20 49 4e 20 54 48 45 20  4d 41 5a 45 20 20 20 22  | IN THE MAZE   "|
00001140  2c 30 2c 33 38 30 29 0d  05 78 28 f2 70 72 69 6e  |,0,380)..x(.prin|
00001150  74 28 22 43 41 4e 20 42  45 20 50 55 53 48 45 44  |t("CAN BE PUSHED|
00001160  20 41 4c 4f 4e 47 2c 22  2c 30 2c 33 31 36 29 0d  | ALONG,",0,316).|
00001170  05 82 28 f2 70 72 69 6e  74 28 22 20 20 20 20 20  |..(.print("     |
00001180  20 20 20 20 20 20 41 4e  59 4b 45 59 2e 2e 2e 22  |      ANYKEY..."|
00001190  2c 30 2c 32 30 38 29 0d  05 8c 05 f5 0d 05 96 0e  |,0,208).........|
000011a0  c8 96 3a d6 20 65 64 73  63 72 0d 05 a0 0e fd 20  |..:. edscr..... |
000011b0  bf 28 30 29 3c 3e 22 22  0d 05 aa 11 41 25 3d 34  |.(0)<>""....A%=4|
000011c0  32 3a d6 20 65 66 61 64  65 0d 05 b4 29 f2 70 72  |2:. efade...).pr|
000011d0  69 6e 74 28 22 54 4f 20  4d 41 4b 45 20 4e 45 57  |int("TO MAKE NEW|
000011e0  20 57 41 59 53 20 20 20  20 22 2c 30 2c 31 30 32  | WAYS    ",0,102|
000011f0  30 29 0d 05 be 28 f2 70  72 69 6e 74 28 22 54 48  |0)...(.print("TH|
00001200  52 4f 55 47 48 20 54 48  45 20 4d 41 5a 45 2e 20  |ROUGH THE MAZE. |
00001210  20 20 22 2c 30 2c 39 35  36 29 0d 05 c8 28 f2 70  |  ",0,956)...(.p|
00001220  72 69 6e 74 28 22 42 55  54 20 59 4f 55 20 43 41  |rint("BUT YOU CA|
00001230  4e 27 54 20 50 55 53 48  20 20 22 2c 30 2c 38 39  |N'T PUSH  ",0,89|
00001240  32 29 0d 05 d2 28 f2 70  72 69 6e 74 28 22 41 20  |2)...(.print("A |
00001250  57 41 4c 4c 20 49 4e 54  4f 20 41 20 53 50 41 43  |WALL INTO A SPAC|
00001260  45 20 22 2c 30 2c 38 32  38 29 0d 05 dc 28 f2 70  |E ",0,828)...(.p|
00001270  72 69 6e 74 28 22 41 4c  52 45 41 44 59 20 4f 43  |rint("ALREADY OC|
00001280  43 55 50 49 45 44 20 42  59 20 22 2c 30 2c 37 36  |CUPIED BY ",0,76|
00001290  34 29 0d 05 e6 28 f2 70  72 69 6e 74 28 22 41 4e  |4)...(.print("AN|
000012a0  4f 54 48 45 52 20 57 41  4c 4c 2e 20 41 4c 53 4f  |OTHER WALL. ALSO|
000012b0  2c 20 22 2c 30 2c 37 30  30 29 0d 05 f0 28 f2 70  |, ",0,700)...(.p|
000012c0  72 69 6e 74 28 22 53 4f  4d 45 20 57 41 4c 4c 53  |rint("SOME WALLS|
000012d0  20 43 41 4e 27 54 20 42  45 20 22 2c 30 2c 36 33  | CAN'T BE ",0,63|
000012e0  36 29 0d 05 fa 28 f2 70  72 69 6e 74 28 22 50 55  |6)...(.print("PU|
000012f0  53 48 45 44 20 41 54 20  41 4c 4c 2e 20 53 4f 2c  |SHED AT ALL. SO,|
00001300  20 20 22 2c 30 2c 35 37  32 29 0d 06 04 28 f2 70  |  ",0,572)...(.p|
00001310  72 69 6e 74 28 22 47 45  54 20 41 4c 4c 20 54 48  |rint("GET ALL TH|
00001320  45 20 42 4f 4d 42 53 20  54 4f 22 2c 30 2c 35 30  |E BOMBS TO",0,50|
00001330  38 29 0d 06 0e 28 f2 70  72 69 6e 74 28 22 43 4f  |8)...(.print("CO|
00001340  4d 50 4c 45 54 45 20 54  48 45 20 4c 45 56 45 4c  |MPLETE THE LEVEL|
00001350  2e 20 22 2c 30 2c 34 34  34 29 0d 06 18 28 f2 70  |. ",0,444)...(.p|
00001360  72 69 6e 74 28 22 44 4f  4e 27 54 20 54 4f 55 43  |rint("DON'T TOUC|
00001370  48 20 4d 49 4e 45 53 2e  20 20 22 2c 30 2c 33 38  |H MINES.  ",0,38|
00001380  30 29 0d 06 22 28 f2 70  72 69 6e 74 28 22 54 48  |0).."(.print("TH|
00001390  45 59 20 4b 49 4c 4c 20  59 4f 55 2e 20 20 20 20  |EY KILL YOU.    |
000013a0  20 20 22 2c 30 2c 33 31  36 29 0d 06 2c 28 f2 70  |  ",0,316)..,(.p|
000013b0  72 69 6e 74 28 22 20 20  20 20 20 20 20 20 20 20  |rint("          |
000013c0  20 41 4e 59 4b 45 59 2e  2e 2e 22 2c 30 2c 32 30  | ANYKEY...",0,20|
000013d0  38 29 0d 06 36 05 f5 0d  06 40 0e c8 96 3a d6 20  |8)..6....@...:. |
000013e0  65 64 73 63 72 0d 06 4a  0e fd 20 bf 28 30 29 3c  |edscr..J.. .(0)<|
000013f0  3e 22 22 0d 06 54 11 41  25 3d 34 32 3a d6 20 65  |>""..T.A%=42:. e|
00001400  66 61 64 65 0d 06 5e 29  f2 70 72 69 6e 74 28 22  |fade..^).print("|
00001410  4d 49 4e 45 53 20 4b 49  4c 4c 20 59 4f 55 2c 20  |MINES KILL YOU, |
00001420  42 55 54 20 22 2c 30 2c  31 30 32 30 29 0d 06 68  |BUT ",0,1020)..h|
00001430  28 f2 70 72 69 6e 74 28  22 59 4f 55 20 43 41 4e  |(.print("YOU CAN|
00001440  20 44 45 53 54 52 4f 59  20 54 48 45 4d 22 2c 30  | DESTROY THEM",0|
00001450  2c 39 35 36 29 0d 06 72  28 f2 70 72 69 6e 74 28  |,956)..r(.print(|
00001460  22 42 59 20 50 55 53 48  49 4e 47 20 57 41 4c 4c  |"BY PUSHING WALL|
00001470  53 20 20 20 20 22 2c 30  2c 38 39 32 29 0d 06 7c  |S    ",0,892)..||
00001480  28 f2 70 72 69 6e 74 28  22 54 48 52 4f 55 47 48  |(.print("THROUGH|
00001490  20 54 48 45 4d 2e 20 59  4f 55 20 20 20 22 2c 30  | THEM. YOU   ",0|
000014a0  2c 38 32 38 29 0d 06 86  28 f2 70 72 69 6e 74 28  |,828)...(.print(|
000014b0  22 43 41 4e 27 54 20 57  41 4c 4b 20 54 48 52 4f  |"CAN'T WALK THRO|
000014c0  55 47 48 20 20 22 2c 30  2c 37 36 34 29 0d 06 90  |UGH  ",0,764)...|
000014d0  28 f2 70 72 69 6e 74 28  22 42 4c 4f 43 4b 53 2e  |(.print("BLOCKS.|
000014e0  20 59 4f 55 20 43 41 4e  20 20 20 20 20 22 2c 30  | YOU CAN     ",0|
000014f0  2c 37 30 30 29 0d 06 9a  28 f2 70 72 69 6e 74 28  |,700)...(.print(|
00001500  22 53 45 45 20 57 48 41  54 20 54 48 45 20 54 48  |"SEE WHAT THE TH|
00001510  49 4e 47 53 20 22 2c 30  2c 36 33 36 29 0d 06 a4  |INGS ",0,636)...|
00001520  28 f2 70 72 69 6e 74 28  22 4c 4f 4f 4b 20 4c 49  |(.print("LOOK LI|
00001530  4b 45 20 42 45 4c 4f 57  2e 20 20 20 20 22 2c 30  |KE BELOW.    ",0|
00001540  2c 35 37 32 29 0d 06 ae  28 f2 70 72 69 6e 74 28  |,572)...(.print(|
00001550  22 50 4c 41 59 20 54 48  45 20 4c 45 56 45 4c 53  |"PLAY THE LEVELS|
00001560  20 54 4f 20 20 22 2c 30  2c 35 30 38 29 0d 06 b8  | TO  ",0,508)...|
00001570  28 f2 70 72 69 6e 74 28  22 47 45 54 20 54 48 45  |(.print("GET THE|
00001580  20 48 41 4e 47 20 4f 46  20 49 54 2e 20 22 2c 30  | HANG OF IT. ",0|
00001590  2c 34 34 34 29 0d 06 c2  28 f2 70 72 69 6e 74 28  |,444)...(.print(|
000015a0  22 48 41 56 45 20 46 55  4e 20 59 4f 55 20 46 52  |"HAVE FUN YOU FR|
000015b0  4f 4f 44 59 20 22 2c 30  2c 33 38 30 29 0d 06 cc  |OODY ",0,380)...|
000015c0  28 f2 70 72 69 6e 74 28  22 57 4f 53 53 4e 41 4d  |(.print("WOSSNAM|
000015d0  45 53 2e 20 20 20 20 20  20 20 20 20 20 22 2c 30  |ES.          ",0|
000015e0  2c 33 31 36 29 0d 06 d6  28 f2 70 72 69 6e 74 28  |,316)...(.print(|
000015f0  22 20 20 20 20 20 20 20  20 20 20 20 41 4e 59 4b  |"           ANYK|
00001600  45 59 2e 2e 2e 22 2c 30  2c 32 30 38 29 0d 06 e0  |EY...",0,208)...|
00001610  05 f5 0d 06 ea 0e c8 96  3a d6 20 65 64 73 63 72  |........:. edscr|
00001620  0d 06 f4 0e fd 20 bf 28  30 29 3c 3e 22 22 0d 06  |..... .(0)<>""..|
00001630  fe 0b d6 20 65 66 61 64  65 0d 07 08 2e 62 64 61  |... efade....bda|
00001640  74 61 21 32 38 3d 62 74  65 78 74 25 3a 62 64 61  |ta!28=btext%:bda|
00001650  74 61 21 31 32 3d 34 3a  62 64 61 74 61 21 32 34  |ta!12=4:bdata!24|
00001660  3d 62 74 65 78 74 25 0d  07 12 05 e1 0d 07 1c 05  |=btext%.........|
00001670  3a 0d 07 26 12 dd f2 77  61 69 74 28 78 6c 65 6e  |:..&...wait(xlen|
00001680  67 25 29 0d 07 30 16 e3  20 78 6c 77 61 74 25 3d  |g%)..0.. xlwat%=|
00001690  31 b8 20 78 6c 65 6e 67  25 0d 07 3a 08 c8 96 3a  |1. xleng%..:...:|
000016a0  ed 0d 07 44 05 e1 0d 07  4e 05 3a 0d 07 58 21 dd  |...D....N.:..X!.|
000016b0  f2 70 72 69 6e 74 28 78  73 70 72 6e 24 2c 78 70  |.print(xsprn$,xp|
000016c0  6f 73 78 25 2c 78 70 6f  73 79 25 29 0d 07 62 1b  |osx%,xposy%)..b.|
000016d0  e3 20 78 6c 70 72 6e 25  3d 30 b8 20 a9 28 78 73  |. xlprn%=0. .(xs|
000016e0  70 72 6e 24 29 2d 31 0d  07 6c 1d 41 25 3d 97 28  |prn$)-1..l.A%=.(|
000016f0  c1 78 73 70 72 6e 24 2c  78 6c 70 72 6e 25 2b 31  |.xsprn$,xlprn%+1|
00001700  2c 31 29 29 0d 07 76 19  42 25 3d 78 70 6f 73 78  |,1))..v.B%=xposx|
00001710  25 2f 34 2b 78 6c 70 72  6e 25 2a 31 36 0d 07 80  |%/4+xlprn%*16...|
00001720  16 43 25 3d 28 31 30 32  30 2d 78 70 6f 73 79 25  |.C%=(1020-xposy%|
00001730  29 2f 34 0d 07 8a 0b d6  20 65 70 73 6d 6c 0d 07  |)/4..... epsml..|
00001740  94 05 ed 0d 07 9e 05 e1  0d 07 a8 05 3a 0d 07 b2  |............:...|
00001750  14 dd f2 75 65 72 72 6f  72 28 78 70 65 72 72 24  |...uerror(xperr$|
00001760  29 0d 07 bc 08 eb 20 31  32 0d 07 c6 0c f1 20 78  |)..... 12..... x|
00001770  70 65 72 72 24 0d 07 d0  41 f1 27 22 50 72 65 73  |perr$...A.'"Pres|
00001780  73 20 3c 52 45 54 55 52  4e 3e 20 74 6f 20 72 65  |s <RETURN> to re|
00001790  2d 72 75 6e 20 74 68 65  20 70 72 6f 67 72 61 6d  |-run the program|
000017a0  2c 20 6f 72 20 3c 53 50  41 43 45 3e 20 74 6f 20  |, or <SPACE> to |
000017b0  71 75 69 74 2e 22 0d 07  da 28 f5 20 78 63 67 65  |quit."...(. xcge|
000017c0  74 24 3d be 3a fd 20 78  63 67 65 74 24 3d 22 20  |t$=.:. xcget$=" |
000017d0  22 20 84 20 78 63 67 65  74 24 3d bd 31 33 0d 07  |" . xcget$=.13..|
000017e0  e4 1f e7 20 78 63 67 65  74 24 3d 22 20 22 20 8c  |... xcget$=" " .|
000017f0  20 f2 63 6c 6f 73 65 64  6f 77 6e 3a e0 0d 07 ee  | .closedown:....|
00001800  22 c8 99 20 22 43 6f 63  6f 5f 52 65 73 65 74 22  |".. "Coco_Reset"|
00001810  3a c8 99 20 22 43 6f 63  6f 5f 53 74 6f 70 22 0d  |:.. "Coco_Stop".|
00001820  07 f8 05 f9 0d 08 02 05  3a 0d 08 0c 0c dd a4 73  |........:......s|
00001830  65 72 72 6f 72 0d 08 16  08 c8 97 20 87 0d 08 20  |error...... ... |
00001840  0f e7 20 9f 3d 31 37 20  8c 20 3d a3 0d 08 2a 08  |.. .=17 . =...*.|
00001850  eb 20 31 32 0d 08 34 30  f1 20 22 54 68 65 72 65  |. 12..40. "There|
00001860  27 73 20 62 65 65 6e 20  61 6e 20 69 6e 74 65 72  |'s been an inter|
00001870  6e 61 6c 20 65 72 72 6f  72 20 3a 20 22 3b f6 24  |nal error : ";.$|
00001880  3b 22 2e 22 0d 08 3e 49  f1 20 22 50 72 65 73 73  |;"."..>I. "Press|
00001890  20 3c 52 45 54 55 52 4e  3e 20 74 6f 20 72 65 74  | <RETURN> to ret|
000018a0  75 72 6e 20 74 6f 20 74  68 65 20 74 69 74 6c 65  |urn to the title|
000018b0  20 73 63 72 65 65 6e 2c  20 6f 72 20 3c 53 50 41  | screen, or <SPA|
000018c0  43 45 3e 20 74 6f 20 71  75 69 74 2e 22 0d 08 48  |CE> to quit."..H|
000018d0  28 f5 20 78 63 67 65 74  24 3d be 3a fd 20 78 63  |(. xcget$=.:. xc|
000018e0  67 65 74 24 3d 22 20 22  20 84 20 78 63 67 65 74  |get$=" " . xcget|
000018f0  24 3d bd 31 33 0d 08 52  15 e7 20 78 63 67 65 74  |$=.13..R.. xcget|
00001900  24 3d 22 20 22 20 8c 20  3d b9 0d 08 5c 06 3d a3  |$=" " . =...\.=.|
00001910  0d 08 66 05 3a 0d 08 70  12 dd a4 63 61 70 73 28  |..f.:..p...caps(|
00001920  78 63 68 61 72 24 29 0d  08 7a 3f e7 20 97 28 78  |xchar$)..z?. .(x|
00001930  63 68 61 72 24 29 3e 39  36 20 80 20 97 28 78 63  |char$)>96 . .(xc|
00001940  68 61 72 24 29 3c 31 32  32 20 8c 20 3d bd 28 97  |har$)<122 . =.(.|
00001950  28 78 63 68 61 72 24 29  2d 33 32 29 20 8b 20 3d  |(xchar$)-32) . =|
00001960  78 63 68 61 72 24 0d 08  84 05 3a 0d 08 8e 14 dd  |xchar$....:.....|
00001970  a4 73 79 73 76 61 72 28  78 66 76 61 72 24 29 0d  |.sysvar(xfvar$).|
00001980  08 98 3a c8 99 20 22 4f  53 5f 52 65 61 64 56 61  |..:.. "OS_ReadVa|
00001990  72 56 61 6c 22 2c 78 66  76 61 72 24 2c 62 6d 65  |rVal",xfvar$,bme|
000019a0  73 73 25 2c 62 6d 65 73  73 25 2b 35 31 32 20 b8  |ss%,bmess%+512 .|
000019b0  20 2c 2c 70 6d 65 73 73  25 0d 08 a2 14 62 6d 65  | ,,pmess%....bme|
000019c0  73 73 25 3f 70 6d 65 73  73 25 3d 31 33 0d 08 ac  |ss%?pmess%=13...|
000019d0  0e 3d 24 28 62 6d 65 73  73 25 29 0d 08 b6 05 3a  |.=$(bmess%)....:|
000019e0  0d 08 c0 16 dd a4 67 65  74 63 74 73 74 72 28 78  |......getctstr(x|
000019f0  62 6d 65 73 25 29 0d 08  ca 0d 78 73 72 65 64 24  |bmes%)....xsred$|
00001a00  3d 22 22 0d 08 d4 05 f5  0d 08 de 16 78 73 72 65  |="".........xsre|
00001a10  64 24 2b 3d bd 28 3f 78  62 6d 65 73 25 29 0d 08  |d$+=.(?xbmes%)..|
00001a20  e8 0d 78 62 6d 65 73 25  2b 3d 31 0d 08 f2 21 fd  |..xbmes%+=1...!.|
00001a30  20 3f 78 62 6d 65 73 25  3c 33 32 20 84 20 a9 20  | ?xbmes%<32 . . |
00001a40  28 78 73 72 65 64 24 29  3d 32 35 35 0d 08 fc 0b  |(xsred$)=255....|
00001a50  3d 78 73 72 65 64 24 0d  09 06 05 3a 0d 09 10 1d  |=xsred$....:....|
00001a60  dd a4 67 65 74 6c 6e 73  74 72 28 78 62 73 74 72  |..getlnstr(xbstr|
00001a70  25 2c 78 6c 65 73 74 25  29 0d 09 1a 1e 78 73 72  |%,xlest%)....xsr|
00001a80  65 64 24 3d 22 22 3a e7  20 78 6c 65 73 74 25 3d  |ed$="":. xlest%=|
00001a90  30 20 8c 20 3d 22 22 0d  09 24 24 e3 20 78 6c 73  |0 . =""..$$. xls|
00001aa0  74 72 25 3d 78 62 73 74  72 25 b8 20 78 62 73 74  |tr%=xbstr%. xbst|
00001ab0  72 25 2b 78 6c 65 73 74  25 2d 31 0d 09 2e 16 78  |r%+xlest%-1....x|
00001ac0  73 72 65 64 24 2b 3d bd  28 3f 78 6c 73 74 72 25  |sred$+=.(?xlstr%|
00001ad0  29 0d 09 38 05 ed 0d 09  42 0b 3d 78 73 72 65 64  |)..8....B.=xsred|
00001ae0  24 0d 09 4c 05 3a 0d 09  56 0f dd f2 73 74 61 72  |$..L.:..V...star|
00001af0  74 74 75 6e 65 0d 09 60  13 c8 99 20 22 43 6f 63  |ttune..`... "Coc|
00001b00  6f 5f 53 74 61 72 74 22  0d 09 6a 1f c8 99 20 22  |o_Start"..j... "|
00001b10  43 6f 63 6f 5f 56 6f 6c  75 6d 65 22 2c 32 35 35  |Coco_Volume",255|
00001b20  2d 76 6d 75 73 78 25 0d  09 74 05 e1 0d 09 7e 05  |-vmusx%..t....~.|
00001b30  3a 0d 09 88 0f dd f2 63  6c 6f 73 65 64 6f 77 6e  |:......closedown|
00001b40  0d 09 92 0b ee 20 85 20  f6 3a e0 0d 09 9c 0c f2  |..... . .:......|
00001b50  66 61 64 65 6f 75 74 0d  09 a6 12 c8 99 20 22 43  |fadeout...... "C|
00001b60  6f 63 6f 5f 53 74 6f 70  22 0d 09 b0 27 eb 20 6b  |oco_Stop"...'. k|
00001b70  6c 75 64 67 65 5f 6d 6f  64 65 3a c8 99 20 22 4f  |ludge_mode:.. "O|
00001b80  53 5f 52 65 6d 6f 76 65  43 75 72 73 6f 72 73 22  |S_RemoveCursors"|
00001b90  0d 09 ba 45 c8 99 20 22  4f 53 5f 53 70 72 69 74  |...E.. "OS_Sprit|
00001ba0  65 4f 70 22 2c 32 35 36  2b 33 34 2c 62 73 70 72  |eOp",256+34,bspr|
00001bb0  69 25 2c 22 47 6f 6f 64  62 79 65 22 2c 32 31 33  |i%,"Goodbye",213|
00001bc0  2c 31 36 38 2b 6b 6c 75  64 67 65 5f 6d 6f 64 65  |,168+kludge_mode|
00001bd0  6f 66 73 2c 30 0d 09 c4  1d c8 99 20 22 4f 53 5f  |ofs,0...... "OS_|
00001be0  42 79 74 65 22 2c 31 39  36 2c 6b 64 65 6c 61 25  |Byte",196,kdela%|
00001bf0  2c 30 0d 09 ce 1d c8 99  20 22 4f 53 5f 42 79 74  |,0...... "OS_Byt|
00001c00  65 22 2c 31 39 37 2c 6b  72 65 70 61 25 2c 30 0d  |e",197,krepa%,0.|
00001c10  09 d8 0c fb 20 30 20 c8  9c 20 30 0d 09 e2 26 f5  |.... 0 .. 0...&.|
00001c20  20 c8 97 20 61 2c 62 2c  63 3a 47 24 3d bf 28 31  | .. a,b,c:G$=.(1|
00001c30  29 3a fd 20 47 24 3c 3e  22 22 20 84 20 63 3c 3e  |):. G$<>"" . c<>|
00001c40  30 0d 09 ec 05 e1 0d 09  f6 05 3a 0d 0a 00 0d dd  |0.........:.....|
00001c50  f2 66 61 64 65 6f 75 74  0d 0a 0a 21 e3 20 6c 66  |.fadeout...!. lf|
00001c60  61 64 65 25 3d 32 35 35  2d 76 6d 75 73 78 25 20  |ade%=255-vmusx% |
00001c70  b8 20 32 30 30 20 88 20  32 0d 0a 14 1b c8 99 20  |. 200 . 2...... |
00001c80  22 43 6f 63 6f 5f 56 6f  6c 75 6d 65 22 2c 6c 66  |"Coco_Volume",lf|
00001c90  61 64 65 25 0d 0a 1e 06  c8 96 0d 0a 28 05 ed 0d  |ade%........(...|
00001ca0  0a 32 05 e1 0d 0a 3c 05  3a 0d 0a 46 0a dd f2 66  |.2....<.:..F...f|
00001cb0  72 6f 67 0d 0a 50 ad f1  8a 30 2c 30 29 3b 22 48  |rog..P...0,0);"H|
00001cc0  6f 77 20 6d 75 63 68 20  69 73 20 74 68 61 74 20  |ow much is that |
00001cd0  64 6f 67 67 79 20 69 6e  20 74 68 65 20 77 69 6e  |doggy in the win|
00001ce0  64 6f 77 3f 20 20 20 54  68 65 20 6f 6e 65 20 77  |dow?   The one w|
00001cf0  69 74 68 20 74 68 65 20  77 61 67 67 6c 79 20 74  |ith the waggly t|
00001d00  61 69 6c 2e 20 20 20 20  20 20 20 20 20 20 20 48  |ail.           H|
00001d10  6f 77 20 6d 75 63 68 20  69 73 20 74 68 61 74 20  |ow much is that |
00001d20  64 6f 67 67 79 20 69 6e  20 74 68 65 20 77 69 6e  |doggy in the win|
00001d30  64 6f 77 3f 20 20 20 49  20 64 6f 20 68 6f 70 65  |dow?   I do hope|
00001d40  20 74 68 61 74 20 64 6f  67 67 79 27 73 20 66 6f  | that doggy's fo|
00001d50  72 20 73 61 6c 65 21 20  20 20 20 20 20 20 20 22  |r sale!        "|
00001d60  0d 0a 5a 2f f1 22 20 2d  20 4a 6f 68 6e 20 4d 61  |..Z/." - John Ma|
00001d70  6a 6f 72 2c 20 31 39 39  32 20 20 20 20 20 20 20  |jor, 1992       |
00001d80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 0d  |              ".|
00001d90  0a 64 05 e1 0d 0a 6e 05  3a 0d 0a 78 12 dd f2 61  |.d....n.:..x...a|
00001da0  73 73 65 6d 62 6c 65 63  6f 64 65 0d 0a 82 1d e3  |ssemblecode.....|
00001db0  66 70 61 73 73 25 3d 25  31 30 30 30 20 b8 20 25  |fpass%=%1000 . %|
00001dc0  31 30 31 30 20 88 20 32  0d 0a 8c 0d 50 25 3d 62  |1010 . 2....P%=b|
00001dd0  63 6f 64 65 25 0d 0a 96  0f 5b 4f 50 54 20 66 70  |code%....[OPT fp|
00001de0  61 73 73 25 0d 0a a0 05  3a 0d 0a aa 1a 3b 20 53  |ass%....:....; S|
00001df0  68 75 74 74 65 72 20 66  61 64 65 20 72 6f 75 74  |hutter fade rout|
00001e00  69 6e 65 0d 0a b4 05 3a  0d 0a be 0a 2e 65 66 61  |ine....:.....efa|
00001e10  64 65 0d 0a c8 0d 4d 4f  56 20 52 36 2c 23 34 0d  |de....MOV R6,#4.|
00001e20  0a d2 11 41 44 52 20 52  31 32 2c 62 64 61 74 61  |...ADR R12,bdata|
00001e30  0d 0a dc 13 4c 44 52 20  52 37 2c 5b 52 31 32 2c  |....LDR R7,[R12,|
00001e40  23 34 5d 0d 0a e6 0e 43  4d 50 20 52 30 2c 23 34  |#4]....CMP R0,#4|
00001e50  32 0d 0a f0 0e ec 51 20  52 30 2c 23 33 32 30 0d  |2.....Q R0,#320.|
00001e60  0a fa 0e ec 51 20 52 31  2c 23 32 32 32 0d 0b 04  |....Q R1,#222...|
00001e70  12 4d 55 4c 45 51 20 52  38 2c 52 30 2c 52 31 0d  |.MULEQ R8,R0,R1.|
00001e80  0b 0e 17 4d 4f 56 4e 45  20 52 38 2c 23 28 33 32  |...MOVNE R8,#(32|
00001e90  30 2a 32 35 36 29 0d 0b  18 0a 2e 6c 66 61 64 65  |0*256).....lfade|
00001ea0  0d 0b 22 0d 4d 4f 56 20  52 33 2c 52 37 0d 0b 2c  |..".MOV R3,R7..,|
00001eb0  0d 4d 4f 56 20 52 34 2c  52 38 0d 0b 36 0a 2e 6c  |.MOV R4,R8..6..l|
00001ec0  66 61 64 6c 0d 0b 40 0f  4c 44 52 20 52 35 2c 5b  |fadl..@.LDR R5,[|
00001ed0  52 33 5d 0d 0b 4a 14 4d  4f 56 20 52 35 2c 52 35  |R3]..J.MOV R5,R5|
00001ee0  2c 4c 53 52 20 23 38 0d  0b 54 12 53 54 52 20 52  |,LSR #8..T.STR R|
00001ef0  35 2c 5b 52 33 5d 2c 23  34 0d 0b 5e 11 53 55 42  |5,[R3],#4..^.SUB|
00001f00  53 20 52 34 2c 52 34 2c  23 34 0d 0b 68 0d 42 4e  |S R4,R4,#4..h.BN|
00001f10  45 20 6c 66 61 64 6c 0d  0b 72 11 53 55 42 53 20  |E lfadl..r.SUBS |
00001f20  52 36 2c 52 36 2c 23 31  0d 0b 7c 0d 42 4e 45 20  |R6,R6,#1..|.BNE |
00001f30  6c 66 61 64 65 0d 0b 86  0d 4d 4f 56 20 52 38 2c  |lfade....MOV R8,|
00001f40  23 30 0d 0b 90 0e 4d 4f  56 20 50 43 2c 52 31 34  |#0....MOV PC,R14|
00001f50  0d 0b 9a 05 3a 0d 0b a4  32 3b 20 54 68 65 20 66  |....:...2; The f|
00001f60  6f 6c 6c 6f 77 69 6e 67  20 63 6f 64 65 20 70 72  |ollowing code pr|
00001f70  69 6e 74 73 20 61 20 31  36 78 31 36 20 63 68 61  |ints a 16x16 cha|
00001f80  72 61 63 74 65 72 2e 0d  0b ae 05 3a 0d 0b b8 0a  |racter.....:....|
00001f90  2e 65 70 73 6d 6c 0d 0b  c2 11 53 55 42 20 52 30  |.epsml....SUB R0|
00001fa0  2c 52 30 2c 23 33 32 0d  0b cc 10 4d 4f 56 4d 49  |,R0,#32....MOVMI|
00001fb0  20 50 43 2c 52 31 34 0d  0b d6 11 41 44 52 20 52  | PC,R14....ADR R|
00001fc0  31 32 2c 62 64 61 74 61  0d 0b e0 13 4c 44 52 20  |12,bdata....LDR |
00001fd0  52 33 2c 5b 52 31 32 2c  23 30 5d 0d 0b ea 0f 4d  |R3,[R12,#0]....M|
00001fe0  4f 56 20 52 34 2c 23 32  35 36 0d 0b f4 14 4d 4c  |OV R4,#256....ML|
00001ff0  41 20 52 31 31 2c 52 30  2c 52 34 2c 52 33 0d 0b  |A R11,R0,R4,R3..|
00002000  fe 0f 4d 4f 56 20 52 34  2c 23 33 32 30 0d 0c 08  |..MOV R4,#320...|
00002010  13 4c 44 52 20 52 33 2c  5b 52 31 32 2c 23 34 5d  |.LDR R3,[R12,#4]|
00002020  0d 0c 12 14 4d 4c 41 20  52 31 30 2c 52 32 2c 52  |....MLA R10,R2,R|
00002030  34 2c 52 31 0d 0c 1c 12  41 44 44 20 52 31 30 2c  |4,R1....ADD R10,|
00002040  52 31 30 2c 52 33 0d 0c  26 0d 4d 4f 56 20 52 39  |R10,R3..&.MOV R9|
00002050  2c 23 38 0d 0c 30 0a 2e  6c 70 73 6d 6c 0d 0c 3a  |,#8..0..lpsml..:|
00002060  16 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |.LDMIA R11!,{R0-|
00002070  52 37 7d 0d 0c 44 15 53  54 4d 49 41 20 52 31 30  |R7}..D.STMIA R10|
00002080  2c 7b 52 30 2d 52 33 7d  0d 0c 4e 14 41 44 44 20  |,{R0-R3}..N.ADD |
00002090  52 31 30 2c 52 31 30 2c  23 33 32 30 0d 0c 58 15  |R10,R10,#320..X.|
000020a0  53 54 4d 49 41 20 52 31  30 2c 7b 52 34 2d 52 37  |STMIA R10,{R4-R7|
000020b0  7d 0d 0c 62 14 41 44 44  20 52 31 30 2c 52 31 30  |}..b.ADD R10,R10|
000020c0  2c 23 33 32 30 0d 0c 6c  11 53 55 42 53 20 52 39  |,#320..l.SUBS R9|
000020d0  2c 52 39 2c 23 31 0d 0c  76 0d 42 4e 45 20 6c 70  |,R9,#1..v.BNE lp|
000020e0  73 6d 6c 0d 0c 80 0e 4d  4f 56 20 50 43 2c 52 31  |sml....MOV PC,R1|
000020f0  34 0d 0c 8a 05 3a 0d 0c  94 18 3b 20 44 69 73 70  |4....:....; Disp|
00002100  6c 61 79 20 73 63 72 6f  6c 6c 74 65 78 74 0d 0c  |lay scrolltext..|
00002110  9e 05 3a 0d 0c a8 0a 2e  65 64 73 63 72 0d 0c b2  |..:.....edscr...|
00002120  11 41 44 52 20 52 31 32  2c 62 64 61 74 61 0d 0c  |.ADR R12,bdata..|
00002130  bc 13 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 38  |..LDR R0,[R12,#8|
00002140  5d 0d 0c c6 14 4c 44 52  20 52 33 2c 5b 52 31 32  |]....LDR R3,[R12|
00002150  2c 23 31 32 5d 0d 0c d0  10 41 44 44 20 52 31 2c  |,#12]....ADD R1,|
00002160  52 30 2c 52 33 0d 0c da  0f 4d 4f 56 20 52 32 2c  |R0,R3....MOV R2,|
00002170  23 32 35 35 0d 0c e4 0a  2e 6c 64 73 63 72 0d 0c  |#255.....ldscr..|
00002180  ee 16 4c 44 4d 49 41 20  52 31 21 2c 7b 52 33 2d  |..LDMIA R1!,{R3-|
00002190  52 31 32 7d 0d 0c f8 16  53 54 4d 49 41 20 52 30  |R12}....STMIA R0|
000021a0  21 2c 7b 52 33 2d 52 31  32 7d 0d 0d 02 11 53 55  |!,{R3-R12}....SU|
000021b0  42 53 20 52 32 2c 52 32  2c 23 31 0d 0d 0c 0d 42  |BS R2,R2,#1....B|
000021c0  4e 45 20 6c 64 73 63 72  0d 0d 16 16 4c 44 4d 49  |NE ldscr....LDMI|
000021d0  41 20 52 31 21 2c 7b 52  33 2d 52 31 31 7d 0d 0d  |A R1!,{R3-R11}..|
000021e0  20 16 53 54 4d 49 41 20  52 30 21 2c 7b 52 33 2d  | .STMIA R0!,{R3-|
000021f0  52 31 31 7d 0d 0d 2a 11  41 44 52 20 52 31 32 2c  |R11}..*.ADR R12,|
00002200  62 64 61 74 61 0d 0d 34  05 3a 0d 0d 3e 4d 3b 20  |bdata..4.:..>M; |
00002210  41 64 64 20 6e 65 77 20  64 61 74 61 20 6f 6e 20  |Add new data on |
00002220  72 69 67 68 74 20 3b 20  49 20 6b 6e 6f 77 20 69  |right ; I know i|
00002230  74 20 69 73 20 69 6e 65  66 66 69 63 69 65 6e 74  |t is inefficient|
00002240  2c 20 62 75 74 20 74 68  65 20 41 52 4d 20 64 6f  |, but the ARM do|
00002250  65 73 20 68 61 76 65 0d  0d 48 50 3b 20 65 6e 6f  |es have..HP; eno|
00002260  75 67 68 20 74 69 6d 65  20 6f 6e 20 69 74 73 20  |ugh time on its |
00002270  68 61 6e 64 73 2c 20 61  73 20 69 74 20 77 65 72  |hands, as it wer|
00002280  65 2e 20 41 63 74 75 61  6c 6c 79 2c 20 69 74 20  |e. Actually, it |
00002290  77 6f 6e 27 74 20 77 6f  72 6b 20 70 72 6f 70 65  |won't work prope|
000022a0  72 6c 79 2c 20 73 6f 0d  0d 52 50 3b 20 49 20 63  |rly, so..RP; I c|
000022b0  6f 75 6c 64 20 68 61 76  65 20 75 73 65 64 20 61  |ould have used a|
000022c0  20 6d 75 63 68 20 71 75  69 63 6b 65 72 20 72 6f  | much quicker ro|
000022d0  75 74 69 6e 65 2c 20 62  75 74 20 77 68 79 20 72  |utine, but why r|
000022e0  65 2d 70 72 6f 67 72 61  6d 20 77 68 65 6e 20 79  |e-program when y|
000022f0  6f 75 20 68 61 76 65 0d  0d 5c 25 3b 20 67 6f 74  |ou have..\%; got|
00002300  20 61 20 77 6f 72 6b 69  6e 67 20 72 6f 75 74 69  | a working routi|
00002310  6e 65 2c 20 61 6e 79 77  61 79 20 3f 0d 0d 66 51  |ne, anyway ?..fQ|
00002320  3b 20 49 27 6d 20 73 6f  72 72 79 20 74 68 65 20  |; I'm sorry the |
00002330  73 79 73 74 65 6d 20 64  6f 65 73 6e 27 74 20 73  |system doesn't s|
00002340  65 65 6d 20 74 6f 20 62  65 20 70 61 72 74 69 63  |eem to be partic|
00002350  75 6c 61 72 6c 79 20 77  65 6c 6c 20 69 6e 74 65  |ularly well inte|
00002360  72 2d 70 72 6f 67 72 61  6d 6d 65 64 2c 0d 0d 70  |r-programmed,..p|
00002370  4d 3b 20 62 75 74 20 61  20 6c 6f 74 20 6f 66 20  |M; but a lot of |
00002380  69 74 20 77 61 73 20 77  72 69 74 74 65 6e 20 66  |it was written f|
00002390  6f 72 20 76 65 72 73 69  6f 6e 20 31 2c 20 77 68  |or version 1, wh|
000023a0  69 63 68 20 77 61 73 20  73 75 62 73 65 71 75 65  |ich was subseque|
000023b0  6e 74 6c 79 20 77 69 70  65 64 0d 0d 7a 31 3b 20  |ntly wiped..z1; |
000023c0  28 20 74 68 65 20 21 52  75 6e 49 6d 61 67 65 20  |( the !RunImage |
000023d0  66 69 6c 65 20 29 20 62  79 20 74 68 61 74 20 6e  |file ) by that n|
000023e0  61 73 74 79 20 64 72 69  76 65 2e 0d 0d 84 05 3b  |asty drive.....;|
000023f0  0d 0d 8e 50 3b 20 59 65  73 2c 20 66 6f 6c 6b 73  |...P; Yes, folks|
00002400  2c 20 74 68 65 72 65 20  77 61 73 20 61 20 68 61  |, there was a ha|
00002410  6c 66 2d 64 6f 6e 65 20  76 65 72 73 69 6f 6e 20  |lf-done version |
00002420  77 68 69 63 68 20 67 6f  74 20 70 61 72 74 69 61  |which got partia|
00002430  6c 6c 79 20 77 69 70 65  64 20 62 65 66 6f 72 65  |lly wiped before|
00002440  0d 0d 98 17 3b 20 74 68  65 20 66 69 6e 69 73 68  |....; the finish|
00002450  65 64 20 6f 6e 65 2e 0d  0d a2 05 3b 0d 0d ac 12  |ed one.....;....|
00002460  3b 20 44 69 64 20 49 20  6c 65 61 72 6e 3f 0d 0d  |; Did I learn?..|
00002470  b6 05 3b 0d 0d c0 14 3b  20 44 69 64 20 49 20 43  |..;....; Did I C|
00002480  41 42 42 41 47 45 2e 0d  0d ca 05 3a 0d 0d d4 13  |ABBAGE.....:....|
00002490  41 44 44 20 52 31 31 2c  52 31 32 2c 23 31 32 0d  |ADD R11,R12,#12.|
000024a0  0d de 15 4c 44 4d 49 41  20 52 31 31 2c 7b 52 30  |...LDMIA R11,{R0|
000024b0  2d 52 35 7d 0d 0d e8 0d  43 4d 50 20 52 30 2c 23  |-R5}....CMP R0,#|
000024c0  31 0d 0d f2 0d 42 45 51  20 73 6b 69 70 70 0d 0d  |1....BEQ skipp..|
000024d0  fc 10 4c 44 52 42 20 52  33 2c 5b 52 34 5d 0d 0e  |..LDRB R3,[R4]..|
000024e0  06 10 4d 4f 56 20 52 36  2c 23 31 30 32 34 0d 0e  |..MOV R6,#1024..|
000024f0  10 13 4d 4c 41 20 52 32  2c 52 36 2c 52 33 2c 52  |..MLA R2,R6,R3,R|
00002500  32 0d 0e 1a 10 41 44 44  20 52 32 2c 52 32 2c 52  |2....ADD R2,R2,R|
00002510  35 0d 0e 24 10 53 55 42  20 52 31 2c 52 31 2c 23  |5..$.SUB R1,R1,#|
00002520  34 0d 0e 2e 10 53 55 42  20 52 32 2c 52 32 2c 23  |4....SUB R2,R2,#|
00002530  34 0d 0e 38 11 4d 4f 56  20 52 31 30 2c 23 39 39  |4..8.MOV R10,#99|
00002540  32 30 0d 0e 42 0f 4d 4f  56 20 52 39 2c 23 39 39  |20..B.MOV R9,#99|
00002550  32 0d 0e 4c 0a 2e 6c 64  6e 73 6c 0d 0e 56 13 4c  |2..L..ldnsl..V.L|
00002560  44 52 20 52 31 31 2c 5b  52 32 2c 52 39 5d 0d 0e  |DR R11,[R2,R9]..|
00002570  60 14 53 54 52 20 52 31  31 2c 5b 52 31 2c 52 31  |`.STR R11,[R1,R1|
00002580  30 5d 0d 0e 6a 15 53 55  42 53 20 52 31 30 2c 52  |0]..j.SUBS R10,R|
00002590  31 30 2c 23 33 32 30 0d  0e 74 11 53 55 42 20 52  |10,#320..t.SUB R|
000025a0  39 2c 52 39 2c 23 33 32  0d 0e 7e 0d 42 50 4c 20  |9,R9,#32..~.BPL |
000025b0  6c 64 6e 73 6c 0d 0e 88  0a 2e 73 6b 69 70 70 0d  |ldnsl.....skipp.|
000025c0  0e 92 14 4c 44 52 20 52  30 2c 5b 52 31 32 2c 23  |...LDR R0,[R12,#|
000025d0  33 32 5d 0d 0e 9c 14 4c  44 52 20 52 31 2c 5b 52  |32]....LDR R1,[R|
000025e0  31 32 2c 23 31 32 5d 0d  0e a6 14 4c 44 52 20 52  |12,#12]....LDR R|
000025f0  39 2c 5b 52 31 32 2c 23  32 38 5d 0d 0e b0 10 41  |9,[R12,#28]....A|
00002600  44 44 20 52 30 2c 52 30  2c 52 31 0d 0e ba 0e 43  |DD R0,R0,R1....C|
00002610  4d 50 20 52 30 2c 23 33  35 0d 0e c4 0f 4d 4f 56  |MP R0,#35....MOV|
00002620  50 4c 20 52 30 2c 23 34  0d 0e ce 14 53 54 52 20  |PL R0,#4....STR |
00002630  52 30 2c 5b 52 31 32 2c  23 33 32 5d 0d 0e d8 12  |R0,[R12,#32]....|
00002640  41 44 44 50 4c 20 52 39  2c 52 39 2c 23 31 0d 0e  |ADDPL R9,R9,#1..|
00002650  e2 0a 2e 63 61 67 61 69  0d 0e ec 14 53 54 52 20  |...cagai....STR |
00002660  52 39 2c 5b 52 31 32 2c  23 32 38 5d 0d 0e f6 10  |R9,[R12,#28]....|
00002670  4c 44 52 42 20 52 30 2c  5b 52 39 5d 0d 0f 00 13  |LDRB R0,[R9]....|
00002680  53 55 42 53 20 52 30 2c  52 30 2c 23 31 36 30 0d  |SUBS R0,R0,#160.|
00002690  0f 0a 0d 42 4d 49 20 65  73 74 61 72 0d 0f 14 05  |...BMI estar....|
000026a0  3a 0d 0f 1e 1d 3b 20 44  65 61 6c 20 77 69 74 68  |:....; Deal with|
000026b0  20 63 6f 6e 74 72 6f 6c  20 63 6f 64 65 73 0d 0f  | control codes..|
000026c0  28 05 3a 0d 0f 32 16 4c  44 52 45 51 20 52 31 2c  |(.:..2.LDREQ R1,|
000026d0  5b 52 31 32 2c 23 32 34  5d 0d 0f 3c 16 53 54 52  |[R12,#24]..<.STR|
000026e0  45 51 20 52 31 2c 5b 52  31 32 2c 23 32 38 5d 0d  |EQ R1,[R12,#28].|
000026f0  0f 46 0d ec 51 20 50 43  2c 52 31 34 0d 0f 50 14  |.F..Q PC,R14..P.|
00002700  53 54 52 20 52 30 2c 5b  52 31 32 2c 23 31 32 5d  |STR R0,[R12,#12]|
00002710  0d 0f 5a 10 41 44 44 20  52 39 2c 52 39 2c 23 31  |..Z.ADD R9,R9,#1|
00002720  0d 0f 64 0b 42 20 63 61  67 61 69 0d 0f 6e 05 3a  |..d.B cagai..n.:|
00002730  0d 0f 78 32 3b 20 49 27  76 65 20 64 65 63 69 64  |..x2; I've decid|
00002740  65 64 20 74 6f 20 61 64  64 20 73 6f 6d 65 20 70  |ed to add some p|
00002750  69 6e 6b 20 70 61 72 61  6c 6c 61 78 20 73 74 61  |ink parallax sta|
00002760  72 73 0d 0f 82 05 3a 0d  0f 8c 0a 2e 65 73 74 61  |rs....:.....esta|
00002770  72 0d 0f 96 14 4c 44 52  20 52 30 2c 5b 52 31 32  |r....LDR R0,[R12|
00002780  2c 23 33 36 5d 0d 0f a0  14 4c 44 52 20 52 31 2c  |,#36]....LDR R1,|
00002790  5b 52 31 32 2c 23 34 30  5d 0d 0f aa 0f 4d 4f 56  |[R12,#40]....MOV|
000027a0  20 52 32 2c 23 34 30 30  0d 0f b4 0d 4d 4f 56 20  | R2,#400....MOV |
000027b0  52 35 2c 23 30 0d 0f be  11 4d 4f 56 20 52 38 2c  |R5,#0....MOV R8,|
000027c0  23 38 31 39 32 30 0d 0f  c8 14 53 55 42 20 52 38  |#81920....SUB R8|
000027d0  2c 52 38 2c 23 26 32 41  30 30 0d 0f d2 12 53 55  |,R8,#&2A00....SU|
000027e0  42 20 52 38 2c 52 38 2c  23 26 38 31 0d 0f dc 12  |B R8,R8,#&81....|
000027f0  41 44 44 20 52 39 2c 52  31 32 2c 23 34 34 0d 0f  |ADD R9,R12,#44..|
00002800  e6 0e 4d 4f 56 20 52 31  31 2c 23 31 0d 0f f0 0a  |..MOV R11,#1....|
00002810  2e 6c 73 74 61 72 0d 0f  fa 10 80 20 52 31 30 2c  |.lstar..... R10,|
00002820  52 32 2c 23 31 31 0d 10  04 14 4c 44 52 42 20 52  |R2,#11....LDRB R|
00002830  37 2c 5b 52 39 2c 52 31  30 5d 0d 10 0e 0f 4c 44  |7,[R9,R10]....LD|
00002840  52 20 52 33 2c 5b 52 30  5d 0d 10 18 10 4c 44 52  |R R3,[R0]....LDR|
00002850  42 20 52 34 2c 5b 52 33  5d 0d 10 22 0d 43 4d 50  |B R4,[R3]..".CMP|
00002860  20 52 34 2c 52 37 0d 10  2c 12 53 54 52 45 51 42  | R4,R7..,.STREQB|
00002870  20 52 35 2c 5b 52 33 5d  0d 10 36 0f 80 20 52 36  | R5,[R3]..6.. R6|
00002880  2c 52 32 2c 23 31 31 0d  10 40 18 41 44 44 20 52  |,R2,#11..@.ADD R|
00002890  36 2c 52 31 31 2c 52 36  2c 4c 53 52 20 23 31 0d  |6,R11,R6,LSR #1.|
000028a0  10 4a 10 41 44 44 20 52  33 2c 52 33 2c 52 36 0d  |.J.ADD R3,R3,R6.|
000028b0  10 54 0d 43 4d 50 20 52  33 2c 52 31 0d 10 5e 12  |.T.CMP R3,R1..^.|
000028c0  53 55 42 50 4c 20 52 33  2c 52 33 2c 52 38 0d 10  |SUBPL R3,R3,R8..|
000028d0  68 10 4c 44 52 42 20 52  34 2c 5b 52 33 5d 0d 10  |h.LDRB R4,[R3]..|
000028e0  72 0d 43 4d 50 20 52 34  2c 23 30 0d 10 7c 12 53  |r.CMP R4,#0..|.S|
000028f0  54 52 45 51 42 20 52 37  2c 5b 52 33 5d 0d 10 86  |TREQB R7,[R3]...|
00002900  12 53 54 52 20 52 33 2c  5b 52 30 5d 2c 23 34 0d  |.STR R3,[R0],#4.|
00002910  10 90 11 53 55 42 53 20  52 32 2c 52 32 2c 23 31  |...SUBS R2,R2,#1|
00002920  0d 10 9a 0d 42 4e 45 20  6c 73 74 61 72 0d 10 a4  |....BNE lstar...|
00002930  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 10 ae 05 3a  |.MOV PC,R14....:|
00002940  0d 10 b8 3b 3b 20 44 61  74 61 62 61 79 20 66 6f  |...;; Databay fo|
00002950  72 20 66 6f 6e 74 20 64  69 73 70 6c 61 79 20 2f  |r font display /|
00002960  20 73 63 72 6f 6c 6c 74  65 78 74 20 2f 20 73 74  | scrolltext / st|
00002970  61 72 20 72 6f 75 74 69  6e 65 73 0d 10 c2 05 3b  |ar routines....;|
00002980  0d 10 cc 21 3b 20 59 75  63 6b 20 2d 20 74 68 69  |...!; Yuck - thi|
00002990  73 20 69 73 20 63 61 63  6b 2e 20 53 6f 72 72 79  |s is cack. Sorry|
000029a0  2e 0d 10 d6 05 3a 0d 10  e0 0a 2e 62 64 61 74 61  |.....:.....bdata|
000029b0  0d 10 ea 2f 45 51 55 44  20 62 66 6f 6e 74 25 20  |.../EQUD bfont% |
000029c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
000029d0  46 6f 6e 74 20 64 61 74  61 20 73 74 61 72 74 0d  |Font data start.|
000029e0  10 f4 31 45 51 55 44 20  6b 6c 75 64 67 65 5f 73  |..1EQUD kludge_s|
000029f0  63 72 65 65 6e 20 20 20  20 20 20 20 20 20 20 20  |creen           |
00002a00  20 20 3b 20 53 63 72 65  65 6e 20 73 74 61 72 74  |  ; Screen start|
00002a10  0d 10 fe 38 45 51 55 44  20 28 6b 6c 75 64 67 65  |...8EQUD (kludge|
00002a20  5f 73 63 72 65 65 6e 2b  28 33 32 30 2a 32 32 34  |_screen+(320*224|
00002a30  29 29 20 3b 20 50 6c 61  63 65 20 74 6f 20 70 72  |)) ; Place to pr|
00002a40  69 6e 74 20 74 65 78 74  0d 11 08 39 45 51 55 44  |int text...9EQUD|
00002a50  20 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 4              |
00002a60  20 20 20 20 20 20 3b 20  53 63 72 6f 6c 6c 20 72  |      ; Scroll r|
00002a70  61 74 65 20 2d 20 62 79  74 65 73 2f 76 73 79 6e  |ate - bytes/vsyn|
00002a80  63 0d 11 12 3a 45 51 55  44 20 28 6b 6c 75 64 67  |c...:EQUD (kludg|
00002a90  65 5f 73 63 72 65 65 6e  2b 28 33 32 30 2a 32 32  |e_screen+(320*22|
00002aa0  35 29 29 20 3b 20 50 6f  69 6e 74 20 74 6f 20 61  |5)) ; Point to a|
00002ab0  64 64 20 6e 65 77 20 64  61 74 61 0d 11 1c 33 45  |dd new data...3E|
00002ac0  51 55 44 20 62 67 72 61  66 25 20 20 20 20 20 20  |QUD bgraf%      |
00002ad0  20 20 20 20 20 20 20 20  20 3b 20 47 72 61 70 68  |         ; Graph|
00002ae0  69 63 73 20 64 61 74 61  20 73 74 61 72 74 0d 11  |ics data start..|
00002af0  26 2a 45 51 55 44 20 62  74 65 78 74 25 20 20 20  |&*EQUD btext%   |
00002b00  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 54 65  |            ; Te|
00002b10  78 74 20 73 74 61 72 74  0d 11 30 34 45 51 55 44  |xt start..04EQUD|
00002b20  20 62 74 65 78 74 25 20  20 20 20 20 20 20 20 20  | btext%         |
00002b30  20 20 20 20 20 20 3b 20  43 75 72 72 65 6e 74 20  |      ; Current |
00002b40  74 65 78 74 20 70 6f 69  6e 74 65 72 0d 11 3a 38  |text pointer..:8|
00002b50  45 51 55 44 20 34 20 20  20 20 20 20 20 20 20 20  |EQUD 4          |
00002b60  20 20 20 20 20 20 20 20  20 20 3b 20 4e 65 78 74  |          ; Next|
00002b70  20 70 61 72 74 20 74 6f  20 62 65 20 72 65 76 65  | part to be reve|
00002b80  61 6c 65 64 0d 11 44 3f  45 51 55 44 20 62 73 74  |aled..D?EQUD bst|
00002b90  61 72 25 20 20 20 20 20  20 20 20 20 20 20 20 20  |ar%             |
00002ba0  20 20 3b 20 49 27 76 65  20 64 65 63 69 64 65 64  |  ; I've decided|
00002bb0  20 74 6f 20 68 61 76 65  20 73 6f 6d 65 20 73 74  | to have some st|
00002bc0  61 72 73 0d 11 4e 3c 45  51 55 44 20 6b 6c 75 64  |ars..N<EQUD klud|
00002bd0  67 65 5f 73 63 72 65 65  6e 2b 26 31 33 46 46 46  |ge_screen+&13FFF|
00002be0  2d 28 33 32 30 2a 33 34  29 20 20 20 20 3b 20 45  |-(320*34)    ; E|
00002bf0  6e 64 20 6f 66 20 73 74  61 72 20 61 72 65 61 0d  |nd of star area.|
00002c00  11 58 23 45 51 55 42 20  31 32 3a 45 51 55 42 20  |.X#EQUB 12:EQUB |
00002c10  31 33 3a 45 51 55 42 20  31 34 3a 45 51 55 42 20  |13:EQUB 14:EQUB |
00002c20  31 35 0d 11 62 27 45 51  55 42 20 31 37 36 3a 45  |15..b'EQUB 176:E|
00002c30  51 55 42 20 31 37 37 3a  45 51 55 42 20 31 37 38  |QUB 177:EQUB 178|
00002c40  3a 45 51 55 42 20 31 37  39 0d 11 6c 36 45 51 55  |:EQUB 179..l6EQU|
00002c50  42 20 32 32 30 3a 45 51  55 42 20 32 32 31 3a 45  |B 220:EQUB 221:E|
00002c60  51 55 42 20 32 32 32 3a  45 51 55 42 20 32 32 33  |QUB 222:EQUB 223|
00002c70  20 3b 20 53 74 61 72 20  63 6f 6c 6f 75 72 73 0d  | ; Star colours.|
00002c80  11 76 33 45 51 55 44 20  62 74 63 6f 6c 25 20 20  |.v3EQUD btcol%  |
00002c90  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 50  |             ; P|
00002ca0  74 72 20 74 6f 20 63 6f  6c 6f 75 72 20 74 61 62  |tr to colour tab|
00002cb0  6c 65 0d 11 80 05 3a 0d  11 8a 19 3b 20 43 6f 6c  |le....:....; Col|
00002cc0  6f 75 72 20 66 61 64 65  20 72 6f 75 74 69 6e 65  |our fade routine|
00002cd0  0d 11 94 05 3a 0d 11 9e  0a 2e 65 63 66 61 64 0d  |....:.....ecfad.|
00002ce0  11 a8 11 41 44 52 20 52  31 32 2c 62 64 61 74 61  |...ADR R12,bdata|
00002cf0  0d 11 b2 0f 4d 4f 56 20  52 31 31 2c 23 32 33 0d  |....MOV R11,#23.|
00002d00  11 bc 14 4c 44 52 20 52  31 30 2c 5b 52 31 32 2c  |...LDR R10,[R12,|
00002d10  23 34 5d 0d 11 c6 14 4c  44 52 20 52 33 2c 5b 52  |#4]....LDR R3,[R|
00002d20  31 32 2c 23 35 36 5d 0d  11 d0 0f 4d 4f 56 20 52  |12,#56]....MOV R|
00002d30  39 2c 23 32 35 35 0d 11  da 0a 2e 6c 63 66 76 73  |9,#255.....lcfvs|
00002d40  0d 11 e4 0e 4d 4f 56 20  52 34 2c 52 31 30 0d 11  |....MOV R4,R10..|
00002d50  ee 15 4d 4f 56 20 52 35  2c 23 28 38 31 39 32 30  |..MOV R5,#(81920|
00002d60  2f 34 29 0d 11 f8 0a 2e  6c 63 66 73 66 0d 12 02  |/4).....lcfsf...|
00002d70  0f 4c 44 52 20 52 36 2c  5b 52 34 5d 0d 12 0c 14  |.LDR R6,[R4]....|
00002d80  80 20 52 38 2c 52 39 2c  52 36 2c 41 53 4c 23 30  |. R8,R9,R6,ASL#0|
00002d90  0d 12 16 18 4c 44 52 20  52 37 2c 5b 52 33 2c 52  |....LDR R7,[R3,R|
00002da0  38 2c 41 53 4c 23 32 5d  0d 12 20 14 80 20 52 38  |8,ASL#2].. .. R8|
00002db0  2c 52 39 2c 52 36 2c 4c  53 52 23 38 0d 12 2a 18  |,R9,R6,LSR#8..*.|
00002dc0  4c 44 52 20 52 30 2c 5b  52 33 2c 52 38 2c 41 53  |LDR R0,[R3,R8,AS|
00002dd0  4c 23 32 5d 0d 12 34 16  41 44 44 20 52 37 2c 52  |L#2]..4.ADD R7,R|
00002de0  37 2c 52 30 2c 41 53 4c  23 38 0d 12 3e 15 80 20  |7,R0,ASL#8..>.. |
00002df0  52 38 2c 52 39 2c 52 36  2c 4c 53 52 23 31 36 0d  |R8,R9,R6,LSR#16.|
00002e00  12 48 18 4c 44 52 20 52  30 2c 5b 52 33 2c 52 38  |.H.LDR R0,[R3,R8|
00002e10  2c 41 53 4c 23 32 5d 0d  12 52 17 41 44 44 20 52  |,ASL#2]..R.ADD R|
00002e20  37 2c 52 37 2c 52 30 2c  41 53 4c 23 31 36 0d 12  |7,R7,R0,ASL#16..|
00002e30  5c 15 80 20 52 38 2c 52  39 2c 52 36 2c 4c 53 52  |\.. R8,R9,R6,LSR|
00002e40  23 32 34 0d 12 66 18 4c  44 52 20 52 30 2c 5b 52  |#24..f.LDR R0,[R|
00002e50  33 2c 52 38 2c 41 53 4c  23 32 5d 0d 12 70 17 41  |3,R8,ASL#2]..p.A|
00002e60  44 44 20 52 37 2c 52 37  2c 52 30 2c 41 53 4c 23  |DD R7,R7,R0,ASL#|
00002e70  32 34 0d 12 7a 12 53 54  52 20 52 37 2c 5b 52 34  |24..z.STR R7,[R4|
00002e80  5d 2c 23 34 0d 12 84 11  53 55 42 53 20 52 35 2c  |],#4....SUBS R5,|
00002e90  52 35 2c 23 31 0d 12 8e  0d 42 4e 45 20 6c 63 66  |R5,#1....BNE lcf|
00002ea0  73 66 0d 12 98 0e 4d 4f  56 20 52 30 2c 23 31 39  |sf....MOV R0,#19|
00002eb0  0d 12 a2 11 53 57 49 20  22 4f 53 5f 42 79 74 65  |....SWI "OS_Byte|
00002ec0  22 0d 12 ac 13 53 55 42  53 20 52 31 31 2c 52 31  |"....SUBS R11,R1|
00002ed0  31 2c 23 31 0d 12 b6 0d  42 4e 45 20 6c 63 66 76  |1,#1....BNE lcfv|
00002ee0  73 0d 12 c0 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |s....MOV PC,R14.|
00002ef0  12 ca 05 3a 0d 12 d4 1a  3b 20 46 69 6c 6c 20 77  |...:....; Fill w|
00002f00  69 74 68 20 7a 65 72 6f  20 62 79 74 65 73 0d 12  |ith zero bytes..|
00002f10  de 05 3a 0d 12 e8 0a 2e  65 7a 65 72 6f 0d 12 f2  |..:.....ezero...|
00002f20  0d 4d 4f 56 20 52 32 2c  23 30 0d 12 fc 0a 2e 6c  |.MOV R2,#0.....l|
00002f30  7a 65 72 6f 0d 13 06 13  53 54 52 42 20 52 32 2c  |zero....STRB R2,|
00002f40  5b 52 30 5d 2c 23 31 0d  13 10 11 53 55 42 53 20  |[R0],#1....SUBS |
00002f50  52 31 2c 52 31 2c 23 31  0d 13 1a 0d 42 4e 45 20  |R1,R1,#1....BNE |
00002f60  6c 7a 65 72 6f 0d 13 24  0e 4d 4f 56 20 50 43 2c  |lzero..$.MOV PC,|
00002f70  52 31 34 0d 13 2e 05 3a  0d 13 38 10 3b 20 43 6f  |R14....:..8.; Co|
00002f80  70 79 20 62 79 74 65 73  0d 13 42 05 3a 0d 13 4c  |py bytes..B.:..L|
00002f90  0a 2e 65 63 6f 70 79 0d  13 56 13 4c 44 52 42 20  |..ecopy..V.LDRB |
00002fa0  52 33 2c 5b 52 30 5d 2c  23 31 0d 13 60 13 53 54  |R3,[R0],#1..`.ST|
00002fb0  52 42 20 52 33 2c 5b 52  31 5d 2c 23 31 0d 13 6a  |RB R3,[R1],#1..j|
00002fc0  11 53 55 42 53 20 52 32  2c 52 32 2c 23 31 0d 13  |.SUBS R2,R2,#1..|
00002fd0  74 0d 42 4e 45 20 65 63  6f 70 79 0d 13 7e 0e 4d  |t.BNE ecopy..~.M|
00002fe0  4f 56 20 50 43 2c 52 31  34 0d 13 88 05 3a 0d 13  |OV PC,R14....:..|
00002ff0  92 1b 3b 20 47 61 6d 65  2d 70 6c 61 79 69 6e 67  |..; Game-playing|
00003000  20 72 6f 75 74 69 6e 65  73 0d 13 9c 05 3a 0d 13  | routines....:..|
00003010  a6 10 2e 65 67 5f 73 68  6f 77 74 69 6d 65 0d 13  |...eg_showtime..|
00003020  b0 12 a4 61 64 72 28 31  32 2c 62 67 64 61 74 29  |...adr(12,bgdat)|
00003030  0d 13 ba 13 4c 44 52 20  52 31 2c 5b 52 31 32 2c  |....LDR R1,[R12,|
00003040  23 30 5d 0d 13 c4 0f 4d  4f 56 20 52 32 2c 23 32  |#0]....MOV R2,#2|
00003050  35 35 0d 13 ce 10 53 55  42 20 52 34 2c 52 32 2c  |55....SUB R4,R2,|
00003060  52 30 0d 13 d8 10 41 44  44 20 52 34 2c 52 34 2c  |R0....ADD R4,R4,|
00003070  23 31 0d 13 e2 0f 4d 4f  56 20 52 33 2c 23 33 32  |#1....MOV R3,#32|
00003080  30 0d 13 ec 13 4d 4c 41  20 52 31 2c 52 34 2c 52  |0....MLA R1,R4,R|
00003090  33 2c 52 31 0d 13 f6 0a  2e 6c 73 68 74 69 0d 14  |3,R1.....lshti..|
000030a0  00 14 4c 44 4d 49 41 20  52 31 2c 7b 52 34 2d 52  |..LDMIA R1,{R4-R|
000030b0  37 7d 0d 14 0a 0f 80 53  20 52 38 2c 52 32 2c 52  |7}.....S R8,R2,R|
000030c0  34 0d 14 14 0f 4d 4f 56  20 52 38 2c 23 31 36 30  |4....MOV R8,#160|
000030d0  0d 14 1e 15 53 54 52 45  51 42 20 52 38 2c 5b 52  |....STREQB R8,[R|
000030e0  31 2c 23 30 5d 0d 14 28  15 80 53 20 52 38 2c 52  |1,#0]..(..S R8,R|
000030f0  32 2c 52 34 2c 4c 53 52  23 38 0d 14 32 0f 4d 4f  |2,R4,LSR#8..2.MO|
00003100  56 20 52 38 2c 23 31 36  31 0d 14 3c 15 53 54 52  |V R8,#161..<.STR|
00003110  45 51 42 20 52 38 2c 5b  52 31 2c 23 31 5d 0d 14  |EQB R8,[R1,#1]..|
00003120  46 16 80 53 20 52 38 2c  52 32 2c 52 34 2c 4c 53  |F..S R8,R2,R4,LS|
00003130  52 23 31 36 0d 14 50 0f  4d 4f 56 20 52 38 2c 23  |R#16..P.MOV R8,#|
00003140  31 36 32 0d 14 5a 15 53  54 52 45 51 42 20 52 38  |162..Z.STREQB R8|
00003150  2c 5b 52 31 2c 23 32 5d  0d 14 64 16 80 53 20 52  |,[R1,#2]..d..S R|
00003160  38 2c 52 32 2c 52 34 2c  4c 53 52 23 32 34 0d 14  |8,R2,R4,LSR#24..|
00003170  6e 0f 4d 4f 56 20 52 38  2c 23 31 36 33 0d 14 78  |n.MOV R8,#163..x|
00003180  15 53 54 52 45 51 42 20  52 38 2c 5b 52 31 2c 23  |.STREQB R8,[R1,#|
00003190  33 5d 0d 14 82 0f 80 53  20 52 38 2c 52 32 2c 52  |3].....S R8,R2,R|
000031a0  35 0d 14 8c 0f 4d 4f 56  20 52 38 2c 23 32 30 34  |5....MOV R8,#204|
000031b0  0d 14 96 15 53 54 52 45  51 42 20 52 38 2c 5b 52  |....STREQB R8,[R|
000031c0  31 2c 23 34 5d 0d 14 a0  15 80 53 20 52 38 2c 52  |1,#4].....S R8,R|
000031d0  32 2c 52 35 2c 4c 53 52  23 38 0d 14 aa 0f 4d 4f  |2,R5,LSR#8....MO|
000031e0  56 20 52 38 2c 23 32 30  35 0d 14 b4 15 53 54 52  |V R8,#205....STR|
000031f0  45 51 42 20 52 38 2c 5b  52 31 2c 23 35 5d 0d 14  |EQB R8,[R1,#5]..|
00003200  be 16 80 53 20 52 38 2c  52 32 2c 52 35 2c 4c 53  |...S R8,R2,R5,LS|
00003210  52 23 31 36 0d 14 c8 0f  4d 4f 56 20 52 38 2c 23  |R#16....MOV R8,#|
00003220  32 30 36 0d 14 d2 15 53  54 52 45 51 42 20 52 38  |206....STREQB R8|
00003230  2c 5b 52 31 2c 23 36 5d  0d 14 dc 16 80 53 20 52  |,[R1,#6].....S R|
00003240  38 2c 52 32 2c 52 35 2c  4c 53 52 23 32 34 0d 14  |8,R2,R5,LSR#24..|
00003250  e6 0f 4d 4f 56 20 52 38  2c 23 32 30 37 0d 14 f0  |..MOV R8,#207...|
00003260  15 53 54 52 45 51 42 20  52 38 2c 5b 52 31 2c 23  |.STREQB R8,[R1,#|
00003270  37 5d 0d 14 fa 0f 80 53  20 52 38 2c 52 32 2c 52  |7].....S R8,R2,R|
00003280  36 0d 15 04 0f 4d 4f 56  20 52 38 2c 23 32 30 36  |6....MOV R8,#206|
00003290  0d 15 0e 15 53 54 52 45  51 42 20 52 38 2c 5b 52  |....STREQB R8,[R|
000032a0  31 2c 23 38 5d 0d 15 18  15 80 53 20 52 38 2c 52  |1,#8].....S R8,R|
000032b0  32 2c 52 36 2c 4c 53 52  23 38 0d 15 22 0f 4d 4f  |2,R6,LSR#8..".MO|
000032c0  56 20 52 38 2c 23 32 30  35 0d 15 2c 15 53 54 52  |V R8,#205..,.STR|
000032d0  45 51 42 20 52 38 2c 5b  52 31 2c 23 39 5d 0d 15  |EQB R8,[R1,#9]..|
000032e0  36 16 80 53 20 52 38 2c  52 32 2c 52 36 2c 4c 53  |6..S R8,R2,R6,LS|
000032f0  52 23 31 36 0d 15 40 0f  4d 4f 56 20 52 38 2c 23  |R#16..@.MOV R8,#|
00003300  32 30 34 0d 15 4a 16 53  54 52 45 51 42 20 52 38  |204..J.STREQB R8|
00003310  2c 5b 52 31 2c 23 31 30  5d 0d 15 54 16 80 53 20  |,[R1,#10]..T..S |
00003320  52 38 2c 52 32 2c 52 36  2c 4c 53 52 23 32 34 0d  |R8,R2,R6,LSR#24.|
00003330  15 5e 0f 4d 4f 56 20 52  38 2c 23 31 36 33 0d 15  |.^.MOV R8,#163..|
00003340  68 16 53 54 52 45 51 42  20 52 38 2c 5b 52 31 2c  |h.STREQB R8,[R1,|
00003350  23 31 31 5d 0d 15 72 0f  80 53 20 52 38 2c 52 32  |#11]..r..S R8,R2|
00003360  2c 52 37 0d 15 7c 0f 4d  4f 56 20 52 38 2c 23 31  |,R7..|.MOV R8,#1|
00003370  36 32 0d 15 86 16 53 54  52 45 51 42 20 52 38 2c  |62....STREQB R8,|
00003380  5b 52 31 2c 23 31 32 5d  0d 15 90 15 80 53 20 52  |[R1,#12].....S R|
00003390  38 2c 52 32 2c 52 37 2c  4c 53 52 23 38 0d 15 9a  |8,R2,R7,LSR#8...|
000033a0  0f 4d 4f 56 20 52 38 2c  23 31 36 31 0d 15 a4 16  |.MOV R8,#161....|
000033b0  53 54 52 45 51 42 20 52  38 2c 5b 52 31 2c 23 31  |STREQB R8,[R1,#1|
000033c0  33 5d 0d 15 ae 16 80 53  20 52 38 2c 52 32 2c 52  |3].....S R8,R2,R|
000033d0  37 2c 4c 53 52 23 31 36  0d 15 b8 0f 4d 4f 56 20  |7,LSR#16....MOV |
000033e0  52 38 2c 23 31 36 30 0d  15 c2 16 53 54 52 45 51  |R8,#160....STREQ|
000033f0  42 20 52 38 2c 5b 52 31  2c 23 31 34 5d 0d 15 cc  |B R8,[R1,#14]...|
00003400  10 41 44 44 20 52 31 2c  52 31 2c 52 33 0d 15 d6  |.ADD R1,R1,R3...|
00003410  11 53 55 42 53 20 52 30  2c 52 30 2c 23 31 0d 15  |.SUBS R0,R0,#1..|
00003420  e0 0d 42 4e 45 20 6c 73  68 74 69 0d 15 ea 0e 4d  |..BNE lshti....M|
00003430  4f 56 20 50 43 2c 52 31  34 0d 15 f4 05 3a 0d 15  |OV PC,R14....:..|
00003440  fe 10 2e 65 67 5f 73 68  6f 77 6c 69 66 65 0d 16  |...eg_showlife..|
00003450  08 12 a4 61 64 72 28 31  32 2c 62 67 64 61 74 29  |...adr(12,bgdat)|
00003460  0d 16 12 14 53 54 52 20  52 31 34 2c 5b 52 31 32  |....STR R14,[R12|
00003470  2c 23 34 5d 0d 16 1c 13  53 54 52 20 52 31 2c 5b  |,#4]....STR R1,[|
00003480  52 31 32 2c 23 38 5d 0d  16 26 11 41 44 44 20 52  |R12,#8]..&.ADD R|
00003490  30 2c 52 30 2c 23 34 38  0d 16 30 0f 4d 4f 56 20  |0,R0,#48..0.MOV |
000034a0  52 31 2c 23 33 30 34 0d  16 3a 0f 4d 4f 56 20 52  |R1,#304..:.MOV R|
000034b0  32 2c 23 32 34 30 0d 16  44 0c 42 4c 20 65 70 73  |2,#240..D.BL eps|
000034c0  6d 6c 0d 16 4e 12 a4 61  64 72 28 31 32 2c 62 67  |ml..N..adr(12,bg|
000034d0  64 61 74 29 0d 16 58 14  4c 44 52 20 52 31 34 2c  |dat)..X.LDR R14,|
000034e0  5b 52 31 32 2c 23 34 5d  0d 16 62 13 4c 44 52 20  |[R12,#4]..b.LDR |
000034f0  52 30 2c 5b 52 31 32 2c  23 38 5d 0d 16 6c 0e 43  |R0,[R12,#8]..l.C|
00003500  4d 50 20 52 30 2c 23 31  35 0d 16 76 10 4d 4f 56  |MP R0,#15..v.MOV|
00003510  50 4c 20 52 30 2c 23 31  35 0d 16 80 13 4c 44 52  |PL R0,#15....LDR|
00003520  20 52 31 2c 5b 52 31 32  2c 23 30 5d 0d 16 8a 0f  | R1,[R12,#0]....|
00003530  4d 4f 56 20 52 32 2c 23  32 35 35 0d 16 94 10 53  |MOV R2,#255....S|
00003540  55 42 20 52 34 2c 52 32  2c 52 30 0d 16 9e 0f 4d  |UB R4,R2,R0....M|
00003550  4f 56 20 52 33 2c 23 33  32 30 0d 16 a8 13 4d 4c  |OV R3,#320....ML|
00003560  41 20 52 31 2c 52 34 2c  52 33 2c 52 31 0d 16 b2  |A R1,R4,R3,R1...|
00003570  10 41 44 44 20 52 30 2c  52 30 2c 23 31 0d 16 bc  |.ADD R0,R0,#1...|
00003580  0b 42 20 6c 73 68 74 69  0d 16 c6 05 3a 0d 16 d0  |.B lshti....:...|
00003590  10 2e 65 67 5f 73 68 6f  77 73 63 6f 72 0d 16 da  |..eg_showscor...|
000035a0  12 a4 61 64 72 28 31 32  2c 62 67 64 61 74 29 0d  |..adr(12,bgdat).|
000035b0  16 e4 10 53 55 42 20 52  31 2c 52 31 2c 23 31 0d  |...SUB R1,R1,#1.|
000035c0  16 ee 14 53 54 52 20 52  31 34 2c 5b 52 31 32 2c  |...STR R14,[R12,|
000035d0  23 34 5d 0d 16 f8 13 53  54 52 20 52 31 2c 5b 52  |#4]....STR R1,[R|
000035e0  31 32 2c 23 38 5d 0d 17  02 14 4c 44 52 20 52 31  |12,#8]....LDR R1|
000035f0  2c 5b 52 31 32 2c 23 31  32 5d 0d 17 0c 0f 4d 4f  |,[R12,#12]....MO|
00003600  56 20 52 32 2c 23 35 31  32 0d 17 16 1d 53 57 49  |V R2,#512....SWI|
00003610  20 22 4f 53 5f 43 6f 6e  76 65 72 74 43 61 72 64  | "OS_ConvertCard|
00003620  69 6e 61 6c 33 22 0d 17  20 0e 4d 4f 56 20 52 32  |inal3".. .MOV R2|
00003630  2c 23 38 31 0d 17 2a 0a  2e 6c 70 73 63 6f 0d 17  |,#81..*..lpsco..|
00003640  34 13 4c 44 52 42 20 52  31 2c 5b 52 30 5d 2c 23  |4.LDRB R1,[R0],#|
00003650  31 0d 17 3e 0d 43 4d 50  20 52 31 2c 23 30 0d 17  |1..>.CMP R1,#0..|
00003660  48 11 42 45 51 20 65 67  5f 72 74 73 63 6f 72 0d  |H.BEQ eg_rtscor.|
00003670  17 52 14 53 54 52 20 52  30 2c 5b 52 31 32 2c 23  |.R.STR R0,[R12,#|
00003680  31 36 5d 0d 17 5c 14 53  54 52 20 52 32 2c 5b 52  |16]..\.STR R2,[R|
00003690  31 32 2c 23 32 30 5d 0d  17 66 0d 4d 4f 56 20 52  |12,#20]..f.MOV R|
000036a0  30 2c 52 31 0d 17 70 0f  4d 4f 56 20 52 31 2c 23  |0,R1..p.MOV R1,#|
000036b0  33 30 34 0d 17 7a 0c 42  4c 20 65 70 73 6d 6c 0d  |304..z.BL epsml.|
000036c0  17 84 12 a4 61 64 72 28  31 32 2c 62 67 64 61 74  |....adr(12,bgdat|
000036d0  29 0d 17 8e 14 4c 44 52  20 52 30 2c 5b 52 31 32  |)....LDR R0,[R12|
000036e0  2c 23 31 36 5d 0d 17 98  14 4c 44 52 20 52 32 2c  |,#16]....LDR R2,|
000036f0  5b 52 31 32 2c 23 32 30  5d 0d 17 a2 11 41 44 44  |[R12,#20]....ADD|
00003700  20 52 32 2c 52 32 2c 23  31 36 0d 17 ac 0b 42 20  | R2,R2,#16....B |
00003710  6c 70 73 63 6f 0d 17 b6  0e 2e 65 67 5f 72 74 73  |lpsco.....eg_rts|
00003720  63 6f 72 0d 17 c0 12 a4  61 64 72 28 31 32 2c 62  |cor.....adr(12,b|
00003730  67 64 61 74 29 0d 17 ca  0e 4d 4f 56 20 52 31 31  |gdat)....MOV R11|
00003740  2c 52 32 0d 17 d4 14 4c  44 52 20 52 31 34 2c 5b  |,R2....LDR R14,[|
00003750  52 31 32 2c 23 34 5d 0d  17 de 13 4c 44 52 20 52  |R12,#4]....LDR R|
00003760  30 2c 5b 52 31 32 2c 23  38 5d 0d 17 e8 0f 43 4d  |0,[R12,#8]....CM|
00003770  50 20 52 30 2c 23 31 37  34 0d 17 f2 11 4d 4f 56  |P R0,#174....MOV|
00003780  50 4c 20 52 30 2c 23 31  37 34 0d 17 fc 13 4c 44  |PL R0,#174....LD|
00003790  52 20 52 31 2c 5b 52 31  32 2c 23 30 5d 0d 18 06  |R R1,[R12,#0]...|
000037a0  0f 4d 4f 56 20 52 32 2c  23 32 35 35 0d 18 10 10  |.MOV R2,#255....|
000037b0  53 55 42 20 52 34 2c 52  32 2c 52 30 0d 18 1a 0e  |SUB R4,R2,R0....|
000037c0  43 4d 50 20 52 34 2c 52  31 31 0d 18 24 10 4d 4f  |CMP R4,R11..$.MO|
000037d0  56 50 4c 20 50 43 2c 52  31 34 0d 18 2e 0f 4d 4f  |VPL PC,R14....MO|
000037e0  56 20 52 33 2c 23 33 32  30 0d 18 38 13 4d 4c 41  |V R3,#320..8.MLA|
000037f0  20 52 31 2c 52 34 2c 52  33 2c 52 31 0d 18 42 11  | R1,R4,R3,R1..B.|
00003800  53 55 42 20 52 30 2c 52  31 31 2c 52 34 0d 18 4c  |SUB R0,R11,R4..L|
00003810  0b 42 20 6c 73 68 74 69  0d 18 56 05 3a 0d 18 60  |.B lshti..V.:..`|
00003820  10 2e 65 67 5f 73 68 6f  77 6d 69 64 73 0d 18 6a  |..eg_showmids..j|
00003830  12 a4 61 64 72 28 31 32  2c 62 67 64 61 74 29 0d  |..adr(12,bgdat).|
00003840  18 74 14 4c 44 52 20 52  33 2c 5b 52 31 32 2c 23  |.t.LDR R3,[R12,#|
00003850  32 34 5d 0d 18 7e 0f 4d  4f 56 20 52 34 2c 23 32  |24]..~.MOV R4,#2|
00003860  35 36 0d 18 88 13 4d 4c  41 20 52 33 2c 52 34 2c  |56....MLA R3,R4,|
00003870  52 32 2c 52 33 0d 18 92  11 52 53 42 53 20 52 34  |R2,R3....RSBS R4|
00003880  2c 52 30 2c 23 32 0d 18  9c 0f 4d 4f 56 4d 49 20  |,R0,#2....MOVMI |
00003890  52 34 2c 23 30 0d 18 a6  11 52 53 42 20 52 35 2c  |R4,#0....RSB R5,|
000038a0  52 30 2c 23 31 39 0d 18  b0 0d 43 4d 50 20 52 35  |R0,#19....CMP R5|
000038b0  2c 23 37 0d 18 ba 0f 4d  4f 56 50 4c 20 52 35 2c  |,#7....MOVPL R5,|
000038c0  23 37 0d 18 c4 10 53 55  42 20 52 30 2c 52 35 2c  |#7....SUB R0,R5,|
000038d0  52 34 0d 18 ce 11 52 53  42 53 20 52 32 2c 52 31  |R4....RSBS R2,R1|
000038e0  2c 23 32 0d 18 d8 0f 4d  4f 56 4d 49 20 52 32 2c  |,#2....MOVMI R2,|
000038f0  23 30 0d 18 e2 11 52 53  42 20 52 35 2c 52 31 2c  |#0....RSB R5,R1,|
00003900  23 31 39 0d 18 ec 0d 43  4d 50 20 52 35 2c 23 36  |#19....CMP R5,#6|
00003910  0d 18 f6 0f 4d 4f 56 50  4c 20 52 35 2c 23 36 0d  |....MOVPL R5,#6.|
00003920  19 00 10 53 55 42 20 52  31 2c 52 35 2c 52 32 0d  |...SUB R1,R5,R2.|
00003930  19 0a 0a 2e 6c 70 6d 64  79 0d 19 14 0d 4d 4f 56  |....lpmdy....MOV|
00003940  20 52 35 2c 52 30 0d 19  1e 0d 4d 4f 56 20 52 36  | R5,R0....MOV R6|
00003950  2c 52 34 0d 19 28 0a 2e  6c 70 6d 64 78 0d 19 32  |,R4..(..lpmdx..2|
00003960  13 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 7d  |.STMFD R13!,{R0}|
00003970  0d 19 3c 15 4c 44 52 20  52 30 2c 5b 52 31 32 2c  |..<.LDR R0,[R12,|
00003980  23 2d 31 32 5d 0d 19 46  14 4c 44 52 20 52 39 2c  |#-12]..F.LDR R9,|
00003990  5b 52 31 32 2c 23 2d 34  5d 0d 19 50 14 4c 44 52  |[R12,#-4]..P.LDR|
000039a0  20 52 37 2c 5b 52 31 32  2c 23 32 38 5d 0d 19 5a  | R7,[R12,#28]..Z|
000039b0  0e 4d 4f 56 20 52 38 2c  23 34 38 0d 19 64 13 4d  |.MOV R8,#48..d.M|
000039c0  4c 41 20 52 37 2c 52 38  2c 52 36 2c 52 37 0d 19  |LA R7,R8,R6,R7..|
000039d0  6e 13 4d 4c 41 20 52 37  2c 52 39 2c 52 32 2c 52  |n.MLA R7,R9,R2,R|
000039e0  37 0d 19 78 16 4c 44 4d  49 41 20 52 33 21 2c 7b  |7..x.LDMIA R3!,{|
000039f0  52 38 2d 52 31 31 7d 0d  19 82 15 53 54 4d 49 41  |R8-R11}....STMIA|
00003a00  20 52 37 2c 7b 52 38 2d  52 31 31 7d 0d 19 8c 10  | R7,{R8-R11}....|
00003a10  41 44 44 20 52 37 2c 52  37 2c 52 30 0d 19 96 16  |ADD R7,R7,R0....|
00003a20  4c 44 4d 49 41 20 52 33  21 2c 7b 52 38 2d 52 31  |LDMIA R3!,{R8-R1|
00003a30  31 7d 0d 19 a0 15 53 54  4d 49 41 20 52 37 2c 7b  |1}....STMIA R7,{|
00003a40  52 38 2d 52 31 31 7d 0d  19 aa 10 41 44 44 20 52  |R8-R11}....ADD R|
00003a50  37 2c 52 37 2c 52 30 0d  19 b4 16 4c 44 4d 49 41  |7,R7,R0....LDMIA|
00003a60  20 52 33 21 2c 7b 52 38  2d 52 31 31 7d 0d 19 be  | R3!,{R8-R11}...|
00003a70  15 53 54 4d 49 41 20 52  37 2c 7b 52 38 2d 52 31  |.STMIA R7,{R8-R1|
00003a80  31 7d 0d 19 c8 10 41 44  44 20 52 37 2c 52 37 2c  |1}....ADD R7,R7,|
00003a90  52 30 0d 19 d2 16 4c 44  4d 49 41 20 52 33 21 2c  |R0....LDMIA R3!,|
00003aa0  7b 52 38 2d 52 31 31 7d  0d 19 dc 15 53 54 4d 49  |{R8-R11}....STMI|
00003ab0  41 20 52 37 2c 7b 52 38  2d 52 31 31 7d 0d 19 e6  |A R7,{R8-R11}...|
00003ac0  10 41 44 44 20 52 37 2c  52 37 2c 52 30 0d 19 f0  |.ADD R7,R7,R0...|
00003ad0  16 4c 44 4d 49 41 20 52  33 21 2c 7b 52 38 2d 52  |.LDMIA R3!,{R8-R|
00003ae0  31 31 7d 0d 19 fa 15 53  54 4d 49 41 20 52 37 2c  |11}....STMIA R7,|
00003af0  7b 52 38 2d 52 31 31 7d  0d 1a 04 10 41 44 44 20  |{R8-R11}....ADD |
00003b00  52 37 2c 52 37 2c 52 30  0d 1a 0e 16 4c 44 4d 49  |R7,R7,R0....LDMI|
00003b10  41 20 52 33 21 2c 7b 52  38 2d 52 31 31 7d 0d 1a  |A R3!,{R8-R11}..|
00003b20  18 15 53 54 4d 49 41 20  52 37 2c 7b 52 38 2d 52  |..STMIA R7,{R8-R|
00003b30  31 31 7d 0d 1a 22 10 41  44 44 20 52 37 2c 52 37  |11}..".ADD R7,R7|
00003b40  2c 52 30 0d 1a 2c 16 4c  44 4d 49 41 20 52 33 21  |,R0..,.LDMIA R3!|
00003b50  2c 7b 52 38 2d 52 31 31  7d 0d 1a 36 15 53 54 4d  |,{R8-R11}..6.STM|
00003b60  49 41 20 52 37 2c 7b 52  38 2d 52 31 31 7d 0d 1a  |IA R7,{R8-R11}..|
00003b70  40 10 41 44 44 20 52 37  2c 52 37 2c 52 30 0d 1a  |@.ADD R7,R7,R0..|
00003b80  4a 16 4c 44 4d 49 41 20  52 33 21 2c 7b 52 38 2d  |J.LDMIA R3!,{R8-|
00003b90  52 31 31 7d 0d 1a 54 15  53 54 4d 49 41 20 52 37  |R11}..T.STMIA R7|
00003ba0  2c 7b 52 38 2d 52 31 31  7d 0d 1a 5e 10 41 44 44  |,{R8-R11}..^.ADD|
00003bb0  20 52 37 2c 52 37 2c 52  30 0d 1a 68 16 4c 44 4d  | R7,R7,R0..h.LDM|
00003bc0  49 41 20 52 33 21 2c 7b  52 38 2d 52 31 31 7d 0d  |IA R3!,{R8-R11}.|
00003bd0  1a 72 15 53 54 4d 49 41  20 52 37 2c 7b 52 38 2d  |.r.STMIA R7,{R8-|
00003be0  52 31 31 7d 0d 1a 7c 10  41 44 44 20 52 37 2c 52  |R11}..|.ADD R7,R|
00003bf0  37 2c 52 30 0d 1a 86 16  4c 44 4d 49 41 20 52 33  |7,R0....LDMIA R3|
00003c00  21 2c 7b 52 38 2d 52 31  31 7d 0d 1a 90 15 53 54  |!,{R8-R11}....ST|
00003c10  4d 49 41 20 52 37 2c 7b  52 38 2d 52 31 31 7d 0d  |MIA R7,{R8-R11}.|
00003c20  1a 9a 10 41 44 44 20 52  37 2c 52 37 2c 52 30 0d  |...ADD R7,R7,R0.|
00003c30  1a a4 16 4c 44 4d 49 41  20 52 33 21 2c 7b 52 38  |...LDMIA R3!,{R8|
00003c40  2d 52 31 31 7d 0d 1a ae  15 53 54 4d 49 41 20 52  |-R11}....STMIA R|
00003c50  37 2c 7b 52 38 2d 52 31  31 7d 0d 1a b8 10 41 44  |7,{R8-R11}....AD|
00003c60  44 20 52 37 2c 52 37 2c  52 30 0d 1a c2 16 4c 44  |D R7,R7,R0....LD|
00003c70  4d 49 41 20 52 33 21 2c  7b 52 38 2d 52 31 31 7d  |MIA R3!,{R8-R11}|
00003c80  0d 1a cc 15 53 54 4d 49  41 20 52 37 2c 7b 52 38  |....STMIA R7,{R8|
00003c90  2d 52 31 31 7d 0d 1a d6  10 41 44 44 20 52 37 2c  |-R11}....ADD R7,|
00003ca0  52 37 2c 52 30 0d 1a e0  16 4c 44 4d 49 41 20 52  |R7,R0....LDMIA R|
00003cb0  33 21 2c 7b 52 38 2d 52  31 31 7d 0d 1a ea 15 53  |3!,{R8-R11}....S|
00003cc0  54 4d 49 41 20 52 37 2c  7b 52 38 2d 52 31 31 7d  |TMIA R7,{R8-R11}|
00003cd0  0d 1a f4 10 41 44 44 20  52 37 2c 52 37 2c 52 30  |....ADD R7,R7,R0|
00003ce0  0d 1a fe 16 4c 44 4d 49  41 20 52 33 21 2c 7b 52  |....LDMIA R3!,{R|
00003cf0  38 2d 52 31 31 7d 0d 1b  08 15 53 54 4d 49 41 20  |8-R11}....STMIA |
00003d00  52 37 2c 7b 52 38 2d 52  31 31 7d 0d 1b 12 10 41  |R7,{R8-R11}....A|
00003d10  44 44 20 52 37 2c 52 37  2c 52 30 0d 1b 1c 16 4c  |DD R7,R7,R0....L|
00003d20  44 4d 49 41 20 52 33 21  2c 7b 52 38 2d 52 31 31  |DMIA R3!,{R8-R11|
00003d30  7d 0d 1b 26 15 53 54 4d  49 41 20 52 37 2c 7b 52  |}..&.STMIA R7,{R|
00003d40  38 2d 52 31 31 7d 0d 1b  30 10 41 44 44 20 52 37  |8-R11}..0.ADD R7|
00003d50  2c 52 37 2c 52 30 0d 1b  3a 16 4c 44 4d 49 41 20  |,R7,R0..:.LDMIA |
00003d60  52 33 21 2c 7b 52 38 2d  52 31 31 7d 0d 1b 44 15  |R3!,{R8-R11}..D.|
00003d70  53 54 4d 49 41 20 52 37  2c 7b 52 38 2d 52 31 31  |STMIA R7,{R8-R11|
00003d80  7d 0d 1b 4e 13 4c 44 4d  46 44 20 52 31 33 21 2c  |}..N.LDMFD R13!,|
00003d90  7b 52 30 7d 0d 1b 58 10  41 44 44 20 52 36 2c 52  |{R0}..X.ADD R6,R|
00003da0  36 2c 23 31 0d 1b 62 12  53 55 42 20 52 33 2c 52  |6,#1..b.SUB R3,R|
00003db0  33 2c 23 32 35 36 0d 1b  6c 11 53 55 42 53 20 52  |3,#256..l.SUBS R|
00003dc0  35 2c 52 35 2c 23 31 0d  1b 76 0d 42 4e 45 20 6c  |5,R5,#1..v.BNE l|
00003dd0  70 6d 64 78 0d 1b 80 10  41 44 44 20 52 32 2c 52  |pmdx....ADD R2,R|
00003de0  32 2c 23 31 0d 1b 8a 11  53 55 42 53 20 52 31 2c  |2,#1....SUBS R1,|
00003df0  52 31 2c 23 31 0d 1b 94  17 43 4d 50 20 52 31 2c  |R1,#1....CMP R1,|
00003e00  23 31 3a 42 50 4c 20 6c  70 6d 64 79 0d 1b 9e 0e  |#1:BPL lpmdy....|
00003e10  4d 4f 56 20 50 43 2c 52  31 34 0d 1b a8 05 3a 0d  |MOV PC,R14....:.|
00003e20  1b b2 10 2e 65 67 5f 73  68 6f 77 61 6c 6c 73 0d  |....eg_showalls.|
00003e30  1b bc 12 a4 61 64 72 28  31 32 2c 62 67 64 61 74  |....adr(12,bgdat|
00003e40  29 0d 1b c6 13 53 54 52  20 52 30 2c 5b 52 31 32  |)....STR R0,[R12|
00003e50  2c 23 38 5d 0d 1b d0 14  53 54 52 20 52 31 2c 5b  |,#8]....STR R1,[|
00003e60  52 31 32 2c 23 31 36 5d  0d 1b da 14 53 54 52 20  |R12,#16]....STR |
00003e70  52 32 2c 5b 52 31 32 2c  23 32 30 5d 0d 1b e4 0e  |R2,[R12,#20]....|
00003e80  4d 4f 56 20 52 31 30 2c  52 32 0d 1b ee 0e 80 20  |MOV R10,R2..... |
00003e90  52 34 2c 52 32 2c 23 37  0d 1b f8 0e 80 20 52 35  |R4,R2,#7..... R5|
00003ea0  2c 52 32 2c 23 31 0d 1c  02 10 4d 4f 56 20 52 36  |,R2,#1....MOV R6|
00003eb0  2c 23 31 30 32 34 0d 1c  0c 14 4c 44 52 20 52 37  |,#1024....LDR R7|
00003ec0  2c 5b 52 31 32 2c 23 33  32 5d 0d 1c 16 14 4c 44  |,[R12,#32]....LD|
00003ed0  52 20 52 38 2c 5b 52 31  32 2c 23 33 36 5d 0d 1c  |R R8,[R12,#36]..|
00003ee0  20 13 4d 4c 41 20 52 32  2c 52 34 2c 52 36 2c 52  | .MLA R2,R4,R6,R|
00003ef0  37 0d 1c 2a 13 4d 4c 41  20 52 33 2c 52 35 2c 52  |7..*.MLA R3,R5,R|
00003f00  36 2c 52 38 0d 1c 34 10  53 55 42 20 52 30 2c 52  |6,R8..4.SUB R0,R|
00003f10  30 2c 23 32 0d 1c 3e 10  53 55 42 20 52 31 2c 52  |0,#2..>.SUB R1,R|
00003f20  31 2c 23 32 0d 1c 48 0d  4d 4f 56 20 52 34 2c 23  |1,#2..H.MOV R4,#|
00003f30  36 0d 1c 52 14 4c 44 52  20 52 36 2c 5b 52 31 32  |6..R.LDR R6,[R12|
00003f40  2c 23 34 30 5d 0d 1c 5c  0d 4d 4f 56 20 52 38 2c  |,#40]..\.MOV R8,|
00003f50  23 30 0d 1c 66 0a 2e 6c  6c 68 77 6c 0d 1c 70 0d  |#0..f..llhwl..p.|
00003f60  4d 4f 56 20 52 35 2c 23  36 0d 1c 7a 0d 4d 4f 56  |MOV R5,#6..z.MOV|
00003f70  20 52 37 2c 23 30 0d 1c  84 0a 2e 6c 6f 68 77 6c  | R7,#0.....lohwl|
00003f80  0d 1c 8e 2b 43 4d 50 20  52 30 2c 23 30 3a 42 4d  |...+CMP R0,#0:BM|
00003f90  49 20 6e 6f 68 77 6c 3a  43 4d 50 20 52 31 2c 23  |I nohwl:CMP R1,#|
00003fa0  30 3a 42 4d 49 20 6e 6f  68 77 6c 0d 1c 98 2d 43  |0:BMI nohwl...-C|
00003fb0  4d 50 20 52 30 2c 23 31  36 3a 42 50 4c 20 6e 6f  |MP R0,#16:BPL no|
00003fc0  68 77 6c 3a 43 4d 50 20  52 31 2c 23 31 37 3a 42  |hwl:CMP R1,#17:B|
00003fd0  50 4c 20 6e 6f 68 77 6c  0d 1c a2 2d 4d 4f 56 20  |PL nohwl...-MOV |
00003fe0  52 31 30 2c 23 31 36 3a  4d 4c 41 20 52 39 2c 52  |R10,#16:MLA R9,R|
00003ff0  31 2c 52 31 30 2c 52 30  3a 41 44 44 20 52 39 2c  |1,R10,R0:ADD R9,|
00004000  52 39 2c 52 36 0d 1c ac  26 4c 44 52 42 20 52 31  |R9,R6...&LDRB R1|
00004010  30 2c 5b 52 39 5d 3a 43  4d 50 20 52 31 30 2c 23  |0,[R9]:CMP R10,#|
00004020  31 3a 42 4d 49 20 6e 6f  68 77 6c 0d 1c b6 1a ec  |1:BMI nohwl.....|
00004030  51 20 52 31 31 2c 52 32  3a 4d 4f 56 4e 45 20 52  |Q R11,R2:MOVNE R|
00004040  31 31 2c 52 33 0d 1c c0  20 4d 4f 56 20 52 39 2c  |11,R3... MOV R9,|
00004050  23 34 38 3a 4c 44 52 20  52 31 30 2c 5b 52 31 32  |#48:LDR R10,[R12|
00004060  2c 23 32 38 5d 0d 1c ca  26 4d 4c 41 20 52 31 30  |,#28]...&MLA R10|
00004070  2c 52 39 2c 52 37 2c 52  31 30 3a 4c 44 52 20 52  |,R9,R7,R10:LDR R|
00004080  39 2c 5b 52 31 32 2c 23  2d 34 5d 0d 1c d4 25 4d  |9,[R12,#-4]...%M|
00004090  4c 41 20 52 31 30 2c 52  39 2c 52 38 2c 52 31 30  |LA R10,R9,R8,R10|
000040a0  3a 41 44 44 20 52 31 30  2c 52 31 30 2c 23 31 36  |:ADD R10,R10,#16|
000040b0  0d 1c de 28 53 54 4d 46  44 20 52 31 33 21 2c 7b  |...(STMFD R13!,{|
000040c0  52 30 2d 52 38 7d 3a 4c  44 52 20 52 38 2c 5b 52  |R0-R8}:LDR R8,[R|
000040d0  31 32 2c 23 2d 31 32 5d  0d 1c e8 37 4c 44 4d 49  |12,#-12]...7LDMI|
000040e0  41 20 52 31 31 21 2c 7b  52 30 2d 52 37 7d 3a 53  |A R11!,{R0-R7}:S|
000040f0  54 4d 49 41 20 52 31 30  2c 7b 52 30 2d 52 37 7d  |TMIA R10,{R0-R7}|
00004100  3a 41 44 44 20 52 31 30  2c 52 31 30 2c 52 38 0d  |:ADD R10,R10,R8.|
00004110  1c f2 37 4c 44 4d 49 41  20 52 31 31 21 2c 7b 52  |..7LDMIA R11!,{R|
00004120  30 2d 52 37 7d 3a 53 54  4d 49 41 20 52 31 30 2c  |0-R7}:STMIA R10,|
00004130  7b 52 30 2d 52 37 7d 3a  41 44 44 20 52 31 30 2c  |{R0-R7}:ADD R10,|
00004140  52 31 30 2c 52 38 0d 1c  fc 37 4c 44 4d 49 41 20  |R10,R8...7LDMIA |
00004150  52 31 31 21 2c 7b 52 30  2d 52 37 7d 3a 53 54 4d  |R11!,{R0-R7}:STM|
00004160  49 41 20 52 31 30 2c 7b  52 30 2d 52 37 7d 3a 41  |IA R10,{R0-R7}:A|
00004170  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1d 06  |DD R10,R10,R8...|
00004180  37 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |7LDMIA R11!,{R0-|
00004190  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
000041a0  30 2d 52 37 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R7}:ADD R10,R1|
000041b0  30 2c 52 38 0d 1d 10 37  4c 44 4d 49 41 20 52 31  |0,R8...7LDMIA R1|
000041c0  31 21 2c 7b 52 30 2d 52  37 7d 3a 53 54 4d 49 41  |1!,{R0-R7}:STMIA|
000041d0  20 52 31 30 2c 7b 52 30  2d 52 37 7d 3a 41 44 44  | R10,{R0-R7}:ADD|
000041e0  20 52 31 30 2c 52 31 30  2c 52 38 0d 1d 1a 37 4c  | R10,R10,R8...7L|
000041f0  44 4d 49 41 20 52 31 31  21 2c 7b 52 30 2d 52 37  |DMIA R11!,{R0-R7|
00004200  7d 3a 53 54 4d 49 41 20  52 31 30 2c 7b 52 30 2d  |}:STMIA R10,{R0-|
00004210  52 37 7d 3a 41 44 44 20  52 31 30 2c 52 31 30 2c  |R7}:ADD R10,R10,|
00004220  52 38 0d 1d 24 37 4c 44  4d 49 41 20 52 31 31 21  |R8..$7LDMIA R11!|
00004230  2c 7b 52 30 2d 52 37 7d  3a 53 54 4d 49 41 20 52  |,{R0-R7}:STMIA R|
00004240  31 30 2c 7b 52 30 2d 52  37 7d 3a 41 44 44 20 52  |10,{R0-R7}:ADD R|
00004250  31 30 2c 52 31 30 2c 52  38 0d 1d 2e 37 4c 44 4d  |10,R10,R8...7LDM|
00004260  49 41 20 52 31 31 21 2c  7b 52 30 2d 52 37 7d 3a  |IA R11!,{R0-R7}:|
00004270  53 54 4d 49 41 20 52 31  30 2c 7b 52 30 2d 52 37  |STMIA R10,{R0-R7|
00004280  7d 3a 41 44 44 20 52 31  30 2c 52 31 30 2c 52 38  |}:ADD R10,R10,R8|
00004290  0d 1d 38 37 4c 44 4d 49  41 20 52 31 31 21 2c 7b  |..87LDMIA R11!,{|
000042a0  52 30 2d 52 37 7d 3a 53  54 4d 49 41 20 52 31 30  |R0-R7}:STMIA R10|
000042b0  2c 7b 52 30 2d 52 37 7d  3a 41 44 44 20 52 31 30  |,{R0-R7}:ADD R10|
000042c0  2c 52 31 30 2c 52 38 0d  1d 42 37 4c 44 4d 49 41  |,R10,R8..B7LDMIA|
000042d0  20 52 31 31 21 2c 7b 52  30 2d 52 37 7d 3a 53 54  | R11!,{R0-R7}:ST|
000042e0  4d 49 41 20 52 31 30 2c  7b 52 30 2d 52 37 7d 3a  |MIA R10,{R0-R7}:|
000042f0  41 44 44 20 52 31 30 2c  52 31 30 2c 52 38 0d 1d  |ADD R10,R10,R8..|
00004300  4c 37 4c 44 4d 49 41 20  52 31 31 21 2c 7b 52 30  |L7LDMIA R11!,{R0|
00004310  2d 52 37 7d 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |-R7}:STMIA R10,{|
00004320  52 30 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R0-R7}:ADD R10,R|
00004330  31 30 2c 52 38 0d 1d 56  37 4c 44 4d 49 41 20 52  |10,R8..V7LDMIA R|
00004340  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004350  41 20 52 31 30 2c 7b 52  30 2d 52 37 7d 3a 41 44  |A R10,{R0-R7}:AD|
00004360  44 20 52 31 30 2c 52 31  30 2c 52 38 0d 1d 60 37  |D R10,R10,R8..`7|
00004370  4c 44 4d 49 41 20 52 31  31 21 2c 7b 52 30 2d 52  |LDMIA R11!,{R0-R|
00004380  37 7d 3a 53 54 4d 49 41  20 52 31 30 2c 7b 52 30  |7}:STMIA R10,{R0|
00004390  2d 52 37 7d 3a 41 44 44  20 52 31 30 2c 52 31 30  |-R7}:ADD R10,R10|
000043a0  2c 52 38 0d 1d 6a 37 4c  44 4d 49 41 20 52 31 31  |,R8..j7LDMIA R11|
000043b0  21 2c 7b 52 30 2d 52 37  7d 3a 53 54 4d 49 41 20  |!,{R0-R7}:STMIA |
000043c0  52 31 30 2c 7b 52 30 2d  52 37 7d 3a 41 44 44 20  |R10,{R0-R7}:ADD |
000043d0  52 31 30 2c 52 31 30 2c  52 38 0d 1d 74 37 4c 44  |R10,R10,R8..t7LD|
000043e0  4d 49 41 20 52 31 31 21  2c 7b 52 30 2d 52 37 7d  |MIA R11!,{R0-R7}|
000043f0  3a 53 54 4d 49 41 20 52  31 30 2c 7b 52 30 2d 52  |:STMIA R10,{R0-R|
00004400  37 7d 3a 41 44 44 20 52  31 30 2c 52 31 30 2c 52  |7}:ADD R10,R10,R|
00004410  38 0d 1d 7e 37 4c 44 4d  49 41 20 52 31 31 21 2c  |8..~7LDMIA R11!,|
00004420  7b 52 30 2d 52 37 7d 3a  53 54 4d 49 41 20 52 31  |{R0-R7}:STMIA R1|
00004430  30 2c 7b 52 30 2d 52 37  7d 3a 41 44 44 20 52 31  |0,{R0-R7}:ADD R1|
00004440  30 2c 52 31 30 2c 52 38  0d 1d 88 16 4c 44 4d 46  |0,R10,R8....LDMF|
00004450  44 20 52 31 33 21 2c 7b  52 30 2d 52 38 7d 0d 1d  |D R13!,{R0-R8}..|
00004460  92 0a 2e 6e 6f 68 77 6c  0d 1d 9c 1d 41 44 44 20  |...nohwl....ADD |
00004470  52 37 2c 52 37 2c 23 31  3a 41 44 44 20 52 30 2c  |R7,R7,#1:ADD R0,|
00004480  52 30 2c 23 31 0d 1d a6  1b 53 55 42 53 20 52 35  |R0,#1....SUBS R5|
00004490  2c 52 35 2c 23 31 3a 42  4e 45 20 6c 6f 68 77 6c  |,R5,#1:BNE lohwl|
000044a0  0d 1d b0 1d 53 55 42 20  52 30 2c 52 30 2c 23 36  |....SUB R0,R0,#6|
000044b0  3a 41 44 44 20 52 38 2c  52 38 2c 23 31 0d 1d ba  |:ADD R8,R8,#1...|
000044c0  28 41 44 44 20 52 31 2c  52 31 2c 23 31 3a 53 55  |(ADD R1,R1,#1:SU|
000044d0  42 53 20 52 34 2c 52 34  2c 23 31 3a 42 4e 45 20  |BS R4,R4,#1:BNE |
000044e0  6c 6c 68 77 6c 0d 1d c4  05 3a 0d 1d ce 24 4c 44  |llhwl....:...$LD|
000044f0  52 20 52 30 2c 5b 52 31  32 2c 23 38 5d 3a 4c 44  |R R0,[R12,#8]:LD|
00004500  52 20 52 31 2c 5b 52 31  32 2c 23 31 36 5d 0d 1d  |R R1,[R12,#16]..|
00004510  d8 21 41 44 44 20 52 32  2c 52 32 2c 23 35 31 32  |.!ADD R2,R2,#512|
00004520  3a 41 44 44 20 52 33 2c  52 33 2c 23 35 31 32 0d  |:ADD R3,R3,#512.|
00004530  1d e2 1d 53 55 42 20 52  30 2c 52 30 2c 23 32 3a  |...SUB R0,R0,#2:|
00004540  53 55 42 20 52 31 2c 52  31 2c 23 32 0d 1d ec 0d  |SUB R1,R1,#2....|
00004550  4d 4f 56 20 52 35 2c 23  37 0d 1d f6 14 4c 44 52  |MOV R5,#7....LDR|
00004560  20 52 36 2c 5b 52 31 32  2c 23 34 34 5d 0d 1e 00  | R6,[R12,#44]...|
00004570  15 4c 44 52 20 52 31 30  2c 5b 52 31 32 2c 23 32  |.LDR R10,[R12,#2|
00004580  30 5d 0d 1e 0a 0d 4d 4f  56 20 52 37 2c 23 30 0d  |0]....MOV R7,#0.|
00004590  1e 14 0a 2e 6c 6c 76 77  6c 0d 1e 1e 0d 4d 4f 56  |....llvwl....MOV|
000045a0  20 52 34 2c 23 35 0d 1e  28 0d 4d 4f 56 20 52 38  | R4,#5..(.MOV R8|
000045b0  2c 23 30 0d 1e 32 0a 2e  6c 6f 76 77 6c 0d 1e 3c  |,#0..2..lovwl..<|
000045c0  2b 43 4d 50 20 52 30 2c  23 30 3a 42 4d 49 20 6e  |+CMP R0,#0:BMI n|
000045d0  6f 76 77 6c 3a 43 4d 50  20 52 31 2c 23 30 3a 42  |ovwl:CMP R1,#0:B|
000045e0  4d 49 20 6e 6f 76 77 6c  0d 1e 46 2d 43 4d 50 20  |MI novwl..F-CMP |
000045f0  52 30 2c 23 31 37 3a 42  50 4c 20 6e 6f 76 77 6c  |R0,#17:BPL novwl|
00004600  3a 43 4d 50 20 52 31 2c  23 31 36 3a 42 50 4c 20  |:CMP R1,#16:BPL |
00004610  6e 6f 76 77 6c 0d 1e 50  2d 4d 4f 56 20 52 31 30  |novwl..P-MOV R10|
00004620  2c 23 31 36 3a 4d 4c 41  20 52 39 2c 52 30 2c 52  |,#16:MLA R9,R0,R|
00004630  31 30 2c 52 31 3a 41 44  44 20 52 39 2c 52 39 2c  |10,R1:ADD R9,R9,|
00004640  52 36 0d 1e 5a 26 4c 44  52 42 20 52 31 30 2c 5b  |R6..Z&LDRB R10,[|
00004650  52 39 5d 3a 43 4d 50 20  52 31 30 2c 23 31 3a 42  |R9]:CMP R10,#1:B|
00004660  4d 49 20 6e 6f 76 77 6c  0d 1e 64 1a ec 51 20 52  |MI novwl..d..Q R|
00004670  31 31 2c 52 32 3a 4d 4f  56 4e 45 20 52 31 31 2c  |11,R2:MOVNE R11,|
00004680  52 33 0d 1e 6e 20 4d 4f  56 20 52 39 2c 23 34 38  |R3..n MOV R9,#48|
00004690  3a 4c 44 52 20 52 31 30  2c 5b 52 31 32 2c 23 32  |:LDR R10,[R12,#2|
000046a0  38 5d 0d 1e 78 26 4d 4c  41 20 52 31 30 2c 52 39  |8]..x&MLA R10,R9|
000046b0  2c 52 37 2c 52 31 30 3a  4c 44 52 20 52 39 2c 5b  |,R7,R10:LDR R9,[|
000046c0  52 31 32 2c 23 2d 34 5d  0d 1e 82 35 4d 4c 41 20  |R12,#-4]...5MLA |
000046d0  52 31 30 2c 52 39 2c 52  38 2c 52 31 30 3a 4c 44  |R10,R9,R8,R10:LD|
000046e0  52 20 52 39 2c 5b 52 31  32 2c 23 2d 38 5d 3a 41  |R R9,[R12,#-8]:A|
000046f0  44 44 20 52 31 30 2c 52  31 30 2c 52 39 0d 1e 8c  |DD R10,R10,R9...|
00004700  28 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |(STMFD R13!,{R0-|
00004710  52 38 7d 3a 4c 44 52 20  52 38 2c 5b 52 31 32 2c  |R8}:LDR R8,[R12,|
00004720  23 2d 31 32 5d 0d 1e 96  58 4c 44 4d 49 41 20 52  |#-12]...XLDMIA R|
00004730  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004740  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004750  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004760  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004770  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1e a0  |DD R10,R10,R8...|
00004780  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
00004790  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
000047a0  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
000047b0  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
000047c0  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
000047d0  31 30 2c 52 38 0d 1e aa  58 4c 44 4d 49 41 20 52  |10,R8...XLDMIA R|
000047e0  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
000047f0  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004800  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004810  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004820  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1e b4  |DD R10,R10,R8...|
00004830  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
00004840  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00004850  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
00004860  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
00004870  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
00004880  31 30 2c 52 38 0d 1e be  58 4c 44 4d 49 41 20 52  |10,R8...XLDMIA R|
00004890  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
000048a0  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
000048b0  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
000048c0  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
000048d0  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1e c8  |DD R10,R10,R8...|
000048e0  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
000048f0  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00004900  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
00004910  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
00004920  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
00004930  31 30 2c 52 38 0d 1e d2  58 4c 44 4d 49 41 20 52  |10,R8...XLDMIA R|
00004940  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004950  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004960  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004970  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004980  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1e dc  |DD R10,R10,R8...|
00004990  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
000049a0  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
000049b0  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
000049c0  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
000049d0  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
000049e0  31 30 2c 52 38 0d 1e e6  58 4c 44 4d 49 41 20 52  |10,R8...XLDMIA R|
000049f0  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004a00  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004a10  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004a20  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004a30  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1e f0  |DD R10,R10,R8...|
00004a40  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
00004a50  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00004a60  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
00004a70  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
00004a80  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
00004a90  31 30 2c 52 38 0d 1e fa  58 4c 44 4d 49 41 20 52  |10,R8...XLDMIA R|
00004aa0  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004ab0  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004ac0  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004ad0  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004ae0  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1f 04  |DD R10,R10,R8...|
00004af0  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
00004b00  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00004b10  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
00004b20  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
00004b30  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
00004b40  31 30 2c 52 38 0d 1f 0e  58 4c 44 4d 49 41 20 52  |10,R8...XLDMIA R|
00004b50  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004b60  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004b70  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004b80  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004b90  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1f 18  |DD R10,R10,R8...|
00004ba0  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
00004bb0  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00004bc0  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
00004bd0  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
00004be0  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
00004bf0  31 30 2c 52 38 0d 1f 22  58 4c 44 4d 49 41 20 52  |10,R8.."XLDMIA R|
00004c00  31 31 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |11!,{R0-R7}:STMI|
00004c10  41 20 52 31 30 2c 7b 52  30 2d 52 33 7d 3a 41 44  |A R10,{R0-R3}:AD|
00004c20  44 20 52 31 30 2c 52 31  30 2c 52 38 3a 53 54 4d  |D R10,R10,R8:STM|
00004c30  49 41 20 52 31 30 2c 7b  52 34 2d 52 37 7d 3a 41  |IA R10,{R4-R7}:A|
00004c40  44 44 20 52 31 30 2c 52  31 30 2c 52 38 0d 1f 2c  |DD R10,R10,R8..,|
00004c50  58 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 30 2d  |XLDMIA R11!,{R0-|
00004c60  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00004c70  30 2d 52 33 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R3}:ADD R10,R1|
00004c80  30 2c 52 38 3a 53 54 4d  49 41 20 52 31 30 2c 7b  |0,R8:STMIA R10,{|
00004c90  52 34 2d 52 37 7d 3a 41  44 44 20 52 31 30 2c 52  |R4-R7}:ADD R10,R|
00004ca0  31 30 2c 52 38 0d 1f 36  16 4c 44 4d 46 44 20 52  |10,R8..6.LDMFD R|
00004cb0  31 33 21 2c 7b 52 30 2d  52 38 7d 0d 1f 40 0a 2e  |13!,{R0-R8}..@..|
00004cc0  6e 6f 76 77 6c 0d 1f 4a  1d 41 44 44 20 52 38 2c  |novwl..J.ADD R8,|
00004cd0  52 38 2c 23 31 3a 41 44  44 20 52 31 2c 52 31 2c  |R8,#1:ADD R1,R1,|
00004ce0  23 31 0d 1f 54 1b 53 55  42 53 20 52 34 2c 52 34  |#1..T.SUBS R4,R4|
00004cf0  2c 23 31 3a 42 4e 45 20  6c 6f 76 77 6c 0d 1f 5e  |,#1:BNE lovwl..^|
00004d00  1d 53 55 42 20 52 31 2c  52 31 2c 23 35 3a 41 44  |.SUB R1,R1,#5:AD|
00004d10  44 20 52 37 2c 52 37 2c  23 31 0d 1f 68 28 41 44  |D R7,R7,#1..h(AD|
00004d20  44 20 52 30 2c 52 30 2c  23 31 3a 53 55 42 53 20  |D R0,R0,#1:SUBS |
00004d30  52 35 2c 52 35 2c 23 31  3a 42 4e 45 20 6c 6c 76  |R5,R5,#1:BNE llv|
00004d40  77 6c 0d 1f 72 0e 4d 4f  56 20 50 43 2c 52 31 34  |wl..r.MOV PC,R14|
00004d50  0d 1f 7c 05 3a 0d 1f 86  10 2e 65 67 5f 73 68 6f  |..|.:.....eg_sho|
00004d60  77 6f 62 6a 73 0d 1f 90  2b 41 44 52 20 52 31 32  |wobjs...+ADR R12|
00004d70  2c 62 67 64 61 74 3a 53  55 42 20 52 30 2c 52 30  |,bgdat:SUB R0,R0|
00004d80  2c 23 32 3a 53 55 42 20  52 31 2c 52 31 2c 23 32  |,#2:SUB R1,R1,#2|
00004d90  0d 1f 9a 39 4d 4f 56 20  52 33 2c 23 30 3a 4d 4f  |...9MOV R3,#0:MO|
00004da0  56 20 52 35 2c 23 35 3a  4c 44 52 20 52 36 2c 5b  |V R5,#5:LDR R6,[|
00004db0  52 31 32 2c 23 34 38 5d  3a 4c 44 52 20 52 37 2c  |R12,#48]:LDR R7,|
00004dc0  5b 52 31 32 2c 23 32 38  5d 0d 1f a4 2f 41 44 44  |[R12,#28].../ADD|
00004dd0  20 52 37 2c 52 37 2c 23  31 36 3a 41 44 44 20 52  | R7,R7,#16:ADD R|
00004de0  37 2c 52 37 2c 23 28 33  32 30 2a 31 36 29 3a 4d  |7,R7,#(320*16):M|
00004df0  4f 56 20 52 38 2c 23 36  0d 1f ae 0a 2e 6c 79 73  |OV R8,#6.....lys|
00004e00  71 72 0d 1f b8 17 4d 4f  56 20 52 32 2c 23 30 3a  |qr....MOV R2,#0:|
00004e10  4d 4f 56 20 52 34 2c 52  38 0d 1f c2 0a 2e 6c 78  |MOV R4,R8.....lx|
00004e20  73 71 72 0d 1f cc 2b 43  4d 50 20 52 30 2c 23 30  |sqr...+CMP R0,#0|
00004e30  3a 42 4d 49 20 6e 6f 73  71 72 3a 43 4d 50 20 52  |:BMI nosqr:CMP R|
00004e40  31 2c 23 30 3a 42 4d 49  20 6e 6f 73 71 72 0d 1f  |1,#0:BMI nosqr..|
00004e50  d6 2d 43 4d 50 20 52 30  2c 23 31 36 3a 42 50 4c  |.-CMP R0,#16:BPL|
00004e60  20 6e 6f 73 71 72 3a 43  4d 50 20 52 31 2c 23 31  | nosqr:CMP R1,#1|
00004e70  36 3a 42 50 4c 20 6e 6f  73 71 72 0d 1f e0 2d 4d  |6:BPL nosqr...-M|
00004e80  4f 56 20 52 31 31 2c 23  31 36 3a 4d 4c 41 20 52  |OV R11,#16:MLA R|
00004e90  39 2c 52 31 2c 52 31 31  2c 52 30 3a 41 44 44 20  |9,R1,R11,R0:ADD |
00004ea0  52 39 2c 52 39 2c 52 36  0d 1f ea 1f 4c 44 52 42  |R9,R9,R6....LDRB|
00004eb0  20 52 31 30 2c 5b 52 39  5d 3a 80 20 52 31 30 2c  | R10,[R9]:. R10,|
00004ec0  52 31 30 2c 23 31 35 0d  1f f4 26 41 44 44 20 52  |R10,#15...&ADD R|
00004ed0  39 2c 52 31 32 2c 23 36  34 3a 41 44 44 20 52 39  |9,R12,#64:ADD R9|
00004ee0  2c 52 39 2c 52 31 30 2c  41 53 4c 23 31 0d 1f fe  |,R9,R10,ASL#1...|
00004ef0  2a 4c 44 52 42 20 52 31  30 2c 5b 52 39 5d 2c 23  |*LDRB R10,[R9],#|
00004f00  31 3a 43 4d 50 20 52 31  30 2c 23 39 33 3a 42 45  |1:CMP R10,#93:BE|
00004f10  51 20 6e 6f 73 71 72 0d  20 08 31 4c 44 52 42 20  |Q nosqr. .1LDRB |
00004f20  52 31 31 2c 5b 52 39 5d  3a 41 44 44 20 52 39 2c  |R11,[R9]:ADD R9,|
00004f30  52 31 32 2c 23 35 32 3a  4c 44 52 42 20 52 39 2c  |R12,#52:LDRB R9,|
00004f40  5b 52 39 2c 52 31 31 5d  0d 20 12 24 41 44 44 20  |[R9,R11]. .$ADD |
00004f50  52 31 30 2c 52 31 30 2c  52 39 3a 4d 4f 56 20 52  |R10,R10,R9:MOV R|
00004f60  39 2c 52 31 30 2c 41 53  4c 23 31 30 0d 20 1c 23  |9,R10,ASL#10. .#|
00004f70  4c 44 52 20 52 31 30 2c  5b 52 31 32 2c 23 35 36  |LDR R10,[R12,#56|
00004f80  5d 3a 41 44 44 20 52 39  2c 52 31 30 2c 52 39 0d  |]:ADD R9,R10,R9.|
00004f90  20 26 21 4d 4f 56 20 52  31 31 2c 23 34 38 3a 4d  | &!MOV R11,#48:M|
00004fa0  4c 41 20 52 31 30 2c 52  32 2c 52 31 31 2c 52 37  |LA R10,R2,R11,R7|
00004fb0  0d 20 30 28 4c 44 52 20  52 31 31 2c 5b 52 31 32  |. 0(LDR R11,[R12|
00004fc0  2c 23 2d 34 5d 3a 4d 4c  41 20 52 31 30 2c 52 33  |,#-4]:MLA R10,R3|
00004fd0  2c 52 31 31 2c 52 31 30  0d 20 3a 28 53 54 4d 46  |,R11,R10. :(STMF|
00004fe0  44 20 52 31 33 21 2c 7b  52 30 2d 52 38 7d 3a 4c  |D R13!,{R0-R8}:L|
00004ff0  44 52 20 52 38 2c 5b 52  31 32 2c 23 2d 31 32 5d  |DR R8,[R12,#-12]|
00005000  0d 20 44 36 4c 44 4d 49  41 20 52 39 21 2c 7b 52  |. D6LDMIA R9!,{R|
00005010  30 2d 52 37 7d 3a 53 54  4d 49 41 20 52 31 30 2c  |0-R7}:STMIA R10,|
00005020  7b 52 30 2d 52 37 7d 3a  41 44 44 20 52 31 30 2c  |{R0-R7}:ADD R10,|
00005030  52 31 30 2c 52 38 0d 20  4e 36 4c 44 4d 49 41 20  |R10,R8. N6LDMIA |
00005040  52 39 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |R9!,{R0-R7}:STMI|
00005050  41 20 52 31 30 2c 7b 52  30 2d 52 37 7d 3a 41 44  |A R10,{R0-R7}:AD|
00005060  44 20 52 31 30 2c 52 31  30 2c 52 38 0d 20 58 36  |D R10,R10,R8. X6|
00005070  4c 44 4d 49 41 20 52 39  21 2c 7b 52 30 2d 52 37  |LDMIA R9!,{R0-R7|
00005080  7d 3a 53 54 4d 49 41 20  52 31 30 2c 7b 52 30 2d  |}:STMIA R10,{R0-|
00005090  52 37 7d 3a 41 44 44 20  52 31 30 2c 52 31 30 2c  |R7}:ADD R10,R10,|
000050a0  52 38 0d 20 62 36 4c 44  4d 49 41 20 52 39 21 2c  |R8. b6LDMIA R9!,|
000050b0  7b 52 30 2d 52 37 7d 3a  53 54 4d 49 41 20 52 31  |{R0-R7}:STMIA R1|
000050c0  30 2c 7b 52 30 2d 52 37  7d 3a 41 44 44 20 52 31  |0,{R0-R7}:ADD R1|
000050d0  30 2c 52 31 30 2c 52 38  0d 20 6c 36 4c 44 4d 49  |0,R10,R8. l6LDMI|
000050e0  41 20 52 39 21 2c 7b 52  30 2d 52 37 7d 3a 53 54  |A R9!,{R0-R7}:ST|
000050f0  4d 49 41 20 52 31 30 2c  7b 52 30 2d 52 37 7d 3a  |MIA R10,{R0-R7}:|
00005100  41 44 44 20 52 31 30 2c  52 31 30 2c 52 38 0d 20  |ADD R10,R10,R8. |
00005110  76 36 4c 44 4d 49 41 20  52 39 21 2c 7b 52 30 2d  |v6LDMIA R9!,{R0-|
00005120  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00005130  30 2d 52 37 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R7}:ADD R10,R1|
00005140  30 2c 52 38 0d 20 80 36  4c 44 4d 49 41 20 52 39  |0,R8. .6LDMIA R9|
00005150  21 2c 7b 52 30 2d 52 37  7d 3a 53 54 4d 49 41 20  |!,{R0-R7}:STMIA |
00005160  52 31 30 2c 7b 52 30 2d  52 37 7d 3a 41 44 44 20  |R10,{R0-R7}:ADD |
00005170  52 31 30 2c 52 31 30 2c  52 38 0d 20 8a 36 4c 44  |R10,R10,R8. .6LD|
00005180  4d 49 41 20 52 39 21 2c  7b 52 30 2d 52 37 7d 3a  |MIA R9!,{R0-R7}:|
00005190  53 54 4d 49 41 20 52 31  30 2c 7b 52 30 2d 52 37  |STMIA R10,{R0-R7|
000051a0  7d 3a 41 44 44 20 52 31  30 2c 52 31 30 2c 52 38  |}:ADD R10,R10,R8|
000051b0  0d 20 94 36 4c 44 4d 49  41 20 52 39 21 2c 7b 52  |. .6LDMIA R9!,{R|
000051c0  30 2d 52 37 7d 3a 53 54  4d 49 41 20 52 31 30 2c  |0-R7}:STMIA R10,|
000051d0  7b 52 30 2d 52 37 7d 3a  41 44 44 20 52 31 30 2c  |{R0-R7}:ADD R10,|
000051e0  52 31 30 2c 52 38 0d 20  9e 36 4c 44 4d 49 41 20  |R10,R8. .6LDMIA |
000051f0  52 39 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |R9!,{R0-R7}:STMI|
00005200  41 20 52 31 30 2c 7b 52  30 2d 52 37 7d 3a 41 44  |A R10,{R0-R7}:AD|
00005210  44 20 52 31 30 2c 52 31  30 2c 52 38 0d 20 a8 36  |D R10,R10,R8. .6|
00005220  4c 44 4d 49 41 20 52 39  21 2c 7b 52 30 2d 52 37  |LDMIA R9!,{R0-R7|
00005230  7d 3a 53 54 4d 49 41 20  52 31 30 2c 7b 52 30 2d  |}:STMIA R10,{R0-|
00005240  52 37 7d 3a 41 44 44 20  52 31 30 2c 52 31 30 2c  |R7}:ADD R10,R10,|
00005250  52 38 0d 20 b2 36 4c 44  4d 49 41 20 52 39 21 2c  |R8. .6LDMIA R9!,|
00005260  7b 52 30 2d 52 37 7d 3a  53 54 4d 49 41 20 52 31  |{R0-R7}:STMIA R1|
00005270  30 2c 7b 52 30 2d 52 37  7d 3a 41 44 44 20 52 31  |0,{R0-R7}:ADD R1|
00005280  30 2c 52 31 30 2c 52 38  0d 20 bc 36 4c 44 4d 49  |0,R10,R8. .6LDMI|
00005290  41 20 52 39 21 2c 7b 52  30 2d 52 37 7d 3a 53 54  |A R9!,{R0-R7}:ST|
000052a0  4d 49 41 20 52 31 30 2c  7b 52 30 2d 52 37 7d 3a  |MIA R10,{R0-R7}:|
000052b0  41 44 44 20 52 31 30 2c  52 31 30 2c 52 38 0d 20  |ADD R10,R10,R8. |
000052c0  c6 36 4c 44 4d 49 41 20  52 39 21 2c 7b 52 30 2d  |.6LDMIA R9!,{R0-|
000052d0  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
000052e0  30 2d 52 37 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R7}:ADD R10,R1|
000052f0  30 2c 52 38 0d 20 d0 36  4c 44 4d 49 41 20 52 39  |0,R8. .6LDMIA R9|
00005300  21 2c 7b 52 30 2d 52 37  7d 3a 53 54 4d 49 41 20  |!,{R0-R7}:STMIA |
00005310  52 31 30 2c 7b 52 30 2d  52 37 7d 3a 41 44 44 20  |R10,{R0-R7}:ADD |
00005320  52 31 30 2c 52 31 30 2c  52 38 0d 20 da 36 4c 44  |R10,R10,R8. .6LD|
00005330  4d 49 41 20 52 39 21 2c  7b 52 30 2d 52 37 7d 3a  |MIA R9!,{R0-R7}:|
00005340  53 54 4d 49 41 20 52 31  30 2c 7b 52 30 2d 52 37  |STMIA R10,{R0-R7|
00005350  7d 3a 41 44 44 20 52 31  30 2c 52 31 30 2c 52 38  |}:ADD R10,R10,R8|
00005360  0d 20 e4 36 4c 44 4d 49  41 20 52 39 21 2c 7b 52  |. .6LDMIA R9!,{R|
00005370  30 2d 52 37 7d 3a 53 54  4d 49 41 20 52 31 30 2c  |0-R7}:STMIA R10,|
00005380  7b 52 30 2d 52 37 7d 3a  41 44 44 20 52 31 30 2c  |{R0-R7}:ADD R10,|
00005390  52 31 30 2c 52 38 0d 20  ee 36 4c 44 4d 49 41 20  |R10,R8. .6LDMIA |
000053a0  52 39 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |R9!,{R0-R7}:STMI|
000053b0  41 20 52 31 30 2c 7b 52  30 2d 52 37 7d 3a 41 44  |A R10,{R0-R7}:AD|
000053c0  44 20 52 31 30 2c 52 31  30 2c 52 38 0d 20 f8 36  |D R10,R10,R8. .6|
000053d0  4c 44 4d 49 41 20 52 39  21 2c 7b 52 30 2d 52 37  |LDMIA R9!,{R0-R7|
000053e0  7d 3a 53 54 4d 49 41 20  52 31 30 2c 7b 52 30 2d  |}:STMIA R10,{R0-|
000053f0  52 37 7d 3a 41 44 44 20  52 31 30 2c 52 31 30 2c  |R7}:ADD R10,R10,|
00005400  52 38 0d 21 02 36 4c 44  4d 49 41 20 52 39 21 2c  |R8.!.6LDMIA R9!,|
00005410  7b 52 30 2d 52 37 7d 3a  53 54 4d 49 41 20 52 31  |{R0-R7}:STMIA R1|
00005420  30 2c 7b 52 30 2d 52 37  7d 3a 41 44 44 20 52 31  |0,{R0-R7}:ADD R1|
00005430  30 2c 52 31 30 2c 52 38  0d 21 0c 36 4c 44 4d 49  |0,R10,R8.!.6LDMI|
00005440  41 20 52 39 21 2c 7b 52  30 2d 52 37 7d 3a 53 54  |A R9!,{R0-R7}:ST|
00005450  4d 49 41 20 52 31 30 2c  7b 52 30 2d 52 37 7d 3a  |MIA R10,{R0-R7}:|
00005460  41 44 44 20 52 31 30 2c  52 31 30 2c 52 38 0d 21  |ADD R10,R10,R8.!|
00005470  16 36 4c 44 4d 49 41 20  52 39 21 2c 7b 52 30 2d  |.6LDMIA R9!,{R0-|
00005480  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00005490  30 2d 52 37 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R7}:ADD R10,R1|
000054a0  30 2c 52 38 0d 21 20 36  4c 44 4d 49 41 20 52 39  |0,R8.! 6LDMIA R9|
000054b0  21 2c 7b 52 30 2d 52 37  7d 3a 53 54 4d 49 41 20  |!,{R0-R7}:STMIA |
000054c0  52 31 30 2c 7b 52 30 2d  52 37 7d 3a 41 44 44 20  |R10,{R0-R7}:ADD |
000054d0  52 31 30 2c 52 31 30 2c  52 38 0d 21 2a 36 4c 44  |R10,R10,R8.!*6LD|
000054e0  4d 49 41 20 52 39 21 2c  7b 52 30 2d 52 37 7d 3a  |MIA R9!,{R0-R7}:|
000054f0  53 54 4d 49 41 20 52 31  30 2c 7b 52 30 2d 52 37  |STMIA R10,{R0-R7|
00005500  7d 3a 41 44 44 20 52 31  30 2c 52 31 30 2c 52 38  |}:ADD R10,R10,R8|
00005510  0d 21 34 36 4c 44 4d 49  41 20 52 39 21 2c 7b 52  |.!46LDMIA R9!,{R|
00005520  30 2d 52 37 7d 3a 53 54  4d 49 41 20 52 31 30 2c  |0-R7}:STMIA R10,|
00005530  7b 52 30 2d 52 37 7d 3a  41 44 44 20 52 31 30 2c  |{R0-R7}:ADD R10,|
00005540  52 31 30 2c 52 38 0d 21  3e 36 4c 44 4d 49 41 20  |R10,R8.!>6LDMIA |
00005550  52 39 21 2c 7b 52 30 2d  52 37 7d 3a 53 54 4d 49  |R9!,{R0-R7}:STMI|
00005560  41 20 52 31 30 2c 7b 52  30 2d 52 37 7d 3a 41 44  |A R10,{R0-R7}:AD|
00005570  44 20 52 31 30 2c 52 31  30 2c 52 38 0d 21 48 36  |D R10,R10,R8.!H6|
00005580  4c 44 4d 49 41 20 52 39  21 2c 7b 52 30 2d 52 37  |LDMIA R9!,{R0-R7|
00005590  7d 3a 53 54 4d 49 41 20  52 31 30 2c 7b 52 30 2d  |}:STMIA R10,{R0-|
000055a0  52 37 7d 3a 41 44 44 20  52 31 30 2c 52 31 30 2c  |R7}:ADD R10,R10,|
000055b0  52 38 0d 21 52 36 4c 44  4d 49 41 20 52 39 21 2c  |R8.!R6LDMIA R9!,|
000055c0  7b 52 30 2d 52 37 7d 3a  53 54 4d 49 41 20 52 31  |{R0-R7}:STMIA R1|
000055d0  30 2c 7b 52 30 2d 52 37  7d 3a 41 44 44 20 52 31  |0,{R0-R7}:ADD R1|
000055e0  30 2c 52 31 30 2c 52 38  0d 21 5c 36 4c 44 4d 49  |0,R10,R8.!\6LDMI|
000055f0  41 20 52 39 21 2c 7b 52  30 2d 52 37 7d 3a 53 54  |A R9!,{R0-R7}:ST|
00005600  4d 49 41 20 52 31 30 2c  7b 52 30 2d 52 37 7d 3a  |MIA R10,{R0-R7}:|
00005610  41 44 44 20 52 31 30 2c  52 31 30 2c 52 38 0d 21  |ADD R10,R10,R8.!|
00005620  66 36 4c 44 4d 49 41 20  52 39 21 2c 7b 52 30 2d  |f6LDMIA R9!,{R0-|
00005630  52 37 7d 3a 53 54 4d 49  41 20 52 31 30 2c 7b 52  |R7}:STMIA R10,{R|
00005640  30 2d 52 37 7d 3a 41 44  44 20 52 31 30 2c 52 31  |0-R7}:ADD R10,R1|
00005650  30 2c 52 38 0d 21 70 36  4c 44 4d 49 41 20 52 39  |0,R8.!p6LDMIA R9|
00005660  21 2c 7b 52 30 2d 52 37  7d 3a 53 54 4d 49 41 20  |!,{R0-R7}:STMIA |
00005670  52 31 30 2c 7b 52 30 2d  52 37 7d 3a 41 44 44 20  |R10,{R0-R7}:ADD |
00005680  52 31 30 2c 52 31 30 2c  52 38 0d 21 7a 36 4c 44  |R10,R10,R8.!z6LD|
00005690  4d 49 41 20 52 39 21 2c  7b 52 30 2d 52 37 7d 3a  |MIA R9!,{R0-R7}:|
000056a0  53 54 4d 49 41 20 52 31  30 2c 7b 52 30 2d 52 37  |STMIA R10,{R0-R7|
000056b0  7d 3a 41 44 44 20 52 31  30 2c 52 31 30 2c 52 38  |}:ADD R10,R10,R8|
000056c0  0d 21 84 16 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |.!..LDMFD R13!,{|
000056d0  52 30 2d 52 38 7d 0d 21  8e 0a 2e 6e 6f 73 71 72  |R0-R8}.!...nosqr|
000056e0  0d 21 98 1d 41 44 44 20  52 30 2c 52 30 2c 23 31  |.!..ADD R0,R0,#1|
000056f0  3a 41 44 44 20 52 32 2c  52 32 2c 23 31 0d 21 a2  |:ADD R2,R2,#1.!.|
00005700  1b 53 55 42 53 20 52 34  2c 52 34 2c 23 31 3a 42  |.SUBS R4,R4,#1:B|
00005710  4e 45 20 6c 78 73 71 72  0d 21 ac 2a 41 44 44 20  |NE lxsqr.!.*ADD |
00005720  52 31 2c 52 31 2c 23 31  3a 41 44 44 20 52 33 2c  |R1,R1,#1:ADD R3,|
00005730  52 33 2c 23 31 3a 53 55  42 20 52 30 2c 52 30 2c  |R3,#1:SUB R0,R0,|
00005740  52 38 0d 21 b6 1b 53 55  42 53 20 52 35 2c 52 35  |R8.!..SUBS R5,R5|
00005750  2c 23 31 3a 42 4e 45 20  6c 79 73 71 72 0d 21 c0  |,#1:BNE lysqr.!.|
00005760  4d 4c 44 52 42 20 52 30  2c 5b 52 31 32 2c 23 35  |MLDRB R0,[R12,#5|
00005770  32 5d 3a 41 44 44 20 52  30 2c 52 30 2c 23 31 3a  |2]:ADD R0,R0,#1:|
00005780  43 4d 50 20 52 30 2c 23  38 3a 53 55 42 50 4c 20  |CMP R0,#8:SUBPL |
00005790  52 30 2c 52 30 2c 23 38  3a 53 54 52 42 20 52 30  |R0,R0,#8:STRB R0|
000057a0  2c 5b 52 31 32 2c 23 35  32 5d 0d 21 ca 4f 4c 44  |,[R12,#52].!.OLD|
000057b0  52 42 20 52 30 2c 5b 52  31 32 2c 23 35 33 5d 3a  |RB R0,[R12,#53]:|
000057c0  41 44 44 20 52 30 2c 52  30 2c 23 31 3a 43 4d 50  |ADD R0,R0,#1:CMP|
000057d0  20 52 30 2c 23 31 32 3a  53 55 42 50 4c 20 52 30  | R0,#12:SUBPL R0|
000057e0  2c 52 30 2c 23 31 32 3a  53 54 52 42 20 52 30 2c  |,R0,#12:STRB R0,|
000057f0  5b 52 31 32 2c 23 35 33  5d 0d 21 d4 4f 4c 44 52  |[R12,#53].!.OLDR|
00005800  42 20 52 30 2c 5b 52 31  32 2c 23 35 34 5d 3a 41  |B R0,[R12,#54]:A|
00005810  44 44 20 52 30 2c 52 30  2c 23 31 3a 43 4d 50 20  |DD R0,R0,#1:CMP |
00005820  52 30 2c 23 31 36 3a 53  55 42 50 4c 20 52 30 2c  |R0,#16:SUBPL R0,|
00005830  52 30 2c 23 31 36 3a 53  54 52 42 20 52 30 2c 5b  |R0,#16:STRB R0,[|
00005840  52 31 32 2c 23 35 34 5d  0d 21 de 0e 4d 4f 56 20  |R12,#54].!..MOV |
00005850  50 43 2c 52 31 34 0d 21  e8 05 3a 0d 21 f2 3b 3b  |PC,R14.!..:.!.;;|
00005860  2d 31 32 3a 20 45 51 55  44 20 33 32 30 20 20 20  |-12: EQUD 320   |
00005870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005880  20 3b 20 43 6f 6c 75 6d  6e 73 20 6f 6e 20 73 63  | ; Columns on sc|
00005890  72 65 65 6e 20 21 0d 21  fc 44 3b 2d 38 20 3a 20  |reen !.!.D;-8 : |
000058a0  45 51 55 44 20 33 32 30  2a 31 36 20 20 20 20 20  |EQUD 320*16     |
000058b0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 43 6f  |            ; Co|
000058c0  6c 75 6d 6e 73 20 6f 6e  20 73 63 72 65 65 6e 20  |lumns on screen |
000058d0  2a 20 57 6f 73 73 6e 61  6d 65 0d 22 06 44 3b 2d  |* Wossname.".D;-|
000058e0  34 20 3a 20 45 51 55 44  20 33 32 30 2a 34 38 20  |4 : EQUD 320*48 |
000058f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005900  3b 20 43 6f 6c 75 6d 6e  73 20 6f 6e 20 73 63 72  |; Columns on scr|
00005910  65 65 6e 20 2a 20 57 6f  73 73 6e 61 6d 65 0d 22  |een * Wossname."|
00005920  10 41 2e 62 67 64 61 74  20 20 20 20 20 20 20 20  |.A.bgdat        |
00005930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005940  20 20 20 20 3b 20 44 61  74 61 62 61 79 20 66 6f  |    ; Databay fo|
00005950  72 20 67 61 6d 65 20 72  6f 75 74 69 6e 65 73 0d  |r game routines.|
00005960  22 1a 47 3b 2b 30 20 3a  20 45 51 55 44 20 6b 6c  |".G;+0 : EQUD kl|
00005970  75 64 67 65 5f 73 63 72  65 65 6e 2b 33 30 34 20  |udge_screen+304 |
00005980  20 20 20 20 20 20 20 20  20 20 3b 20 53 74 61 72  |          ; Star|
00005990  74 20 70 6f 69 6e 74 20  66 6f 72 20 74 69 6d 65  |t point for time|
000059a0  20 62 6c 6f 63 6b 0d 22  24 3f 3b 2b 34 20 3a 20  | block."$?;+4 : |
000059b0  45 51 55 44 20 30 20 20  20 20 20 20 20 20 20 20  |EQUD 0          |
000059c0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 54 65  |            ; Te|
000059d0  6d 70 6f 72 61 72 79 20  73 74 6f 72 65 20 66 6f  |mporary store fo|
000059e0  72 20 52 31 34 0d 22 2e  48 3b 2b 38 20 3a 20 45  |r R14.".H;+8 : E|
000059f0  51 55 44 20 30 20 20 20  20 20 20 20 20 20 20 20  |QUD 0           |
00005a00  20 20 20 20 20 20 20 20  20 20 20 3b 20 41 6e 6f  |           ; Ano|
00005a10  74 68 65 72 20 74 65 6d  70 6f 72 61 72 79 20 72  |ther temporary r|
00005a20  65 67 69 73 74 65 72 20  73 74 6f 72 65 0d 22 38  |egister store."8|
00005a30  3c 3b 2b 31 32 3a 20 45  51 55 44 20 62 6d 65 73  |<;+12: EQUD bmes|
00005a40  73 25 2b 34 20 20 20 20  20 20 20 20 20 20 20 20  |s%+4            |
00005a50  20 20 20 3b 20 50 74 72  20 74 6f 20 6d 65 73 73  |   ; Ptr to mess|
00005a60  61 67 65 20 62 6c 6f 63  6b 0d 22 42 42 3b 2b 31  |age block."BB;+1|
00005a70  36 3a 20 45 51 55 44 20  30 20 20 20 20 20 20 20  |6: EQUD 0       |
00005a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00005a90  20 59 65 74 20 61 6e 6f  74 68 65 72 20 72 65 67  | Yet another reg|
00005aa0  69 73 74 65 72 20 73 74  6f 72 65 0d 22 4c 2d 3b  |ister store."L-;|
00005ab0  2b 32 30 3a 20 45 51 55  44 20 30 20 20 20 20 20  |+20: EQUD 0     |
00005ac0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005ad0  20 3b 20 44 69 74 74 6f  0d 22 56 43 3b 2b 32 34  | ; Ditto."VC;+24|
00005ae0  3a 20 45 51 55 44 20 62  67 72 61 66 25 2b 33 38  |: EQUD bgraf%+38|
00005af0  2a 31 30 32 34 20 20 20  20 20 20 20 20 20 3b 20  |*1024         ; |
00005b00  53 74 61 72 74 20 6f 66  20 4d 69 64 64 6c 65 42  |Start of MiddleB|
00005b10  69 74 20 67 72 61 70 68  69 63 73 0d 22 60 39 3b  |it graphics."`9;|
00005b20  2b 32 38 3a 20 45 51 55  44 20 6b 6c 75 64 67 65  |+28: EQUD kludge|
00005b30  5f 73 63 72 65 65 6e 20  20 20 20 20 20 20 20 20  |_screen         |
00005b40  20 20 20 20 20 20 3b 20  53 63 72 65 65 6e 20 73  |      ; Screen s|
00005b50  74 61 72 74 0d 22 6a 38  3b 2b 33 32 3a 20 45 51  |tart."j8;+32: EQ|
00005b60  55 44 20 62 67 72 61 66  25 2b 39 38 2a 31 30 32  |UD bgraf%+98*102|
00005b70  34 20 20 20 20 20 20 20  20 20 3b 20 57 61 6c 6c  |4         ; Wall|
00005b80  20 67 72 61 66 78 20 73  74 61 72 74 0d 22 74 3c  | grafx start."t<|
00005b90  3b 2b 33 36 3a 20 45 51  55 44 20 62 67 72 61 66  |;+36: EQUD bgraf|
00005ba0  25 2b 39 36 2a 31 30 32  34 20 20 20 20 20 20 20  |%+96*1024       |
00005bb0  20 20 3b 20 49 6d 6d 20  57 61 6c 6c 20 67 72 61  |  ; Imm Wall gra|
00005bc0  66 78 20 73 74 61 72 74  0d 22 7e 3d 3b 2b 34 30  |fx start."~=;+40|
00005bd0  3a 20 45 51 55 44 20 62  6c 65 76 6c 25 20 20 20  |: EQUD blevl%   |
00005be0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00005bf0  48 6f 72 7a 2e 20 77 61  6c 6c 20 64 61 74 61 20  |Horz. wall data |
00005c00  73 74 61 72 74 0d 22 88  3d 3b 2b 34 34 3a 20 45  |start.".=;+44: E|
00005c10  51 55 44 20 62 6c 65 76  6c 25 2b 32 37 32 20 20  |QUD blevl%+272  |
00005c20  20 20 20 20 20 20 20 20  20 20 20 3b 20 56 65 72  |           ; Ver|
00005c30  74 2e 20 77 61 6c 6c 20  64 61 74 61 20 73 74 61  |t. wall data sta|
00005c40  72 74 0d 22 92 39 3b 2b  34 38 3a 20 45 51 55 44  |rt.".9;+48: EQUD|
00005c50  20 62 6c 65 76 6c 25 2b  35 34 34 20 20 20 20 20  | blevl%+544     |
00005c60  20 20 20 20 20 20 20 20  3b 20 53 71 75 61 72 65  |        ; Square|
00005c70  20 64 61 74 61 20 73 74  61 72 74 0d 22 9c 3a 3b  | data start.".:;|
00005c80  2b 35 32 3a 20 45 51 55  44 20 30 20 20 20 20 20  |+52: EQUD 0     |
00005c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005ca0  20 3b 20 41 6e 69 6d 61  74 69 6f 6e 20 63 6f 75  | ; Animation cou|
00005cb0  6e 74 65 72 73 0d 22 a6  33 3b 2b 35 36 3a 20 45  |nters.".3;+56: E|
00005cc0  51 55 44 20 62 67 72 61  66 25 20 20 20 20 20 20  |QUD bgraf%      |
00005cd0  20 20 20 20 20 20 20 20  20 20 20 3b 20 47 72 61  |           ; Gra|
00005ce0  66 78 20 73 74 61 72 74  0d 22 b0 3d 3b 2b 36 30  |fx start.".=;+60|
00005cf0  3a 20 45 51 55 44 20 6b  6c 75 64 67 65 5f 73 63  |: EQUD kludge_sc|
00005d00  72 65 65 6e 2b 31 31 32  2a 33 32 31 20 20 20 20  |reen+112*321    |
00005d10  20 20 20 3b 20 4d 69 64  64 6c 65 20 6f 66 20 73  |   ; Middle of s|
00005d20  63 72 65 65 6e 0d 22 ba  33 3b 2b 36 34 3a 20 45  |creen.".3;+64: E|
00005d30  51 55 42 20 39 33 3a 45  51 55 42 20 33 20 20 20  |QUB 93:EQUB 3   |
00005d40  20 20 20 20 20 20 20 20  20 20 20 3b 20 4f 62 6a  |           ; Obj|
00005d50  65 63 74 20 64 61 74 61  0d 22 c4 13 45 51 55 42  |ect data."..EQUB|
00005d60  20 31 32 32 3a 45 51 55  42 20 31 0d 22 ce 13 45  | 122:EQUB 1."..E|
00005d70  51 55 42 20 31 30 36 3a  45 51 55 42 20 32 0d 22  |QUB 106:EQUB 2."|
00005d80  d8 13 45 51 55 42 20 31  33 34 3a 45 51 55 42 20  |..EQUB 134:EQUB |
00005d90  31 0d 22 e2 12 45 51 55  42 20 33 37 3a 45 51 55  |1."..EQUB 37:EQU|
00005da0  42 20 33 0d 22 ec 12 45  51 55 42 20 39 33 3a 45  |B 3."..EQUB 93:E|
00005db0  51 55 42 20 33 0d 22 f6  13 45 51 55 42 20 31 34  |QUB 3."..EQUB 14|
00005dc0  36 3a 45 51 55 42 20 30  0d 23 00 09 41 4c 49 47  |6:EQUB 0.#..ALIG|
00005dd0  4e 0d 23 0a 3b 45 51 55  44 20 30 3a 45 51 55 44  |N.#.;EQUD 0:EQUD|
00005de0  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
00005df0  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |:EQUD 0:EQUD 0:E|
00005e00  51 55 44 20 30 3a 45 51  55 44 20 30 0d 23 14 39  |QUD 0:EQUD 0.#.9|
00005e10  3b 2b 31 30 38 3a 45 51  55 44 20 6b 6c 75 64 67  |;+108:EQUD kludg|
00005e20  65 5f 73 63 72 65 65 6e  20 20 20 20 20 20 20 20  |e_screen        |
00005e30  20 20 20 20 20 20 20 3b  20 53 63 72 65 65 6e 20  |       ; Screen |
00005e40  73 74 61 72 74 0d 23 1e  0a 3a 41 4c 49 47 4e 0d  |start.#..:ALIGN.|
00005e50  23 28 0f 2e 65 67 5f 73  68 6f 77 79 6f 75 0d 23  |#(..eg_showyou.#|
00005e60  32 11 41 44 52 20 52 31  32 2c 62 67 64 61 74 0d  |2.ADR R12,bgdat.|
00005e70  23 3c 14 4c 44 52 20 52  32 2c 5b 52 31 32 2c 23  |#<.LDR R2,[R12,#|
00005e80  35 36 5d 0d 23 46 10 4d  4f 56 20 52 39 2c 23 31  |56].#F.MOV R9,#1|
00005e90  30 32 34 0d 23 50 14 4d  4c 41 20 52 31 30 2c 52  |024.#P.MLA R10,R|
00005ea0  30 2c 52 39 2c 52 32 0d  23 5a 14 4d 4c 41 20 52  |0,R9,R2.#Z.MLA R|
00005eb0  31 31 2c 52 31 2c 52 39  2c 52 32 0d 23 64 15 4c  |11,R1,R9,R2.#d.L|
00005ec0  44 52 20 52 31 32 2c 5b  52 31 32 2c 23 36 30 5d  |DR R12,[R12,#60]|
00005ed0  0d 23 6e 0e 4d 4f 56 20  52 39 2c 23 33 32 0d 23  |.#n.MOV R9,#32.#|
00005ee0  78 0a 2e 6c 73 79 6f 75  0d 23 82 3b 4c 44 4d 49  |x..lsyou.#.;LDMI|
00005ef0  41 20 52 31 32 2c 7b 52  30 2d 52 32 7d 3a 4c 44  |A R12,{R0-R2}:LD|
00005f00  4d 49 41 20 52 31 30 21  2c 7b 52 33 2d 52 35 7d  |MIA R10!,{R3-R5}|
00005f10  3a 4c 44 4d 49 41 20 52  31 31 21 2c 7b 52 36 2d  |:LDMIA R11!,{R6-|
00005f20  52 38 7d 0d 23 8c 48 80  20 52 30 2c 52 30 2c 52  |R8}.#.H. R0,R0,R|
00005f30  36 3a 84 52 20 52 30 2c  52 30 2c 52 33 3a 80 20  |6:.R R0,R0,R3:. |
00005f40  52 31 2c 52 31 2c 52 37  3a 84 52 20 52 31 2c 52  |R1,R1,R7:.R R1,R|
00005f50  31 2c 52 34 3a 80 20 52  32 2c 52 32 2c 52 38 3a  |1,R4:. R2,R2,R8:|
00005f60  84 52 20 52 32 2c 52 32  2c 52 35 0d 23 96 4e 53  |.R R2,R2,R5.#.NS|
00005f70  54 4d 49 41 20 52 31 32  21 2c 7b 52 30 2d 52 32  |TMIA R12!,{R0-R2|
00005f80  7d 3a 4c 44 4d 49 41 20  52 31 32 2c 7b 52 30 2d  |}:LDMIA R12,{R0-|
00005f90  52 32 7d 3a 4c 44 4d 49  41 20 52 31 30 21 2c 7b  |R2}:LDMIA R10!,{|
00005fa0  52 33 2d 52 35 7d 3a 4c  44 4d 49 41 20 52 31 31  |R3-R5}:LDMIA R11|
00005fb0  21 2c 7b 52 36 2d 52 38  7d 0d 23 a0 48 80 20 52  |!,{R6-R8}.#.H. R|
00005fc0  30 2c 52 30 2c 52 36 3a  84 52 20 52 30 2c 52 30  |0,R0,R6:.R R0,R0|
00005fd0  2c 52 33 3a 80 20 52 31  2c 52 31 2c 52 37 3a 84  |,R3:. R1,R1,R7:.|
00005fe0  52 20 52 31 2c 52 31 2c  52 34 3a 80 20 52 32 2c  |R R1,R1,R4:. R2,|
00005ff0  52 32 2c 52 38 3a 84 52  20 52 32 2c 52 32 2c 52  |R2,R8:.R R2,R2,R|
00006000  35 0d 23 aa 4e 53 54 4d  49 41 20 52 31 32 21 2c  |5.#.NSTMIA R12!,|
00006010  7b 52 30 2d 52 32 7d 3a  4c 44 4d 49 41 20 52 31  |{R0-R2}:LDMIA R1|
00006020  32 2c 7b 52 30 2d 52 31  7d 3a 4c 44 4d 49 41 20  |2,{R0-R1}:LDMIA |
00006030  52 31 30 21 2c 7b 52 33  2d 52 34 7d 3a 4c 44 4d  |R10!,{R3-R4}:LDM|
00006040  49 41 20 52 31 31 21 2c  7b 52 36 2d 52 37 7d 0d  |IA R11!,{R6-R7}.|
00006050  23 b4 44 80 20 52 30 2c  52 30 2c 52 36 3a 84 52  |#.D. R0,R0,R6:.R|
00006060  20 52 30 2c 52 30 2c 52  33 3a 80 20 52 31 2c 52  | R0,R0,R3:. R1,R|
00006070  31 2c 52 37 3a 84 52 20  52 31 2c 52 31 2c 52 34  |1,R7:.R R1,R1,R4|
00006080  3a 53 54 4d 49 41 20 52  31 32 21 2c 7b 52 30 2d  |:STMIA R12!,{R0-|
00006090  52 31 7d 0d 23 be 31 41  44 44 20 52 31 32 2c 52  |R1}.#.1ADD R12,R|
000060a0  31 32 2c 23 28 33 32 30  2d 33 32 29 3a 53 55 42  |12,#(320-32):SUB|
000060b0  53 20 52 39 2c 52 39 2c  23 31 3a 42 4e 45 20 6c  |S R9,R9,#1:BNE l|
000060c0  73 79 6f 75 0d 23 c8 0e  4d 4f 56 20 50 43 2c 52  |syou.#..MOV PC,R|
000060d0  31 34 0d 23 d2 0f 2e 65  67 5f 77 69 70 65 79 6f  |14.#...eg_wipeyo|
000060e0  75 0d 23 dc 11 41 44 52  20 52 31 31 2c 62 67 64  |u.#..ADR R11,bgd|
000060f0  61 74 0d 23 e6 14 4c 44  52 20 52 30 2c 5b 52 31  |at.#..LDR R0,[R1|
00006100  31 2c 23 36 30 5d 0d 23  f0 25 41 44 44 20 52 31  |1,#60].#.%ADD R1|
00006110  31 2c 52 31 31 2c 23 38  30 3a 4c 44 4d 49 41 20  |1,R11,#80:LDMIA |
00006120  52 31 31 2c 7b 52 32 2d  52 39 7d 0d 23 fa e3 53  |R11,{R2-R9}.#..S|
00006130  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
00006140  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 3a 53  |ADD R0,R0,#320:S|
00006150  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
00006160  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 3a 53  |ADD R0,R0,#320:S|
00006170  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
00006180  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 3a 53  |ADD R0,R0,#320:S|
00006190  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
000061a0  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 3a 53  |ADD R0,R0,#320:S|
000061b0  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
000061c0  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 3a 53  |ADD R0,R0,#320:S|
000061d0  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
000061e0  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 3a 53  |ADD R0,R0,#320:S|
000061f0  54 4d 49 41 20 52 30 2c  7b 52 32 2d 52 39 7d 3a  |TMIA R0,{R2-R9}:|
00006200  41 44 44 20 52 30 2c 52  30 2c 23 33 32 30 0d 24  |ADD R0,R0,#320.$|
00006210  04 e3 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |..STMIA R0,{R2-R|
00006220  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
00006230  30 3a 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |0:STMIA R0,{R2-R|
00006240  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
00006250  30 3a 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |0:STMIA R0,{R2-R|
00006260  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
00006270  30 3a 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |0:STMIA R0,{R2-R|
00006280  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
00006290  30 3a 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |0:STMIA R0,{R2-R|
000062a0  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
000062b0  30 3a 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |0:STMIA R0,{R2-R|
000062c0  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
000062d0  30 3a 53 54 4d 49 41 20  52 30 2c 7b 52 32 2d 52  |0:STMIA R0,{R2-R|
000062e0  39 7d 3a 41 44 44 20 52  30 2c 52 30 2c 23 33 32  |9}:ADD R0,R0,#32|
000062f0  30 0d 24 0e e3 53 54 4d  49 41 20 52 30 2c 7b 52  |0.$..STMIA R0,{R|
00006300  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
00006310  23 33 32 30 3a 53 54 4d  49 41 20 52 30 2c 7b 52  |#320:STMIA R0,{R|
00006320  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
00006330  23 33 32 30 3a 53 54 4d  49 41 20 52 30 2c 7b 52  |#320:STMIA R0,{R|
00006340  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
00006350  23 33 32 30 3a 53 54 4d  49 41 20 52 30 2c 7b 52  |#320:STMIA R0,{R|
00006360  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
00006370  23 33 32 30 3a 53 54 4d  49 41 20 52 30 2c 7b 52  |#320:STMIA R0,{R|
00006380  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
00006390  23 33 32 30 3a 53 54 4d  49 41 20 52 30 2c 7b 52  |#320:STMIA R0,{R|
000063a0  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
000063b0  23 33 32 30 3a 53 54 4d  49 41 20 52 30 2c 7b 52  |#320:STMIA R0,{R|
000063c0  32 2d 52 39 7d 3a 41 44  44 20 52 30 2c 52 30 2c  |2-R9}:ADD R0,R0,|
000063d0  23 33 32 30 0d 24 18 e4  53 54 4d 49 41 20 52 30  |#320.$..STMIA R0|
000063e0  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
000063f0  52 30 2c 23 33 32 30 3a  53 54 4d 49 41 20 52 30  |R0,#320:STMIA R0|
00006400  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
00006410  52 30 2c 23 33 32 30 3a  53 54 4d 49 41 20 52 30  |R0,#320:STMIA R0|
00006420  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
00006430  52 30 2c 23 33 32 30 3a  53 54 4d 49 41 20 52 30  |R0,#320:STMIA R0|
00006440  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
00006450  52 30 2c 23 33 32 30 3a  53 54 4d 49 41 20 52 30  |R0,#320:STMIA R0|
00006460  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
00006470  52 30 2c 23 33 32 30 3a  53 54 4d 49 41 20 52 30  |R0,#320:STMIA R0|
00006480  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
00006490  52 30 2c 23 33 32 30 3a  53 54 4d 49 41 20 52 30  |R0,#320:STMIA R0|
000064a0  2c 7b 52 32 2d 52 39 7d  3a 41 44 44 20 52 30 2c  |,{R2-R9}:ADD R0,|
000064b0  52 30 2c 23 33 32 30 3a  0d 24 22 83 53 54 4d 49  |R0,#320:.$".STMI|
000064c0  41 20 52 30 2c 7b 52 32  2d 52 39 7d 3a 41 44 44  |A R0,{R2-R9}:ADD|
000064d0  20 52 30 2c 52 30 2c 23  33 32 30 3a 53 54 4d 49  | R0,R0,#320:STMI|
000064e0  41 20 52 30 2c 7b 52 32  2d 52 39 7d 3a 41 44 44  |A R0,{R2-R9}:ADD|
000064f0  20 52 30 2c 52 30 2c 23  33 32 30 3a 53 54 4d 49  | R0,R0,#320:STMI|
00006500  41 20 52 30 2c 7b 52 32  2d 52 39 7d 3a 41 44 44  |A R0,{R2-R9}:ADD|
00006510  20 52 30 2c 52 30 2c 23  33 32 30 3a 53 54 4d 49  | R0,R0,#320:STMI|
00006520  41 20 52 30 2c 7b 52 32  2d 52 39 7d 3a 41 44 44  |A R0,{R2-R9}:ADD|
00006530  20 52 30 2c 52 30 2c 23  33 32 30 0d 24 2c 0e 4d  | R0,R0,#320.$,.M|
00006540  4f 56 20 50 43 2c 52 31  34 0d 24 36 05 3a 0d 24  |OV PC,R14.$6.:.$|
00006550  40 2c 2e 65 67 5f 70 6c  61 79 67 61 6d 65 20 3b  |@,.eg_playgame ;|
00006560  20 57 6f 6f 20 21 20 54  68 69 73 20 69 73 20 69  | Woo ! This is i|
00006570  74 2c 20 66 6f 6c 6b 73  20 21 0d 24 4a 14 53 54  |t, folks !.$J.ST|
00006580  4d 46 44 20 52 31 33 21  2c 7b 52 31 34 7d 0d 24  |MFD R13!,{R14}.$|
00006590  54 16 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |T.STMFD R13!,{R0|
000065a0  2d 52 33 7d 0d 24 5e 36  a4 61 64 72 28 31 32 2c  |-R3}.$^6.adr(12,|
000065b0  62 67 61 6d 65 29 3a 53  54 52 20 52 34 2c 5b 52  |bgame):STR R4,[R|
000065c0  31 32 2c 23 31 31 32 5d  3a 53 54 52 20 52 35 2c  |12,#112]:STR R5,|
000065d0  5b 52 31 32 2c 23 31 31  36 5d 0d 24 68 49 4d 4f  |[R12,#116].$hIMO|
000065e0  56 20 52 30 2c 23 31 31  3a 4d 4f 56 20 52 31 2c  |V R0,#11:MOV R1,|
000065f0  23 31 3a 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |#1:SWI "OS_Byte"|
00006600  3a 4d 4f 56 20 52 30 2c  23 31 32 3a 4d 4f 56 20  |:MOV R0,#12:MOV |
00006610  52 31 2c 23 31 3a 53 57  49 20 22 4f 53 5f 42 79  |R1,#1:SWI "OS_By|
00006620  74 65 22 0d 24 72 0a 2e  6c 73 67 61 6d 0d 24 7c  |te".$r..lsgam.$||
00006630  12 a4 61 64 72 28 31 32  2c 62 67 61 6d 65 29 0d  |..adr(12,bgame).|
00006640  24 86 31 4d 4f 56 20 52  30 2c 23 31 32 39 3a 4d  |$.1MOV R0,#129:M|
00006650  4f 56 20 52 31 2c 23 30  3a 4d 4f 56 20 52 32 2c  |OV R1,#0:MOV R2,|
00006660  23 30 3a 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |#0:SWI "OS_Byte"|
00006670  0d 24 90 18 20 20 43 6d  70 20 20 20 20 20 52 31  |.$..  Cmp     R1|
00006680  2c 23 97 28 22 61 22 29  0d 24 9a 1c 20 20 52 73  |,#.("a").$..  Rs|
00006690  62 50 6c 53 20 20 52 31  34 2c 52 31 2c 23 97 28  |bPlS  R14,R1,#.(|
000066a0  22 7a 22 29 0d 24 a4 44  20 20 53 75 62 50 6c 20  |"z").$.D  SubPl |
000066b0  20 20 52 31 2c 52 31 2c  23 33 32 20 20 20 20 20  |  R1,R1,#32     |
000066c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000066d0  20 3b 20 4b 6c 75 64 67  65 20 2d 3e 20 55 70 70  | ; Kludge -> Upp|
000066e0  65 72 20 63 61 73 65 21  0d 24 ae 33 43 4d 50 20  |er case!.$.3CMP |
000066f0  52 32 2c 23 32 37 3a 42  45 51 20 6f 75 74 5f 65  |R2,#27:BEQ out_e|
00006700  73 63 61 70 65 3a 43 4d  50 20 52 32 2c 23 32 35  |scape:CMP R2,#25|
00006710  35 3a 42 45 51 20 6e 6f  6b 65 79 0d 24 b8 0e 4d  |5:BEQ nokey.$..M|
00006720  4f 56 20 52 31 30 2c 52  31 0d 24 c2 2f 4c 44 52  |OV R10,R1.$./LDR|
00006730  20 52 31 2c 5b 52 31 32  2c 23 30 5d 3a 4c 44 52  | R1,[R12,#0]:LDR|
00006740  20 52 32 2c 5b 52 31 32  2c 23 34 5d 3a 4d 4f 56  | R2,[R12,#4]:MOV|
00006750  20 52 33 2c 23 32 35 35  0d 24 cc 1c 20 20 4c 64  | R3,#255.$..  Ld|
00006760  72 20 20 20 20 20 52 31  34 2c 5b 52 31 32 2c 23  |r     R14,[R12,#|
00006770  31 34 30 5d 0d 24 d6 18  20 20 53 75 62 53 20 20  |140].$..  SubS  |
00006780  20 20 52 31 34 2c 52 31  34 2c 23 31 0d 24 e0 1c  |  R14,R14,#1.$..|
00006790  20 20 53 74 72 50 6c 20  20 20 52 31 34 2c 5b 52  |  StrPl   R14,[R|
000067a0  31 32 2c 23 31 34 30 5d  0d 24 ea 13 20 20 42 70  |12,#140].$..  Bp|
000067b0  6c 20 20 20 20 20 6e 6f  6b 65 79 0d 24 f4 26 80  |l     nokey.$.&.|
000067c0  20 52 34 2c 52 33 2c 52  31 3a 43 4d 50 20 52 31  | R4,R3,R1:CMP R1|
000067d0  30 2c 52 34 3a 42 45 51  20 6b 65 79 5f 6c 65 66  |0,R4:BEQ key_lef|
000067e0  74 0d 24 fe 2d 80 20 52  34 2c 52 33 2c 52 31 2c  |t.$.-. R4,R3,R1,|
000067f0  4c 53 52 23 38 3a 43 4d  50 20 52 31 30 2c 52 34  |LSR#8:CMP R10,R4|
00006800  3a 42 45 51 20 6b 65 79  5f 72 69 67 68 74 0d 25  |:BEQ key_right.%|
00006810  08 2b 80 20 52 34 2c 52  33 2c 52 31 2c 4c 53 52  |.+. R4,R3,R1,LSR|
00006820  23 31 36 3a 43 4d 50 20  52 31 30 2c 52 34 3a 42  |#16:CMP R10,R4:B|
00006830  45 51 20 6b 65 79 5f 75  70 0d 25 12 2d 80 20 52  |EQ key_up.%.-. R|
00006840  34 2c 52 33 2c 52 31 2c  4c 53 52 23 32 34 3a 43  |4,R3,R1,LSR#24:C|
00006850  4d 50 20 52 31 30 2c 52  34 3a 42 45 51 20 6b 65  |MP R10,R4:BEQ ke|
00006860  79 5f 64 6f 77 6e 0d 25  1c 27 80 20 52 34 2c 52  |y_down.%.'. R4,R|
00006870  33 2c 52 32 3a 43 4d 50  20 52 31 30 2c 52 34 3a  |3,R2:CMP R10,R4:|
00006880  42 45 51 20 6f 75 74 5f  70 61 75 73 65 0d 25 26  |BEQ out_pause.%&|
00006890  2d 80 20 52 34 2c 52 33  2c 52 32 2c 4c 53 52 23  |-. R4,R3,R2,LSR#|
000068a0  38 3a 43 4d 50 20 52 31  30 2c 52 34 3a 42 45 51  |8:CMP R10,R4:BEQ|
000068b0  20 6f 75 74 5f 61 62 6f  72 74 0d 25 30 0a 2e 6e  | out_abort.%0..n|
000068c0  6f 6b 65 79 0d 25 3a 11  42 4c 20 65 67 5f 77 69  |okey.%:.BL eg_wi|
000068d0  70 65 79 6f 75 0d 25 44  16 4c 44 4d 46 44 20 52  |peyou.%D.LDMFD R|
000068e0  31 33 21 2c 7b 52 30 2d  52 33 7d 0d 25 4e 2d 41  |13!,{R0-R3}.%N-A|
000068f0  44 44 20 52 33 2c 52 33  2c 23 31 3a 80 53 20 52  |DD R3,R3,#1:.S R|
00006900  34 2c 52 33 2c 23 26 31  46 3a 53 55 42 45 51 20  |4,R3,#&1F:SUBEQ |
00006910  52 32 2c 52 32 2c 23 31  0d 25 58 23 53 54 4d 46  |R2,R2,#1.%X#STMF|
00006920  44 20 52 31 33 21 2c 7b  52 30 2d 52 33 7d 3a 42  |D R13!,{R0-R3}:B|
00006930  4c 45 51 20 64 65 63 74  69 6d 65 0d 25 62 12 42  |LEQ dectime.%b.B|
00006940  4c 20 65 67 5f 73 68 6f  77 6f 62 6a 73 0d 25 6c  |L eg_showobjs.%l|
00006950  15 4c 44 4d 46 44 20 52  31 33 2c 7b 52 30 2d 52  |.LDMFD R13,{R0-R|
00006960  33 7d 0d 25 76 29 80 20  52 30 2c 52 33 2c 23 37  |3}.%v). R0,R3,#7|
00006970  3a 41 44 44 20 52 31 2c  52 30 2c 23 38 3a 42 4c  |:ADD R1,R0,#8:BL|
00006980  20 65 67 5f 73 68 6f 77  79 6f 75 0d 25 80 1c 4d  | eg_showyou.%..M|
00006990  4f 56 20 52 30 2c 23 31  39 3a 53 57 49 20 22 4f  |OV R0,#19:SWI "O|
000069a0  53 5f 42 79 74 65 22 0d  25 8a 0b 42 20 6c 73 67  |S_Byte".%..B lsg|
000069b0  61 6d 0d 25 94 0d 2e 6b  65 79 5f 6c 65 66 74 0d  |am.%...key_left.|
000069c0  25 9e 4c 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |%.LSTMFD R13!,{R|
000069d0  30 2d 52 32 7d 3a 4d 4f  56 20 52 30 2c 23 32 31  |0-R2}:MOV R0,#21|
000069e0  3a 4d 4f 56 20 52 31 2c  23 30 3a 53 57 49 20 22  |:MOV R1,#0:SWI "|
000069f0  4f 53 5f 42 79 74 65 22  3a 4c 44 4d 46 44 20 52  |OS_Byte":LDMFD R|
00006a00  31 33 21 2c 7b 52 30 2d  52 32 7d 0d 25 a8 1c 4c  |13!,{R0-R2}.%..L|
00006a10  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 2c 52 32  |DMFD R13!,{R0,R2|
00006a20  2c 52 33 2c 52 34 7d 0d  25 b2 2c 53 55 42 53 20  |,R3,R4}.%.,SUBS |
00006a30  52 31 2c 52 30 2c 23 31  3a 53 54 4d 4d 49 46 44  |R1,R0,#1:STMMIFD|
00006a40  20 52 31 33 21 2c 7b 52  30 2c 52 32 2c 52 33 2c  | R13!,{R0,R2,R3,|
00006a50  52 34 7d 0d 25 bc 3e 42  4d 49 20 6e 6f 6b 65 79  |R4}.%.>BMI nokey|
00006a60  3a 4c 44 52 20 52 35 2c  5b 52 31 32 2c 23 39 36  |:LDR R5,[R12,#96|
00006a70  5d 3a 41 44 44 20 52 35  2c 52 35 2c 52 31 3a 41  |]:ADD R5,R5,R1:A|
00006a80  44 44 20 52 37 2c 52 35  2c 52 32 2c 41 53 4c 23  |DD R7,R5,R2,ASL#|
00006a90  34 0d 25 c6 37 4c 44 52  42 20 52 31 34 2c 5b 52  |4.%.7LDRB R14,[R|
00006aa0  37 5d 3a 43 4d 50 20 52  31 34 2c 23 34 3a 53 54  |7]:CMP R14,#4:ST|
00006ab0  4d 45 51 46 44 20 52 31  33 21 2c 7b 52 30 2c 52  |MEQFD R13!,{R0,R|
00006ac0  32 2c 52 33 2c 52 34 7d  0d 25 d0 42 42 45 51 20  |2,R3,R4}.%.BBEQ |
00006ad0  6e 6f 6b 65 79 3a 4d 4f  56 20 52 31 31 2c 23 30  |nokey:MOV R11,#0|
00006ae0  3a 4c 44 52 20 52 31 30  2c 5b 52 31 32 2c 23 37  |:LDR R10,[R12,#7|
00006af0  32 5d 3a 4c 44 52 20 52  31 30 2c 5b 52 31 30 5d  |2]:LDR R10,[R10]|
00006b00  3a 4d 4f 56 20 52 39 2c  23 30 0d 25 da 34 4c 44  |:MOV R9,#0.%.4LD|
00006b10  52 20 52 35 2c 5b 52 31  32 2c 23 39 32 5d 3a 41  |R R5,[R12,#92]:A|
00006b20  44 44 20 52 35 2c 52 35  2c 52 32 3a 41 44 44 20  |DD R5,R5,R2:ADD |
00006b30  52 35 2c 52 35 2c 52 31  2c 41 53 4c 23 34 0d 25  |R5,R5,R1,ASL#4.%|
00006b40  e4 4e 4c 44 52 42 20 52  36 2c 5b 52 35 2c 23 31  |.NLDRB R6,[R5,#1|
00006b50  36 5d 21 3a 43 4d 50 20  52 36 2c 23 31 3a 53 54  |6]!:CMP R6,#1:ST|
00006b60  4d 47 54 46 44 20 52 31  33 21 2c 7b 52 30 2c 52  |MGTFD R13!,{R0,R|
00006b70  32 2c 52 33 2c 52 34 7d  3a 42 47 54 20 6e 6f 6b  |2,R3,R4}:BGT nok|
00006b80  65 79 3a 42 4e 45 20 6e  6f 6c 62 77 0d 25 ee 44  |ey:BNE nolbw.%.D|
00006b90  4c 44 52 42 20 52 36 2c  5b 52 35 2c 23 2d 31 36  |LDRB R6,[R5,#-16|
00006ba0  5d 3a 43 4d 50 20 52 36  2c 23 30 3a 53 54 4d 4e  |]:CMP R6,#0:STMN|
00006bb0  45 46 44 20 52 31 33 21  2c 7b 52 30 2c 52 32 2c  |EFD R13!,{R0,R2,|
00006bc0  52 33 2c 52 34 7d 3a 42  4e 45 20 6e 6f 6b 65 79  |R3,R4}:BNE nokey|
00006bd0  0d 25 f8 47 53 54 52 45  51 42 20 52 39 2c 5b 52  |.%.GSTREQB R9,[R|
00006be0  35 5d 3a 80 45 51 20 52  31 31 2c 52 31 30 2c 23  |5]:.EQ R11,R10,#|
00006bf0  37 3a 41 44 44 45 51 20  52 31 31 2c 52 31 31 2c  |7:ADDEQ R11,R11,|
00006c00  23 31 3a 43 4d 50 20 52  31 34 2c 23 32 3a 42 4e  |#1:CMP R14,#2:BN|
00006c10  45 20 6e 6f 6c 62 77 0d  26 02 3c 53 54 52 42 20  |E nolbw.&.<STRB |
00006c20  52 39 2c 5b 52 37 5d 3a  53 54 4d 46 44 20 52 31  |R9,[R7]:STMFD R1|
00006c30  33 21 2c 7b 52 31 2c 52  32 2c 52 33 2c 52 34 7d  |3!,{R1,R2,R3,R4}|
00006c40  3a 53 54 52 20 52 31 31  2c 5b 52 31 32 2c 23 31  |:STR R11,[R12,#1|
00006c50  30 30 5d 0d 26 0c 44 4d  4f 56 20 52 30 2c 23 33  |00].&.DMOV R0,#3|
00006c60  3a 4d 56 4e 20 52 31 2c  23 31 34 3a 4d 4f 56 20  |:MVN R1,#14:MOV |
00006c70  52 32 2c 23 26 31 42 30  30 3a 4d 4f 56 20 52 33  |R2,#&1B00:MOV R3|
00006c80  2c 23 31 3a 53 57 49 20  22 53 6f 75 6e 64 5f 43  |,#1:SWI "Sound_C|
00006c90  6f 6e 74 72 6f 6c 22 0d  26 16 1f 4c 44 4d 46 44  |ontrol".&..LDMFD|
00006ca0  20 52 31 33 2c 7b 52 30  2d 52 33 7d 3a 4d 4f 56  | R13,{R0-R3}:MOV|
00006cb0  20 52 31 2c 52 32 0d 26  20 35 4c 44 52 20 52 30  | R1,R2.& 5LDR R0|
00006cc0  2c 5b 52 31 32 2c 23 31  31 32 5d 3a 41 44 44 20  |,[R12,#112]:ADD |
00006cd0  52 30 2c 52 30 2c 23 31  31 3a 53 54 52 20 52 30  |R0,R0,#11:STR R0|
00006ce0  2c 5b 52 31 32 2c 23 31  31 32 5d 0d 26 2a 23 42  |,[R12,#112].&*#B|
00006cf0  4c 20 65 67 5f 73 68 6f  77 73 63 6f 72 3a a4 73  |L eg_showscor:.s|
00006d00  66 61 64 72 28 31 32 2c  62 67 61 6d 65 29 0d 26  |fadr(12,bgame).&|
00006d10  34 0b 42 20 6e 73 6c 62  77 0d 26 3e 36 2e 6e 6f  |4.B nslbw.&>6.no|
00006d20  6c 62 77 20 53 54 4d 46  44 20 52 31 33 21 2c 7b  |lbw STMFD R13!,{|
00006d30  52 31 2c 52 32 2c 52 33  2c 52 34 7d 3a 53 54 52  |R1,R2,R3,R4}:STR|
00006d40  20 52 31 31 2c 5b 52 31  32 2c 23 31 30 30 5d 0d  | R11,[R12,#100].|
00006d50  26 48 52 2e 6e 73 6c 62  77 20 4c 44 52 20 52 30  |&HR.nslbw LDR R0|
00006d60  2c 5b 52 31 32 2c 23 37  36 5d 3a 41 44 44 20 52  |,[R12,#76]:ADD R|
00006d70  31 2c 52 31 32 2c 23 32  38 3a 4c 44 4d 49 41 20  |1,R12,#28:LDMIA |
00006d80  52 31 2c 7b 52 32 2d 52  31 31 2c 52 31 34 7d 3a  |R1,{R2-R11,R14}:|
00006d90  4c 44 52 20 52 31 2c 5b  52 31 32 2c 23 31 32 30  |LDR R1,[R12,#120|
00006da0  5d 0d 26 52 39 2e 6c 6c  63 62 66 20 53 54 4d 49  |].&R9.llcbf STMI|
00006db0  41 20 52 30 21 2c 7b 52  32 2d 52 31 31 2c 52 31  |A R0!,{R2-R11,R1|
00006dc0  34 7d 3a 53 55 42 53 20  52 31 2c 52 31 2c 23 31  |4}:SUBS R1,R1,#1|
00006dd0  3a 42 4e 45 20 6c 6c 63  62 66 0d 26 5c 42 53 54  |:BNE llcbf.&\BST|
00006de0  4d 49 41 20 52 30 21 2c  7b 52 32 7d 3a 4c 44 52  |MIA R0!,{R2}:LDR|
00006df0  20 52 32 2c 5b 52 31 32  2c 23 31 32 34 5d 3a 4d  | R2,[R12,#124]:M|
00006e00  4f 56 20 52 31 2c 23 32  35 36 3a 4c 44 52 20 52  |OV R1,#256:LDR R|
00006e10  30 2c 5b 52 31 32 2c 23  31 32 38 5d 0d 26 66 38  |0,[R12,#128].&f8|
00006e20  2e 6c 6c 63 62 67 20 4c  44 4d 49 41 20 52 32 21  |.llcbg LDMIA R2!|
00006e30  2c 7b 52 33 2d 52 31 31  2c 52 31 34 7d 3a 53 54  |,{R3-R11,R14}:ST|
00006e40  4d 49 41 20 52 30 21 2c  7b 52 33 2d 52 31 31 2c  |MIA R0!,{R3-R11,|
00006e50  52 31 34 7d 0d 26 70 36  4c 44 4d 49 41 20 52 32  |R14}.&p6LDMIA R2|
00006e60  21 2c 7b 52 33 2d 52 34  7d 3a 53 54 4d 49 41 20  |!,{R3-R4}:STMIA |
00006e70  52 30 21 2c 7b 52 33 2d  52 34 7d 3a 41 44 44 20  |R0!,{R3-R4}:ADD |
00006e80  52 32 2c 52 32 2c 23 32  37 32 0d 26 7a 2a 41 44  |R2,R2,#272.&z*AD|
00006e90  44 20 52 30 2c 52 30 2c  23 33 32 30 3a 53 55 42  |D R0,R0,#320:SUB|
00006ea0  53 20 52 31 2c 52 31 2c  23 31 3a 42 4e 45 20 6c  |S R1,R1,#1:BNE l|
00006eb0  6c 63 62 67 0d 26 84 35  4c 44 52 20 52 30 2c 5b  |lcbg.&.5LDR R0,[|
00006ec0  52 31 32 2c 23 37 36 5d  3a a4 73 61 64 72 28 31  |R12,#76]:.sadr(1|
00006ed0  31 2c 62 67 64 61 74 29  3a 53 54 52 20 52 30 2c  |1,bgdat):STR R0,|
00006ee0  5b 52 31 31 2c 23 32 38  5d 0d 26 8e 65 4d 4f 56  |[R11,#28].&.eMOV|
00006ef0  20 52 30 2c 23 33 36 38  3a 53 54 52 20 52 30 2c  | R0,#368:STR R0,|
00006f00  5b 52 31 31 2c 23 2d 31  32 5d 3a 4d 4f 56 20 52  |[R11,#-12]:MOV R|
00006f10  30 2c 23 28 33 36 38 2a  31 36 29 3a 53 54 52 20  |0,#(368*16):STR |
00006f20  52 30 2c 5b 52 31 31 2c  23 2d 38 5d 3a 4d 4f 56  |R0,[R11,#-8]:MOV|
00006f30  20 52 30 2c 23 28 33 36  38 2a 34 38 29 3a 53 54  | R0,#(368*48):ST|
00006f40  52 20 52 30 2c 5b 52 31  31 2c 23 2d 34 5d 0d 26  |R R0,[R11,#-4].&|
00006f50  98 21 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 37  |.!LDR R0,[R12,#7|
00006f60  32 5d 3a 4c 44 52 20 52  31 31 2c 5b 52 30 5d 0d  |2]:LDR R11,[R0].|
00006f70  26 a2 47 4c 44 4d 46 44  20 52 31 33 2c 7b 52 30  |&.GLDMFD R13,{R0|
00006f80  2d 52 33 7d 3a 80 20 52  32 2c 52 31 31 2c 23 33  |-R3}:. R2,R11,#3|
00006f90  3a 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |:STMFD R13!,{R0-|
00006fa0  52 31 2c 52 31 31 7d 3a  42 4c 20 65 67 5f 73 68  |R1,R11}:BL eg_sh|
00006fb0  6f 77 6d 69 64 73 0d 26  ac 36 4c 44 4d 46 44 20  |owmids.&.6LDMFD |
00006fc0  52 31 33 21 2c 7b 52 30  2d 52 32 7d 3a 42 4c 20  |R13!,{R0-R2}:BL |
00006fd0  65 67 5f 73 68 6f 77 61  6c 6c 73 3a a4 73 66 61  |eg_showalls:.sfa|
00006fe0  64 72 28 31 32 2c 62 67  61 6d 65 29 0d 26 b6 42  |dr(12,bgame).&.B|
00006ff0  4c 44 4d 46 44 20 52 31  33 2c 7b 52 30 2d 52 33  |LDMFD R13,{R0-R3|
00007000  7d 3a 4d 4f 56 20 52 34  2c 23 34 34 3a 4c 44 52  |}:MOV R4,#44:LDR|
00007010  20 52 35 2c 5b 52 31 32  2c 23 37 36 5d 3a 4c 44  | R5,[R12,#76]:LD|
00007020  52 20 52 36 2c 5b 52 31  32 2c 23 38 30 5d 0d 26  |R R6,[R12,#80].&|
00007030  c0 16 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..STMFD R13!,{R0|
00007040  2d 52 36 7d 0d 26 ca 0a  2e 6c 73 63 72 6c 0d 26  |-R6}.&...lscrl.&|
00007050  d4 33 4c 44 4d 46 44 20  52 31 33 2c 7b 52 30 2d  |.3LDMFD R13,{R0-|
00007060  52 36 7d 3a a4 73 66 61  64 72 28 31 32 2c 62 67  |R6}:.sfadr(12,bg|
00007070  61 6d 65 29 3a 41 44 44  20 52 35 2c 52 35 2c 52  |ame):ADD R5,R5,R|
00007080  34 0d 26 de 3f 41 44 44  20 52 35 2c 52 35 2c 23  |4.&.?ADD R5,R5,#|
00007090  26 41 31 30 30 3a 41 44  44 20 52 31 31 2c 52 35  |&A100:ADD R11,R5|
000070a0  2c 23 26 39 30 3a 43 4d  50 20 52 34 2c 23 34 34  |,#&90:CMP R4,#44|
000070b0  3a 42 4c 4e 45 20 65 67  5f 77 69 70 65 64 77 6e  |:BLNE eg_wipedwn|
000070c0  0d 26 e8 2d a4 73 61 64  72 28 31 32 2c 62 67 64  |.&.-.sadr(12,bgd|
000070d0  61 74 29 3a 53 55 42 20  52 30 2c 52 30 2c 23 32  |at):SUB R0,R0,#2|
000070e0  3a 53 55 42 20 52 31 2c  52 31 2c 23 32 0d 26 f2  |:SUB R1,R1,#2.&.|
000070f0  39 4d 4f 56 20 52 33 2c  23 30 3a 4d 4f 56 20 52  |9MOV R3,#0:MOV R|
00007100  35 2c 23 35 3a 4c 44 52  20 52 36 2c 5b 52 31 32  |5,#5:LDR R6,[R12|
00007110  2c 23 34 38 5d 3a 4c 44  52 20 52 37 2c 5b 52 31  |,#48]:LDR R7,[R1|
00007120  32 2c 23 32 38 5d 0d 26  fc 38 41 44 44 20 52 37  |2,#28].&.8ADD R7|
00007130  2c 52 37 2c 23 31 36 3a  41 44 44 20 52 37 2c 52  |,R7,#16:ADD R7,R|
00007140  37 2c 23 28 33 36 38 2a  31 36 29 3a 4d 4f 56 20  |7,#(368*16):MOV |
00007150  52 38 2c 23 37 3a 42 4c  20 6c 79 73 71 72 0d 27  |R8,#7:BL lysqr.'|
00007160  06 33 a4 73 66 61 64 72  28 31 32 2c 62 67 61 6d  |.3.sfadr(12,bgam|
00007170  65 29 3a 4c 44 4d 46 44  20 52 31 33 2c 7b 52 30  |e):LDMFD R13,{R0|
00007180  2d 52 36 7d 3a 41 44 44  20 52 35 2c 52 35 2c 52  |-R6}:ADD R5,R5,R|
00007190  34 0d 27 10 3d 41 44 44  20 52 35 2c 52 35 2c 23  |4.'.=ADD R5,R5,#|
000071a0  26 41 31 30 30 3a 41 44  44 20 52 31 31 2c 52 35  |&A100:ADD R11,R5|
000071b0  2c 23 26 37 30 3a 42 4c  20 65 67 5f 73 68 6f 77  |,#&70:BL eg_show|
000071c0  79 6f 75 77 69 74 68 6f  75 74 6d 61 73 6b 0d 27  |youwithoutmask.'|
000071d0  1a 3b 4c 44 4d 46 44 20  52 31 33 2c 7b 52 30 2d  |.;LDMFD R13,{R0-|
000071e0  52 36 7d 3a 4c 44 52 20  52 32 2c 5b 52 31 32 2c  |R6}:LDR R2,[R12,|
000071f0  23 31 30 30 5d 3a 43 4d  50 20 52 32 2c 23 31 3a  |#100]:CMP R2,#1:|
00007200  42 4d 49 20 6e 73 6c 77  70 0d 27 24 3c 41 44 44  |BMI nslwp.'$<ADD|
00007210  20 52 35 2c 52 35 2c 52  34 3a 41 44 44 20 52 35  | R5,R5,R4:ADD R5|
00007220  2c 52 35 2c 23 26 41 31  30 30 3a 41 44 44 20 52  |,R5,#&A100:ADD R|
00007230  30 2c 52 35 2c 23 26 36  30 3a 42 4c 20 65 67 5f  |0,R5,#&60:BL eg_|
00007240  73 70 72 77 68 0d 27 2e  35 2e 6e 73 6c 77 70 20  |sprwh.'.5.nslwp |
00007250  4c 44 4d 46 44 20 52 31  33 2c 7b 52 30 2d 52 36  |LDMFD R13,{R0-R6|
00007260  7d 3a 41 44 44 20 52 35  2c 52 35 2c 52 34 3a 4d  |}:ADD R5,R5,R4:M|
00007270  4f 56 20 52 37 2c 23 32  35 36 0d 27 38 1c 4d 4f  |OV R7,#256.'8.MO|
00007280  56 20 52 30 2c 23 31 39  3a 53 57 49 20 22 4f 53  |V R0,#19:SWI "OS|
00007290  5f 42 79 74 65 22 0d 27  42 0a 2e 6c 6c 63 70 79  |_Byte".'B..llcpy|
000072a0  0d 27 4c 3c 4c 44 4d 49  41 20 52 35 21 2c 7b 52  |.'L<LDMIA R5!,{R|
000072b0  30 2d 34 2c 52 38 2d 52  31 31 2c 52 31 34 7d 3a  |0-4,R8-R11,R14}:|
000072c0  53 54 4d 49 41 20 52 36  21 2c 7b 52 30 2d 52 34  |STMIA R6!,{R0-R4|
000072d0  2c 52 38 2d 52 31 31 2c  52 31 34 7d 0d 27 56 3c  |,R8-R11,R14}.'V<|
000072e0  4c 44 4d 49 41 20 52 35  21 2c 7b 52 30 2d 34 2c  |LDMIA R5!,{R0-4,|
000072f0  52 38 2d 52 31 31 2c 52  31 34 7d 3a 53 54 4d 49  |R8-R11,R14}:STMI|
00007300  41 20 52 36 21 2c 7b 52  30 2d 52 34 2c 52 38 2d  |A R6!,{R0-R4,R8-|
00007310  52 31 31 2c 52 31 34 7d  0d 27 60 3c 4c 44 4d 49  |R11,R14}.'`<LDMI|
00007320  41 20 52 35 21 2c 7b 52  30 2d 34 2c 52 38 2d 52  |A R5!,{R0-4,R8-R|
00007330  31 31 2c 52 31 34 7d 3a  53 54 4d 49 41 20 52 36  |11,R14}:STMIA R6|
00007340  21 2c 7b 52 30 2d 52 34  2c 52 38 2d 52 31 31 2c  |!,{R0-R4,R8-R11,|
00007350  52 31 34 7d 0d 27 6a 3c  4c 44 4d 49 41 20 52 35  |R14}.'j<LDMIA R5|
00007360  21 2c 7b 52 30 2d 34 2c  52 38 2d 52 31 31 2c 52  |!,{R0-4,R8-R11,R|
00007370  31 34 7d 3a 53 54 4d 49  41 20 52 36 21 2c 7b 52  |14}:STMIA R6!,{R|
00007380  30 2d 52 34 2c 52 38 2d  52 31 31 2c 52 31 34 7d  |0-R4,R8-R11,R14}|
00007390  0d 27 74 3c 4c 44 4d 49  41 20 52 35 21 2c 7b 52  |.'t<LDMIA R5!,{R|
000073a0  30 2d 34 2c 52 38 2d 52  31 31 2c 52 31 34 7d 3a  |0-4,R8-R11,R14}:|
000073b0  53 54 4d 49 41 20 52 36  21 2c 7b 52 30 2d 52 34  |STMIA R6!,{R0-R4|
000073c0  2c 52 38 2d 52 31 31 2c  52 31 34 7d 0d 27 7e 3c  |,R8-R11,R14}.'~<|
000073d0  4c 44 4d 49 41 20 52 35  21 2c 7b 52 30 2d 34 2c  |LDMIA R5!,{R0-4,|
000073e0  52 38 2d 52 31 31 2c 52  31 34 7d 3a 53 54 4d 49  |R8-R11,R14}:STMI|
000073f0  41 20 52 36 21 2c 7b 52  30 2d 52 34 2c 52 38 2d  |A R6!,{R0-R4,R8-|
00007400  52 31 31 2c 52 31 34 7d  0d 27 88 3c 4c 44 4d 49  |R11,R14}.'.<LDMI|
00007410  41 20 52 35 21 2c 7b 52  30 2d 34 2c 52 38 2d 52  |A R5!,{R0-4,R8-R|
00007420  31 31 2c 52 31 34 7d 3a  53 54 4d 49 41 20 52 36  |11,R14}:STMIA R6|
00007430  21 2c 7b 52 30 2d 52 34  2c 52 38 2d 52 31 31 2c  |!,{R0-R4,R8-R11,|
00007440  52 31 34 7d 0d 27 92 50  4c 44 4d 49 41 20 52 35  |R14}.'.PLDMIA R5|
00007450  21 2c 7b 52 30 2d 34 2c  52 38 2d 52 31 31 2c 52  |!,{R0-4,R8-R11,R|
00007460  31 34 7d 3a 53 54 4d 49  41 20 52 36 21 2c 7b 52  |14}:STMIA R6!,{R|
00007470  30 2d 52 34 2c 52 38 7d  3a 41 44 44 20 52 36 2c  |0-R4,R8}:ADD R6,|
00007480  52 36 2c 23 31 36 3a 41  44 44 20 52 35 2c 52 35  |R6,#16:ADD R5,R5|
00007490  2c 23 34 38 0d 27 9c 1b  53 55 42 53 20 52 37 2c  |,#48.'..SUBS R7,|
000074a0  52 37 2c 23 31 3a 42 4e  45 20 6c 6c 63 70 79 0d  |R7,#1:BNE llcpy.|
000074b0  27 a6 3b 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |'.;LDMFD R13!,{R|
000074c0  30 2d 52 36 7d 3a 53 55  42 53 20 52 34 2c 52 34  |0-R6}:SUBS R4,R4|
000074d0  2c 23 34 3a 41 44 44 20  52 33 2c 52 33 2c 23 31  |,#4:ADD R3,R3,#1|
000074e0  3a 42 4d 49 20 6c 73 6c  6f 74 0d 27 b0 1e 53 54  |:BMI lslot.'..ST|
000074f0  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 36 7d  |MFD R13!,{R0-R6}|
00007500  3a 42 20 6c 73 63 72 6c  0d 27 ba 0a 2e 6c 73 6c  |:B lscrl.'...lsl|
00007510  6f 74 0d 27 c4 14 a4 73  66 61 64 72 28 31 32 2c  |ot.'...sfadr(12,|
00007520  62 67 61 6d 65 29 0d 27  ce 16 4c 44 52 20 52 31  |bgame).'..LDR R1|
00007530  31 2c 5b 52 31 32 2c 23  31 30 30 5d 0d 27 d8 18  |1,[R12,#100].'..|
00007540  43 4d 50 20 52 31 31 2c  23 30 3a 42 45 51 20 6e  |CMP R11,#0:BEQ n|
00007550  6e 6c 77 6c 0d 27 e2 44  4d 4f 56 20 52 30 2c 23  |nlwl.'.DMOV R0,#|
00007560  31 3a 4d 56 4e 20 52 31  2c 23 31 34 3a 4d 4f 56  |1:MVN R1,#14:MOV|
00007570  20 52 32 2c 23 26 32 37  30 30 3a 4d 4f 56 20 52  | R2,#&2700:MOV R|
00007580  33 2c 23 31 3a 53 57 49  20 22 53 6f 75 6e 64 5f  |3,#1:SWI "Sound_|
00007590  43 6f 6e 74 72 6f 6c 22  0d 27 ec 15 4c 44 4d 46  |Control".'..LDMF|
000075a0  44 20 52 31 33 2c 7b 52  30 2d 52 33 7d 0d 27 f6  |D R13,{R0-R3}.'.|
000075b0  34 4c 44 52 20 52 35 2c  5b 52 31 32 2c 23 39 32  |4LDR R5,[R12,#92|
000075c0  5d 3a 41 44 44 20 52 35  2c 52 35 2c 52 31 3a 41  |]:ADD R5,R5,R1:A|
000075d0  44 44 20 52 35 2c 52 35  2c 52 30 2c 41 53 4c 23  |DD R5,R5,R0,ASL#|
000075e0  34 0d 28 00 1c 4d 4f 56  20 52 31 31 2c 23 31 3a  |4.(..MOV R11,#1:|
000075f0  53 54 52 42 20 52 31 31  2c 5b 52 35 5d 0d 28 0a  |STRB R11,[R5].(.|
00007600  23 2e 6e 6e 6c 77 6c 20  4d 4f 56 20 52 30 2c 23  |#.nnlwl MOV R0,#|
00007610  31 39 3a 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |19:SWI "OS_Byte"|
00007620  0d 28 14 34 a4 73 66 61  64 72 28 31 32 2c 62 67  |.(.4.sfadr(12,bg|
00007630  61 6d 65 29 3a a4 61 64  72 28 31 31 2c 62 67 64  |ame):.adr(11,bgd|
00007640  61 74 29 3a 4c 44 52 20  52 30 2c 5b 52 31 32 2c  |at):LDR R0,[R12,|
00007650  23 38 30 5d 0d 28 1e 23  4c 44 52 20 52 30 2c 6b  |#80].(.#LDR R0,k|
00007660  6c 75 64 67 65 79 3a 53  54 52 20 52 30 2c 5b 52  |ludgey:STR R0,[R|
00007670  31 31 2c 23 32 38 5d 0d  28 28 65 4d 4f 56 20 52  |11,#28].((eMOV R|
00007680  30 2c 23 33 32 30 3a 53  54 52 20 52 30 2c 5b 52  |0,#320:STR R0,[R|
00007690  31 31 2c 23 2d 31 32 5d  3a 4d 4f 56 20 52 30 2c  |11,#-12]:MOV R0,|
000076a0  23 28 33 32 30 2a 31 36  29 3a 53 54 52 20 52 30  |#(320*16):STR R0|
000076b0  2c 5b 52 31 31 2c 23 2d  38 5d 3a 4d 4f 56 20 52  |,[R11,#-8]:MOV R|
000076c0  30 2c 23 28 33 32 30 2a  34 38 29 3a 53 54 52 20  |0,#(320*48):STR |
000076d0  52 30 2c 5b 52 31 31 2c  23 2d 34 5d 0d 28 32 0b  |R0,[R11,#-4].(2.|
000076e0  42 20 6e 65 77 73 71 0d  28 3c 1f 2e 6b 6c 75 64  |B newsq.(<..klud|
000076f0  67 65 79 20 45 71 75 64  20 6b 6c 75 64 67 65 5f  |gey Equd kludge_|
00007700  73 63 72 65 65 6e 0d 28  46 0e 2e 6b 65 79 5f 72  |screen.(F..key_r|
00007710  69 67 68 74 0d 28 50 4c  53 54 4d 46 44 20 52 31  |ight.(PLSTMFD R1|
00007720  33 21 2c 7b 52 30 2d 52  32 7d 3a 4d 4f 56 20 52  |3!,{R0-R2}:MOV R|
00007730  30 2c 23 32 31 3a 4d 4f  56 20 52 31 2c 23 30 3a  |0,#21:MOV R1,#0:|
00007740  53 57 49 20 22 4f 53 5f  42 79 74 65 22 3a 4c 44  |SWI "OS_Byte":LD|
00007750  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 32 7d  |MFD R13!,{R0-R2}|
00007760  0d 28 5a 1c 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |.(Z.LDMFD R13!,{|
00007770  52 30 2c 52 32 2c 52 33  2c 52 34 7d 0d 28 64 36  |R0,R2,R3,R4}.(d6|
00007780  41 44 44 20 52 31 2c 52  30 2c 23 31 3a 43 4d 50  |ADD R1,R0,#1:CMP|
00007790  20 52 31 2c 23 31 36 3a  53 54 4d 50 4c 46 44 20  | R1,#16:STMPLFD |
000077a0  52 31 33 21 2c 7b 52 30  2c 52 32 2c 52 33 2c 52  |R13!,{R0,R2,R3,R|
000077b0  34 7d 0d 28 6e 3e 42 50  4c 20 6e 6f 6b 65 79 3a  |4}.(n>BPL nokey:|
000077c0  4c 44 52 20 52 35 2c 5b  52 31 32 2c 23 39 36 5d  |LDR R5,[R12,#96]|
000077d0  3a 41 44 44 20 52 35 2c  52 35 2c 52 31 3a 41 44  |:ADD R5,R5,R1:AD|
000077e0  44 20 52 37 2c 52 35 2c  52 32 2c 41 53 4c 23 34  |D R7,R5,R2,ASL#4|
000077f0  0d 28 78 37 4c 44 52 42  20 52 31 34 2c 5b 52 37  |.(x7LDRB R14,[R7|
00007800  5d 3a 43 4d 50 20 52 31  34 2c 23 34 3a 53 54 4d  |]:CMP R14,#4:STM|
00007810  45 51 46 44 20 52 31 33  21 2c 7b 52 30 2c 52 32  |EQFD R13!,{R0,R2|
00007820  2c 52 33 2c 52 34 7d 0d  28 82 42 42 45 51 20 6e  |,R3,R4}.(.BBEQ n|
00007830  6f 6b 65 79 3a 4d 4f 56  20 52 31 31 2c 23 30 3a  |okey:MOV R11,#0:|
00007840  4c 44 52 20 52 31 30 2c  5b 52 31 32 2c 23 37 32  |LDR R10,[R12,#72|
00007850  5d 3a 4c 44 52 20 52 31  30 2c 5b 52 31 30 5d 3a  |]:LDR R10,[R10]:|
00007860  4d 4f 56 20 52 39 2c 23  30 0d 28 8c 34 4c 44 52  |MOV R9,#0.(.4LDR|
00007870  20 52 35 2c 5b 52 31 32  2c 23 39 32 5d 3a 41 44  | R5,[R12,#92]:AD|
00007880  44 20 52 35 2c 52 35 2c  52 32 3a 41 44 44 20 52  |D R5,R5,R2:ADD R|
00007890  35 2c 52 35 2c 52 31 2c  41 53 4c 23 34 0d 28 96  |5,R5,R1,ASL#4.(.|
000078a0  4d 4c 44 52 42 20 52 36  2c 5b 52 35 2c 23 30 5d  |MLDRB R6,[R5,#0]|
000078b0  21 3a 43 4d 50 20 52 36  2c 23 31 3a 53 54 4d 47  |!:CMP R6,#1:STMG|
000078c0  54 46 44 20 52 31 33 21  2c 7b 52 30 2c 52 32 2c  |TFD R13!,{R0,R2,|
000078d0  52 33 2c 52 34 7d 3a 42  47 54 20 6e 6f 6b 65 79  |R3,R4}:BGT nokey|
000078e0  3a 42 4e 45 20 6e 6f 72  62 77 0d 28 a0 43 4c 44  |:BNE norbw.(.CLD|
000078f0  52 42 20 52 36 2c 5b 52  35 2c 23 31 36 5d 3a 43  |RB R6,[R5,#16]:C|
00007900  4d 50 20 52 36 2c 23 30  3a 53 54 4d 4e 45 46 44  |MP R6,#0:STMNEFD|
00007910  20 52 31 33 21 2c 7b 52  30 2c 52 32 2c 52 33 2c  | R13!,{R0,R2,R3,|
00007920  52 34 7d 3a 42 4e 45 20  6e 6f 6b 65 79 0d 28 aa  |R4}:BNE nokey.(.|
00007930  47 53 54 52 45 51 42 20  52 39 2c 5b 52 35 5d 3a  |GSTREQB R9,[R5]:|
00007940  80 45 51 20 52 31 31 2c  52 31 30 2c 23 37 3a 41  |.EQ R11,R10,#7:A|
00007950  44 44 45 51 20 52 31 31  2c 52 31 31 2c 23 31 3a  |DDEQ R11,R11,#1:|
00007960  43 4d 50 20 52 31 34 2c  23 32 3a 42 4e 45 20 6e  |CMP R14,#2:BNE n|
00007970  6f 72 62 77 0d 28 b4 3c  53 54 52 42 20 52 39 2c  |orbw.(.<STRB R9,|
00007980  5b 52 37 5d 3a 53 54 4d  46 44 20 52 31 33 21 2c  |[R7]:STMFD R13!,|
00007990  7b 52 31 2c 52 32 2c 52  33 2c 52 34 7d 3a 53 54  |{R1,R2,R3,R4}:ST|
000079a0  52 20 52 31 31 2c 5b 52  31 32 2c 23 31 30 30 5d  |R R11,[R12,#100]|
000079b0  0d 28 be 44 4d 4f 56 20  52 30 2c 23 33 3a 4d 56  |.(.DMOV R0,#3:MV|
000079c0  4e 20 52 31 2c 23 31 34  3a 4d 4f 56 20 52 32 2c  |N R1,#14:MOV R2,|
000079d0  23 26 31 42 30 30 3a 4d  4f 56 20 52 33 2c 23 31  |#&1B00:MOV R3,#1|
000079e0  3a 53 57 49 20 22 53 6f  75 6e 64 5f 43 6f 6e 74  |:SWI "Sound_Cont|
000079f0  72 6f 6c 22 0d 28 c8 1f  4c 44 4d 46 44 20 52 31  |rol".(..LDMFD R1|
00007a00  33 2c 7b 52 30 2d 52 33  7d 3a 4d 4f 56 20 52 31  |3,{R0-R3}:MOV R1|
00007a10  2c 52 32 0d 28 d2 35 4c  44 52 20 52 30 2c 5b 52  |,R2.(.5LDR R0,[R|
00007a20  31 32 2c 23 31 31 32 5d  3a 41 44 44 20 52 30 2c  |12,#112]:ADD R0,|
00007a30  52 30 2c 23 31 31 3a 53  54 52 20 52 30 2c 5b 52  |R0,#11:STR R0,[R|
00007a40  31 32 2c 23 31 31 32 5d  0d 28 dc 23 42 4c 20 65  |12,#112].(.#BL e|
00007a50  67 5f 73 68 6f 77 73 63  6f 72 3a a4 73 66 61 64  |g_showscor:.sfad|
00007a60  72 28 31 32 2c 62 67 61  6d 65 29 0d 28 e6 0b 42  |r(12,bgame).(..B|
00007a70  20 6e 73 72 62 77 0d 28  f0 36 2e 6e 6f 72 62 77  | nsrbw.(.6.norbw|
00007a80  20 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 2c  | STMFD R13!,{R1,|
00007a90  52 32 2c 52 33 2c 52 34  7d 3a 53 54 52 20 52 31  |R2,R3,R4}:STR R1|
00007aa0  31 2c 5b 52 31 32 2c 23  31 30 30 5d 0d 28 fa 52  |1,[R12,#100].(.R|
00007ab0  2e 6e 73 72 62 77 20 4c  44 52 20 52 30 2c 5b 52  |.nsrbw LDR R0,[R|
00007ac0  31 32 2c 23 37 36 5d 3a  41 44 44 20 52 31 2c 52  |12,#76]:ADD R1,R|
00007ad0  31 32 2c 23 32 38 3a 4c  44 4d 49 41 20 52 31 2c  |12,#28:LDMIA R1,|
00007ae0  7b 52 32 2d 52 31 31 2c  52 31 34 7d 3a 4c 44 52  |{R2-R11,R14}:LDR|
00007af0  20 52 31 2c 5b 52 31 32  2c 23 31 32 30 5d 0d 29  | R1,[R12,#120].)|
00007b00  04 39 2e 6c 72 63 62 66  20 53 54 4d 49 41 20 52  |.9.lrcbf STMIA R|
00007b10  30 21 2c 7b 52 32 2d 52  31 31 2c 52 31 34 7d 3a  |0!,{R2-R11,R14}:|
00007b20  53 55 42 53 20 52 31 2c  52 31 2c 23 31 3a 42 4e  |SUBS R1,R1,#1:BN|
00007b30  45 20 6c 72 63 62 66 0d  29 0e 40 53 54 4d 49 41  |E lrcbf.).@STMIA|
00007b40  20 52 30 21 2c 7b 52 32  7d 3a 4c 44 52 20 52 32  | R0!,{R2}:LDR R2|
00007b50  2c 5b 52 31 32 2c 23 38  30 5d 3a 4d 4f 56 20 52  |,[R12,#80]:MOV R|
00007b60  31 2c 23 32 35 36 3a 4c  44 52 20 52 30 2c 5b 52  |1,#256:LDR R0,[R|
00007b70  31 32 2c 23 37 36 5d 0d  29 18 38 2e 6c 72 63 62  |12,#76].).8.lrcb|
00007b80  67 20 4c 44 4d 49 41 20  52 32 21 2c 7b 52 33 2d  |g LDMIA R2!,{R3-|
00007b90  52 31 31 2c 52 31 34 7d  3a 53 54 4d 49 41 20 52  |R11,R14}:STMIA R|
00007ba0  30 21 2c 7b 52 33 2d 52  31 31 2c 52 31 34 7d 0d  |0!,{R3-R11,R14}.|
00007bb0  29 22 36 4c 44 4d 49 41  20 52 32 21 2c 7b 52 33  |)"6LDMIA R2!,{R3|
00007bc0  2d 52 34 7d 3a 53 54 4d  49 41 20 52 30 21 2c 7b  |-R4}:STMIA R0!,{|
00007bd0  52 33 2d 52 34 7d 3a 41  44 44 20 52 32 2c 52 32  |R3-R4}:ADD R2,R2|
00007be0  2c 23 32 37 32 0d 29 2c  2a 41 44 44 20 52 30 2c  |,#272.),*ADD R0,|
00007bf0  52 30 2c 23 33 32 30 3a  53 55 42 53 20 52 31 2c  |R0,#320:SUBS R1,|
00007c00  52 31 2c 23 31 3a 42 4e  45 20 6c 72 63 62 67 0d  |R1,#1:BNE lrcbg.|
00007c10  29 36 43 4c 44 52 20 52  30 2c 5b 52 31 32 2c 23  |)6CLDR R0,[R12,#|
00007c20  37 36 5d 3a a4 73 61 64  72 28 31 31 2c 62 67 64  |76]:.sadr(11,bgd|
00007c30  61 74 29 3a 41 44 44 20  52 30 2c 52 30 2c 23 34  |at):ADD R0,R0,#4|
00007c40  38 3a 53 54 52 20 52 30  2c 5b 52 31 31 2c 23 32  |8:STR R0,[R11,#2|
00007c50  38 5d 0d 29 40 65 4d 4f  56 20 52 30 2c 23 33 36  |8].)@eMOV R0,#36|
00007c60  38 3a 53 54 52 20 52 30  2c 5b 52 31 31 2c 23 2d  |8:STR R0,[R11,#-|
00007c70  31 32 5d 3a 4d 4f 56 20  52 30 2c 23 28 33 36 38  |12]:MOV R0,#(368|
00007c80  2a 31 36 29 3a 53 54 52  20 52 30 2c 5b 52 31 31  |*16):STR R0,[R11|
00007c90  2c 23 2d 38 5d 3a 4d 4f  56 20 52 30 2c 23 28 33  |,#-8]:MOV R0,#(3|
00007ca0  36 38 2a 34 38 29 3a 53  54 52 20 52 30 2c 5b 52  |68*48):STR R0,[R|
00007cb0  31 31 2c 23 2d 34 5d 0d  29 4a 21 4c 44 52 20 52  |11,#-4].)J!LDR R|
00007cc0  30 2c 5b 52 31 32 2c 23  37 32 5d 3a 4c 44 52 20  |0,[R12,#72]:LDR |
00007cd0  52 31 31 2c 5b 52 30 5d  0d 29 54 47 4c 44 4d 46  |R11,[R0].)TGLDMF|
00007ce0  44 20 52 31 33 2c 7b 52  30 2d 52 33 7d 3a 80 20  |D R13,{R0-R3}:. |
00007cf0  52 32 2c 52 31 31 2c 23  33 3a 53 54 4d 46 44 20  |R2,R11,#3:STMFD |
00007d00  52 31 33 21 2c 7b 52 30  2d 52 31 2c 52 31 31 7d  |R13!,{R0-R1,R11}|
00007d10  3a 42 4c 20 65 67 5f 73  68 6f 77 6d 69 64 73 0d  |:BL eg_showmids.|
00007d20  29 5e 36 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |)^6LDMFD R13!,{R|
00007d30  30 2d 52 32 7d 3a 42 4c  20 65 67 5f 73 68 6f 77  |0-R2}:BL eg_show|
00007d40  61 6c 6c 73 3a a4 73 66  61 64 72 28 31 32 2c 62  |alls:.sfadr(12,b|
00007d50  67 61 6d 65 29 0d 29 68  41 4c 44 4d 46 44 20 52  |game).)hALDMFD R|
00007d60  31 33 2c 7b 52 30 2d 52  33 7d 3a 4d 4f 56 20 52  |13,{R0-R3}:MOV R|
00007d70  34 2c 23 34 3a 4c 44 52  20 52 35 2c 5b 52 31 32  |4,#4:LDR R5,[R12|
00007d80  2c 23 37 36 5d 3a 4c 44  52 20 52 36 2c 5b 52 31  |,#76]:LDR R6,[R1|
00007d90  32 2c 23 38 30 5d 0d 29  72 16 53 54 4d 46 44 20  |2,#80].)r.STMFD |
00007da0  52 31 33 21 2c 7b 52 30  2d 52 36 7d 0d 29 7c 0a  |R13!,{R0-R6}.)|.|
00007db0  2e 6c 73 63 72 72 0d 29  86 33 4c 44 4d 46 44 20  |.lscrr.).3LDMFD |
00007dc0  52 31 33 2c 7b 52 30 2d  52 36 7d 3a a4 73 66 61  |R13,{R0-R6}:.sfa|
00007dd0  64 72 28 31 32 2c 62 67  61 6d 65 29 3a 41 44 44  |dr(12,bgame):ADD|
00007de0  20 52 35 2c 52 35 2c 52  34 0d 29 90 3e 41 44 44  | R5,R5,R4.).>ADD|
00007df0  20 52 35 2c 52 35 2c 23  26 41 31 30 30 3a 41 44  | R5,R5,#&A100:AD|
00007e00  44 20 52 31 31 2c 52 35  2c 23 26 36 43 3a 43 4d  |D R11,R5,#&6C:CM|
00007e10  50 20 52 34 2c 23 34 3a  42 4c 4e 45 20 65 67 5f  |P R4,#4:BLNE eg_|
00007e20  77 69 70 65 64 77 6e 0d  29 9a 2d a4 73 61 64 72  |wipedwn.).-.sadr|
00007e30  28 31 32 2c 62 67 64 61  74 29 3a 53 55 42 20 52  |(12,bgdat):SUB R|
00007e40  30 2c 52 30 2c 23 33 3a  53 55 42 20 52 31 2c 52  |0,R0,#3:SUB R1,R|
00007e50  31 2c 23 32 0d 29 a4 47  4d 4f 56 20 52 33 2c 23  |1,#2.).GMOV R3,#|
00007e60  30 3a 4d 4f 56 20 52 35  2c 23 35 3a 4c 44 52 20  |0:MOV R5,#5:LDR |
00007e70  52 36 2c 5b 52 31 32 2c  23 34 38 5d 3a 4c 44 52  |R6,[R12,#48]:LDR|
00007e80  20 52 37 2c 5b 52 31 32  2c 23 32 38 5d 3a 53 55  | R7,[R12,#28]:SU|
00007e90  42 20 52 37 2c 52 37 2c  23 34 38 0d 29 ae 38 41  |B R7,R7,#48.).8A|
00007ea0  44 44 20 52 37 2c 52 37  2c 23 31 36 3a 41 44 44  |DD R7,R7,#16:ADD|
00007eb0  20 52 37 2c 52 37 2c 23  28 33 36 38 2a 31 36 29  | R7,R7,#(368*16)|
00007ec0  3a 4d 4f 56 20 52 38 2c  23 37 3a 42 4c 20 6c 79  |:MOV R8,#7:BL ly|
00007ed0  73 71 72 0d 29 b8 33 a4  73 66 61 64 72 28 31 32  |sqr.).3.sfadr(12|
00007ee0  2c 62 67 61 6d 65 29 3a  4c 44 4d 46 44 20 52 31  |,bgame):LDMFD R1|
00007ef0  33 2c 7b 52 30 2d 52 36  7d 3a 41 44 44 20 52 35  |3,{R0-R6}:ADD R5|
00007f00  2c 52 35 2c 52 34 0d 29  c2 3d 41 44 44 20 52 35  |,R5,R4.).=ADD R5|
00007f10  2c 52 35 2c 23 26 41 31  30 30 3a 41 44 44 20 52  |,R5,#&A100:ADD R|
00007f20  31 31 2c 52 35 2c 23 26  37 30 3a 42 4c 20 65 67  |11,R5,#&70:BL eg|
00007f30  5f 73 68 6f 77 79 6f 75  77 69 74 68 6f 75 74 6d  |_showyouwithoutm|
00007f40  61 73 6b 0d 29 cc 3b 4c  44 4d 46 44 20 52 31 33  |ask.).;LDMFD R13|
00007f50  2c 7b 52 30 2d 52 36 7d  3a 4c 44 52 20 52 32 2c  |,{R0-R6}:LDR R2,|
00007f60  5b 52 31 32 2c 23 31 30  30 5d 3a 43 4d 50 20 52  |[R12,#100]:CMP R|
00007f70  32 2c 23 31 3a 42 4d 49  20 6e 73 72 77 70 0d 29  |2,#1:BMI nsrwp.)|
00007f80  d6 3c 41 44 44 20 52 35  2c 52 35 2c 52 34 3a 41  |.<ADD R5,R5,R4:A|
00007f90  44 44 20 52 35 2c 52 35  2c 23 26 41 31 30 30 3a  |DD R5,R5,#&A100:|
00007fa0  41 44 44 20 52 30 2c 52  35 2c 23 26 39 30 3a 42  |ADD R0,R5,#&90:B|
00007fb0  4c 20 65 67 5f 73 70 72  77 68 0d 29 e0 35 2e 6e  |L eg_sprwh.).5.n|
00007fc0  73 72 77 70 20 4c 44 4d  46 44 20 52 31 33 2c 7b  |srwp LDMFD R13,{|
00007fd0  52 30 2d 52 36 7d 3a 41  44 44 20 52 35 2c 52 35  |R0-R6}:ADD R5,R5|
00007fe0  2c 52 34 3a 4d 4f 56 20  52 37 2c 23 32 35 36 0d  |,R4:MOV R7,#256.|
00007ff0  29 ea 1c 4d 4f 56 20 52  30 2c 23 31 39 3a 53 57  |)..MOV R0,#19:SW|
00008000  49 20 22 4f 53 5f 42 79  74 65 22 0d 29 f4 0a 2e  |I "OS_Byte".)...|
00008010  6c 72 63 70 79 0d 29 fe  3c 4c 44 4d 49 41 20 52  |lrcpy.).<LDMIA R|
00008020  35 21 2c 7b 52 30 2d 34  2c 52 38 2d 52 31 31 2c  |5!,{R0-4,R8-R11,|
00008030  52 31 34 7d 3a 53 54 4d  49 41 20 52 36 21 2c 7b  |R14}:STMIA R6!,{|
00008040  52 30 2d 52 34 2c 52 38  2d 52 31 31 2c 52 31 34  |R0-R4,R8-R11,R14|
00008050  7d 0d 2a 08 3c 4c 44 4d  49 41 20 52 35 21 2c 7b  |}.*.<LDMIA R5!,{|
00008060  52 30 2d 34 2c 52 38 2d  52 31 31 2c 52 31 34 7d  |R0-4,R8-R11,R14}|
00008070  3a 53 54 4d 49 41 20 52  36 21 2c 7b 52 30 2d 52  |:STMIA R6!,{R0-R|
00008080  34 2c 52 38 2d 52 31 31  2c 52 31 34 7d 0d 2a 12  |4,R8-R11,R14}.*.|
00008090  3c 4c 44 4d 49 41 20 52  35 21 2c 7b 52 30 2d 34  |<LDMIA R5!,{R0-4|
000080a0  2c 52 38 2d 52 31 31 2c  52 31 34 7d 3a 53 54 4d  |,R8-R11,R14}:STM|
000080b0  49 41 20 52 36 21 2c 7b  52 30 2d 52 34 2c 52 38  |IA R6!,{R0-R4,R8|
000080c0  2d 52 31 31 2c 52 31 34  7d 0d 2a 1c 3c 4c 44 4d  |-R11,R14}.*.<LDM|
000080d0  49 41 20 52 35 21 2c 7b  52 30 2d 34 2c 52 38 2d  |IA R5!,{R0-4,R8-|
000080e0  52 31 31 2c 52 31 34 7d  3a 53 54 4d 49 41 20 52  |R11,R14}:STMIA R|
000080f0  36 21 2c 7b 52 30 2d 52  34 2c 52 38 2d 52 31 31  |6!,{R0-R4,R8-R11|
00008100  2c 52 31 34 7d 0d 2a 26  3c 4c 44 4d 49 41 20 52  |,R14}.*&<LDMIA R|
00008110  35 21 2c 7b 52 30 2d 34  2c 52 38 2d 52 31 31 2c  |5!,{R0-4,R8-R11,|
00008120  52 31 34 7d 3a 53 54 4d  49 41 20 52 36 21 2c 7b  |R14}:STMIA R6!,{|
00008130  52 30 2d 52 34 2c 52 38  2d 52 31 31 2c 52 31 34  |R0-R4,R8-R11,R14|
00008140  7d 0d 2a 30 3c 4c 44 4d  49 41 20 52 35 21 2c 7b  |}.*0<LDMIA R5!,{|
00008150  52 30 2d 34 2c 52 38 2d  52 31 31 2c 52 31 34 7d  |R0-4,R8-R11,R14}|
00008160  3a 53 54 4d 49 41 20 52  36 21 2c 7b 52 30 2d 52  |:STMIA R6!,{R0-R|
00008170  34 2c 52 38 2d 52 31 31  2c 52 31 34 7d 0d 2a 3a  |4,R8-R11,R14}.*:|
00008180  3c 4c 44 4d 49 41 20 52  35 21 2c 7b 52 30 2d 34  |<LDMIA R5!,{R0-4|
00008190  2c 52 38 2d 52 31 31 2c  52 31 34 7d 3a 53 54 4d  |,R8-R11,R14}:STM|
000081a0  49 41 20 52 36 21 2c 7b  52 30 2d 52 34 2c 52 38  |IA R6!,{R0-R4,R8|
000081b0  2d 52 31 31 2c 52 31 34  7d 0d 2a 44 50 4c 44 4d  |-R11,R14}.*DPLDM|
000081c0  49 41 20 52 35 21 2c 7b  52 30 2d 34 2c 52 38 2d  |IA R5!,{R0-4,R8-|
000081d0  52 31 31 2c 52 31 34 7d  3a 53 54 4d 49 41 20 52  |R11,R14}:STMIA R|
000081e0  36 21 2c 7b 52 30 2d 52  34 2c 52 38 7d 3a 41 44  |6!,{R0-R4,R8}:AD|
000081f0  44 20 52 36 2c 52 36 2c  23 31 36 3a 41 44 44 20  |D R6,R6,#16:ADD |
00008200  52 35 2c 52 35 2c 23 34  38 0d 2a 4e 1b 53 55 42  |R5,R5,#48.*N.SUB|
00008210  53 20 52 37 2c 52 37 2c  23 31 3a 42 4e 45 20 6c  |S R7,R7,#1:BNE l|
00008220  72 63 70 79 0d 2a 58 45  4c 44 4d 46 44 20 52 31  |rcpy.*XELDMFD R1|
00008230  33 21 2c 7b 52 30 2d 52  36 7d 3a 41 44 44 20 52  |3!,{R0-R6}:ADD R|
00008240  34 2c 52 34 2c 23 34 3a  43 4d 50 20 52 34 2c 23  |4,R4,#4:CMP R4,#|
00008250  35 32 3a 41 44 44 20 52  33 2c 52 33 2c 23 31 3a  |52:ADD R3,R3,#1:|
00008260  42 50 4c 20 6c 73 72 6f  74 0d 2a 62 1e 53 54 4d  |BPL lsrot.*b.STM|
00008270  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 36 7d 3a  |FD R13!,{R0-R6}:|
00008280  42 20 6c 73 63 72 72 0d  2a 6c 0a 2e 6c 73 72 6f  |B lscrr.*l..lsro|
00008290  74 0d 2a 76 14 a4 73 66  61 64 72 28 31 32 2c 62  |t.*v..sfadr(12,b|
000082a0  67 61 6d 65 29 0d 2a 80  16 4c 44 52 20 52 31 31  |game).*..LDR R11|
000082b0  2c 5b 52 31 32 2c 23 31  30 30 5d 0d 2a 8a 18 43  |,[R12,#100].*..C|
000082c0  4d 50 20 52 31 31 2c 23  30 3a 42 45 51 20 6e 6e  |MP R11,#0:BEQ nn|
000082d0  72 77 6c 0d 2a 94 44 4d  4f 56 20 52 30 2c 23 31  |rwl.*.DMOV R0,#1|
000082e0  3a 4d 56 4e 20 52 31 2c  23 31 34 3a 4d 4f 56 20  |:MVN R1,#14:MOV |
000082f0  52 32 2c 23 26 32 37 30  30 3a 4d 4f 56 20 52 33  |R2,#&2700:MOV R3|
00008300  2c 23 31 3a 53 57 49 20  22 53 6f 75 6e 64 5f 43  |,#1:SWI "Sound_C|
00008310  6f 6e 74 72 6f 6c 22 0d  2a 9e 15 4c 44 4d 46 44  |ontrol".*..LDMFD|
00008320  20 52 31 33 2c 7b 52 30  2d 52 33 7d 0d 2a a8 34  | R13,{R0-R3}.*.4|
00008330  4c 44 52 20 52 35 2c 5b  52 31 32 2c 23 39 32 5d  |LDR R5,[R12,#92]|
00008340  3a 41 44 44 20 52 35 2c  52 35 2c 52 31 3a 41 44  |:ADD R5,R5,R1:AD|
00008350  44 20 52 35 2c 52 35 2c  52 30 2c 41 53 4c 23 34  |D R5,R5,R0,ASL#4|
00008360  0d 2a b2 20 4d 4f 56 20  52 31 31 2c 23 31 3a 53  |.*. MOV R11,#1:S|
00008370  54 52 42 20 52 31 31 2c  5b 52 35 2c 23 31 36 5d  |TRB R11,[R5,#16]|
00008380  0d 2a bc 23 2e 6e 6e 72  77 6c 20 4d 4f 56 20 52  |.*.#.nnrwl MOV R|
00008390  30 2c 23 31 39 3a 53 57  49 20 22 4f 53 5f 42 79  |0,#19:SWI "OS_By|
000083a0  74 65 22 0d 2a c6 34 a4  73 66 61 64 72 28 31 32  |te".*.4.sfadr(12|
000083b0  2c 62 67 61 6d 65 29 3a  a4 61 64 72 28 31 31 2c  |,bgame):.adr(11,|
000083c0  62 67 64 61 74 29 3a 4c  44 52 20 52 30 2c 5b 52  |bgdat):LDR R0,[R|
000083d0  31 32 2c 23 38 30 5d 0d  2a d0 23 4c 44 52 20 52  |12,#80].*.#LDR R|
000083e0  30 2c 6b 6c 75 64 67 65  79 3a 53 54 52 20 52 30  |0,kludgey:STR R0|
000083f0  2c 5b 52 31 31 2c 23 32  38 5d 0d 2a da 65 4d 4f  |,[R11,#28].*.eMO|
00008400  56 20 52 30 2c 23 33 32  30 3a 53 54 52 20 52 30  |V R0,#320:STR R0|
00008410  2c 5b 52 31 31 2c 23 2d  31 32 5d 3a 4d 4f 56 20  |,[R11,#-12]:MOV |
00008420  52 30 2c 23 28 33 32 30  2a 31 36 29 3a 53 54 52  |R0,#(320*16):STR|
00008430  20 52 30 2c 5b 52 31 31  2c 23 2d 38 5d 3a 4d 4f  | R0,[R11,#-8]:MO|
00008440  56 20 52 30 2c 23 28 33  32 30 2a 34 38 29 3a 53  |V R0,#(320*48):S|
00008450  54 52 20 52 30 2c 5b 52  31 31 2c 23 2d 34 5d 0d  |TR R0,[R11,#-4].|
00008460  2a e4 0b 42 20 6e 65 77  73 71 0d 2a ee 0b 2e 6b  |*..B newsq.*...k|
00008470  65 79 5f 75 70 0d 2a f8  4c 53 54 4d 46 44 20 52  |ey_up.*.LSTMFD R|
00008480  31 33 21 2c 7b 52 30 2d  52 32 7d 3a 4d 4f 56 20  |13!,{R0-R2}:MOV |
00008490  52 30 2c 23 32 31 3a 4d  4f 56 20 52 31 2c 23 30  |R0,#21:MOV R1,#0|
000084a0  3a 53 57 49 20 22 4f 53  5f 42 79 74 65 22 3a 4c  |:SWI "OS_Byte":L|
000084b0  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 32  |DMFD R13!,{R0-R2|
000084c0  7d 0d 2b 02 1c 4c 44 4d  46 44 20 52 31 33 21 2c  |}.+..LDMFD R13!,|
000084d0  7b 52 30 2c 52 32 2c 52  33 2c 52 34 7d 0d 2b 0c  |{R0,R2,R3,R4}.+.|
000084e0  2c 53 55 42 53 20 52 31  2c 52 32 2c 23 31 3a 53  |,SUBS R1,R2,#1:S|
000084f0  54 4d 4d 49 46 44 20 52  31 33 21 2c 7b 52 30 2c  |TMMIFD R13!,{R0,|
00008500  52 32 2c 52 33 2c 52 34  7d 0d 2b 16 3e 42 4d 49  |R2,R3,R4}.+.>BMI|
00008510  20 6e 6f 6b 65 79 3a 4c  44 52 20 52 35 2c 5b 52  | nokey:LDR R5,[R|
00008520  31 32 2c 23 39 36 5d 3a  41 44 44 20 52 35 2c 52  |12,#96]:ADD R5,R|
00008530  35 2c 52 30 3a 41 44 44  20 52 37 2c 52 35 2c 52  |5,R0:ADD R7,R5,R|
00008540  31 2c 41 53 4c 23 34 0d  2b 20 37 4c 44 52 42 20  |1,ASL#4.+ 7LDRB |
00008550  52 31 34 2c 5b 52 37 5d  3a 43 4d 50 20 52 31 34  |R14,[R7]:CMP R14|
00008560  2c 23 34 3a 53 54 4d 45  51 46 44 20 52 31 33 21  |,#4:STMEQFD R13!|
00008570  2c 7b 52 30 2c 52 32 2c  52 33 2c 52 34 7d 0d 2b  |,{R0,R2,R3,R4}.+|
00008580  2a 42 42 45 51 20 6e 6f  6b 65 79 3a 4d 4f 56 20  |*BBEQ nokey:MOV |
00008590  52 31 31 2c 23 30 3a 4c  44 52 20 52 31 30 2c 5b  |R11,#0:LDR R10,[|
000085a0  52 31 32 2c 23 37 32 5d  3a 4c 44 52 20 52 31 30  |R12,#72]:LDR R10|
000085b0  2c 5b 52 31 30 5d 3a 4d  4f 56 20 52 39 2c 23 30  |,[R10]:MOV R9,#0|
000085c0  0d 2b 34 34 4c 44 52 20  52 35 2c 5b 52 31 32 2c  |.+44LDR R5,[R12,|
000085d0  23 38 38 5d 3a 41 44 44  20 52 35 2c 52 35 2c 52  |#88]:ADD R5,R5,R|
000085e0  30 3a 41 44 44 20 52 35  2c 52 35 2c 52 31 2c 41  |0:ADD R5,R5,R1,A|
000085f0  53 4c 23 34 0d 2b 3e 4e  4c 44 52 42 20 52 36 2c  |SL#4.+>NLDRB R6,|
00008600  5b 52 35 2c 23 31 36 5d  21 3a 43 4d 50 20 52 36  |[R5,#16]!:CMP R6|
00008610  2c 23 31 3a 53 54 4d 47  54 46 44 20 52 31 33 21  |,#1:STMGTFD R13!|
00008620  2c 7b 52 30 2c 52 32 2c  52 33 2c 52 34 7d 3a 42  |,{R0,R2,R3,R4}:B|
00008630  47 54 20 6e 6f 6b 65 79  3a 42 4e 45 20 6e 6f 75  |GT nokey:BNE nou|
00008640  62 77 0d 2b 48 44 4c 44  52 42 20 52 36 2c 5b 52  |bw.+HDLDRB R6,[R|
00008650  35 2c 23 2d 31 36 5d 3a  43 4d 50 20 52 36 2c 23  |5,#-16]:CMP R6,#|
00008660  30 3a 53 54 4d 4e 45 46  44 20 52 31 33 21 2c 7b  |0:STMNEFD R13!,{|
00008670  52 30 2c 52 32 2c 52 33  2c 52 34 7d 3a 42 4e 45  |R0,R2,R3,R4}:BNE|
00008680  20 6e 6f 6b 65 79 0d 2b  52 47 53 54 52 45 51 42  | nokey.+RGSTREQB|
00008690  20 52 39 2c 5b 52 35 5d  3a 80 45 51 20 52 31 31  | R9,[R5]:.EQ R11|
000086a0  2c 52 31 30 2c 23 37 3a  41 44 44 45 51 20 52 31  |,R10,#7:ADDEQ R1|
000086b0  31 2c 52 31 31 2c 23 31  3a 43 4d 50 20 52 31 34  |1,R11,#1:CMP R14|
000086c0  2c 23 32 3a 42 4e 45 20  6e 6f 75 62 77 0d 2b 5c  |,#2:BNE noubw.+\|
000086d0  3c 53 54 52 42 20 52 39  2c 5b 52 37 5d 3a 53 54  |<STRB R9,[R7]:ST|
000086e0  4d 46 44 20 52 31 33 21  2c 7b 52 30 2c 52 31 2c  |MFD R13!,{R0,R1,|
000086f0  52 33 2c 52 34 7d 3a 53  54 52 20 52 31 31 2c 5b  |R3,R4}:STR R11,[|
00008700  52 31 32 2c 23 31 30 30  5d 0d 2b 66 44 4d 4f 56  |R12,#100].+fDMOV|
00008710  20 52 30 2c 23 33 3a 4d  56 4e 20 52 31 2c 23 31  | R0,#3:MVN R1,#1|
00008720  34 3a 4d 4f 56 20 52 32  2c 23 26 31 42 30 30 3a  |4:MOV R2,#&1B00:|
00008730  4d 4f 56 20 52 33 2c 23  31 3a 53 57 49 20 22 53  |MOV R3,#1:SWI "S|
00008740  6f 75 6e 64 5f 43 6f 6e  74 72 6f 6c 22 0d 2b 70  |ound_Control".+p|
00008750  1f 4c 44 4d 46 44 20 52  31 33 2c 7b 52 30 2d 52  |.LDMFD R13,{R0-R|
00008760  33 7d 3a 4d 4f 56 20 52  31 2c 52 32 0d 2b 7a 35  |3}:MOV R1,R2.+z5|
00008770  4c 44 52 20 52 30 2c 5b  52 31 32 2c 23 31 31 32  |LDR R0,[R12,#112|
00008780  5d 3a 41 44 44 20 52 30  2c 52 30 2c 23 31 31 3a  |]:ADD R0,R0,#11:|
00008790  53 54 52 20 52 30 2c 5b  52 31 32 2c 23 31 31 32  |STR R0,[R12,#112|
000087a0  5d 0d 2b 84 23 42 4c 20  65 67 5f 73 68 6f 77 73  |].+.#BL eg_shows|
000087b0  63 6f 72 3a a4 73 66 61  64 72 28 31 32 2c 62 67  |cor:.sfadr(12,bg|
000087c0  61 6d 65 29 0d 2b 8e 0b  42 20 6e 73 75 62 77 0d  |ame).+..B nsubw.|
000087d0  2b 98 36 2e 6e 6f 75 62  77 20 53 54 4d 46 44 20  |+.6.noubw STMFD |
000087e0  52 31 33 21 2c 7b 52 30  2c 52 31 2c 52 33 2c 52  |R13!,{R0,R1,R3,R|
000087f0  34 7d 3a 53 54 52 20 52  31 31 2c 5b 52 31 32 2c  |4}:STR R11,[R12,|
00008800  23 31 30 30 5d 0d 2b a2  51 2e 6e 73 75 62 77 20  |#100].+.Q.nsubw |
00008810  4c 44 52 20 52 30 2c 5b  52 31 32 2c 23 37 36 5d  |LDR R0,[R12,#76]|
00008820  3a 41 44 44 20 52 31 2c  52 31 32 2c 23 32 38 3a  |:ADD R1,R12,#28:|
00008830  4c 44 4d 49 41 20 52 31  2c 7b 52 32 2d 52 31 31  |LDMIA R1,{R2-R11|
00008840  2c 52 31 34 7d 3a 4c 44  52 20 52 31 2c 5b 52 31  |,R14}:LDR R1,[R1|
00008850  32 2c 23 38 34 5d 0d 2b  ac 39 2e 6c 75 63 62 66  |2,#84].+.9.lucbf|
00008860  20 53 54 4d 49 41 20 52  30 21 2c 7b 52 32 2d 52  | STMIA R0!,{R2-R|
00008870  31 31 2c 52 31 34 7d 3a  53 55 42 53 20 52 31 2c  |11,R14}:SUBS R1,|
00008880  52 31 2c 23 31 3a 42 4e  45 20 6c 75 63 62 66 0d  |R1,#1:BNE lucbf.|
00008890  2b b6 33 53 54 4d 49 41  20 52 30 21 2c 7b 52 32  |+.3STMIA R0!,{R2|
000088a0  2d 52 31 30 7d 3a 4c 44  52 20 52 32 2c 5b 52 31  |-R10}:LDR R2,[R1|
000088b0  32 2c 23 32 34 5d 3a 4d  4f 56 20 52 31 2c 23 33  |2,#24]:MOV R1,#3|
000088c0  38 34 0d 2b c0 50 2e 6c  75 63 62 67 20 4c 44 4d  |84.+.P.lucbg LDM|
000088d0  49 41 20 52 32 21 2c 7b  52 33 2d 52 31 31 2c 52  |IA R2!,{R3-R11,R|
000088e0  31 34 7d 3a 53 54 4d 49  41 20 52 30 21 2c 7b 52  |14}:STMIA R0!,{R|
000088f0  33 2d 52 31 31 2c 52 31  34 7d 3a 53 55 42 53 20  |3-R11,R14}:SUBS |
00008900  52 31 2c 52 31 2c 23 31  3a 42 4e 45 20 6c 75 63  |R1,R1,#1:BNE luc|
00008910  62 67 0d 2b ca 18 53 55  42 20 52 30 2c 52 30 2c  |bg.+..SUB R0,R0,|
00008920  23 28 33 32 30 2a 33 30  34 29 0d 2b d4 24 a4 73  |#(320*304).+.$.s|
00008930  61 64 72 28 31 31 2c 62  67 64 61 74 29 3a 53 54  |adr(11,bgdat):ST|
00008940  52 20 52 30 2c 5b 52 31  31 2c 23 32 38 5d 0d 2b  |R R0,[R11,#28].+|
00008950  de 21 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 37  |.!LDR R0,[R12,#7|
00008960  32 5d 3a 4c 44 52 20 52  31 31 2c 5b 52 30 5d 0d  |2]:LDR R11,[R0].|
00008970  2b e8 47 4c 44 4d 46 44  20 52 31 33 2c 7b 52 30  |+.GLDMFD R13,{R0|
00008980  2d 52 33 7d 3a 80 20 52  32 2c 52 31 31 2c 23 33  |-R3}:. R2,R11,#3|
00008990  3a 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |:STMFD R13!,{R0-|
000089a0  52 31 2c 52 31 31 7d 3a  42 4c 20 65 67 5f 73 68  |R1,R11}:BL eg_sh|
000089b0  6f 77 6d 69 64 73 0d 2b  f2 36 4c 44 4d 46 44 20  |owmids.+.6LDMFD |
000089c0  52 31 33 21 2c 7b 52 30  2d 52 32 7d 3a 42 4c 20  |R13!,{R0-R2}:BL |
000089d0  65 67 5f 73 68 6f 77 61  6c 6c 73 3a a4 73 66 61  |eg_showalls:.sfa|
000089e0  64 72 28 31 32 2c 62 67  61 6d 65 29 0d 2b fc 48  |dr(12,bgame).+.H|
000089f0  4c 44 4d 46 44 20 52 31  33 2c 7b 52 30 2d 52 33  |LDMFD R13,{R0-R3|
00008a00  7d 3a 4d 4f 56 20 52 34  2c 23 28 34 34 2a 33 32  |}:MOV R4,#(44*32|
00008a10  30 29 3a 4c 44 52 20 52  35 2c 5b 52 31 32 2c 23  |0):LDR R5,[R12,#|
00008a20  37 36 5d 3a 4c 44 52 20  52 36 2c 5b 52 31 32 2c  |76]:LDR R6,[R12,|
00008a30  23 38 30 5d 0d 2c 06 16  53 54 4d 46 44 20 52 31  |#80].,..STMFD R1|
00008a40  33 21 2c 7b 52 30 2d 52  36 7d 0d 2c 10 0a 2e 6c  |3!,{R0-R6}.,...l|
00008a50  73 63 72 75 0d 2c 1a 33  4c 44 4d 46 44 20 52 31  |scru.,.3LDMFD R1|
00008a60  33 2c 7b 52 30 2d 52 36  7d 3a a4 73 66 61 64 72  |3,{R0-R6}:.sfadr|
00008a70  28 31 32 2c 62 67 61 6d  65 29 3a 41 44 44 20 52  |(12,bgame):ADD R|
00008a80  35 2c 52 35 2c 52 34 0d  2c 24 45 41 44 44 20 52  |5,R5,R4.,$EADD R|
00008a90  35 2c 52 35 2c 23 26 42  34 30 30 3a 41 44 44 20  |5,R5,#&B400:ADD |
00008aa0  52 31 31 2c 52 35 2c 23  26 37 30 3a 43 4d 50 20  |R11,R5,#&70:CMP |
00008ab0  52 34 2c 23 28 34 34 2a  33 32 30 29 3a 42 4c 4e  |R4,#(44*320):BLN|
00008ac0  45 20 65 67 5f 77 69 70  65 61 63 72 0d 2c 2e 2d  |E eg_wipeacr.,.-|
00008ad0  a4 73 61 64 72 28 31 32  2c 62 67 64 61 74 29 3a  |.sadr(12,bgdat):|
00008ae0  53 55 42 20 52 30 2c 52  30 2c 23 32 3a 53 55 42  |SUB R0,R0,#2:SUB|
00008af0  20 52 31 2c 52 31 2c 23  32 0d 2c 38 39 4d 4f 56  | R1,R1,#2.,89MOV|
00008b00  20 52 33 2c 23 30 3a 4d  4f 56 20 52 35 2c 23 36  | R3,#0:MOV R5,#6|
00008b10  3a 4c 44 52 20 52 36 2c  5b 52 31 32 2c 23 34 38  |:LDR R6,[R12,#48|
00008b20  5d 3a 4c 44 52 20 52 37  2c 5b 52 31 32 2c 23 32  |]:LDR R7,[R12,#2|
00008b30  38 5d 0d 2c 42 38 41 44  44 20 52 37 2c 52 37 2c  |8].,B8ADD R7,R7,|
00008b40  23 31 36 3a 41 44 44 20  52 37 2c 52 37 2c 23 28  |#16:ADD R7,R7,#(|
00008b50  33 32 30 2a 31 36 29 3a  4d 4f 56 20 52 38 2c 23  |320*16):MOV R8,#|
00008b60  36 3a 42 4c 20 6c 79 73  71 72 0d 2c 4c 33 a4 73  |6:BL lysqr.,L3.s|
00008b70  66 61 64 72 28 31 32 2c  62 67 61 6d 65 29 3a 4c  |fadr(12,bgame):L|
00008b80  44 4d 46 44 20 52 31 33  2c 7b 52 30 2d 52 36 7d  |DMFD R13,{R0-R6}|
00008b90  3a 41 44 44 20 52 35 2c  52 35 2c 52 34 0d 2c 56  |:ADD R5,R5,R4.,V|
00008ba0  3d 41 44 44 20 52 35 2c  52 35 2c 23 26 38 43 30  |=ADD R5,R5,#&8C0|
00008bb0  30 3a 41 44 44 20 52 31  31 2c 52 35 2c 23 26 37  |0:ADD R11,R5,#&7|
00008bc0  30 3a 42 4c 20 65 67 5f  73 68 6f 77 79 6f 75 77  |0:BL eg_showyouw|
00008bd0  69 74 68 6f 75 74 6d 61  73 6b 0d 2c 60 3b 4c 44  |ithoutmask.,`;LD|
00008be0  4d 46 44 20 52 31 33 2c  7b 52 30 2d 52 36 7d 3a  |MFD R13,{R0-R6}:|
00008bf0  4c 44 52 20 52 32 2c 5b  52 31 32 2c 23 31 30 30  |LDR R2,[R12,#100|
00008c00  5d 3a 43 4d 50 20 52 32  2c 23 31 3a 42 4d 49 20  |]:CMP R2,#1:BMI |
00008c10  6e 73 75 77 70 0d 2c 6a  3c 41 44 44 20 52 35 2c  |nsuwp.,j<ADD R5,|
00008c20  52 35 2c 52 34 3a 41 44  44 20 52 35 2c 52 35 2c  |R5,R4:ADD R5,R5,|
00008c30  23 26 37 38 30 30 3a 41  44 44 20 52 30 2c 52 35  |#&7800:ADD R0,R5|
00008c40  2c 23 26 37 30 3a 42 4c  20 65 67 5f 73 70 72 77  |,#&70:BL eg_sprw|
00008c50  6c 0d 2c 74 35 2e 6e 73  75 77 70 20 4c 44 4d 46  |l.,t5.nsuwp LDMF|
00008c60  44 20 52 31 33 2c 7b 52  30 2d 52 36 7d 3a 41 44  |D R13,{R0-R6}:AD|
00008c70  44 20 52 35 2c 52 35 2c  52 34 3a 4d 4f 56 20 52  |D R5,R5,R4:MOV R|
00008c80  37 2c 23 32 35 36 0d 2c  7e 1c 4d 4f 56 20 52 30  |7,#256.,~.MOV R0|
00008c90  2c 23 31 39 3a 53 57 49  20 22 4f 53 5f 42 79 74  |,#19:SWI "OS_Byt|
00008ca0  65 22 0d 2c 88 0a 2e 6c  75 63 70 79 0d 2c 92 3c  |e".,...lucpy.,.<|
00008cb0  4c 44 4d 49 41 20 52 35  21 2c 7b 52 30 2d 34 2c  |LDMIA R5!,{R0-4,|
00008cc0  52 38 2d 52 31 31 2c 52  31 34 7d 3a 53 54 4d 49  |R8-R11,R14}:STMI|
00008cd0  41 20 52 36 21 2c 7b 52  30 2d 52 34 2c 52 38 2d  |A R6!,{R0-R4,R8-|
00008ce0  52 31 31 2c 52 31 34 7d  0d 2c 9c 3c 4c 44 4d 49  |R11,R14}.,.<LDMI|
00008cf0  41 20 52 35 21 2c 7b 52  30 2d 34 2c 52 38 2d 52  |A R5!,{R0-4,R8-R|
00008d00  31 31 2c 52 31 34 7d 3a  53 54 4d 49 41 20 52 36  |11,R14}:STMIA R6|
00008d10  21 2c 7b 52 30 2d 52 34  2c 52 38 2d 52 31 31 2c  |!,{R0-R4,R8-R11,|
00008d20  52 31 34 7d 0d 2c a6 3c  4c 44 4d 49 41 20 52 35  |R14}.,.<LDMIA R5|
00008d30  21 2c 7b 52 30 2d 34 2c  52 38 2d 52 31 31 2c 52  |!,{R0-4,R8-R11,R|
00008d40  31 34 7d 3a 53 54 4d 49  41 20 52 36 21 2c 7b 52  |14}:STMIA R6!,{R|
00008d50  30 2d 52 34 2c 52 38 2d  52 31 31 2c 52 31 34 7d  |0-R4,R8-R11,R14}|
00008d60  0d 2c b0 3c 4c 44 4d 49  41 20 52 35 21 2c 7b 52  |.,.<LDMIA R5!,{R|
00008d70  30 2d 34 2c 52 38 2d 52  31 31 2c 52 31 34 7d 3a  |0-4,R8-R11,R14}:|
00008d80  53 54 4d 49 41 20 52 36  21 2c 7b 52 30 2d 52 34  |STMIA R6!,{R0-R4|
00008d90  2c 52 38 2d 52 31 31 2c  52 31 34 7d 0d 2c ba 3c  |,R8-R11,R14}.,.<|
00008da0  4c 44 4d 49 41 20 52 35  21 2c 7b 52 30 2d 34 2c  |LDMIA R5!,{R0-4,|
00008db0  52 38 2d 52 31 31 2c 52  31 34 7d 3a 53 54 4d 49  |R8-R11,R14}:STMI|
00008dc0  41 20 52 36 21 2c 7b 52  30 2d 52 34 2c 52 38 2d  |A R6!,{R0-R4,R8-|
00008dd0  52 31 31 2c 52 31 34 7d  0d 2c c4 3c 4c 44 4d 49  |R11,R14}.,.<LDMI|
00008de0  41 20 52 35 21 2c 7b 52  30 2d 34 2c 52 38 2d 52  |A R5!,{R0-4,R8-R|
00008df0  31 31 2c 52 31 34 7d 3a  53 54 4d 49 41 20 52 36  |11,R14}:STMIA R6|
00008e00  21 2c 7b 52 30 2d 52 34  2c 52 38 2d 52 31 31 2c  |!,{R0-R4,R8-R11,|
00008e10  52 31 34 7d 0d 2c ce 3c  4c 44 4d 49 41 20 52 35  |R14}.,.<LDMIA R5|
00008e20  21 2c 7b 52 30 2d 34 2c  52 38 2d 52 31 31 2c 52  |!,{R0-4,R8-R11,R|
00008e30  31 34 7d 3a 53 54 4d 49  41 20 52 36 21 2c 7b 52  |14}:STMIA R6!,{R|
00008e40  30 2d 52 34 2c 52 38 2d  52 31 31 2c 52 31 34 7d  |0-R4,R8-R11,R14}|
00008e50  0d 2c d8 42 4c 44 4d 49  41 20 52 35 21 2c 7b 52  |.,.BLDMIA R5!,{R|
00008e60  30 2d 34 2c 52 38 2d 52  31 31 2c 52 31 34 7d 3a  |0-4,R8-R11,R14}:|
00008e70  53 54 4d 49 41 20 52 36  21 2c 7b 52 30 2d 52 34  |STMIA R6!,{R0-R4|
00008e80  2c 52 38 7d 3a 41 44 44  20 52 36 2c 52 36 2c 23  |,R8}:ADD R6,R6,#|
00008e90  31 36 0d 2c e2 1b 53 55  42 53 20 52 37 2c 52 37  |16.,..SUBS R7,R7|
00008ea0  2c 23 31 3a 42 4e 45 20  6c 75 63 70 79 0d 2c ec  |,#1:BNE lucpy.,.|
00008eb0  41 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |ALDMFD R13!,{R0-|
00008ec0  52 36 7d 3a 53 55 42 53  20 52 34 2c 52 34 2c 23  |R6}:SUBS R4,R4,#|
00008ed0  28 33 32 30 2a 34 29 3a  41 44 44 20 52 33 2c 52  |(320*4):ADD R3,R|
00008ee0  33 2c 23 31 3a 42 4d 49  20 6c 73 75 6f 74 0d 2c  |3,#1:BMI lsuot.,|
00008ef0  f6 1e 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..STMFD R13!,{R0|
00008f00  2d 52 36 7d 3a 42 20 6c  73 63 72 75 0d 2d 00 0a  |-R6}:B lscru.-..|
00008f10  2e 6c 73 75 6f 74 0d 2d  0a 14 a4 73 66 61 64 72  |.lsuot.-...sfadr|
00008f20  28 31 32 2c 62 67 61 6d  65 29 0d 2d 14 16 4c 44  |(12,bgame).-..LD|
00008f30  52 20 52 31 31 2c 5b 52  31 32 2c 23 31 30 30 5d  |R R11,[R12,#100]|
00008f40  0d 2d 1e 18 43 4d 50 20  52 31 31 2c 23 30 3a 42  |.-..CMP R11,#0:B|
00008f50  45 51 20 6e 6e 75 77 6c  0d 2d 28 44 4d 4f 56 20  |EQ nnuwl.-(DMOV |
00008f60  52 30 2c 23 31 3a 4d 56  4e 20 52 31 2c 23 31 34  |R0,#1:MVN R1,#14|
00008f70  3a 4d 4f 56 20 52 32 2c  23 26 32 37 30 30 3a 4d  |:MOV R2,#&2700:M|
00008f80  4f 56 20 52 33 2c 23 31  3a 53 57 49 20 22 53 6f  |OV R3,#1:SWI "So|
00008f90  75 6e 64 5f 43 6f 6e 74  72 6f 6c 22 0d 2d 32 15  |und_Control".-2.|
00008fa0  4c 44 4d 46 44 20 52 31  33 2c 7b 52 30 2d 52 33  |LDMFD R13,{R0-R3|
00008fb0  7d 0d 2d 3c 34 4c 44 52  20 52 35 2c 5b 52 31 32  |}.-<4LDR R5,[R12|
00008fc0  2c 23 38 38 5d 3a 41 44  44 20 52 35 2c 52 35 2c  |,#88]:ADD R5,R5,|
00008fd0  52 30 3a 41 44 44 20 52  35 2c 52 35 2c 52 31 2c  |R0:ADD R5,R5,R1,|
00008fe0  41 53 4c 23 34 0d 2d 46  1c 4d 4f 56 20 52 31 31  |ASL#4.-F.MOV R11|
00008ff0  2c 23 31 3a 53 54 52 42  20 52 31 31 2c 5b 52 35  |,#1:STRB R11,[R5|
00009000  5d 0d 2d 50 23 2e 6e 6e  75 77 6c 20 4d 4f 56 20  |].-P#.nnuwl MOV |
00009010  52 30 2c 23 31 39 3a 53  57 49 20 22 4f 53 5f 42  |R0,#19:SWI "OS_B|
00009020  79 74 65 22 0d 2d 5a 34  a4 73 66 61 64 72 28 31  |yte".-Z4.sfadr(1|
00009030  32 2c 62 67 61 6d 65 29  3a a4 61 64 72 28 31 31  |2,bgame):.adr(11|
00009040  2c 62 67 64 61 74 29 3a  4c 44 52 20 52 30 2c 5b  |,bgdat):LDR R0,[|
00009050  52 31 32 2c 23 38 30 5d  0d 2d 64 23 4c 64 72 20  |R12,#80].-d#Ldr |
00009060  52 30 2c 6b 6c 75 64 67  65 79 3a 53 54 52 20 52  |R0,kludgey:STR R|
00009070  30 2c 5b 52 31 31 2c 23  32 38 5d 0d 2d 6e 0b 42  |0,[R11,#28].-n.B|
00009080  20 6e 65 77 73 71 0d 2d  78 0d 2e 6b 65 79 5f 64  | newsq.-x..key_d|
00009090  6f 77 6e 0d 2d 82 4c 53  54 4d 46 44 20 52 31 33  |own.-.LSTMFD R13|
000090a0  21 2c 7b 52 30 2d 52 32  7d 3a 4d 4f 56 20 52 30  |!,{R0-R2}:MOV R0|
000090b0  2c 23 32 31 3a 4d 4f 56  20 52 31 2c 23 30 3a 53  |,#21:MOV R1,#0:S|
000090c0  57 49 20 22 4f 53 5f 42  79 74 65 22 3a 4c 44 4d  |WI "OS_Byte":LDM|
000090d0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 32 7d 0d  |FD R13!,{R0-R2}.|
000090e0  2d 8c 1c 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |-..LDMFD R13!,{R|
000090f0  30 2c 52 32 2c 52 33 2c  52 34 7d 0d 2d 96 36 41  |0,R2,R3,R4}.-.6A|
00009100  44 44 20 52 31 2c 52 32  2c 23 31 3a 43 4d 50 20  |DD R1,R2,#1:CMP |
00009110  52 31 2c 23 31 36 3a 53  54 4d 50 4c 46 44 20 52  |R1,#16:STMPLFD R|
00009120  31 33 21 2c 7b 52 30 2c  52 32 2c 52 33 2c 52 34  |13!,{R0,R2,R3,R4|
00009130  7d 0d 2d a0 3e 42 50 4c  20 6e 6f 6b 65 79 3a 4c  |}.-.>BPL nokey:L|
00009140  44 52 20 52 35 2c 5b 52  31 32 2c 23 39 36 5d 3a  |DR R5,[R12,#96]:|
00009150  41 44 44 20 52 35 2c 52  35 2c 52 30 3a 41 44 44  |ADD R5,R5,R0:ADD|
00009160  20 52 37 2c 52 35 2c 52  31 2c 41 53 4c 23 34 0d  | R7,R5,R1,ASL#4.|
00009170  2d aa 37 4c 44 52 42 20  52 31 34 2c 5b 52 37 5d  |-.7LDRB R14,[R7]|
00009180  3a 43 4d 50 20 52 31 34  2c 23 34 3a 53 54 4d 45  |:CMP R14,#4:STME|
00009190  51 46 44 20 52 31 33 21  2c 7b 52 30 2c 52 32 2c  |QFD R13!,{R0,R2,|
000091a0  52 33 2c 52 34 7d 0d 2d  b4 42 42 45 51 20 6e 6f  |R3,R4}.-.BBEQ no|
000091b0  6b 65 79 3a 4d 4f 56 20  52 31 31 2c 23 30 3a 4c  |key:MOV R11,#0:L|
000091c0  44 52 20 52 31 30 2c 5b  52 31 32 2c 23 37 32 5d  |DR R10,[R12,#72]|
000091d0  3a 4c 44 52 20 52 31 30  2c 5b 52 31 30 5d 3a 4d  |:LDR R10,[R10]:M|
000091e0  4f 56 20 52 39 2c 23 30  0d 2d be 34 4c 44 52 20  |OV R9,#0.-.4LDR |
000091f0  52 35 2c 5b 52 31 32 2c  23 38 38 5d 3a 41 44 44  |R5,[R12,#88]:ADD|
00009200  20 52 35 2c 52 35 2c 52  30 3a 41 44 44 20 52 35  | R5,R5,R0:ADD R5|
00009210  2c 52 35 2c 52 31 2c 41  53 4c 23 34 0d 2d c8 4d  |,R5,R1,ASL#4.-.M|
00009220  4c 44 52 42 20 52 36 2c  5b 52 35 2c 23 30 5d 21  |LDRB R6,[R5,#0]!|
00009230  3a 43 4d 50 20 52 36 2c  23 31 3a 53 54 4d 47 54  |:CMP R6,#1:STMGT|
00009240  46 44 20 52 31 33 21 2c  7b 52 30 2c 52 32 2c 52  |FD R13!,{R0,R2,R|
00009250  33 2c 52 34 7d 3a 42 47  54 20 6e 6f 6b 65 79 3a  |3,R4}:BGT nokey:|
00009260  42 4e 45 20 6e 6f 64 62  77 0d 2d d2 43 4c 44 52  |BNE nodbw.-.CLDR|
00009270  42 20 52 36 2c 5b 52 35  2c 23 31 36 5d 3a 43 4d  |B R6,[R5,#16]:CM|
00009280  50 20 52 36 2c 23 30 3a  53 54 4d 4e 45 46 44 20  |P R6,#0:STMNEFD |
00009290  52 31 33 21 2c 7b 52 30  2c 52 32 2c 52 33 2c 52  |R13!,{R0,R2,R3,R|
000092a0  34 7d 3a 42 4e 45 20 6e  6f 6b 65 79 0d 2d dc 47  |4}:BNE nokey.-.G|
000092b0  53 54 52 45 51 42 20 52  39 2c 5b 52 35 5d 3a 80  |STREQB R9,[R5]:.|
000092c0  45 51 20 52 31 31 2c 52  31 30 2c 23 37 3a 41 44  |EQ R11,R10,#7:AD|
000092d0  44 45 51 20 52 31 31 2c  52 31 31 2c 23 31 3a 43  |DEQ R11,R11,#1:C|
000092e0  4d 50 20 52 31 34 2c 23  32 3a 42 4e 45 20 6e 6f  |MP R14,#2:BNE no|
000092f0  64 62 77 0d 2d e6 3c 53  54 52 42 20 52 39 2c 5b  |dbw.-.<STRB R9,[|
00009300  52 37 5d 3a 53 54 4d 46  44 20 52 31 33 21 2c 7b  |R7]:STMFD R13!,{|
00009310  52 30 2c 52 31 2c 52 33  2c 52 34 7d 3a 53 54 52  |R0,R1,R3,R4}:STR|
00009320  20 52 31 31 2c 5b 52 31  32 2c 23 31 30 30 5d 0d  | R11,[R12,#100].|
00009330  2d f0 44 4d 4f 56 20 52  30 2c 23 33 3a 4d 56 4e  |-.DMOV R0,#3:MVN|
00009340  20 52 31 2c 23 31 34 3a  4d 4f 56 20 52 32 2c 23  | R1,#14:MOV R2,#|
00009350  26 31 42 30 30 3a 4d 4f  56 20 52 33 2c 23 31 3a  |&1B00:MOV R3,#1:|
00009360  53 57 49 20 22 53 6f 75  6e 64 5f 43 6f 6e 74 72  |SWI "Sound_Contr|
00009370  6f 6c 22 0d 2d fa 1f 4c  44 4d 46 44 20 52 31 33  |ol".-..LDMFD R13|
00009380  2c 7b 52 30 2d 52 33 7d  3a 4d 4f 56 20 52 31 2c  |,{R0-R3}:MOV R1,|
00009390  52 32 0d 2e 04 35 4c 44  52 20 52 30 2c 5b 52 31  |R2...5LDR R0,[R1|
000093a0  32 2c 23 31 31 32 5d 3a  41 44 44 20 52 30 2c 52  |2,#112]:ADD R0,R|
000093b0  30 2c 23 31 31 3a 53 54  52 20 52 30 2c 5b 52 31  |0,#11:STR R0,[R1|
000093c0  32 2c 23 31 31 32 5d 0d  2e 0e 23 42 4c 20 65 67  |2,#112]...#BL eg|
000093d0  5f 73 68 6f 77 73 63 6f  72 3a a4 73 66 61 64 72  |_showscor:.sfadr|
000093e0  28 31 32 2c 62 67 61 6d  65 29 0d 2e 18 0b 42 20  |(12,bgame)....B |
000093f0  6e 73 64 62 77 0d 2e 22  36 2e 6e 6f 64 62 77 20  |nsdbw.."6.nodbw |
00009400  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2c 52  |STMFD R13!,{R0,R|
00009410  31 2c 52 33 2c 52 34 7d  3a 53 54 52 20 52 31 31  |1,R3,R4}:STR R11|
00009420  2c 5b 52 31 32 2c 23 31  30 30 5d 0d 2e 2c 65 2e  |,[R12,#100]..,e.|
00009430  6e 73 64 62 77 20 4c 44  52 20 52 30 2c 5b 52 31  |nsdbw LDR R0,[R1|
00009440  32 2c 23 37 36 5d 3a 41  44 44 20 52 30 2c 52 30  |2,#76]:ADD R0,R0|
00009450  2c 23 28 34 38 2a 33 32  30 29 3a 41 44 44 20 52  |,#(48*320):ADD R|
00009460  31 2c 52 31 32 2c 23 32  38 3a 4c 44 4d 49 41 20  |1,R12,#28:LDMIA |
00009470  52 31 2c 7b 52 32 2d 52  31 31 2c 52 31 34 7d 3a  |R1,{R2-R11,R14}:|
00009480  4c 44 52 20 52 31 2c 5b  52 31 32 2c 23 38 34 5d  |LDR R1,[R12,#84]|
00009490  0d 2e 36 39 2e 6c 64 63  62 66 20 53 54 4d 49 41  |..69.ldcbf STMIA|
000094a0  20 52 30 21 2c 7b 52 32  2d 52 31 31 2c 52 31 34  | R0!,{R2-R11,R14|
000094b0  7d 3a 53 55 42 53 20 52  31 2c 52 31 2c 23 31 3a  |}:SUBS R1,R1,#1:|
000094c0  42 4e 45 20 6c 64 63 62  66 0d 2e 40 43 53 54 4d  |BNE ldcbf..@CSTM|
000094d0  49 41 20 52 30 2c 7b 52  32 2d 52 31 30 7d 3a 4c  |IA R0,{R2-R10}:L|
000094e0  44 52 20 52 32 2c 5b 52  31 32 2c 23 38 30 5d 3a  |DR R2,[R12,#80]:|
000094f0  4d 4f 56 20 52 31 2c 23  33 38 34 3a 4c 44 52 20  |MOV R1,#384:LDR |
00009500  52 30 2c 5b 52 31 32 2c  23 37 36 5d 0d 2e 4a 50  |R0,[R12,#76]..JP|
00009510  2e 6c 64 63 62 67 20 4c  44 4d 49 41 20 52 32 21  |.ldcbg LDMIA R2!|
00009520  2c 7b 52 33 2d 52 31 31  2c 52 31 34 7d 3a 53 54  |,{R3-R11,R14}:ST|
00009530  4d 49 41 20 52 30 21 2c  7b 52 33 2d 52 31 31 2c  |MIA R0!,{R3-R11,|
00009540  52 31 34 7d 3a 53 55 42  53 20 52 31 2c 52 31 2c  |R14}:SUBS R1,R1,|
00009550  23 31 3a 42 4e 45 20 6c  64 63 62 67 0d 2e 54 24  |#1:BNE ldcbg..T$|
00009560  a4 73 61 64 72 28 31 31  2c 62 67 64 61 74 29 3a  |.sadr(11,bgdat):|
00009570  53 54 52 20 52 30 2c 5b  52 31 31 2c 23 32 38 5d  |STR R0,[R11,#28]|
00009580  0d 2e 5e 21 4c 44 52 20  52 30 2c 5b 52 31 32 2c  |..^!LDR R0,[R12,|
00009590  23 37 32 5d 3a 4c 44 52  20 52 31 31 2c 5b 52 30  |#72]:LDR R11,[R0|
000095a0  5d 0d 2e 68 47 4c 44 4d  46 44 20 52 31 33 2c 7b  |]..hGLDMFD R13,{|
000095b0  52 30 2d 52 33 7d 3a 80  20 52 32 2c 52 31 31 2c  |R0-R3}:. R2,R11,|
000095c0  23 33 3a 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |#3:STMFD R13!,{R|
000095d0  30 2d 52 31 2c 52 31 31  7d 3a 42 4c 20 65 67 5f  |0-R1,R11}:BL eg_|
000095e0  73 68 6f 77 6d 69 64 73  0d 2e 72 36 4c 44 4d 46  |showmids..r6LDMF|
000095f0  44 20 52 31 33 21 2c 7b  52 30 2d 52 32 7d 3a 42  |D R13!,{R0-R2}:B|
00009600  4c 20 65 67 5f 73 68 6f  77 61 6c 6c 73 3a a4 73  |L eg_showalls:.s|
00009610  66 61 64 72 28 31 32 2c  62 67 61 6d 65 29 0d 2e  |fadr(12,bgame)..|
00009620  7c 47 4c 44 4d 46 44 20  52 31 33 2c 7b 52 30 2d  ||GLDMFD R13,{R0-|
00009630  52 33 7d 3a 4d 4f 56 20  52 34 2c 23 28 34 2a 33  |R3}:MOV R4,#(4*3|
00009640  32 30 29 3a 4c 44 52 20  52 35 2c 5b 52 31 32 2c  |20):LDR R5,[R12,|
00009650  23 37 36 5d 3a 4c 44 52  20 52 36 2c 5b 52 31 32  |#76]:LDR R6,[R12|
00009660  2c 23 38 30 5d 0d 2e 86  5c 53 54 4d 46 44 20 52  |,#80]...\STMFD R|
00009670  31 33 21 2c 7b 52 30 2d  52 36 7d 3a a4 73 61 64  |13!,{R0-R6}:.sad|
00009680  72 28 31 31 2c 62 67 64  61 74 29 3a 4c 44 52 20  |r(11,bgdat):LDR |
00009690  52 30 2c 5b 52 31 31 2c  23 32 38 5d 3a 53 55 42  |R0,[R11,#28]:SUB|
000096a0  20 52 30 2c 52 30 2c 23  28 33 32 30 2a 34 38 29  | R0,R0,#(320*48)|
000096b0  3a 53 54 52 20 52 30 2c  5b 52 31 31 2c 23 32 38  |:STR R0,[R11,#28|
000096c0  5d 0d 2e 90 0a 2e 6c 73  63 72 64 0d 2e 9a 33 4c  |].....lscrd...3L|
000096d0  44 4d 46 44 20 52 31 33  2c 7b 52 30 2d 52 36 7d  |DMFD R13,{R0-R6}|
000096e0  3a a4 73 66 61 64 72 28  31 32 2c 62 67 61 6d 65  |:.sfadr(12,bgame|
000096f0  29 3a 41 44 44 20 52 35  2c 52 35 2c 52 34 0d 2e  |):ADD R5,R5,R4..|
00009700  a4 44 41 44 44 20 52 35  2c 52 35 2c 23 26 38 37  |.DADD R5,R5,#&87|
00009710  30 30 3a 41 44 44 20 52  31 31 2c 52 35 2c 23 26  |00:ADD R11,R5,#&|
00009720  37 30 3a 43 4d 50 20 52  34 2c 23 28 34 2a 33 32  |70:CMP R4,#(4*32|
00009730  30 29 3a 42 4c 4e 45 20  65 67 5f 77 69 70 65 61  |0):BLNE eg_wipea|
00009740  63 72 0d 2e ae 2d a4 73  61 64 72 28 31 32 2c 62  |cr...-.sadr(12,b|
00009750  67 64 61 74 29 3a 53 55  42 20 52 30 2c 52 30 2c  |gdat):SUB R0,R0,|
00009760  23 32 3a 53 55 42 20 52  31 2c 52 31 2c 23 33 0d  |#2:SUB R1,R1,#3.|
00009770  2e b8 39 4d 4f 56 20 52  33 2c 23 30 3a 4d 4f 56  |..9MOV R3,#0:MOV|
00009780  20 52 35 2c 23 36 3a 4c  44 52 20 52 36 2c 5b 52  | R5,#6:LDR R6,[R|
00009790  31 32 2c 23 34 38 5d 3a  4c 44 52 20 52 37 2c 5b  |12,#48]:LDR R7,[|
000097a0  52 31 32 2c 23 32 38 5d  0d 2e c2 38 41 44 44 20  |R12,#28]...8ADD |
000097b0  52 37 2c 52 37 2c 23 31  36 3a 41 44 44 20 52 37  |R7,R7,#16:ADD R7|
000097c0  2c 52 37 2c 23 28 33 32  30 2a 31 36 29 3a 4d 4f  |,R7,#(320*16):MO|
000097d0  56 20 52 38 2c 23 36 3a  42 4c 20 6c 79 73 71 72  |V R8,#6:BL lysqr|
000097e0  0d 2e cc 33 a4 73 66 61  64 72 28 31 32 2c 62 67  |...3.sfadr(12,bg|
000097f0  61 6d 65 29 3a 4c 44 4d  46 44 20 52 31 33 2c 7b  |ame):LDMFD R13,{|
00009800  52 30 2d 52 36 7d 3a 41  44 44 20 52 35 2c 52 35  |R0-R6}:ADD R5,R5|
00009810  2c 52 34 0d 2e d6 3d 41  44 44 20 52 35 2c 52 35  |,R4...=ADD R5,R5|
00009820  2c 23 26 38 43 30 30 3a  41 44 44 20 52 31 31 2c  |,#&8C00:ADD R11,|
00009830  52 35 2c 23 26 37 30 3a  42 4c 20 65 67 5f 73 68  |R5,#&70:BL eg_sh|
00009840  6f 77 79 6f 75 77 69 74  68 6f 75 74 6d 61 73 6b  |owyouwithoutmask|
00009850  0d 2e e0 3b 4c 44 4d 46  44 20 52 31 33 2c 7b 52  |...;LDMFD R13,{R|
00009860  30 2d 52 36 7d 3a 4c 44  52 20 52 32 2c 5b 52 31  |0-R6}:LDR R2,[R1|
00009870  32 2c 23 31 30 30 5d 3a  43 4d 50 20 52 32 2c 23  |2,#100]:CMP R2,#|
00009880  31 3a 42 4d 49 20 6e 73  64 77 70 0d 2e ea 3c 41  |1:BMI nsdwp...<A|
00009890  44 44 20 52 35 2c 52 35  2c 52 34 3a 41 44 44 20  |DD R5,R5,R4:ADD |
000098a0  52 35 2c 52 35 2c 23 26  42 34 30 30 3a 41 44 44  |R5,R5,#&B400:ADD|
000098b0  20 52 30 2c 52 35 2c 23  26 37 30 3a 42 4c 20 65  | R0,R5,#&70:BL e|
000098c0  67 5f 73 70 72 77 6c 0d  2e f4 35 2e 6e 73 64 77  |g_sprwl...5.nsdw|
000098d0  70 20 4c 44 4d 46 44 20  52 31 33 2c 7b 52 30 2d  |p LDMFD R13,{R0-|
000098e0  52 36 7d 3a 41 44 44 20  52 35 2c 52 35 2c 52 34  |R6}:ADD R5,R5,R4|
000098f0  3a 4d 4f 56 20 52 37 2c  23 32 35 36 0d 2e fe 1c  |:MOV R7,#256....|
00009900  4d 4f 56 20 52 30 2c 23  31 39 3a 53 57 49 20 22  |MOV R0,#19:SWI "|
00009910  4f 53 5f 42 79 74 65 22  0d 2f 08 0a 2e 6c 64 63  |OS_Byte"./...ldc|
00009920  70 79 0d 2f 12 3c 4c 44  4d 49 41 20 52 35 21 2c  |py./.<LDMIA R5!,|
00009930  7b 52 30 2d 34 2c 52 38  2d 52 31 31 2c 52 31 34  |{R0-4,R8-R11,R14|
00009940  7d 3a 53 54 4d 49 41 20  52 36 21 2c 7b 52 30 2d  |}:STMIA R6!,{R0-|
00009950  52 34 2c 52 38 2d 52 31  31 2c 52 31 34 7d 0d 2f  |R4,R8-R11,R14}./|
00009960  1c 3c 4c 44 4d 49 41 20  52 35 21 2c 7b 52 30 2d  |.<LDMIA R5!,{R0-|
00009970  34 2c 52 38 2d 52 31 31  2c 52 31 34 7d 3a 53 54  |4,R8-R11,R14}:ST|
00009980  4d 49 41 20 52 36 21 2c  7b 52 30 2d 52 34 2c 52  |MIA R6!,{R0-R4,R|
00009990  38 2d 52 31 31 2c 52 31  34 7d 0d 2f 26 3c 4c 44  |8-R11,R14}./&<LD|
000099a0  4d 49 41 20 52 35 21 2c  7b 52 30 2d 34 2c 52 38  |MIA R5!,{R0-4,R8|
000099b0  2d 52 31 31 2c 52 31 34  7d 3a 53 54 4d 49 41 20  |-R11,R14}:STMIA |
000099c0  52 36 21 2c 7b 52 30 2d  52 34 2c 52 38 2d 52 31  |R6!,{R0-R4,R8-R1|
000099d0  31 2c 52 31 34 7d 0d 2f  30 3c 4c 44 4d 49 41 20  |1,R14}./0<LDMIA |
000099e0  52 35 21 2c 7b 52 30 2d  34 2c 52 38 2d 52 31 31  |R5!,{R0-4,R8-R11|
000099f0  2c 52 31 34 7d 3a 53 54  4d 49 41 20 52 36 21 2c  |,R14}:STMIA R6!,|
00009a00  7b 52 30 2d 52 34 2c 52  38 2d 52 31 31 2c 52 31  |{R0-R4,R8-R11,R1|
00009a10  34 7d 0d 2f 3a 3c 4c 44  4d 49 41 20 52 35 21 2c  |4}./:<LDMIA R5!,|
00009a20  7b 52 30 2d 34 2c 52 38  2d 52 31 31 2c 52 31 34  |{R0-4,R8-R11,R14|
00009a30  7d 3a 53 54 4d 49 41 20  52 36 21 2c 7b 52 30 2d  |}:STMIA R6!,{R0-|
00009a40  52 34 2c 52 38 2d 52 31  31 2c 52 31 34 7d 0d 2f  |R4,R8-R11,R14}./|
00009a50  44 3c 4c 44 4d 49 41 20  52 35 21 2c 7b 52 30 2d  |D<LDMIA R5!,{R0-|
00009a60  34 2c 52 38 2d 52 31 31  2c 52 31 34 7d 3a 53 54  |4,R8-R11,R14}:ST|
00009a70  4d 49 41 20 52 36 21 2c  7b 52 30 2d 52 34 2c 52  |MIA R6!,{R0-R4,R|
00009a80  38 2d 52 31 31 2c 52 31  34 7d 0d 2f 4e 3c 4c 44  |8-R11,R14}./N<LD|
00009a90  4d 49 41 20 52 35 21 2c  7b 52 30 2d 34 2c 52 38  |MIA R5!,{R0-4,R8|
00009aa0  2d 52 31 31 2c 52 31 34  7d 3a 53 54 4d 49 41 20  |-R11,R14}:STMIA |
00009ab0  52 36 21 2c 7b 52 30 2d  52 34 2c 52 38 2d 52 31  |R6!,{R0-R4,R8-R1|
00009ac0  31 2c 52 31 34 7d 0d 2f  58 42 4c 44 4d 49 41 20  |1,R14}./XBLDMIA |
00009ad0  52 35 21 2c 7b 52 30 2d  34 2c 52 38 2d 52 31 31  |R5!,{R0-4,R8-R11|
00009ae0  2c 52 31 34 7d 3a 53 54  4d 49 41 20 52 36 21 2c  |,R14}:STMIA R6!,|
00009af0  7b 52 30 2d 52 34 2c 52  38 7d 3a 41 44 44 20 52  |{R0-R4,R8}:ADD R|
00009b00  36 2c 52 36 2c 23 31 36  0d 2f 62 1b 53 55 42 53  |6,R6,#16./b.SUBS|
00009b10  20 52 37 2c 52 37 2c 23  31 3a 42 4e 45 20 6c 64  | R7,R7,#1:BNE ld|
00009b20  63 70 79 0d 2f 6c 51 4c  44 4d 46 44 20 52 31 33  |cpy./lQLDMFD R13|
00009b30  21 2c 7b 52 30 2d 52 36  7d 3a 41 44 44 20 52 34  |!,{R0-R6}:ADD R4|
00009b40  2c 52 34 2c 23 28 33 32  30 2a 34 29 3a 43 4d 50  |,R4,#(320*4):CMP|
00009b50  20 52 34 2c 23 28 33 32  30 2a 35 32 29 3a 41 44  | R4,#(320*52):AD|
00009b60  44 20 52 33 2c 52 33 2c  23 31 3a 42 50 4c 20 6c  |D R3,R3,#1:BPL l|
00009b70  73 64 6f 74 0d 2f 76 1e  53 54 4d 46 44 20 52 31  |sdot./v.STMFD R1|
00009b80  33 21 2c 7b 52 30 2d 52  36 7d 3a 42 20 6c 73 63  |3!,{R0-R6}:B lsc|
00009b90  72 64 0d 2f 80 0a 2e 6c  73 64 6f 74 0d 2f 8a 14  |rd./...lsdot./..|
00009ba0  a4 73 66 61 64 72 28 31  32 2c 62 67 61 6d 65 29  |.sfadr(12,bgame)|
00009bb0  0d 2f 94 16 4c 44 52 20  52 31 31 2c 5b 52 31 32  |./..LDR R11,[R12|
00009bc0  2c 23 31 30 30 5d 0d 2f  9e 18 43 4d 50 20 52 31  |,#100]./..CMP R1|
00009bd0  31 2c 23 30 3a 42 45 51  20 6e 6e 64 77 6c 0d 2f  |1,#0:BEQ nndwl./|
00009be0  a8 44 4d 4f 56 20 52 30  2c 23 31 3a 4d 56 4e 20  |.DMOV R0,#1:MVN |
00009bf0  52 31 2c 23 31 34 3a 4d  4f 56 20 52 32 2c 23 26  |R1,#14:MOV R2,#&|
00009c00  32 37 30 30 3a 4d 4f 56  20 52 33 2c 23 31 3a 53  |2700:MOV R3,#1:S|
00009c10  57 49 20 22 53 6f 75 6e  64 5f 43 6f 6e 74 72 6f  |WI "Sound_Contro|
00009c20  6c 22 0d 2f b2 15 4c 44  4d 46 44 20 52 31 33 2c  |l"./..LDMFD R13,|
00009c30  7b 52 30 2d 52 33 7d 0d  2f bc 34 4c 44 52 20 52  |{R0-R3}./.4LDR R|
00009c40  35 2c 5b 52 31 32 2c 23  38 38 5d 3a 41 44 44 20  |5,[R12,#88]:ADD |
00009c50  52 35 2c 52 35 2c 52 30  3a 41 44 44 20 52 35 2c  |R5,R5,R0:ADD R5,|
00009c60  52 35 2c 52 31 2c 41 53  4c 23 34 0d 2f c6 20 4d  |R5,R1,ASL#4./. M|
00009c70  4f 56 20 52 31 31 2c 23  31 3a 53 54 52 42 20 52  |OV R11,#1:STRB R|
00009c80  31 31 2c 5b 52 35 2c 23  31 36 5d 0d 2f d0 23 2e  |11,[R5,#16]./.#.|
00009c90  6e 6e 64 77 6c 20 4d 4f  56 20 52 30 2c 23 31 39  |nndwl MOV R0,#19|
00009ca0  3a 53 57 49 20 22 4f 53  5f 42 79 74 65 22 0d 2f  |:SWI "OS_Byte"./|
00009cb0  da 34 a4 73 66 61 64 72  28 31 32 2c 62 67 61 6d  |.4.sfadr(12,bgam|
00009cc0  65 29 3a a4 61 64 72 28  31 31 2c 62 67 64 61 74  |e):.adr(11,bgdat|
00009cd0  29 3a 4c 44 52 20 52 30  2c 5b 52 31 32 2c 23 38  |):LDR R0,[R12,#8|
00009ce0  30 5d 0d 2f e4 25 4c 44  52 20 52 30 2c 6b 6c 75  |0]./.%LDR R0,klu|
00009cf0  64 67 65 79 5f 71 3a 53  54 52 20 52 30 2c 5b 52  |dgey_q:STR R0,[R|
00009d00  31 31 2c 23 32 38 5d 0d  2f ee 0b 42 20 6e 65 77  |11,#28]./..B new|
00009d10  73 71 0d 2f f8 21 2e 6b  6c 75 64 67 65 79 5f 71  |sq./.!.kludgey_q|
00009d20  20 45 71 75 64 20 6b 6c  75 64 67 65 5f 73 63 72  | Equd kludge_scr|
00009d30  65 65 6e 0d 30 02 0f 2e  6f 75 74 5f 65 73 63 61  |een.0...out_esca|
00009d40  70 65 0d 30 0c 1d 4d 4f  56 20 52 30 2c 23 31 32  |pe.0..MOV R0,#12|
00009d50  36 3a 53 57 49 20 22 4f  53 5f 42 79 74 65 22 0d  |6:SWI "OS_Byte".|
00009d60  30 16 16 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |0..LDMFD R13!,{R|
00009d70  30 2d 52 33 7d 0d 30 20  0d 4d 4f 56 20 52 30 2c  |0-R3}.0 .MOV R0,|
00009d80  23 30 0d 30 2a 13 4c 44  4d 46 44 20 52 31 33 21  |#0.0*.LDMFD R13!|
00009d90  2c 7b 50 43 7d 0d 30 34  0e 2e 6f 75 74 5f 70 61  |,{PC}.04..out_pa|
00009da0  75 73 65 0d 30 3e 16 4c  44 4d 46 44 20 52 31 33  |use.0>.LDMFD R13|
00009db0  21 2c 7b 52 30 2d 52 33  7d 0d 30 48 41 4c 44 52  |!,{R0-R3}.0HALDR|
00009dc0  20 52 34 2c 5b 52 31 32  2c 23 37 32 5d 3a 53 54  | R4,[R12,#72]:ST|
00009dd0  52 42 20 52 30 2c 5b 52  34 5d 2c 23 31 3a 53 54  |RB R0,[R4],#1:ST|
00009de0  52 42 20 52 31 2c 5b 52  34 5d 2c 23 31 3a 53 54  |RB R1,[R4],#1:ST|
00009df0  52 42 20 52 32 2c 5b 52  34 5d 0d 30 52 0d 4d 4f  |RB R2,[R4].0R.MO|
00009e00  56 20 52 30 2c 23 31 0d  30 5c 13 4c 44 4d 46 44  |V R0,#1.0\.LDMFD|
00009e10  20 52 31 33 21 2c 7b 50  43 7d 0d 30 66 0e 2e 6f  | R13!,{PC}.0f..o|
00009e20  75 74 5f 61 62 6f 72 74  0d 30 70 16 4c 44 4d 46  |ut_abort.0p.LDMF|
00009e30  44 20 52 31 33 21 2c 7b  52 30 2d 52 33 7d 0d 30  |D R13!,{R0-R3}.0|
00009e40  7a 31 4c 44 52 20 52 34  2c 5b 52 31 32 2c 23 37  |z1LDR R4,[R12,#7|
00009e50  32 5d 3a 53 54 52 42 20  52 30 2c 5b 52 34 5d 2c  |2]:STRB R0,[R4],|
00009e60  23 31 3a 53 54 52 42 20  52 31 2c 5b 52 34 5d 0d  |#1:STRB R1,[R4].|
00009e70  30 84 0d 4d 4f 56 20 52  30 2c 23 32 0d 30 8e 13  |0..MOV R0,#2.0..|
00009e80  4c 44 4d 46 44 20 52 31  33 21 2c 7b 50 43 7d 0d  |LDMFD R13!,{PC}.|
00009e90  30 98 0d 2e 6f 75 74 5f  74 69 6d 65 0d 30 a2 16  |0...out_time.0..|
00009ea0  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |LDMFD R13!,{R0-R|
00009eb0  33 7d 0d 30 ac 31 4c 44  52 20 52 34 2c 5b 52 31  |3}.0.1LDR R4,[R1|
00009ec0  32 2c 23 37 32 5d 3a 53  54 52 42 20 52 30 2c 5b  |2,#72]:STRB R0,[|
00009ed0  52 34 5d 2c 23 31 3a 53  54 52 42 20 52 31 2c 5b  |R4],#1:STRB R1,[|
00009ee0  52 34 5d 0d 30 b6 0d 4d  4f 56 20 52 30 2c 23 33  |R4].0..MOV R0,#3|
00009ef0  0d 30 c0 13 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |.0..LDMFD R13!,{|
00009f00  50 43 7d 0d 30 ca 05 3a  0d 30 d4 0d 2e 6f 75 74  |PC}.0..:.0...out|
00009f10  5f 6d 69 6e 65 0d 30 de  16 4c 44 4d 46 44 20 52  |_mine.0..LDMFD R|
00009f20  31 33 21 2c 7b 52 30 2d  52 33 7d 0d 30 e8 31 4c  |13!,{R0-R3}.0.1L|
00009f30  44 52 20 52 34 2c 5b 52  31 32 2c 23 37 32 5d 3a  |DR R4,[R12,#72]:|
00009f40  53 54 52 42 20 52 30 2c  5b 52 34 5d 2c 23 31 3a  |STRB R0,[R4],#1:|
00009f50  53 54 52 42 20 52 31 2c  5b 52 34 5d 0d 30 f2 0d  |STRB R1,[R4].0..|
00009f60  4d 4f 56 20 52 30 2c 23  34 0d 30 fc 13 4c 44 4d  |MOV R0,#4.0..LDM|
00009f70  46 44 20 52 31 33 21 2c  7b 50 43 7d 0d 31 06 05  |FD R13!,{PC}.1..|
00009f80  3a 0d 31 10 0d 2e 6f 75  74 5f 64 6f 6e 65 0d 31  |:.1...out_done.1|
00009f90  1a 16 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..LDMFD R13!,{R0|
00009fa0  2d 52 33 7d 0d 31 24 41  4c 44 52 20 52 34 2c 5b  |-R3}.1$ALDR R4,[|
00009fb0  52 31 32 2c 23 37 32 5d  3a 53 54 52 42 20 52 30  |R12,#72]:STRB R0|
00009fc0  2c 5b 52 34 5d 2c 23 31  3a 53 54 52 42 20 52 31  |,[R4],#1:STRB R1|
00009fd0  2c 5b 52 34 5d 2c 23 31  3a 53 54 52 42 20 52 32  |,[R4],#1:STRB R2|
00009fe0  2c 5b 52 34 5d 0d 31 2e  0d 4d 4f 56 20 52 30 2c  |,[R4].1..MOV R0,|
00009ff0  23 31 0d 31 38 0d 4d 4f  56 20 52 30 2c 23 35 0d  |#1.18.MOV R0,#5.|
0000a000  31 42 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |1B.LDMFD R13!,{P|
0000a010  43 7d 0d 31 4c 05 3a 0d  31 56 3a 2e 62 67 61 6d  |C}.1L.:.1V:.bgam|
0000a020  65 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |e               |
0000a030  20 20 20 20 20 20 20 20  20 20 20 3b 20 44 61 74  |           ; Dat|
0000a040  61 62 61 79 20 66 6f 72  20 54 48 45 20 47 41 4d  |abay for THE GAM|
0000a050  45 0d 31 60 2a 45 51 55  44 20 30 3a 45 51 55 44  |E.1`*EQUD 0:EQUD|
0000a060  20 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 0              |
0000a070  20 20 20 20 20 3b 20 4b  65 79 73 0d 31 6a 37 3b  |     ; Keys.1j7;|
0000a080  2b 38 20 3a 20 45 51 55  44 20 6b 6c 75 64 67 65  |+8 : EQUD kludge|
0000a090  5f 73 63 72 65 65 6e 2b  33 30 34 2b 32 35 35 2a  |_screen+304+255*|
0000a0a0  33 32 30 20 3b 20 54 69  6d 65 20 62 61 72 20 65  |320 ; Time bar e|
0000a0b0  6e 64 0d 31 74 24 3b 2b  31 32 3a 20 45 51 55 44  |nd.1t$;+12: EQUD|
0000a0c0  20 6b 6c 75 64 67 65 5f  73 63 72 65 65 6e 2b 33  | kludge_screen+3|
0000a0d0  32 30 2a 32 34 38 0d 31  7e 33 3b 2b 31 36 3a 20  |20*248.1~3;+16: |
0000a0e0  45 51 55 44 20 62 67 72  61 66 25 20 20 20 20 20  |EQUD bgraf%     |
0000a0f0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 47 72  |            ; Gr|
0000a100  61 66 78 20 73 74 61 72  74 0d 31 88 3d 3b 2b 32  |afx start.1.=;+2|
0000a110  30 3a 20 45 51 55 44 20  6b 6c 75 64 67 65 5f 73  |0: EQUD kludge_s|
0000a120  63 72 65 65 6e 2b 31 31  32 2a 33 32 31 20 20 20  |creen+112*321   |
0000a130  20 20 20 20 3b 20 4d 69  64 64 6c 65 20 6f 66 20  |    ; Middle of |
0000a140  73 63 72 65 65 6e 0d 31  92 53 3b 2b 32 34 3a 20  |screen.1.S;+24: |
0000a150  45 51 55 44 20 6b 6c 75  64 67 65 5f 73 63 72 65  |EQUD kludge_scre|
0000a160  65 6e 2b 33 32 30 2a 32  30 38 20 20 20 20 20 20  |en+320*208      |
0000a170  20 3b 20 42 72 6f 77 6e  20 67 69 72 6c 20 69 6e  | ; Brown girl in|
0000a180  20 74 68 65 20 72 69 6e  67 2c 20 6c 61 20 6c 61  | the ring, la la|
0000a190  20 6c 61 20 6c 61 20 6c  61 0d 31 9c 1e 3b 2b 32  | la la la.1..;+2|
0000a1a0  38 3a 20 45 51 55 44 20  30 3a 45 51 55 44 20 30  |8: EQUD 0:EQUD 0|
0000a1b0  3a 45 51 55 44 20 30 0d  31 a6 1f 45 51 55 44 20  |:EQUD 0.1..EQUD |
0000a1c0  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 30 3a  |0:EQUD 0:EQUD 0:|
0000a1d0  45 51 55 44 20 30 0d 31  b0 34 45 51 55 44 20 30  |EQUD 0.1.4EQUD 0|
0000a1e0  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 3a 45  |:EQUD 0:EQUD 0:E|
0000a1f0  51 55 44 20 30 20 20 20  20 20 20 20 3b 20 51 75  |QUD 0       ; Qu|
0000a200  69 63 6b 6e 6f 75 67 68  74 73 0d 31 ba 39 3b 2b  |icknoughts.1.9;+|
0000a210  37 32 3a 20 45 51 55 44  20 62 6d 65 73 73 25 20  |72: EQUD bmess% |
0000a220  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a230  3b 20 50 74 72 20 74 6f  20 6d 65 73 73 20 62 6c  |; Ptr to mess bl|
0000a240  6f 63 6b 0d 31 c4 3c 3b  2b 37 36 3a 20 45 51 55  |ock.1.<;+76: EQU|
0000a250  44 20 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |D 0             |
0000a260  20 20 20 20 20 20 20 20  20 3b 20 53 65 74 20 75  |         ; Set u|
0000a270  70 20 74 6f 20 53 70 72  69 74 65 4f 70 36 30 0d  |p to SpriteOp60.|
0000a280  31 ce 39 3b 2b 38 30 3a  20 45 51 55 44 20 6b 6c  |1.9;+80: EQUD kl|
0000a290  75 64 67 65 5f 73 63 72  65 65 6e 20 20 20 20 20  |udge_screen     |
0000a2a0  20 20 20 20 20 20 20 20  20 20 3b 20 53 63 72 65  |          ; Scre|
0000a2b0  65 6e 20 73 74 61 72 74  0d 31 d8 34 3b 2b 38 34  |en start.1.4;+84|
0000a2c0  3a 20 45 51 55 44 20 31  38 36 31 20 20 20 20 20  |: EQUD 1861     |
0000a2d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
0000a2e0  53 63 72 20 62 79 74 65  73 2f 34 34 0d 31 e2 3d  |Scr bytes/44.1.=|
0000a2f0  3b 2b 38 38 3a 20 45 51  55 44 20 62 6c 65 76 6c  |;+88: EQUD blevl|
0000a300  25 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |%               |
0000a310  20 20 3b 20 48 6f 72 7a  2e 20 77 61 6c 6c 20 64  |  ; Horz. wall d|
0000a320  61 74 61 20 73 74 61 72  74 0d 31 ec 3d 3b 2b 39  |ata start.1.=;+9|
0000a330  32 3a 20 45 51 55 44 20  62 6c 65 76 6c 25 2b 32  |2: EQUD blevl%+2|
0000a340  37 32 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |72             ;|
0000a350  20 56 65 72 74 2e 20 77  61 6c 6c 20 64 61 74 61  | Vert. wall data|
0000a360  20 73 74 61 72 74 0d 31  f6 39 3b 2b 39 36 3a 20  | start.1.9;+96: |
0000a370  45 51 55 44 20 62 6c 65  76 6c 25 2b 35 34 34 20  |EQUD blevl%+544 |
0000a380  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 53 71  |            ; Sq|
0000a390  75 61 72 65 20 64 61 74  61 20 73 74 61 72 74 0d  |uare data start.|
0000a3a0  32 00 4d 3b 2b 31 30 30  3a 45 51 55 44 20 30 20  |2.M;+100:EQUD 0 |
0000a3b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a3c0  20 20 20 20 20 3b 20 59  65 73 2c 20 61 6e 6f 74  |     ; Yes, anot|
0000a3d0  68 65 72 20 74 65 6d 70  6f 72 61 72 79 20 72 65  |her temporary re|
0000a3e0  67 69 73 74 65 72 20 73  74 6f 72 65 0d 32 0a 3d  |gister store.2.=|
0000a3f0  3b 2b 31 30 34 3a 45 51  55 44 20 62 67 72 61 66  |;+104:EQUD bgraf|
0000a400  25 2b 39 37 2a 31 30 32  34 20 20 20 20 20 20 20  |%+97*1024       |
0000a410  20 20 3b 20 57 61 6c 6c  20 67 72 61 66 78 20 73  |  ; Wall grafx s|
0000a420  74 61 72 74 2d 31 30 32  34 0d 32 14 3b 3b 2b 31  |tart-1024.2.;;+1|
0000a430  30 38 3a 45 51 55 44 20  6b 6c 75 64 67 65 5f 73  |08:EQUD kludge_s|
0000a440  63 72 65 65 6e 2b 31 31  32 2b 33 32 30 2a 39 36  |creen+112+320*96|
0000a450  20 20 20 20 3b 20 57 61  6c 6c 20 61 62 6f 76 65  |    ; Wall above|
0000a460  20 79 6f 75 0d 32 1e 2d  3b 2b 31 31 32 3a 45 51  | you.2.-;+112:EQ|
0000a470  55 44 20 30 20 20 20 20  20 20 20 20 20 20 20 20  |UD 0            |
0000a480  20 20 20 20 20 20 20 20  20 20 3b 20 53 63 6f 72  |          ; Scor|
0000a490  65 0d 32 28 32 3b 2b 31  31 36 3a 45 51 55 44 20  |e.2(2;+116:EQUD |
0000a4a0  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
0000a4b0  20 20 20 20 20 20 20 3b  20 42 6f 6d 62 73 20 6c  |       ; Bombs l|
0000a4c0  65 66 74 0d 32 32 39 3b  2b 31 32 30 3a 45 51 55  |eft.229;+120:EQU|
0000a4d0  44 20 32 31 34 31 20 20  20 20 20 20 20 20 20 20  |D 2141          |
0000a4e0  20 20 20 20 20 20 20 20  20 3b 20 57 69 64 65 20  |         ; Wide |
0000a4f0  73 63 72 20 62 79 74 65  73 2f 34 34 0d 32 3c 23  |scr bytes/44.2<#|
0000a500  3b 2b 31 32 34 3a 45 51  55 44 20 6b 6c 75 64 67  |;+124:EQUD kludg|
0000a510  65 5f 73 63 72 65 65 6e  2b 33 30 34 2d 34 38 0d  |e_screen+304-48.|
0000a520  32 46 10 3b 2b 31 32 38  3a 45 51 55 44 20 30 0d  |2F.;+128:EQUD 0.|
0000a530  32 50 10 3b 2b 31 33 32  3a 45 51 55 44 20 30 0d  |2P.;+132:EQUD 0.|
0000a540  32 5a 19 3b 2b 31 33 36  3a 45 51 55 44 20 62 6c  |2Z.;+136:EQUD bl|
0000a550  65 76 73 25 2b 32 36 36  0d 32 64 36 3b 2b 31 34  |evs%+266.2d6;+14|
0000a560  30 3a 45 51 55 44 20 30  20 20 20 20 20 20 20 20  |0:EQUD 0        |
0000a570  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
0000a580  6b 6c 75 64 67 65 5f 63  6f 75 6e 74 65 72 0d 32  |kludge_counter.2|
0000a590  6e 04 0d 32 78 0a 2e 6e  65 77 73 71 0d 32 82 26  |n..2x..newsq.2.&|
0000a5a0  4d 4f 56 20 52 30 2c 23  32 31 3a 4d 4f 56 20 52  |MOV R0,#21:MOV R|
0000a5b0  31 2c 23 30 3a 53 57 49  20 22 4f 53 5f 42 79 74  |1,#0:SWI "OS_Byt|
0000a5c0  65 22 0d 32 8c 20 4c 44  4d 46 44 20 52 31 33 2c  |e".2. LDMFD R13,|
0000a5d0  7b 52 30 2d 52 33 7d 3a  4d 4f 56 20 52 31 31 2c  |{R0-R3}:MOV R11,|
0000a5e0  52 32 0d 32 96 4d 4c 44  52 20 52 32 2c 5b 52 31  |R2.2.MLDR R2,[R1|
0000a5f0  32 2c 23 39 36 5d 3a 41  44 44 20 52 30 2c 52 32  |2,#96]:ADD R0,R2|
0000a600  2c 52 30 3a 41 44 44 20  52 30 2c 52 30 2c 52 31  |,R0:ADD R0,R0,R1|
0000a610  2c 41 53 4c 23 34 3a 4c  44 52 42 20 52 31 2c 5b  |,ASL#4:LDRB R1,[|
0000a620  52 30 5d 3a 80 20 52 32  2c 52 31 2c 23 31 35 0d  |R0]:. R2,R1,#15.|
0000a630  32 a0 1e 20 20 4d 6f 76  20 20 20 20 20 52 30 2c  |2..  Mov     R0,|
0000a640  23 6b 6c 75 64 67 65 5f  70 61 75 73 65 0d 32 aa  |#kludge_pause.2.|
0000a650  1b 20 20 53 74 72 20 20  20 20 20 52 30 2c 5b 52  |.  Str     R0,[R|
0000a660  31 32 2c 23 31 34 30 5d  0d 32 b4 1d 20 20 54 65  |12,#140].2..  Te|
0000a670  71 20 20 20 20 20 52 32  2c 23 31 3a 42 45 51 20  |q     R2,#1:BEQ |
0000a680  73 71 62 6f 6d 0d 32 be  20 20 20 54 65 71 20 20  |sqbom.2.   Teq  |
0000a690  20 20 20 52 32 2c 23 32  3a 42 45 51 20 6f 75 74  |   R2,#2:BEQ out|
0000a6a0  5f 6d 69 6e 65 0d 32 c8  1d 20 20 54 65 71 20 20  |_mine.2..  Teq  |
0000a6b0  20 20 20 52 32 2c 23 33  3a 42 45 51 20 73 71 74  |   R2,#3:BEQ sqt|
0000a6c0  72 6e 0d 32 d2 1d 20 20  54 65 71 20 20 20 20 20  |rn.2..  Teq     |
0000a6d0  52 32 2c 23 36 3a 42 45  51 20 73 71 62 6f 6e 0d  |R2,#6:BEQ sqbon.|
0000a6e0  32 dc 13 20 20 42 20 20  20 20 20 20 20 6c 73 67  |2..  B       lsg|
0000a6f0  61 6d 0d 32 e6 05 3a 0d  32 f0 0a 2e 73 71 62 6f  |am.2..:.2...sqbo|
0000a700  6d 0d 32 fa 35 4c 44 52  20 52 30 2c 5b 52 31 32  |m.2.5LDR R0,[R12|
0000a710  2c 23 31 31 32 5d 3a 41  44 44 20 52 30 2c 52 30  |,#112]:ADD R0,R0|
0000a720  2c 23 32 33 3a 53 54 52  20 52 30 2c 5b 52 31 32  |,#23:STR R0,[R12|
0000a730  2c 23 31 31 32 5d 0d 33  04 1d 4d 4f 56 20 52 31  |,#112].3..MOV R1|
0000a740  2c 52 31 31 3a 42 4c 20  65 67 5f 73 68 6f 77 73  |,R11:BL eg_shows|
0000a750  63 6f 72 0d 33 0e 44 4d  4f 56 20 52 30 2c 23 32  |cor.3.DMOV R0,#2|
0000a760  3a 4d 56 4e 20 52 31 2c  23 31 34 3a 4d 4f 56 20  |:MVN R1,#14:MOV |
0000a770  52 32 2c 23 26 31 38 30  30 3a 4d 4f 56 20 52 33  |R2,#&1800:MOV R3|
0000a780  2c 23 31 3a 53 57 49 20  22 53 6f 75 6e 64 5f 43  |,#1:SWI "Sound_C|
0000a790  6f 6e 74 72 6f 6c 22 0d  33 18 11 41 44 52 20 52  |ontrol".3..ADR R|
0000a7a0  31 32 2c 62 67 61 6d 65  0d 33 22 42 4c 44 52 20  |12,bgame.3"BLDR |
0000a7b0  52 30 2c 5b 52 31 32 2c  23 31 31 36 5d 3a 53 55  |R0,[R12,#116]:SU|
0000a7c0  42 53 20 52 30 2c 52 30  2c 23 31 3a 42 45 51 20  |BS R0,R0,#1:BEQ |
0000a7d0  6f 75 74 5f 64 6f 6e 65  3a 53 54 52 20 52 30 2c  |out_done:STR R0,|
0000a7e0  5b 52 31 32 2c 23 31 31  36 5d 0d 33 2c 1c 2e 77  |[R12,#116].3,..w|
0000a7f0  79 70 73 71 20 4c 44 4d  46 44 20 52 31 33 2c 7b  |ypsq LDMFD R13,{|
0000a800  52 30 2d 52 33 7d 0d 33  36 4b 4c 44 52 20 52 32  |R0-R3}.36KLDR R2|
0000a810  2c 5b 52 31 32 2c 23 39  36 5d 3a 41 44 44 20 52  |,[R12,#96]:ADD R|
0000a820  30 2c 52 32 2c 52 30 3a  41 44 44 20 52 30 2c 52  |0,R2,R0:ADD R0,R|
0000a830  30 2c 52 31 2c 41 53 4c  23 34 3a 4d 4f 56 20 52  |0,R1,ASL#4:MOV R|
0000a840  31 2c 23 30 3a 53 54 52  42 20 52 31 2c 5b 52 30  |1,#0:STRB R1,[R0|
0000a850  5d 0d 33 40 0b 42 20 6c  73 67 61 6d 0d 33 4a 0a  |].3@.B lsgam.3J.|
0000a860  2e 73 71 62 6f 6e 0d 33  54 40 4c 44 52 20 52 30  |.sqbon.3T@LDR R0|
0000a870  2c 5b 52 31 32 2c 23 31  31 32 5d 3a 41 44 44 20  |,[R12,#112]:ADD |
0000a880  52 30 2c 52 30 2c 23 32  36 3a 53 54 52 20 52 30  |R0,R0,#26:STR R0|
0000a890  2c 5b 52 31 32 2c 23 31  31 32 5d 3a 4d 4f 56 20  |,[R12,#112]:MOV |
0000a8a0  52 31 2c 52 31 31 0d 33  5e 29 42 4c 20 65 67 5f  |R1,R11.3^)BL eg_|
0000a8b0  73 68 6f 77 73 63 6f 72  3a 4d 4f 56 20 52 30 2c  |showscor:MOV R0,|
0000a8c0  23 34 3a 41 44 52 20 52  31 2c 62 6f 6e 76 78 0d  |#4:ADR R1,bonvx.|
0000a8d0  33 68 20 53 57 49 20 22  53 6f 75 6e 64 5f 41 74  |3h SWI "Sound_At|
0000a8e0  74 61 63 68 4e 61 6d 65  64 56 6f 69 63 65 22 0d  |tachNamedVoice".|
0000a8f0  33 72 44 4d 4f 56 20 52  30 2c 23 34 3a 4d 56 4e  |3rDMOV R0,#4:MVN|
0000a900  20 52 31 2c 23 31 34 3a  4d 4f 56 20 52 32 2c 23  | R1,#14:MOV R2,#|
0000a910  26 31 38 30 30 3a 4d 4f  56 20 52 33 2c 23 31 3a  |&1800:MOV R3,#1:|
0000a920  53 57 49 20 22 53 6f 75  6e 64 5f 43 6f 6e 74 72  |SWI "Sound_Contr|
0000a930  6f 6c 22 0d 33 7c 19 41  44 52 20 52 31 32 2c 62  |ol".3|.ADR R12,b|
0000a940  67 61 6d 65 3a 42 20 77  79 70 73 71 0d 33 86 25  |game:B wypsq.3.%|
0000a950  2e 62 6f 6e 76 78 20 45  51 55 53 20 22 42 53 67  |.bonvx EQUS "BSg|
0000a960  65 74 62 6f 6e 75 73 22  2b bd 30 3a 41 4c 49 47  |etbonus"+.0:ALIG|
0000a970  4e 0d 33 90 11 2e 74 65  6d 70 73 20 45 51 55 44  |N.3...temps EQUD|
0000a980  20 30 0d 33 9a 24 2e 73  71 74 72 6e 20 41 44 52  | 0.3.$.sqtrn ADR|
0000a990  20 52 30 2c 74 65 6d 70  73 3a 53 54 52 42 20 52  | R0,temps:STRB R|
0000a9a0  31 2c 5b 52 30 5d 0d 33  a4 37 4d 4f 56 20 52 30  |1,[R0].3.7MOV R0|
0000a9b0  2c 23 34 3a 41 44 52 20  52 31 2c 74 72 61 76 78  |,#4:ADR R1,travx|
0000a9c0  3a 53 57 49 20 22 53 6f  75 6e 64 5f 41 74 74 61  |:SWI "Sound_Atta|
0000a9d0  63 68 4e 61 6d 65 64 56  6f 69 63 65 22 0d 33 ae  |chNamedVoice".3.|
0000a9e0  44 4d 4f 56 20 52 30 2c  23 34 3a 4d 56 4e 20 52  |DMOV R0,#4:MVN R|
0000a9f0  31 2c 23 31 34 3a 4d 4f  56 20 52 32 2c 23 26 32  |1,#14:MOV R2,#&2|
0000aa00  37 30 30 3a 4d 4f 56 20  52 33 2c 23 31 3a 53 57  |700:MOV R3,#1:SW|
0000aa10  49 20 22 53 6f 75 6e 64  5f 43 6f 6e 74 72 6f 6c  |I "Sound_Control|
0000aa20  22 0d 33 b8 30 41 44 52  20 52 30 2c 74 74 72 61  |".3.0ADR R0,ttra|
0000aa30  6e 3a 41 44 52 20 52 31  32 2c 62 67 61 6d 65 3a  |n:ADR R12,bgame:|
0000aa40  53 54 52 20 52 30 2c 5b  52 31 32 2c 23 31 33 32  |STR R0,[R12,#132|
0000aa50  5d 0d 33 c2 18 2e 6c 70  74 72 6e 20 42 4c 20 65  |].3...lptrn BL e|
0000aa60  67 5f 77 69 70 65 79 6f  75 0d 33 cc 16 4c 44 4d  |g_wipeyou.3..LDM|
0000aa70  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 33 7d 0d  |FD R13!,{R0-R3}.|
0000aa80  33 d6 2d 41 44 44 20 52  33 2c 52 33 2c 23 31 3a  |3.-ADD R3,R3,#1:|
0000aa90  80 53 20 52 34 2c 52 33  2c 23 26 31 46 3a 53 55  |.S R4,R3,#&1F:SU|
0000aaa0  42 45 51 20 52 32 2c 52  32 2c 23 31 0d 33 e0 23  |BEQ R2,R2,#1.3.#|
0000aab0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
0000aac0  33 7d 3a 42 4c 45 51 20  64 65 63 74 69 6d 65 0d  |3}:BLEQ dectime.|
0000aad0  33 ea 12 42 4c 20 65 67  5f 73 68 6f 77 6f 62 6a  |3..BL eg_showobj|
0000aae0  73 0d 33 f4 15 4c 44 4d  46 44 20 52 31 33 2c 7b  |s.3..LDMFD R13,{|
0000aaf0  52 30 2d 52 33 7d 0d 33  fe 45 41 44 52 20 52 31  |R0-R3}.3.EADR R1|
0000ab00  32 2c 62 67 61 6d 65 3a  4c 44 52 20 52 31 2c 5b  |2,bgame:LDR R1,[|
0000ab10  52 31 32 2c 23 31 33 32  5d 3a 4c 44 52 42 20 52  |R12,#132]:LDRB R|
0000ab20  30 2c 5b 52 31 5d 2c 23  31 3a 53 54 52 20 52 31  |0,[R1],#1:STR R1|
0000ab30  2c 5b 52 31 32 2c 23 31  33 32 5d 0d 34 08 32 43  |,[R12,#132].4.2C|
0000ab40  4d 50 20 52 30 2c 23 30  3a 42 45 51 20 6c 70 74  |MP R0,#0:BEQ lpt|
0000ab50  72 6f 3a 41 44 44 20 52  31 2c 52 30 2c 23 36 3a  |ro:ADD R1,R0,#6:|
0000ab60  42 4c 20 65 67 5f 73 68  6f 77 79 6f 75 0d 34 12  |BL eg_showyou.4.|
0000ab70  24 4d 4f 56 20 52 30 2c  23 31 39 3a 53 57 49 20  |$MOV R0,#19:SWI |
0000ab80  22 4f 53 5f 42 79 74 65  22 3a 42 20 6c 70 74 72  |"OS_Byte":B lptr|
0000ab90  6e 0d 34 1c 18 2e 6c 70  74 72 6f 20 42 4c 20 65  |n.4...lptro BL e|
0000aba0  67 5f 77 69 70 65 79 6f  75 0d 34 26 16 4c 44 4d  |g_wipeyou.4&.LDM|
0000abb0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 33 7d 0d  |FD R13!,{R0-R3}.|
0000abc0  34 30 2d 41 44 44 20 52  33 2c 52 33 2c 23 31 3a  |40-ADD R3,R3,#1:|
0000abd0  80 53 20 52 34 2c 52 33  2c 23 26 31 46 3a 53 55  |.S R4,R3,#&1F:SU|
0000abe0  42 45 51 20 52 32 2c 52  32 2c 23 31 0d 34 3a 23  |BEQ R2,R2,#1.4:#|
0000abf0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
0000ac00  33 7d 3a 42 4c 45 51 20  64 65 63 74 69 6d 65 0d  |3}:BLEQ dectime.|
0000ac10  34 44 12 42 4c 20 65 67  5f 73 68 6f 77 6f 62 6a  |4D.BL eg_showobj|
0000ac20  73 0d 34 4e 15 4c 44 4d  46 44 20 52 31 33 2c 7b  |s.4N.LDMFD R13,{|
0000ac30  52 30 2d 52 33 7d 0d 34  58 45 41 44 52 20 52 31  |R0-R3}.4XEADR R1|
0000ac40  32 2c 62 67 61 6d 65 3a  4c 44 52 20 52 31 2c 5b  |2,bgame:LDR R1,[|
0000ac50  52 31 32 2c 23 31 33 32  5d 3a 4c 44 52 42 20 52  |R12,#132]:LDRB R|
0000ac60  30 2c 5b 52 31 5d 2c 23  31 3a 53 54 52 20 52 31  |0,[R1],#1:STR R1|
0000ac70  2c 5b 52 31 32 2c 23 31  33 32 5d 0d 34 62 3d 43  |,[R12,#132].4b=C|
0000ac80  4d 50 20 52 30 2c 23 30  3a 42 45 51 20 6c 70 74  |MP R0,#0:BEQ lpt|
0000ac90  72 70 3a 41 44 44 20 52  31 2c 52 30 2c 23 36 3a  |rp:ADD R1,R0,#6:|
0000aca0  4d 4f 56 20 52 30 2c 23  39 33 3a 42 4c 20 65 67  |MOV R0,#93:BL eg|
0000acb0  5f 73 68 6f 77 79 6f 75  0d 34 6c 24 4d 4f 56 20  |_showyou.4l$MOV |
0000acc0  52 30 2c 23 31 39 3a 53  57 49 20 22 4f 53 5f 42  |R0,#19:SWI "OS_B|
0000acd0  79 74 65 22 3a 42 20 6c  70 74 72 6f 0d 34 76 27  |yte":B lptro.4v'|
0000ace0  2e 6c 70 74 72 70 20 4c  44 4d 46 44 20 52 31 33  |.lptrp LDMFD R13|
0000acf0  2c 7b 52 30 2d 52 33 7d  3a 4d 4f 56 20 52 31 31  |,{R0-R3}:MOV R11|
0000ad00  2c 52 32 0d 34 80 4b 4c  44 52 20 52 32 2c 5b 52  |,R2.4.KLDR R2,[R|
0000ad10  31 32 2c 23 39 36 5d 3a  41 44 44 20 52 30 2c 52  |12,#96]:ADD R0,R|
0000ad20  32 2c 52 30 3a 41 44 44  20 52 30 2c 52 30 2c 52  |2,R0:ADD R0,R0,R|
0000ad30  31 2c 41 53 4c 23 34 3a  4d 4f 56 20 52 31 2c 23  |1,ASL#4:MOV R1,#|
0000ad40  30 3a 53 54 52 42 20 52  31 2c 5b 52 30 5d 0d 34  |0:STRB R1,[R0].4|
0000ad50  8a 18 2e 6c 70 74 72 71  20 42 4c 20 65 67 5f 77  |...lptrq BL eg_w|
0000ad60  69 70 65 79 6f 75 0d 34  94 16 4c 44 4d 46 44 20  |ipeyou.4..LDMFD |
0000ad70  52 31 33 21 2c 7b 52 30  2d 52 33 7d 0d 34 9e 2d  |R13!,{R0-R3}.4.-|
0000ad80  41 44 44 20 52 33 2c 52  33 2c 23 31 3a 80 53 20  |ADD R3,R3,#1:.S |
0000ad90  52 34 2c 52 33 2c 23 26  31 46 3a 53 55 42 45 51  |R4,R3,#&1F:SUBEQ|
0000ada0  20 52 32 2c 52 32 2c 23  31 0d 34 a8 23 53 54 4d  | R2,R2,#1.4.#STM|
0000adb0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 33 7d 3a  |FD R13!,{R0-R3}:|
0000adc0  42 4c 45 51 20 64 65 63  74 69 6d 65 0d 34 b2 24  |BLEQ dectime.4.$|
0000add0  42 4c 20 65 67 5f 73 68  6f 77 6f 62 6a 73 3a 4c  |BL eg_showobjs:L|
0000ade0  44 4d 46 44 20 52 31 33  2c 7b 52 30 2d 52 33 7d  |DMFD R13,{R0-R3}|
0000adf0  0d 34 bc 45 41 44 52 20  52 31 32 2c 62 67 61 6d  |.4.EADR R12,bgam|
0000ae00  65 3a 4c 44 52 20 52 31  2c 5b 52 31 32 2c 23 31  |e:LDR R1,[R12,#1|
0000ae10  33 32 5d 3a 4c 44 52 42  20 52 30 2c 5b 52 31 5d  |32]:LDRB R0,[R1]|
0000ae20  2c 23 31 3a 53 54 52 20  52 31 2c 5b 52 31 32 2c  |,#1:STR R1,[R12,|
0000ae30  23 31 33 32 5d 0d 34 c6  38 43 4d 50 20 52 30 2c  |#132].4.8CMP R0,|
0000ae40  23 30 3a 42 45 51 20 6c  70 74 72 72 3a 4d 4f 56  |#0:BEQ lptrr:MOV|
0000ae50  20 52 30 2c 23 31 39 3a  53 57 49 20 22 4f 53 5f  | R0,#19:SWI "OS_|
0000ae60  42 79 74 65 22 3a 42 20  6c 70 74 72 71 0d 34 d0  |Byte":B lptrq.4.|
0000ae70  0a 2e 6c 70 74 72 72 0d  34 da 26 4d 4f 56 20 52  |..lptrr.4.&MOV R|
0000ae80  30 2c 23 32 31 3a 4d 4f  56 20 52 31 2c 23 30 3a  |0,#21:MOV R1,#0:|
0000ae90  53 57 49 20 22 4f 53 5f  42 79 74 65 22 0d 34 e4  |SWI "OS_Byte".4.|
0000aea0  50 41 44 52 20 52 31 32  2c 62 67 61 6d 65 3a 4c  |PADR R12,bgame:L|
0000aeb0  44 52 20 52 30 2c 5b 52  31 32 2c 23 38 30 5d 3a  |DR R0,[R12,#80]:|
0000aec0  41 44 44 20 52 32 2c 52  31 32 2c 23 32 38 3a 4c  |ADD R2,R12,#28:L|
0000aed0  44 4d 49 41 20 52 32 2c  7b 52 31 2d 52 31 31 7d  |DMIA R2,{R1-R11}|
0000aee0  3a 4d 4f 56 20 52 31 32  2c 23 32 35 36 0d 34 ee  |:MOV R12,#256.4.|
0000aef0  9d 2e 6c 74 63 73 7a 20  53 54 4d 49 41 20 52 30  |..ltcsz STMIA R0|
0000af00  21 2c 7b 52 31 2d 52 31  31 7d 3a 53 54 4d 49 41  |!,{R1-R11}:STMIA|
0000af10  20 52 30 21 2c 7b 52 31  2d 52 31 31 7d 3a 53 54  | R0!,{R1-R11}:ST|
0000af20  4d 49 41 20 52 30 21 2c  7b 52 31 2d 52 31 31 7d  |MIA R0!,{R1-R11}|
0000af30  3a 53 54 4d 49 41 20 52  30 21 2c 7b 52 31 2d 52  |:STMIA R0!,{R1-R|
0000af40  31 31 7d 3a 53 54 4d 49  41 20 52 30 21 2c 7b 52  |11}:STMIA R0!,{R|
0000af50  31 2d 52 31 31 7d 3a 53  54 4d 49 41 20 52 30 21  |1-R11}:STMIA R0!|
0000af60  2c 7b 52 31 2d 52 31 31  7d 3a 53 54 4d 49 41 20  |,{R1-R11}:STMIA |
0000af70  52 30 21 2c 7b 52 31 2d  52 31 30 7d 3a 41 44 44  |R0!,{R1-R10}:ADD|
0000af80  20 52 30 2c 52 30 2c 23  31 36 0d 34 f8 1d 53 55  | R0,R0,#16.4..SU|
0000af90  42 53 20 52 31 32 2c 52  31 32 2c 23 31 3a 42 4e  |BS R12,R12,#1:BN|
0000afa0  45 20 6c 74 63 73 7a 0d  35 02 41 41 44 52 20 52  |E ltcsz.5.AADR R|
0000afb0  31 32 2c 62 67 61 6d 65  3a 4c 44 52 20 52 30 2c  |12,bgame:LDR R0,|
0000afc0  5b 52 31 32 2c 23 37 32  5d 3a 4c 44 52 42 20 52  |[R12,#72]:LDRB R|
0000afd0  30 2c 5b 52 30 5d 3a 4c  44 52 20 52 31 2c 5b 52  |0,[R0]:LDR R1,[R|
0000afe0  31 32 2c 23 31 33 36 5d  0d 35 0c 34 41 44 44 20  |12,#136].5.4ADD |
0000aff0  52 30 2c 52 31 2c 52 30  2c 41 53 4c 23 31 3a 4c  |R0,R1,R0,ASL#1:L|
0000b000  44 52 42 20 52 31 30 2c  5b 52 30 2c 23 31 5d 3a  |DRB R10,[R0,#1]:|
0000b010  4c 44 52 42 20 52 39 2c  5b 52 30 5d 0d 35 16 15  |LDRB R9,[R0].5..|
0000b020  4c 44 4d 46 44 20 52 31  33 2c 7b 52 30 2d 52 33  |LDMFD R13,{R0-R3|
0000b030  7d 0d 35 20 1d 41 44 52  20 52 30 2c 74 65 6d 70  |}.5 .ADR R0,temp|
0000b040  73 3a 4c 44 52 42 20 52  31 2c 5b 52 30 5d 0d 35  |s:LDRB R1,[R0].5|
0000b050  2a 3e 80 20 52 33 2c 52  31 2c 23 32 34 30 3a 41  |*>. R3,R1,#240:A|
0000b060  44 44 20 52 33 2c 52 33  2c 23 35 3a 4d 4f 56 20  |DD R3,R3,#5:MOV |
0000b070  52 34 2c 23 32 35 36 3a  4d 4f 56 20 52 30 2c 52  |R4,#256:MOV R0,R|
0000b080  39 3a 4d 4f 56 20 52 31  2c 52 31 30 0d 35 34 1e  |9:MOV R1,R10.54.|
0000b090  4c 44 52 20 52 32 2c 5b  52 31 32 2c 23 39 36 5d  |LDR R2,[R12,#96]|
0000b0a0  3a 4d 4f 56 20 52 37 2c  23 30 0d 35 3e 2e 2e 6c  |:MOV R7,#0.5>..l|
0000b0b0  66 6e 64 72 20 4c 44 52  42 20 52 35 2c 5b 52 32  |fndr LDRB R5,[R2|
0000b0c0  5d 2c 23 31 3a 43 4d 50  20 52 35 2c 52 33 3a 42  |],#1:CMP R5,R3:B|
0000b0d0  4e 45 20 73 66 6e 64 72  0d 35 48 30 80 20 52 30  |NE sfndr.5H0. R0|
0000b0e0  2c 52 37 2c 23 31 35 3a  80 20 52 31 2c 52 37 2c  |,R7,#15:. R1,R7,|
0000b0f0  23 28 31 35 3c 3c 34 29  3a 4d 4f 56 20 52 31 2c  |#(15<<4):MOV R1,|
0000b100  52 31 2c 4c 53 52 23 34  0d 35 52 2f 2e 73 66 6e  |R1,LSR#4.5R/.sfn|
0000b110  64 72 20 41 44 44 20 52  37 2c 52 37 2c 23 31 3a  |dr ADD R7,R7,#1:|
0000b120  53 55 42 53 20 52 34 2c  52 34 2c 23 31 3a 42 4e  |SUBS R4,R4,#1:BN|
0000b130  45 20 6c 66 6e 64 72 0d  35 5c 16 4c 44 4d 46 44  |E lfndr.5\.LDMFD|
0000b140  20 52 31 33 21 2c 7b 52  32 2d 52 35 7d 0d 35 66  | R13!,{R2-R5}.5f|
0000b150  1c 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |.STMFD R13!,{R0-|
0000b160  52 31 2c 52 34 2d 52 35  7d 0d 35 70 3b 4c 44 52  |R1,R4-R5}.5p;LDR|
0000b170  20 52 32 2c 5b 52 31 32  2c 23 37 32 5d 3a 4c 44  | R2,[R12,#72]:LD|
0000b180  52 42 20 52 32 2c 5b 52  32 5d 3a 80 20 52 32 2c  |RB R2,[R2]:. R2,|
0000b190  52 32 2c 23 33 3a 42 4c  20 65 67 5f 73 68 6f 77  |R2,#3:BL eg_show|
0000b1a0  6d 69 64 73 0d 35 7a 23  4c 44 4d 46 44 20 52 31  |mids.5z#LDMFD R1|
0000b1b0  33 2c 7b 52 30 2d 52 33  7d 3a 41 44 52 20 52 31  |3,{R0-R3}:ADR R1|
0000b1c0  32 2c 62 67 61 6d 65 0d  35 84 3b 4c 44 52 20 52  |2,bgame.5.;LDR R|
0000b1d0  32 2c 5b 52 31 32 2c 23  37 32 5d 3a 4c 44 52 42  |2,[R12,#72]:LDRB|
0000b1e0  20 52 32 2c 5b 52 32 5d  3a 80 20 52 32 2c 52 32  | R2,[R2]:. R2,R2|
0000b1f0  2c 23 37 3a 42 4c 20 65  67 5f 73 68 6f 77 61 6c  |,#7:BL eg_showal|
0000b200  6c 73 0d 35 8e 3e 41 44  52 20 52 30 2c 74 74 72  |ls.5.>ADR R0,ttr|
0000b210  61 6e 3a 41 44 44 20 52  30 2c 52 30 2c 23 32 38  |an:ADD R0,R0,#28|
0000b220  3a 41 44 52 20 52 31 32  2c 62 67 61 6d 65 3a 53  |:ADR R12,bgame:S|
0000b230  54 52 20 52 30 2c 5b 52  31 32 2c 23 31 33 32 5d  |TR R0,[R12,#132]|
0000b240  0d 35 98 18 2e 6c 70 74  72 79 20 42 4c 20 65 67  |.5...lptry BL eg|
0000b250  5f 77 69 70 65 79 6f 75  0d 35 a2 16 4c 44 4d 46  |_wipeyou.5..LDMF|
0000b260  44 20 52 31 33 21 2c 7b  52 30 2d 52 33 7d 0d 35  |D R13!,{R0-R3}.5|
0000b270  ac 2d 41 44 44 20 52 33  2c 52 33 2c 23 31 3a 80  |.-ADD R3,R3,#1:.|
0000b280  53 20 52 34 2c 52 33 2c  23 26 31 46 3a 53 55 42  |S R4,R3,#&1F:SUB|
0000b290  45 51 20 52 32 2c 52 32  2c 23 31 0d 35 b6 23 53  |EQ R2,R2,#1.5.#S|
0000b2a0  54 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 33  |TMFD R13!,{R0-R3|
0000b2b0  7d 3a 42 4c 45 51 20 64  65 63 74 69 6d 65 0d 35  |}:BLEQ dectime.5|
0000b2c0  c0 12 42 4c 20 65 67 5f  73 68 6f 77 6f 62 6a 73  |..BL eg_showobjs|
0000b2d0  0d 35 ca 15 4c 44 4d 46  44 20 52 31 33 2c 7b 52  |.5..LDMFD R13,{R|
0000b2e0  30 2d 52 33 7d 0d 35 d4  45 41 44 52 20 52 31 32  |0-R3}.5.EADR R12|
0000b2f0  2c 62 67 61 6d 65 3a 4c  44 52 20 52 31 2c 5b 52  |,bgame:LDR R1,[R|
0000b300  31 32 2c 23 31 33 32 5d  3a 4c 44 52 42 20 52 30  |12,#132]:LDRB R0|
0000b310  2c 5b 52 31 5d 2c 23 31  3a 53 54 52 20 52 31 2c  |,[R1],#1:STR R1,|
0000b320  5b 52 31 32 2c 23 31 33  32 5d 0d 35 de 32 43 4d  |[R12,#132].5.2CM|
0000b330  50 20 52 30 2c 23 30 3a  42 45 51 20 6c 73 67 61  |P R0,#0:BEQ lsga|
0000b340  6d 3a 41 44 44 20 52 31  2c 52 30 2c 23 36 3a 42  |m:ADD R1,R0,#6:B|
0000b350  4c 20 65 67 5f 73 68 6f  77 79 6f 75 0d 35 e8 24  |L eg_showyou.5.$|
0000b360  4d 4f 56 20 52 30 2c 23  31 39 3a 53 57 49 20 22  |MOV R0,#19:SWI "|
0000b370  4f 53 5f 42 79 74 65 22  3a 42 20 6c 70 74 72 79  |OS_Byte":B lptry|
0000b380  0d 35 f2 25 2e 74 72 61  76 78 20 45 51 55 53 20  |.5.%.travx EQUS |
0000b390  22 42 53 74 72 61 6e 73  70 6f 72 22 2b bd 30 3a  |"BStranspor"+.0:|
0000b3a0  41 4c 49 47 4e 0d 35 fc  05 3a 0d 36 06 37 2e 74  |ALIGN.5..:.6.7.t|
0000b3b0  74 72 61 6e 20 45 51 55  44 20 26 42 41 42 41 42  |tran EQUD &BABAB|
0000b3c0  42 42 41 3a 45 51 55 44  20 26 42 42 42 42 42 43  |BBA:EQUD &BBBBBC|
0000b3d0  42 42 3a 45 51 55 44 20  26 42 43 42 43 42 44 42  |BB:EQUD &BCBCBDB|
0000b3e0  43 0d 36 10 30 45 51 55  44 20 26 42 44 42 44 42  |C.6.0EQUD &BDBDB|
0000b3f0  45 42 44 3a 45 51 55 44  20 26 42 45 42 45 42 46  |EBD:EQUD &BEBEBF|
0000b400  42 45 3a 45 51 55 44 20  26 42 46 42 45 42 46 30  |BE:EQUD &BFBEBF0|
0000b410  30 0d 36 1a 30 45 51 55  44 20 26 42 46 42 46 42  |0.6.0EQUD &BFBFB|
0000b420  45 42 46 3a 45 51 55 44  20 26 42 45 42 45 42 44  |EBF:EQUD &BEBEBD|
0000b430  42 45 3a 45 51 55 44 20  26 42 44 42 44 42 43 42  |BE:EQUD &BDBDBCB|
0000b440  44 0d 36 24 30 45 51 55  44 20 26 42 43 42 43 42  |D.6$0EQUD &BCBCB|
0000b450  42 42 43 3a 45 51 55 44  20 26 42 42 42 42 42 41  |BBC:EQUD &BBBBBA|
0000b460  42 42 3a 45 51 55 44 20  26 42 41 42 42 42 41 30  |BB:EQUD &BABBBA0|
0000b470  30 0d 36 2e 30 45 51 55  44 20 26 30 31 30 31 30  |0.6.0EQUD &01010|
0000b480  31 30 31 3a 45 51 55 44  20 26 30 31 30 31 30 31  |101:EQUD &010101|
0000b490  30 31 3a 45 51 55 44 20  26 30 31 30 31 30 31 30  |01:EQUD &0101010|
0000b4a0  30 0d 36 38 05 3a 0d 36  42 0c 2e 64 65 63 74 69  |0.68.:.6B..decti|
0000b4b0  6d 65 0d 36 4c 13 a4 73  61 64 72 28 31 32 2c 62  |me.6L..sadr(12,b|
0000b4c0  67 61 6d 65 29 0d 36 56  0d 43 4d 50 20 52 32 2c  |game).6V.CMP R2,|
0000b4d0  23 30 0d 36 60 10 42 4d  49 20 6f 75 74 5f 74 69  |#0.6`.BMI out_ti|
0000b4e0  6d 65 0d 36 6a 13 4c 44  52 20 52 34 2c 5b 52 31  |me.6j.LDR R4,[R1|
0000b4f0  32 2c 23 38 5d 0d 36 74  0f 4d 4f 56 20 52 35 2c  |2,#8].6t.MOV R5,|
0000b500  23 33 32 30 0d 36 7e 10  4d 55 4c 20 52 36 2c 52  |#320.6~.MUL R6,R|
0000b510  35 2c 52 32 0d 36 88 10  53 55 42 20 52 32 2c 52  |5,R2.6..SUB R2,R|
0000b520  34 2c 52 36 0d 36 92 26  4d 4f 56 20 52 34 2c 23  |4,R6.6.&MOV R4,#|
0000b530  30 3a 4d 4f 56 20 52 35  2c 23 32 35 35 3a 4d 56  |0:MOV R5,#255:MV|
0000b540  4e 20 52 31 31 2c 23 32  35 35 0d 36 9c 14 4c 44  |N R11,#255.6..LD|
0000b550  4d 49 41 20 52 32 2c 7b  52 36 2d 52 39 7d 0d 36  |MIA R2,{R6-R9}.6|
0000b560  a6 2a 80 20 52 31 30 2c  52 35 2c 52 36 3a 43 4d  |.*. R10,R5,R6:CM|
0000b570  50 20 52 31 30 2c 23 31  36 30 3a 80 45 51 20 52  |P R10,#160:.EQ R|
0000b580  36 2c 52 36 2c 52 31 31  0d 36 b0 37 80 20 52 31  |6,R6,R11.6.7. R1|
0000b590  30 2c 52 35 2c 52 36 2c  52 4f 52 23 32 34 3a 43  |0,R5,R6,ROR#24:C|
0000b5a0  4d 50 20 52 31 30 2c 23  31 36 33 3a 80 45 51 20  |MP R10,#163:.EQ |
0000b5b0  52 36 2c 52 36 2c 52 31  31 2c 52 4f 52 23 38 0d  |R6,R6,R11,ROR#8.|
0000b5c0  36 ba 38 80 20 52 31 30  2c 52 35 2c 52 36 2c 52  |6.8. R10,R5,R6,R|
0000b5d0  4f 52 23 31 36 3a 43 4d  50 20 52 31 30 2c 23 31  |OR#16:CMP R10,#1|
0000b5e0  36 32 3a 80 45 51 20 52  36 2c 52 36 2c 52 31 31  |62:.EQ R6,R6,R11|
0000b5f0  2c 52 4f 52 23 31 36 0d  36 c4 37 80 20 52 31 30  |,ROR#16.6.7. R10|
0000b600  2c 52 35 2c 52 36 2c 52  4f 52 23 38 3a 43 4d 50  |,R5,R6,ROR#8:CMP|
0000b610  20 52 31 30 2c 23 31 36  31 3a 80 45 51 20 52 36  | R10,#161:.EQ R6|
0000b620  2c 52 36 2c 52 31 31 2c  52 4f 52 23 32 34 0d 36  |,R6,R11,ROR#24.6|
0000b630  ce 2a 80 20 52 31 30 2c  52 35 2c 52 37 3a 43 4d  |.*. R10,R5,R7:CM|
0000b640  50 20 52 31 30 2c 23 32  30 34 3a 80 45 51 20 52  |P R10,#204:.EQ R|
0000b650  37 2c 52 37 2c 52 31 31  0d 36 d8 37 80 20 52 31  |7,R7,R11.6.7. R1|
0000b660  30 2c 52 35 2c 52 37 2c  52 4f 52 23 32 34 3a 43  |0,R5,R7,ROR#24:C|
0000b670  4d 50 20 52 31 30 2c 23  32 30 37 3a 80 45 51 20  |MP R10,#207:.EQ |
0000b680  52 37 2c 52 37 2c 52 31  31 2c 52 4f 52 23 38 0d  |R7,R7,R11,ROR#8.|
0000b690  36 e2 38 80 20 52 31 30  2c 52 35 2c 52 37 2c 52  |6.8. R10,R5,R7,R|
0000b6a0  4f 52 23 31 36 3a 43 4d  50 20 52 31 30 2c 23 32  |OR#16:CMP R10,#2|
0000b6b0  30 36 3a 80 45 51 20 52  37 2c 52 37 2c 52 31 31  |06:.EQ R7,R7,R11|
0000b6c0  2c 52 4f 52 23 31 36 0d  36 ec 37 80 20 52 31 30  |,ROR#16.6.7. R10|
0000b6d0  2c 52 35 2c 52 37 2c 52  4f 52 23 38 3a 43 4d 50  |,R5,R7,ROR#8:CMP|
0000b6e0  20 52 31 30 2c 23 32 30  35 3a 80 45 51 20 52 37  | R10,#205:.EQ R7|
0000b6f0  2c 52 37 2c 52 31 31 2c  52 4f 52 23 32 34 0d 36  |,R7,R11,ROR#24.6|
0000b700  f6 2a 80 20 52 31 30 2c  52 35 2c 52 38 3a 43 4d  |.*. R10,R5,R8:CM|
0000b710  50 20 52 31 30 2c 23 32  30 36 3a 80 45 51 20 52  |P R10,#206:.EQ R|
0000b720  38 2c 52 38 2c 52 31 31  0d 37 00 37 80 20 52 31  |8,R8,R11.7.7. R1|
0000b730  30 2c 52 35 2c 52 38 2c  52 4f 52 23 32 34 3a 43  |0,R5,R8,ROR#24:C|
0000b740  4d 50 20 52 31 30 2c 23  31 36 33 3a 80 45 51 20  |MP R10,#163:.EQ |
0000b750  52 38 2c 52 38 2c 52 31  31 2c 52 4f 52 23 38 0d  |R8,R8,R11,ROR#8.|
0000b760  37 0a 38 80 20 52 31 30  2c 52 35 2c 52 38 2c 52  |7.8. R10,R5,R8,R|
0000b770  4f 52 23 31 36 3a 43 4d  50 20 52 31 30 2c 23 32  |OR#16:CMP R10,#2|
0000b780  30 34 3a 80 45 51 20 52  38 2c 52 38 2c 52 31 31  |04:.EQ R8,R8,R11|
0000b790  2c 52 4f 52 23 31 36 0d  37 14 37 80 20 52 31 30  |,ROR#16.7.7. R10|
0000b7a0  2c 52 35 2c 52 38 2c 52  4f 52 23 38 3a 43 4d 50  |,R5,R8,ROR#8:CMP|
0000b7b0  20 52 31 30 2c 23 32 30  35 3a 80 45 51 20 52 38  | R10,#205:.EQ R8|
0000b7c0  2c 52 38 2c 52 31 31 2c  52 4f 52 23 32 34 0d 37  |,R8,R11,ROR#24.7|
0000b7d0  1e 2a 80 20 52 31 30 2c  52 35 2c 52 39 3a 43 4d  |.*. R10,R5,R9:CM|
0000b7e0  50 20 52 31 30 2c 23 31  36 32 3a 80 45 51 20 52  |P R10,#162:.EQ R|
0000b7f0  39 2c 52 39 2c 52 31 31  0d 37 28 37 80 20 52 31  |9,R9,R11.7(7. R1|
0000b800  30 2c 52 35 2c 52 39 2c  52 4f 52 23 38 3a 43 4d  |0,R5,R9,ROR#8:CM|
0000b810  50 20 52 31 30 2c 23 31  36 31 3a 80 45 51 20 52  |P R10,#161:.EQ R|
0000b820  39 2c 52 39 2c 52 31 31  2c 52 4f 52 23 32 34 0d  |9,R9,R11,ROR#24.|
0000b830  37 32 38 80 20 52 31 30  2c 52 35 2c 52 39 2c 52  |728. R10,R5,R9,R|
0000b840  4f 52 23 31 36 3a 43 4d  50 20 52 31 30 2c 23 31  |OR#16:CMP R10,#1|
0000b850  36 30 3a 80 45 51 20 52  39 2c 52 39 2c 52 31 31  |60:.EQ R9,R9,R11|
0000b860  2c 52 4f 52 23 31 36 0d  37 3c 14 53 54 4d 49 41  |,ROR#16.7<.STMIA|
0000b870  20 52 32 2c 7b 52 36 2d  52 39 7d 0d 37 46 0e 4d  | R2,{R6-R9}.7F.M|
0000b880  4f 56 20 50 43 2c 52 31  34 0d 37 50 1a 2e 65 67  |OV PC,R14.7P..eg|
0000b890  5f 73 68 6f 77 79 6f 75  77 69 74 68 6f 75 74 6d  |_showyouwithoutm|
0000b8a0  61 73 6b 0d 37 5a 13 a4  61 64 72 20 28 31 30 2c  |ask.7Z..adr (10,|
0000b8b0  62 67 64 61 74 29 0d 37  64 4c 4c 44 52 20 52 31  |bgdat).7dLLDR R1|
0000b8c0  2c 5b 52 31 32 2c 23 31  36 5d 3a 4d 4f 56 20 52  |,[R12,#16]:MOV R|
0000b8d0  32 2c 23 37 3c 3c 31 30  3a 80 20 52 30 2c 52 32  |2,#7<<10:. R0,R2|
0000b8e0  2c 52 33 2c 41 53 4c 23  31 30 3a 41 44 44 20 52  |,R3,ASL#10:ADD R|
0000b8f0  30 2c 52 31 2c 52 30 3a  4d 4f 56 20 52 31 2c 52  |0,R1,R0:MOV R1,R|
0000b900  31 31 0d 37 6e 16 4c 44  52 20 52 31 31 2c 5b 52  |11.7n.LDR R11,[R|
0000b910  31 30 2c 23 2d 31 32 5d  0d 37 78 cf 4c 44 4d 49  |10,#-12].7x.LDMI|
0000b920  41 20 52 30 21 2c 7b 52  33 2d 52 31 30 7d 3a 53  |A R0!,{R3-R10}:S|
0000b930  54 4d 49 41 20 52 31 2c  7b 52 33 2d 52 31 30 7d  |TMIA R1,{R3-R10}|
0000b940  3a 41 44 44 20 52 31 2c  52 31 2c 52 31 31 3a 4c  |:ADD R1,R1,R11:L|
0000b950  44 4d 49 41 20 52 30 21  2c 7b 52 33 2d 52 31 30  |DMIA R0!,{R3-R10|
0000b960  7d 3a 53 54 4d 49 41 20  52 31 2c 7b 52 33 2d 52  |}:STMIA R1,{R3-R|
0000b970  31 30 7d 3a 41 44 44 20  52 31 2c 52 31 2c 52 31  |10}:ADD R1,R1,R1|
0000b980  31 3a 4c 44 4d 49 41 20  52 30 21 2c 7b 52 33 2d  |1:LDMIA R0!,{R3-|
0000b990  52 31 30 7d 3a 53 54 4d  49 41 20 52 31 2c 7b 52  |R10}:STMIA R1,{R|
0000b9a0  33 2d 52 31 30 7d 3a 41  44 44 20 52 31 2c 52 31  |3-R10}:ADD R1,R1|
0000b9b0  2c 52 31 31 3a 4c 44 4d  49 41 20 52 30 21 2c 7b  |,R11:LDMIA R0!,{|
0000b9c0  52 33 2d 52 31 30 7d 3a  53 54 4d 49 41 20 52 31  |R3-R10}:STMIA R1|
0000b9d0  2c 7b 52 33 2d 52 31 30  7d 3a 41 44 44 20 52 31  |,{R3-R10}:ADD R1|
0000b9e0  2c 52 31 2c 52 31 31 0d  37 82 cf 4c 44 4d 49 41  |,R1,R11.7..LDMIA|
0000b9f0  20 52 30 21 2c 7b 52 33  2d 52 31 30 7d 3a 53 54  | R0!,{R3-R10}:ST|
0000ba00  4d 49 41 20 52 31 2c 7b  52 33 2d 52 31 30 7d 3a  |MIA R1,{R3-R10}:|
0000ba10  41 44 44 20 52 31 2c 52  31 2c 52 31 31 3a 4c 44  |ADD R1,R1,R11:LD|
0000ba20  4d 49 41 20 52 30 21 2c  7b 52 33 2d 52 31 30 7d  |MIA R0!,{R3-R10}|
0000ba30  3a 53 54 4d 49 41 20 52  31 2c 7b 52 33 2d 52 31  |:STMIA R1,{R3-R1|
0000ba40  30 7d 3a 41 44 44 20 52  31 2c 52 31 2c 52 31 31  |0}:ADD R1,R1,R11|
0000ba50  3a 4c 44 4d 49 41 20 52  30 21 2c 7b 52 33 2d 52  |:LDMIA R0!,{R3-R|
0000ba60  31 30 7d 3a 53 54 4d 49  41 20 52 31 2c 7b 52 33  |10}:STMIA R1,{R3|
0000ba70  2d 52 31 30 7d 3a 41 44  44 20 52 31 2c 52 31 2c  |-R10}:ADD R1,R1,|
0000ba80  52 31 31 3a 4c 44 4d 49  41 20 52 30 21 2c 7b 52  |R11:LDMIA R0!,{R|
0000ba90  33 2d 52 31 30 7d 3a 53  54 4d 49 41 20 52 31 2c  |3-R10}:STMIA R1,|
0000baa0  7b 52 33 2d 52 31 30 7d  3a 41 44 44 20 52 31 2c  |{R3-R10}:ADD R1,|
0000bab0  52 31 2c 52 31 31 0d 37  8c cf 4c 44 4d 49 41 20  |R1,R11.7..LDMIA |
0000bac0  52 30 21 2c 7b 52 33 2d  52 31 30 7d 3a 53 54 4d  |R0!,{R3-R10}:STM|
0000bad0  49 41 20 52 31 2c 7b 52  33 2d 52 31 30 7d 3a 41  |IA R1,{R3-R10}:A|
0000bae0  44 44 20 52 31 2c 52 31  2c 52 31 31 3a 4c 44 4d  |DD R1,R1,R11:LDM|
0000baf0  49 41 20 52 30 21 2c 7b  52 33 2d 52 31 30 7d 3a  |IA R0!,{R3-R10}:|
0000bb00  53 54 4d 49 41 20 52 31  2c 7b 52 33 2d 52 31 30  |STMIA R1,{R3-R10|
0000bb10  7d 3a 41 44 44 20 52 31  2c 52 31 2c 52 31 31 3a  |}:ADD R1,R1,R11:|
0000bb20  4c 44 4d 49 41 20 52 30  21 2c 7b 52 33 2d 52 31  |LDMIA R0!,{R3-R1|
0000bb30  30 7d 3a 53 54 4d 49 41  20 52 31 2c 7b 52 33 2d  |0}:STMIA R1,{R3-|
0000bb40  52 31 30 7d 3a 41 44 44  20 52 31 2c 52 31 2c 52  |R10}:ADD R1,R1,R|
0000bb50  31 31 3a 4c 44 4d 49 41  20 52 30 21 2c 7b 52 33  |11:LDMIA R0!,{R3|
0000bb60  2d 52 31 30 7d 3a 53 54  4d 49 41 20 52 31 2c 7b  |-R10}:STMIA R1,{|
0000bb70  52 33 2d 52 31 30 7d 3a  41 44 44 20 52 31 2c 52  |R3-R10}:ADD R1,R|
0000bb80  31 2c 52 31 31 0d 37 96  cf 4c 44 4d 49 41 20 52  |1,R11.7..LDMIA R|
0000bb90  30 21 2c 7b 52 33 2d 52  31 30 7d 3a 53 54 4d 49  |0!,{R3-R10}:STMI|
0000bba0  41 20 52 31 2c 7b 52 33  2d 52 31 30 7d 3a 41 44  |A R1,{R3-R10}:AD|
0000bbb0  44 20 52 31 2c 52 31 2c  52 31 31 3a 4c 44 4d 49  |D R1,R1,R11:LDMI|
0000bbc0  41 20 52 30 21 2c 7b 52  33 2d 52 31 30 7d 3a 53  |A R0!,{R3-R10}:S|
0000bbd0  54 4d 49 41 20 52 31 2c  7b 52 33 2d 52 31 30 7d  |TMIA R1,{R3-R10}|
0000bbe0  3a 41 44 44 20 52 31 2c  52 31 2c 52 31 31 3a 4c  |:ADD R1,R1,R11:L|
0000bbf0  44 4d 49 41 20 52 30 21  2c 7b 52 33 2d 52 31 30  |DMIA R0!,{R3-R10|
0000bc00  7d 3a 53 54 4d 49 41 20  52 31 2c 7b 52 33 2d 52  |}:STMIA R1,{R3-R|
0000bc10  31 30 7d 3a 41 44 44 20  52 31 2c 52 31 2c 52 31  |10}:ADD R1,R1,R1|
0000bc20  31 3a 4c 44 4d 49 41 20  52 30 21 2c 7b 52 33 2d  |1:LDMIA R0!,{R3-|
0000bc30  52 31 30 7d 3a 53 54 4d  49 41 20 52 31 2c 7b 52  |R10}:STMIA R1,{R|
0000bc40  33 2d 52 31 30 7d 3a 41  44 44 20 52 31 2c 52 31  |3-R10}:ADD R1,R1|
0000bc50  2c 52 31 31 0d 37 a0 cf  4c 44 4d 49 41 20 52 30  |,R11.7..LDMIA R0|
0000bc60  21 2c 7b 52 33 2d 52 31  30 7d 3a 53 54 4d 49 41  |!,{R3-R10}:STMIA|
0000bc70  20 52 31 2c 7b 52 33 2d  52 31 30 7d 3a 41 44 44  | R1,{R3-R10}:ADD|
0000bc80  20 52 31 2c 52 31 2c 52  31 31 3a 4c 44 4d 49 41  | R1,R1,R11:LDMIA|
0000bc90  20 52 30 21 2c 7b 52 33  2d 52 31 30 7d 3a 53 54  | R0!,{R3-R10}:ST|
0000bca0  4d 49 41 20 52 31 2c 7b  52 33 2d 52 31 30 7d 3a  |MIA R1,{R3-R10}:|
0000bcb0  41 44 44 20 52 31 2c 52  31 2c 52 31 31 3a 4c 44  |ADD R1,R1,R11:LD|
0000bcc0  4d 49 41 20 52 30 21 2c  7b 52 33 2d 52 31 30 7d  |MIA R0!,{R3-R10}|
0000bcd0  3a 53 54 4d 49 41 20 52  31 2c 7b 52 33 2d 52 31  |:STMIA R1,{R3-R1|
0000bce0  30 7d 3a 41 44 44 20 52  31 2c 52 31 2c 52 31 31  |0}:ADD R1,R1,R11|
0000bcf0  3a 4c 44 4d 49 41 20 52  30 21 2c 7b 52 33 2d 52  |:LDMIA R0!,{R3-R|
0000bd00  31 30 7d 3a 53 54 4d 49  41 20 52 31 2c 7b 52 33  |10}:STMIA R1,{R3|
0000bd10  2d 52 31 30 7d 3a 41 44  44 20 52 31 2c 52 31 2c  |-R10}:ADD R1,R1,|
0000bd20  52 31 31 0d 37 aa cf 4c  44 4d 49 41 20 52 30 21  |R11.7..LDMIA R0!|
0000bd30  2c 7b 52 33 2d 52 31 30  7d 3a 53 54 4d 49 41 20  |,{R3-R10}:STMIA |
0000bd40  52 31 2c 7b 52 33 2d 52  31 30 7d 3a 41 44 44 20  |R1,{R3-R10}:ADD |
0000bd50  52 31 2c 52 31 2c 52 31  31 3a 4c 44 4d 49 41 20  |R1,R1,R11:LDMIA |
0000bd60  52 30 21 2c 7b 52 33 2d  52 31 30 7d 3a 53 54 4d  |R0!,{R3-R10}:STM|
0000bd70  49 41 20 52 31 2c 7b 52  33 2d 52 31 30 7d 3a 41  |IA R1,{R3-R10}:A|
0000bd80  44 44 20 52 31 2c 52 31  2c 52 31 31 3a 4c 44 4d  |DD R1,R1,R11:LDM|
0000bd90  49 41 20 52 30 21 2c 7b  52 33 2d 52 31 30 7d 3a  |IA R0!,{R3-R10}:|
0000bda0  53 54 4d 49 41 20 52 31  2c 7b 52 33 2d 52 31 30  |STMIA R1,{R3-R10|
0000bdb0  7d 3a 41 44 44 20 52 31  2c 52 31 2c 52 31 31 3a  |}:ADD R1,R1,R11:|
0000bdc0  4c 44 4d 49 41 20 52 30  21 2c 7b 52 33 2d 52 31  |LDMIA R0!,{R3-R1|
0000bdd0  30 7d 3a 53 54 4d 49 41  20 52 31 2c 7b 52 33 2d  |0}:STMIA R1,{R3-|
0000bde0  52 31 30 7d 3a 41 44 44  20 52 31 2c 52 31 2c 52  |R10}:ADD R1,R1,R|
0000bdf0  31 31 0d 37 b4 cf 4c 44  4d 49 41 20 52 30 21 2c  |11.7..LDMIA R0!,|
0000be00  7b 52 33 2d 52 31 30 7d  3a 53 54 4d 49 41 20 52  |{R3-R10}:STMIA R|
0000be10  31 2c 7b 52 33 2d 52 31  30 7d 3a 41 44 44 20 52  |1,{R3-R10}:ADD R|
0000be20  31 2c 52 31 2c 52 31 31  3a 4c 44 4d 49 41 20 52  |1,R1,R11:LDMIA R|
0000be30  30 21 2c 7b 52 33 2d 52  31 30 7d 3a 53 54 4d 49  |0!,{R3-R10}:STMI|
0000be40  41 20 52 31 2c 7b 52 33  2d 52 31 30 7d 3a 41 44  |A R1,{R3-R10}:AD|
0000be50  44 20 52 31 2c 52 31 2c  52 31 31 3a 4c 44 4d 49  |D R1,R1,R11:LDMI|
0000be60  41 20 52 30 21 2c 7b 52  33 2d 52 31 30 7d 3a 53  |A R0!,{R3-R10}:S|
0000be70  54 4d 49 41 20 52 31 2c  7b 52 33 2d 52 31 30 7d  |TMIA R1,{R3-R10}|
0000be80  3a 41 44 44 20 52 31 2c  52 31 2c 52 31 31 3a 4c  |:ADD R1,R1,R11:L|
0000be90  44 4d 49 41 20 52 30 21  2c 7b 52 33 2d 52 31 30  |DMIA R0!,{R3-R10|
0000bea0  7d 3a 53 54 4d 49 41 20  52 31 2c 7b 52 33 2d 52  |}:STMIA R1,{R3-R|
0000beb0  31 30 7d 3a 41 44 44 20  52 31 2c 52 31 2c 52 31  |10}:ADD R1,R1,R1|
0000bec0  31 0d 37 be cf 4c 44 4d  49 41 20 52 30 21 2c 7b  |1.7..LDMIA R0!,{|
0000bed0  52 33 2d 52 31 30 7d 3a  53 54 4d 49 41 20 52 31  |R3-R10}:STMIA R1|
0000bee0  2c 7b 52 33 2d 52 31 30  7d 3a 41 44 44 20 52 31  |,{R3-R10}:ADD R1|
0000bef0  2c 52 31 2c 52 31 31 3a  4c 44 4d 49 41 20 52 30  |,R1,R11:LDMIA R0|
0000bf00  21 2c 7b 52 33 2d 52 31  30 7d 3a 53 54 4d 49 41  |!,{R3-R10}:STMIA|
0000bf10  20 52 31 2c 7b 52 33 2d  52 31 30 7d 3a 41 44 44  | R1,{R3-R10}:ADD|
0000bf20  20 52 31 2c 52 31 2c 52  31 31 3a 4c 44 4d 49 41  | R1,R1,R11:LDMIA|
0000bf30  20 52 30 21 2c 7b 52 33  2d 52 31 30 7d 3a 53 54  | R0!,{R3-R10}:ST|
0000bf40  4d 49 41 20 52 31 2c 7b  52 33 2d 52 31 30 7d 3a  |MIA R1,{R3-R10}:|
0000bf50  41 44 44 20 52 31 2c 52  31 2c 52 31 31 3a 4c 44  |ADD R1,R1,R11:LD|
0000bf60  4d 49 41 20 52 30 21 2c  7b 52 33 2d 52 31 30 7d  |MIA R0!,{R3-R10}|
0000bf70  3a 53 54 4d 49 41 20 52  31 2c 7b 52 33 2d 52 31  |:STMIA R1,{R3-R1|
0000bf80  30 7d 3a 41 44 44 20 52  31 2c 52 31 2c 52 31 31  |0}:ADD R1,R1,R11|
0000bf90  0d 37 c8 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 37  |.7..MOV PC,R14.7|
0000bfa0  d2 31 2e 65 67 5f 77 69  70 65 61 63 72 20 41 44  |.1.eg_wipeacr AD|
0000bfb0  44 20 52 31 30 2c 52 31  32 2c 23 32 38 3a 4c 44  |D R10,R12,#28:LD|
0000bfc0  4d 49 41 20 52 31 30 2c  7b 52 32 2d 52 39 7d 0d  |MIA R10,{R2-R9}.|
0000bfd0  37 dc 49 53 54 4d 49 41  20 52 31 31 2c 7b 52 32  |7.ISTMIA R11,{R2|
0000bfe0  2d 52 39 7d 3a 41 44 44  20 52 31 31 2c 52 31 31  |-R9}:ADD R11,R11|
0000bff0  2c 23 33 32 30 3a 53 54  4d 49 41 20 52 31 31 2c  |,#320:STMIA R11,|
0000c000  7b 52 32 2d 52 39 7d 3a  41 44 44 20 52 31 31 2c  |{R2-R9}:ADD R11,|
0000c010  52 31 31 2c 23 33 32 30  0d 37 e6 43 53 54 4d 49  |R11,#320.7.CSTMI|
0000c020  41 20 52 31 31 2c 7b 52  32 2d 52 39 7d 3a 41 44  |A R11,{R2-R9}:AD|
0000c030  44 20 52 31 31 2c 52 31  31 2c 23 33 32 30 3a 53  |D R11,R11,#320:S|
0000c040  54 4d 49 41 20 52 31 31  2c 7b 52 32 2d 52 39 7d  |TMIA R11,{R2-R9}|
0000c050  3a 4d 4f 56 20 50 43 2c  52 31 34 0d 37 f0 0d 2e  |:MOV PC,R14.7...|
0000c060  65 67 5f 73 70 72 77 6c  0d 37 fa 34 4c 44 52 20  |eg_sprwl.7.4LDR |
0000c070  52 33 2c 5b 52 31 32 2c  23 31 30 34 5d 3a 41 44  |R3,[R12,#104]:AD|
0000c080  44 20 52 31 2c 52 33 2c  52 32 2c 41 53 4c 23 31  |D R1,R3,R2,ASL#1|
0000c090  30 3a 4d 4f 56 20 52 32  2c 23 31 36 0d 38 04 61  |0:MOV R2,#16.8.a|
0000c0a0  2e 6c 73 70 77 61 20 4c  44 4d 49 41 20 52 31 21  |.lspwa LDMIA R1!|
0000c0b0  2c 7b 52 33 2d 52 31 30  7d 3a 53 54 4d 49 41 20  |,{R3-R10}:STMIA |
0000c0c0  52 30 2c 7b 52 33 2d 52  31 30 7d 3a 41 44 44 20  |R0,{R3-R10}:ADD |
0000c0d0  52 30 2c 52 30 2c 23 33  32 30 3a 53 55 42 53 20  |R0,R0,#320:SUBS |
0000c0e0  52 32 2c 52 32 2c 23 31  3a 42 4e 45 20 6c 73 70  |R2,R2,#1:BNE lsp|
0000c0f0  77 61 3a 4d 4f 56 20 50  43 2c 52 31 34 0d 38 0e  |wa:MOV PC,R14.8.|
0000c100  19 2e 65 67 5f 77 69 70  65 64 77 6e 20 4d 4f 56  |..eg_wipedwn MOV|
0000c110  20 52 32 2c 23 30 0d 38  18 dc 53 54 52 20 52 32  | R2,#0.8..STR R2|
0000c120  2c 5b 52 31 31 5d 2c 23  33 36 38 3a 53 54 52 20  |,[R11],#368:STR |
0000c130  52 32 2c 5b 52 31 31 5d  2c 23 33 36 38 3a 53 54  |R2,[R11],#368:ST|
0000c140  52 20 52 32 2c 5b 52 31  31 5d 2c 23 33 36 38 3a  |R R2,[R11],#368:|
0000c150  53 54 52 20 52 32 2c 5b  52 31 31 5d 2c 23 33 36  |STR R2,[R11],#36|
0000c160  38 3a 53 54 52 20 52 32  2c 5b 52 31 31 5d 2c 23  |8:STR R2,[R11],#|
0000c170  33 36 38 3a 53 54 52 20  52 32 2c 5b 52 31 31 5d  |368:STR R2,[R11]|
0000c180  2c 23 33 36 38 3a 53 54  52 20 52 32 2c 5b 52 31  |,#368:STR R2,[R1|
0000c190  31 5d 2c 23 33 36 38 3a  53 54 52 20 52 32 2c 5b  |1],#368:STR R2,[|
0000c1a0  52 31 31 5d 2c 23 33 36  38 3a 53 54 52 20 52 32  |R11],#368:STR R2|
0000c1b0  2c 5b 52 31 31 5d 2c 23  33 36 38 3a 53 54 52 20  |,[R11],#368:STR |
0000c1c0  52 32 2c 5b 52 31 31 5d  2c 23 33 36 38 3a 53 54  |R2,[R11],#368:ST|
0000c1d0  52 20 52 32 2c 5b 52 31  31 5d 2c 23 33 36 38 3a  |R R2,[R11],#368:|
0000c1e0  53 54 52 20 52 32 2c 5b  52 31 31 5d 2c 23 33 36  |STR R2,[R11],#36|
0000c1f0  38 3a 0d 38 22 dc 53 54  52 20 52 32 2c 5b 52 31  |8:.8".STR R2,[R1|
0000c200  31 5d 2c 23 33 36 38 3a  53 54 52 20 52 32 2c 5b  |1],#368:STR R2,[|
0000c210  52 31 31 5d 2c 23 33 36  38 3a 53 54 52 20 52 32  |R11],#368:STR R2|
0000c220  2c 5b 52 31 31 5d 2c 23  33 36 38 3a 53 54 52 20  |,[R11],#368:STR |
0000c230  52 32 2c 5b 52 31 31 5d  2c 23 33 36 38 3a 53 54  |R2,[R11],#368:ST|
0000c240  52 20 52 32 2c 5b 52 31  31 5d 2c 23 33 36 38 3a  |R R2,[R11],#368:|
0000c250  53 54 52 20 52 32 2c 5b  52 31 31 5d 2c 23 33 36  |STR R2,[R11],#36|
0000c260  38 3a 53 54 52 20 52 32  2c 5b 52 31 31 5d 2c 23  |8:STR R2,[R11],#|
0000c270  33 36 38 3a 53 54 52 20  52 32 2c 5b 52 31 31 5d  |368:STR R2,[R11]|
0000c280  2c 23 33 36 38 3a 53 54  52 20 52 32 2c 5b 52 31  |,#368:STR R2,[R1|
0000c290  31 5d 2c 23 33 36 38 3a  53 54 52 20 52 32 2c 5b  |1],#368:STR R2,[|
0000c2a0  52 31 31 5d 2c 23 33 36  38 3a 53 54 52 20 52 32  |R11],#368:STR R2|
0000c2b0  2c 5b 52 31 31 5d 2c 23  33 36 38 3a 53 54 52 20  |,[R11],#368:STR |
0000c2c0  52 32 2c 5b 52 31 31 5d  2c 23 33 36 38 3a 0d 38  |R2,[R11],#368:.8|
0000c2d0  2c b0 53 54 52 20 52 32  2c 5b 52 31 31 5d 2c 23  |,.STR R2,[R11],#|
0000c2e0  33 36 38 3a 53 54 52 20  52 32 2c 5b 52 31 31 5d  |368:STR R2,[R11]|
0000c2f0  2c 23 33 36 38 3a 53 54  52 20 52 32 2c 5b 52 31  |,#368:STR R2,[R1|
0000c300  31 5d 2c 23 33 36 38 3a  53 54 52 20 52 32 2c 5b  |1],#368:STR R2,[|
0000c310  52 31 31 5d 2c 23 33 36  38 3a 53 54 52 20 52 32  |R11],#368:STR R2|
0000c320  2c 5b 52 31 31 5d 2c 23  33 36 38 3a 53 54 52 20  |,[R11],#368:STR |
0000c330  52 32 2c 5b 52 31 31 5d  2c 23 33 36 38 3a 53 54  |R2,[R11],#368:ST|
0000c340  52 20 52 32 2c 5b 52 31  31 5d 2c 23 33 36 38 3a  |R R2,[R11],#368:|
0000c350  53 54 52 20 52 32 2c 5b  52 31 31 5d 2c 23 33 36  |STR R2,[R11],#36|
0000c360  38 3a 53 54 52 20 52 32  2c 5b 52 31 31 5d 2c 23  |8:STR R2,[R11],#|
0000c370  33 36 38 3a 4d 4f 56 20  50 43 2c 52 31 34 0d 38  |368:MOV PC,R14.8|
0000c380  36 0d 2e 65 67 5f 73 70  72 77 68 0d 38 40 43 4c  |6..eg_sprwh.8@CL|
0000c390  44 52 20 52 33 2c 5b 52  31 32 2c 23 31 30 34 5d  |DR R3,[R12,#104]|
0000c3a0  3a 41 44 44 20 52 31 2c  52 33 2c 52 32 2c 41 53  |:ADD R1,R3,R2,AS|
0000c3b0  4c 23 31 30 3a 41 44 44  20 52 31 2c 52 31 2c 23  |L#10:ADD R1,R1,#|
0000c3c0  35 31 32 3a 4d 4f 56 20  52 32 2c 23 33 32 0d 38  |512:MOV R2,#32.8|
0000c3d0  4a 5f 2e 6c 73 70 77 64  20 4c 44 4d 49 41 20 52  |J_.lspwd LDMIA R|
0000c3e0  31 21 2c 7b 52 33 2d 52  36 7d 3a 53 54 4d 49 41  |1!,{R3-R6}:STMIA|
0000c3f0  20 52 30 2c 7b 52 33 2d  52 36 7d 3a 41 44 44 20  | R0,{R3-R6}:ADD |
0000c400  52 30 2c 52 30 2c 23 33  36 38 3a 53 55 42 53 20  |R0,R0,#368:SUBS |
0000c410  52 32 2c 52 32 2c 23 31  3a 42 4e 45 20 6c 73 70  |R2,R2,#1:BNE lsp|
0000c420  77 64 3a 4d 4f 56 20 50  43 2c 52 31 34 0d 38 54  |wd:MOV PC,R14.8T|
0000c430  16 2e 62 6f 74 74 79 20  45 51 55 44 20 62 73 70  |..botty EQUD bsp|
0000c440  61 75 25 0d 38 5e 33 2e  70 61 75 73 65 70 72 69  |au%.8^3.pausepri|
0000c450  6e 74 20 41 44 52 20 52  31 2c 62 6f 74 74 79 3a  |nt ADR R1,botty:|
0000c460  4c 44 52 20 52 31 2c 5b  52 31 5d 3a 4d 4f 56 20  |LDR R1,[R1]:MOV |
0000c470  52 32 2c 23 36 34 0d 38  68 c8 2e 6c 70 61 70 72  |R2,#64.8h..lpapr|
0000c480  20 4c 44 4d 49 41 20 52  31 21 2c 7b 52 33 2d 52  | LDMIA R1!,{R3-R|
0000c490  31 32 7d 3a 53 54 4d 49  41 20 52 30 21 2c 7b 52  |12}:STMIA R0!,{R|
0000c4a0  33 2d 52 31 32 7d 3a 4c  44 4d 49 41 20 52 31 21  |3-R12}:LDMIA R1!|
0000c4b0  2c 7b 52 33 2d 52 31 32  7d 3a 53 54 4d 49 41 20  |,{R3-R12}:STMIA |
0000c4c0  52 30 21 2c 7b 52 33 2d  52 31 32 7d 3a 4c 44 4d  |R0!,{R3-R12}:LDM|
0000c4d0  49 41 20 52 31 21 2c 7b  52 33 2d 52 31 32 7d 3a  |IA R1!,{R3-R12}:|
0000c4e0  53 54 4d 49 41 20 52 30  21 2c 7b 52 33 2d 52 31  |STMIA R0!,{R3-R1|
0000c4f0  32 7d 3a 4c 44 4d 49 41  20 52 31 21 2c 7b 52 33  |2}:LDMIA R1!,{R3|
0000c500  2d 52 31 32 7d 3a 53 54  4d 49 41 20 52 30 21 2c  |-R12}:STMIA R0!,|
0000c510  7b 52 33 2d 52 31 32 7d  3a 4c 44 4d 49 41 20 52  |{R3-R12}:LDMIA R|
0000c520  31 21 2c 7b 52 33 2d 52  31 32 7d 3a 53 54 4d 49  |1!,{R3-R12}:STMI|
0000c530  41 20 52 30 21 2c 7b 52  33 2d 52 31 32 7d 0d 38  |A R0!,{R3-R12}.8|
0000c540  72 c1 4c 44 4d 49 41 20  52 31 21 2c 7b 52 33 2d  |r.LDMIA R1!,{R3-|
0000c550  52 31 32 7d 3a 53 54 4d  49 41 20 52 30 21 2c 7b  |R12}:STMIA R0!,{|
0000c560  52 33 2d 52 31 32 7d 3a  4c 44 4d 49 41 20 52 31  |R3-R12}:LDMIA R1|
0000c570  21 2c 7b 52 33 2d 52 31  32 7d 3a 53 54 4d 49 41  |!,{R3-R12}:STMIA|
0000c580  20 52 30 21 2c 7b 52 33  2d 52 31 32 7d 3a 4c 44  | R0!,{R3-R12}:LD|
0000c590  4d 49 41 20 52 31 21 2c  7b 52 33 2d 52 31 32 7d  |MIA R1!,{R3-R12}|
0000c5a0  3a 53 54 4d 49 41 20 52  30 21 2c 7b 52 33 2d 52  |:STMIA R0!,{R3-R|
0000c5b0  31 32 7d 3a 4c 44 4d 49  41 20 52 31 21 2c 7b 52  |12}:LDMIA R1!,{R|
0000c5c0  33 2d 52 31 32 7d 3a 53  54 4d 49 41 20 52 30 21  |3-R12}:STMIA R0!|
0000c5d0  2c 7b 52 33 2d 52 31 32  7d 3a 4c 44 4d 49 41 20  |,{R3-R12}:LDMIA |
0000c5e0  52 31 21 2c 7b 52 33 2d  52 31 32 7d 3a 53 54 4d  |R1!,{R3-R12}:STM|
0000c5f0  49 41 20 52 30 21 2c 7b  52 33 2d 52 31 32 7d 0d  |IA R0!,{R3-R12}.|
0000c600  38 7c 4e 4c 44 4d 49 41  20 52 31 21 2c 7b 52 33  |8|NLDMIA R1!,{R3|
0000c610  2d 52 37 7d 3a 53 54 4d  49 41 20 52 30 21 2c 7b  |-R7}:STMIA R0!,{|
0000c620  52 33 2d 52 37 7d 3a 41  44 44 20 52 30 2c 52 30  |R3-R7}:ADD R0,R0|
0000c630  2c 23 32 32 30 3a 53 55  42 53 20 52 32 2c 52 32  |,#220:SUBS R2,R2|
0000c640  2c 23 31 3a 42 4e 45 20  6c 70 61 70 72 0d 38 86  |,#1:BNE lpapr.8.|
0000c650  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 38 90 48 2e  |.MOV PC,R14.8.H.|
0000c660  70 61 75 73 65 77 69 70  65 20 a4 73 61 64 72 28  |pausewipe .sadr(|
0000c670  31 2c 62 67 61 6d 65 29  3a 41 44 44 20 52 31 2c  |1,bgame):ADD R1,|
0000c680  52 31 2c 23 32 38 3a 4c  44 4d 49 41 20 52 31 2c  |R1,#28:LDMIA R1,|
0000c690  7b 52 32 2d 52 31 32 7d  3a 4d 4f 56 20 52 31 2c  |{R2-R12}:MOV R1,|
0000c6a0  23 36 34 0d 38 9a c7 2e  6c 70 61 77 70 20 53 54  |#64.8...lpawp ST|
0000c6b0  4d 49 41 20 52 30 21 2c  7b 52 32 2d 52 31 32 7d  |MIA R0!,{R2-R12}|
0000c6c0  3a 53 54 4d 49 41 20 52  30 21 2c 7b 52 32 2d 52  |:STMIA R0!,{R2-R|
0000c6d0  31 32 7d 3a 53 54 4d 49  41 20 52 30 21 2c 7b 52  |12}:STMIA R0!,{R|
0000c6e0  32 2d 52 31 32 7d 3a 53  54 4d 49 41 20 52 30 21  |2-R12}:STMIA R0!|
0000c6f0  2c 7b 52 32 2d 52 31 32  7d 3a 53 54 4d 49 41 20  |,{R2-R12}:STMIA |
0000c700  52 30 21 2c 7b 52 32 2d  52 31 32 7d 3a 53 54 4d  |R0!,{R2-R12}:STM|
0000c710  49 41 20 52 30 21 2c 7b  52 32 2d 52 31 32 7d 3a  |IA R0!,{R2-R12}:|
0000c720  53 54 4d 49 41 20 52 30  21 2c 7b 52 32 2d 52 31  |STMIA R0!,{R2-R1|
0000c730  32 7d 3a 53 54 4d 49 41  20 52 30 21 2c 7b 52 32  |2}:STMIA R0!,{R2|
0000c740  2d 52 31 32 7d 3a 53 54  4d 49 41 20 52 30 21 2c  |-R12}:STMIA R0!,|
0000c750  7b 52 32 2d 52 31 32 7d  3a 53 54 4d 49 41 20 52  |{R2-R12}:STMIA R|
0000c760  30 21 2c 7b 52 32 2d 52  37 7d 0d 38 a4 2a 41 44  |0!,{R2-R7}.8.*AD|
0000c770  44 20 52 30 2c 52 30 2c  23 32 32 30 3a 53 55 42  |D R0,R0,#220:SUB|
0000c780  53 20 52 31 2c 52 31 2c  23 31 3a 42 4e 45 20 6c  |S R1,R1,#1:BNE l|
0000c790  70 61 77 70 0d 38 ae 0e  4d 4f 56 20 50 43 2c 52  |pawp.8..MOV PC,R|
0000c7a0  31 34 0d 38 b8 05 3a 0d  38 c2 07 5d 3a ed 0d 38  |14.8..:.8..]:..8|
0000c7b0  cc 05 e1 0d 38 d6 05 3a  0d 38 e0 0c dd f2 65 64  |....8..:.8....ed|
0000c7c0  69 74 6f 72 0d 38 ea 09  e6 30 c8 9c 30 0d 38 f4  |itor.8...0..0.8.|
0000c7d0  19 76 6c 65 76 6c 25 3d  31 3a 41 25 3d 30 3a d6  |.vlevl%=1:A%=0:.|
0000c7e0  20 65 66 61 64 65 0d 38  fe 1c e3 20 6c 6c 64 77  | efade.8... lldw|
0000c7f0  6e 25 3d 31 30 32 34 20  b8 20 37 36 38 20 88 20  |n%=1024 . 768 . |
0000c800  2d 34 0d 39 08 36 c8 99  20 22 4f 53 5f 53 70 72  |-4.9.6.. "OS_Spr|
0000c810  69 74 65 4f 70 22 2c 33  34 2b 32 35 36 2c 62 73  |iteOp",34+256,bs|
0000c820  70 72 69 25 2c 22 65 64  69 74 6f 72 22 2c 30 2c  |pri%,"editor",0,|
0000c830  6c 6c 64 77 6e 25 2c 30  0d 39 12 08 c8 96 3a ed  |lldwn%,0.9....:.|
0000c840  0d 39 1c 28 f2 70 72 69  6e 74 28 22 44 4f 20 59  |.9.(.print("DO Y|
0000c850  4f 55 20 57 41 4e 54 20  54 4f 20 45 44 49 54 20  |OU WANT TO EDIT |
0000c860  22 2c 30 2c 35 30 30 29  0d 39 26 28 f2 70 72 69  |",0,500).9&(.pri|
0000c870  6e 74 28 22 54 48 45 20  45 58 49 53 54 49 4e 47  |nt("THE EXISTING|
0000c880  20 4c 45 56 45 4c 53 20  22 2c 30 2c 34 33 36 29  | LEVELS ",0,436)|
0000c890  0d 39 30 2a f2 70 72 69  6e 74 28 22 2d 50 52 45  |.90*.print("-PRE|
0000c8a0  53 53 20 22 22 4f 22 22  2d 20 4f 52 20 50 52 45  |SS ""O""- OR PRE|
0000c8b0  53 53 22 2c 30 2c 33 37  32 29 0d 39 3a 2a f2 70  |SS",0,372).9:*.p|
0000c8c0  72 69 6e 74 28 22 22 22  4e 22 22 20 54 4f 20 43  |rint("""N"" TO C|
0000c8d0  52 45 41 54 45 20 4e 45  57 20 20 20 22 2c 30 2c  |REATE NEW   ",0,|
0000c8e0  33 30 38 29 0d 39 44 30  f2 70 72 69 6e 74 28 22  |308).9D0.print("|
0000c8f0  53 4f 4d 45 20 4e 45 57  20 4c 45 56 45 4c 53 2e  |SOME NEW LEVELS.|
0000c900  20 20 20 20 22 2c 30 2c  32 34 34 29 3a 2a 46 58  |    ",0,244):*FX|
0000c910  32 31 2c 30 0d 39 4e 05  f5 0d 39 58 13 63 6b 65  |21,0.9N...9X.cke|
0000c920  79 70 24 3d a4 63 61 70  73 28 be 29 0d 39 62 1d  |yp$=.caps(.).9b.|
0000c930  fd 20 63 6b 65 79 70 24  3d 22 4f 22 20 84 20 63  |. ckeyp$="O" . c|
0000c940  6b 65 79 70 24 3d 22 4e  22 0d 39 6c 37 e7 20 63  |keyp$="N".9l7. c|
0000c950  6b 65 79 70 24 3d 22 4e  22 20 8c 20 f2 6e 65 77  |keyp$="N" . .new|
0000c960  6c 65 76 65 6c 73 20 8b  20 e7 20 a4 65 64 69 74  |levels . . .edit|
0000c970  63 6f 64 65 20 8c 20 d6  20 65 66 61 64 65 3a e1  |code . . efade:.|
0000c980  0d 39 76 11 e3 20 6c 73  6f 66 66 25 3d 31 b8 37  |.9v.. lsoff%=1.7|
0000c990  33 0d 39 80 1a c8 93 20  30 2c 30 2c 31 32 38 30  |3.9.... 0,0,1280|
0000c9a0  2c 35 38 30 20 b8 20 30  2c 2d 38 0d 39 8a 08 c8  |,580 . 0,-8.9...|
0000c9b0  96 3a ed 0d 39 94 1f f2  70 72 69 6e 74 28 22 48  |.:..9...print("H|
0000c9c0  45 4c 50 20 50 41 47 45  22 2c 36 30 38 2c 39 38  |ELP PAGE",608,98|
0000c9d0  30 29 0d 39 9e 1b e3 20  6c 6c 61 63 72 25 3d 2d  |0).9... llacr%=-|
0000c9e0  31 38 34 20 b8 20 31 38  30 20 88 20 34 0d 39 a8  |184 . 180 . 4.9.|
0000c9f0  37 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |7.. "OS_SpriteOp|
0000ca00  22 2c 33 34 2b 32 35 36  2c 62 73 70 72 69 25 2c  |",34+256,bspri%,|
0000ca10  22 6d 6f 75 73 65 22 2c  6c 6c 61 63 72 25 2c 33  |"mouse",llacr%,3|
0000ca20  34 36 2c 30 0d 39 b2 08  c8 96 3a ed 0d 39 bc 19  |46,0.9....:..9..|
0000ca30  e3 20 6c 6c 61 63 72 25  3d 2d 31 38 34 20 b8 20  |. llacr%=-184 . |
0000ca40  30 20 88 20 34 0d 39 c6  36 c8 99 20 22 4f 53 5f  |0 . 4.9.6.. "OS_|
0000ca50  53 70 72 69 74 65 4f 70  22 2c 33 34 2b 32 35 36  |SpriteOp",34+256|
0000ca60  2c 62 73 70 72 69 25 2c  22 6d 6f 75 73 65 22 2c  |,bspri%,"mouse",|
0000ca70  6c 6c 61 63 72 25 2c 33  32 2c 30 0d 39 d0 08 c8  |llacr%,32,0.9...|
0000ca80  96 3a ed 0d 39 da 20 f2  70 72 69 6e 74 28 22 57  |.:..9. .print("W|
0000ca90  48 49 4c 45 20 49 4e 20  41 22 2c 34 37 38 2c 37  |HILE IN A",478,7|
0000caa0  30 36 29 0d 39 e4 20 f2  70 72 69 6e 74 28 22 57  |06).9. .print("W|
0000cab0  41 4c 4c 20 53 50 41 43  45 22 2c 34 37 38 2c 36  |ALL SPACE",478,6|
0000cac0  34 34 29 0d 39 ee 21 f2  70 72 69 6e 74 28 22 49  |44).9.!.print("I|
0000cad0  4e 20 41 20 53 51 55 41  52 45 22 2c 34 36 32 2c  |N A SQUARE",462,|
0000cae0  32 38 36 29 0d 39 f8 22  f2 70 72 69 6e 74 28 22  |286).9.".print("|
0000caf0  50 4c 41 43 45 20 41 20  57 41 4c 4c 22 2c 33 37  |PLACE A WALL",37|
0000cb00  36 2c 35 30 36 29 0d 3a  02 24 f2 70 72 69 6e 74  |6,506).:.$.print|
0000cb10  28 22 49 4d 4d 4f 56 41  42 4c 45 20 57 41 4c 4c  |("IMMOVABLE WALL|
0000cb20  22 2c 33 37 36 2c 34 34  32 29 0d 3a 0c 21 f2 70  |",376,442).:.!.p|
0000cb30  72 69 6e 74 28 22 52 45  4d 4f 56 45 20 57 41 4c  |rint("REMOVE WAL|
0000cb40  4c 22 2c 33 37 36 2c 33  37 38 29 0d 3a 16 22 f2  |L",376,378).:.".|
0000cb50  70 72 69 6e 74 28 22 50  4c 41 43 45 20 4f 42 4a  |print("PLACE OBJ|
0000cb60  45 43 54 22 2c 31 39 32  2c 31 39 32 29 0d 3a 20  |ECT",192,192).: |
0000cb70  1d f2 70 72 69 6e 74 28  22 44 4f 20 4e 4f 57 54  |..print("DO NOWT|
0000cb80  22 2c 31 39 32 2c 31 32  38 29 0d 3a 2a 22 f2 70  |",192,128).:*".p|
0000cb90  72 69 6e 74 28 22 52 45  4d 4f 56 45 20 4f 42 4a  |rint("REMOVE OBJ|
0000cba0  45 43 54 22 2c 31 39 32  2c 36 34 29 0d 3a 34 21  |ECT",192,64).:4!|
0000cbb0  f2 70 72 69 6e 74 28 22  43 4c 49 43 4b 20 4d 4f  |.print("CLICK MO|
0000cbc0  55 53 45 22 2c 35 34 30  2c 39 30 30 29 0d 3a 3e  |USE",540,900).:>|
0000cbd0  29 f2 70 72 69 6e 74 28  22 54 4f 20 43 4f 4e 54  |).print("TO CONT|
0000cbe0  49 4e 55 45 22 2c 35 34  30 2c 38 33 36 29 3a 2a  |INUE",540,836):*|
0000cbf0  46 58 32 31 2c 39 0d 3a  48 05 f5 0d 3a 52 1b c8  |FX21,9.:H...:R..|
0000cc00  97 20 78 64 75 6d 79 25  2c 78 64 75 6d 79 25 2c  |. xdumy%,xdumy%,|
0000cc10  78 62 75 74 74 25 0d 3a  5c 0e fd 20 78 62 75 74  |xbutt%.:\.. xbut|
0000cc20  74 25 3e 30 0d 3a 66 05  f5 0d 3a 70 0b d6 20 65  |t%>0.:f...:p.. e|
0000cc30  66 61 64 65 0d 3a 7a 10  f2 70 72 69 6e 74 6d 61  |fade.:z..printma|
0000cc40  70 28 b9 29 0d 3a 84 1a  c8 97 20 ee 3a 76 70 74  |p(.).:.... .:vpt|
0000cc50  72 6e 25 3d 31 3a f2 6e  65 78 74 70 74 72 0d 3a  |rn%=1:.nextptr.:|
0000cc60  8e 34 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.4.. "OS_SpriteO|
0000cc70  70 22 2c 32 35 36 2b 33  34 2c 62 73 70 72 69 25  |p",256+34,bspri%|
0000cc80  2c 22 65 64 69 74 62 61  72 22 2c 30 2c 39 36 30  |,"editbar",0,960|
0000cc90  2c 30 0d 3a 98 39 c8 99  20 22 4f 53 5f 53 70 72  |,0.:.9.. "OS_Spr|
0000cca0  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 62 73  |iteOp",256+34,bs|
0000ccb0  70 72 69 25 2c 22 65 64  69 74 6e 75 6d 62 65 72  |pri%,"editnumber|
0000ccc0  73 6e 22 2c 30 2c 33 32  30 2c 30 0d 3a a2 38 c8  |sn",0,320,0.:.8.|
0000ccd0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
0000cce0  32 35 36 2b 33 34 2c 62  73 70 72 69 25 2c 22 65  |256+34,bspri%,"e|
0000ccf0  64 69 74 6f 62 6a 65 63  74 73 22 2c 30 2c 35 30  |ditobjects",0,50|
0000cd00  38 2c 30 0d 3a ac 2d f2  70 72 69 6e 74 28 c3 28  |8,0.:.-.print(.(|
0000cd10  62 6c 65 76 73 25 3f 28  31 33 35 38 33 2b 76 6c  |blevs%?(13583+vl|
0000cd20  65 76 6c 25 29 29 2c 32  30 34 2c 31 30 31 36 29  |evl%)),204,1016)|
0000cd30  0d 3a b6 1e f2 70 72 69  6e 74 28 c3 28 76 6c 65  |.:...print(.(vle|
0000cd40  76 6c 25 29 2c 36 34 30  2c 31 30 31 36 29 0d 3a  |vl%),640,1016).:|
0000cd50  c0 1f 62 6f 78 75 70 25  3d 30 3a 62 6f 78 64 6e  |..boxup%=0:boxdn|
0000cd60  25 3d 2d 31 3a 62 6f 78  61 6e 25 3d 31 0d 3a ca  |%=-1:boxan%=1.:.|
0000cd70  26 f2 61 6e 69 6d 62 6f  78 3a 66 65 78 69 74 25  |&.animbox:fexit%|
0000cd80  3d a3 3a 66 64 72 61 77  25 3d b9 3a 2a 46 58 32  |=.:fdraw%=.:*FX2|
0000cd90  31 2c 39 0d 3a d4 05 f5  0d 3a de 1b c8 97 20 6d  |1,9.:....:.... m|
0000cda0  6f 75 73 78 25 2c 6d 6f  75 73 79 25 2c 6d 6f 75  |ousx%,mousy%,mou|
0000cdb0  73 62 25 0d 3a e8 10 e7  20 6d 6f 75 73 62 25 3e  |sb%.:... mousb%>|
0000cdc0  30 20 8c 0d 3a f2 34 e7  20 6d 6f 75 73 78 25 3c  |0 ..:.4. mousx%<|
0000cdd0  31 38 30 20 80 20 6d 6f  75 73 79 25 3e 35 30 38  |180 . mousy%>508|
0000cde0  20 80 20 6d 6f 75 73 79  25 3c 36 30 30 20 8c 20  | . mousy%<600 . |
0000cdf0  f2 73 65 6c 6f 62 6a 0d  3a fc 3f e7 20 6d 6f 75  |.selobj.:.?. mou|
0000ce00  73 78 25 3c 31 38 30 20  80 20 6d 6f 75 73 79 25  |sx%<180 . mousy%|
0000ce10  3c 35 30 30 20 80 20 6d  6f 75 73 79 25 3e 33 32  |<500 . mousy%>32|
0000ce20  30 20 80 20 62 6f 78 64  6e 25 3e 2d 31 20 8c 20  |0 . boxdn%>-1 . |
0000ce30  f2 73 65 6c 6e 6f 0d 3b  06 1b e7 20 6d 6f 75 73  |.selno.;... mous|
0000ce40  79 25 3e 39 36 30 20 8c  20 f2 62 61 72 63 6c 69  |y%>960 . .barcli|
0000ce50  78 0d 3b 10 42 e7 20 6d  6f 75 73 78 25 3e 31 37  |x.;.B. mousx%>17|
0000ce60  36 20 80 20 6d 6f 75 73  79 25 3e 31 36 20 80 20  |6 . mousy%>16 . |
0000ce70  6d 6f 75 73 78 25 3c 31  31 30 30 20 80 20 6d 6f  |mousx%<1100 . mo|
0000ce80  75 73 79 25 3c 39 34 30  20 8c 20 f2 6c 65 76 63  |usy%<940 . .levc|
0000ce90  6c 69 78 0d 3b 1a 05 cd  0d 3b 24 22 e7 20 ac 20  |lix.;....;$". . |
0000cea0  66 65 78 69 74 25 20 8c  20 f2 61 6e 69 6d 62 6f  |fexit% . .animbo|
0000ceb0  78 3a f2 6e 65 78 74 70  74 72 0d 3b 2e 06 c8 96  |x:.nextptr.;....|
0000cec0  0d 3b 38 0c fd 20 66 65  78 69 74 25 0d 3b 42 0c  |.;8.. fexit%.;B.|
0000ced0  fd 20 66 64 72 61 77 25  0d 3b 4c 08 c8 97 20 87  |. fdraw%.;L... .|
0000cee0  0d 3b 56 0b d6 20 65 66  61 64 65 0d 3b 60 05 e1  |.;V.. efade.;`..|
0000cef0  0d 3b 6a 05 3a 0d 3b 74  0d dd f2 62 61 72 63 6c  |.;j.:.;t...barcl|
0000cf00  69 78 0d 3b 7e 2a e7 20  6d 6f 75 73 78 25 3e 31  |ix.;~*. mousx%>1|
0000cf10  33 32 20 80 20 6d 6f 75  73 78 25 3c 31 38 34 20  |32 . mousx%<184 |
0000cf20  8c 20 f2 74 69 6d 65 5f  75 70 3a e1 0d 3b 88 2c  |. .time_up:..;.,|
0000cf30  e7 20 6d 6f 75 73 78 25  3e 33 39 36 20 80 20 6d  |. mousx%>396 . m|
0000cf40  6f 75 73 78 25 3c 34 35  32 20 8c 20 f2 74 69 6d  |ousx%<452 . .tim|
0000cf50  65 5f 64 6f 77 6e 3a e1  0d 3b 92 2b e7 20 6d 6f  |e_down:..;.+. mo|
0000cf60  75 73 78 25 3e 35 37 36  20 80 20 6d 6f 75 73 78  |usx%>576 . mousx|
0000cf70  25 3c 36 32 38 20 8c 20  f2 6c 65 76 65 6c 5f 75  |%<628 . .level_u|
0000cf80  70 3a e1 0d 3b 9c 1c e7  20 6d 6f 75 73 78 25 3e  |p:..;... mousx%>|
0000cf90  31 31 36 30 20 8c 20 f2  65 68 65 6c 70 3a e1 0d  |1160 . .ehelp:..|
0000cfa0  3b a6 1b e7 20 6d 6f 75  73 78 25 3e 31 30 34 38  |;... mousx%>1048|
0000cfb0  20 8c 20 f2 6f 70 74 73  3a e1 0d 3b b0 1a e7 20  | . .opts:..;... |
0000cfc0  6d 6f 75 73 78 25 3e 39  33 36 20 8c 20 f2 68 69  |mousx%>936 . .hi|
0000cfd0  67 68 3a e1 0d 3b ba 1a  e7 20 6d 6f 75 73 78 25  |gh:..;... mousx%|
0000cfe0  3e 38 32 34 20 8c 20 f2  70 61 73 73 3a e1 0d 3b  |>824 . .pass:..;|
0000cff0  c4 20 e7 20 6d 6f 75 73  78 25 3e 37 37 32 20 8c  |. . mousx%>772 .|
0000d000  20 f2 6c 65 76 65 6c 5f  64 6f 77 6e 3a e1 0d 3b  | .level_down:..;|
0000d010  ce 05 e1 0d 3b d8 05 3a  0d 3b e2 0d dd f2 74 69  |....;..:.;....ti|
0000d020  6d 65 5f 75 70 0d 3b ec  0c 66 73 61 76 65 25 3d  |me_up.;..fsave%=|
0000d030  b9 0d 3b f6 1c 62 6c 65  76 73 25 3f 28 31 33 35  |..;..blevs%?(135|
0000d040  38 33 2b 76 6c 65 76 6c  25 29 2b 3d 31 0d 3c 00  |83+vlevl%)+=1.<.|
0000d050  35 f2 70 72 69 6e 74 28  a4 70 61 64 28 c3 28 62  |5.print(.pad(.(b|
0000d060  6c 65 76 73 25 3f 28 31  33 35 38 33 2b 76 6c 65  |levs%?(13583+vle|
0000d070  76 6c 25 29 29 2c 33 29  2c 32 30 34 2c 31 30 31  |vl%)),3),204,101|
0000d080  36 29 0d 3c 0a 05 e1 0d  3c 14 05 3a 0d 3c 1e 0f  |6).<....<..:.<..|
0000d090  dd f2 74 69 6d 65 5f 64  6f 77 6e 0d 3c 28 0c 66  |..time_down.<(.f|
0000d0a0  73 61 76 65 25 3d b9 0d  3c 32 1c 62 6c 65 76 73  |save%=..<2.blevs|
0000d0b0  25 3f 28 31 33 35 38 33  2b 76 6c 65 76 6c 25 29  |%?(13583+vlevl%)|
0000d0c0  2d 3d 31 0d 3c 3c 35 f2  70 72 69 6e 74 28 a4 70  |-=1.<<5.print(.p|
0000d0d0  61 64 28 c3 28 62 6c 65  76 73 25 3f 28 31 33 35  |ad(.(blevs%?(135|
0000d0e0  38 33 2b 76 6c 65 76 6c  25 29 29 2c 33 29 2c 32  |83+vlevl%)),3),2|
0000d0f0  30 34 2c 31 30 31 36 29  0d 3c 46 05 e1 0d 3c 50  |04,1016).<F...<P|
0000d100  05 3a 0d 3c 5a 0e dd f2  6c 65 76 65 6c 5f 75 70  |.:.<Z...level_up|
0000d110  0d 3c 64 24 76 6c 65 76  6c 25 2b 3d 31 3a e7 20  |.<d$vlevl%+=1:. |
0000d120  76 6c 65 76 6c 25 3d 31  37 20 8c 20 76 6c 65 76  |vlevl%=17 . vlev|
0000d130  6c 25 3d 31 0d 3c 6e 0b  d6 20 65 66 61 64 65 0d  |l%=1.<n.. efade.|
0000d140  3c 78 10 f2 70 72 69 6e  74 6d 61 70 28 b9 29 0d  |<x..printmap(.).|
0000d150  3c 82 34 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |<.4.. "OS_Sprite|
0000d160  4f 70 22 2c 32 35 36 2b  33 34 2c 62 73 70 72 69  |Op",256+34,bspri|
0000d170  25 2c 22 65 64 69 74 62  61 72 22 2c 30 2c 39 36  |%,"editbar",0,96|
0000d180  30 2c 30 0d 3c 8c 7f e7  20 62 6f 78 64 6e 25 3e  |0,0.<... boxdn%>|
0000d190  2d 31 20 8c 20 c8 99 20  22 4f 53 5f 53 70 72 69  |-1 . .. "OS_Spri|
0000d1a0  74 65 4f 70 22 2c 32 35  36 2b 33 34 2c 62 73 70  |teOp",256+34,bsp|
0000d1b0  72 69 25 2c 22 65 64 69  74 6e 75 6d 62 65 72 73  |ri%,"editnumbers|
0000d1c0  79 22 2c 30 2c 33 32 30  2c 30 20 8b 20 c8 99 20  |y",0,320,0 . .. |
0000d1d0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
0000d1e0  36 2b 33 34 2c 62 73 70  72 69 25 2c 22 65 64 69  |6+34,bspri%,"edi|
0000d1f0  74 6e 75 6d 62 65 72 73  6e 22 2c 30 2c 33 32 30  |tnumbersn",0,320|
0000d200  2c 30 0d 3c 96 38 c8 99  20 22 4f 53 5f 53 70 72  |,0.<.8.. "OS_Spr|
0000d210  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 62 73  |iteOp",256+34,bs|
0000d220  70 72 69 25 2c 22 65 64  69 74 6f 62 6a 65 63 74  |pri%,"editobject|
0000d230  73 22 2c 30 2c 35 30 38  2c 30 0d 3c a0 2d f2 70  |s",0,508,0.<.-.p|
0000d240  72 69 6e 74 28 c3 28 62  6c 65 76 73 25 3f 28 31  |rint(.(blevs%?(1|
0000d250  33 35 38 33 2b 76 6c 65  76 6c 25 29 29 2c 32 30  |3583+vlevl%)),20|
0000d260  34 2c 31 30 31 36 29 0d  3c aa 26 f2 70 72 69 6e  |4,1016).<.&.prin|
0000d270  74 28 c3 28 76 6c 65 76  6c 25 29 2c 36 34 30 2c  |t(.(vlevl%),640,|
0000d280  31 30 31 36 29 3a 2a 46  58 32 31 2c 39 0d 3c b4  |1016):*FX21,9.<.|
0000d290  05 e1 0d 3c be 05 3a 0d  3c c8 10 dd f2 6c 65 76  |...<..:.<....lev|
0000d2a0  65 6c 5f 64 6f 77 6e 0d  3c d2 24 76 6c 65 76 6c  |el_down.<.$vlevl|
0000d2b0  25 2d 3d 31 3a e7 20 76  6c 65 76 6c 25 3d 30 20  |%-=1:. vlevl%=0 |
0000d2c0  8c 20 76 6c 65 76 6c 25  3d 31 36 0d 3c dc 0b d6  |. vlevl%=16.<...|
0000d2d0  20 65 66 61 64 65 0d 3c  e6 10 f2 70 72 69 6e 74  | efade.<...print|
0000d2e0  6d 61 70 28 b9 29 0d 3c  f0 34 c8 99 20 22 4f 53  |map(.).<.4.. "OS|
0000d2f0  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 33  |_SpriteOp",256+3|
0000d300  34 2c 62 73 70 72 69 25  2c 22 65 64 69 74 62 61  |4,bspri%,"editba|
0000d310  72 22 2c 30 2c 39 36 30  2c 30 0d 3c fa 7f e7 20  |r",0,960,0.<... |
0000d320  62 6f 78 64 6e 25 3e 2d  31 20 8c 20 c8 99 20 22  |boxdn%>-1 . .. "|
0000d330  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
0000d340  2b 33 34 2c 62 73 70 72  69 25 2c 22 65 64 69 74  |+34,bspri%,"edit|
0000d350  6e 75 6d 62 65 72 73 79  22 2c 30 2c 33 32 30 2c  |numbersy",0,320,|
0000d360  30 20 8b 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  |0 . .. "OS_Sprit|
0000d370  65 4f 70 22 2c 32 35 36  2b 33 34 2c 62 73 70 72  |eOp",256+34,bspr|
0000d380  69 25 2c 22 65 64 69 74  6e 75 6d 62 65 72 73 6e  |i%,"editnumbersn|
0000d390  22 2c 30 2c 33 32 30 2c  30 0d 3d 04 38 c8 99 20  |",0,320,0.=.8.. |
0000d3a0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
0000d3b0  36 2b 33 34 2c 62 73 70  72 69 25 2c 22 65 64 69  |6+34,bspri%,"edi|
0000d3c0  74 6f 62 6a 65 63 74 73  22 2c 30 2c 35 30 38 2c  |tobjects",0,508,|
0000d3d0  30 0d 3d 0e 2d f2 70 72  69 6e 74 28 c3 28 62 6c  |0.=.-.print(.(bl|
0000d3e0  65 76 73 25 3f 28 31 33  35 38 33 2b 76 6c 65 76  |evs%?(13583+vlev|
0000d3f0  6c 25 29 29 2c 32 30 34  2c 31 30 31 36 29 0d 3d  |l%)),204,1016).=|
0000d400  18 26 f2 70 72 69 6e 74  28 c3 28 76 6c 65 76 6c  |.&.print(.(vlevl|
0000d410  25 29 2c 36 34 30 2c 31  30 31 36 29 3a 2a 46 58  |%),640,1016):*FX|
0000d420  32 31 2c 39 0d 3d 22 05  e1 0d 3d 2c 05 3a 0d 3d  |21,9.="...=,.:.=|
0000d430  36 0b dd f2 65 68 65 6c  70 0d 3d 40 08 c8 97 20  |6...ehelp.=@... |
0000d440  87 0d 3d 4a 0b d6 20 65  66 61 64 65 0d 3d 54 33  |..=J.. efade.=T3|
0000d450  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
0000d460  2c 33 34 2b 32 35 36 2c  62 73 70 72 69 25 2c 22  |,34+256,bspri%,"|
0000d470  65 64 69 74 6f 72 22 2c  30 2c 37 36 38 2c 30 0d  |editor",0,768,0.|
0000d480  3d 5e 1f f2 70 72 69 6e  74 28 22 48 45 4c 50 20  |=^..print("HELP |
0000d490  50 41 47 45 22 2c 36 30  38 2c 39 38 30 29 0d 3d  |PAGE",608,980).=|
0000d4a0  68 34 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |h4.. "OS_SpriteO|
0000d4b0  70 22 2c 33 34 2b 32 35  36 2c 62 73 70 72 69 25  |p",34+256,bspri%|
0000d4c0  2c 22 6d 6f 75 73 65 22  2c 31 38 30 2c 33 34 36  |,"mouse",180,346|
0000d4d0  2c 30 0d 3d 72 31 c8 99  20 22 4f 53 5f 53 70 72  |,0.=r1.. "OS_Spr|
0000d4e0  69 74 65 4f 70 22 2c 33  34 2b 32 35 36 2c 62 73  |iteOp",34+256,bs|
0000d4f0  70 72 69 25 2c 22 6d 6f  75 73 65 22 2c 30 2c 33  |pri%,"mouse",0,3|
0000d500  32 2c 30 0d 3d 7c 20 f2  70 72 69 6e 74 28 22 57  |2,0.=| .print("W|
0000d510  48 49 4c 45 20 49 4e 20  41 22 2c 34 37 38 2c 37  |HILE IN A",478,7|
0000d520  30 36 29 0d 3d 86 20 f2  70 72 69 6e 74 28 22 57  |06).=. .print("W|
0000d530  41 4c 4c 20 53 50 41 43  45 22 2c 34 37 38 2c 36  |ALL SPACE",478,6|
0000d540  34 34 29 0d 3d 90 21 f2  70 72 69 6e 74 28 22 49  |44).=.!.print("I|
0000d550  4e 20 41 20 53 51 55 41  52 45 22 2c 34 36 32 2c  |N A SQUARE",462,|
0000d560  32 38 36 29 0d 3d 9a 22  f2 70 72 69 6e 74 28 22  |286).=.".print("|
0000d570  50 4c 41 43 45 20 41 20  57 41 4c 4c 22 2c 33 37  |PLACE A WALL",37|
0000d580  36 2c 35 30 36 29 0d 3d  a4 24 f2 70 72 69 6e 74  |6,506).=.$.print|
0000d590  28 22 49 4d 4d 4f 56 41  42 4c 45 20 57 41 4c 4c  |("IMMOVABLE WALL|
0000d5a0  22 2c 33 37 36 2c 34 34  32 29 0d 3d ae 21 f2 70  |",376,442).=.!.p|
0000d5b0  72 69 6e 74 28 22 52 45  4d 4f 56 45 20 57 41 4c  |rint("REMOVE WAL|
0000d5c0  4c 22 2c 33 37 36 2c 33  37 38 29 0d 3d b8 22 f2  |L",376,378).=.".|
0000d5d0  70 72 69 6e 74 28 22 50  4c 41 43 45 20 4f 42 4a  |print("PLACE OBJ|
0000d5e0  45 43 54 22 2c 31 39 32  2c 31 39 32 29 0d 3d c2  |ECT",192,192).=.|
0000d5f0  1d f2 70 72 69 6e 74 28  22 44 4f 20 4e 4f 57 54  |..print("DO NOWT|
0000d600  22 2c 31 39 32 2c 31 32  38 29 0d 3d cc 22 f2 70  |",192,128).=.".p|
0000d610  72 69 6e 74 28 22 52 45  4d 4f 56 45 20 4f 42 4a  |rint("REMOVE OBJ|
0000d620  45 43 54 22 2c 31 39 32  2c 36 34 29 0d 3d d6 21  |ECT",192,64).=.!|
0000d630  f2 70 72 69 6e 74 28 22  43 4c 49 43 4b 20 4d 4f  |.print("CLICK MO|
0000d640  55 53 45 22 2c 35 34 30  2c 39 30 30 29 0d 3d e0  |USE",540,900).=.|
0000d650  29 f2 70 72 69 6e 74 28  22 54 4f 20 43 4f 4e 54  |).print("TO CONT|
0000d660  49 4e 55 45 22 2c 35 34  30 2c 38 33 36 29 3a 2a  |INUE",540,836):*|
0000d670  46 58 32 31 2c 39 0d 3d  ea 05 f5 0d 3d f4 1b c8  |FX21,9.=....=...|
0000d680  97 20 78 64 75 6d 79 25  2c 78 64 75 6d 79 25 2c  |. xdumy%,xdumy%,|
0000d690  78 62 75 74 74 25 0d 3d  fe 0e fd 20 78 62 75 74  |xbutt%.=... xbut|
0000d6a0  74 25 3e 30 0d 3e 08 15  66 65 78 69 74 25 3d b9  |t%>0.>..fexit%=.|
0000d6b0  3a 66 64 72 61 77 25 3d  a3 0d 3e 12 05 e1 0d 3e  |:fdraw%=..>....>|
0000d6c0  1c 05 3a 0d 3e 26 0a dd  f2 70 61 73 73 0d 3e 30  |..:.>&...pass.>0|
0000d6d0  08 c8 97 20 87 0d 3e 3a  0b d6 20 65 66 61 64 65  |... ..>:.. efade|
0000d6e0  0d 3e 44 15 66 65 78 69  74 25 3d b9 3a 66 64 72  |.>D.fexit%=.:fdr|
0000d6f0  61 77 25 3d a3 0d 3e 4e  28 f2 70 72 69 6e 74 28  |aw%=..>N(.print(|
0000d700  22 54 48 45 20 43 55 52  52 45 4e 54 20 50 41 53  |"THE CURRENT PAS|
0000d710  53 57 4f 52 44 22 2c 30  2c 38 30 30 29 0d 3e 58  |SWORD",0,800).>X|
0000d720  28 f2 70 72 69 6e 74 28  22 46 4f 52 20 54 48 49  |(.print("FOR THI|
0000d730  53 20 4c 45 56 45 4c 20  49 53 20 3a 20 22 2c 30  |S LEVEL IS : ",0|
0000d740  2c 37 33 36 29 0d 3e 62  43 f2 70 72 69 6e 74 28  |,736).>bC.print(|
0000d750  22 20 20 20 20 3c 22 2b  a4 67 65 74 6c 6e 73 74  |"    <"+.getlnst|
0000d760  72 28 62 6c 65 76 73 25  2b 39 36 2b 31 30 2a 76  |r(blevs%+96+10*v|
0000d770  6c 65 76 6c 25 2c 31 30  29 2b 22 3e 20 20 20 20  |levl%,10)+">    |
0000d780  22 2c 30 2c 36 37 32 29  0d 3e 6c 28 f2 70 72 69  |",0,672).>l(.pri|
0000d790  6e 74 28 22 50 52 45 53  53 20 43 20 54 4f 20 43  |nt("PRESS C TO C|
0000d7a0  48 41 4e 47 45 20 4f 52  22 2c 30 2c 36 30 38 29  |HANGE OR",0,608)|
0000d7b0  0d 3e 76 30 f2 70 72 69  6e 74 28 22 52 20 54 4f  |.>v0.print("R TO|
0000d7c0  20 52 45 54 55 52 4e 20  54 4f 20 45 44 49 54 2e  | RETURN TO EDIT.|
0000d7d0  22 2c 30 2c 35 34 34 29  3a 2a 46 58 32 31 2c 30  |",0,544):*FX21,0|
0000d7e0  0d 3e 80 05 f5 0d 3e 8a  13 63 6b 65 79 70 24 3d  |.>....>..ckeyp$=|
0000d7f0  a4 63 61 70 73 28 be 29  0d 3e 94 1d fd 20 63 6b  |.caps(.).>... ck|
0000d800  65 79 70 24 3d 22 43 22  20 84 20 63 6b 65 79 70  |eyp$="C" . ckeyp|
0000d810  24 3d 22 52 22 0d 3e 9e  14 e7 20 63 6b 65 79 70  |$="R".>... ckeyp|
0000d820  24 3d 22 52 22 20 8c 20  e1 0d 3e a8 0c 66 73 61  |$="R" . ..>..fsa|
0000d830  76 65 25 3d b9 0d 3e b2  28 f2 70 72 69 6e 74 28  |ve%=..>.(.print(|
0000d840  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
0000d850  20 20 20 20 20 22 2c 30  2c 38 30 30 29 0d 3e bc  |     ",0,800).>.|
0000d860  28 f2 70 72 69 6e 74 28  22 50 4c 45 41 53 45 20  |(.print("PLEASE |
0000d870  49 4e 50 55 54 20 54 48  45 20 4e 45 57 22 2c 30  |INPUT THE NEW",0|
0000d880  2c 37 33 36 29 0d 3e c6  28 f2 70 72 69 6e 74 28  |,736).>.(.print(|
0000d890  22 20 20 20 20 20 20 50  41 53 53 57 4f 52 44 20  |"      PASSWORD |
0000d8a0  20 20 20 20 20 22 2c 30  2c 36 37 32 29 0d 3e d0  |     ",0,672).>.|
0000d8b0  28 f2 70 72 69 6e 74 28  22 20 20 20 20 3e 20 20  |(.print("    >  |
0000d8c0  20 20 20 20 20 20 20 20  3c 20 20 20 20 22 2c 30  |        <    ",0|
0000d8d0  2c 36 30 38 29 0d 3e da  30 f2 70 72 69 6e 74 28  |,608).>.0.print(|
0000d8e0  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
0000d8f0  20 20 20 20 20 22 2c 30  2c 35 34 34 29 3a 2a 46  |     ",0,544):*F|
0000d900  58 32 31 2c 30 0d 3e e4  42 f2 70 75 74 73 74 72  |X21,0.>.B.putstr|
0000d910  28 a4 70 61 64 28 a4 69  6e 70 75 74 28 33 32 30  |(.pad(.input(320|
0000d920  2c 36 30 38 2c 33 32 2c  39 30 2c 31 30 29 2c 31  |,608,32,90,10),1|
0000d930  30 29 2c 62 6c 65 76 73  25 2b 39 36 2b 31 30 2a  |0),blevs%+96+10*|
0000d940  76 6c 65 76 6c 25 29 0d  3e ee 05 e1 0d 3e f8 05  |vlevl%).>....>..|
0000d950  3a 0d 3f 02 0a dd f2 6f  70 74 73 0d 3f 0c 0c 66  |:.?....opts.?..f|
0000d960  65 78 69 74 25 3d b9 0d  3f 16 0c 66 64 72 61 77  |exit%=..?..fdraw|
0000d970  25 3d a3 0d 3f 20 10 c8  97 20 87 3a d6 20 65 66  |%=..? ... .:. ef|
0000d980  61 64 65 0d 3f 2a 33 c8  99 20 22 4f 53 5f 53 70  |ade.?*3.. "OS_Sp|
0000d990  72 69 74 65 4f 70 22 2c  33 34 2b 32 35 36 2c 62  |riteOp",34+256,b|
0000d9a0  73 70 72 69 25 2c 22 65  64 69 74 6f 72 22 2c 30  |spri%,"editor",0|
0000d9b0  2c 37 36 38 2c 30 0d 3f  34 1d f2 70 72 69 6e 74  |,768,0.?4..print|
0000d9c0  28 22 4f 50 54 49 4f 4e  53 22 2c 36 33 38 2c 39  |("OPTIONS",638,9|
0000d9d0  36 30 29 0d 3f 3e 28 f2  70 72 69 6e 74 28 22 41  |60).?>(.print("A|
0000d9e0  3e 20 53 41 56 45 20 4c  45 56 45 4c 53 20 20 20  |> SAVE LEVELS   |
0000d9f0  20 20 20 22 2c 30 2c 37  34 36 29 0d 3f 48 28 f2  |   ",0,746).?H(.|
0000da00  70 72 69 6e 74 28 22 42  3e 20 4c 4f 41 44 20 4e  |print("B> LOAD N|
0000da10  45 57 20 4c 45 56 45 4c  53 20 20 22 2c 30 2c 36  |EW LEVELS  ",0,6|
0000da20  38 32 29 0d 3f 52 28 f2  70 72 69 6e 74 28 22 43  |82).?R(.print("C|
0000da30  3e 20 49 4d 50 4f 52 54  20 41 20 4c 45 56 45 4c  |> IMPORT A LEVEL|
0000da40  20 20 20 22 2c 30 2c 36  31 38 29 0d 3f 5c 28 f2  |   ",0,618).?\(.|
0000da50  70 72 69 6e 74 28 22 44  3e 20 53 57 41 50 20 54  |print("D> SWAP T|
0000da60  57 4f 20 4c 45 56 45 4c  53 20 20 22 2c 30 2c 35  |WO LEVELS  ",0,5|
0000da70  35 34 29 0d 3f 66 28 f2  70 72 69 6e 74 28 22 45  |54).?f(.print("E|
0000da80  3e 20 43 4f 50 59 20 41  20 4c 45 56 45 4c 20 20  |> COPY A LEVEL  |
0000da90  20 20 20 22 2c 30 2c 34  39 30 29 0d 3f 70 28 f2  |   ",0,490).?p(.|
0000daa0  70 72 69 6e 74 28 22 46  3e 20 43 48 41 4e 47 45  |print("F> CHANGE|
0000dab0  20 45 44 49 54 20 43 4f  44 45 20 22 2c 30 2c 34  | EDIT CODE ",0,4|
0000dac0  32 36 29 0d 3f 7a 28 f2  70 72 69 6e 74 28 22 47  |26).?z(.print("G|
0000dad0  3e 20 43 48 41 4e 47 45  20 46 49 4c 45 20 4e 41  |> CHANGE FILE NA|
0000dae0  4d 45 20 22 2c 30 2c 33  36 32 29 0d 3f 84 28 f2  |ME ",0,362).?.(.|
0000daf0  70 72 69 6e 74 28 22 48  3e 20 43 48 41 4e 47 45  |print("H> CHANGE|
0000db00  20 53 45 54 20 54 49 54  4c 45 20 22 2c 30 2c 32  | SET TITLE ",0,2|
0000db10  39 38 29 0d 3f 8e 28 f2  70 72 69 6e 74 28 22 49  |98).?.(.print("I|
0000db20  3e 20 52 45 54 55 52 4e  20 54 4f 20 45 44 49 54  |> RETURN TO EDIT|
0000db30  4f 52 20 22 2c 30 2c 32  33 34 29 0d 3f 98 28 f2  |OR ",0,234).?.(.|
0000db40  70 72 69 6e 74 28 22 4a  3e 20 51 55 49 54 20 42  |print("J> QUIT B|
0000db50  53 45 20 20 20 20 20 20  20 20 20 22 2c 30 2c 31  |SE         ",0,1|
0000db60  37 30 29 0d 3f a2 2f f2  70 72 69 6e 74 28 22 20  |70).?./.print(" |
0000db70  50 4c 45 41 53 45 20 50  52 45 53 53 20 41 20 4b  |PLEASE PRESS A K|
0000db80  45 59 20 22 2c 30 2c 36  34 29 3a 2a 46 58 32 31  |EY ",0,64):*FX21|
0000db90  2c 30 0d 3f ac 05 f5 0d  3f b6 13 63 6b 65 79 70  |,0.?....?..ckeyp|
0000dba0  24 3d a4 63 61 70 73 28  be 29 0d 3f c0 21 fd 20  |$=.caps(.).?.!. |
0000dbb0  97 28 63 6b 65 79 70 24  29 3e 36 34 20 80 20 97  |.(ckeyp$)>64 . .|
0000dbc0  28 63 6b 65 79 70 24 29  3c 37 35 0d 3f ca 11 c8  |(ckeyp$)<75.?...|
0000dbd0  8e 20 28 63 6b 65 79 70  24 29 20 ca 0d 3f d4 19  |. (ckeyp$) ..?..|
0000dbe0  c9 20 22 41 22 3a 20 66  73 61 76 65 25 3d b9 3a  |. "A": fsave%=.:|
0000dbf0  f2 73 61 76 65 0d 3f de  16 c9 20 22 42 22 3a 20  |.save.?... "B": |
0000dc00  f2 73 61 76 65 3a f2 6c  6f 61 64 0d 3f e8 12 c9  |.save:.load.?...|
0000dc10  20 22 43 22 3a 20 f2 69  6d 70 6f 72 74 0d 3f f2  | "C": .import.?.|
0000dc20  14 c9 20 22 44 22 3a 20  f2 73 77 61 70 6c 65 76  |.. "D": .swaplev|
0000dc30  73 0d 3f fc 13 c9 20 22  45 22 3a 20 f2 63 6f 70  |s.?... "E": .cop|
0000dc40  79 6c 65 76 0d 40 06 1c  c9 20 22 46 22 3a 20 f2  |ylev.@... "F": .|
0000dc50  6e 65 77 65 64 69 74 3a  66 73 61 76 65 25 3d b9  |newedit:fsave%=.|
0000dc60  0d 40 10 1c c9 20 22 47  22 3a 20 f2 6e 65 77 66  |.@... "G": .newf|
0000dc70  69 6c 65 3a 66 73 61 76  65 25 3d b9 0d 40 1a 1d  |ile:fsave%=..@..|
0000dc80  c9 20 22 48 22 3a 20 f2  6e 65 77 74 69 74 6c 65  |. "H": .newtitle|
0000dc90  3a 66 73 61 76 65 25 3d  b9 0d 40 24 13 c9 20 22  |:fsave%=..@$.. "|
0000dca0  4a 22 3a 20 66 64 72 61  77 25 3d b9 0d 40 2e 05  |J": fdraw%=..@..|
0000dcb0  cb 0d 40 38 05 e1 0d 40  42 05 3a 0d 40 4c 0c dd  |..@8...@B.:.@L..|
0000dcc0  f2 69 6d 70 6f 72 74 0d  40 56 12 66 73 61 76 65  |.import.@V.fsave|
0000dcd0  25 3d b9 3a e6 30 c8 9c  30 0d 40 60 16 c8 93 20  |%=.:.0..0.@`... |
0000dce0  c8 90 20 30 2c 30 2c 31  32 38 30 2c 37 35 30 0d  |.. 0,0,1280,750.|
0000dcf0  40 6a 28 f2 70 72 69 6e  74 28 22 54 45 4c 4c 20  |@j(.print("TELL |
0000dd00  4d 45 20 54 48 45 20 46  49 4c 45 20 54 4f 20 22  |ME THE FILE TO "|
0000dd10  2c 30 2c 35 30 30 29 0d  40 74 27 f2 70 72 69 6e  |,0,500).@t'.prin|
0000dd20  74 28 22 47 45 54 20 54  48 45 20 4c 45 56 45 4c  |t("GET THE LEVEL|
0000dd30  20 46 52 4f 4d 2e 22 2c  30 2c 34 33 36 29 0d 40  | FROM.",0,436).@|
0000dd40  7e 28 f2 70 72 69 6e 74  28 22 20 20 20 20 3e 20  |~(.print("    > |
0000dd50  20 20 20 20 20 20 20 20  20 3c 20 20 20 20 22 2c  |         <    ",|
0000dd60  30 2c 33 37 32 29 0d 40  88 37 66 6e 6c 65 76 24  |0,372).@.7fnlev$|
0000dd70  3d 22 3c 42 6f 6d 62 4c  65 76 65 6c 73 24 44 69  |="<BombLevels$Di|
0000dd80  72 3e 2e 22 2b a4 69 6e  70 75 74 28 33 32 30 2c  |r>."+.input(320,|
0000dd90  33 37 32 2c 33 33 2c 39  30 2c 31 30 29 0d 40 92  |372,33,90,10).@.|
0000dda0  28 f2 70 72 69 6e 74 28  22 50 4c 45 41 53 45 20  |(.print("PLEASE |
0000ddb0  54 59 50 45 20 54 48 45  20 45 44 49 54 22 2c 30  |TYPE THE EDIT",0|
0000ddc0  2c 35 30 30 29 0d 40 9c  28 f2 70 72 69 6e 74 28  |,500).@.(.print(|
0000ddd0  22 20 43 4f 44 45 20 46  4f 52 20 54 48 41 54 20  |" CODE FOR THAT |
0000dde0  53 45 54 2e 20 22 2c 30  2c 34 33 36 29 0d 40 a6  |SET. ",0,436).@.|
0000ddf0  28 f2 70 72 69 6e 74 28  22 20 20 20 20 3e 20 20  |(.print("    >  |
0000de00  20 20 20 20 20 20 20 20  3c 20 20 20 20 22 2c 30  |        <    ",0|
0000de10  2c 33 37 32 29 0d 40 b0  2c 78 65 64 69 74 24 3d  |,372).@.,xedit$=|
0000de20  a4 70 61 64 28 a4 69 6e  70 75 74 28 33 32 30 2c  |.pad(.input(320,|
0000de30  33 37 32 2c 33 32 2c 39  30 2c 31 30 29 2c 31 30  |372,32,90,10),10|
0000de40  29 0d 40 ba 05 f5 0d 40  c4 28 f2 70 72 69 6e 74  |).@....@.(.print|
0000de50  28 22 20 57 48 49 43 48  20 4c 45 56 45 4c 20 44  |(" WHICH LEVEL D|
0000de60  4f 20 59 4f 55 20 22 2c  30 2c 35 30 30 29 0d 40  |O YOU ",0,500).@|
0000de70  ce 28 f2 70 72 69 6e 74  28 22 57 41 4e 54 20 46  |.(.print("WANT F|
0000de80  52 4f 4d 20 54 48 49 53  20 46 49 4c 45 3f 22 2c  |ROM THIS FILE?",|
0000de90  30 2c 34 33 36 29 0d 40  d8 28 f2 70 72 69 6e 74  |0,436).@.(.print|
0000dea0  28 22 20 20 20 20 20 20  20 20 3e 20 20 3c 20 20  |("        >  <  |
0000deb0  20 20 20 20 20 20 22 2c  30 2c 33 37 32 29 0d 40  |      ",0,372).@|
0000dec0  e2 25 78 6c 73 72 63 25  3d bb 28 a4 69 6e 70 75  |.%xlsrc%=.(.inpu|
0000ded0  74 28 35 37 36 2c 33 37  32 2c 34 38 2c 35 37 2c  |t(576,372,48,57,|
0000dee0  32 29 29 0d 40 ec 1a fd  20 78 6c 73 72 63 25 3e  |2)).@... xlsrc%>|
0000def0  30 20 80 20 78 6c 73 72  63 25 3c 31 37 0d 40 f6  |0 . xlsrc%<17.@.|
0000df00  05 f5 0d 41 00 28 f2 70  72 69 6e 74 28 22 20 57  |...A.(.print(" W|
0000df10  48 49 43 48 20 4c 45 56  45 4c 20 44 4f 20 59 4f  |HICH LEVEL DO YO|
0000df20  55 20 22 2c 30 2c 35 30  30 29 0d 41 0a 28 f2 70  |U ",0,500).A.(.p|
0000df30  72 69 6e 74 28 22 20 20  57 41 4e 54 20 54 4f 20  |rint("  WANT TO |
0000df40  4d 41 4b 45 20 49 54 3f  20 20 22 2c 30 2c 34 33  |MAKE IT?  ",0,43|
0000df50  36 29 0d 41 14 28 f2 70  72 69 6e 74 28 22 20 20  |6).A.(.print("  |
0000df60  20 20 20 20 20 20 3e 20  20 3c 20 20 20 20 20 20  |      >  <      |
0000df70  20 20 22 2c 30 2c 33 37  32 29 0d 41 1e 25 78 6c  |  ",0,372).A.%xl|
0000df80  64 73 74 25 3d bb 28 a4  69 6e 70 75 74 28 35 37  |dst%=.(.input(57|
0000df90  36 2c 33 37 32 2c 34 38  2c 35 37 2c 32 29 29 0d  |6,372,48,57,2)).|
0000dfa0  41 28 1a fd 20 78 6c 64  73 74 25 3e 30 20 80 20  |A(.. xldst%>0 . |
0000dfb0  78 6c 64 73 74 25 3c 31  37 0d 41 32 11 ef 20 32  |xldst%<17.A2.. 2|
0000dfc0  38 2c 30 2c 31 2c 33 39  2c 30 0d 41 3c 13 68 66  |8,0,1,39,0.A<.hf|
0000dfd0  69 6c 65 25 3d ad 20 66  6e 6c 65 76 24 0d 41 46  |ile%=. fnlev$.AF|
0000dfe0  8b e7 20 68 66 69 6c 65  25 3d 30 20 8c 20 f2 70  |.. hfile%=0 . .p|
0000dff0  72 69 6e 74 28 22 20 54  48 41 54 20 46 49 4c 45  |rint(" THAT FILE|
0000e000  20 44 4f 45 53 20 4e 4f  54 20 22 2c 30 2c 35 30  | DOES NOT ",0,50|
0000e010  30 29 3a f2 70 72 69 6e  74 28 22 20 20 20 20 20  |0):.print("     |
0000e020  20 20 45 58 49 53 54 2e  20 20 20 20 20 20 20 22  |  EXIST.       "|
0000e030  2c 30 2c 34 33 36 29 3a  f2 70 72 69 6e 74 28 22  |,0,436):.print("|
0000e040  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000e050  20 20 20 20 22 2c 30 2c  33 37 32 29 3a f2 77 61  |    ",0,372):.wa|
0000e060  69 74 28 33 30 29 3a e1  0d 41 50 2b d9 23 68 66  |it(30):..AP+.#hf|
0000e070  69 6c 65 25 3a ff 22 4c  6f 61 64 20 22 2b 66 6e  |ile%:."Load "+fn|
0000e080  6c 65 76 24 2b 22 20 22  2b c3 7e 28 62 6d 65 73  |lev$+" "+.~(bmes|
0000e090  73 25 29 0d 41 5a 29 c8  99 20 22 42 53 5f 45 6e  |s%).AZ).. "BS_En|
0000e0a0  63 72 79 70 74 22 2c 68  61 6e 64 6c 25 2c 62 6d  |crypt",handl%,bm|
0000e0b0  65 73 73 25 2b 34 2c 31  33 35 39 36 0d 41 64 41  |ess%+4,13596.AdA|
0000e0c0  f2 70 75 74 73 74 72 28  a4 67 65 74 6c 6e 73 74  |.putstr(.getlnst|
0000e0d0  72 28 62 6d 65 73 73 25  2b 32 36 34 2b 78 6c 73  |r(bmess%+264+xls|
0000e0e0  72 63 25 2a 32 2c 32 29  2c 62 6c 65 76 73 25 2b  |rc%*2,2),blevs%+|
0000e0f0  32 36 34 2b 78 6c 64 73  74 25 2a 32 29 0d 41 6e  |264+xldst%*2).An|
0000e100  42 f2 70 75 74 73 74 72  28 a4 67 65 74 6c 6e 73  |B.putstr(.getlns|
0000e110  74 72 28 62 6d 65 73 73  25 2b 39 36 2b 78 6c 73  |tr(bmess%+96+xls|
0000e120  72 63 25 2a 31 30 2c 31  30 29 2c 62 6c 65 76 73  |rc%*10,10),blevs|
0000e130  25 2b 39 36 2b 78 6c 64  73 74 25 2a 31 30 29 0d  |%+96+xldst%*10).|
0000e140  41 78 2f 62 6c 65 76 73  25 3f 28 31 33 35 38 33  |Ax/blevs%?(13583|
0000e150  2b 78 6c 64 73 74 25 29  3d 62 6d 65 73 73 25 3f  |+xldst%)=bmess%?|
0000e160  28 31 33 35 38 33 2b 78  6c 73 72 63 25 29 0d 41  |(13583+xlsrc%).A|
0000e170  82 14 e3 20 6c 63 6f 70  79 25 3d 30 b8 38 32 39  |... lcopy%=0.829|
0000e180  88 34 0d 41 8c 49 62 6c  65 76 73 25 21 28 6c 63  |.4.A.Iblevs%!(lc|
0000e190  6f 70 79 25 2b 33 30 30  2b 78 6c 64 73 74 25 2a  |opy%+300+xldst%*|
0000e1a0  38 33 30 2d 38 33 30 29  3d 62 6d 65 73 73 25 21  |830-830)=bmess%!|
0000e1b0  28 6c 63 6f 70 79 25 2b  33 30 30 2b 78 6c 73 72  |(lcopy%+300+xlsr|
0000e1c0  63 25 2a 38 33 30 2d 38  33 30 29 0d 41 96 05 ed  |c%*830-830).A...|
0000e1d0  0d 41 a0 05 e1 0d 41 aa  05 3a 0d 41 b4 0d dd f2  |.A....A..:.A....|
0000e1e0  63 6f 70 79 6c 65 76 0d  41 be 05 f5 0d 41 c8 12  |copylev.A....A..|
0000e1f0  66 73 61 76 65 25 3d b9  3a e6 30 c8 9c 30 0d 41  |fsave%=.:.0..0.A|
0000e200  d2 16 c8 93 20 c8 90 20  30 2c 30 2c 31 32 38 30  |.... .. 0,0,1280|
0000e210  2c 37 35 30 0d 41 dc 28  f2 70 72 69 6e 74 28 22  |,750.A.(.print("|
0000e220  49 4e 50 55 54 20 54 48  45 20 4e 55 4d 42 45 52  |INPUT THE NUMBER|
0000e230  20 4f 46 20 22 2c 30 2c  35 30 30 29 0d 41 e6 28  | OF ",0,500).A.(|
0000e240  f2 70 72 69 6e 74 28 22  20 54 48 45 20 53 4f 55  |.print(" THE SOU|
0000e250  52 43 45 20 4c 45 56 45  4c 2e 20 20 22 2c 30 2c  |RCE LEVEL.  ",0,|
0000e260  34 33 36 29 0d 41 f0 28  f2 70 72 69 6e 74 28 22  |436).A.(.print("|
0000e270  20 20 20 20 20 20 20 20  3e 20 20 3c 20 20 20 20  |        >  <    |
0000e280  20 20 20 20 22 2c 30 2c  33 37 32 29 0d 41 fa 25  |    ",0,372).A.%|
0000e290  78 6c 73 72 63 25 3d bb  28 a4 69 6e 70 75 74 28  |xlsrc%=.(.input(|
0000e2a0  35 37 36 2c 33 37 32 2c  34 38 2c 35 37 2c 32 29  |576,372,48,57,2)|
0000e2b0  29 0d 42 04 1a fd 20 78  6c 73 72 63 25 3e 30 20  |).B... xlsrc%>0 |
0000e2c0  80 20 78 6c 73 72 63 25  3c 31 37 0d 42 0e 05 f5  |. xlsrc%<17.B...|
0000e2d0  0d 42 18 16 c8 93 20 c8  90 20 30 2c 30 2c 31 32  |.B.... .. 0,0,12|
0000e2e0  38 30 2c 37 35 30 0d 42  22 28 f2 70 72 69 6e 74  |80,750.B"(.print|
0000e2f0  28 22 49 4e 50 55 54 20  54 48 45 20 4e 55 4d 42  |("INPUT THE NUMB|
0000e300  45 52 20 4f 46 20 22 2c  30 2c 35 30 30 29 0d 42  |ER OF ",0,500).B|
0000e310  2c 28 f2 70 72 69 6e 74  28 22 54 48 45 20 44 45  |,(.print("THE DE|
0000e320  53 54 49 4e 41 54 49 4f  4e 20 4c 45 56 2e 22 2c  |STINATION LEV.",|
0000e330  30 2c 34 33 36 29 0d 42  36 28 f2 70 72 69 6e 74  |0,436).B6(.print|
0000e340  28 22 20 20 20 20 20 20  20 20 3e 20 20 3c 20 20  |("        >  <  |
0000e350  20 20 20 20 20 20 22 2c  30 2c 33 37 32 29 0d 42  |      ",0,372).B|
0000e360  40 25 78 6c 64 73 74 25  3d bb 28 a4 69 6e 70 75  |@%xldst%=.(.inpu|
0000e370  74 28 35 37 36 2c 33 37  32 2c 34 38 2c 35 37 2c  |t(576,372,48,57,|
0000e380  32 29 29 0d 42 4a 1a fd  20 78 6c 64 73 74 25 3e  |2)).BJ.. xldst%>|
0000e390  30 20 80 20 78 6c 64 73  74 25 3c 31 37 0d 42 54  |0 . xldst%<17.BT|
0000e3a0  41 f2 70 75 74 73 74 72  28 a4 67 65 74 6c 6e 73  |A.putstr(.getlns|
0000e3b0  74 72 28 62 6c 65 76 73  25 2b 32 36 34 2b 78 6c  |tr(blevs%+264+xl|
0000e3c0  73 72 63 25 2a 32 2c 32  29 2c 62 6c 65 76 73 25  |src%*2,2),blevs%|
0000e3d0  2b 32 36 34 2b 78 6c 64  73 74 25 2a 32 29 0d 42  |+264+xldst%*2).B|
0000e3e0  5e 42 f2 70 75 74 73 74  72 28 a4 67 65 74 6c 6e  |^B.putstr(.getln|
0000e3f0  73 74 72 28 62 6c 65 76  73 25 2b 39 36 2b 78 6c  |str(blevs%+96+xl|
0000e400  73 72 63 25 2a 31 30 2c  31 30 29 2c 62 6c 65 76  |src%*10,10),blev|
0000e410  73 25 2b 39 36 2b 78 6c  64 73 74 25 2a 31 30 29  |s%+96+xldst%*10)|
0000e420  0d 42 68 2f 62 6c 65 76  73 25 3f 28 31 33 35 38  |.Bh/blevs%?(1358|
0000e430  33 2b 78 6c 64 73 74 25  29 3d 62 6c 65 76 73 25  |3+xldst%)=blevs%|
0000e440  3f 28 31 33 35 38 33 2b  78 6c 73 72 63 25 29 0d  |?(13583+xlsrc%).|
0000e450  42 72 14 e3 20 6c 63 6f  70 79 25 3d 30 b8 38 32  |Br.. lcopy%=0.82|
0000e460  39 88 34 0d 42 7c 49 62  6c 65 76 73 25 21 28 6c  |9.4.B|Iblevs%!(l|
0000e470  63 6f 70 79 25 2b 33 30  30 2b 78 6c 64 73 74 25  |copy%+300+xldst%|
0000e480  2a 38 33 30 2d 38 33 30  29 3d 62 6c 65 76 73 25  |*830-830)=blevs%|
0000e490  21 28 6c 63 6f 70 79 25  2b 33 30 30 2b 78 6c 73  |!(lcopy%+300+xls|
0000e4a0  72 63 25 2a 38 33 30 2d  38 33 30 29 0d 42 86 05  |rc%*830-830).B..|
0000e4b0  ed 0d 42 90 05 e1 0d 42  9a 05 3a 0d 42 a4 0e dd  |..B....B..:.B...|
0000e4c0  f2 73 77 61 70 6c 65 76  73 0d 42 ae 05 f5 0d 42  |.swaplevs.B....B|
0000e4d0  b8 12 66 73 61 76 65 25  3d b9 3a e6 30 c8 9c 30  |..fsave%=.:.0..0|
0000e4e0  0d 42 c2 16 c8 93 20 c8  90 20 30 2c 30 2c 31 32  |.B.... .. 0,0,12|
0000e4f0  38 30 2c 37 35 30 0d 42  cc 28 f2 70 72 69 6e 74  |80,750.B.(.print|
0000e500  28 22 49 4e 50 55 54 20  54 48 45 20 4e 55 4d 42  |("INPUT THE NUMB|
0000e510  45 52 20 4f 46 20 22 2c  30 2c 35 30 30 29 0d 42  |ER OF ",0,500).B|
0000e520  d6 28 f2 70 72 69 6e 74  28 22 20 4f 4e 45 20 4f  |.(.print(" ONE O|
0000e530  46 20 54 48 45 20 4c 45  56 45 4c 53 2e 20 22 2c  |F THE LEVELS. ",|
0000e540  30 2c 34 33 36 29 0d 42  e0 28 f2 70 72 69 6e 74  |0,436).B.(.print|
0000e550  28 22 20 20 20 20 20 20  20 20 3e 20 20 3c 20 20  |("        >  <  |
0000e560  20 20 20 20 20 20 22 2c  30 2c 33 37 32 29 0d 42  |      ",0,372).B|
0000e570  ea 25 78 6c 73 72 63 25  3d bb 28 a4 69 6e 70 75  |.%xlsrc%=.(.inpu|
0000e580  74 28 35 37 36 2c 33 37  32 2c 34 38 2c 35 37 2c  |t(576,372,48,57,|
0000e590  32 29 29 0d 42 f4 1a fd  20 78 6c 73 72 63 25 3e  |2)).B... xlsrc%>|
0000e5a0  30 20 80 20 78 6c 73 72  63 25 3c 31 37 0d 42 fe  |0 . xlsrc%<17.B.|
0000e5b0  05 f5 0d 43 08 16 c8 93  20 c8 90 20 30 2c 30 2c  |...C.... .. 0,0,|
0000e5c0  31 32 38 30 2c 37 35 30  0d 43 12 28 f2 70 72 69  |1280,750.C.(.pri|
0000e5d0  6e 74 28 22 49 4e 50 55  54 20 54 48 45 20 4e 55  |nt("INPUT THE NU|
0000e5e0  4d 42 45 52 20 4f 46 20  22 2c 30 2c 35 30 30 29  |MBER OF ",0,500)|
0000e5f0  0d 43 1c 28 f2 70 72 69  6e 74 28 22 20 20 54 48  |.C.(.print("  TH|
0000e600  45 20 4f 54 48 45 52 20  4c 45 56 45 4c 2e 20 20  |E OTHER LEVEL.  |
0000e610  22 2c 30 2c 34 33 36 29  0d 43 26 28 f2 70 72 69  |",0,436).C&(.pri|
0000e620  6e 74 28 22 20 20 20 20  20 20 20 20 3e 20 20 3c  |nt("        >  <|
0000e630  20 20 20 20 20 20 20 20  22 2c 30 2c 33 37 32 29  |        ",0,372)|
0000e640  0d 43 30 25 78 6c 64 73  74 25 3d bb 28 a4 69 6e  |.C0%xldst%=.(.in|
0000e650  70 75 74 28 35 37 36 2c  33 37 32 2c 34 38 2c 35  |put(576,372,48,5|
0000e660  37 2c 32 29 29 0d 43 3a  1a fd 20 78 6c 64 73 74  |7,2)).C:.. xldst|
0000e670  25 3e 30 20 80 20 78 6c  64 73 74 25 3c 31 37 0d  |%>0 . xldst%<17.|
0000e680  43 44 2b 78 74 65 6d 70  24 3d a4 67 65 74 6c 6e  |CD+xtemp$=.getln|
0000e690  73 74 72 28 62 6c 65 76  73 25 2b 32 36 34 2b 78  |str(blevs%+264+x|
0000e6a0  6c 64 73 74 25 2a 32 2c  32 29 0d 43 4e 41 f2 70  |ldst%*2,2).CNA.p|
0000e6b0  75 74 73 74 72 28 a4 67  65 74 6c 6e 73 74 72 28  |utstr(.getlnstr(|
0000e6c0  62 6c 65 76 73 25 2b 32  36 34 2b 78 6c 73 72 63  |blevs%+264+xlsrc|
0000e6d0  25 2a 32 2c 32 29 2c 62  6c 65 76 73 25 2b 32 36  |%*2,2),blevs%+26|
0000e6e0  34 2b 78 6c 64 73 74 25  2a 32 29 0d 43 58 27 f2  |4+xldst%*2).CX'.|
0000e6f0  70 75 74 73 74 72 28 78  74 65 6d 70 24 2c 62 6c  |putstr(xtemp$,bl|
0000e700  65 76 73 25 2b 32 36 34  2b 78 6c 73 72 63 25 2a  |evs%+264+xlsrc%*|
0000e710  32 29 0d 43 62 2c 78 74  65 6d 70 24 3d a4 67 65  |2).Cb,xtemp$=.ge|
0000e720  74 6c 6e 73 74 72 28 62  6c 65 76 73 25 2b 39 36  |tlnstr(blevs%+96|
0000e730  2b 78 6c 64 73 74 25 2a  31 30 2c 31 30 29 0d 43  |+xldst%*10,10).C|
0000e740  6c 42 f2 70 75 74 73 74  72 28 a4 67 65 74 6c 6e  |lB.putstr(.getln|
0000e750  73 74 72 28 62 6c 65 76  73 25 2b 39 36 2b 78 6c  |str(blevs%+96+xl|
0000e760  73 72 63 25 2a 31 30 2c  31 30 29 2c 62 6c 65 76  |src%*10,10),blev|
0000e770  73 25 2b 39 36 2b 78 6c  64 73 74 25 2a 31 30 29  |s%+96+xldst%*10)|
0000e780  0d 43 76 27 f2 70 75 74  73 74 72 28 78 74 65 6d  |.Cv'.putstr(xtem|
0000e790  70 24 2c 62 6c 65 76 73  25 2b 39 36 2b 78 6c 73  |p$,blevs%+96+xls|
0000e7a0  72 63 25 2a 31 30 29 0d  43 80 32 c8 94 20 62 6c  |rc%*10).C.2.. bl|
0000e7b0  65 76 73 25 3f 28 31 33  35 38 33 2b 78 6c 64 73  |evs%?(13583+xlds|
0000e7c0  74 25 29 2c 62 6c 65 76  73 25 3f 28 31 33 35 38  |t%),blevs%?(1358|
0000e7d0  33 2b 78 6c 73 72 63 25  29 0d 43 8a 14 e3 20 6c  |3+xlsrc%).C... l|
0000e7e0  63 6f 70 79 25 3d 30 b8  38 32 39 88 34 0d 43 94  |copy%=0.829.4.C.|
0000e7f0  4c c8 94 20 62 6c 65 76  73 25 21 28 6c 63 6f 70  |L.. blevs%!(lcop|
0000e800  79 25 2b 33 30 30 2b 78  6c 64 73 74 25 2a 38 33  |y%+300+xldst%*83|
0000e810  30 2d 38 33 30 29 2c 62  6c 65 76 73 25 21 28 6c  |0-830),blevs%!(l|
0000e820  63 6f 70 79 25 2b 33 30  30 2b 78 6c 73 72 63 25  |copy%+300+xlsrc%|
0000e830  2a 38 33 30 2d 38 33 30  29 0d 43 9e 05 ed 0d 43  |*830-830).C....C|
0000e840  a8 05 e1 0d 43 b2 05 3a  0d 43 bc 0d dd f2 6e 65  |....C..:.C....ne|
0000e850  77 65 64 69 74 0d 43 c6  09 e6 30 c8 9c 30 0d 43  |wedit.C...0..0.C|
0000e860  d0 16 c8 93 20 c8 90 20  30 2c 30 2c 31 32 38 30  |.... .. 0,0,1280|
0000e870  2c 37 35 30 0d 43 da 28  f2 70 72 69 6e 74 28 22  |,750.C.(.print("|
0000e880  20 49 4e 50 55 54 20 54  48 45 20 4e 45 57 20 45  | INPUT THE NEW E|
0000e890  44 49 54 20 22 2c 30 2c  35 30 30 29 0d 43 e4 28  |DIT ",0,500).C.(|
0000e8a0  f2 70 72 69 6e 74 28 22  43 4f 44 45 20 46 4f 52  |.print("CODE FOR|
0000e8b0  20 54 48 45 20 4c 45 56  45 4c 53 2e 22 2c 30 2c  | THE LEVELS.",0,|
0000e8c0  34 33 36 29 0d 43 ee 28  f2 70 72 69 6e 74 28 22  |436).C.(.print("|
0000e8d0  20 20 20 20 3e 20 20 20  20 20 20 20 20 20 20 3c  |    >          <|
0000e8e0  20 20 20 20 22 2c 30 2c  33 37 32 29 0d 43 f8 38  |    ",0,372).C.8|
0000e8f0  f2 70 75 74 73 74 72 28  a4 70 61 64 28 a4 69 6e  |.putstr(.pad(.in|
0000e900  70 75 74 28 33 32 30 2c  33 37 32 2c 33 32 2c 39  |put(320,372,32,9|
0000e910  30 2c 31 30 29 2c 31 30  29 2c 62 6c 65 76 73 25  |0,10),10),blevs%|
0000e920  2b 39 36 29 0d 44 02 05  e1 0d 44 0c 05 3a 0d 44  |+96).D....D..:.D|
0000e930  16 0d dd f2 6e 65 77 66  69 6c 65 0d 44 20 09 e6  |....newfile.D ..|
0000e940  30 c8 9c 30 0d 44 2a 16  c8 93 20 c8 90 20 30 2c  |0..0.D*... .. 0,|
0000e950  30 2c 31 32 38 30 2c 37  35 30 0d 44 34 28 f2 70  |0,1280,750.D4(.p|
0000e960  72 69 6e 74 28 22 20 50  4c 45 41 53 45 20 47 49  |rint(" PLEASE GI|
0000e970  56 45 20 41 20 46 49 4c  45 20 22 2c 30 2c 35 30  |VE A FILE ",0,50|
0000e980  30 29 0d 44 3e 28 f2 70  72 69 6e 74 28 22 4e 41  |0).D>(.print("NA|
0000e990  4d 45 20 46 4f 52 20 54  48 45 20 4c 45 56 45 4c  |ME FOR THE LEVEL|
0000e9a0  53 2e 22 2c 30 2c 34 33  36 29 0d 44 48 28 f2 70  |S.",0,436).DH(.p|
0000e9b0  72 69 6e 74 28 22 20 20  20 20 3e 20 20 20 20 20  |rint("    >     |
0000e9c0  20 20 20 20 20 3c 20 20  20 20 22 2c 30 2c 33 37  |     <    ",0,37|
0000e9d0  32 29 0d 44 52 37 66 6c  65 76 73 24 3d 22 3c 42  |2).DR7flevs$="<B|
0000e9e0  6f 6d 62 4c 65 76 65 6c  73 24 44 69 72 3e 2e 22  |ombLevels$Dir>."|
0000e9f0  2b a4 69 6e 70 75 74 28  33 32 30 2c 33 37 32 2c  |+.input(320,372,|
0000ea00  33 33 2c 39 30 2c 32 30  29 0d 44 5c 05 e1 0d 44  |33,90,20).D\...D|
0000ea10  66 05 3a 0d 44 70 0e dd  f2 6e 65 77 74 69 74 6c  |f.:.Dp...newtitl|
0000ea20  65 0d 44 7a 09 e6 30 c8  9c 30 0d 44 84 16 c8 93  |e.Dz..0..0.D....|
0000ea30  20 c8 90 20 30 2c 30 2c  31 32 38 30 2c 37 35 30  | .. 0,0,1280,750|
0000ea40  0d 44 8e 28 f2 70 72 69  6e 74 28 22 47 49 56 45  |.D.(.print("GIVE|
0000ea50  20 54 48 45 53 45 20 4c  45 56 45 4c 53 20 41 20  | THESE LEVELS A |
0000ea60  22 2c 30 2c 35 30 30 29  0d 44 98 28 f2 70 72 69  |",0,500).D.(.pri|
0000ea70  6e 74 28 22 20 20 20 54  49 54 4c 45 2c 20 50 4c  |nt("   TITLE, PL|
0000ea80  45 41 53 45 20 20 20 20  22 2c 30 2c 34 33 36 29  |EASE    ",0,436)|
0000ea90  0d 44 a2 28 f2 70 72 69  6e 74 28 22 3e 20 20 20  |.D.(.print(">   |
0000eaa0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3c  |               <|
0000eab0  22 2c 30 2c 33 37 32 29  0d 44 ac 36 f2 70 75 74  |",0,372).D.6.put|
0000eac0  73 74 72 28 a4 70 61 64  28 a4 69 6e 70 75 74 28  |str(.pad(.input(|
0000ead0  30 2c 33 37 32 2c 33 32  2c 39 30 2c 32 30 29 2c  |0,372,32,90,20),|
0000eae0  32 30 29 2c 62 6c 65 76  73 25 2b 37 36 29 0d 44  |20),blevs%+76).D|
0000eaf0  b6 05 e1 0d 44 c0 05 3a  0d 44 ca 0f dd f2 6e 65  |....D..:.D....ne|
0000eb00  77 6c 65 76 65 6c 73 0d  44 d4 16 c8 93 20 c8 90  |wlevels.D.... ..|
0000eb10  20 30 2c 30 2c 31 32 38  30 2c 35 31 30 0d 44 de  | 0,0,1280,510.D.|
0000eb20  09 f2 73 61 76 65 0d 44  e8 6f 24 62 6c 65 76 73  |..save.D.o$blevs|
0000eb30  25 3d 22 42 4f 4d 42 48  49 47 48 53 43 4f 52 45  |%="BOMBHIGHSCORE|
0000eb40  20 48 49 47 48 53 43 4f  52 45 20 48 49 47 48 53  | HIGHSCORE HIGHS|
0000eb50  43 4f 52 45 20 48 49 47  48 53 43 4f 52 45 20 48  |CORE HIGHSCORE H|
0000eb60  49 47 48 53 43 4f 52 45  20 22 2b c4 32 30 2c bd  |IGHSCORE "+.20,.|
0000eb70  30 29 2b 22 23 23 4c 45  56 45 4c 4c 45 56 45 4c  |0)+"##LEVELLEVEL|
0000eb80  4c 45 56 45 4c 4c 45 56  45 4c 45 44 49 54 43 4f  |LEVELLEVELEDITCO|
0000eb90  44 45 20 20 22 0d 44 f2  b4 24 28 62 6c 65 76 73  |DE  ".D..$(blevs|
0000eba0  25 2b 31 30 36 29 3d 22  50 41 53 53 57 4f 52 44  |%+106)="PASSWORD|
0000ebb0  2d 31 50 41 53 53 57 4f  52 44 2d 32 50 41 53 53  |-1PASSWORD-2PASS|
0000ebc0  57 4f 52 44 2d 33 50 41  53 53 57 4f 52 44 2d 34  |WORD-3PASSWORD-4|
0000ebd0  50 41 53 53 57 4f 52 44  2d 35 50 41 53 53 57 4f  |PASSWORD-5PASSWO|
0000ebe0  52 44 2d 36 50 41 53 53  57 4f 52 44 2d 37 50 41  |RD-6PASSWORD-7PA|
0000ebf0  53 53 57 4f 52 44 2d 38  50 41 53 53 57 4f 52 44  |SSWORD-8PASSWORD|
0000ec00  2d 39 50 41 53 53 57 4f  52 44 2d 41 50 41 53 53  |-9PASSWORD-APASS|
0000ec10  57 4f 52 44 2d 42 50 41  53 53 57 4f 52 44 2d 43  |WORD-BPASSWORD-C|
0000ec20  50 41 53 53 57 4f 52 44  2d 44 50 41 53 53 57 4f  |PASSWORD-DPASSWO|
0000ec30  52 44 2d 45 50 41 53 53  57 4f 52 44 2d 46 50 41  |RD-EPASSWORD-FPA|
0000ec40  53 53 57 4f 52 44 2d 30  22 0d 44 fc 11 41 25 3d  |SSWORD-0".D..A%=|
0000ec50  62 6c 65 76 73 25 2b 32  36 36 0d 45 06 0c 42 25  |blevs%+266.E..B%|
0000ec60  3d 31 33 33 33 34 0d 45  10 0b d6 20 65 7a 65 72  |=13334.E... ezer|
0000ec70  6f 0d 45 1a 0c f2 6e 65  77 65 64 69 74 0d 45 24  |o.E...newedit.E$|
0000ec80  0c f2 6e 65 77 66 69 6c  65 0d 45 2e 0d f2 6e 65  |..newfile.E...ne|
0000ec90  77 74 69 74 6c 65 0d 45  38 0c 66 73 61 76 65 25  |wtitle.E8.fsave%|
0000eca0  3d b9 0d 45 42 05 e1 0d  45 4c 05 3a 0d 45 56 0a  |=..EB...EL.:.EV.|
0000ecb0  dd f2 73 61 76 65 0d 45  60 0e e7 20 66 73 61 76  |..save.E`.. fsav|
0000ecc0  65 25 20 8c 0d 45 6a 12  20 ef 20 32 38 2c 30 2c  |e% ..Ej. . 28,0,|
0000ecd0  35 2c 33 39 2c 30 0d 45  74 2a 20 c8 99 20 22 42  |5,39,0.Et* .. "B|
0000ece0  53 5f 44 65 63 72 79 70  74 22 2c 68 61 6e 64 6c  |S_Decrypt",handl|
0000ecf0  25 2c 62 6c 65 76 73 25  2b 34 2c 31 33 35 39 36  |%,blevs%+4,13596|
0000ed00  0d 45 7e 4b 20 c8 99 20  22 58 4f 53 5f 43 4c 49  |.E~K .. "XOS_CLI|
0000ed10  22 2c 22 53 61 76 65 20  22 2b 66 6c 65 76 73 24  |","Save "+flevs$|
0000ed20  2b 22 20 22 2b c3 7e 28  62 6c 65 76 73 25 29 2b  |+" "+.~(blevs%)+|
0000ed30  22 20 22 2b c3 7e 28 62  6c 65 76 73 25 2b 31 33  |" "+.~(blevs%+13|
0000ed40  36 30 30 29 20 b8 20 3b  70 73 72 0d 45 88 12 20  |600) . ;psr.E.. |
0000ed50  e7 20 28 70 73 72 20 80  20 31 29 20 8c 0d 45 92  |. (psr . 1) ..E.|
0000ed60  40 20 20 f1 22 57 41 52  4e 49 4e 47 20 2d 20 63  |@  ."WARNING - c|
0000ed70  6f 75 6c 64 20 6e 6f 74  20 62 65 20 73 61 76 65  |ould not be save|
0000ed80  64 22 27 22 50 72 65 73  73 20 61 20 6b 65 79 22  |d"'"Press a key"|
0000ed90  3a 6b 6c 75 64 67 65 79  70 6f 6f 3d a5 0d 45 9c  |:kludgeypoo=..E.|
0000eda0  06 20 cc 0d 45 a6 20 20  20 ff 20 22 53 65 74 54  |. ..E.   . "SetT|
0000edb0  79 70 65 20 22 2b 66 6c  65 76 73 24 2b 22 20 30  |ype "+flevs$+" 0|
0000edc0  43 39 22 0d 45 b0 06 20  cd 0d 45 ba 2a 20 c8 99  |C9".E.. ..E.* ..|
0000edd0  20 22 42 53 5f 45 6e 63  72 79 70 74 22 2c 68 61  | "BS_Encrypt",ha|
0000ede0  6e 64 6c 25 2c 62 6c 65  76 73 25 2b 34 2c 31 33  |ndl%,blevs%+4,13|
0000edf0  35 39 36 0d 45 c4 05 cd  0d 45 ce 05 e1 0d 45 d8  |596.E....E....E.|
0000ee00  05 3a 0d 45 e2 0a dd f2  6c 6f 61 64 0d 45 ec 10  |.:.E....load.E..|
0000ee10  41 25 3d 30 3a d6 20 65  66 61 64 65 0d 45 f6 28  |A%=0:. efade.E.(|
0000ee20  f2 70 72 69 6e 74 28 22  50 4c 45 41 53 45 20 49  |.print("PLEASE I|
0000ee30  4e 50 55 54 20 4e 41 4d  45 20 4f 46 22 2c 30 2c  |NPUT NAME OF",0,|
0000ee40  36 30 30 29 0d 46 00 28  f2 70 72 69 6e 74 28 22  |600).F.(.print("|
0000ee50  20 20 54 48 45 20 4c 45  56 45 4c 53 20 46 49 4c  |  THE LEVELS FIL|
0000ee60  45 2e 20 20 22 2c 30 2c  35 33 36 29 0d 46 0a 28  |E.  ",0,536).F.(|
0000ee70  f2 70 72 69 6e 74 28 22  20 20 20 20 3e 20 20 20  |.print("    >   |
0000ee80  20 20 20 20 20 20 20 3c  20 20 20 20 22 2c 30 2c  |       <    ",0,|
0000ee90  34 32 30 29 0d 46 14 37  66 6c 65 76 73 24 3d 22  |420).F.7flevs$="|
0000eea0  3c 42 6f 6d 62 4c 65 76  65 6c 73 24 44 69 72 3e  |<BombLevels$Dir>|
0000eeb0  2e 22 2b a4 69 6e 70 75  74 28 33 32 30 2c 34 32  |."+.input(320,42|
0000eec0  30 2c 33 33 2c 39 30 2c  31 30 29 0d 46 1e 11 ef  |0,33,90,10).F...|
0000eed0  20 32 38 2c 30 2c 31 2c  33 39 2c 30 0d 46 28 13  | 28,0,1,39,0.F(.|
0000eee0  68 66 69 6c 65 25 3d ad  20 66 6c 65 76 73 24 0d  |hfile%=. flevs$.|
0000eef0  46 32 10 e7 20 68 66 69  6c 65 25 3e 30 20 8c 0d  |F2.. hfile%>0 ..|
0000ef00  46 3c 0c d9 23 68 66 69  6c 65 25 0d 46 46 23 ff  |F<..#hfile%.FF#.|
0000ef10  20 22 4c 6f 61 64 20 22  2b 66 6c 65 76 73 24 2b  | "Load "+flevs$+|
0000ef20  22 20 22 2b c3 7e 28 62  6c 65 76 73 25 29 0d 46  |" "+.~(blevs%).F|
0000ef30  50 29 c8 99 20 22 42 53  5f 45 6e 63 72 79 70 74  |P).. "BS_Encrypt|
0000ef40  22 2c 68 61 6e 64 6c 25  2c 62 6c 65 76 73 25 2b  |",handl%,blevs%+|
0000ef50  34 2c 31 33 35 39 36 0d  46 5a 05 cc 0d 46 64 0b  |4,13596.FZ...Fd.|
0000ef60  d6 20 65 66 61 64 65 0d  46 6e 28 f2 70 72 69 6e  |. efade.Fn(.prin|
0000ef70  74 28 22 20 54 48 41 54  20 46 49 4c 45 20 44 4f  |t(" THAT FILE DO|
0000ef80  45 53 20 4e 4f 54 20 22  2c 30 2c 35 38 30 29 0d  |ES NOT ",0,580).|
0000ef90  46 78 28 f2 70 72 69 6e  74 28 22 20 20 20 20 20  |Fx(.print("     |
0000efa0  20 20 45 58 49 53 54 2e  20 20 20 20 20 20 20 22  |  EXIST.       "|
0000efb0  2c 30 2c 35 31 36 29 0d  46 82 0d f2 77 61 69 74  |,0,516).F...wait|
0000efc0  28 33 30 29 0d 46 8c 05  cd 0d 46 96 0b d6 20 65  |(30).F....F... e|
0000efd0  66 61 64 65 0d 46 a0 0c  66 73 61 76 65 25 3d a3  |fade.F..fsave%=.|
0000efe0  0d 46 aa 05 e1 0d 46 b4  05 3a 0d 46 be 12 dd f2  |.F....F..:.F....|
0000eff0  77 61 69 74 28 78 77 61  69 74 25 29 0d 46 c8 16  |wait(xwait%).F..|
0000f000  e3 20 78 6c 77 61 69 25  3d 31 b8 20 78 77 61 69  |. xlwai%=1. xwai|
0000f010  74 25 0d 46 d2 08 c8 96  3a ed 0d 46 dc 05 e1 0d  |t%.F....:..F....|
0000f020  46 e6 05 3a 0d 46 f0 0a  dd f2 68 69 67 68 0d 46  |F..:.F....high.F|
0000f030  fa 15 66 65 78 69 74 25  3d b9 3a 66 64 72 61 77  |..fexit%=.:fdraw|
0000f040  25 3d a3 0d 47 04 10 c8  97 20 87 3a d6 20 65 66  |%=..G.... .:. ef|
0000f050  61 64 65 0d 47 0e 10 e3  20 6c 73 63 6f 72 25 3d  |ade.G... lscor%=|
0000f060  30 b8 34 0d 47 18 3c f2  70 72 69 6e 74 28 a4 67  |0.4.G.<.print(.g|
0000f070  65 74 6c 6e 73 74 72 28  62 6c 65 76 73 25 2b 34  |etlnstr(blevs%+4|
0000f080  2b 31 30 2a 6c 73 63 6f  72 25 2c 31 30 29 2c 30  |+10*lscor%,10),0|
0000f090  2c 39 33 36 2d 6c 73 63  6f 72 25 2a 36 34 29 0d  |,936-lscor%*64).|
0000f0a0  47 22 22 73 73 63 6f 72  24 3d c3 28 62 6c 65 76  |G""sscor$=.(blev|
0000f0b0  73 25 21 28 35 34 2b 6c  73 63 6f 72 25 2a 34 29  |s%!(54+lscor%*4)|
0000f0c0  29 0d 47 2c 32 f2 70 72  69 6e 74 28 73 73 63 6f  |).G,2.print(ssco|
0000f0d0  72 24 2c 31 32 38 30 2d  a9 28 73 73 63 6f 72 24  |r$,1280-.(sscor$|
0000f0e0  29 2a 36 34 2c 39 33 36  2d 6c 73 63 6f 72 25 2a  |)*64,936-lscor%*|
0000f0f0  36 34 29 0d 47 36 05 ed  0d 47 40 28 f2 70 72 69  |64).G6...G@(.pri|
0000f100  6e 74 28 22 20 50 52 45  53 53 20 41 20 4e 55 4d  |nt(" PRESS A NUM|
0000f110  42 45 52 20 31 2d 35 20  22 2c 30 2c 34 35 30 29  |BER 1-5 ",0,450)|
0000f120  0d 47 4a 28 f2 70 72 69  6e 74 28 22 20 54 4f 20  |.GJ(.print(" TO |
0000f130  45 44 49 54 20 54 48 41  54 20 4e 41 4d 45 2c 20  |EDIT THAT NAME, |
0000f140  22 2c 30 2c 33 38 36 29  0d 47 54 28 f2 70 72 69  |",0,386).GT(.pri|
0000f150  6e 74 28 22 20 20 53 48  49 46 54 20 41 4e 44 20  |nt("  SHIFT AND |
0000f160  31 2d 35 20 54 4f 20 20  22 2c 30 2c 33 32 32 29  |1-5 TO  ",0,322)|
0000f170  0d 47 5e 28 f2 70 72 69  6e 74 28 22 20 20 20 45  |.G^(.print("   E|
0000f180  44 49 54 20 54 48 45 20  53 43 4f 52 45 20 20 20  |DIT THE SCORE   |
0000f190  22 2c 30 2c 32 35 38 29  0d 47 68 28 f2 70 72 69  |",0,258).Gh(.pri|
0000f1a0  6e 74 28 22 4f 52 20 50  52 45 53 53 20 52 20 54  |nt("OR PRESS R T|
0000f1b0  4f 20 52 45 54 55 52 4e  22 2c 30 2c 31 39 34 29  |O RETURN",0,194)|
0000f1c0  0d 47 72 30 f2 70 72 69  6e 74 28 22 20 20 20 20  |.Gr0.print("    |
0000f1d0  20 54 4f 20 45 44 49 54  4f 52 2e 20 20 20 20 20  | TO EDITOR.     |
0000f1e0  22 2c 30 2c 31 33 30 29  3a 2a 46 58 32 31 2c 30  |",0,130):*FX21,0|
0000f1f0  0d 47 7c 05 f5 0d 47 86  05 f5 0d 47 90 23 63 6b  |.G|...G....G.#ck|
0000f200  65 79 70 25 3d a7 22 31  32 33 34 35 21 40 23 24  |eyp%=."12345!@#$|
0000f210  25 52 22 2c a4 63 61 70  73 28 be 29 29 0d 47 9a  |%R",.caps(.)).G.|
0000f220  0e fd 20 63 6b 65 79 70  25 3e 30 0d 47 a4 17 e7  |.. ckeyp%>0.G...|
0000f230  20 63 6b 65 79 70 25 3d  31 31 20 8c 20 fd 20 b9  | ckeyp%=11 . . .|
0000f240  3a e1 0d 47 ae 22 e7 20  63 6b 65 79 70 25 3c 36  |:..G.". ckeyp%<6|
0000f250  20 8c 20 f2 65 64 69 74  6e 61 6d 65 28 63 6b 65  | . .editname(cke|
0000f260  79 70 25 29 0d 47 b8 25  e7 20 63 6b 65 79 70 25  |yp%).G.%. ckeyp%|
0000f270  3e 35 20 8c 20 f2 65 64  69 74 73 63 6f 72 65 28  |>5 . .editscore(|
0000f280  63 6b 65 79 70 25 2d 35  29 0d 47 c2 07 fd 20 a3  |ckeyp%-5).G... .|
0000f290  0d 47 cc 05 3a 0d 47 d6  16 dd f2 65 64 69 74 6e  |.G..:.G....editn|
0000f2a0  61 6d 65 28 78 68 6e 75  6d 25 29 0d 47 e0 0c 66  |ame(xhnum%).G..f|
0000f2b0  73 61 76 65 25 3d b9 0d  47 ea 2b f2 70 72 69 6e  |save%=..G.+.prin|
0000f2c0  74 28 22 3e 20 20 20 20  20 20 20 20 20 20 3c 22  |t(">          <"|
0000f2d0  2c 30 2c 31 30 30 30 2d  78 68 6e 75 6d 25 2a 36  |,0,1000-xhnum%*6|
0000f2e0  34 29 0d 47 f4 4b f2 70  75 74 73 74 72 28 a4 70  |4).G.K.putstr(.p|
0000f2f0  61 64 28 a4 69 6e 70 75  74 28 36 34 2c 31 30 30  |ad(.input(64,100|
0000f300  30 2d 78 68 6e 75 6d 25  2a 36 34 2c 33 32 2c 39  |0-xhnum%*64,32,9|
0000f310  30 2c 31 30 29 2c 31 30  29 2c 62 6c 65 76 73 25  |0,10),10),blevs%|
0000f320  2d 36 2b 78 68 6e 75 6d  25 2a 31 30 29 0d 47 fe  |-6+xhnum%*10).G.|
0000f330  42 f2 70 72 69 6e 74 28  a4 67 65 74 6c 6e 73 74  |B.print(.getlnst|
0000f340  72 28 62 6c 65 76 73 25  2d 36 2b 31 30 2a 78 68  |r(blevs%-6+10*xh|
0000f350  6e 75 6d 25 2c 31 30 29  2b 22 20 20 22 2c 30 2c  |num%,10)+"  ",0,|
0000f360  31 30 30 30 2d 78 68 6e  75 6d 25 2a 36 34 29 0d  |1000-xhnum%*64).|
0000f370  48 08 05 e1 0d 48 12 05  3a 0d 48 1c 17 dd f2 65  |H....H..:.H....e|
0000f380  64 69 74 73 63 6f 72 65  28 78 68 6e 75 6d 25 29  |ditscore(xhnum%)|
0000f390  0d 48 26 0c 66 73 61 76  65 25 3d b9 0d 48 30 2b  |.H&.fsave%=..H0+|
0000f3a0  f2 70 72 69 6e 74 28 22  3e 20 20 20 20 20 20 20  |.print(">       |
0000f3b0  20 3c 22 2c 36 34 30 2c  31 30 30 30 2d 78 68 6e  | <",640,1000-xhn|
0000f3c0  75 6d 25 2a 36 34 29 0d  48 3a 3f 21 28 62 6c 65  |um%*64).H:?!(ble|
0000f3d0  76 73 25 2b 35 30 2b 78  68 6e 75 6d 25 2a 34 29  |vs%+50+xhnum%*4)|
0000f3e0  3d bb 28 a4 69 6e 70 75  74 28 37 30 34 2c 31 30  |=.(.input(704,10|
0000f3f0  30 30 2d 78 68 6e 75 6d  25 2a 36 34 2c 34 38 2c  |00-xhnum%*64,48,|
0000f400  35 37 2c 38 29 29 0d 48  44 22 73 73 63 6f 72 24  |57,8)).HD"sscor$|
0000f410  3d c3 28 62 6c 65 76 73  25 21 28 35 30 2b 78 68  |=.(blevs%!(50+xh|
0000f420  6e 75 6d 25 2a 34 29 29  0d 48 4e 2b e6 20 30 20  |num%*4)).HN+. 0 |
0000f430  c8 9c 20 30 3a c8 93 20  c8 90 20 36 34 30 2c 39  |.. 0:.. .. 640,9|
0000f440  34 30 2d 78 68 6e 75 6d  25 2a 36 34 2c 36 34 30  |40-xhnum%*64,640|
0000f450  2c 36 34 0d 48 58 33 f2  70 72 69 6e 74 28 73 73  |,64.HX3.print(ss|
0000f460  63 6f 72 24 2c 31 32 38  30 2d a9 28 73 73 63 6f  |cor$,1280-.(ssco|
0000f470  72 24 29 2a 36 34 2c 31  30 30 30 2d 78 68 6e 75  |r$)*64,1000-xhnu|
0000f480  6d 25 2a 36 34 29 0d 48  62 05 e1 0d 48 6c 05 3a  |m%*64).Hb...Hl.:|
0000f490  0d 48 76 1b dd f2 70 75  74 73 74 72 28 78 70 73  |.Hv...putstr(xps|
0000f4a0  74 72 24 2c 78 70 6d 65  6d 25 29 0d 48 80 1b e3  |tr$,xpmem%).H...|
0000f4b0  20 78 6c 6d 65 6d 25 3d  30 b8 20 a9 28 78 70 73  | xlmem%=0. .(xps|
0000f4c0  74 72 24 29 2d 31 0d 48  8a 28 78 70 6d 65 6d 25  |tr$)-1.H.(xpmem%|
0000f4d0  3f 78 6c 6d 65 6d 25 3d  97 28 c1 78 70 73 74 72  |?xlmem%=.(.xpstr|
0000f4e0  24 2c 78 6c 6d 65 6d 25  2b 31 2c 31 29 29 0d 48  |$,xlmem%+1,1)).H|
0000f4f0  94 05 ed 0d 48 9e 05 e1  0d 48 a8 05 3a 0d 48 b2  |....H....H..:.H.|
0000f500  0d dd f2 6c 65 76 63 6c  69 78 0d 48 bc 2e 72 65  |...levclix.H..re|
0000f510  6c 6d 78 25 3d 28 6d 6f  75 73 78 25 2d 31 38 30  |lmx%=(mousx%-180|
0000f520  29 81 38 3a 72 65 6c 6d  79 25 3d 28 6d 6f 75 73  |).8:relmy%=(mous|
0000f530  79 25 2d 32 30 29 81 38  0d 48 c6 2a 73 71 6e 6f  |y%-20).8.H.*sqno|
0000f540  78 25 3d 72 65 6c 6d 78  25 20 81 37 3a 73 71 6e  |x%=relmx% .7:sqn|
0000f550  6f 79 25 3d 28 31 31 34  2d 72 65 6c 6d 79 25 29  |oy%=(114-relmy%)|
0000f560  81 37 0d 48 d0 27 e7 20  28 72 65 6c 6d 78 25 20  |.7.H.'. (relmx% |
0000f570  83 37 29 3c 33 20 80 20  28 72 65 6c 6d 79 25 20  |.7)<3 . (relmy% |
0000f580  83 37 29 3c 33 20 8c 20  e1 0d 48 da 21 e7 20 28  |.7)<3 . ..H.!. (|
0000f590  72 65 6c 6d 78 25 20 83  37 29 3c 33 20 8c 20 f2  |relmx% .7)<3 . .|
0000f5a0  76 65 72 74 63 6c 69 78  3a e1 0d 48 e4 21 e7 20  |vertclix:..H.!. |
0000f5b0  28 72 65 6c 6d 79 25 20  83 37 29 3c 33 20 8c 20  |(relmy% .7)<3 . |
0000f5c0  f2 68 6f 72 7a 63 6c 69  78 3a e1 0d 48 ee 11 f2  |.horzclix:..H...|
0000f5d0  73 71 75 61 72 65 63 6c  69 78 3a e1 0d 48 f8 05  |squareclix:..H..|
0000f5e0  3a 0d 49 02 0e dd f2 68  6f 72 7a 63 6c 69 78 0d  |:.I....horzclix.|
0000f5f0  49 0c 0c 66 73 61 76 65  25 3d b9 0d 49 16 1b e7  |I..fsave%=..I...|
0000f600  20 28 6d 6f 75 73 62 25  80 32 29 20 8c 20 78 77  | (mousb%.2) . xw|
0000f610  61 6c 6c 25 3d 32 0d 49  20 1b e7 20 28 6d 6f 75  |all%=2.I .. (mou|
0000f620  73 62 25 80 34 29 20 8c  20 78 77 61 6c 6c 25 3d  |sb%.4) . xwall%=|
0000f630  31 0d 49 2a 1b e7 20 28  6d 6f 75 73 62 25 80 31  |1.I*.. (mousb%.1|
0000f640  29 20 8c 20 78 77 61 6c  6c 25 3d 30 0d 49 34 37  |) . xwall%=0.I47|
0000f650  62 6c 65 76 73 25 3f 28  33 30 34 2b 28 76 6c 65  |blevs%?(304+(vle|
0000f660  76 6c 25 2d 31 29 2a 38  33 30 2b 73 71 6e 6f 78  |vl%-1)*830+sqnox|
0000f670  25 2b 73 71 6e 6f 79 25  2a 31 36 29 3d 78 77 61  |%+sqnoy%*16)=xwa|
0000f680  6c 6c 25 0d 49 3e 0f c8  8e 20 78 77 61 6c 6c 25  |ll%.I>... xwall%|
0000f690  20 ca 0d 49 48 54 c9 20  30 3a 20 c8 99 20 22 4f  | ..IHT. 0: .. "O|
0000f6a0  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
0000f6b0  35 36 2c 62 73 70 72 69  25 2c 22 77 61 6c 6c 68  |56,bspri%,"wallh|
0000f6c0  6f 72 69 62 6c 6e 6b 22  2c 73 71 6e 6f 78 25 2a  |oriblnk",sqnox%*|
0000f6d0  35 36 2b 32 30 34 2c 39  31 36 2d 73 71 6e 6f 79  |56+204,916-sqnoy|
0000f6e0  25 2a 35 36 2c 30 0d 49  52 54 c9 20 31 3a 20 c8  |%*56,0.IRT. 1: .|
0000f6f0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
0000f700  33 34 2b 32 35 36 2c 62  73 70 72 69 25 2c 22 77  |34+256,bspri%,"w|
0000f710  61 6c 6c 68 6f 72 69 6d  6f 76 65 22 2c 73 71 6e  |allhorimove",sqn|
0000f720  6f 78 25 2a 35 36 2b 32  30 34 2c 39 31 36 2d 73  |ox%*56+204,916-s|
0000f730  71 6e 6f 79 25 2a 35 36  2c 30 0d 49 5c 54 c9 20  |qnoy%*56,0.I\T. |
0000f740  32 3a 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |2: .. "OS_Sprite|
0000f750  4f 70 22 2c 33 34 2b 32  35 36 2c 62 73 70 72 69  |Op",34+256,bspri|
0000f760  25 2c 22 77 61 6c 6c 68  6f 72 69 73 74 75 6b 22  |%,"wallhoristuk"|
0000f770  2c 73 71 6e 6f 78 25 2a  35 36 2b 32 30 34 2c 39  |,sqnox%*56+204,9|
0000f780  31 36 2d 73 71 6e 6f 79  25 2a 35 36 2c 30 0d 49  |16-sqnoy%*56,0.I|
0000f790  66 05 cb 0d 49 70 05 e1  0d 49 7a 05 3a 0d 49 84  |f...Ip...Iz.:.I.|
0000f7a0  0e dd f2 76 65 72 74 63  6c 69 78 0d 49 8e 0c 66  |...vertclix.I..f|
0000f7b0  73 61 76 65 25 3d b9 0d  49 98 1b e7 20 28 6d 6f  |save%=..I... (mo|
0000f7c0  75 73 62 25 80 32 29 20  8c 20 78 77 61 6c 6c 25  |usb%.2) . xwall%|
0000f7d0  3d 32 0d 49 a2 1b e7 20  28 6d 6f 75 73 62 25 80  |=2.I... (mousb%.|
0000f7e0  34 29 20 8c 20 78 77 61  6c 6c 25 3d 31 0d 49 ac  |4) . xwall%=1.I.|
0000f7f0  1b e7 20 28 6d 6f 75 73  62 25 80 31 29 20 8c 20  |.. (mousb%.1) . |
0000f800  78 77 61 6c 6c 25 3d 30  0d 49 b6 37 62 6c 65 76  |xwall%=0.I.7blev|
0000f810  73 25 3f 28 35 37 36 2b  28 76 6c 65 76 6c 25 2d  |s%?(576+(vlevl%-|
0000f820  31 29 2a 38 33 30 2b 73  71 6e 6f 79 25 2b 73 71  |1)*830+sqnoy%+sq|
0000f830  6e 6f 78 25 2a 31 36 29  3d 78 77 61 6c 6c 25 0d  |nox%*16)=xwall%.|
0000f840  49 c0 0f c8 8e 20 78 77  61 6c 6c 25 20 ca 0d 49  |I.... xwall% ..I|
0000f850  ca 54 c9 20 30 3a 20 c8  99 20 22 4f 53 5f 53 70  |.T. 0: .. "OS_Sp|
0000f860  72 69 74 65 4f 70 22 2c  33 34 2b 32 35 36 2c 62  |riteOp",34+256,b|
0000f870  73 70 72 69 25 2c 22 77  61 6c 6c 76 65 72 74 62  |spri%,"wallvertb|
0000f880  6c 6e 6b 22 2c 73 71 6e  6f 78 25 2a 35 36 2b 31  |lnk",sqnox%*56+1|
0000f890  38 30 2c 38 38 34 2d 73  71 6e 6f 79 25 2a 35 36  |80,884-sqnoy%*56|
0000f8a0  2c 30 0d 49 d4 54 c9 20  31 3a 20 c8 99 20 22 4f  |,0.I.T. 1: .. "O|
0000f8b0  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
0000f8c0  35 36 2c 62 73 70 72 69  25 2c 22 77 61 6c 6c 76  |56,bspri%,"wallv|
0000f8d0  65 72 74 6d 6f 76 65 22  2c 73 71 6e 6f 78 25 2a  |ertmove",sqnox%*|
0000f8e0  35 36 2b 31 38 30 2c 38  38 34 2d 73 71 6e 6f 79  |56+180,884-sqnoy|
0000f8f0  25 2a 35 36 2c 30 0d 49  de 54 c9 20 32 3a 20 c8  |%*56,0.I.T. 2: .|
0000f900  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
0000f910  33 34 2b 32 35 36 2c 62  73 70 72 69 25 2c 22 77  |34+256,bspri%,"w|
0000f920  61 6c 6c 76 65 72 74 73  74 75 6b 22 2c 73 71 6e  |allvertstuk",sqn|
0000f930  6f 78 25 2a 35 36 2b 31  38 30 2c 38 38 34 2d 73  |ox%*56+180,884-s|
0000f940  71 6e 6f 79 25 2a 35 36  2c 30 0d 49 e8 05 cb 0d  |qnoy%*56,0.I....|
0000f950  49 f2 05 e1 0d 49 fc 05  3a 0d 4a 06 10 dd f2 73  |I....I..:.J....s|
0000f960  71 75 61 72 65 63 6c 69  78 0d 4a 10 0c 66 73 61  |quareclix.J..fsa|
0000f970  76 65 25 3d b9 0d 4a 1a  2f e7 20 6d 6f 75 73 62  |ve%=..J./. mousb|
0000f980  25 3d 31 20 8c 20 78 6f  62 6a 6e 25 3d 30 20 8b  |%=1 . xobjn%=0 .|
0000f990  20 78 6f 62 6a 6e 25 3d  a4 62 74 64 28 62 6f 78  | xobjn%=.btd(box|
0000f9a0  75 70 25 29 0d 4a 24 10  e7 20 62 6f 78 75 70 25  |up%).J$.. boxup%|
0000f9b0  3d 37 20 8c 0d 4a 2e 23  c8 94 20 62 6c 65 76 73  |=7 ..J.#.. blevs|
0000f9c0  25 3f 28 32 36 34 2b 32  2a 76 6c 65 76 6c 25 29  |%?(264+2*vlevl%)|
0000f9d0  2c 73 71 6e 6f 78 25 0d  4a 38 23 c8 94 20 62 6c  |,sqnox%.J8#.. bl|
0000f9e0  65 76 73 25 3f 28 32 36  35 2b 32 2a 76 6c 65 76  |evs%?(265+2*vlev|
0000f9f0  6c 25 29 2c 73 71 6e 6f  79 25 0d 4a 42 37 78 6f  |l%),sqnoy%.JB7xo|
0000fa00  62 6a 6e 25 3d 62 6c 65  76 73 25 3f 28 38 34 38  |bjn%=blevs%?(848|
0000fa10  2b 28 76 6c 65 76 6c 25  2d 31 29 2a 38 33 30 2b  |+(vlevl%-1)*830+|
0000fa20  31 36 2a 73 71 6e 6f 79  25 2b 73 71 6e 6f 78 25  |16*sqnoy%+sqnox%|
0000fa30  29 0d 4a 4c 05 cc 0d 4a  56 2d e7 20 62 6f 78 75  |).JL...JV-. boxu|
0000fa40  70 25 3d 35 20 84 20 62  6f 78 75 70 25 3d 36 20  |p%=5 . boxup%=6 |
0000fa50  8c 20 78 6f 62 6a 6e 25  2b 3d 62 6f 78 64 6e 25  |. xobjn%+=boxdn%|
0000fa60  2a 31 36 0d 4a 60 37 62  6c 65 76 73 25 3f 28 38  |*16.J`7blevs%?(8|
0000fa70  34 38 2b 28 76 6c 65 76  6c 25 2d 31 29 2a 38 33  |48+(vlevl%-1)*83|
0000fa80  30 2b 31 36 2a 73 71 6e  6f 79 25 2b 73 71 6e 6f  |0+16*sqnoy%+sqno|
0000fa90  78 25 29 3d 78 6f 62 6a  6e 25 0d 4a 6a 05 cd 0d  |x%)=xobjn%.Jj...|
0000faa0  4a 74 1d c8 8e 20 28 78  6f 62 6a 6e 25 20 80 20  |Jt... (xobjn% . |
0000fab0  25 30 30 30 30 31 31 31  31 29 20 ca 0d 4a 7e 4f  |%00001111) ..J~O|
0000fac0  c9 20 30 3a 20 c8 99 20  22 4f 53 5f 53 70 72 69  |. 0: .. "OS_Spri|
0000fad0  74 65 4f 70 22 2c 33 34  2b 32 35 36 2c 62 73 70  |teOp",34+256,bsp|
0000fae0  72 69 25 2c 22 73 71 62  6c 61 6e 6b 22 2c 73 71  |ri%,"sqblank",sq|
0000faf0  6e 6f 78 25 2a 35 36 2b  32 30 34 2c 38 38 34 2d  |nox%*56+204,884-|
0000fb00  73 71 6e 6f 79 25 2a 35  36 2c 30 0d 4a 88 4e c9  |sqnoy%*56,0.J.N.|
0000fb10  20 31 3a 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  | 1: .. "OS_Sprit|
0000fb20  65 4f 70 22 2c 33 34 2b  32 35 36 2c 62 73 70 72  |eOp",34+256,bspr|
0000fb30  69 25 2c 22 73 71 62 6f  6d 62 22 2c 73 71 6e 6f  |i%,"sqbomb",sqno|
0000fb40  78 25 2a 35 36 2b 32 30  34 2c 38 38 34 2d 73 71  |x%*56+204,884-sq|
0000fb50  6e 6f 79 25 2a 35 36 2c  30 0d 4a 92 4e c9 20 32  |noy%*56,0.J.N. 2|
0000fb60  3a 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |: .. "OS_SpriteO|
0000fb70  70 22 2c 33 34 2b 32 35  36 2c 62 73 70 72 69 25  |p",34+256,bspri%|
0000fb80  2c 22 73 71 6d 69 6e 65  22 2c 73 71 6e 6f 78 25  |,"sqmine",sqnox%|
0000fb90  2a 35 36 2b 32 30 34 2c  38 38 34 2d 73 71 6e 6f  |*56+204,884-sqno|
0000fba0  79 25 2a 35 36 2c 30 0d  4a 9c b3 c9 20 33 3a 20  |y%*56,0.J... 3: |
0000fbb0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
0000fbc0  2c 33 34 2b 32 35 36 2c  62 73 70 72 69 25 2c 22  |,34+256,bspri%,"|
0000fbd0  73 71 74 72 61 6e 73 70  6f 72 74 22 2c 73 71 6e  |sqtransport",sqn|
0000fbe0  6f 78 25 2a 35 36 2b 32  30 34 2c 38 38 34 2d 73  |ox%*56+204,884-s|
0000fbf0  71 6e 6f 79 25 2a 35 36  2c 30 3a c8 99 20 22 4f  |qnoy%*56,0:.. "O|
0000fc00  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
0000fc10  35 36 2c 62 73 70 72 69  25 2c 22 6f 76 65 72 22  |56,bspri%,"over"|
0000fc20  2b c3 7e 28 28 78 6f 62  6a 6e 25 20 80 20 25 31  |+.~((xobjn% . %1|
0000fc30  31 31 31 30 30 30 30 29  3e 3e 34 29 2c 73 71 6e  |1110000)>>4),sqn|
0000fc40  6f 78 25 2a 35 36 2b 32  30 34 2c 38 38 34 2d 73  |ox%*56+204,884-s|
0000fc50  71 6e 6f 79 25 2a 35 36  2c 38 0d 4a a6 4f c9 20  |qnoy%*56,8.J.O. |
0000fc60  34 3a 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |4: .. "OS_Sprite|
0000fc70  4f 70 22 2c 33 34 2b 32  35 36 2c 62 73 70 72 69  |Op",34+256,bspri|
0000fc80  25 2c 22 73 71 62 6c 6f  63 6b 22 2c 73 71 6e 6f  |%,"sqblock",sqno|
0000fc90  78 25 2a 35 36 2b 32 30  34 2c 38 38 34 2d 73 71  |x%*56+204,884-sq|
0000fca0  6e 6f 79 25 2a 35 36 2c  30 0d 4a b0 b2 c9 20 35  |noy%*56,0.J... 5|
0000fcb0  3a 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |: .. "OS_SpriteO|
0000fcc0  70 22 2c 33 34 2b 32 35  36 2c 62 73 70 72 69 25  |p",34+256,bspri%|
0000fcd0  2c 22 73 71 72 65 63 65  69 76 65 72 22 2c 73 71  |,"sqreceiver",sq|
0000fce0  6e 6f 78 25 2a 35 36 2b  32 30 34 2c 38 38 34 2d  |nox%*56+204,884-|
0000fcf0  73 71 6e 6f 79 25 2a 35  36 2c 30 3a c8 99 20 22  |sqnoy%*56,0:.. "|
0000fd00  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 33 34 2b  |OS_SpriteOp",34+|
0000fd10  32 35 36 2c 62 73 70 72  69 25 2c 22 6f 76 65 72  |256,bspri%,"over|
0000fd20  22 2b c3 7e 28 28 78 6f  62 6a 6e 25 20 80 20 25  |"+.~((xobjn% . %|
0000fd30  31 31 31 31 30 30 30 30  29 3e 3e 34 29 2c 73 71  |11110000)>>4),sq|
0000fd40  6e 6f 78 25 2a 35 36 2b  32 30 34 2c 38 38 34 2d  |nox%*56+204,884-|
0000fd50  73 71 6e 6f 79 25 2a 35  36 2c 38 0d 4a ba 4f c9  |sqnoy%*56,8.J.O.|
0000fd60  20 36 3a 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  | 6: .. "OS_Sprit|
0000fd70  65 4f 70 22 2c 33 34 2b  32 35 36 2c 62 73 70 72  |eOp",34+256,bspr|
0000fd80  69 25 2c 22 73 71 62 6f  6e 75 73 22 2c 73 71 6e  |i%,"sqbonus",sqn|
0000fd90  6f 78 25 2a 35 36 2b 32  30 34 2c 38 38 34 2d 73  |ox%*56+204,884-s|
0000fda0  71 6e 6f 79 25 2a 35 36  2c 30 0d 4a c4 05 cb 0d  |qnoy%*56,0.J....|
0000fdb0  4a ce 6e c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |J.n.. "OS_Sprite|
0000fdc0  4f 70 22 2c 33 34 2b 32  35 36 2c 62 73 70 72 69  |Op",34+256,bspri|
0000fdd0  25 2c 22 6f 76 65 72 73  74 61 72 74 22 2c 28 62  |%,"overstart",(b|
0000fde0  6c 65 76 73 25 3f 28 32  36 34 2b 32 2a 76 6c 65  |levs%?(264+2*vle|
0000fdf0  76 6c 25 29 29 2a 35 36  2b 32 30 34 2c 38 38 34  |vl%))*56+204,884|
0000fe00  2d 28 62 6c 65 76 73 25  3f 28 32 36 35 2b 32 2a  |-(blevs%?(265+2*|
0000fe10  76 6c 65 76 6c 25 29 29  2a 35 36 2c 38 0d 4a d8  |vlevl%))*56,8.J.|
0000fe20  05 e1 0d 4a e2 05 3a 0d  4a ec 11 dd a4 62 74 64  |...J..:.J....btd|
0000fe30  28 78 6e 75 6d 62 25 29  0d 4a f6 11 c8 8e 20 28  |(xnumb%).J.... (|
0000fe40  78 6e 75 6d 62 25 29 20  ca 0d 4b 00 0b c9 20 30  |xnumb%) ..K... 0|
0000fe50  3a 20 3d 30 0d 4b 0a 0b  c9 20 31 3a 20 3d 31 0d  |: =0.K... 1: =1.|
0000fe60  4b 14 0b c9 20 32 3a 20  3d 32 0d 4b 1e 0b c9 20  |K... 2: =2.K... |
0000fe70  33 3a 20 3d 34 0d 4b 28  0b c9 20 34 3a 20 3d 36  |3: =4.K(.. 4: =6|
0000fe80  0d 4b 32 0b c9 20 35 3a  20 3d 33 0d 4b 3c 0b c9  |.K2.. 5: =3.K<..|
0000fe90  20 36 3a 20 3d 35 0d 4b  46 05 cb 0d 4b 50 07 3d  | 6: =5.KF...KP.=|
0000fea0  2d 31 0d 4b 5a 05 3a 0d  4b 64 0b dd f2 73 65 6c  |-1.KZ.:.Kd...sel|
0000feb0  6e 6f 0d 4b 6e 4f c8 99  20 22 4f 53 5f 53 70 72  |no.KnO.. "OS_Spr|
0000fec0  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 62 73  |iteOp",256+34,bs|
0000fed0  70 72 69 25 2c 22 62 6f  78 6e 22 2c 28 62 6f 78  |pri%,"boxn",(box|
0000fee0  64 6e 25 20 83 20 34 29  2a 34 34 2c 34 35 32 2d  |dn% . 4)*44,452-|
0000fef0  28 62 6f 78 64 6e 25 20  81 20 34 29 2a 34 34 2c  |(boxdn% . 4)*44,|
0000ff00  38 0d 4b 78 50 62 6f 78  64 6e 25 3d 28 28 6d 6f  |8.KxPboxdn%=((mo|
0000ff10  75 73 78 25 2d 34 29 2f  34 34 29 2b 28 28 6d 6f  |usx%-4)/44)+((mo|
0000ff20  75 73 79 25 3c 34 35 36  29 2a 2d 34 29 2b 28 28  |usy%<456)*-4)+((|
0000ff30  6d 6f 75 73 79 25 3c 34  30 38 29 2a 2d 34 29 2b  |mousy%<408)*-4)+|
0000ff40  28 28 6d 6f 75 73 79 25  3c 33 36 38 29 2a 2d 34  |((mousy%<368)*-4|
0000ff50  29 0d 4b 82 05 e1 0d 4b  8c 05 3a 0d 4b 96 0c dd  |).K....K..:.K...|
0000ff60  f2 73 65 6c 6f 62 6a 0d  4b a0 4f c8 99 20 22 4f  |.selobj.K.O.. "O|
0000ff70  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
0000ff80  33 34 2c 62 73 70 72 69  25 2c 22 62 6f 78 6e 22  |34,bspri%,"boxn"|
0000ff90  2c 28 62 6f 78 75 70 25  20 83 20 34 29 2a 34 34  |,(boxup% . 4)*44|
0000ffa0  2c 35 35 34 2d 28 62 6f  78 75 70 25 20 81 20 34  |,554-(boxup% . 4|
0000ffb0  29 2a 34 34 2c 38 0d 4b  aa 2c 62 6f 78 75 70 25  |)*44,8.K.,boxup%|
0000ffc0  3d 28 28 6d 6f 75 73 78  25 2d 34 29 2f 34 34 29  |=((mousx%-4)/44)|
0000ffd0  2b 28 28 6d 6f 75 73 79  25 3c 35 35 34 29 2a 2d  |+((mousy%<554)*-|
0000ffe0  34 29 0d 4b b4 1b e7 20  62 6f 78 75 70 25 3d 35  |4).K... boxup%=5|
0000fff0  20 84 20 62 6f 78 75 70  25 3d 36 20 8c 0d 4b be  | . boxup%=6 ..K.|
00010000  50 e7 20 62 6f 78 64 6e  25 3d 2d 31 20 8c 20 62  |P. boxdn%=-1 . b|
00010010  6f 78 64 6e 25 3d 30 3a  c8 99 20 22 4f 53 5f 53  |oxdn%=0:.. "OS_S|
00010020  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 33 34 2c  |priteOp",256+34,|
00010030  62 73 70 72 69 25 2c 22  65 64 69 74 6e 75 6d 62  |bspri%,"editnumb|
00010040  65 72 73 79 22 2c 30 2c  33 32 30 2c 30 0d 4b c8  |ersy",0,320,0.K.|
00010050  53 cc 20 e7 20 62 6f 78  64 6e 25 3e 2d 31 20 8c  |S. . boxdn%>-1 .|
00010060  20 62 6f 78 64 6e 25 3d  2d 31 3a c8 99 20 22 4f  | boxdn%=-1:.. "O|
00010070  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00010080  33 34 2c 62 73 70 72 69  25 2c 22 65 64 69 74 6e  |34,bspri%,"editn|
00010090  75 6d 62 65 72 73 6e 22  2c 30 2c 33 32 30 2c 30  |umbersn",0,320,0|
000100a0  0d 4b d2 05 cd 0d 4b dc  05 e1 0d 4b e6 05 3a 0d  |.K....K....K..:.|
000100b0  4b f0 0d dd f2 61 6e 69  6d 62 6f 78 0d 4b fa 17  |K....animbox.K..|
000100c0  62 6f 78 61 6e 25 3d 62  6f 78 61 6e 25 20 83 34  |boxan%=boxan% .4|
000100d0  20 2b 31 0d 4c 04 59 c8  99 20 22 4f 53 5f 53 70  | +1.L.Y.. "OS_Sp|
000100e0  72 69 74 65 4f 70 22 2c  32 35 36 2b 33 34 2c 62  |riteOp",256+34,b|
000100f0  73 70 72 69 25 2c 22 62  6f 78 79 22 2b c3 28 62  |spri%,"boxy"+.(b|
00010100  6f 78 61 6e 25 29 2c 28  62 6f 78 75 70 25 20 83  |oxan%),(boxup% .|
00010110  20 34 29 2a 34 34 2c 35  35 34 2d 28 62 6f 78 75  | 4)*44,554-(boxu|
00010120  70 25 20 81 20 34 29 2a  34 34 2c 38 0d 4c 0e 13  |p% . 4)*44,8.L..|
00010130  e7 20 62 6f 78 64 6e 25  3d 2d 31 20 8c 20 e1 0d  |. boxdn%=-1 . ..|
00010140  4c 18 59 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |L.Y.. "OS_Sprite|
00010150  4f 70 22 2c 32 35 36 2b  33 34 2c 62 73 70 72 69  |Op",256+34,bspri|
00010160  25 2c 22 62 6f 78 79 22  2b c3 28 62 6f 78 61 6e  |%,"boxy"+.(boxan|
00010170  25 29 2c 28 62 6f 78 64  6e 25 20 83 20 34 29 2a  |%),(boxdn% . 4)*|
00010180  34 34 2c 34 35 32 2d 28  62 6f 78 64 6e 25 20 81  |44,452-(boxdn% .|
00010190  20 34 29 2a 34 34 2c 38  0d 4c 22 05 e1 0d 4c 2c  | 4)*44,8.L"...L,|
000101a0  05 3a 0d 4c 36 0d dd f2  6e 65 78 74 70 74 72 0d  |.:.L6...nextptr.|
000101b0  4c 40 3c c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |L@<.. "OS_Sprite|
000101c0  4f 70 22 2c 32 35 36 2b  33 36 2c 62 73 70 72 69  |Op",256+36,bspri|
000101d0  25 2c 22 70 74 72 5f 62  6f 6d 62 5f 22 2b c3 76  |%,"ptr_bomb_"+.v|
000101e0  70 74 72 6e 25 2c 31 2c  30 2c 31 0d 4c 4a 17 76  |ptrn%,1,0,1.LJ.v|
000101f0  70 74 72 6e 25 3d 76 70  74 72 6e 25 20 83 36 20  |ptrn%=vptrn% .6 |
00010200  2b 31 0d 4c 54 05 e1 0d  4c 5e 05 3a 0d 4c 68 0e  |+1.LT...L^.:.Lh.|
00010210  dd a4 65 64 69 74 63 6f  64 65 0d 4c 72 28 f2 70  |..editcode.Lr(.p|
00010220  72 69 6e 74 28 22 50 4c  45 41 53 45 20 49 4e 50  |rint("PLEASE INP|
00010230  55 54 20 54 48 45 20 20  20 20 22 2c 30 2c 35 30  |UT THE    ",0,50|
00010240  30 29 0d 4c 7c 28 f2 70  72 69 6e 74 28 22 45 44  |0).L|(.print("ED|
00010250  49 54 20 43 4f 44 45 20  46 4f 52 20 54 48 49 53  |IT CODE FOR THIS|
00010260  20 20 22 2c 30 2c 34 33  36 29 0d 4c 86 28 f2 70  |  ",0,436).L.(.p|
00010270  72 69 6e 74 28 22 53 45  54 20 4f 46 20 4c 45 56  |rint("SET OF LEV|
00010280  45 4c 53 2e 20 20 20 20  20 20 22 2c 30 2c 33 37  |ELS.      ",0,37|
00010290  32 29 0d 4c 90 28 f2 70  72 69 6e 74 28 22 20 20  |2).L.(.print("  |
000102a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000102b0  20 20 22 2c 30 2c 33 30  38 29 0d 4c 9a 28 f2 70  |  ",0,308).L.(.p|
000102c0  72 69 6e 74 28 22 20 20  20 20 3e 20 20 20 20 20  |rint("    >     |
000102d0  20 20 20 20 20 3c 20 20  20 20 22 2c 30 2c 32 34  |     <    ",0,24|
000102e0  34 29 0d 4c a4 43 e7 20  28 a4 70 61 64 28 a4 69  |4).L.C. (.pad(.i|
000102f0  6e 70 75 74 28 33 32 30  2c 32 34 34 2c 33 32 2c  |nput(320,244,32,|
00010300  39 30 2c 31 30 29 2c 31  30 29 3d a4 67 65 74 6c  |90,10),10)=.getl|
00010310  6e 73 74 72 28 62 6c 65  76 73 25 2b 39 36 2c 31  |nstr(blevs%+96,1|
00010320  30 29 29 20 8c 0d 4c ae  28 f2 70 72 69 6e 74 28  |0)) ..L.(.print(|
00010330  22 20 20 20 20 3c 20 43  4f 52 52 45 43 54 21 20  |"    < CORRECT! |
00010340  3e 20 20 20 20 22 2c 30  2c 32 34 34 29 0d 4c b8  |>    ",0,244).L.|
00010350  0d f2 77 61 69 74 28 32  30 29 0d 4c c2 06 3d a3  |..wait(20).L..=.|
00010360  0d 4c cc 05 cc 0d 4c d6  28 f2 70 72 69 6e 74 28  |.L....L.(.print(|
00010370  22 20 20 20 20 3c 20 20  57 52 4f 4e 47 21 20 20  |"    <  WRONG!  |
00010380  3e 20 20 20 20 22 2c 30  2c 32 34 34 29 0d 4c e0  |>    ",0,244).L.|
00010390  0d f2 77 61 69 74 28 32  30 29 0d 4c ea 06 3d b9  |..wait(20).L..=.|
000103a0  0d 4c f4 05 cd 0d 4c fe  05 3a 0d 4d 08 2f dd a4  |.L....L..:.M./..|
000103b0  69 6e 70 75 74 28 78 70  6f 73 78 25 2c 78 70 6f  |input(xposx%,xpo|
000103c0  73 79 25 2c 78 6d 69 6e  63 25 2c 78 6d 61 78 63  |sy%,xminc%,xmaxc|
000103d0  25 2c 78 6c 65 6e 73 25  29 0d 4d 12 15 78 73 6f  |%,xlens%).M..xso|
000103e0  75 74 24 3d 22 22 3a 2a  46 58 32 31 2c 30 0d 4d  |ut$="":*FX21,0.M|
000103f0  1c 05 f5 0d 4d 26 11 6b  65 79 5f 6b 6c 75 64 67  |....M&.key_kludg|
00010400  65 25 3d a5 0d 4d 30 37  e7 20 6b 65 79 5f 6b 6c  |e%=..M07. key_kl|
00010410  75 64 67 65 25 3e 28 97  28 22 61 22 29 2d 31 29  |udge%>(.("a")-1)|
00010420  20 80 20 6b 65 79 5f 6b  6c 75 64 67 65 25 3c 28  | . key_kludge%<(|
00010430  97 28 22 7a 22 29 2b 31  29 20 8c 0d 4d 3a 1d 20  |.("z")+1) ..M:. |
00010440  78 63 6b 65 79 24 3d bd  28 6b 65 79 5f 6b 6c 75  |xckey$=.(key_klu|
00010450  64 67 65 25 2d 33 32 29  0d 4d 44 05 cc 0d 4d 4e  |dge%-32).MD...MN|
00010460  1a 20 78 63 6b 65 79 24  3d bd 28 6b 65 79 5f 6b  |. xckey$=.(key_k|
00010470  6c 75 64 67 65 25 29 0d  4d 58 05 cd 0d 4d 62 89  |ludge%).MX...Mb.|
00010480  e7 20 28 78 63 6b 65 79  24 3d bd 31 32 37 20 84  |. (xckey$=.127 .|
00010490  20 78 63 6b 65 79 24 3d  bd 38 29 20 80 20 a9 28  | xckey$=.8) . .(|
000104a0  78 73 6f 75 74 24 29 3e  30 20 8c 20 78 73 6f 75  |xsout$)>0 . xsou|
000104b0  74 24 3d c0 78 73 6f 75  74 24 2c a9 28 78 73 6f  |t$=.xsout$,.(xso|
000104c0  75 74 24 29 2d 31 29 3a  41 25 3d 33 32 3a 42 25  |ut$)-1):A%=32:B%|
000104d0  3d 78 70 6f 73 78 25 2f  34 2b a9 28 78 73 6f 75  |=xposx%/4+.(xsou|
000104e0  74 24 29 2a 31 36 3a 43  25 3d 28 31 30 32 30 2d  |t$)*16:C%=(1020-|
000104f0  78 70 6f 73 79 25 29 2f  34 3a d6 20 65 70 73 6d  |xposy%)/4:. epsm|
00010500  6c 3a fd 20 a3 0d 4d 6c  1e e7 20 78 63 6b 65 79  |l:. ..Ml.. xckey|
00010510  24 3d bd 31 33 20 8c 20  fd 20 b9 3a 3d 78 73 6f  |$=.13 . . .:=xso|
00010520  75 74 24 0d 4d 76 5c e7  20 97 28 78 63 6b 65 79  |ut$.Mv\. .(xckey|
00010530  24 29 3c 78 6d 69 6e 63  25 20 84 20 97 28 78 63  |$)<xminc% . .(xc|
00010540  6b 65 79 24 29 3e 78 6d  61 78 63 25 20 84 20 a9  |key$)>xmaxc% . .|
00010550  28 78 73 6f 75 74 24 29  3d 78 6c 65 6e 73 25 20  |(xsout$)=xlens% |
00010560  84 20 78 63 6b 65 79 24  3d bd 31 32 37 20 84 20  |. xckey$=.127 . |
00010570  78 63 6b 65 79 24 3d bd  38 20 8c 20 fd 20 a3 0d  |xckey$=.8 . . ..|
00010580  4d 80 10 41 25 3d 97 28  78 63 6b 65 79 24 29 0d  |M..A%=.(xckey$).|
00010590  4d 8a 1c 42 25 3d 78 70  6f 73 78 25 2f 34 2b a9  |M..B%=xposx%/4+.|
000105a0  28 78 73 6f 75 74 24 29  2a 31 36 0d 4d 94 1e 43  |(xsout$)*16.M..C|
000105b0  25 3d 28 31 30 32 30 2d  78 70 6f 73 79 25 29 2f  |%=(1020-xposy%)/|
000105c0  34 3a d6 20 65 70 73 6d  6c 0d 4d 9e 12 78 73 6f  |4:. epsml.M..xso|
000105d0  75 74 24 2b 3d 78 63 6b  65 79 24 0d 4d a8 07 fd  |ut$+=xckey$.M...|
000105e0  20 a3 0d 4d b2 05 3a 0d  4d bc 18 dd a4 70 61 64  | ..M..:.M....pad|
000105f0  28 78 73 74 72 69 24 2c  78 6c 65 6e 73 25 29 0d  |(xstri$,xlens%).|
00010600  4d c6 22 3d 78 73 74 72  69 24 2b c4 78 6c 65 6e  |M."=xstri$+.xlen|
00010610  73 25 2d a9 28 78 73 74  72 69 24 29 2c bd 33 32  |s%-.(xstri$),.32|
00010620  29 0d 4d d0 05 3a 0d 4d  da 16 dd f2 70 72 69 6e  |).M..:.M....prin|
00010630  74 6d 61 70 28 66 70 72  6e 6f 25 29 0d 4d e4 0c  |tmap(fprno%).M..|
00010640  62 6f 6d 6e 6f 25 3d 30  0d 4d ee 31 c8 99 20 22  |bomno%=0.M.1.. "|
00010650  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00010660  2b 36 30 2c 62 73 70 72  69 25 2c 22 53 70 72 69  |+60,bspri%,"Spri|
00010670  74 65 4f 70 36 30 22 2c  30 0d 4d f8 05 db 0d 4e  |teOp60",0.M....N|
00010680  02 11 e3 20 78 6c 6d 64  79 25 3d 30 b8 31 36 0d  |... xlmdy%=0.16.|
00010690  4e 0c 11 e3 20 78 6c 6d  64 78 25 3d 30 b8 31 36  |N... xlmdx%=0.16|
000106a0  0d 4e 16 4b c8 99 20 22  4f 53 5f 53 70 72 69 74  |.N.K.. "OS_Sprit|
000106b0  65 4f 70 22 2c 33 34 2b  32 35 36 2c 62 73 70 72  |eOp",34+256,bspr|
000106c0  69 25 2c 22 4d 69 64 64  6c 65 42 69 74 22 2c 78  |i%,"MiddleBit",x|
000106d0  6c 6d 64 78 25 2a 35 36  2b 31 38 30 2c 78 6c 6d  |lmdx%*56+180,xlm|
000106e0  64 79 25 2a 35 36 2b 32  30 2c 30 0d 4e 20 07 ed  |dy%*56+20,0.N ..|
000106f0  3a ed 0d 4e 2a 24 78 70  6c 65 76 25 3d 62 6c 65  |:..N*$xplev%=ble|
00010700  76 73 25 2b 33 30 34 2b  28 76 6c 65 76 6c 25 2d  |vs%+304+(vlevl%-|
00010710  31 29 2a 38 33 30 0d 4e  34 11 e3 20 78 6c 68 7a  |1)*830.N4.. xlhz|
00010720  79 25 3d 30 b8 31 36 0d  4e 3e 11 e3 20 78 6c 68  |y%=0.16.N>.. xlh|
00010730  7a 78 25 3d 30 b8 31 35  0d 4e 48 10 c8 8e 20 3f  |zx%=0.15.NH... ?|
00010740  78 70 6c 65 76 25 20 ca  0d 4e 52 54 c9 20 31 3a  |xplev% ..NRT. 1:|
00010750  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00010760  22 2c 33 34 2b 32 35 36  2c 62 73 70 72 69 25 2c  |",34+256,bspri%,|
00010770  22 77 61 6c 6c 68 6f 72  69 6d 6f 76 65 22 2c 78  |"wallhorimove",x|
00010780  6c 68 7a 78 25 2a 35 36  2b 32 30 34 2c 39 31 36  |lhzx%*56+204,916|
00010790  2d 78 6c 68 7a 79 25 2a  35 36 2c 30 0d 4e 5c 54  |-xlhzy%*56,0.N\T|
000107a0  c9 20 32 3a 20 c8 99 20  22 4f 53 5f 53 70 72 69  |. 2: .. "OS_Spri|
000107b0  74 65 4f 70 22 2c 33 34  2b 32 35 36 2c 62 73 70  |teOp",34+256,bsp|
000107c0  72 69 25 2c 22 77 61 6c  6c 68 6f 72 69 73 74 75  |ri%,"wallhoristu|
000107d0  6b 22 2c 78 6c 68 7a 78  25 2a 35 36 2b 32 30 34  |k",xlhzx%*56+204|
000107e0  2c 39 31 36 2d 78 6c 68  7a 79 25 2a 35 36 2c 30  |,916-xlhzy%*56,0|
000107f0  0d 4e 66 05 cb 0d 4e 70  11 78 70 6c 65 76 25 2b  |.Nf...Np.xplev%+|
00010800  3d 31 3a ed 3a ed 0d 4e  7a 11 e3 20 78 6c 76 74  |=1:.:..Nz.. xlvt|
00010810  78 25 3d 30 b8 31 36 0d  4e 84 11 e3 20 78 6c 76  |x%=0.16.N... xlv|
00010820  74 79 25 3d 30 b8 31 35  0d 4e 8e 10 c8 8e 20 3f  |ty%=0.15.N.... ?|
00010830  78 70 6c 65 76 25 20 ca  0d 4e 98 54 c9 20 31 3a  |xplev% ..N.T. 1:|
00010840  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00010850  22 2c 33 34 2b 32 35 36  2c 62 73 70 72 69 25 2c  |",34+256,bspri%,|
00010860  22 77 61 6c 6c 76 65 72  74 6d 6f 76 65 22 2c 78  |"wallvertmove",x|
00010870  6c 76 74 78 25 2a 35 36  2b 31 38 30 2c 38 38 34  |lvtx%*56+180,884|
00010880  2d 78 6c 76 74 79 25 2a  35 36 2c 30 0d 4e a2 54  |-xlvty%*56,0.N.T|
00010890  c9 20 32 3a 20 c8 99 20  22 4f 53 5f 53 70 72 69  |. 2: .. "OS_Spri|
000108a0  74 65 4f 70 22 2c 33 34  2b 32 35 36 2c 62 73 70  |teOp",34+256,bsp|
000108b0  72 69 25 2c 22 77 61 6c  6c 76 65 72 74 73 74 75  |ri%,"wallvertstu|
000108c0  6b 22 2c 78 6c 76 74 78  25 2a 35 36 2b 31 38 30  |k",xlvtx%*56+180|
000108d0  2c 38 38 34 2d 78 6c 76  74 79 25 2a 35 36 2c 30  |,884-xlvty%*56,0|
000108e0  0d 4e ac 05 cb 0d 4e b6  11 78 70 6c 65 76 25 2b  |.N....N..xplev%+|
000108f0  3d 31 3a ed 3a ed 0d 4e  c0 11 e3 20 78 6c 73 71  |=1:.:..N... xlsq|
00010900  79 25 3d 30 b8 31 35 0d  4e ca 11 e3 20 78 6c 73  |y%=0.15.N... xls|
00010910  71 78 25 3d 30 b8 31 35  0d 4e d4 1e c8 8e 20 28  |qx%=0.15.N.... (|
00010920  3f 78 70 6c 65 76 25 20  80 20 25 30 30 30 30 31  |?xplev% . %00001|
00010930  31 31 31 29 20 ca 0d 4e  de 58 c9 20 31 3a 20 c8  |111) ..N.X. 1: .|
00010940  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00010950  33 34 2b 32 35 36 2c 62  73 70 72 69 25 2c 22 73  |34+256,bspri%,"s|
00010960  71 62 6f 6d 62 22 2c 78  6c 73 71 78 25 2a 35 36  |qbomb",xlsqx%*56|
00010970  2b 32 30 34 2c 38 38 34  2d 78 6c 73 71 79 25 2a  |+204,884-xlsqy%*|
00010980  35 36 2c 30 3a 62 6f 6d  6e 6f 25 2b 3d 31 0d 4e  |56,0:bomno%+=1.N|
00010990  e8 4e c9 20 32 3a 20 c8  99 20 22 4f 53 5f 53 70  |.N. 2: .. "OS_Sp|
000109a0  72 69 74 65 4f 70 22 2c  33 34 2b 32 35 36 2c 62  |riteOp",34+256,b|
000109b0  73 70 72 69 25 2c 22 73  71 6d 69 6e 65 22 2c 78  |spri%,"sqmine",x|
000109c0  6c 73 71 78 25 2a 35 36  2b 32 30 34 2c 38 38 34  |lsqx%*56+204,884|
000109d0  2d 78 6c 73 71 79 25 2a  35 36 2c 30 0d 4e f2 bf  |-xlsqy%*56,0.N..|
000109e0  c9 20 33 3a 20 c8 99 20  22 4f 53 5f 53 70 72 69  |. 3: .. "OS_Spri|
000109f0  74 65 4f 70 22 2c 33 34  2b 32 35 36 2c 62 73 70  |teOp",34+256,bsp|
00010a00  72 69 25 2c 22 73 71 74  72 61 6e 73 70 6f 72 74  |ri%,"sqtransport|
00010a10  22 2c 78 6c 73 71 78 25  2a 35 36 2b 32 30 34 2c  |",xlsqx%*56+204,|
00010a20  38 38 34 2d 78 6c 73 71  79 25 2a 35 36 2c 30 3a  |884-xlsqy%*56,0:|
00010a30  e7 20 66 70 72 6e 6f 25  20 8c 20 c8 99 20 22 4f  |. fprno% . .. "O|
00010a40  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
00010a50  35 36 2c 62 73 70 72 69  25 2c 22 6f 76 65 72 22  |56,bspri%,"over"|
00010a60  2b c3 7e 28 28 3f 78 70  6c 65 76 25 20 80 20 25  |+.~((?xplev% . %|
00010a70  31 31 31 31 30 30 30 30  29 3e 3e 34 29 2c 78 6c  |11110000)>>4),xl|
00010a80  73 71 78 25 2a 35 36 2b  32 30 34 2c 38 38 34 2d  |sqx%*56+204,884-|
00010a90  78 6c 73 71 79 25 2a 35  36 2c 38 0d 4e fc 4f c9  |xlsqy%*56,8.N.O.|
00010aa0  20 34 3a 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  | 4: .. "OS_Sprit|
00010ab0  65 4f 70 22 2c 33 34 2b  32 35 36 2c 62 73 70 72  |eOp",34+256,bspr|
00010ac0  69 25 2c 22 73 71 62 6c  6f 63 6b 22 2c 78 6c 73  |i%,"sqblock",xls|
00010ad0  71 78 25 2a 35 36 2b 32  30 34 2c 38 38 34 2d 78  |qx%*56+204,884-x|
00010ae0  6c 73 71 79 25 2a 35 36  2c 30 0d 4f 06 be c9 20  |lsqy%*56,0.O... |
00010af0  35 3a 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |5: .. "OS_Sprite|
00010b00  4f 70 22 2c 33 34 2b 32  35 36 2c 62 73 70 72 69  |Op",34+256,bspri|
00010b10  25 2c 22 73 71 72 65 63  65 69 76 65 72 22 2c 78  |%,"sqreceiver",x|
00010b20  6c 73 71 78 25 2a 35 36  2b 32 30 34 2c 38 38 34  |lsqx%*56+204,884|
00010b30  2d 78 6c 73 71 79 25 2a  35 36 2c 30 3a e7 20 66  |-xlsqy%*56,0:. f|
00010b40  70 72 6e 6f 25 20 8c 20  c8 99 20 22 4f 53 5f 53  |prno% . .. "OS_S|
00010b50  70 72 69 74 65 4f 70 22  2c 33 34 2b 32 35 36 2c  |priteOp",34+256,|
00010b60  62 73 70 72 69 25 2c 22  6f 76 65 72 22 2b c3 7e  |bspri%,"over"+.~|
00010b70  28 28 3f 78 70 6c 65 76  25 20 80 20 25 31 31 31  |((?xplev% . %111|
00010b80  31 30 30 30 30 29 3e 3e  34 29 2c 78 6c 73 71 78  |10000)>>4),xlsqx|
00010b90  25 2a 35 36 2b 32 30 34  2c 38 38 34 2d 78 6c 73  |%*56+204,884-xls|
00010ba0  71 79 25 2a 35 36 2c 38  0d 4f 10 4f c9 20 36 3a  |qy%*56,8.O.O. 6:|
00010bb0  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00010bc0  22 2c 33 34 2b 32 35 36  2c 62 73 70 72 69 25 2c  |",34+256,bspri%,|
00010bd0  22 73 71 62 6f 6e 75 73  22 2c 78 6c 73 71 78 25  |"sqbonus",xlsqx%|
00010be0  2a 35 36 2b 32 30 34 2c  38 38 34 2d 78 6c 73 71  |*56+204,884-xlsq|
00010bf0  79 25 2a 35 36 2c 30 0d  4f 1a 05 cb 0d 4f 24 0d  |y%*56,0.O....O$.|
00010c00  78 70 6c 65 76 25 2b 3d  31 0d 4f 2e 07 ed 3a ed  |xplev%+=1.O...:.|
00010c10  0d 4f 38 79 e7 20 66 70  72 6e 6f 25 20 8c 20 c8  |.O8y. fprno% . .|
00010c20  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00010c30  33 34 2b 32 35 36 2c 62  73 70 72 69 25 2c 22 6f  |34+256,bspri%,"o|
00010c40  76 65 72 73 74 61 72 74  22 2c 28 62 6c 65 76 73  |verstart",(blevs|
00010c50  25 3f 28 32 36 34 2b 32  2a 76 6c 65 76 6c 25 29  |%?(264+2*vlevl%)|
00010c60  29 2a 35 36 2b 32 30 34  2c 38 38 34 2d 28 62 6c  |)*56+204,884-(bl|
00010c70  65 76 73 25 3f 28 32 36  35 2b 32 2a 76 6c 65 76  |evs%?(265+2*vlev|
00010c80  6c 25 29 29 2a 35 36 2c  38 0d 4f 42 26 c8 99 20  |l%))*56,8.OB&.. |
00010c90  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00010ca0  36 2b 36 30 2c 62 73 70  72 69 25 2c 30 2c 30 0d  |6+60,bspri%,0,0.|
00010cb0  4f 4c 35 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |OL5.. "OS_Sprite|
00010cc0  4f 70 22 2c 32 35 36 2b  33 34 2c 62 73 70 72 69  |Op",256+34,bspri|
00010cd0  25 2c 22 53 70 72 69 74  65 4f 70 36 30 22 2c 30  |%,"SpriteOp60",0|
00010ce0  2c 30 2c 30 0d 4f 56 05  e1 0d 4f 60 05 3a 0d 4f  |,0,0.OV...O`.:.O|
00010cf0  6a 0e dd a4 70 61 73 73  77 6f 72 64 0d 4f 74 10  |j...password.Ot.|
00010d00  41 25 3d 30 3a d6 20 65  66 61 64 65 0d 4f 7e 28  |A%=0:. efade.O~(|
00010d10  f2 70 72 69 6e 74 28 22  20 20 50 4c 45 41 53 45  |.print("  PLEASE|
00010d20  20 49 4e 50 55 54 20 54  48 45 20 20 22 2c 30 2c  | INPUT THE  ",0,|
00010d30  36 30 30 29 0d 4f 88 28  f2 70 72 69 6e 74 28 22  |600).O.(.print("|
00010d40  20 20 50 41 53 53 57 4f  52 44 20 46 4f 52 20 54  |  PASSWORD FOR T|
00010d50  48 45 20 20 22 2c 30 2c  35 33 36 29 0d 4f 92 28  |HE  ",0,536).O.(|
00010d60  f2 70 72 69 6e 74 28 22  20 20 20 4c 45 56 45 4c  |.print("   LEVEL|
00010d70  20 54 4f 20 50 4c 41 59  2e 20 20 20 22 2c 30 2c  | TO PLAY.   ",0,|
00010d80  34 37 32 29 0d 4f 9c 28  f2 70 72 69 6e 74 28 22  |472).O.(.print("|
00010d90  20 20 20 20 3e 20 20 20  20 20 20 20 20 20 20 3c  |    >          <|
00010da0  20 20 20 20 22 2c 30 2c  34 30 38 29 0d 4f a6 2c  |    ",0,408).O.,|
00010db0  78 70 61 73 73 24 3d a4  70 61 64 28 a4 69 6e 70  |xpass$=.pad(.inp|
00010dc0  75 74 28 33 32 30 2c 34  30 38 2c 33 32 2c 39 30  |ut(320,408,32,90|
00010dd0  2c 31 30 29 2c 31 30 29  0d 4f b0 0d 78 72 6c 65  |,10),10).O..xrle|
00010de0  76 25 3d 2d 31 0d 4f ba  11 e3 20 78 6c 6c 65 76  |v%=-1.O... xllev|
00010df0  25 3d 31 b8 31 36 0d 4f  c4 3e e7 20 78 70 61 73  |%=1.16.O.>. xpas|
00010e00  73 24 3d a4 67 65 74 6c  6e 73 74 72 28 62 6c 65  |s$=.getlnstr(ble|
00010e10  76 73 25 2b 39 36 2b 31  30 2a 78 6c 6c 65 76 25  |vs%+96+10*xllev%|
00010e20  2c 31 30 29 20 8c 20 78  72 6c 65 76 25 3d 78 6c  |,10) . xrlev%=xl|
00010e30  6c 65 76 25 0d 4f ce 05  ed 0d 4f d8 43 e7 20 78  |lev%.O....O.C. x|
00010e40  72 6c 65 76 25 3d 2d 31  20 8c 20 f2 70 72 69 6e  |rlev%=-1 . .prin|
00010e50  74 28 22 20 3e 4e 4f 20  53 55 43 48 20 50 41 53  |t(" >NO SUCH PAS|
00010e60  53 57 4f 52 44 3c 20 22  2c 30 2c 34 30 38 29 3a  |SWORD< ",0,408):|
00010e70  f2 77 61 69 74 28 33 30  29 3a 3d 31 0d 4f e2 3b  |.wait(30):=1.O.;|
00010e80  f2 70 72 69 6e 74 28 22  20 20 20 20 3c 20 4c 45  |.print("    < LE|
00010e90  56 45 4c 20 22 2b a4 70  61 64 28 c3 28 78 72 6c  |VEL "+.pad(.(xrl|
00010ea0  65 76 25 29 2c 32 29 2b  22 20 3e 20 20 20 20 22  |ev%),2)+" >    "|
00010eb0  2c 30 2c 34 30 38 29 0d  4f ec 0d f2 77 61 69 74  |,0,408).O...wait|
00010ec0  28 33 30 29 0d 4f f6 0b  3d 78 72 6c 65 76 25 0d  |(30).O..=xrlev%.|
00010ed0  50 00 05 3a 0d 50 0a 0d  dd f2 6f 70 74 69 6f 6e  |P..:.P....option|
00010ee0  73 0d 50 14 3d c8 99 20  22 4f 53 5f 53 70 72 69  |s.P.=.. "OS_Spri|
00010ef0  74 65 4f 70 22 2c 32 35  36 2b 33 34 2c 62 73 70  |teOp",256+34,bsp|
00010f00  72 69 25 2c 22 6c 6f 67  6f 22 2c 36 34 30 2d 32  |ri%,"logo",640-2|
00010f10  38 38 2a 32 2c 31 30 32  34 2d 34 32 2a 34 0d 50  |88*2,1024-42*4.P|
00010f20  1e 28 f2 70 72 69 6e 74  28 22 20 4d 55 53 49 43  |.(.print(" MUSIC|
00010f30  20 56 4f 4c 55 4d 45 20  4c 45 56 45 4c 20 22 2c  | VOLUME LEVEL ",|
00010f40  30 2c 38 34 30 29 0d 50  28 34 c8 99 20 22 4f 53  |0,840).P(4.. "OS|
00010f50  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 33  |_SpriteOp",256+3|
00010f60  34 2c 62 73 70 72 69 25  2c 22 64 72 61 67 62 6f  |4,bspri%,"dragbo|
00010f70  78 22 2c 31 30 38 2c 37  30 38 0d 50 32 28 f2 70  |x",108,708.P2(.p|
00010f80  72 69 6e 74 28 22 45 46  46 45 43 54 53 20 56 4f  |rint("EFFECTS VO|
00010f90  4c 55 4d 45 20 4c 45 56  45 4c 22 2c 30 2c 36 39  |LUME LEVEL",0,69|
00010fa0  32 29 0d 50 3c 34 c8 99  20 22 4f 53 5f 53 70 72  |2).P<4.. "OS_Spr|
00010fb0  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 62 73  |iteOp",256+34,bs|
00010fc0  70 72 69 25 2c 22 64 72  61 67 62 6f 78 22 2c 31  |pri%,"dragbox",1|
00010fd0  30 38 2c 35 36 30 0d 50  46 2f f2 70 72 69 6e 74  |08,560.PF/.print|
00010fe0  28 22 4c 45 46 54 20 20  20 20 22 2b a4 6b 65 79  |("LEFT    "+.key|
00010ff0  28 c1 6b 6c 69 73 74 24  2c 31 2c 31 29 29 2c 30  |(.klist$,1,1)),0|
00011000  2c 35 34 32 29 0d 50 50  2f f2 70 72 69 6e 74 28  |,542).PP/.print(|
00011010  22 52 49 47 48 54 20 20  20 22 2b a4 6b 65 79 28  |"RIGHT   "+.key(|
00011020  c1 6b 6c 69 73 74 24 2c  32 2c 31 29 29 2c 30 2c  |.klist$,2,1)),0,|
00011030  34 37 38 29 0d 50 5a 2f  f2 70 72 69 6e 74 28 22  |478).PZ/.print("|
00011040  55 50 20 20 20 20 20 20  22 2b a4 6b 65 79 28 c1  |UP      "+.key(.|
00011050  6b 6c 69 73 74 24 2c 33  2c 31 29 29 2c 30 2c 34  |klist$,3,1)),0,4|
00011060  31 34 29 0d 50 64 2f f2  70 72 69 6e 74 28 22 44  |14).Pd/.print("D|
00011070  4f 57 4e 20 20 20 20 22  2b a4 6b 65 79 28 c1 6b  |OWN    "+.key(.k|
00011080  6c 69 73 74 24 2c 34 2c  31 29 29 2c 30 2c 33 35  |list$,4,1)),0,35|
00011090  30 29 0d 50 6e 2f f2 70  72 69 6e 74 28 22 50 41  |0).Pn/.print("PA|
000110a0  55 53 45 20 20 20 22 2b  a4 6b 65 79 28 c1 6b 6c  |USE   "+.key(.kl|
000110b0  69 73 74 24 2c 35 2c 31  29 29 2c 30 2c 32 38 36  |ist$,5,1)),0,286|
000110c0  29 0d 50 78 2f f2 70 72  69 6e 74 28 22 41 42 4f  |).Px/.print("ABO|
000110d0  52 54 20 20 20 22 2b a4  6b 65 79 28 c1 6b 6c 69  |RT   "+.key(.kli|
000110e0  73 74 24 2c 36 2c 31 29  29 2c 30 2c 32 32 32 29  |st$,6,1)),0,222)|
000110f0  0d 50 82 10 e3 20 6c 70  62 75 74 25 3d 30 b8 35  |.P... lpbut%=0.5|
00011100  0d 50 8c 44 c8 99 20 22  4f 53 5f 53 70 72 69 74  |.P.D.. "OS_Sprit|
00011110  65 4f 70 22 2c 32 35 36  2b 33 34 2c 62 73 70 72  |eOp",256+34,bspr|
00011120  69 25 2c 22 72 65 64 65  66 69 6e 65 62 6f 78 22  |i%,"redefinebox"|
00011130  2c 33 38 34 2c 34 39 30  2d 36 34 2a 6c 70 62 75  |,384,490-64*lpbu|
00011140  74 25 2c 30 0d 50 96 05  ed 0d 50 a0 37 c8 99 20  |t%,0.P....P.7.. |
00011150  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00011160  36 2b 33 34 2c 62 73 70  72 69 25 2c 22 73 61 76  |6+34,bspri%,"sav|
00011170  65 62 6f 78 22 2c 31 31  35 32 2c 32 32 36 2c 30  |ebox",1152,226,0|
00011180  0d 50 aa 37 c8 99 20 22  4f 53 5f 53 70 72 69 74  |.P.7.. "OS_Sprit|
00011190  65 4f 70 22 2c 32 35 36  2b 33 34 2c 62 73 70 72  |eOp",256+34,bspr|
000111a0  69 25 2c 22 71 75 69 74  62 6f 78 22 2c 31 31 35  |i%,"quitbox",115|
000111b0  32 2c 31 36 32 2c 30 0d  50 b4 23 e6 39 c8 9c 30  |2,162,0.P.#.9..0|
000111c0  3a c8 93 20 c8 90 20 31  32 38 2c 35 38 30 2c 76  |:.. .. 128,580,v|
000111d0  65 66 66 78 25 2a 34 2c  32 30 0d 50 be 1d c8 93  |effx%*4,20.P....|
000111e0  20 c8 90 20 31 32 38 2c  37 32 38 2c 76 6d 75 73  | .. 128,728,vmus|
000111f0  78 25 2a 34 2c 32 30 0d  50 c8 3f c8 97 20 ee 3a  |x%*4,20.P.?.. .:|
00011200  76 70 74 72 6e 25 3d 31  3a f2 6e 65 78 74 70 74  |vptrn%=1:.nextpt|
00011210  72 3a 66 6f 66 69 6e 25  3d a3 3a 6b 65 79 6e 6f  |r:fofin%=.:keyno|
00011220  25 3d 2d 31 3a ff 22 46  58 32 31 2c 39 22 3a 2a  |%=-1:."FX21,9":*|
00011230  46 58 32 31 2c 30 0d 50  d2 05 f5 0d 50 dc 0b d6  |FX21,0.P....P...|
00011240  20 65 64 73 63 72 0d 50  e6 1b c8 97 20 6d 6f 75  | edscr.P.... mou|
00011250  73 78 25 2c 6d 6f 75 73  79 25 2c 6d 6f 75 73 7a  |sx%,mousy%,mousz|
00011260  25 0d 50 f0 4d e7 20 6d  6f 75 73 78 25 3e 31 32  |%.P.M. mousx%>12|
00011270  34 20 80 20 6d 6f 75 73  78 25 3c 31 31 35 32 20  |4 . mousx%<1152 |
00011280  80 20 6d 6f 75 73 79 25  3e 37 32 34 20 80 20 6d  |. mousy%>724 . m|
00011290  6f 75 73 79 25 3c 37 35  32 20 80 20 6d 6f 75 73  |ousy%<752 . mous|
000112a0  7a 25 3e 30 20 8c 20 f2  6d 75 73 76 6f 6c 0d 50  |z%>0 . .musvol.P|
000112b0  fa 4c e7 20 6d 6f 75 73  78 25 3e 31 32 34 20 80  |.L. mousx%>124 .|
000112c0  20 6d 6f 75 73 78 25 3c  31 31 35 32 20 80 20 6d  | mousx%<1152 . m|
000112d0  6f 75 73 79 25 3e 35 37  36 20 80 20 6d 6f 75 73  |ousy%>576 . mous|
000112e0  79 25 3c 36 30 34 20 80  20 6d 6f 75 73 7a 25 3e  |y%<604 . mousz%>|
000112f0  30 20 8c 20 f2 66 78 76  6f 6c 0d 51 04 41 e7 20  |0 . .fxvol.Q.A. |
00011300  6d 6f 75 73 78 25 3e 31  31 34 38 20 80 20 6d 6f  |mousx%>1148 . mo|
00011310  75 73 79 25 3e 31 36 32  20 80 20 6d 6f 75 73 79  |usy%>162 . mousy|
00011320  25 3c 32 32 32 20 80 20  6d 6f 75 73 7a 25 3e 30  |%<222 . mousz%>0|
00011330  20 8c 20 66 6f 66 69 6e  25 3d b9 0d 51 0e 42 e7  | . fofin%=..Q.B.|
00011340  20 6d 6f 75 73 78 25 3e  31 31 34 38 20 80 20 6d  | mousx%>1148 . m|
00011350  6f 75 73 79 25 3e 32 32  32 20 80 20 6d 6f 75 73  |ousy%>222 . mous|
00011360  79 25 3c 32 39 30 20 80  20 6d 6f 75 73 7a 25 3e  |y%<290 . mousz%>|
00011370  30 20 8c 20 f2 73 61 76  65 6f 70 74 73 0d 51 18  |0 . .saveopts.Q.|
00011380  4c e7 20 6d 6f 75 73 78  25 3e 33 38 30 20 80 20  |L. mousx%>380 . |
00011390  6d 6f 75 73 78 25 3c 34  34 38 20 80 20 6d 6f 75  |mousx%<448 . mou|
000113a0  73 79 25 3c 35 35 34 20  80 20 6d 6f 75 73 79 25  |sy%<554 . mousy%|
000113b0  3e 31 36 36 20 80 20 6d  6f 75 73 7a 25 3e 30 20  |>166 . mousz%>0 |
000113c0  8c 20 f2 6b 65 79 62 75  74 0d 51 22 0f 63 6b 65  |. .keybut.Q".cke|
000113d0  79 70 24 3d bf 28 30 29  0d 51 2c 26 e7 20 63 6b  |yp$=.(0).Q,&. ck|
000113e0  65 79 70 24 3c 3e 22 22  20 80 20 6b 65 79 6e 6f  |eyp$<>"" . keyno|
000113f0  25 3e 2d 31 20 8c 20 f2  6b 65 79 70 72 73 0d 51  |%>-1 . .keyprs.Q|
00011400  36 06 c8 96 0d 51 40 0c  fd 20 66 6f 66 69 6e 25  |6....Q@.. fofin%|
00011410  0d 51 4a 08 c8 97 20 87  0d 51 54 11 41 25 3d 34  |.QJ... ..QT.A%=4|
00011420  32 3a d6 20 65 66 61 64  65 0d 51 5e 05 e1 0d 51  |2:. efade.Q^...Q|
00011430  68 05 3a 0d 51 72 0c dd  f2 6d 75 73 76 6f 6c 0d  |h.:.Qr...musvol.|
00011440  51 7c 29 e7 20 6d 6f 75  73 78 25 3e 31 32 38 2b  |Q|). mousx%>128+|
00011450  76 6d 75 73 78 25 2a 34  20 8c 20 e6 39 c8 9c 30  |vmusx%*4 . .9..0|
00011460  20 8b 20 e6 30 c8 9c 30  0d 51 86 31 c8 93 20 c8  | . .0..0.Q.1.. .|
00011470  90 20 31 32 38 2b 76 6d  75 73 78 25 2a 34 2c 37  |. 128+vmusx%*4,7|
00011480  32 38 2c 6d 6f 75 73 78  25 2d 31 32 38 2d 76 6d  |28,mousx%-128-vm|
00011490  75 73 78 25 2a 34 2c 32  30 0d 51 90 19 76 6d 75  |usx%*4,20.Q..vmu|
000114a0  73 78 25 3d 28 6d 6f 75  73 78 25 2d 31 32 38 29  |sx%=(mousx%-128)|
000114b0  2f 34 0d 51 9a 1f c8 99  20 22 43 6f 63 6f 5f 56  |/4.Q.... "Coco_V|
000114c0  6f 6c 75 6d 65 22 2c 32  35 35 2d 76 6d 75 73 78  |olume",255-vmusx|
000114d0  25 0d 51 a4 05 e1 0d 51  ae 05 3a 0d 51 b8 0c dd  |%.Q....Q..:.Q...|
000114e0  f2 6b 65 79 62 75 74 0d  51 c2 1c 6e 6b 79 6e 6f  |.keybut.Q..nkyno|
000114f0  25 3d 28 36 31 34 2d 6d  6f 75 73 79 25 29 2f 36  |%=(614-mousy%)/6|
00011500  34 2d 31 0d 51 cc 17 e7  20 6e 6b 79 6e 6f 25 3d  |4-1.Q... nkyno%=|
00011510  6b 65 79 6e 6f 25 20 8c  20 e1 0d 51 d6 45 e7 20  |keyno% . ..Q.E. |
00011520  6b 65 79 6e 6f 25 3e 2d  31 20 8c 20 f2 70 72 69  |keyno%>-1 . .pri|
00011530  6e 74 28 a4 6b 65 79 28  c1 6b 6c 69 73 74 24 2c  |nt(.key(.klist$,|
00011540  6b 65 79 6e 6f 25 2b 31  2c 31 29 29 2c 35 31 32  |keyno%+1,1)),512|
00011550  2c 35 34 32 2d 36 34 2a  6b 65 79 6e 6f 25 29 0d  |,542-64*keyno%).|
00011560  51 e0 11 6b 65 79 6e 6f  25 3d 6e 6b 79 6e 6f 25  |Q..keyno%=nkyno%|
00011570  0d 51 ea 09 e6 30 c8 9c  30 0d 51 f4 22 c8 93 20  |.Q...0..0.Q.".. |
00011580  c8 90 20 35 31 32 2c 34  39 30 2d 36 34 2a 6b 65  |.. 512,490-64*ke|
00011590  79 6e 6f 25 2c 35 37 36  2c 36 30 0d 51 fe 40 c8  |yno%,576,60.Q.@.|
000115a0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000115b0  32 35 36 2b 33 34 2c 62  73 70 72 69 25 2c 22 74  |256+34,bspri%,"t|
000115c0  79 70 65 62 6f 78 22 2c  35 31 32 2c 34 39 30 2d  |ypebox",512,490-|
000115d0  36 34 2a 6b 65 79 6e 6f  25 2c 30 0d 52 08 05 e1  |64*keyno%,0.R...|
000115e0  0d 52 12 05 3a 0d 52 1c  0c dd f2 6b 65 79 70 72  |.R..:.R....keypr|
000115f0  73 0d 52 26 27 c1 6b 6c  69 73 74 24 2c 6b 65 79  |s.R&'.klist$,key|
00011600  6e 6f 25 2b 31 2c 31 29  3d a4 6b 65 79 70 72 63  |no%+1,1)=.keyprc|
00011610  28 63 6b 65 79 70 24 29  0d 52 30 37 f2 70 72 69  |(ckeyp$).R07.pri|
00011620  6e 74 28 a4 6b 65 79 28  c1 6b 6c 69 73 74 24 2c  |nt(.key(.klist$,|
00011630  6b 65 79 6e 6f 25 2b 31  2c 31 29 29 2c 35 31 32  |keyno%+1,1)),512|
00011640  2c 35 34 32 2d 36 34 2a  6b 65 79 6e 6f 25 29 0d  |,542-64*keyno%).|
00011650  52 3a 0d 6b 65 79 6e 6f  25 3d 2d 31 0d 52 44 05  |R:.keyno%=-1.RD.|
00011660  e1 0d 52 4e 05 3a 0d 52  58 0b dd f2 66 78 76 6f  |..RN.:.RX...fxvo|
00011670  6c 0d 52 62 29 e7 20 6d  6f 75 73 78 25 3e 31 32  |l.Rb). mousx%>12|
00011680  38 2b 76 65 66 66 78 25  2a 34 20 8c 20 e6 39 c8  |8+veffx%*4 . .9.|
00011690  9c 30 20 8b 20 e6 30 c8  9c 30 0d 52 6c 31 c8 93  |.0 . .0..0.Rl1..|
000116a0  20 c8 90 20 31 32 38 2b  76 65 66 66 78 25 2a 34  | .. 128+veffx%*4|
000116b0  2c 35 38 30 2c 6d 6f 75  73 78 25 2d 31 32 38 2d  |,580,mousx%-128-|
000116c0  76 65 66 66 78 25 2a 34  2c 32 30 0d 52 76 19 76  |veffx%*4,20.Rv.v|
000116d0  65 66 66 78 25 3d 28 6d  6f 75 73 78 25 2d 31 32  |effx%=(mousx%-12|
000116e0  38 29 2f 34 0d 52 80 05  e1 0d 52 8a 05 3a 0d 52  |8)/4.R....R..:.R|
000116f0  94 12 dd a4 61 64 72 28  72 78 2c 61 64 64 25 29  |....adr(rx,add%)|
00011700  0d 52 9e 11 61 64 25 3d  61 64 64 25 2d 38 2d 50  |.R..ad%=add%-8-P|
00011710  25 0d 52 a8 0e 5b 4f 50  54 66 70 61 73 73 25 0d  |%.R..[OPTfpass%.|
00011720  52 b2 18 41 44 44 20 72  78 2c 50 43 2c 23 61 64  |R..ADD rx,PC,#ad|
00011730  25 20 80 20 32 35 35 0d  52 bc 1b 41 44 44 20 72  |% . 255.R..ADD r|
00011740  78 2c 72 78 2c 23 61 64  25 20 80 20 32 35 35 3c  |x,rx,#ad% . 255<|
00011750  3c 38 0d 52 c6 1c 41 44  44 20 72 78 2c 72 78 2c  |<8.R..ADD rx,rx,|
00011760  23 61 64 25 20 80 20 32  35 35 3c 3c 31 36 0d 52  |#ad% . 255<<16.R|
00011770  d0 1c 41 44 44 20 72 78  2c 72 78 2c 23 61 64 25  |..ADD rx,rx,#ad%|
00011780  20 80 20 32 35 35 3c 3c  32 34 0d 52 da 0d 5d 3a  | . 255<<24.R..]:|
00011790  3d 66 70 61 73 73 25 0d  52 e4 05 3a 0d 52 ee 13  |=fpass%.R..:.R..|
000117a0  dd a4 73 61 64 72 28 72  78 2c 61 64 64 25 29 0d  |..sadr(rx,add%).|
000117b0  52 f8 21 61 64 25 3d 50  25 2b 38 2d 61 64 64 25  |R.!ad%=P%+8-add%|
000117c0  3a e7 20 61 64 25 3e 36  35 35 33 35 20 8c 20 e0  |:. ad%>65535 . .|
000117d0  0d 53 02 0e 5b 4f 50 54  66 70 61 73 73 25 0d 53  |.S..[OPTfpass%.S|
000117e0  0c 18 53 55 42 20 72 78  2c 50 43 2c 23 61 64 25  |..SUB rx,PC,#ad%|
000117f0  20 80 20 32 35 35 0d 53  16 1b 53 55 42 20 72 78  | . 255.S..SUB rx|
00011800  2c 72 78 2c 23 61 64 25  20 80 20 32 35 35 3c 3c  |,rx,#ad% . 255<<|
00011810  38 0d 53 20 0d 5d 3a 3d  66 70 61 73 73 25 0d 53  |8.S .]:=fpass%.S|
00011820  2a 05 3a 0d 53 34 14 dd  a4 73 66 61 64 72 28 72  |*.:.S4...sfadr(r|
00011830  78 2c 61 64 64 25 29 0d  53 3e 21 61 64 25 3d 61  |x,add%).S>!ad%=a|
00011840  64 64 25 2d 38 2d 50 25  3a e7 20 61 64 25 3e 36  |dd%-8-P%:. ad%>6|
00011850  35 35 33 35 20 8c 20 e0  0d 53 48 0e 5b 4f 50 54  |5535 . ..SH.[OPT|
00011860  66 70 61 73 73 25 0d 53  52 18 41 44 44 20 72 78  |fpass%.SR.ADD rx|
00011870  2c 50 43 2c 23 61 64 25  20 80 20 32 35 35 0d 53  |,PC,#ad% . 255.S|
00011880  5c 1b 41 44 44 20 72 78  2c 72 78 2c 23 61 64 25  |\.ADD rx,rx,#ad%|
00011890  20 80 20 32 35 35 3c 3c  38 0d 53 66 0d 5d 3a 3d  | . 255<<8.Sf.]:=|
000118a0  66 70 61 73 73 25 0d 53  70 05 3a 0d 53 7a 0e dd  |fpass%.Sp.:.Sz..|
000118b0  f2 73 61 76 65 6f 70 74  73 0d 53 84 2b 68 66 69  |.saveopts.S.+hfi|
000118c0  6c 65 25 3d ae 20 22 3c  4f 62 65 79 24 44 69 72  |le%=. "<Obey$Dir|
000118d0  3e 2e 52 65 73 6f 75 72  63 65 73 2e 4f 70 74 69  |>.Resources.Opti|
000118e0  6f 6e 73 22 0d 53 8e 13  f1 23 68 66 69 6c 65 25  |ons".S...#hfile%|
000118f0  2c 6b 6c 69 73 74 24 0d  53 98 13 f1 23 68 66 69  |,klist$.S...#hfi|
00011900  6c 65 25 2c 76 6d 75 73  78 25 0d 53 a2 13 f1 23  |le%,vmusx%.S...#|
00011910  68 66 69 6c 65 25 2c 76  65 66 66 78 25 0d 53 ac  |hfile%,veffx%.S.|
00011920  0c d9 23 68 66 69 6c 65  25 0d 53 b6 05 e1 0d 53  |..#hfile%.S....S|
00011930  c0 05 3a 0d 53 ca 11 dd  a4 6b 65 79 28 78 78 6b  |..:.S....key(xxk|
00011940  65 79 24 29 0d 53 d4 1e  e7 20 97 28 78 78 6b 65  |ey$).S... .(xxke|
00011950  79 24 29 3d 31 33 20 8c  20 3d 22 52 45 54 55 52  |y$)=13 . ="RETUR|
00011960  4e 22 0d 53 de 1f e7 20  97 28 78 78 6b 65 79 24  |N".S... .(xxkey$|
00011970  29 3d 31 32 37 20 8c 20  3d 22 44 45 4c 45 54 45  |)=127 . ="DELETE|
00011980  22 0d 53 e8 1a e7 20 97  28 78 78 6b 65 79 24 29  |".S... .(xxkey$)|
00011990  3d 39 20 8c 20 3d 22 54  41 42 22 0d 53 f2 20 e7  |=9 . ="TAB".S. .|
000119a0  20 97 28 78 78 6b 65 79  24 29 3d 38 20 8c 20 3d  | .(xxkey$)=8 . =|
000119b0  22 42 41 43 4b 53 50 41  43 45 22 0d 53 fc 1c e7  |"BACKSPACE".S...|
000119c0  20 97 28 78 78 6b 65 79  24 29 3d 33 30 20 8c 20  | .(xxkey$)=30 . |
000119d0  3d 22 48 4f 4d 45 22 0d  54 06 1d e7 20 97 28 78  |="HOME".T... .(x|
000119e0  78 6b 65 79 24 29 3d 33  32 20 8c 20 3d 22 53 50  |xkey$)=32 . ="SP|
000119f0  41 43 45 22 0d 54 10 0b  3d 78 78 6b 65 79 24 0d  |ACE".T..=xxkey$.|
00011a00  54 1a 05 3a 0d 54 24 14  dd a4 6b 65 79 70 72 63  |T..:.T$...keyprc|
00011a10  28 78 78 6b 65 79 24 29  0d 54 2e 17 e7 20 78 78  |(xxkey$).T... xx|
00011a20  6b 65 79 24 3d 22 21 22  20 8c 20 3d 22 31 22 0d  |key$="!" . ="1".|
00011a30  54 38 17 e7 20 78 78 6b  65 79 24 3d 22 40 22 20  |T8.. xxkey$="@" |
00011a40  8c 20 3d 22 32 22 0d 54  42 17 e7 20 78 78 6b 65  |. ="2".TB.. xxke|
00011a50  79 24 3d 22 23 22 20 8c  20 3d 22 33 22 0d 54 4c  |y$="#" . ="3".TL|
00011a60  17 e7 20 78 78 6b 65 79  24 3d 22 24 22 20 8c 20  |.. xxkey$="$" . |
00011a70  3d 22 34 22 0d 54 56 17  e7 20 78 78 6b 65 79 24  |="4".TV.. xxkey$|
00011a80  3d 22 25 22 20 8c 20 3d  22 35 22 0d 54 60 17 e7  |="%" . ="5".T`..|
00011a90  20 78 78 6b 65 79 24 3d  22 5e 22 20 8c 20 3d 22  | xxkey$="^" . ="|
00011aa0  36 22 0d 54 6a 17 e7 20  78 78 6b 65 79 24 3d 22  |6".Tj.. xxkey$="|
00011ab0  26 22 20 8c 20 3d 22 37  22 0d 54 74 17 e7 20 78  |&" . ="7".Tt.. x|
00011ac0  78 6b 65 79 24 3d 22 2a  22 20 8c 20 3d 22 38 22  |xkey$="*" . ="8"|
00011ad0  0d 54 7e 17 e7 20 78 78  6b 65 79 24 3d 22 28 22  |.T~.. xxkey$="("|
00011ae0  20 8c 20 3d 22 39 22 0d  54 88 17 e7 20 78 78 6b  | . ="9".T... xxk|
00011af0  65 79 24 3d 22 29 22 20  8c 20 3d 22 30 22 0d 54  |ey$=")" . ="0".T|
00011b00  92 17 e7 20 78 78 6b 65  79 24 3d 22 5f 22 20 8c  |... xxkey$="_" .|
00011b10  20 3d 22 2d 22 0d 54 9c  17 e7 20 78 78 6b 65 79  | ="-".T... xxkey|
00011b20  24 3d 22 2b 22 20 8c 20  3d 22 3d 22 0d 54 a6 17  |$="+" . ="=".T..|
00011b30  e7 20 78 78 6b 65 79 24  3d 22 3a 22 20 8c 20 3d  |. xxkey$=":" . =|
00011b40  22 3b 22 0d 54 b0 18 e7  20 78 78 6b 65 79 24 3d  |";".T... xxkey$=|
00011b50  22 22 22 22 20 8c 20 3d  22 27 22 0d 54 ba 17 e7  |"""" . ="'".T...|
00011b60  20 78 78 6b 65 79 24 3d  22 3c 22 20 8c 20 3d 22  | xxkey$="<" . ="|
00011b70  2c 22 0d 54 c4 17 e7 20  78 78 6b 65 79 24 3d 22  |,".T... xxkey$="|
00011b80  3e 22 20 8c 20 3d 22 2e  22 0d 54 ce 17 e7 20 78  |>" . =".".T... x|
00011b90  78 6b 65 79 24 3d 22 3f  22 20 8c 20 3d 22 2f 22  |xkey$="?" . ="/"|
00011ba0  0d 54 d8 5f e7 20 97 28  78 78 6b 65 79 24 29 3c  |.T._. .(xxkey$)<|
00011bb0  33 32 20 80 20 97 28 78  78 6b 65 79 24 29 3c 3e  |32 . .(xxkey$)<>|
00011bc0  38 20 80 20 97 28 78 78  6b 65 79 24 29 3c 3e 39  |8 . .(xxkey$)<>9|
00011bd0  20 80 20 97 28 78 78 6b  65 79 24 29 3c 3e 31 33  | . .(xxkey$)<>13|
00011be0  20 80 20 97 28 78 78 6b  65 79 24 29 3c 3e 33 30  | . .(xxkey$)<>30|
00011bf0  20 8c 20 3d c3 28 6b 65  79 6e 6f 25 2b 31 29 0d  | . =.(keyno%+1).|
00011c00  54 e2 57 e7 20 97 28 78  78 6b 65 79 24 29 3d 38  |T.W. .(xxkey$)=8|
00011c10  20 84 20 97 28 78 78 6b  65 79 24 29 3d 39 20 84  | . .(xxkey$)=9 .|
00011c20  20 97 28 78 78 6b 65 79  24 29 3d 31 33 20 84 20  | .(xxkey$)=13 . |
00011c30  97 28 78 78 6b 65 79 24  29 3d 33 30 20 84 20 97  |.(xxkey$)=30 . .|
00011c40  28 78 78 6b 65 79 24 29  3d 31 32 37 20 8c 20 3d  |(xxkey$)=127 . =|
00011c50  78 78 6b 65 79 24 0d 54  ec 35 e7 20 97 28 78 78  |xxkey$.T.5. .(xx|
00011c60  6b 65 79 24 29 3e 39 36  20 80 20 97 28 78 78 6b  |key$)>96 . .(xxk|
00011c70  65 79 24 29 3c 31 32 33  20 8c 20 3d bd 28 97 28  |ey$)<123 . =.(.(|
00011c80  78 78 6b 65 79 24 29 2d  33 32 29 0d 54 f6 4e e7  |xxkey$)-32).T.N.|
00011c90  20 a7 22 31 32 33 34 35  36 37 38 39 30 2d 3d 51  | ."1234567890-=Q|
00011ca0  57 45 52 54 59 55 49 4f  50 41 53 44 46 47 48 4a  |WERTYUIOPASDFGHJ|
00011cb0  4b 4c 3b 27 5a 58 43 56  42 4e 4d 2c 2e 2f 20 22  |KL;'ZXCVBNM,./ "|
00011cc0  2c 78 78 6b 65 79 24 29  3d 30 20 8c 20 3d c3 28  |,xxkey$)=0 . =.(|
00011cd0  6b 65 79 6e 6f 25 2b 31  29 0d 55 00 0b 3d 78 78  |keyno%+1).U..=xx|
00011ce0  6b 65 79 24 0d 55 0a 05  3a 0d 55 14 0e dd f2 63  |key$.U..:.U....c|
00011cf0  6f 6d 70 6c 65 74 65 0d  55 1e 27 eb 20 6b 6c 75  |omplete.U.'. klu|
00011d00  64 67 65 5f 6d 6f 64 65  3a c8 99 20 22 4f 53 5f  |dge_mode:.. "OS_|
00011d10  52 65 6d 6f 76 65 43 75  72 73 6f 72 73 22 0d 55  |RemoveCursors".U|
00011d20  28 4c c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |(L.. "OS_SpriteO|
00011d30  70 22 2c 32 35 36 2b 33  34 2c 62 73 70 72 69 25  |p",256+34,bspri%|
00011d40  2c 22 43 6f 6e 67 72 61  74 73 22 2c 36 34 30 2d  |,"Congrats",640-|
00011d50  36 30 36 2c 35 31 32 2d  32 34 30 2b 6b 6c 75 64  |606,512-240+klud|
00011d60  67 65 5f 6d 6f 64 65 6f  66 73 0d 55 32 40 c8 99  |ge_modeofs.U2@..|
00011d70  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00011d80  35 36 2b 33 34 2c 62 73  70 72 69 25 2c 22 30 6d  |56+34,bspri%,"0m|
00011d90  65 64 61 6c 73 22 2c 38  30 2c 30 2b 6b 6c 75 64  |edals",80,0+klud|
00011da0  67 65 5f 6d 6f 64 65 6f  66 73 0d 55 3c 27 f2 77  |ge_modeofs.U<'.w|
00011db0  61 69 74 28 32 30 30 29  3a 6d 65 64 61 6c 73 25  |ait(200):medals%|
00011dc0  3d a8 28 28 31 36 2d 67  73 6c 65 76 25 29 2f 33  |=.((16-gslev%)/3|
00011dd0  29 0d 55 46 4c c8 99 20  22 4f 53 5f 53 70 72 69  |).UFL.. "OS_Spri|
00011de0  74 65 4f 70 22 2c 32 35  36 2b 33 34 2c 62 73 70  |teOp",256+34,bsp|
00011df0  72 69 25 2c c3 28 6d 65  64 61 6c 73 25 29 2b 22  |ri%,.(medals%)+"|
00011e00  4d 65 64 4d 65 73 22 2c  32 38 36 2c 33 30 2b 6b  |MedMes",286,30+k|
00011e10  6c 75 64 67 65 5f 6d 6f  64 65 6f 66 73 0d 55 50  |ludge_modeofs.UP|
00011e20  12 c8 99 20 22 43 6f 63  6f 5f 53 74 6f 70 22 0d  |... "Coco_Stop".|
00011e30  55 5a 11 e7 20 6d 65 64  61 6c 73 25 3e 30 20 8c  |UZ.. medals%>0 .|
00011e40  0d 55 64 14 c8 a1 20 31  2c 22 42 53 67 65 74 62  |.Ud... 1,"BSgetb|
00011e50  6f 6d 62 22 0d 55 6e 2b  f2 77 61 69 74 28 33 30  |omb".Un+.wait(30|
00011e60  29 3a e3 20 6c 6d 65 64  6c 25 3d 31 b8 20 6d 65  |):. lmedl%=1. me|
00011e70  64 61 6c 73 25 3a f2 77  61 69 74 28 35 30 29 0d  |dals%:.wait(50).|
00011e80  55 78 49 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |UxI.. "OS_Sprite|
00011e90  4f 70 22 2c 32 35 36 2b  33 34 2c 62 73 70 72 69  |Op",256+34,bspri|
00011ea0  25 2c c3 28 6c 6d 65 64  6c 25 29 2b 22 4d 65 64  |%,.(lmedl%)+"Med|
00011eb0  61 6c 73 22 2c 38 30 2c  30 2b 6b 6c 75 64 67 65  |als",80,0+kludge|
00011ec0  5f 6d 6f 64 65 6f 66 73  0d 55 82 15 d4 31 2c 2d  |_modeofs.U...1,-|
00011ed0  31 35 2c 31 30 30 30 30  2c 31 30 3a ed 0d 55 8c  |15,10000,10:..U.|
00011ee0  05 cd 0d 55 96 0e f2 77  61 69 74 28 32 30 30 29  |...U...wait(200)|
00011ef0  0d 55 a0 0b d6 20 65 63  66 61 64 0d 55 aa 05 e1  |.U... ecfad.U...|
00011f00  0d 55 b4 05 3a 0d 55 be  12 dd f2 67 61 6d 65 28  |.U..:.U....game(|
00011f10  76 6c 65 76 6c 25 29 0d  55 c8 1c 67 73 6c 65 76  |vlevl%).U..gslev|
00011f20  25 3d 76 6c 65 76 6c 25  3a 6d 65 64 61 6c 73 25  |%=vlevl%:medals%|
00011f30  3d 2d 31 0d 55 d2 11 24  62 67 61 6d 65 3d 6b 6c  |=-1.U..$bgame=kl|
00011f40  69 73 74 24 0d 55 dc 10  41 25 3d 30 3a d6 20 65  |ist$.U..A%=0:. e|
00011f50  66 61 64 65 0d 55 e6 15  66 67 65 6e 64 25 3d 30  |fade.U..fgend%=0|
00011f60  3a 72 67 65 6e 64 25 3d  30 0d 55 f0 15 67 6c 69  |:rgend%=0.U..gli|
00011f70  66 65 25 3d 33 3a 67 73  63 6f 72 25 3d 30 0d 55  |fe%=3:gscor%=0.U|
00011f80  fa 05 3a 0d 56 04 0f f4  20 47 61 6d 65 20 6c 6f  |..:.V... Game lo|
00011f90  6f 70 0d 56 0e 05 3a 0d  56 18 47 f2 66 61 64 65  |op.V..:.V.G.fade|
00011fa0  6f 75 74 3a c8 99 20 22  43 6f 63 6f 5f 4d 6f 76  |out:.. "Coco_Mov|
00011fb0  65 22 2c 35 34 3a c8 99  20 22 43 6f 63 6f 5f 53  |e",54:.. "Coco_S|
00011fc0  65 71 53 74 61 72 74 22  2c 35 34 3a c8 99 20 22  |eqStart",54:.. "|
00011fd0  43 6f 63 6f 5f 56 6f 6c  75 6d 65 22 2c 30 0d 56  |Coco_Volume",0.V|
00011fe0  22 05 f5 0d 56 2c 10 f2  70 72 69 6e 74 6d 61 70  |"...V,..printmap|
00011ff0  28 a3 29 0d 56 36 3c f2  70 72 69 6e 74 28 22 20  |(.).V6<.print(" |
00012000  20 20 20 20 20 4c 45 56  45 4c 20 22 2b c3 28 76  |     LEVEL "+.(v|
00012010  6c 65 76 6c 25 29 2b 22  20 20 20 20 20 20 22 2c  |levl%)+"      ",|
00012020  30 2c 31 30 32 30 29 3a  2a 46 58 32 31 2c 30 0d  |0,1020):*FX21,0.|
00012030  56 40 2b 67 74 69 6d 65  25 3d 62 6c 65 76 73 25  |V@+gtime%=blevs%|
00012040  3f 28 31 33 35 38 33 2b  76 6c 65 76 6c 25 29 3a  |?(13583+vlevl%):|
00012050  6c 77 61 69 74 25 3d 30  3a f5 0d 56 4a 10 6c 77  |lwait%=0:..VJ.lw|
00012060  61 69 74 25 2b 3d 31 3a  c8 96 0d 56 54 0f 63 6b  |ait%+=1:...VT.ck|
00012070  65 79 70 24 3d bf 28 31  29 0d 56 5e 22 fd 20 6c  |eyp$=.(1).V^". l|
00012080  77 61 69 74 25 3d 67 74  69 6d 65 25 2a 33 20 84  |wait%=gtime%*3 .|
00012090  20 63 6b 65 79 70 24 3c  3e 22 22 0d 56 68 0b d6  | ckeyp$<>"".Vh..|
000120a0  20 65 66 61 64 65 0d 56  72 35 e7 20 63 6b 65 79  | efade.Vr5. ckey|
000120b0  70 24 3d bd 31 32 38 20  80 20 66 72 6f 67 3d 30  |p$=.128 . frog=0|
000120c0  20 80 20 76 6c 65 76 6c  25 3c 31 36 20 8c 20 76  | . vlevl%<16 . v|
000120d0  6c 65 76 6c 25 2b 3d 31  3a fd 30 0d 56 7c 13 e7  |levl%+=1:.0.V|..|
000120e0  20 63 6b 65 79 70 24 3c  3e 22 20 22 20 8c 0d 56  | ckeyp$<>" " ..V|
000120f0  86 27 eb 20 6b 6c 75 64  67 65 5f 6d 6f 64 65 3a  |.'. kludge_mode:|
00012100  c8 99 20 22 4f 53 5f 52  65 6d 6f 76 65 43 75 72  |.. "OS_RemoveCur|
00012110  73 6f 72 73 22 0d 56 90  4d c8 99 20 22 4f 53 5f  |sors".V.M.. "OS_|
00012120  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 33 34  |SpriteOp",256+34|
00012130  2c 62 73 70 72 69 25 2c  22 50 61 73 73 77 6f 72  |,bspri%,"Passwor|
00012140  64 49 73 22 2c 36 34 30  2d 35 35 36 2c 32 35 36  |dIs",640-556,256|
00012150  2d 33 35 2b 6b 6c 75 64  67 65 5f 6d 6f 64 65 6f  |-35+kludge_modeo|
00012160  66 73 0d 56 9a 0d f2 77  61 69 74 28 38 30 29 0d  |fs.V...wait(80).|
00012170  56 a4 0b d6 20 65 63 66  61 64 0d 56 ae 1d eb 31  |V... ecfad.V...1|
00012180  33 3a c8 99 20 22 4f 53  5f 52 65 6d 6f 76 65 43  |3:.. "OS_RemoveC|
00012190  75 72 73 6f 72 73 22 0d  56 b8 4b f2 70 72 69 6e  |ursors".V.K.prin|
000121a0  74 28 22 20 20 20 20 20  22 2b a4 67 65 74 6c 6e  |t("     "+.getln|
000121b0  73 74 72 28 62 6c 65 76  73 25 2b 39 36 2b 31 30  |str(blevs%+96+10|
000121c0  2a 76 6c 65 76 6c 25 2c  31 30 29 2b 22 20 20 20  |*vlevl%,10)+"   |
000121d0  20 20 22 2c 30 2c 36 30  38 29 3a 2a 46 58 32 31  |  ",0,608):*FX21|
000121e0  2c 30 0d 56 c2 0e 6c 77  61 69 74 25 3d 30 3a f5  |,0.V..lwait%=0:.|
000121f0  0d 56 cc 10 6c 77 61 69  74 25 2b 3d 31 3a c8 96  |.V..lwait%+=1:..|
00012200  0d 56 d6 1b fd 20 6c 77  61 69 74 25 3d 35 30 30  |.V... lwait%=500|
00012210  20 84 20 bf 28 30 29 3c  3e 22 22 0d 56 e0 0b d6  | . .(0)<>"".V...|
00012220  20 65 66 61 64 65 0d 56  ea 27 eb 20 6b 6c 75 64  | efade.V.'. klud|
00012230  67 65 5f 6d 6f 64 65 3a  c8 99 20 22 4f 53 5f 52  |ge_mode:.. "OS_R|
00012240  65 6d 6f 76 65 43 75 72  73 6f 72 73 22 0d 56 f4  |emoveCursors".V.|
00012250  4b c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |K.. "OS_SpriteOp|
00012260  22 2c 32 35 36 2b 33 34  2c 62 73 70 72 69 25 2c  |",256+34,bspri%,|
00012270  22 47 65 74 52 65 61 64  79 22 2c 36 34 30 2d 34  |"GetReady",640-4|
00012280  32 31 2c 32 35 36 2d 34  35 2b 6b 6c 75 64 67 65  |21,256-45+kludge|
00012290  5f 6d 6f 64 65 6f 66 73  0d 56 fe 0d f2 77 61 69  |_modeofs.V...wai|
000122a0  74 28 38 30 29 0d 57 08  0b d6 20 65 63 66 61 64  |t(80).W... ecfad|
000122b0  0d 57 12 05 cd 0d 57 1c  30 f2 66 61 64 65 6f 75  |.W....W.0.fadeou|
000122c0  74 3a c8 99 20 22 43 6f  63 6f 5f 53 74 6f 70 22  |t:.. "Coco_Stop"|
000122d0  3a c8 99 20 22 43 6f 63  6f 5f 52 65 73 65 74 22  |:.. "Coco_Reset"|
000122e0  3a c8 a0 20 34 0d 57 26  37 c8 a1 20 31 2c 22 42  |:.. 4.W&7.. 1,"B|
000122f0  53 70 75 73 68 77 61 6c  6c 22 3a c8 a1 20 32 2c  |Spushwall":.. 2,|
00012300  22 42 53 67 65 74 62 6f  6d 62 22 3a c8 a1 20 33  |"BSgetbomb":.. 3|
00012310  2c 22 42 53 7a 61 70 6d  69 6e 65 22 0d 57 30 2a  |,"BSzapmine".W0*|
00012320  c8 a2 20 31 2c 2d 31 32  37 3a c8 a2 20 32 2c 2d  |.. 1,-127:.. 2,-|
00012330  31 32 37 3a c8 a2 20 33  2c 31 32 37 3a c8 a2 20  |127:.. 3,127:.. |
00012340  34 2c 2d 31 32 37 0d 57  3a 19 e7 20 76 65 66 66  |4,-127.W:.. veff|
00012350  78 25 3c 32 20 8c 20 76  65 66 66 78 25 3d 32 0d  |x%<2 . veffx%=2.|
00012360  57 44 44 ff 20 22 56 6f  6c 75 6d 65 20 22 2b c3  |WDD. "Volume "+.|
00012370  28 a8 28 76 65 66 66 78  25 2f 32 29 29 3a c8 99  |(.(veffx%/2)):..|
00012380  20 22 43 6f 63 6f 5f 4d  6f 76 65 22 2c 30 3a c8  | "Coco_Move",0:.|
00012390  99 20 22 43 6f 63 6f 5f  53 65 71 53 74 61 72 74  |. "Coco_SeqStart|
000123a0  22 2c 30 0d 57 4e 1f f5  20 eb 31 33 3a c8 99 20  |",0.WN.. .13:.. |
000123b0  22 4f 53 5f 52 65 6d 6f  76 65 43 75 72 73 6f 72  |"OS_RemoveCursor|
000123c0  73 22 0d 57 58 39 41 25  3d 62 6c 65 76 73 25 2b  |s".WX9A%=blevs%+|
000123d0  33 30 34 2b 28 76 6c 65  76 6c 25 2d 31 29 2a 38  |304+(vlevl%-1)*8|
000123e0  33 30 3a 42 25 3d 62 6c  65 76 6c 25 3a 43 25 3d  |30:B%=blevl%:C%=|
000123f0  38 33 30 3a d6 20 65 63  6f 70 79 0d 57 62 3d 67  |830:. ecopy.Wb=g|
00012400  78 70 6f 73 25 3d 62 6c  65 76 73 25 3f 28 32 36  |xpos%=blevs%?(26|
00012410  34 2b 32 2a 76 6c 65 76  6c 25 29 3a 67 79 70 6f  |4+2*vlevl%):gypo|
00012420  73 25 3d 62 6c 65 76 73  25 3f 28 32 36 35 2b 32  |s%=blevs%?(265+2|
00012430  2a 76 6c 65 76 6c 25 29  0d 57 6c 36 67 74 69 6d  |*vlevl%).Wl6gtim|
00012440  65 25 3d 62 6c 65 76 73  25 3f 28 31 33 35 38 33  |e%=blevs%?(13583|
00012450  2b 76 6c 65 76 6c 25 29  3a e7 20 67 74 69 6d 65  |+vlevl%):. gtime|
00012460  25 3c 31 20 8c 20 67 74  69 6d 65 25 3d 31 0d 57  |%<1 . gtime%=1.W|
00012470  76 11 f5 3a 74 69 6d 65  72 25 3d 30 3a c8 96 0d  |v..:timer%=0:...|
00012480  57 80 31 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |W.1.. "OS_Sprite|
00012490  4f 70 22 2c 32 35 36 2b  33 34 2c 62 73 70 72 69  |Op",256+34,bspri|
000124a0  25 2c 22 53 69 64 65 42  61 72 22 2c 31 32 31 36  |%,"SideBar",1216|
000124b0  0d 57 8a 1b 41 25 3d 67  74 69 6d 65 25 3a d6 20  |.W..A%=gtime%:. |
000124c0  65 67 5f 73 68 6f 77 74  69 6d 65 0d 57 94 25 41  |eg_showtime.W.%A|
000124d0  25 3d 67 73 63 6f 72 25  3a 42 25 3d 67 74 69 6d  |%=gscor%:B%=gtim|
000124e0  65 25 3a d6 20 65 67 5f  73 68 6f 77 73 63 6f 72  |e%:. eg_showscor|
000124f0  0d 57 9e 25 41 25 3d 67  6c 69 66 65 25 3a 42 25  |.W.%A%=glife%:B%|
00012500  3d 67 74 69 6d 65 25 3a  d6 20 65 67 5f 73 68 6f  |=gtime%:. eg_sho|
00012510  77 6c 69 66 65 0d 57 a8  36 41 25 3d 67 78 70 6f  |wlife.W.6A%=gxpo|
00012520  73 25 3a 42 25 3d 67 79  70 6f 73 25 3a 43 25 3d  |s%:B%=gypos%:C%=|
00012530  28 76 6c 65 76 6c 25 2d  31 29 83 20 34 3a d6 20  |(vlevl%-1). 4:. |
00012540  65 67 5f 73 68 6f 77 6d  69 64 73 0d 57 b2 31 41  |eg_showmids.W.1A|
00012550  25 3d 67 78 70 6f 73 25  3a 42 25 3d 67 79 70 6f  |%=gxpos%:B%=gypo|
00012560  73 25 3a 43 25 3d 76 6c  65 76 6c 25 2d 31 3a d6  |s%:C%=vlevl%-1:.|
00012570  20 65 67 5f 73 68 6f 77  61 6c 6c 73 0d 57 bc 44  | eg_showalls.W.D|
00012580  62 67 64 61 74 3f 35 32  3d 28 74 69 6d 65 72 25  |bgdat?52=(timer%|
00012590  20 83 38 29 3a 62 67 64  61 74 3f 35 33 3d 28 74  | .8):bgdat?53=(t|
000125a0  69 6d 65 72 25 20 83 31  32 29 3a 62 67 64 61 74  |imer% .12):bgdat|
000125b0  3f 35 34 3d 28 74 69 6d  65 72 25 20 83 31 36 29  |?54=(timer% .16)|
000125c0  0d 57 c6 31 41 25 3d 67  78 70 6f 73 25 3a 42 25  |.W.1A%=gxpos%:B%|
000125d0  3d 67 79 70 6f 73 25 3a  43 25 3d 76 6c 65 76 6c  |=gypos%:C%=vlevl|
000125e0  25 2d 31 3a d6 20 65 67  5f 73 68 6f 77 6f 62 6a  |%-1:. eg_showobj|
000125f0  73 0d 57 d0 05 f5 0d 57  da 0d 74 69 6d 65 72 25  |s.W....W..timer%|
00012600  2b 3d 31 0d 57 e4 25 41  25 3d 67 78 70 6f 73 25  |+=1.W.%A%=gxpos%|
00012610  3a 42 25 3d 67 79 70 6f  73 25 3a d6 20 65 67 5f  |:B%=gypos%:. eg_|
00012620  73 68 6f 77 6f 62 6a 73  0d 57 ee 12 c8 96 3a fd  |showobjs.W....:.|
00012630  20 74 69 6d 65 72 25 3d  35 30 0d 57 f8 1a e3 20  | timer%=50.W... |
00012640  6c 79 61 70 72 25 3d 30  b8 37 3a 74 69 6d 65 72  |lyapr%=0.7:timer|
00012650  25 2b 3d 31 0d 58 02 25  41 25 3d 67 78 70 6f 73  |%+=1.X.%A%=gxpos|
00012660  25 3a 42 25 3d 67 79 70  6f 73 25 3a d6 20 65 67  |%:B%=gypos%:. eg|
00012670  5f 73 68 6f 77 6f 62 6a  73 0d 58 0c 2f 41 25 3d  |_showobjs.X./A%=|
00012680  31 37 30 2b 6c 79 61 70  72 25 3a 42 25 3d 31 37  |170+lyapr%:B%=17|
00012690  38 2b 6c 79 61 70 72 25  3a d6 20 65 67 5f 73 68  |8+lyapr%:. eg_sh|
000126a0  6f 77 79 6f 75 3a c8 96  0d 58 16 12 d6 20 65 67  |owyou:...X... eg|
000126b0  5f 77 69 70 65 79 6f 75  3a ed 0d 58 20 05 3a 0d  |_wipeyou:..X .:.|
000126c0  58 2a 1c 21 62 6d 65 73  73 25 3d 76 6c 65 76 6c  |X*.!bmess%=vlevl|
000126d0  25 2d 31 3a 2a 46 58 32  31 2c 30 0d 58 34 68 41  |%-1:*FX21,0.X4hA|
000126e0  25 3d 67 78 70 6f 73 25  3a 42 25 3d 67 79 70 6f  |%=gxpos%:B%=gypo|
000126f0  73 25 3a 43 25 3d 67 74  69 6d 65 25 3a 44 25 3d  |s%:C%=gtime%:D%=|
00012700  74 69 6d 65 72 25 3a 45  25 3d 67 73 63 6f 72 25  |timer%:E%=gscor%|
00012710  3a 46 25 3d 62 6f 6d 6e  6f 25 3a 76 72 65 61 73  |:F%=bomno%:vreas|
00012720  25 3d ba 28 65 67 5f 70  6c 61 79 67 61 6d 65 29  |%=.(eg_playgame)|
00012730  3a ff 22 46 78 31 31 2c  32 35 22 3a 2a 46 78 31  |:."Fx11,25":*Fx1|
00012740  32 2c 34 0d 58 3e 43 67  78 70 6f 73 25 3d 3f 62  |2,4.X>Cgxpos%=?b|
00012750  6d 65 73 73 25 3a 67 79  70 6f 73 25 3d 62 6d 65  |mess%:gypos%=bme|
00012760  73 73 25 3f 31 3a 67 74  69 6d 65 25 3d 62 6d 65  |ss%?1:gtime%=bme|
00012770  73 73 25 3f 32 3a 67 73  63 6f 72 25 3d 62 67 61  |ss%?2:gscor%=bga|
00012780  6d 65 21 31 31 32 0d 58  48 05 3a 0d 58 52 10 e7  |me!112.XH.:.XR..|
00012790  20 76 72 65 61 73 25 3d  31 20 8c 0d 58 5c 27 eb  | vreas%=1 ..X\'.|
000127a0  20 6b 6c 75 64 67 65 5f  6d 6f 64 65 3a c8 99 20  | kludge_mode:.. |
000127b0  22 4f 53 5f 52 65 6d 6f  76 65 43 75 72 73 6f 72  |"OS_RemoveCursor|
000127c0  73 22 0d 58 66 40 c8 99  20 22 4f 53 5f 53 70 72  |s".Xf@.. "OS_Spr|
000127d0  69 74 65 4f 70 22 2c 33  34 2b 32 35 36 2c 62 73  |iteOp",34+256,bs|
000127e0  70 72 69 25 2c 22 30 6d  65 64 61 6c 73 22 2c 33  |pri%,"0medals",3|
000127f0  30 2c 30 2b 6b 6c 75 64  67 65 5f 6d 6f 64 65 6f  |0,0+kludge_modeo|
00012800  66 73 0d 58 70 42 c8 99  20 22 4f 53 5f 53 70 72  |fs.XpB.. "OS_Spr|
00012810  69 74 65 4f 70 22 2c 33  34 2b 32 35 36 2c 62 73  |iteOp",34+256,bs|
00012820  70 72 69 25 2c 22 30 6d  65 64 61 6c 73 22 2c 31  |pri%,"0medals",1|
00012830  31 32 32 2c 30 2b 6b 6c  75 64 67 65 5f 6d 6f 64  |122,0+kludge_mod|
00012840  65 6f 66 73 0d 58 7a 0d  70 74 69 6d 72 3d 30 3a  |eofs.Xz.ptimr=0:|
00012850  f5 0d 58 84 42 41 25 3d  6b 6c 75 64 67 65 5f 73  |..X.BA%=kludge_s|
00012860  63 72 65 65 6e 2b 31 31  30 2b 36 34 30 2a 28 36  |creen+110+640*(6|
00012870  34 2d 28 a8 28 94 28 9b  28 70 74 69 6d 72 29 29  |4-(.(.(.(ptimr))|
00012880  2a 36 34 29 29 29 3a d6  20 70 61 75 73 65 70 72  |*64))):. pausepr|
00012890  69 6e 74 0d 58 8e 12 70  61 75 73 65 24 3d bf 28  |int.X..pause$=.(|
000128a0  30 29 3a c8 96 0d 58 98  41 41 25 3d 6b 6c 75 64  |0):...X.AA%=klud|
000128b0  67 65 5f 73 63 72 65 65  6e 2b 31 31 30 2b 36 34  |ge_screen+110+64|
000128c0  30 2a 28 36 34 2d 28 a8  28 94 28 9b 28 70 74 69  |0*(64-(.(.(.(pti|
000128d0  6d 72 29 29 2a 36 34 29  29 29 3a d6 20 70 61 75  |mr))*64))):. pau|
000128e0  73 65 77 69 70 65 0d 58  a2 1c 70 74 69 6d 72 2b  |sewipe.X..ptimr+|
000128f0  3d af 2f 35 30 3a fd 20  70 61 75 73 65 24 3d 22  |=./50:. pause$="|
00012900  20 22 0d 58 ac 1d eb 31  33 3a c8 99 20 22 4f 53  | ".X...13:.. "OS|
00012910  5f 52 65 6d 6f 76 65 43  75 72 73 6f 72 73 22 0d  |_RemoveCursors".|
00012920  58 b6 14 62 6f 6d 6e 6f  25 3d 62 67 61 6d 65 21  |X..bomno%=bgame!|
00012930  31 31 36 0d 58 c0 05 cd  0d 58 ca 05 3a 0d 58 d4  |116.X....X..:.X.|
00012940  10 e7 20 76 72 65 61 73  25 3d 35 20 8c 0d 58 de  |.. vreas%=5 ..X.|
00012950  1b e3 20 6c 79 61 70 72  25 3d 30 b8 32 35 3a 74  |.. lyapr%=0.25:t|
00012960  69 6d 65 72 25 2b 3d 31  0d 58 e8 25 41 25 3d 67  |imer%+=1.X.%A%=g|
00012970  78 70 6f 73 25 3a 42 25  3d 67 79 70 6f 73 25 3a  |xpos%:B%=gypos%:|
00012980  d6 20 65 67 5f 73 68 6f  77 6f 62 6a 73 0d 58 f2  |. eg_showobjs.X.|
00012990  2f 41 25 3d 31 39 38 2b  28 28 74 69 6d 65 72 25  |/A%=198+((timer%|
000129a0  20 80 20 34 29 3e 3e 32  29 3a 42 25 3d 39 33 3a  | . 4)>>2):B%=93:|
000129b0  d6 20 65 67 5f 73 68 6f  77 79 6f 75 0d 58 fc 89  |. eg_showyou.X..|
000129c0  e7 20 6c 79 61 70 72 25  3d 32 35 20 8c 20 c8 99  |. lyapr%=25 . ..|
000129d0  20 22 43 6f 63 6f 5f 4d  6f 76 65 22 2c 36 37 3a  | "Coco_Move",67:|
000129e0  c8 99 20 22 43 6f 63 6f  5f 53 65 71 53 74 61 72  |.. "Coco_SeqStar|
000129f0  74 22 2c 35 34 3a c8 99  20 22 43 6f 63 6f 5f 53  |t",54:.. "Coco_S|
00012a00  74 61 72 74 22 3a c8 99  20 22 43 6f 63 6f 5f 56  |tart":.. "Coco_V|
00012a10  6f 6c 75 6d 65 22 2c 32  35 35 2d 76 6d 75 73 78  |olume",255-vmusx|
00012a20  25 3a e7 20 76 6c 65 76  6c 25 3d 31 36 20 8c 20  |%:. vlevl%=16 . |
00012a30  c8 99 20 22 43 6f 63 6f  5f 53 65 71 53 74 61 72  |.. "Coco_SeqStar|
00012a40  74 22 2c 35 33 0d 59 06  08 c8 96 3a ed 0d 59 10  |t",53.Y....:..Y.|
00012a50  1a 67 74 69 6d 65 25 2d  3d 31 3a e7 20 67 74 69  |.gtime%-=1:. gti|
00012a60  6d 65 25 3e 30 20 8c 0d  59 1a 88 e3 20 67 74 69  |me%>0 ..Y... gti|
00012a70  6d 65 25 3d 67 74 69 6d  65 25 20 b8 20 31 20 88  |me%=gtime% . 1 .|
00012a80  20 2d 31 3a 43 25 3d 67  74 69 6d 65 25 3a d6 20  | -1:C%=gtime%:. |
00012a90  64 65 63 74 69 6d 65 3a  67 73 63 6f 72 25 2b 3d  |dectime:gscor%+=|
00012aa0  31 3a 41 25 3d 67 73 63  6f 72 25 3a 42 25 3d 67  |1:A%=gscor%:B%=g|
00012ab0  74 69 6d 65 25 3a d6 20  65 67 5f 73 68 6f 77 73  |time%:. eg_shows|
00012ac0  63 6f 72 3a 41 25 3d 67  78 70 6f 73 25 3a 42 25  |cor:A%=gxpos%:B%|
00012ad0  3d 67 79 70 6f 73 25 3a  74 69 6d 65 72 25 2b 3d  |=gypos%:timer%+=|
00012ae0  31 3a d6 20 65 67 5f 73  68 6f 77 6f 62 6a 73 0d  |1:. eg_showobjs.|
00012af0  59 24 41 41 25 3d 31 39  38 2b 28 28 74 69 6d 65  |Y$AA%=198+((time|
00012b00  72 25 20 80 20 34 29 3e  3e 32 29 3a 42 25 3d 39  |r% . 4)>>2):B%=9|
00012b10  33 3a d6 20 65 67 5f 73  68 6f 77 79 6f 75 3a c8  |3:. eg_showyou:.|
00012b20  96 3a d6 20 65 67 5f 77  69 70 65 79 6f 75 3a ed  |.:. eg_wipeyou:.|
00012b30  0d 59 2e 05 cd 0d 59 38  15 d6 20 65 66 61 64 65  |.Y....Y8.. efade|
00012b40  3a 76 6c 65 76 6c 25 2b  3d 31 0d 59 42 05 cd 0d  |:vlevl%+=1.YB...|
00012b50  59 4c 05 3a 0d 59 56 1b  e7 20 76 72 65 61 73 25  |YL.:.YV.. vreas%|
00012b60  3d 34 20 84 20 76 72 65  61 73 25 3d 32 20 8c 0d  |=4 . vreas%=2 ..|
00012b70  59 60 59 c8 a1 20 34 2c  22 42 53 64 69 65 22 3a  |Y`Y.. 4,"BSdie":|
00012b80  d4 34 2c 2d 31 35 2c 31  32 36 30 30 2c 31 3a e3  |.4,-15,12600,1:.|
00012b90  20 6c 67 61 6d 65 25 3d  31 b8 31 30 3a 74 69 6d  | lgame%=1.10:tim|
00012ba0  65 72 25 2b 3d 31 3a 41  25 3d 67 78 70 6f 73 25  |er%+=1:A%=gxpos%|
00012bb0  3a 42 25 3d 67 79 70 6f  73 25 3a d6 20 65 67 5f  |:B%=gypos%:. eg_|
00012bc0  73 68 6f 77 6f 62 6a 73  0d 59 6a 2c 41 25 3d 30  |showobjs.Yj,A%=0|
00012bd0  3a 42 25 3d 38 3a d6 20  65 67 5f 73 68 6f 77 79  |:B%=8:. eg_showy|
00012be0  6f 75 3a c8 96 3a d6 20  65 67 5f 77 69 70 65 79  |ou:..:. eg_wipey|
00012bf0  6f 75 3a ed 0d 59 74 1a  e3 20 6c 79 61 70 72 25  |ou:..Yt.. lyapr%|
00012c00  3d 30 b8 37 3a 74 69 6d  65 72 25 2b 3d 31 0d 59  |=0.7:timer%+=1.Y|
00012c10  7e 25 41 25 3d 67 78 70  6f 73 25 3a 42 25 3d 67  |~%A%=gxpos%:B%=g|
00012c20  79 70 6f 73 25 3a d6 20  65 67 5f 73 68 6f 77 6f  |ypos%:. eg_showo|
00012c30  62 6a 73 0d 59 88 3c 41  25 3d 31 36 2b 6c 79 61  |bjs.Y.<A%=16+lya|
00012c40  70 72 25 3a 42 25 3d 32  34 2b 6c 79 61 70 72 25  |pr%:B%=24+lyapr%|
00012c50  3a d6 20 65 67 5f 73 68  6f 77 79 6f 75 3a c8 96  |:. eg_showyou:..|
00012c60  3a d6 20 65 67 5f 77 69  70 65 79 6f 75 3a ed 0d  |:. eg_wipeyou:..|
00012c70  59 92 3d e3 20 6c 67 61  6d 65 25 3d 31 b8 34 30  |Y.=. lgame%=1.40|
00012c80  3a 74 69 6d 65 72 25 2b  3d 31 3a 41 25 3d 67 78  |:timer%+=1:A%=gx|
00012c90  70 6f 73 25 3a 42 25 3d  67 79 70 6f 73 25 3a d6  |pos%:B%=gypos%:.|
00012ca0  20 65 67 5f 73 68 6f 77  6f 62 6a 73 0d 59 9c 2e  | eg_showobjs.Y..|
00012cb0  41 25 3d 32 33 3a 42 25  3d 33 31 3a d6 20 65 67  |A%=23:B%=31:. eg|
00012cc0  5f 73 68 6f 77 79 6f 75  3a c8 96 3a d6 20 65 67  |_showyou:..:. eg|
00012cd0  5f 77 69 70 65 79 6f 75  3a ed 0d 59 a6 42 e3 20  |_wipeyou:..Y.B. |
00012ce0  6c 67 61 6d 65 25 3d 31  b8 34 30 3a 74 69 6d 65  |lgame%=1.40:time|
00012cf0  72 25 2b 3d 31 3a 41 25  3d 67 78 70 6f 73 25 3a  |r%+=1:A%=gxpos%:|
00012d00  42 25 3d 67 79 70 6f 73  25 3a d6 20 65 67 5f 73  |B%=gypos%:. eg_s|
00012d10  68 6f 77 6f 62 6a 73 3a  c8 96 3a ed 0d 59 b0 05  |howobjs:..:..Y..|
00012d20  cd 0d 59 ba 10 e7 20 76  72 65 61 73 25 3d 33 20  |..Y... vreas%=3 |
00012d30  8c 0d 59 c4 11 d4 33 2c  2d 31 35 2c 34 30 30 30  |..Y...3,-15,4000|
00012d40  2c 31 0d 59 ce 36 e3 20  6c 66 6c 73 68 25 3d 31  |,1.Y.6. lflsh%=1|
00012d50  b8 33 3a e6 36 33 c8 9c  32 35 35 3a c8 93 20 c8  |.3:.63..255:.. .|
00012d60  90 20 30 2c 30 2c 31 32  31 32 2c 31 30 32 34 3a  |. 0,0,1212,1024:|
00012d70  e6 30 c8 9c 30 3a c8 96  0d 59 d8 1c c8 93 20 c8  |.0..0:...Y.... .|
00012d80  90 20 30 2c 30 2c 31 32  31 32 2c 31 30 32 34 3a  |. 0,0,1212,1024:|
00012d90  c8 96 3a ed 0d 59 e2 36  41 25 3d 67 78 70 6f 73  |..:..Y.6A%=gxpos|
00012da0  25 3a 42 25 3d 67 79 70  6f 73 25 3a 43 25 3d 28  |%:B%=gypos%:C%=(|
00012db0  76 6c 65 76 6c 25 2d 31  29 83 20 34 3a d6 20 65  |vlevl%-1). 4:. e|
00012dc0  67 5f 73 68 6f 77 6d 69  64 73 0d 59 ec 31 41 25  |g_showmids.Y.1A%|
00012dd0  3d 67 78 70 6f 73 25 3a  42 25 3d 67 79 70 6f 73  |=gxpos%:B%=gypos|
00012de0  25 3a 43 25 3d 76 6c 65  76 6c 25 2d 31 3a d6 20  |%:C%=vlevl%-1:. |
00012df0  65 67 5f 73 68 6f 77 61  6c 6c 73 0d 59 f6 30 e3  |eg_showalls.Y.0.|
00012e00  20 6c 67 61 6d 65 25 3d  31 b8 34 30 3a 41 25 3d  | lgame%=1.40:A%=|
00012e10  31 35 34 3a 42 25 3d 39  33 3a d6 20 65 67 5f 73  |154:B%=93:. eg_s|
00012e20  68 6f 77 79 6f 75 3a c8  96 3a ed 0d 5a 00 36 e3  |howyou:..:..Z.6.|
00012e30  20 6c 67 61 6d 65 25 3d  31 35 35 b8 31 36 39 3a  | lgame%=155.169:|
00012e40  41 25 3d 6c 67 61 6d 65  25 3a 42 25 3d 39 33 3a  |A%=lgame%:B%=93:|
00012e50  d6 20 65 67 5f 73 68 6f  77 79 6f 75 3a c8 96 3a  |. eg_showyou:..:|
00012e60  ed 0d 5a 0a 0d f2 77 61  69 74 28 34 30 29 0d 5a  |..Z...wait(40).Z|
00012e70  14 05 cd 0d 5a 1e 45 e7  20 76 72 65 61 73 25 3d  |....Z.E. vreas%=|
00012e80  34 20 84 20 76 72 65 61  73 25 3d 33 20 84 20 76  |4 . vreas%=3 . v|
00012e90  72 65 61 73 25 3d 32 20  8c 20 67 6c 69 66 65 25  |reas%=2 . glife%|
00012ea0  2d 3d 66 72 6f 67 3a d6  20 65 66 61 64 65 3a f2  |-=frog:. efade:.|
00012eb0  77 61 69 74 28 32 30 29  0d 5a 28 0f 2a 56 6f 6c  |wait(20).Z(.*Vol|
00012ec0  75 6d 65 20 31 32 37 0d  5a 32 0f fd 20 76 72 65  |ume 127.Z2.. vre|
00012ed0  61 73 25 3c 3e 31 0d 5a  3c 24 fd 20 67 6c 69 66  |as%<>1.Z<$. glif|
00012ee0  65 25 3c 31 20 84 20 76  72 65 61 73 25 3d 30 20  |e%<1 . vreas%=0 |
00012ef0  84 20 76 72 65 61 73 25  3d 35 0d 5a 46 1b fd 20  |. vreas%=5.ZF.. |
00012f00  76 72 65 61 73 25 3c 3e  35 20 84 20 76 6c 65 76  |vreas%<>5 . vlev|
00012f10  6c 25 3d 31 37 0d 5a 50  0b d6 20 65 66 61 64 65  |l%=17.ZP.. efade|
00012f20  0d 5a 5a 27 eb 20 6b 6c  75 64 67 65 5f 6d 6f 64  |.ZZ'. kludge_mod|
00012f30  65 3a c8 99 20 22 4f 53  5f 52 65 6d 6f 76 65 43  |e:.. "OS_RemoveC|
00012f40  75 72 73 6f 72 73 22 0d  5a 64 1b e7 20 76 6c 65  |ursors".Zd.. vle|
00012f50  76 6c 25 3d 31 37 20 8c  20 f2 63 6f 6d 70 6c 65  |vl%=17 . .comple|
00012f60  74 65 0d 5a 6e 1f c8 99  20 22 43 6f 63 6f 5f 56  |te.Zn... "Coco_V|
00012f70  6f 6c 75 6d 65 22 2c 32  35 35 2d 76 6d 75 73 78  |olume",255-vmusx|
00012f80  25 0d 5a 78 3a c8 99 20  22 43 6f 63 6f 5f 4d 6f  |%.Zx:.. "Coco_Mo|
00012f90  76 65 22 2c 35 32 3a c8  99 20 22 43 6f 63 6f 5f  |ve",52:.. "Coco_|
00012fa0  53 65 71 53 74 61 72 74  22 2c 30 3a c8 99 20 22  |SeqStart",0:.. "|
00012fb0  43 6f 63 6f 5f 53 74 61  72 74 22 0d 5a 82 4b c8  |Coco_Start".Z.K.|
00012fc0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00012fd0  32 35 36 2b 33 34 2c 62  73 70 72 69 25 2c 22 47  |256+34,bspri%,"G|
00012fe0  61 6d 65 4f 76 65 72 22  2c 36 34 30 2d 35 35 33  |ameOver",640-553|
00012ff0  2c 32 35 36 2d 34 34 2b  6b 6c 75 64 67 65 5f 6d  |,256-44+kludge_m|
00013000  6f 64 65 6f 66 73 0d 5a  8c 0e f2 77 61 69 74 28  |odeofs.Z...wait(|
00013010  31 30 30 29 0d 5a 96 0b  d6 20 65 63 66 61 64 0d  |100).Z... ecfad.|
00013020  5a a0 1d eb 31 33 3a c8  99 20 22 4f 53 5f 52 65  |Z...13:.. "OS_Re|
00013030  6d 6f 76 65 43 75 72 73  6f 72 73 22 0d 5a aa 21  |moveCursors".Z.!|
00013040  e7 20 67 73 63 6f 72 25  3e 62 6c 65 76 73 25 21  |. gscor%>blevs%!|
00013050  37 30 20 80 20 66 72 6f  67 3d 31 20 8c 0d 5a b4  |70 . frog=1 ..Z.|
00013060  19 c8 99 20 22 43 6f 63  6f 5f 53 65 71 53 74 61  |... "Coco_SeqSta|
00013070  72 74 22 2c 36 31 0d 5a  be 28 f2 70 72 69 6e 74  |rt",61.Z.(.print|
00013080  28 22 20 20 59 4f 55 20  48 41 56 45 20 41 20 53  |("  YOU HAVE A S|
00013090  43 4f 52 45 20 20 22 2c  30 2c 38 30 30 29 0d 5a  |CORE  ",0,800).Z|
000130a0  c8 28 f2 70 72 69 6e 74  28 22 20 20 57 4f 52 54  |.(.print("  WORT|
000130b0  48 59 20 45 4e 4f 55 47  48 20 54 4f 20 20 22 2c  |HY ENOUGH TO  ",|
000130c0  30 2c 37 33 36 29 0d 5a  d2 28 f2 70 72 69 6e 74  |0,736).Z.(.print|
000130d0  28 22 42 45 20 52 45 43  4f 52 44 45 44 20 46 4f  |("BE RECORDED FO|
000130e0  52 45 56 45 52 2e 22 2c  30 2c 36 36 32 29 0d 5a  |REVER.",0,662).Z|
000130f0  dc 28 f2 70 72 69 6e 74  28 22 57 45 4c 4c 20 2c  |.(.print("WELL ,|
00013100  20 55 4e 54 49 4c 20 59  4f 55 20 47 45 54 22 2c  | UNTIL YOU GET",|
00013110  30 2c 35 39 38 29 0d 5a  e6 28 f2 70 72 69 6e 74  |0,598).Z.(.print|
00013120  28 22 4b 4e 4f 43 4b 45  44 20 4f 46 46 20 2c 20  |("KNOCKED OFF , |
00013130  41 4e 59 57 41 59 22 2c  30 2c 35 33 34 29 0d 5a  |ANYWAY",0,534).Z|
00013140  f0 28 f2 70 72 69 6e 74  28 22 20 20 45 4e 54 45  |.(.print("  ENTE|
00013150  52 20 59 4f 55 52 20 4e  41 4d 45 20 2c 20 22 2c  |R YOUR NAME , ",|
00013160  30 2c 34 37 30 29 0d 5a  fa 28 f2 70 72 69 6e 74  |0,470).Z.(.print|
00013170  28 22 20 59 4f 55 20 56  41 4c 49 41 4e 54 20 54  |(" YOU VALIANT T|
00013180  48 49 4e 47 2e 20 22 2c  30 2c 34 30 36 29 0d 5b  |HING. ",0,406).[|
00013190  04 28 f2 70 72 69 6e 74  28 22 20 20 20 20 3e 20  |.(.print("    > |
000131a0  20 20 20 20 20 20 20 20  20 3c 20 20 20 20 22 2c  |         <    ",|
000131b0  30 2c 33 34 32 29 0d 5b  0e 90 e7 20 6d 65 64 61  |0,342).[... meda|
000131c0  6c 73 25 3d 2d 31 20 8c  20 67 6e 61 6d 65 24 3d  |ls%=-1 . gname$=|
000131d0  a4 70 61 64 28 a4 69 6e  70 75 74 28 33 32 30 2c  |.pad(.input(320,|
000131e0  33 34 32 2c 33 32 2c 39  30 2c 31 30 29 2c 31 30  |342,32,90,10),10|
000131f0  29 20 8b 20 f2 70 72 69  6e 74 28 bd 28 39 33 2b  |) . .print(.(93+|
00013200  6d 65 64 61 6c 73 25 29  2c 33 32 30 2c 33 34 32  |medals%),320,342|
00013210  29 3a 67 6e 61 6d 65 24  3d bd 28 39 33 2b 6d 65  |):gname$=.(93+me|
00013220  64 61 6c 73 25 29 2b a4  70 61 64 28 a4 69 6e 70  |dals%)+.pad(.inp|
00013230  75 74 28 33 38 34 2c 33  34 32 2c 33 32 2c 39 30  |ut(384,342,32,90|
00013240  2c 39 29 2c 39 29 0d 5b  18 14 d6 20 65 66 61 64  |,9),9).[... efad|
00013250  65 3a 66 73 61 76 65 25  3d b9 0d 5b 22 10 e3 20  |e:fsave%=..[".. |
00013260  6c 73 63 6f 72 25 3d 30  b8 34 0d 5b 2c 23 e7 20  |lscor%=0.4.[,#. |
00013270  67 73 63 6f 72 25 3e 62  6c 65 76 73 25 21 28 35  |gscor%>blevs%!(5|
00013280  34 2b 6c 73 63 6f 72 25  2a 34 29 20 8c 0d 5b 36  |4+lscor%*4) ..[6|
00013290  49 6f 73 63 6f 72 25 3d  62 6c 65 76 73 25 21 28  |Ioscor%=blevs%!(|
000132a0  35 34 2b 6c 73 63 6f 72  25 2a 34 29 3a 62 6c 65  |54+lscor%*4):ble|
000132b0  76 73 25 21 28 35 34 2b  6c 73 63 6f 72 25 2a 34  |vs%!(54+lscor%*4|
000132c0  29 3d 67 73 63 6f 72 25  3a 67 73 63 6f 72 25 3d  |)=gscor%:gscor%=|
000132d0  6f 73 63 6f 72 25 0d 5b  40 2b 6f 6e 61 6d 65 24  |oscor%.[@+oname$|
000132e0  3d a4 67 65 74 6c 6e 73  74 72 28 62 6c 65 76 73  |=.getlnstr(blevs|
000132f0  25 2b 34 2b 31 30 2a 6c  73 63 6f 72 25 2c 31 30  |%+4+10*lscor%,10|
00013300  29 0d 5b 4a 34 f2 70 75  74 73 74 72 28 67 6e 61  |).[J4.putstr(gna|
00013310  6d 65 24 2c 62 6c 65 76  73 25 2b 34 2b 31 30 2a  |me$,blevs%+4+10*|
00013320  6c 73 63 6f 72 25 29 3a  67 6e 61 6d 65 24 3d 6f  |lscor%):gname$=o|
00013330  6e 61 6d 65 24 0d 5b 54  05 cd 0d 5b 5e 05 ed 0d  |name$.[T...[^...|
00013340  5b 68 18 c8 99 20 22 43  6f 63 6f 5f 53 65 71 53  |[h... "Coco_SeqS|
00013350  74 61 72 74 22 2c 30 0d  5b 72 05 cd 0d 5b 7c 05  |tart",0.[r...[|.|
00013360  e1 0d ff                                          |...|
00013363