� Spinning Frustration
� By Nicholas Jameson
� (c) Electron User
(�
2*FX200,1
<�4:�23,1,0;0;0;0;
F
�title
P�scores
Z
�assemble
d�:�19,1,7;0;
n�
x
�instruct
��5:�23,1,0;0;0;0;
�	�game
��4:�23,1,0;0;0;0;
��report
��I%=0 �tB@
��0
��  High scores
�<� Fred,Jim,Sheila,User,Electron,Nick,Tim,Mick,Andy,Bruno
��  Graphics data
�2�1,3,112,112,112,3,1,0,8,12,224,224,224,12,8,0
�1�1,33,112,52,22,3,1,0,8,12,14,134,194,192,8,0
�9�16,18,22,22,22,18,16,0,128,132,134,134,134,132,128,0
�1�1,3,22,52,112,33,1,0,8,192,194,134,14,12,8,0

 �7,225,225,225,225,225,224,0

�  Data for tune

��80,76,72,68,255,80,255,100,255,116,255,116,108,108,104,108,108,100,96,100,100,96,92,96,96,88,84,88,80,76,72,68,80,255,100,255,68,64,60,60,255,80,255,96,255,96,88,84,88,80,76,72,68,255,52,255,32,255,52,68

"+�80,76,68,60,255,48,255,32,255,48,60,99

,��assemble

6�byte=0�71

@	�data

Jbyte?&C00=data

T�

^
byte=0

h�

r	�data

|�data=99 �tdA

�byte?&4900=data

�byte=byte+1

��0

��pass=0�2�2

�P%=&5000

�[OPTpass

�%.init \initialisation and summary

�!LDA#&50:STA&70 \ball position

�LDA#&71:STA&71

�$LDA#0:STA&72 \balls old position

�LDA#&80:STA&73

�)\ &74 and &75 - reserved for checking

�$LDA#&88:STA&76 \batters position
LDA#&7B:STA&77
&LDA#0:STA&78 \batters old position
LDA#&80:STA&79
&,LDA#0:STA&7C \location for data for ball
0LDA#&C:STA&7D
:$LDA#2:STA&C4A \direction of ball
D.LDA#0:STA&7A \pointer for IRQ driven music
NLDA#&49:STA&7B
X0LDA#16:STA&C4B \counter for IRQ driven music
bILDA#1:STA&C48:STA&C49 \position of ball and counter for spinning rate
l LDX#8:LDY#0:LDA#214:JSR&FFF4
vLDA#1:STA&C52
�+LDA#&86:STA&8E \counter for blocks left
�LDA#1:STA&8F
�LDA#0:STA&C4C \score
�LDA#0:STA&C4D
�LDA#&88:STA&C53 \bonus
�LDA#&13:STA&C54
�LDA#0:STA&C4E \dead yet?
�LDX#service � &FF
�LDY#service � &100
�SEI
�STX&204
�STY&205
�CLI
LDA#&A0:STA&7E
LDA#&5F:STA&7F
.blockloop1
 LDX#&F0
*.blockloop2
4TXA:CLC:ADC&7E:STA&80
>LDA&7F:ADC#0:STA&81
H	LDY#7
R.blockloop3
\LDA&C40,Y:STA(&80),Y
fDEY:BPLblockloop3
p#TXA:SEC:SBC#8:TAX:BNEblockloop2
zLDA&7F:CMP#&6E:BEQendsub
�LDA&7E:CLC:ADC#&40:STA&7E
�LDA&7F:ADC#1:STA&7F
�JMPblockloop1
�.endsub
�/LDA#&A0:STA&7E \location for fungus to grow
�LDA#&6C:STA&7F
�	JMPml
�.service
�TYA
�PHA
�TXA
�PHA
�LDA&C52:BEQoldvector
'INC&C4B:LDA&C4B:CMP#19:BNEoldvector
LDA#0:STA&C4B

.sound
$LDA#0:STA&C4B
.LDY#0:LDA(&7A),Y
8#LDA(&7A),Y:TAX:LDA#213:JSR&FFF4
BLDA#21:LDX#5:JSR&FFF4
LLDA#7:JSR&FFEE
V)LDA&7A:CLC:ADC#1:STA&7A:CMP#71:BNEgap
`LDA#0:STA&7A
j.gap
t#LDA(&7A),Y:CMP#255:BNEoldvector
~LDA#236:STA&C4B
�LDA&7A:CLC:ADC#1:STA&7A
�.oldvector
�PLA
�TAX
�PLA
�TAY
�JMP&DB47
�.ml
�JSRdirection
�LDA&C4C:STA&C4F
�JSRprint
�
JSRbatter
.LDA#&81:LDX#&EF:LDY#&FF:JSR&FFF4:TYA:BEQon

LDA#0:STA&C52
.on
1LDA#&81:LDX#&AE:LDY#&FF:JSR&FFF4:TYA:BEQabort
(LDA#1:STA&C52
2
.abort
<0LDA#&81:LDX#&97:LDY#&FF:JSR&FFF4:TYA:BEQhold
FLDA#2:STA&C4E:JMPdead
P	.hold
Z4LDA#&81:LDX#&B6:LDY#&FF:JSR&FFF4:TYA:BEQnofreeze
dLDA&C52:STA&C50
nLDA#0:STA&C52
x.freeze
�2LDA#&81:LDX#&B7:LDY#&FF:JSR&FFF4:TYA:BEQfreeze
�LDA&C50:STA&C52
�
.nofreeze
�JSRpause
�LDA&C4E:BNEdead
�LDA&8F:BNEml
�LDA&8E:BNEml
�	.dead
�RTS
�
.pause
�
LDY#15
�	LDX#0
�
.ploop
DEX:BNEploop
DEY:BNEploop
RTS
".direction
,LDA&C57:BEQcheckpos1
6(LDA&71:CMP#&7B:BNEcheckpos:JSRfungii
@LDA&C4E:BEQcheckpos
JRTS
T3.checkpos LDA&71:CMP#&7C:BNEcheckpos1:JSRfungii
^LDA&C4E:BEQcheckpos1
hRTS
r.checkpos1
|LDA&70:SEC:SBC#&40:STA&74
�LDA&71:SBC#1:STA&75
�	LDY#0
�LDA(&74),Y:BEQunderneath
�CMP#7:BNEcarr
�JSRblank
�	.carr
�LDA&C4A:CMP#1:BNEother
�LDA#4:STA&C4A
�
.other
�LDA&C4A:CMP#2:BNEunderneath
�LDA#3:STA&C4A
�.underneath
�LDA&70:CLC:ADC#&40:STA&74
LDA&71:ADC#1:STA&75
LDA(&74),Y:BEQlefthand
CMP#7:BNEcarr1
&JSRblank
0
.carr1
:LDA&C4A:CMP#4:BNEother1
DLDA#1:STA&C4A
N.other1
XLDA&C4A:CMP#3:BNElefthand
bLDA#2:STA&C4A
l
.lefthand
vLDA&70:SEC:SBC#8:STA&74
�LDA&71:SBC#0:STA&75
�LDA(&74),Y:BEQrighthand
�CMP#7:BNEcarr2
�JSRblank
�
.carr2
�LDA&C4A:CMP#1:BNEother2
�LDA#2:STA&C4A
�.other2
�LDA&C4A:CMP#4:BNErighthand
�LDA#3:STA&C4A
�.righthand
�LDA&70:CLC:ADC#16:STA&74
�LDA&71:ADC#0:STA&75
LDA(&74),Y:BEQmove
CMP#7:BNEcarr3
JSRblank
 
.carr3
*LDA&C4A:CMP#2:BNEother3
4LDA#1:STA&C4A
>.other3
HLDA&C4A:CMP#3:BNEmove
RLDA#4:STA&C4A
\	.move
fLDA&C4A:CMP#1:BEQupleft
pLDA&C4A:CMP#2:BEQupright
zLDA&C4A:CMP#3:BEQdownright
�LDA&70:CLC:ADC#&38:STA&70
�LDA&71:ADC#1:STA&71
�RTS
�.upleft
�LDA&70:SEC:SBC#&48:STA&70
�LDA&71:SBC#1:STA&71
�RTS
�.upright
�LDA&70:SEC:SBC#&38:STA&70
�LDA&71:SBC#1:STA&71
�RTS
�.downright
�LDA&70:CLC:ADC#&48:STA&70
	LDA&71:ADC#1:STA&71
	RTS
	
.print
	$	LDX#2
	.
.loop1
	8
LDY#15
	B
.loop2
	L"LDA(&7C),Y:�(&72),Y:STA(&72),Y
	VDEY:BPLloop2
	`TXA:CMP#2:BNEfido
	jJSRspin
	t	.fido
	~LDA&70:STA&72
	�LDA&71:STA&73
	�DEX:BNEloop1
	�RTS
	�.batter
	�LDA#&81
	�LDX#&9E
	�LDY#&FF
	�JSR&FFF4
	�TYA:BEQright
	�LDA&76:SEC:SBC#16:STA&76
	�LDA&77:SBC#0:STA&77
	�
.right
LDA#&81

LDX#&BD
LDY#&FF
JSR&FFF4
(TYA:BEQchecker
2LDA&76:CLC:ADC#16:STA&76
<LDA&77:ADC#0:STA&77
F.checker
PQLDA&76:CMP#&F8:BNEcheck1:LDA&77:CMP#&7A:BNEcheck1:LDA#8:STA&76:LDA#&7B:STA&77
Z].check1 LDA&76:CMP#8:BNEbatprint:LDA&77:CMP#&7C:BNEbatprint:LDA#&F8:STA&76:LDA#&7B:STA&77
d
.batprint
nLDA#1:STA&C56
x	LDX#2
�
.loop3
�
LDY#63
�
.loop4
�LDA&C56:BNEnostripe
�LDA#&A0:�(&78),Y:STA(&78),Y
�
.nostripe
�$INC&C56:LDA&C56:CMP#2:BNEstripes
�LDA#0:STA&C56
�.stripes
�DEY:BPLloop4
�LDA&76:STA&78
�LDA&77:STA&79
�DEX:BNEloop3
RTS

.blank
LDA#1:STA&C57
"LDA&8E:SEC:SBC#1:STA&8E
,LDA&8F:SBC#0:STA&8F
6LDY#7:LDA#0
@
.bloop
JSTA(&74),Y
TDEY:BPLbloop
^LDA&74:STA&7E
hLDA&75:STA&7F
rLDA&C4C:CLC:ADC#3:STA&C4C
|LDA&C4D:ADC#0:STA&C4D
�RTS
�.ascend
�LDA#0:STA&C48
�LDA&7E:SEC:SBC#&80:STA&7E
�LDA&7F:SBC#2:STA&7F
�JMPcountdown
�.fungii
�LDA#0:STA&C57
�LDA&7E:CLC:ADC#&80:STA&7E
�LDA&7F:ADC#2:STA&7F
�CMP#&7B:BNEOk
�LDA#3:STA&C4E:RTS
�.Ok
LDA&7F:CMP#&7C:BNEOk1
LDA#3:STA&C4E:RTS
.Ok1
&	LDY#0
0LDA(&7E),Y:BNEascend
:LDA#1:STA&C48
D.countdown
NLDA&8E:CLC:ADC#1:STA&8E
XLDA&8F:ADC#0:STA&8F
b	LDY#7
l.funloop
vLDA&C40,Y:STA(&7E),Y
�DEY:BPLfunloop
�LDA&C54:STA&C51
�LDA&C53:SEC:SBC#50:STA&C53
�LDA&C54:SBC#0:STA&C54
�!LDA&C51:SEC:SBC&C54:BCSgrower
�LDA#1:STA&C4E
�LDA#0:STA&C53:STA&C54
�RTS
�.grower
�LDA&C58:BEQsieze
�LDA&7E:SEC:SBC#&40:STA&7E
�LDA&7F:SBC#1:STA&7F
�
.sieze

RTS

	.spin

#INC&C48:LDA&C48:CMP#14:BEQangle

 RTS

*.angle LDA#1:STA&C48

4 INC&C49:LDA&C49:CMP#5:BNEone

>LDA#1:STA&C49

H.one

RLDA&C49:CMP#1:BNEtwo

\LDA#0:STA&7C:LDA#&C:STA&7D

f
JMProtend

p.two

zLDA&C49:CMP#2:BNEthree

� LDA#&10:STA&7C:LDA#&C:STA&7D

�
JMProtend

�
.three

�LDA&C49:CMP#3:BNEfour

� LDA#&20:STA&7C:LDA#&C:STA&7D

�
JMProtend

�	.four

� LDA#&30:STA&7C:LDA#&C:STA&7D

�.rotend

�RTS

�.endtune

�LDX#&47

�LDY#&DB
SEI
STX&204
STY&205
$CLI
.RTS
8]
B�
L�
V
��game
`)�28,0:�1252,0:�1252,990:�28,990:�28,0
j
�&5000
tA� ?&C4E=1 �1:�3,14);"Bonus is zero-"�6,16);"Game over":�tfN
~\� ?&C4E=2 �1:�3,14);"Game aborted"�6,16);"No bonus":?&C53=0:?&C54=0:?&8E=0:?&8F=0:�tfN
�P� ?&C4E=3 �1:�3,14);"The fungus"�3,16);"has killed you":?&8E=0:?&8F=0:�tfN
��2
��3,14);"Congratulations"
��=0:���=400
��endtune
��
���scores
�#�23,250,24,36,66,126,66,36,24,0
�� S$(10),HI%(10)
��I%=1�10
��S1$
�S$(I%)=S1$+" "+�250
HI%(I%)=2000+(I%*200)

�
�
��instruct
(�''"  Spinning Frustration"
2�"  ======== ==========="
<��" The idea of this game is to knock out"''" all the fungus at the top of the"''" screen with a spinning ball which"''" bounces about the screen.  If the ball"''" hits the bottom directly after hitting"'
F��" a block the fungus grows and you loose"''" some bonus.  You have to stop this"''" from happening by catching the ball"''" with the bat which you can move left"''" and right at the bottom of the screen"'
P��" If the fungus reaches the level of"''" your bat the game will be over.  You"''" score points for hitting blocks."''" Press space to scroll."
Z
���-99
d��''" The game will be over also if your"''" bonus falls to zero.  The little symbol"'" (";�250;") in the high score table means that"''" it is a name put in by the computer."''" These are your keys:"''" Z.....Left"'
n��" X....Right"''" Return....Freeze game"''" *....Unfreeze game"''" ?....Abort game"''" Q....Sound off"''" S....Sound on"''" Press space to start the game."'''''
x�A$="...Spinning Frustration...devised and programmed and music composed by Nicholas Jameson (Aged 11)...For the Lancaster Royal Grammar School minibus appeal....."
��129:�0
��
��2,28);�A$,1,36)
��=0:���=5 � �-99
�A$=A$+�A$,1,1)
�A$=�A$,2,158)
�	��-99
��
���report
�C%=0
�
*FX4,1
�
SC%=?&C4C
�SC1%=?&C4D
SC1%=SC1%*256
SC%=SC%+SC1%

BO%=?&C53
"BO1%=?&C54 
,BO1%=BO1%*256 
6BO%=BO%+BO1%
@SC%=SC%+BO%
JCO%=?&8E
T
CO1%=?&8F
^CO1%=CO1%*256
hCO%=CO%+CO1%
rSC%=SC%-CO%
|U�SC%<HI%(1) �'''"   Your score is ";SC% � �'''"   Please enter your name ":�table
��''"      High scores:"
��I%=10�1�-1
�7�C%=I% �'"  ";HI%(I%);"........";:D%=�:E%=�:�:�tnP
�$�'"  ";HI%(I%);"........";S$(I%)
��
��C%>0 �name
�L�4,28);"Press space for another go"''"     or press I for instructions"
�*FX21,0
�*�:key=�:� key=�"I" � key=�"i" � key=32
��key=32 I%=0 �I%=1
��
���table
��I%=10�1�-1
�SC%>HI%(I%) �shift:�
�
�
&��shift
0	C%=I%
:�B%=1�I%
DS$(B%-1)=S$(B%)
NHI%(B%-1)=HI%(B%)
X�
bHI%(I%)=SC%
l�
v
��name
�*FX21,0
�
S$(C%)=""
�L%=0
�
�31,D%,E%
��
�	key=�
���key=13 �3,3);"                      ":�key=13 � �key=127 � L%=0:�0 � � key=127 S$(C%)=�S$(C%),1,�(S$(C%))-1):L%=L%-1:�127:�0 � �L%<13 �key:S$(C%)=S$(C%)+�key:L%=L%+1:�0��dZQ
��
��1,-15,10,3
��0
���title
��19,1,3;0;
�$�8,12);"By Nicholas Jameson..."

�31,10,14
A$="Spinning Frustration"
�320,504
 �L%=1�20
*?&70=�(�A$,L%,1))
4A%=10:X%=&70:Y%=0:�&FFF1
>�23,224
H�K%=0�7
R�?(&71+(K%�2))
\�
f�23,225
p�K%=0�7
z�?(&75+(K%�2))
��
��224,8,10,225,11
��320+(L%*32),504
��1,-15,40+(L%*8),2
�
�=0:���=6
��
��19,1,3;0;
��=0:���=300
��
�

00000000  0d 00 0a 1a f4 20 53 70  69 6e 6e 69 6e 67 20 46  |..... Spinning F|
00000010  72 75 73 74 72 61 74 69  6f 6e 0d 00 14 19 f4 20  |rustration..... |
00000020  42 79 20 4e 69 63 68 6f  6c 61 73 20 4a 61 6d 65  |By Nicholas Jame|
00000030  73 6f 6e 0d 00 1e 17 f4  20 28 63 29 20 45 6c 65  |son..... (c) Ele|
00000040  63 74 72 6f 6e 20 55 73  65 72 0d 00 28 05 f4 0d  |ctron User..(...|
00000050  00 32 0c 2a 46 58 32 30  30 2c 31 0d 00 3c 15 eb  |.2.*FX200,1..<..|
00000060  34 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |4:.23,1,0;0;0;0;|
00000070  0d 00 46 0a f2 74 69 74  6c 65 0d 00 50 0b f2 73  |..F..title..P..s|
00000080  63 6f 72 65 73 0d 00 5a  0d f2 61 73 73 65 6d 62  |cores..Z..assemb|
00000090  6c 65 0d 00 64 10 db 3a  ef 31 39 2c 31 2c 37 3b  |le..d..:.19,1,7;|
000000a0  30 3b 0d 00 6e 05 f5 0d  00 78 0d f2 69 6e 73 74  |0;..n....x..inst|
000000b0  72 75 63 74 0d 00 82 15  eb 35 3a ef 32 33 2c 31  |ruct.....5:.23,1|
000000c0  2c 30 3b 30 3b 30 3b 30  3b 0d 00 8c 09 f2 67 61  |,0;0;0;0;.....ga|
000000d0  6d 65 0d 00 96 15 eb 34  3a ef 32 33 2c 31 2c 30  |me.....4:.23,1,0|
000000e0  3b 30 3b 30 3b 30 3b 0d  00 a0 0b f2 72 65 70 6f  |;0;0;0;.....repo|
000000f0  72 74 0d 00 aa 0f e7 49  25 3d 30 20 e5 8d 74 42  |rt.....I%=0 ..tB|
00000100  40 0d 00 b4 06 fd 30 0d  00 be 12 f4 20 20 48 69  |@.....0.....  Hi|
00000110  67 68 20 73 63 6f 72 65  73 0d 00 c8 3c dc 20 46  |gh scores...<. F|
00000120  72 65 64 2c 4a 69 6d 2c  53 68 65 69 6c 61 2c 55  |red,Jim,Sheila,U|
00000130  73 65 72 2c 45 6c 65 63  74 72 6f 6e 2c 4e 69 63  |ser,Electron,Nic|
00000140  6b 2c 54 69 6d 2c 4d 69  63 6b 2c 41 6e 64 79 2c  |k,Tim,Mick,Andy,|
00000150  42 72 75 6e 6f 0d 00 d2  14 f4 20 20 47 72 61 70  |Bruno.....  Grap|
00000160  68 69 63 73 20 64 61 74  61 0d 00 dc 32 dc 31 2c  |hics data...2.1,|
00000170  33 2c 31 31 32 2c 31 31  32 2c 31 31 32 2c 33 2c  |3,112,112,112,3,|
00000180  31 2c 30 2c 38 2c 31 32  2c 32 32 34 2c 32 32 34  |1,0,8,12,224,224|
00000190  2c 32 32 34 2c 31 32 2c  38 2c 30 0d 00 e6 31 dc  |,224,12,8,0...1.|
000001a0  31 2c 33 33 2c 31 31 32  2c 35 32 2c 32 32 2c 33  |1,33,112,52,22,3|
000001b0  2c 31 2c 30 2c 38 2c 31  32 2c 31 34 2c 31 33 34  |,1,0,8,12,14,134|
000001c0  2c 31 39 34 2c 31 39 32  2c 38 2c 30 0d 00 f0 39  |,194,192,8,0...9|
000001d0  dc 31 36 2c 31 38 2c 32  32 2c 32 32 2c 32 32 2c  |.16,18,22,22,22,|
000001e0  31 38 2c 31 36 2c 30 2c  31 32 38 2c 31 33 32 2c  |18,16,0,128,132,|
000001f0  31 33 34 2c 31 33 34 2c  31 33 34 2c 31 33 32 2c  |134,134,134,132,|
00000200  31 32 38 2c 30 0d 00 fa  31 dc 31 2c 33 2c 32 32  |128,0...1.1,3,22|
00000210  2c 35 32 2c 31 31 32 2c  33 33 2c 31 2c 30 2c 38  |,52,112,33,1,0,8|
00000220  2c 31 39 32 2c 31 39 34  2c 31 33 34 2c 31 34 2c  |,192,194,134,14,|
00000230  31 32 2c 38 2c 30 0d 01  04 20 dc 37 2c 32 32 35  |12,8,0... .7,225|
00000240  2c 32 32 35 2c 32 32 35  2c 32 32 35 2c 32 32 35  |,225,225,225,225|
00000250  2c 32 32 34 2c 30 0d 01  0e 14 f4 20 20 44 61 74  |,224,0.....  Dat|
00000260  61 20 66 6f 72 20 74 75  6e 65 0d 01 18 d0 dc 38  |a for tune.....8|
00000270  30 2c 37 36 2c 37 32 2c  36 38 2c 32 35 35 2c 38  |0,76,72,68,255,8|
00000280  30 2c 32 35 35 2c 31 30  30 2c 32 35 35 2c 31 31  |0,255,100,255,11|
00000290  36 2c 32 35 35 2c 31 31  36 2c 31 30 38 2c 31 30  |6,255,116,108,10|
000002a0  38 2c 31 30 34 2c 31 30  38 2c 31 30 38 2c 31 30  |8,104,108,108,10|
000002b0  30 2c 39 36 2c 31 30 30  2c 31 30 30 2c 39 36 2c  |0,96,100,100,96,|
000002c0  39 32 2c 39 36 2c 39 36  2c 38 38 2c 38 34 2c 38  |92,96,96,88,84,8|
000002d0  38 2c 38 30 2c 37 36 2c  37 32 2c 36 38 2c 38 30  |8,80,76,72,68,80|
000002e0  2c 32 35 35 2c 31 30 30  2c 32 35 35 2c 36 38 2c  |,255,100,255,68,|
000002f0  36 34 2c 36 30 2c 36 30  2c 32 35 35 2c 38 30 2c  |64,60,60,255,80,|
00000300  32 35 35 2c 39 36 2c 32  35 35 2c 39 36 2c 38 38  |255,96,255,96,88|
00000310  2c 38 34 2c 38 38 2c 38  30 2c 37 36 2c 37 32 2c  |,84,88,80,76,72,|
00000320  36 38 2c 32 35 35 2c 35  32 2c 32 35 35 2c 33 32  |68,255,52,255,32|
00000330  2c 32 35 35 2c 35 32 2c  36 38 0d 01 22 2b dc 38  |,255,52,68.."+.8|
00000340  30 2c 37 36 2c 36 38 2c  36 30 2c 32 35 35 2c 34  |0,76,68,60,255,4|
00000350  38 2c 32 35 35 2c 33 32  2c 32 35 35 2c 34 38 2c  |8,255,32,255,48,|
00000360  36 30 2c 39 39 0d 01 2c  0e dd f2 61 73 73 65 6d  |60,99..,...assem|
00000370  62 6c 65 0d 01 36 0e e3  62 79 74 65 3d 30 b8 37  |ble..6..byte=0.7|
00000380  31 0d 01 40 09 f3 64 61  74 61 0d 01 4a 12 62 79  |1..@..data..J.by|
00000390  74 65 3f 26 43 30 30 3d  64 61 74 61 0d 01 54 05  |te?&C00=data..T.|
000003a0  ed 0d 01 5e 0a 62 79 74  65 3d 30 0d 01 68 05 f5  |...^.byte=0..h..|
000003b0  0d 01 72 09 f3 64 61 74  61 0d 01 7c 12 e7 64 61  |..r..data..|..da|
000003c0  74 61 3d 39 39 20 e5 8d  74 64 41 0d 01 86 13 62  |ta=99 ..tdA....b|
000003d0  79 74 65 3f 26 34 39 30  30 3d 64 61 74 61 0d 01  |yte?&4900=data..|
000003e0  90 0f 62 79 74 65 3d 62  79 74 65 2b 31 0d 01 9a  |..byte=byte+1...|
000003f0  06 fd 30 0d 01 a4 0f e3  70 61 73 73 3d 30 b8 32  |..0.....pass=0.2|
00000400  88 32 0d 01 ae 0c 50 25  3d 26 35 30 30 30 0d 01  |.2....P%=&5000..|
00000410  b8 0c 5b 4f 50 54 70 61  73 73 0d 01 c2 25 2e 69  |..[OPTpass...%.i|
00000420  6e 69 74 20 5c 69 6e 69  74 69 61 6c 69 73 61 74  |nit \initialisat|
00000430  69 6f 6e 20 61 6e 64 20  73 75 6d 6d 61 72 79 0d  |ion and summary.|
00000440  01 cc 21 4c 44 41 23 26  35 30 3a 53 54 41 26 37  |..!LDA#&50:STA&7|
00000450  30 20 5c 62 61 6c 6c 20  70 6f 73 69 74 69 6f 6e  |0 \ball position|
00000460  0d 01 d6 12 4c 44 41 23  26 37 31 3a 53 54 41 26  |....LDA#&71:STA&|
00000470  37 31 0d 01 e0 24 4c 44  41 23 30 3a 53 54 41 26  |71...$LDA#0:STA&|
00000480  37 32 20 5c 62 61 6c 6c  73 20 6f 6c 64 20 70 6f  |72 \balls old po|
00000490  73 69 74 69 6f 6e 0d 01  ea 12 4c 44 41 23 26 38  |sition....LDA#&8|
000004a0  30 3a 53 54 41 26 37 33  0d 01 f4 29 5c 20 26 37  |0:STA&73...)\ &7|
000004b0  34 20 61 6e 64 20 26 37  35 20 2d 20 72 65 73 65  |4 and &75 - rese|
000004c0  72 76 65 64 20 66 6f 72  20 63 68 65 63 6b 69 6e  |rved for checkin|
000004d0  67 0d 01 fe 24 4c 44 41  23 26 38 38 3a 53 54 41  |g...$LDA#&88:STA|
000004e0  26 37 36 20 5c 62 61 74  74 65 72 73 20 70 6f 73  |&76 \batters pos|
000004f0  69 74 69 6f 6e 0d 02 08  12 4c 44 41 23 26 37 42  |ition....LDA#&7B|
00000500  3a 53 54 41 26 37 37 0d  02 12 26 4c 44 41 23 30  |:STA&77...&LDA#0|
00000510  3a 53 54 41 26 37 38 20  5c 62 61 74 74 65 72 73  |:STA&78 \batters|
00000520  20 6f 6c 64 20 70 6f 73  69 74 69 6f 6e 0d 02 1c  | old position...|
00000530  12 4c 44 41 23 26 38 30  3a 53 54 41 26 37 39 0d  |.LDA#&80:STA&79.|
00000540  02 26 2c 4c 44 41 23 30  3a 53 54 41 26 37 43 20  |.&,LDA#0:STA&7C |
00000550  5c 6c 6f 63 61 74 69 6f  6e 20 66 6f 72 20 64 61  |\location for da|
00000560  74 61 20 66 6f 72 20 62  61 6c 6c 0d 02 30 11 4c  |ta for ball..0.L|
00000570  44 41 23 26 43 3a 53 54  41 26 37 44 0d 02 3a 24  |DA#&C:STA&7D..:$|
00000580  4c 44 41 23 32 3a 53 54  41 26 43 34 41 20 5c 64  |LDA#2:STA&C4A \d|
00000590  69 72 65 63 74 69 6f 6e  20 6f 66 20 62 61 6c 6c  |irection of ball|
000005a0  0d 02 44 2e 4c 44 41 23  30 3a 53 54 41 26 37 41  |..D.LDA#0:STA&7A|
000005b0  20 5c 70 6f 69 6e 74 65  72 20 66 6f 72 20 49 52  | \pointer for IR|
000005c0  51 20 64 72 69 76 65 6e  20 6d 75 73 69 63 0d 02  |Q driven music..|
000005d0  4e 12 4c 44 41 23 26 34  39 3a 53 54 41 26 37 42  |N.LDA#&49:STA&7B|
000005e0  0d 02 58 30 4c 44 41 23  31 36 3a 53 54 41 26 43  |..X0LDA#16:STA&C|
000005f0  34 42 20 5c 63 6f 75 6e  74 65 72 20 66 6f 72 20  |4B \counter for |
00000600  49 52 51 20 64 72 69 76  65 6e 20 6d 75 73 69 63  |IRQ driven music|
00000610  0d 02 62 49 4c 44 41 23  31 3a 53 54 41 26 43 34  |..bILDA#1:STA&C4|
00000620  38 3a 53 54 41 26 43 34  39 20 5c 70 6f 73 69 74  |8:STA&C49 \posit|
00000630  69 6f 6e 20 6f 66 20 62  61 6c 6c 20 61 6e 64 20  |ion of ball and |
00000640  63 6f 75 6e 74 65 72 20  66 6f 72 20 73 70 69 6e  |counter for spin|
00000650  6e 69 6e 67 20 72 61 74  65 0d 02 6c 20 4c 44 58  |ning rate..l LDX|
00000660  23 38 3a 4c 44 59 23 30  3a 4c 44 41 23 32 31 34  |#8:LDY#0:LDA#214|
00000670  3a 4a 53 52 26 46 46 46  34 0d 02 76 11 4c 44 41  |:JSR&FFF4..v.LDA|
00000680  23 31 3a 53 54 41 26 43  35 32 0d 02 80 2b 4c 44  |#1:STA&C52...+LD|
00000690  41 23 26 38 36 3a 53 54  41 26 38 45 20 5c 63 6f  |A#&86:STA&8E \co|
000006a0  75 6e 74 65 72 20 66 6f  72 20 62 6c 6f 63 6b 73  |unter for blocks|
000006b0  20 6c 65 66 74 0d 02 8a  10 4c 44 41 23 31 3a 53  | left....LDA#1:S|
000006c0  54 41 26 38 46 0d 02 94  18 4c 44 41 23 30 3a 53  |TA&8F....LDA#0:S|
000006d0  54 41 26 43 34 43 20 5c  73 63 6f 72 65 0d 02 9e  |TA&C4C \score...|
000006e0  11 4c 44 41 23 30 3a 53  54 41 26 43 34 44 0d 02  |.LDA#0:STA&C4D..|
000006f0  a8 1a 4c 44 41 23 26 38  38 3a 53 54 41 26 43 35  |..LDA#&88:STA&C5|
00000700  33 20 5c 62 6f 6e 75 73  0d 02 b2 13 4c 44 41 23  |3 \bonus....LDA#|
00000710  26 31 33 3a 53 54 41 26  43 35 34 0d 02 bc 1c 4c  |&13:STA&C54....L|
00000720  44 41 23 30 3a 53 54 41  26 43 34 45 20 5c 64 65  |DA#0:STA&C4E \de|
00000730  61 64 20 79 65 74 3f 0d  02 c6 15 4c 44 58 23 73  |ad yet?....LDX#s|
00000740  65 72 76 69 63 65 20 80  20 26 46 46 0d 02 d0 16  |ervice . &FF....|
00000750  4c 44 59 23 73 65 72 76  69 63 65 20 81 20 26 31  |LDY#service . &1|
00000760  30 30 0d 02 da 07 53 45  49 0d 02 e4 0b 53 54 58  |00....SEI....STX|
00000770  26 32 30 34 0d 02 ee 0b  53 54 59 26 32 30 35 0d  |&204....STY&205.|
00000780  02 f8 07 43 4c 49 0d 03  02 12 4c 44 41 23 26 41  |...CLI....LDA#&A|
00000790  30 3a 53 54 41 26 37 45  0d 03 0c 12 4c 44 41 23  |0:STA&7E....LDA#|
000007a0  26 35 46 3a 53 54 41 26  37 46 0d 03 16 0f 2e 62  |&5F:STA&7F.....b|
000007b0  6c 6f 63 6b 6c 6f 6f 70  31 0d 03 20 0b 4c 44 58  |lockloop1.. .LDX|
000007c0  23 26 46 30 0d 03 2a 0f  2e 62 6c 6f 63 6b 6c 6f  |#&F0..*..blocklo|
000007d0  6f 70 32 0d 03 34 19 54  58 41 3a 43 4c 43 3a 41  |op2..4.TXA:CLC:A|
000007e0  44 43 26 37 45 3a 53 54  41 26 38 30 0d 03 3e 17  |DC&7E:STA&80..>.|
000007f0  4c 44 41 26 37 46 3a 41  44 43 23 30 3a 53 54 41  |LDA&7F:ADC#0:STA|
00000800  26 38 31 0d 03 48 09 4c  44 59 23 37 0d 03 52 0f  |&81..H.LDY#7..R.|
00000810  2e 62 6c 6f 63 6b 6c 6f  6f 70 33 0d 03 5c 18 4c  |.blockloop3..\.L|
00000820  44 41 26 43 34 30 2c 59  3a 53 54 41 28 26 38 30  |DA&C40,Y:STA(&80|
00000830  29 2c 59 0d 03 66 15 44  45 59 3a 42 50 4c 62 6c  |),Y..f.DEY:BPLbl|
00000840  6f 63 6b 6c 6f 6f 70 33  0d 03 70 23 54 58 41 3a  |ockloop3..p#TXA:|
00000850  53 45 43 3a 53 42 43 23  38 3a 54 41 58 3a 42 4e  |SEC:SBC#8:TAX:BN|
00000860  45 62 6c 6f 63 6b 6c 6f  6f 70 32 0d 03 7a 1c 4c  |Eblockloop2..z.L|
00000870  44 41 26 37 46 3a 43 4d  50 23 26 36 45 3a 42 45  |DA&7F:CMP#&6E:BE|
00000880  51 65 6e 64 73 75 62 0d  03 84 1d 4c 44 41 26 37  |Qendsub....LDA&7|
00000890  45 3a 43 4c 43 3a 41 44  43 23 26 34 30 3a 53 54  |E:CLC:ADC#&40:ST|
000008a0  41 26 37 45 0d 03 8e 17  4c 44 41 26 37 46 3a 41  |A&7E....LDA&7F:A|
000008b0  44 43 23 31 3a 53 54 41  26 37 46 0d 03 98 11 4a  |DC#1:STA&7F....J|
000008c0  4d 50 62 6c 6f 63 6b 6c  6f 6f 70 31 0d 03 a2 0b  |MPblockloop1....|
000008d0  2e 65 6e 64 73 75 62 0d  03 ac 2f 4c 44 41 23 26  |.endsub.../LDA#&|
000008e0  41 30 3a 53 54 41 26 37  45 20 5c 6c 6f 63 61 74  |A0:STA&7E \locat|
000008f0  69 6f 6e 20 66 6f 72 20  66 75 6e 67 75 73 20 74  |ion for fungus t|
00000900  6f 20 67 72 6f 77 0d 03  b6 12 4c 44 41 23 26 36  |o grow....LDA#&6|
00000910  43 3a 53 54 41 26 37 46  0d 03 c0 09 4a 4d 50 6d  |C:STA&7F....JMPm|
00000920  6c 0d 03 ca 0c 2e 73 65  72 76 69 63 65 0d 03 d4  |l.....service...|
00000930  07 54 59 41 0d 03 de 07  50 48 41 0d 03 e8 07 54  |.TYA....PHA....T|
00000940  58 41 0d 03 f2 07 50 48  41 0d 03 fc 18 4c 44 41  |XA....PHA....LDA|
00000950  26 43 35 32 3a 42 45 51  6f 6c 64 76 65 63 74 6f  |&C52:BEQoldvecto|
00000960  72 0d 04 06 27 49 4e 43  26 43 34 42 3a 4c 44 41  |r...'INC&C4B:LDA|
00000970  26 43 34 42 3a 43 4d 50  23 31 39 3a 42 4e 45 6f  |&C4B:CMP#19:BNEo|
00000980  6c 64 76 65 63 74 6f 72  0d 04 10 11 4c 44 41 23  |ldvector....LDA#|
00000990  30 3a 53 54 41 26 43 34  42 0d 04 1a 0a 2e 73 6f  |0:STA&C4B.....so|
000009a0  75 6e 64 0d 04 24 11 4c  44 41 23 30 3a 53 54 41  |und..$.LDA#0:STA|
000009b0  26 43 34 42 0d 04 2e 14  4c 44 59 23 30 3a 4c 44  |&C4B....LDY#0:LD|
000009c0  41 28 26 37 41 29 2c 59  0d 04 38 23 4c 44 41 28  |A(&7A),Y..8#LDA(|
000009d0  26 37 41 29 2c 59 3a 54  41 58 3a 4c 44 41 23 32  |&7A),Y:TAX:LDA#2|
000009e0  31 33 3a 4a 53 52 26 46  46 46 34 0d 04 42 19 4c  |13:JSR&FFF4..B.L|
000009f0  44 41 23 32 31 3a 4c 44  58 23 35 3a 4a 53 52 26  |DA#21:LDX#5:JSR&|
00000a00  46 46 46 34 0d 04 4c 12  4c 44 41 23 37 3a 4a 53  |FFF4..L.LDA#7:JS|
00000a10  52 26 46 46 45 45 0d 04  56 29 4c 44 41 26 37 41  |R&FFEE..V)LDA&7A|
00000a20  3a 43 4c 43 3a 41 44 43  23 31 3a 53 54 41 26 37  |:CLC:ADC#1:STA&7|
00000a30  41 3a 43 4d 50 23 37 31  3a 42 4e 45 67 61 70 0d  |A:CMP#71:BNEgap.|
00000a40  04 60 10 4c 44 41 23 30  3a 53 54 41 26 37 41 0d  |.`.LDA#0:STA&7A.|
00000a50  04 6a 08 2e 67 61 70 0d  04 74 23 4c 44 41 28 26  |.j..gap..t#LDA(&|
00000a60  37 41 29 2c 59 3a 43 4d  50 23 32 35 35 3a 42 4e  |7A),Y:CMP#255:BN|
00000a70  45 6f 6c 64 76 65 63 74  6f 72 0d 04 7e 13 4c 44  |Eoldvector..~.LD|
00000a80  41 23 32 33 36 3a 53 54  41 26 43 34 42 0d 04 88  |A#236:STA&C4B...|
00000a90  1b 4c 44 41 26 37 41 3a  43 4c 43 3a 41 44 43 23  |.LDA&7A:CLC:ADC#|
00000aa0  31 3a 53 54 41 26 37 41  0d 04 92 0e 2e 6f 6c 64  |1:STA&7A.....old|
00000ab0  76 65 63 74 6f 72 0d 04  9c 07 50 4c 41 0d 04 a6  |vector....PLA...|
00000ac0  07 54 41 58 0d 04 b0 07  50 4c 41 0d 04 ba 07 54  |.TAX....PLA....T|
00000ad0  41 59 0d 04 c4 0c 4a 4d  50 26 44 42 34 37 0d 04  |AY....JMP&DB47..|
00000ae0  ce 07 2e 6d 6c 0d 04 d8  10 4a 53 52 64 69 72 65  |...ml....JSRdire|
00000af0  63 74 69 6f 6e 0d 04 e2  13 4c 44 41 26 43 34 43  |ction....LDA&C4C|
00000b00  3a 53 54 41 26 43 34 46  0d 04 ec 0c 4a 53 52 70  |:STA&C4F....JSRp|
00000b10  72 69 6e 74 0d 04 f6 0d  4a 53 52 62 61 74 74 65  |rint....JSRbatte|
00000b20  72 0d 05 00 2e 4c 44 41  23 26 38 31 3a 4c 44 58  |r....LDA#&81:LDX|
00000b30  23 26 45 46 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&EF:LDY#&FF:JSR|
00000b40  26 46 46 46 34 3a 54 59  41 3a 42 45 51 6f 6e 0d  |&FFF4:TYA:BEQon.|
00000b50  05 0a 11 4c 44 41 23 30  3a 53 54 41 26 43 35 32  |...LDA#0:STA&C52|
00000b60  0d 05 14 07 2e 6f 6e 0d  05 1e 31 4c 44 41 23 26  |.....on...1LDA#&|
00000b70  38 31 3a 4c 44 58 23 26  41 45 3a 4c 44 59 23 26  |81:LDX#&AE:LDY#&|
00000b80  46 46 3a 4a 53 52 26 46  46 46 34 3a 54 59 41 3a  |FF:JSR&FFF4:TYA:|
00000b90  42 45 51 61 62 6f 72 74  0d 05 28 11 4c 44 41 23  |BEQabort..(.LDA#|
00000ba0  31 3a 53 54 41 26 43 35  32 0d 05 32 0a 2e 61 62  |1:STA&C52..2..ab|
00000bb0  6f 72 74 0d 05 3c 30 4c  44 41 23 26 38 31 3a 4c  |ort..<0LDA#&81:L|
00000bc0  44 58 23 26 39 37 3a 4c  44 59 23 26 46 46 3a 4a  |DX#&97:LDY#&FF:J|
00000bd0  53 52 26 46 46 46 34 3a  54 59 41 3a 42 45 51 68  |SR&FFF4:TYA:BEQh|
00000be0  6f 6c 64 0d 05 46 19 4c  44 41 23 32 3a 53 54 41  |old..F.LDA#2:STA|
00000bf0  26 43 34 45 3a 4a 4d 50  64 65 61 64 0d 05 50 09  |&C4E:JMPdead..P.|
00000c00  2e 68 6f 6c 64 0d 05 5a  34 4c 44 41 23 26 38 31  |.hold..Z4LDA#&81|
00000c10  3a 4c 44 58 23 26 42 36  3a 4c 44 59 23 26 46 46  |:LDX#&B6:LDY#&FF|
00000c20  3a 4a 53 52 26 46 46 46  34 3a 54 59 41 3a 42 45  |:JSR&FFF4:TYA:BE|
00000c30  51 6e 6f 66 72 65 65 7a  65 0d 05 64 13 4c 44 41  |Qnofreeze..d.LDA|
00000c40  26 43 35 32 3a 53 54 41  26 43 35 30 0d 05 6e 11  |&C52:STA&C50..n.|
00000c50  4c 44 41 23 30 3a 53 54  41 26 43 35 32 0d 05 78  |LDA#0:STA&C52..x|
00000c60  0b 2e 66 72 65 65 7a 65  0d 05 82 32 4c 44 41 23  |..freeze...2LDA#|
00000c70  26 38 31 3a 4c 44 58 23  26 42 37 3a 4c 44 59 23  |&81:LDX#&B7:LDY#|
00000c80  26 46 46 3a 4a 53 52 26  46 46 46 34 3a 54 59 41  |&FF:JSR&FFF4:TYA|
00000c90  3a 42 45 51 66 72 65 65  7a 65 0d 05 8c 13 4c 44  |:BEQfreeze....LD|
00000ca0  41 26 43 35 30 3a 53 54  41 26 43 35 32 0d 05 96  |A&C50:STA&C52...|
00000cb0  0d 2e 6e 6f 66 72 65 65  7a 65 0d 05 a0 0c 4a 53  |..nofreeze....JS|
00000cc0  52 70 61 75 73 65 0d 05  aa 13 4c 44 41 26 43 34  |Rpause....LDA&C4|
00000cd0  45 3a 42 4e 45 64 65 61  64 0d 05 b4 10 4c 44 41  |E:BNEdead....LDA|
00000ce0  26 38 46 3a 42 4e 45 6d  6c 0d 05 be 10 4c 44 41  |&8F:BNEml....LDA|
00000cf0  26 38 45 3a 42 4e 45 6d  6c 0d 05 c8 09 2e 64 65  |&8E:BNEml.....de|
00000d00  61 64 0d 05 d2 07 52 54  53 0d 05 dc 0a 2e 70 61  |ad....RTS.....pa|
00000d10  75 73 65 0d 05 e6 0a 4c  44 59 23 31 35 0d 05 f0  |use....LDY#15...|
00000d20  09 4c 44 58 23 30 0d 05  fa 0a 2e 70 6c 6f 6f 70  |.LDX#0.....ploop|
00000d30  0d 06 04 10 44 45 58 3a  42 4e 45 70 6c 6f 6f 70  |....DEX:BNEploop|
00000d40  0d 06 0e 10 44 45 59 3a  42 4e 45 70 6c 6f 6f 70  |....DEY:BNEploop|
00000d50  0d 06 18 07 52 54 53 0d  06 22 0e 2e 64 69 72 65  |....RTS.."..dire|
00000d60  63 74 69 6f 6e 0d 06 2c  18 4c 44 41 26 43 35 37  |ction..,.LDA&C57|
00000d70  3a 42 45 51 63 68 65 63  6b 70 6f 73 31 0d 06 36  |:BEQcheckpos1..6|
00000d80  28 4c 44 41 26 37 31 3a  43 4d 50 23 26 37 42 3a  |(LDA&71:CMP#&7B:|
00000d90  42 4e 45 63 68 65 63 6b  70 6f 73 3a 4a 53 52 66  |BNEcheckpos:JSRf|
00000da0  75 6e 67 69 69 0d 06 40  17 4c 44 41 26 43 34 45  |ungii..@.LDA&C4E|
00000db0  3a 42 45 51 63 68 65 63  6b 70 6f 73 0d 06 4a 07  |:BEQcheckpos..J.|
00000dc0  52 54 53 0d 06 54 33 2e  63 68 65 63 6b 70 6f 73  |RTS..T3.checkpos|
00000dd0  20 4c 44 41 26 37 31 3a  43 4d 50 23 26 37 43 3a  | LDA&71:CMP#&7C:|
00000de0  42 4e 45 63 68 65 63 6b  70 6f 73 31 3a 4a 53 52  |BNEcheckpos1:JSR|
00000df0  66 75 6e 67 69 69 0d 06  5e 18 4c 44 41 26 43 34  |fungii..^.LDA&C4|
00000e00  45 3a 42 45 51 63 68 65  63 6b 70 6f 73 31 0d 06  |E:BEQcheckpos1..|
00000e10  68 07 52 54 53 0d 06 72  0e 2e 63 68 65 63 6b 70  |h.RTS..r..checkp|
00000e20  6f 73 31 0d 06 7c 1d 4c  44 41 26 37 30 3a 53 45  |os1..|.LDA&70:SE|
00000e30  43 3a 53 42 43 23 26 34  30 3a 53 54 41 26 37 34  |C:SBC#&40:STA&74|
00000e40  0d 06 86 17 4c 44 41 26  37 31 3a 53 42 43 23 31  |....LDA&71:SBC#1|
00000e50  3a 53 54 41 26 37 35 0d  06 90 09 4c 44 59 23 30  |:STA&75....LDY#0|
00000e60  0d 06 9a 1c 4c 44 41 28  26 37 34 29 2c 59 3a 42  |....LDA(&74),Y:B|
00000e70  45 51 75 6e 64 65 72 6e  65 61 74 68 0d 06 a4 11  |EQunderneath....|
00000e80  43 4d 50 23 37 3a 42 4e  45 63 61 72 72 0d 06 ae  |CMP#7:BNEcarr...|
00000e90  0c 4a 53 52 62 6c 61 6e  6b 0d 06 b8 09 2e 63 61  |.JSRblank.....ca|
00000ea0  72 72 0d 06 c2 1a 4c 44  41 26 43 34 41 3a 43 4d  |rr....LDA&C4A:CM|
00000eb0  50 23 31 3a 42 4e 45 6f  74 68 65 72 0d 06 cc 11  |P#1:BNEother....|
00000ec0  4c 44 41 23 34 3a 53 54  41 26 43 34 41 0d 06 d6  |LDA#4:STA&C4A...|
00000ed0  0a 2e 6f 74 68 65 72 0d  06 e0 1f 4c 44 41 26 43  |..other....LDA&C|
00000ee0  34 41 3a 43 4d 50 23 32  3a 42 4e 45 75 6e 64 65  |4A:CMP#2:BNEunde|
00000ef0  72 6e 65 61 74 68 0d 06  ea 11 4c 44 41 23 33 3a  |rneath....LDA#3:|
00000f00  53 54 41 26 43 34 41 0d  06 f4 0f 2e 75 6e 64 65  |STA&C4A.....unde|
00000f10  72 6e 65 61 74 68 0d 06  fe 1d 4c 44 41 26 37 30  |rneath....LDA&70|
00000f20  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
00000f30  26 37 34 0d 07 08 17 4c  44 41 26 37 31 3a 41 44  |&74....LDA&71:AD|
00000f40  43 23 31 3a 53 54 41 26  37 35 0d 07 12 1a 4c 44  |C#1:STA&75....LD|
00000f50  41 28 26 37 34 29 2c 59  3a 42 45 51 6c 65 66 74  |A(&74),Y:BEQleft|
00000f60  68 61 6e 64 0d 07 1c 12  43 4d 50 23 37 3a 42 4e  |hand....CMP#7:BN|
00000f70  45 63 61 72 72 31 0d 07  26 0c 4a 53 52 62 6c 61  |Ecarr1..&.JSRbla|
00000f80  6e 6b 0d 07 30 0a 2e 63  61 72 72 31 0d 07 3a 1b  |nk..0..carr1..:.|
00000f90  4c 44 41 26 43 34 41 3a  43 4d 50 23 34 3a 42 4e  |LDA&C4A:CMP#4:BN|
00000fa0  45 6f 74 68 65 72 31 0d  07 44 11 4c 44 41 23 31  |Eother1..D.LDA#1|
00000fb0  3a 53 54 41 26 43 34 41  0d 07 4e 0b 2e 6f 74 68  |:STA&C4A..N..oth|
00000fc0  65 72 31 0d 07 58 1d 4c  44 41 26 43 34 41 3a 43  |er1..X.LDA&C4A:C|
00000fd0  4d 50 23 33 3a 42 4e 45  6c 65 66 74 68 61 6e 64  |MP#3:BNElefthand|
00000fe0  0d 07 62 11 4c 44 41 23  32 3a 53 54 41 26 43 34  |..b.LDA#2:STA&C4|
00000ff0  41 0d 07 6c 0d 2e 6c 65  66 74 68 61 6e 64 0d 07  |A..l..lefthand..|
00001000  76 1b 4c 44 41 26 37 30  3a 53 45 43 3a 53 42 43  |v.LDA&70:SEC:SBC|
00001010  23 38 3a 53 54 41 26 37  34 0d 07 80 17 4c 44 41  |#8:STA&74....LDA|
00001020  26 37 31 3a 53 42 43 23  30 3a 53 54 41 26 37 35  |&71:SBC#0:STA&75|
00001030  0d 07 8a 1b 4c 44 41 28  26 37 34 29 2c 59 3a 42  |....LDA(&74),Y:B|
00001040  45 51 72 69 67 68 74 68  61 6e 64 0d 07 94 12 43  |EQrighthand....C|
00001050  4d 50 23 37 3a 42 4e 45  63 61 72 72 32 0d 07 9e  |MP#7:BNEcarr2...|
00001060  0c 4a 53 52 62 6c 61 6e  6b 0d 07 a8 0a 2e 63 61  |.JSRblank.....ca|
00001070  72 72 32 0d 07 b2 1b 4c  44 41 26 43 34 41 3a 43  |rr2....LDA&C4A:C|
00001080  4d 50 23 31 3a 42 4e 45  6f 74 68 65 72 32 0d 07  |MP#1:BNEother2..|
00001090  bc 11 4c 44 41 23 32 3a  53 54 41 26 43 34 41 0d  |..LDA#2:STA&C4A.|
000010a0  07 c6 0b 2e 6f 74 68 65  72 32 0d 07 d0 1e 4c 44  |....other2....LD|
000010b0  41 26 43 34 41 3a 43 4d  50 23 34 3a 42 4e 45 72  |A&C4A:CMP#4:BNEr|
000010c0  69 67 68 74 68 61 6e 64  0d 07 da 11 4c 44 41 23  |ighthand....LDA#|
000010d0  33 3a 53 54 41 26 43 34  41 0d 07 e4 0e 2e 72 69  |3:STA&C4A.....ri|
000010e0  67 68 74 68 61 6e 64 0d  07 ee 1c 4c 44 41 26 37  |ghthand....LDA&7|
000010f0  30 3a 43 4c 43 3a 41 44  43 23 31 36 3a 53 54 41  |0:CLC:ADC#16:STA|
00001100  26 37 34 0d 07 f8 17 4c  44 41 26 37 31 3a 41 44  |&74....LDA&71:AD|
00001110  43 23 30 3a 53 54 41 26  37 35 0d 08 02 16 4c 44  |C#0:STA&75....LD|
00001120  41 28 26 37 34 29 2c 59  3a 42 45 51 6d 6f 76 65  |A(&74),Y:BEQmove|
00001130  0d 08 0c 12 43 4d 50 23  37 3a 42 4e 45 63 61 72  |....CMP#7:BNEcar|
00001140  72 33 0d 08 16 0c 4a 53  52 62 6c 61 6e 6b 0d 08  |r3....JSRblank..|
00001150  20 0a 2e 63 61 72 72 33  0d 08 2a 1b 4c 44 41 26  | ..carr3..*.LDA&|
00001160  43 34 41 3a 43 4d 50 23  32 3a 42 4e 45 6f 74 68  |C4A:CMP#2:BNEoth|
00001170  65 72 33 0d 08 34 11 4c  44 41 23 31 3a 53 54 41  |er3..4.LDA#1:STA|
00001180  26 43 34 41 0d 08 3e 0b  2e 6f 74 68 65 72 33 0d  |&C4A..>..other3.|
00001190  08 48 19 4c 44 41 26 43  34 41 3a 43 4d 50 23 33  |.H.LDA&C4A:CMP#3|
000011a0  3a 42 4e 45 6d 6f 76 65  0d 08 52 11 4c 44 41 23  |:BNEmove..R.LDA#|
000011b0  34 3a 53 54 41 26 43 34  41 0d 08 5c 09 2e 6d 6f  |4:STA&C4A..\..mo|
000011c0  76 65 0d 08 66 1b 4c 44  41 26 43 34 41 3a 43 4d  |ve..f.LDA&C4A:CM|
000011d0  50 23 31 3a 42 45 51 75  70 6c 65 66 74 0d 08 70  |P#1:BEQupleft..p|
000011e0  1c 4c 44 41 26 43 34 41  3a 43 4d 50 23 32 3a 42  |.LDA&C4A:CMP#2:B|
000011f0  45 51 75 70 72 69 67 68  74 0d 08 7a 1e 4c 44 41  |EQupright..z.LDA|
00001200  26 43 34 41 3a 43 4d 50  23 33 3a 42 45 51 64 6f  |&C4A:CMP#3:BEQdo|
00001210  77 6e 72 69 67 68 74 0d  08 84 1d 4c 44 41 26 37  |wnright....LDA&7|
00001220  30 3a 43 4c 43 3a 41 44  43 23 26 33 38 3a 53 54  |0:CLC:ADC#&38:ST|
00001230  41 26 37 30 0d 08 8e 17  4c 44 41 26 37 31 3a 41  |A&70....LDA&71:A|
00001240  44 43 23 31 3a 53 54 41  26 37 31 0d 08 98 07 52  |DC#1:STA&71....R|
00001250  54 53 0d 08 a2 0b 2e 75  70 6c 65 66 74 0d 08 ac  |TS.....upleft...|
00001260  1d 4c 44 41 26 37 30 3a  53 45 43 3a 53 42 43 23  |.LDA&70:SEC:SBC#|
00001270  26 34 38 3a 53 54 41 26  37 30 0d 08 b6 17 4c 44  |&48:STA&70....LD|
00001280  41 26 37 31 3a 53 42 43  23 31 3a 53 54 41 26 37  |A&71:SBC#1:STA&7|
00001290  31 0d 08 c0 07 52 54 53  0d 08 ca 0c 2e 75 70 72  |1....RTS.....upr|
000012a0  69 67 68 74 0d 08 d4 1d  4c 44 41 26 37 30 3a 53  |ight....LDA&70:S|
000012b0  45 43 3a 53 42 43 23 26  33 38 3a 53 54 41 26 37  |EC:SBC#&38:STA&7|
000012c0  30 0d 08 de 17 4c 44 41  26 37 31 3a 53 42 43 23  |0....LDA&71:SBC#|
000012d0  31 3a 53 54 41 26 37 31  0d 08 e8 07 52 54 53 0d  |1:STA&71....RTS.|
000012e0  08 f2 0e 2e 64 6f 77 6e  72 69 67 68 74 0d 08 fc  |....downright...|
000012f0  1d 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |.LDA&70:CLC:ADC#|
00001300  26 34 38 3a 53 54 41 26  37 30 0d 09 06 17 4c 44  |&48:STA&70....LD|
00001310  41 26 37 31 3a 41 44 43  23 31 3a 53 54 41 26 37  |A&71:ADC#1:STA&7|
00001320  31 0d 09 10 07 52 54 53  0d 09 1a 0a 2e 70 72 69  |1....RTS.....pri|
00001330  6e 74 0d 09 24 09 4c 44  58 23 32 0d 09 2e 0a 2e  |nt..$.LDX#2.....|
00001340  6c 6f 6f 70 31 0d 09 38  0a 4c 44 59 23 31 35 0d  |loop1..8.LDY#15.|
00001350  09 42 0a 2e 6c 6f 6f 70  32 0d 09 4c 22 4c 44 41  |.B..loop2..L"LDA|
00001360  28 26 37 43 29 2c 59 3a  82 28 26 37 32 29 2c 59  |(&7C),Y:.(&72),Y|
00001370  3a 53 54 41 28 26 37 32  29 2c 59 0d 09 56 10 44  |:STA(&72),Y..V.D|
00001380  45 59 3a 42 50 4c 6c 6f  6f 70 32 0d 09 60 15 54  |EY:BPLloop2..`.T|
00001390  58 41 3a 43 4d 50 23 32  3a 42 4e 45 66 69 64 6f  |XA:CMP#2:BNEfido|
000013a0  0d 09 6a 0b 4a 53 52 73  70 69 6e 0d 09 74 09 2e  |..j.JSRspin..t..|
000013b0  66 69 64 6f 0d 09 7e 11  4c 44 41 26 37 30 3a 53  |fido..~.LDA&70:S|
000013c0  54 41 26 37 32 0d 09 88  11 4c 44 41 26 37 31 3a  |TA&72....LDA&71:|
000013d0  53 54 41 26 37 33 0d 09  92 10 44 45 58 3a 42 4e  |STA&73....DEX:BN|
000013e0  45 6c 6f 6f 70 31 0d 09  9c 07 52 54 53 0d 09 a6  |Eloop1....RTS...|
000013f0  0b 2e 62 61 74 74 65 72  0d 09 b0 0b 4c 44 41 23  |..batter....LDA#|
00001400  26 38 31 0d 09 ba 0b 4c  44 58 23 26 39 45 0d 09  |&81....LDX#&9E..|
00001410  c4 0b 4c 44 59 23 26 46  46 0d 09 ce 0c 4a 53 52  |..LDY#&FF....JSR|
00001420  26 46 46 46 34 0d 09 d8  10 54 59 41 3a 42 45 51  |&FFF4....TYA:BEQ|
00001430  72 69 67 68 74 0d 09 e2  1c 4c 44 41 26 37 36 3a  |right....LDA&76:|
00001440  53 45 43 3a 53 42 43 23  31 36 3a 53 54 41 26 37  |SEC:SBC#16:STA&7|
00001450  36 0d 09 ec 17 4c 44 41  26 37 37 3a 53 42 43 23  |6....LDA&77:SBC#|
00001460  30 3a 53 54 41 26 37 37  0d 09 f6 0a 2e 72 69 67  |0:STA&77.....rig|
00001470  68 74 0d 0a 00 0b 4c 44  41 23 26 38 31 0d 0a 0a  |ht....LDA#&81...|
00001480  0b 4c 44 58 23 26 42 44  0d 0a 14 0b 4c 44 59 23  |.LDX#&BD....LDY#|
00001490  26 46 46 0d 0a 1e 0c 4a  53 52 26 46 46 46 34 0d  |&FF....JSR&FFF4.|
000014a0  0a 28 12 54 59 41 3a 42  45 51 63 68 65 63 6b 65  |.(.TYA:BEQchecke|
000014b0  72 0d 0a 32 1c 4c 44 41  26 37 36 3a 43 4c 43 3a  |r..2.LDA&76:CLC:|
000014c0  41 44 43 23 31 36 3a 53  54 41 26 37 36 0d 0a 3c  |ADC#16:STA&76..<|
000014d0  17 4c 44 41 26 37 37 3a  41 44 43 23 30 3a 53 54  |.LDA&77:ADC#0:ST|
000014e0  41 26 37 37 0d 0a 46 0c  2e 63 68 65 63 6b 65 72  |A&77..F..checker|
000014f0  0d 0a 50 51 4c 44 41 26  37 36 3a 43 4d 50 23 26  |..PQLDA&76:CMP#&|
00001500  46 38 3a 42 4e 45 63 68  65 63 6b 31 3a 4c 44 41  |F8:BNEcheck1:LDA|
00001510  26 37 37 3a 43 4d 50 23  26 37 41 3a 42 4e 45 63  |&77:CMP#&7A:BNEc|
00001520  68 65 63 6b 31 3a 4c 44  41 23 38 3a 53 54 41 26  |heck1:LDA#8:STA&|
00001530  37 36 3a 4c 44 41 23 26  37 42 3a 53 54 41 26 37  |76:LDA#&7B:STA&7|
00001540  37 0d 0a 5a 5d 2e 63 68  65 63 6b 31 20 4c 44 41  |7..Z].check1 LDA|
00001550  26 37 36 3a 43 4d 50 23  38 3a 42 4e 45 62 61 74  |&76:CMP#8:BNEbat|
00001560  70 72 69 6e 74 3a 4c 44  41 26 37 37 3a 43 4d 50  |print:LDA&77:CMP|
00001570  23 26 37 43 3a 42 4e 45  62 61 74 70 72 69 6e 74  |#&7C:BNEbatprint|
00001580  3a 4c 44 41 23 26 46 38  3a 53 54 41 26 37 36 3a  |:LDA#&F8:STA&76:|
00001590  4c 44 41 23 26 37 42 3a  53 54 41 26 37 37 0d 0a  |LDA#&7B:STA&77..|
000015a0  64 0d 2e 62 61 74 70 72  69 6e 74 0d 0a 6e 11 4c  |d..batprint..n.L|
000015b0  44 41 23 31 3a 53 54 41  26 43 35 36 0d 0a 78 09  |DA#1:STA&C56..x.|
000015c0  4c 44 58 23 32 0d 0a 82  0a 2e 6c 6f 6f 70 33 0d  |LDX#2.....loop3.|
000015d0  0a 8c 0a 4c 44 59 23 36  33 0d 0a 96 0a 2e 6c 6f  |...LDY#63.....lo|
000015e0  6f 70 34 0d 0a a0 17 4c  44 41 26 43 35 36 3a 42  |op4....LDA&C56:B|
000015f0  4e 45 6e 6f 73 74 72 69  70 65 0d 0a aa 1f 4c 44  |NEnostripe....LD|
00001600  41 23 26 41 30 3a 82 28  26 37 38 29 2c 59 3a 53  |A#&A0:.(&78),Y:S|
00001610  54 41 28 26 37 38 29 2c  59 0d 0a b4 0d 2e 6e 6f  |TA(&78),Y.....no|
00001620  73 74 72 69 70 65 0d 0a  be 24 49 4e 43 26 43 35  |stripe...$INC&C5|
00001630  36 3a 4c 44 41 26 43 35  36 3a 43 4d 50 23 32 3a  |6:LDA&C56:CMP#2:|
00001640  42 4e 45 73 74 72 69 70  65 73 0d 0a c8 11 4c 44  |BNEstripes....LD|
00001650  41 23 30 3a 53 54 41 26  43 35 36 0d 0a d2 0c 2e  |A#0:STA&C56.....|
00001660  73 74 72 69 70 65 73 0d  0a dc 10 44 45 59 3a 42  |stripes....DEY:B|
00001670  50 4c 6c 6f 6f 70 34 0d  0a e6 11 4c 44 41 26 37  |PLloop4....LDA&7|
00001680  36 3a 53 54 41 26 37 38  0d 0a f0 11 4c 44 41 26  |6:STA&78....LDA&|
00001690  37 37 3a 53 54 41 26 37  39 0d 0a fa 10 44 45 58  |77:STA&79....DEX|
000016a0  3a 42 4e 45 6c 6f 6f 70  33 0d 0b 04 07 52 54 53  |:BNEloop3....RTS|
000016b0  0d 0b 0e 0a 2e 62 6c 61  6e 6b 0d 0b 18 11 4c 44  |.....blank....LD|
000016c0  41 23 31 3a 53 54 41 26  43 35 37 0d 0b 22 1b 4c  |A#1:STA&C57..".L|
000016d0  44 41 26 38 45 3a 53 45  43 3a 53 42 43 23 31 3a  |DA&8E:SEC:SBC#1:|
000016e0  53 54 41 26 38 45 0d 0b  2c 17 4c 44 41 26 38 46  |STA&8E..,.LDA&8F|
000016f0  3a 53 42 43 23 30 3a 53  54 41 26 38 46 0d 0b 36  |:SBC#0:STA&8F..6|
00001700  0f 4c 44 59 23 37 3a 4c  44 41 23 30 0d 0b 40 0a  |.LDY#7:LDA#0..@.|
00001710  2e 62 6c 6f 6f 70 0d 0b  4a 0e 53 54 41 28 26 37  |.bloop..J.STA(&7|
00001720  34 29 2c 59 0d 0b 54 10  44 45 59 3a 42 50 4c 62  |4),Y..T.DEY:BPLb|
00001730  6c 6f 6f 70 0d 0b 5e 11  4c 44 41 26 37 34 3a 53  |loop..^.LDA&74:S|
00001740  54 41 26 37 45 0d 0b 68  11 4c 44 41 26 37 35 3a  |TA&7E..h.LDA&75:|
00001750  53 54 41 26 37 46 0d 0b  72 1d 4c 44 41 26 43 34  |STA&7F..r.LDA&C4|
00001760  43 3a 43 4c 43 3a 41 44  43 23 33 3a 53 54 41 26  |C:CLC:ADC#3:STA&|
00001770  43 34 43 0d 0b 7c 19 4c  44 41 26 43 34 44 3a 41  |C4C..|.LDA&C4D:A|
00001780  44 43 23 30 3a 53 54 41  26 43 34 44 0d 0b 86 07  |DC#0:STA&C4D....|
00001790  52 54 53 0d 0b 90 0b 2e  61 73 63 65 6e 64 0d 0b  |RTS.....ascend..|
000017a0  9a 11 4c 44 41 23 30 3a  53 54 41 26 43 34 38 0d  |..LDA#0:STA&C48.|
000017b0  0b a4 1d 4c 44 41 26 37  45 3a 53 45 43 3a 53 42  |...LDA&7E:SEC:SB|
000017c0  43 23 26 38 30 3a 53 54  41 26 37 45 0d 0b ae 17  |C#&80:STA&7E....|
000017d0  4c 44 41 26 37 46 3a 53  42 43 23 32 3a 53 54 41  |LDA&7F:SBC#2:STA|
000017e0  26 37 46 0d 0b b8 10 4a  4d 50 63 6f 75 6e 74 64  |&7F....JMPcountd|
000017f0  6f 77 6e 0d 0b c2 0b 2e  66 75 6e 67 69 69 0d 0b  |own.....fungii..|
00001800  cc 11 4c 44 41 23 30 3a  53 54 41 26 43 35 37 0d  |..LDA#0:STA&C57.|
00001810  0b d6 1d 4c 44 41 26 37  45 3a 43 4c 43 3a 41 44  |...LDA&7E:CLC:AD|
00001820  43 23 26 38 30 3a 53 54  41 26 37 45 0d 0b e0 17  |C#&80:STA&7E....|
00001830  4c 44 41 26 37 46 3a 41  44 43 23 32 3a 53 54 41  |LDA&7F:ADC#2:STA|
00001840  26 37 46 0d 0b ea 11 43  4d 50 23 26 37 42 3a 42  |&7F....CMP#&7B:B|
00001850  4e 45 4f 6b 0d 0b f4 15  4c 44 41 23 33 3a 53 54  |NEOk....LDA#3:ST|
00001860  41 26 43 34 45 3a 52 54  53 0d 0b fe 07 2e 4f 6b  |A&C4E:RTS.....Ok|
00001870  0d 0c 08 19 4c 44 41 26  37 46 3a 43 4d 50 23 26  |....LDA&7F:CMP#&|
00001880  37 43 3a 42 4e 45 4f 6b  31 0d 0c 12 15 4c 44 41  |7C:BNEOk1....LDA|
00001890  23 33 3a 53 54 41 26 43  34 45 3a 52 54 53 0d 0c  |#3:STA&C4E:RTS..|
000018a0  1c 08 2e 4f 6b 31 0d 0c  26 09 4c 44 59 23 30 0d  |...Ok1..&.LDY#0.|
000018b0  0c 30 18 4c 44 41 28 26  37 45 29 2c 59 3a 42 4e  |.0.LDA(&7E),Y:BN|
000018c0  45 61 73 63 65 6e 64 0d  0c 3a 11 4c 44 41 23 31  |Eascend..:.LDA#1|
000018d0  3a 53 54 41 26 43 34 38  0d 0c 44 0e 2e 63 6f 75  |:STA&C48..D..cou|
000018e0  6e 74 64 6f 77 6e 0d 0c  4e 1b 4c 44 41 26 38 45  |ntdown..N.LDA&8E|
000018f0  3a 43 4c 43 3a 41 44 43  23 31 3a 53 54 41 26 38  |:CLC:ADC#1:STA&8|
00001900  45 0d 0c 58 17 4c 44 41  26 38 46 3a 41 44 43 23  |E..X.LDA&8F:ADC#|
00001910  30 3a 53 54 41 26 38 46  0d 0c 62 09 4c 44 59 23  |0:STA&8F..b.LDY#|
00001920  37 0d 0c 6c 0c 2e 66 75  6e 6c 6f 6f 70 0d 0c 76  |7..l..funloop..v|
00001930  18 4c 44 41 26 43 34 30  2c 59 3a 53 54 41 28 26  |.LDA&C40,Y:STA(&|
00001940  37 45 29 2c 59 0d 0c 80  12 44 45 59 3a 42 50 4c  |7E),Y....DEY:BPL|
00001950  66 75 6e 6c 6f 6f 70 0d  0c 8a 13 4c 44 41 26 43  |funloop....LDA&C|
00001960  35 34 3a 53 54 41 26 43  35 31 0d 0c 94 1e 4c 44  |54:STA&C51....LD|
00001970  41 26 43 35 33 3a 53 45  43 3a 53 42 43 23 35 30  |A&C53:SEC:SBC#50|
00001980  3a 53 54 41 26 43 35 33  0d 0c 9e 19 4c 44 41 26  |:STA&C53....LDA&|
00001990  43 35 34 3a 53 42 43 23  30 3a 53 54 41 26 43 35  |C54:SBC#0:STA&C5|
000019a0  34 0d 0c a8 21 4c 44 41  26 43 35 31 3a 53 45 43  |4...!LDA&C51:SEC|
000019b0  3a 53 42 43 26 43 35 34  3a 42 43 53 67 72 6f 77  |:SBC&C54:BCSgrow|
000019c0  65 72 0d 0c b2 11 4c 44  41 23 31 3a 53 54 41 26  |er....LDA#1:STA&|
000019d0  43 34 45 0d 0c bc 19 4c  44 41 23 30 3a 53 54 41  |C4E....LDA#0:STA|
000019e0  26 43 35 33 3a 53 54 41  26 43 35 34 0d 0c c6 07  |&C53:STA&C54....|
000019f0  52 54 53 0d 0c d0 0b 2e  67 72 6f 77 65 72 0d 0c  |RTS.....grower..|
00001a00  da 14 4c 44 41 26 43 35  38 3a 42 45 51 73 69 65  |..LDA&C58:BEQsie|
00001a10  7a 65 0d 0c e4 1d 4c 44  41 26 37 45 3a 53 45 43  |ze....LDA&7E:SEC|
00001a20  3a 53 42 43 23 26 34 30  3a 53 54 41 26 37 45 0d  |:SBC#&40:STA&7E.|
00001a30  0c ee 17 4c 44 41 26 37  46 3a 53 42 43 23 31 3a  |...LDA&7F:SBC#1:|
00001a40  53 54 41 26 37 46 0d 0c  f8 0a 2e 73 69 65 7a 65  |STA&7F.....sieze|
00001a50  0d 0d 02 07 52 54 53 0d  0d 0c 09 2e 73 70 69 6e  |....RTS.....spin|
00001a60  0d 0d 16 23 49 4e 43 26  43 34 38 3a 4c 44 41 26  |...#INC&C48:LDA&|
00001a70  43 34 38 3a 43 4d 50 23  31 34 3a 42 45 51 61 6e  |C48:CMP#14:BEQan|
00001a80  67 6c 65 0d 0d 20 07 52  54 53 0d 0d 2a 18 2e 61  |gle.. .RTS..*..a|
00001a90  6e 67 6c 65 20 4c 44 41  23 31 3a 53 54 41 26 43  |ngle LDA#1:STA&C|
00001aa0  34 38 0d 0d 34 20 49 4e  43 26 43 34 39 3a 4c 44  |48..4 INC&C49:LD|
00001ab0  41 26 43 34 39 3a 43 4d  50 23 35 3a 42 4e 45 6f  |A&C49:CMP#5:BNEo|
00001ac0  6e 65 0d 0d 3e 11 4c 44  41 23 31 3a 53 54 41 26  |ne..>.LDA#1:STA&|
00001ad0  43 34 39 0d 0d 48 08 2e  6f 6e 65 0d 0d 52 18 4c  |C49..H..one..R.L|
00001ae0  44 41 26 43 34 39 3a 43  4d 50 23 31 3a 42 4e 45  |DA&C49:CMP#1:BNE|
00001af0  74 77 6f 0d 0d 5c 1e 4c  44 41 23 30 3a 53 54 41  |two..\.LDA#0:STA|
00001b00  26 37 43 3a 4c 44 41 23  26 43 3a 53 54 41 26 37  |&7C:LDA#&C:STA&7|
00001b10  44 0d 0d 66 0d 4a 4d 50  72 6f 74 65 6e 64 0d 0d  |D..f.JMProtend..|
00001b20  70 08 2e 74 77 6f 0d 0d  7a 1a 4c 44 41 26 43 34  |p..two..z.LDA&C4|
00001b30  39 3a 43 4d 50 23 32 3a  42 4e 45 74 68 72 65 65  |9:CMP#2:BNEthree|
00001b40  0d 0d 84 20 4c 44 41 23  26 31 30 3a 53 54 41 26  |... LDA#&10:STA&|
00001b50  37 43 3a 4c 44 41 23 26  43 3a 53 54 41 26 37 44  |7C:LDA#&C:STA&7D|
00001b60  0d 0d 8e 0d 4a 4d 50 72  6f 74 65 6e 64 0d 0d 98  |....JMProtend...|
00001b70  0a 2e 74 68 72 65 65 0d  0d a2 19 4c 44 41 26 43  |..three....LDA&C|
00001b80  34 39 3a 43 4d 50 23 33  3a 42 4e 45 66 6f 75 72  |49:CMP#3:BNEfour|
00001b90  0d 0d ac 20 4c 44 41 23  26 32 30 3a 53 54 41 26  |... LDA#&20:STA&|
00001ba0  37 43 3a 4c 44 41 23 26  43 3a 53 54 41 26 37 44  |7C:LDA#&C:STA&7D|
00001bb0  0d 0d b6 0d 4a 4d 50 72  6f 74 65 6e 64 0d 0d c0  |....JMProtend...|
00001bc0  09 2e 66 6f 75 72 0d 0d  ca 20 4c 44 41 23 26 33  |..four... LDA#&3|
00001bd0  30 3a 53 54 41 26 37 43  3a 4c 44 41 23 26 43 3a  |0:STA&7C:LDA#&C:|
00001be0  53 54 41 26 37 44 0d 0d  d4 0b 2e 72 6f 74 65 6e  |STA&7D.....roten|
00001bf0  64 0d 0d de 07 52 54 53  0d 0d e8 0c 2e 65 6e 64  |d....RTS.....end|
00001c00  74 75 6e 65 0d 0d f2 0b  4c 44 58 23 26 34 37 0d  |tune....LDX#&47.|
00001c10  0d fc 0b 4c 44 59 23 26  44 42 0d 0e 06 07 53 45  |...LDY#&DB....SE|
00001c20  49 0d 0e 10 0b 53 54 58  26 32 30 34 0d 0e 1a 0b  |I....STX&204....|
00001c30  53 54 59 26 32 30 35 0d  0e 24 07 43 4c 49 0d 0e  |STY&205..$.CLI..|
00001c40  2e 07 52 54 53 0d 0e 38  05 5d 0d 0e 42 05 ed 0d  |..RTS..8.]..B...|
00001c50  0e 4c 05 e1 0d 0e 56 0a  dd f2 67 61 6d 65 0d 0e  |.L....V...game..|
00001c60  60 29 ec 32 38 2c 30 3a  df 31 32 35 32 2c 30 3a  |`).28,0:.1252,0:|
00001c70  df 31 32 35 32 2c 39 39  30 3a df 32 38 2c 39 39  |.1252,990:.28,99|
00001c80  30 3a df 32 38 2c 30 0d  0e 6a 0a d6 26 35 30 30  |0:.28,0..j..&500|
00001c90  30 0d 0e 74 41 e7 20 3f  26 43 34 45 3d 31 20 fb  |0..tA. ?&C4E=1 .|
00001ca0  31 3a f1 8a 33 2c 31 34  29 3b 22 42 6f 6e 75 73  |1:..3,14);"Bonus|
00001cb0  20 69 73 20 7a 65 72 6f  2d 22 8a 36 2c 31 36 29  | is zero-".6,16)|
00001cc0  3b 22 47 61 6d 65 20 6f  76 65 72 22 3a e5 8d 74  |;"Game over":..t|
00001cd0  66 4e 0d 0e 7e 5c e7 20  3f 26 43 34 45 3d 32 20  |fN..~\. ?&C4E=2 |
00001ce0  fb 31 3a f1 8a 33 2c 31  34 29 3b 22 47 61 6d 65  |.1:..3,14);"Game|
00001cf0  20 61 62 6f 72 74 65 64  22 8a 36 2c 31 36 29 3b  | aborted".6,16);|
00001d00  22 4e 6f 20 62 6f 6e 75  73 22 3a 3f 26 43 35 33  |"No bonus":?&C53|
00001d10  3d 30 3a 3f 26 43 35 34  3d 30 3a 3f 26 38 45 3d  |=0:?&C54=0:?&8E=|
00001d20  30 3a 3f 26 38 46 3d 30  3a e5 8d 74 66 4e 0d 0e  |0:?&8F=0:..tfN..|
00001d30  88 50 e7 20 3f 26 43 34  45 3d 33 20 fb 31 3a f1  |.P. ?&C4E=3 .1:.|
00001d40  8a 33 2c 31 34 29 3b 22  54 68 65 20 66 75 6e 67  |.3,14);"The fung|
00001d50  75 73 22 8a 33 2c 31 36  29 3b 22 68 61 73 20 6b  |us".3,16);"has k|
00001d60  69 6c 6c 65 64 20 79 6f  75 22 3a 3f 26 38 45 3d  |illed you":?&8E=|
00001d70  30 3a 3f 26 38 46 3d 30  3a e5 8d 74 66 4e 0d 0e  |0:?&8F=0:..tfN..|
00001d80  92 06 fb 32 0d 0e 9c 1d  f1 8a 33 2c 31 34 29 3b  |...2......3,14);|
00001d90  22 43 6f 6e 67 72 61 74  75 6c 61 74 69 6f 6e 73  |"Congratulations|
00001da0  22 0d 0e a6 0f d1 3d 30  3a f5 fd 91 3d 34 30 30  |".....=0:...=400|
00001db0  0d 0e b0 0c d6 65 6e 64  74 75 6e 65 0d 0e ba 05  |.....endtune....|
00001dc0  e1 0d 0e c4 0c dd f2 73  63 6f 72 65 73 0d 0e ce  |.......scores...|
00001dd0  23 ef 32 33 2c 32 35 30  2c 32 34 2c 33 36 2c 36  |#.23,250,24,36,6|
00001de0  36 2c 31 32 36 2c 36 36  2c 33 36 2c 32 34 2c 30  |6,126,66,36,24,0|
00001df0  0d 0e d8 14 de 20 53 24  28 31 30 29 2c 48 49 25  |..... S$(10),HI%|
00001e00  28 31 30 29 0d 0e e2 0c  e3 49 25 3d 31 b8 31 30  |(10).....I%=1.10|
00001e10  0d 0e ec 08 f3 53 31 24  0d 0e f6 17 53 24 28 49  |.....S1$....S$(I|
00001e20  25 29 3d 53 31 24 2b 22  20 22 2b bd 32 35 30 0d  |%)=S1$+" "+.250.|
00001e30  0f 00 19 48 49 25 28 49  25 29 3d 32 30 30 30 2b  |...HI%(I%)=2000+|
00001e40  28 49 25 2a 32 30 30 29  0d 0f 0a 05 ed 0d 0f 14  |(I%*200)........|
00001e50  05 e1 0d 0f 1e 0e dd f2  69 6e 73 74 72 75 63 74  |........instruct|
00001e60  0d 0f 28 1f f1 27 27 22  20 20 53 70 69 6e 6e 69  |..(..''"  Spinni|
00001e70  6e 67 20 46 72 75 73 74  72 61 74 69 6f 6e 22 0d  |ng Frustration".|
00001e80  0f 32 1d f1 22 20 20 3d  3d 3d 3d 3d 3d 3d 3d 20  |.2.."  ======== |
00001e90  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 22 0d 0f 3c cf  |==========="..<.|
00001ea0  f1 22 20 54 68 65 20 69  64 65 61 20 6f 66 20 74  |." The idea of t|
00001eb0  68 69 73 20 67 61 6d 65  20 69 73 20 74 6f 20 6b  |his game is to k|
00001ec0  6e 6f 63 6b 20 6f 75 74  22 27 27 22 20 61 6c 6c  |nock out"''" all|
00001ed0  20 74 68 65 20 66 75 6e  67 75 73 20 61 74 20 74  | the fungus at t|
00001ee0  68 65 20 74 6f 70 20 6f  66 20 74 68 65 22 27 27  |he top of the"''|
00001ef0  22 20 73 63 72 65 65 6e  20 77 69 74 68 20 61 20  |" screen with a |
00001f00  73 70 69 6e 6e 69 6e 67  20 62 61 6c 6c 20 77 68  |spinning ball wh|
00001f10  69 63 68 22 27 27 22 20  62 6f 75 6e 63 65 73 20  |ich"''" bounces |
00001f20  61 62 6f 75 74 20 74 68  65 20 73 63 72 65 65 6e  |about the screen|
00001f30  2e 20 20 49 66 20 74 68  65 20 62 61 6c 6c 22 27  |.  If the ball"'|
00001f40  27 22 20 68 69 74 73 20  74 68 65 20 62 6f 74 74  |'" hits the bott|
00001f50  6f 6d 20 64 69 72 65 63  74 6c 79 20 61 66 74 65  |om directly afte|
00001f60  72 20 68 69 74 74 69 6e  67 22 27 0d 0f 46 d1 f1  |r hitting"'..F..|
00001f70  22 20 61 20 62 6c 6f 63  6b 20 74 68 65 20 66 75  |" a block the fu|
00001f80  6e 67 75 73 20 67 72 6f  77 73 20 61 6e 64 20 79  |ngus grows and y|
00001f90  6f 75 20 6c 6f 6f 73 65  22 27 27 22 20 73 6f 6d  |ou loose"''" som|
00001fa0  65 20 62 6f 6e 75 73 2e  20 20 59 6f 75 20 68 61  |e bonus.  You ha|
00001fb0  76 65 20 74 6f 20 73 74  6f 70 20 74 68 69 73 22  |ve to stop this"|
00001fc0  27 27 22 20 66 72 6f 6d  20 68 61 70 70 65 6e 69  |''" from happeni|
00001fd0  6e 67 20 62 79 20 63 61  74 63 68 69 6e 67 20 74  |ng by catching t|
00001fe0  68 65 20 62 61 6c 6c 22  27 27 22 20 77 69 74 68  |he ball"''" with|
00001ff0  20 74 68 65 20 62 61 74  20 77 68 69 63 68 20 79  | the bat which y|
00002000  6f 75 20 63 61 6e 20 6d  6f 76 65 20 6c 65 66 74  |ou can move left|
00002010  22 27 27 22 20 61 6e 64  20 72 69 67 68 74 20 61  |"''" and right a|
00002020  74 20 74 68 65 20 62 6f  74 74 6f 6d 20 6f 66 20  |t the bottom of |
00002030  74 68 65 20 73 63 72 65  65 6e 22 27 0d 0f 50 93  |the screen"'..P.|
00002040  f1 22 20 49 66 20 74 68  65 20 66 75 6e 67 75 73  |." If the fungus|
00002050  20 72 65 61 63 68 65 73  20 74 68 65 20 6c 65 76  | reaches the lev|
00002060  65 6c 20 6f 66 22 27 27  22 20 79 6f 75 72 20 62  |el of"''" your b|
00002070  61 74 20 74 68 65 20 67  61 6d 65 20 77 69 6c 6c  |at the game will|
00002080  20 62 65 20 6f 76 65 72  2e 20 20 59 6f 75 22 27  | be over.  You"'|
00002090  27 22 20 73 63 6f 72 65  20 70 6f 69 6e 74 73 20  |'" score points |
000020a0  66 6f 72 20 68 69 74 74  69 6e 67 20 62 6c 6f 63  |for hitting bloc|
000020b0  6b 73 2e 22 27 27 22 20  50 72 65 73 73 20 73 70  |ks."''" Press sp|
000020c0  61 63 65 20 74 6f 20 73  63 72 6f 6c 6c 2e 22 0d  |ace to scroll.".|
000020d0  0f 5a 0a f5 fd a6 2d 39  39 0d 0f 64 db f1 27 27  |.Z....-99..d..''|
000020e0  22 20 54 68 65 20 67 61  6d 65 20 77 69 6c 6c 20  |" The game will |
000020f0  62 65 20 6f 76 65 72 20  61 6c 73 6f 20 69 66 20  |be over also if |
00002100  79 6f 75 72 22 27 27 22  20 62 6f 6e 75 73 20 66  |your"''" bonus f|
00002110  61 6c 6c 73 20 74 6f 20  7a 65 72 6f 2e 20 20 54  |alls to zero.  T|
00002120  68 65 20 6c 69 74 74 6c  65 20 73 79 6d 62 6f 6c  |he little symbol|
00002130  22 27 22 20 28 22 3b bd  32 35 30 3b 22 29 20 69  |"'" (";.250;") i|
00002140  6e 20 74 68 65 20 68 69  67 68 20 73 63 6f 72 65  |n the high score|
00002150  20 74 61 62 6c 65 20 6d  65 61 6e 73 20 74 68 61  | table means tha|
00002160  74 22 27 27 22 20 69 74  20 69 73 20 61 20 6e 61  |t"''" it is a na|
00002170  6d 65 20 70 75 74 20 69  6e 20 62 79 20 74 68 65  |me put in by the|
00002180  20 63 6f 6d 70 75 74 65  72 2e 22 27 27 22 20 54  | computer."''" T|
00002190  68 65 73 65 20 61 72 65  20 79 6f 75 72 20 6b 65  |hese are your ke|
000021a0  79 73 3a 22 27 27 22 20  5a 2e 2e 2e 2e 2e 4c 65  |ys:"''" Z.....Le|
000021b0  66 74 22 27 0d 0f 6e a4  f1 22 20 58 2e 2e 2e 2e  |ft"'..n.." X....|
000021c0  52 69 67 68 74 22 27 27  22 20 52 65 74 75 72 6e  |Right"''" Return|
000021d0  2e 2e 2e 2e 46 72 65 65  7a 65 20 67 61 6d 65 22  |....Freeze game"|
000021e0  27 27 22 20 2a 2e 2e 2e  2e 55 6e 66 72 65 65 7a  |''" *....Unfreez|
000021f0  65 20 67 61 6d 65 22 27  27 22 20 3f 2e 2e 2e 2e  |e game"''" ?....|
00002200  41 62 6f 72 74 20 67 61  6d 65 22 27 27 22 20 51  |Abort game"''" Q|
00002210  2e 2e 2e 2e 53 6f 75 6e  64 20 6f 66 66 22 27 27  |....Sound off"''|
00002220  22 20 53 2e 2e 2e 2e 53  6f 75 6e 64 20 6f 6e 22  |" S....Sound on"|
00002230  27 27 22 20 50 72 65 73  73 20 73 70 61 63 65 20  |''" Press space |
00002240  74 6f 20 73 74 61 72 74  20 74 68 65 20 67 61 6d  |to start the gam|
00002250  65 2e 22 27 27 27 27 27  0d 0f 78 a7 41 24 3d 22  |e."'''''..x.A$="|
00002260  2e 2e 2e 53 70 69 6e 6e  69 6e 67 20 46 72 75 73  |...Spinning Frus|
00002270  74 72 61 74 69 6f 6e 2e  2e 2e 64 65 76 69 73 65  |tration...devise|
00002280  64 20 61 6e 64 20 70 72  6f 67 72 61 6d 6d 65 64  |d and programmed|
00002290  20 61 6e 64 20 6d 75 73  69 63 20 63 6f 6d 70 6f  | and music compo|
000022a0  73 65 64 20 62 79 20 4e  69 63 68 6f 6c 61 73 20  |sed by Nicholas |
000022b0  4a 61 6d 65 73 6f 6e 20  28 41 67 65 64 20 31 31  |Jameson (Aged 11|
000022c0  29 2e 2e 2e 46 6f 72 20  74 68 65 20 4c 61 6e 63  |)...For the Lanc|
000022d0  61 73 74 65 72 20 52 6f  79 61 6c 20 47 72 61 6d  |aster Royal Gram|
000022e0  6d 61 72 20 53 63 68 6f  6f 6c 20 6d 69 6e 69 62  |mar School minib|
000022f0  75 73 20 61 70 70 65 61  6c 2e 2e 2e 2e 2e 22 0d  |us appeal.....".|
00002300  0f 82 0b fb 31 32 39 3a  fb 30 0d 0f 8c 05 f5 0d  |....129:.0......|
00002310  0f 96 15 f1 8a 32 2c 32  38 29 3b c1 41 24 2c 31  |.....2,28);.A$,1|
00002320  2c 33 36 29 0d 0f a0 14  d1 3d 30 3a f5 fd 91 3d  |,36).....=0:...=|
00002330  35 20 84 20 a6 2d 39 39  0d 0f aa 12 41 24 3d 41  |5 . .-99....A$=A|
00002340  24 2b c1 41 24 2c 31 2c  31 29 0d 0f b4 11 41 24  |$+.A$,1,1)....A$|
00002350  3d c1 41 24 2c 32 2c 31  35 38 29 0d 0f be 09 fd  |=.A$,2,158).....|
00002360  a6 2d 39 39 0d 0f c8 05  e1 0d 0f d2 0c dd f2 72  |.-99...........r|
00002370  65 70 6f 72 74 0d 0f dc  08 43 25 3d 30 0d 0f e6  |eport....C%=0...|
00002380  0a 2a 46 58 34 2c 31 0d  0f f0 0d 53 43 25 3d 3f  |.*FX4,1....SC%=?|
00002390  26 43 34 43 0d 0f fa 0e  53 43 31 25 3d 3f 26 43  |&C4C....SC1%=?&C|
000023a0  34 44 0d 10 04 11 53 43  31 25 3d 53 43 31 25 2a  |4D....SC1%=SC1%*|
000023b0  32 35 36 0d 10 0e 10 53  43 25 3d 53 43 25 2b 53  |256....SC%=SC%+S|
000023c0  43 31 25 0d 10 18 0d 42  4f 25 3d 3f 26 43 35 33  |C1%....BO%=?&C53|
000023d0  0d 10 22 0f 42 4f 31 25  3d 3f 26 43 35 34 20 0d  |..".BO1%=?&C54 .|
000023e0  10 2c 12 42 4f 31 25 3d  42 4f 31 25 2a 32 35 36  |.,.BO1%=BO1%*256|
000023f0  20 0d 10 36 10 42 4f 25  3d 42 4f 25 2b 42 4f 31  | ..6.BO%=BO%+BO1|
00002400  25 0d 10 40 0f 53 43 25  3d 53 43 25 2b 42 4f 25  |%..@.SC%=SC%+BO%|
00002410  0d 10 4a 0c 43 4f 25 3d  3f 26 38 45 0d 10 54 0d  |..J.CO%=?&8E..T.|
00002420  43 4f 31 25 3d 3f 26 38  46 0d 10 5e 11 43 4f 31  |CO1%=?&8F..^.CO1|
00002430  25 3d 43 4f 31 25 2a 32  35 36 0d 10 68 10 43 4f  |%=CO1%*256..h.CO|
00002440  25 3d 43 4f 25 2b 43 4f  31 25 0d 10 72 0f 53 43  |%=CO%+CO1%..r.SC|
00002450  25 3d 53 43 25 2d 43 4f  25 0d 10 7c 55 e7 53 43  |%=SC%-CO%..|U.SC|
00002460  25 3c 48 49 25 28 31 29  20 f1 27 27 27 22 20 20  |%<HI%(1) .'''"  |
00002470  20 59 6f 75 72 20 73 63  6f 72 65 20 69 73 20 22  | Your score is "|
00002480  3b 53 43 25 20 8b 20 f1  27 27 27 22 20 20 20 50  |;SC% . .'''"   P|
00002490  6c 65 61 73 65 20 65 6e  74 65 72 20 79 6f 75 72  |lease enter your|
000024a0  20 6e 61 6d 65 20 22 3a  f2 74 61 62 6c 65 0d 10  | name ":.table..|
000024b0  86 1b f1 27 27 22 20 20  20 20 20 20 48 69 67 68  |...''"      High|
000024c0  20 73 63 6f 72 65 73 3a  22 0d 10 90 0f e3 49 25  | scores:".....I%|
000024d0  3d 31 30 b8 31 88 2d 31  0d 10 9a 37 e7 43 25 3d  |=10.1.-1...7.C%=|
000024e0  49 25 20 f1 27 22 20 20  22 3b 48 49 25 28 49 25  |I% .'"  ";HI%(I%|
000024f0  29 3b 22 2e 2e 2e 2e 2e  2e 2e 2e 22 3b 3a 44 25  |);"........";:D%|
00002500  3d b1 3a 45 25 3d bc 3a  f1 3a e5 8d 74 6e 50 0d  |=.:E%=.:.:..tnP.|
00002510  10 a4 24 f1 27 22 20 20  22 3b 48 49 25 28 49 25  |..$.'"  ";HI%(I%|
00002520  29 3b 22 2e 2e 2e 2e 2e  2e 2e 2e 22 3b 53 24 28  |);"........";S$(|
00002530  49 25 29 0d 10 ae 05 ed  0d 10 b8 0f e7 43 25 3e  |I%)..........C%>|
00002540  30 20 f2 6e 61 6d 65 0d  10 c2 4c f1 8a 34 2c 32  |0 .name...L..4,2|
00002550  38 29 3b 22 50 72 65 73  73 20 73 70 61 63 65 20  |8);"Press space |
00002560  66 6f 72 20 61 6e 6f 74  68 65 72 20 67 6f 22 27  |for another go"'|
00002570  27 22 20 20 20 20 20 6f  72 20 70 72 65 73 73 20  |'"     or press |
00002580  49 20 66 6f 72 20 69 6e  73 74 72 75 63 74 69 6f  |I for instructio|
00002590  6e 73 22 0d 10 cc 0b 2a  46 58 32 31 2c 30 0d 10  |ns"....*FX21,0..|
000025a0  d6 2a f5 3a 6b 65 79 3d  a5 3a fd 20 6b 65 79 3d  |.*.:key=.:. key=|
000025b0  97 22 49 22 20 84 20 6b  65 79 3d 97 22 69 22 20  |."I" . key=."i" |
000025c0  84 20 6b 65 79 3d 33 32  0d 10 e0 16 e7 6b 65 79  |. key=32.....key|
000025d0  3d 33 32 20 49 25 3d 30  20 8b 49 25 3d 31 0d 10  |=32 I%=0 .I%=1..|
000025e0  ea 05 e1 0d 10 f4 0b dd  f2 74 61 62 6c 65 0d 10  |.........table..|
000025f0  fe 0f e3 49 25 3d 31 30  b8 31 88 2d 31 0d 11 08  |...I%=10.1.-1...|
00002600  19 e7 53 43 25 3e 48 49  25 28 49 25 29 20 f2 73  |..SC%>HI%(I%) .s|
00002610  68 69 66 74 3a e1 0d 11  12 05 ed 0d 11 1c 05 e1  |hift:...........|
00002620  0d 11 26 0b dd f2 73 68  69 66 74 0d 11 30 09 43  |..&...shift..0.C|
00002630  25 3d 49 25 0d 11 3a 0c  e3 42 25 3d 31 b8 49 25  |%=I%..:..B%=1.I%|
00002640  0d 11 44 13 53 24 28 42  25 2d 31 29 3d 53 24 28  |..D.S$(B%-1)=S$(|
00002650  42 25 29 0d 11 4e 15 48  49 25 28 42 25 2d 31 29  |B%)..N.HI%(B%-1)|
00002660  3d 48 49 25 28 42 25 29  0d 11 58 05 ed 0d 11 62  |=HI%(B%)..X....b|
00002670  0f 48 49 25 28 49 25 29  3d 53 43 25 0d 11 6c 05  |.HI%(I%)=SC%..l.|
00002680  e1 0d 11 76 0a dd f2 6e  61 6d 65 0d 11 80 0b 2a  |...v...name....*|
00002690  46 58 32 31 2c 30 0d 11  8a 0d 53 24 28 43 25 29  |FX21,0....S$(C%)|
000026a0  3d 22 22 0d 11 94 08 4c  25 3d 30 0d 11 9e 0d ef  |=""....L%=0.....|
000026b0  33 31 2c 44 25 2c 45 25  0d 11 a8 05 f5 0d 11 b2  |31,D%,E%........|
000026c0  09 6b 65 79 3d a5 0d 11  bc b4 e7 6b 65 79 3d 31  |.key=......key=1|
000026d0  33 20 f1 8a 33 2c 33 29  3b 22 20 20 20 20 20 20  |3 ..3,3);"      |
000026e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000026f0  22 3a fd 6b 65 79 3d 31  33 20 8b 20 e7 6b 65 79  |":.key=13 . .key|
00002700  3d 31 32 37 20 80 20 4c  25 3d 30 3a fd 30 20 8b  |=127 . L%=0:.0 .|
00002710  20 e7 20 6b 65 79 3d 31  32 37 20 53 24 28 43 25  | . key=127 S$(C%|
00002720  29 3d c1 53 24 28 43 25  29 2c 31 2c a9 28 53 24  |)=.S$(C%),1,.(S$|
00002730  28 43 25 29 29 2d 31 29  3a 4c 25 3d 4c 25 2d 31  |(C%))-1):L%=L%-1|
00002740  3a ef 31 32 37 3a fd 30  20 8b 20 e7 4c 25 3c 31  |:.127:.0 . .L%<1|
00002750  33 20 ef 6b 65 79 3a 53  24 28 43 25 29 3d 53 24  |3 .key:S$(C%)=S$|
00002760  28 43 25 29 2b bd 6b 65  79 3a 4c 25 3d 4c 25 2b  |(C%)+.key:L%=L%+|
00002770  31 3a fd 30 8b e5 8d 64  5a 51 0d 11 c6 05 e1 0d  |1:.0...dZQ......|
00002780  11 d0 0f d4 31 2c 2d 31  35 2c 31 30 2c 33 0d 11  |....1,-15,10,3..|
00002790  da 06 fd 30 0d 11 e4 0b  dd f2 74 69 74 6c 65 0d  |...0......title.|
000027a0  11 ee 0e ef 31 39 2c 31  2c 33 3b 30 3b 0d 11 f8  |....19,1,3;0;...|
000027b0  24 f1 8a 38 2c 31 32 29  3b 22 42 79 20 4e 69 63  |$..8,12);"By Nic|
000027c0  68 6f 6c 61 73 20 4a 61  6d 65 73 6f 6e 2e 2e 2e  |holas Jameson...|
000027d0  22 0d 12 02 0d ef 33 31  2c 31 30 2c 31 34 0d 12  |".....31,10,14..|
000027e0  0c 1d 41 24 3d 22 53 70  69 6e 6e 69 6e 67 20 46  |..A$="Spinning F|
000027f0  72 75 73 74 72 61 74 69  6f 6e 22 0d 12 16 0c ec  |rustration".....|
00002800  33 32 30 2c 35 30 34 0d  12 20 0c e3 4c 25 3d 31  |320,504.. ..L%=1|
00002810  b8 32 30 0d 12 2a 15 3f  26 37 30 3d 97 28 c1 41  |.20..*.?&70=.(.A|
00002820  24 2c 4c 25 2c 31 29 29  0d 12 34 1c 41 25 3d 31  |$,L%,1))..4.A%=1|
00002830  30 3a 58 25 3d 26 37 30  3a 59 25 3d 30 3a d6 26  |0:X%=&70:Y%=0:.&|
00002840  46 46 46 31 0d 12 3e 0b  ef 32 33 2c 32 32 34 0d  |FFF1..>..23,224.|
00002850  12 48 0b e3 4b 25 3d 30  b8 37 0d 12 52 12 ef 3f  |.H..K%=0.7..R..?|
00002860  28 26 37 31 2b 28 4b 25  81 32 29 29 0d 12 5c 05  |(&71+(K%.2))..\.|
00002870  ed 0d 12 66 0b ef 32 33  2c 32 32 35 0d 12 70 0b  |...f..23,225..p.|
00002880  e3 4b 25 3d 30 b8 37 0d  12 7a 12 ef 3f 28 26 37  |.K%=0.7..z..?(&7|
00002890  35 2b 28 4b 25 81 32 29  29 0d 12 84 05 ed 0d 12  |5+(K%.2)).......|
000028a0  8e 14 ef 32 32 34 2c 38  2c 31 30 2c 32 32 35 2c  |...224,8,10,225,|
000028b0  31 31 0d 12 98 14 df 33  32 30 2b 28 4c 25 2a 33  |11.....320+(L%*3|
000028c0  32 29 2c 35 30 34 0d 12  a2 16 d4 31 2c 2d 31 35  |2),504.....1,-15|
000028d0  2c 34 30 2b 28 4c 25 2a  38 29 2c 32 0d 12 ac 0d  |,40+(L%*8),2....|
000028e0  d1 3d 30 3a f5 fd 91 3d  36 0d 12 b6 05 ed 0d 12  |.=0:...=6.......|
000028f0  c0 0e ef 31 39 2c 31 2c  33 3b 30 3b 0d 12 ca 0f  |...19,1,3;0;....|
00002900  d1 3d 30 3a f5 fd 91 3d  33 30 30 0d 12 d4 05 e1  |.=0:...=300.....|
00002910  0d ff                                             |..|
00002912