� Skramble
� By R.A.Waddilove
� For Electron User
(	� � �
2� �>&E00 �relocate:�
<� 4
F�instructions
P� 5:�=&5100
Z�assemble:�
d�initialise
n�
x	�game
��another
�� �"Nn",key$)
�� 6
��
� 
�� �instructions
�*FX11,0
�
*FX4,1
�)� 22,4,23,1,0;0;0;0;19,0,4;0;:*FX16,0
�2� �10,1);:�big("* S K R A M B L E *"):*FX210,0
��''''" You are on a dangerous mission flying"''" deep into enemy territory. Your task"''" is to destroy as many alien fighters"''" and missiles as possible."
��''" Your plane is equipped with powerful"''" missiles which are capable of turning"''" enemy craft into fireballs on impact."
�U�''" Be carefull, one touch from an object"''" and your plane will disintegrate."

+�'''�8)"Press the SPACE bar...":*FX21,0

B� 0,900:� 0,1023:� 1276,1023:� 1276,0:� 0,0:� 0,900:� 1276,900

� 129:� 0:�scroll:� 128

"� 28,1,30,38,5,12

,d�129:� �3,20)" Press number to select option ":�128:�1:� �3,23)"A=up     Z=down     RETURN=fire"

6S� �dLA:� I%=1 � 5:� a$:� b$:� �4,3*I%-1);:�big(�(I%)+". "+a$+�25-�a$,".")+b$):�

@A%=1:B%=A%:*FX210,0

JS%=4:L%=4:joy=�:*FX16,0

T� key$=�:*FX21,0

^� key$="1" A%=-A%

h� key$="2" B%=-B%

r'� A%>0 � �32,2);:�big("S"):*FX210,0

|'� A%<0 � �32,2);:�big("Q"):*FX210,1

�,� B%>0 � �32,5);:�big("K"):joy=�:*FX16,0

�,� B%<0 � �32,5);:�big("J"):joy=�:*FX16,2

�2� key$="3" L%=(L%+1)�9:� �32,8);:�big(�(L%+1))

�3� key$="4" S%=(S%+1)�9:� �32,11);:�big(�(S%+1))

�� key$="5"

��

� 

�F� Sound/quiet,S, Keyboard/joystick,K,Start level,5,Speed,5,Start,?

� 

�� �game

�*!score=0:?speed=10-S%:?level=255-L%*25

�"� 3:� �2,31)"S K R A M B L E";

�*� 2:� �0,1)"Score:0000";�12,1)"Lives:"
� lives=3 � 1 � -1
� 0,1:� 0,900:� 21,1280,900
� �18,1);lives
&*� I%=0 � 78 � 2:I%!gtable=&7740+I%*4:�
0!� I%=0 � 78 � 4:I%!atable=0:�
:!� I%=0 � 78 � 4:I%!dtable=0:�
D/� I%=0 � 40 � 2:I%!table1=&5CF0+&140*I%/2:�
N!plane=&6210:?dead=0
X#� I%=0 � 23:I%?&6210=I%?pdata:�
b�=0:� �:*FX21,0
l$�pause(200):� 28,0,30,19,2,12,26
v�
��
� 
�� fireballs
�4� 12,61,4B,A5,96,4B,34,12,92,2C,58,A4,29,94,B,24
�2� 10,61,43,96,96,43,25,10,A1,C,9,2C,28,85,2,A1
�� plane
�F� 88,CC,EE,9F,FF,E7,E7,F7,0,0,0,FF,FF,F,F,FF,0,0,88,44,EE,3E,3E,EE
�� fighter1
�)� 0,0,0,2,5,F,3F,7,0,1,3,3,3F,F,DE,1E
�� fighter2
�4� 0,22,55,FF,CF,77,22,33,11,33,47,FF,3E,FE,11,11
�� fighter3
�2� 0,0,0,11,22,FF,CF,77,11,33,77,DF,77,FE,3E,FF

� missile
-� 0,0,47,9F,9F,47,0,0,1,12,F,3C,3C,F,12,1
� saucer
 1� 0,10,20,70,81,84,70,0,0,80,40,E0,18,12,E0,0
*� missile2
4-� 0,0,4,78,78,4,0,0,0,66,EF,DE,DE,EF,66,0
> 
H� �assemble
R,pdata=&5720:odata=&5728:� actually &5738
\fireball=&5700
f1� �tTB:� I%=0 � 151:� a$:I%?&5700=�("&"+a$):�
pgtable=&900:� ground
z&atable=&900+80:� objects addresses
�,dtable=&900+160:� objects data addresses
�,table1=&900+240:� right column addresses
�;old=&70:new=&72:seed=&74:count=&75:rows=&76:columns=&77
�Bolddata=&78:newdata=&7A:plane=&7C:flags=&7E:lcol=&7F:laser=&80
�*score=&82:dead=&86:speed=&87:level=&88
�Bosbyte=!&20A � &FFFF:oswrch=!&20E � &FFFF:osword=!&20C � &FFFF
�� pass=0 � 2 � 2
�P%=�
�[ OPT pass
�.main_loop
�JSR fire
�JSR move_plane:JSR test
�JSR flames
*DEC level+1:LDA level+1:� #7:BNE main1
)LDA level:CMP #20:BEQ main1:DEC level

.main1
$LDA speed:JSR wait
.JSR fire
8JSR move_plane:JSR test
BJSR ground
LLDA speed:JSR wait
VBLDA #&81:LDX #&8F:LDY #&FF:JSR osbyte:TYA:BNE return  \Escape?
`LDA dead:BEQ main_loop
jJSR blown_up
t.return
~RTS
� 
�
.blown_up
�LDX #40
�
.loop1
�TXA:PHA
�9LDX #sound5 � 256:LDY #sound5 � 256:LDA #7:JSR osword
�WJSR &AF51:LDA &2A:STA olddata:ASL A:STA newdata:LDA &90:STA olddata+1:STA newdata+1
�=LDA plane:STA old:STA new:LDA plane+1:STA old+1:STA new+1
�LDX #3:LDY #8:JSR print
�LDA speed:JSR wait
�JSR &AF51:LDA &2A:STA olddata:ASL A:STA newdata:LDA &80:STA olddata+1:STA newdata+1:LDA plane:STA old:STA new:LDA plane+1:STA old+1:STA new+1:LDX #3:LDY #8:JSR print
�!JSR ground:LDA speed:JSR wait
PLA:TAX

DEX:BNE loop1
RTS
 
().sound1 EQUD &00010011:EQUD &004000C8
2.sound2 EQUD 0:EQUD &11
<).sound3 EQUD &FFF10010:EQUD &000A0005
F).sound4 EQUD &FFF10011:EQUD &00020000
P).sound5 EQUD &FFF10010:EQUD &000A0004
Z.time EQUD 0:EQUB 0
d 
n	.wait
xPHA  \save duration
�BLDX #time � 256:LDY #time � 256:LDA #1:JSR osword  \read clock
�$PLA:CMP time:BPL wait  \time up?
�LLDA #0:STA time:STA time+1:STA time+2:STA time+3:STA time+4  \zero clock
�/STA time+1:STA time+2:STA time+3:STA time+4
�@LDX #time � 256:LDY #time � 256:LDA #2:JMP osword  \& return
� 
�	.fire
�$LDA lcol:BNE la1  \laser fired:]
�}� joy [OPT pass:LDX #0:LDA #128:JSR osbyte:TXA:] � [OPT pass:LDA #&81:LDX #&B6:LDY #&FF:JSR osbyte:TYA \return pressed?:]
�
[OPT pass
�BEQ la2
�%LDA plane:� #7:BNE la2  \on line?
�BCLC:LDA plane:ADC #24:STA laser:LDA plane+1:ADC #0:STA laser+1
3LDY #4:LDA (laser),Y:BNE explosion  \laser hit?
2LDA #&FE:STA (laser),Y:LDA #30:STA lcol  \fire
9LDX #sound1 � 256:LDY #sound1 � 256:LDA #7:JMP osword
".la1   \move laser bolt
,/LDY #4:LDA (laser),Y:CMP #&FE:BNE explosion
6SCLC:LDA laser:STA old:ADC #8:STA laser:LDA laser+1:STA old+1:ADC #0:STA laser+1
@2LDA #0:STA (old),Y:LDA (laser),Y:BNE explosion
JDEC lcol:BEQ la3
TLDA #&FE:STA (laser),Y
^.la2 RTS
hH.la3 LDX #sound2 � 256:LDY #sound2 � 256:LDA #7:JMP osword  \silence
r 
|.explosion
�LDX #0:STX lcol
�CMP #&96:BNE ex1
�9LDX #sound4 � 256:LDY #sound4 � 256:LDA #7:JMP osword
�>.ex1 LDX #sound3 � 256:LDY #sound3 � 256:LDA #7:JSR osword
�9LDX #sound2 � 256:LDY #sound2 � 256:LDA #7:JSR osword
�LDY #15
�
.loop1
� LDA fireball,Y:STA (laser),Y
�DEY:BPL loop1
�LDY #76
�
.loop1
�"LDA atable,Y:CMP laser:BNE ex2
�&LDA atable+1,Y:CMP laser+1:BEQ ex3
.ex2 DEY:DEY:BNE loop1
RTS
L.ex3 LDA #fireball � 256:STA dtable,Y:LDA #fireball � 256:STA dtable+1,Y
&YSED:CLC:LDA score+1:ADC #5:STA score+1:LDA score:ADC #0:STA score:CLD  \score=score+5
0:LDA #31:JSR oswrch:LDA #6:JSR oswrch:LDA #1:JSR oswrch
:<LDA score:LSR A:LSR A:LSR A:LSR A:CLC:ADC #48:JSR oswrch
D+LDA score:� #&0F:CLC:ADC #48:JSR oswrch
N>LDA score+1:LSR A:LSR A:LSR A:LSR A:CLC:ADC #48:JSR oswrch
X-LDA score+1:� #&0F:CLC:ADC #48:JSR oswrch
bRTS
l 
v.flames
�LDY #78
�
.loop1
�LDA dtable,Y:� #&EF:BNE fl1
�#LDA dtable,Y:� #16:STA dtable,Y
�.fl1 DEY:DEY:BNE loop1
�RTS
� 
�.move_plane
�YLDA #pdata � 256:STA olddata:STA newdata:LDA #pdata � 256:STA olddata+1:STA newdata+1
�+LDA plane+1:STA old+1:LDA plane:STA old
�� #7:BEQ mp4
�$LDA #1:BIT flags:BEQ mp5:BNE mp6
�.mp4  \mpup:]
�� joy � [OPT pass:LDX #2:LDA #&80:JSR osbyte:TYA:� #&C0:CMP #&C0:] � [OPT pass:LDA #&81:LDX #&BE:LDY #&FF:JSR osbyte:INY \A pressed?:]

[OPT pass
BNE mpdown
 #.mp5 LDA flags:� #&FE:STA flags
*SEC:LDA plane:� #7:BNE mp2
4HLDA plane:SBC #&3A:STA plane:LDA plane+1:SBC #&1:STA plane+1:JMP mp1
>J.mp2 LDA plane:SBC #2:STA plane:LDA plane+1:SBC #0:STA plane+1:JMP mp1
H
.mpdown:]
R�� joy � [OPT pass:LDX #2:LDA #&80:JSR osbyte:TYA:� #&C0:CMP #&0:] � [OPT pass:LDA #&81:LDX #&9E:LDY #&FF:JSR osbyte:INY \Z pressed?:]
\
[OPT pass
fBNE mp1
p".mp6 LDA flags:�A #1:STA flags
z!LDA plane:� #7:CMP #6:BEQ mp3
�ICLC:LDA plane:ADC #2:STA plane:LDA plane+1:ADC #0:STA plane+1:JMP mp1
�I.mp3 CLC:LDA plane:ADC #&3A:STA plane:LDA plane+1:ADC #&1:STA plane+1
�.mp1
�+LDA plane:STA new:LDA plane+1:STA new+1
�LDA #19:JSR osbyte  \*FX19
�LDX #3:LDY #8:JSR print
�RTS
� 
�.ground
�LDA #19:JSR osbyte  \*FX19
�9LDA atable+2:STA old:LDA atable+3:STA old+1:BEQ grnoa
�LDA #0:LDY #15
�
.loop1
	STA (old),Y
	DEY:BPL loop1
	.grnoa LDX #2:LDY #0
	$/LDA gtable+2:STA old:LDA gtable+3:STA old+1
	.TYA:STA (old),Y
	8
.loop1
	BINX:INX
	L\move alien objects
	VWLDA dtable,X:STA dtable-2,X:STA olddata:LDA dtable+1,X:STA dtable-1,X:STA olddata+1
	`:SEC:LDA atable,X:STA old:SBC #8:STA new:STA atable-2,X
	jE LDA atable+1,X:BEQ ma2:STA old+1:SBC #0:STA new+1:STA atable-1,X
	t
.loop2
	~2LDA (olddata),Y:STA (new),Y:LDA #0:STA (old),Y
	�INY:CPY #16:BNE loop2
	�TAY:JMP ma1
	�.ma2
	�TYA:STA atable-1,X
	�.ma1
	�\move ground
	�:SEC:LDA gtable,X:STA old:SBC #8:STA new:STA gtable-2,X
	�<LDA gtable+1,X:STA old+1:SBC #0:STA new+1:STA gtable-1,X
	�TYA:STA (old),Y
	�LDA #&0F:STA (new),Y
	�CPX #78:BNE loop1
	�\next piece of ground
9LDA seed:ASL A:ASL A:SEC:ADC seed:STA seed  \simple �

� #128:BNE grup
)LDA old+1:CMP #&7B:BPL gr2  \too low?
LDA old:� #7:CMP #7:BEQ gr1
(ACLC:LDA old:ADC #1:STA old:LDA old+1:ADC #0:STA old+1:JMP gr2
2I.gr1 CLC:LDA old:ADC #&39:STA old:LDA old+1:ADC #&1:STA old+1:JMP gr2
<	.grup
F*LDA old+1:CMP #&76:BMI gr2  \too high?
PSEC:LDA old:� #7:BEQ gr3
Z=LDA old:SBC #1:STA old:LDA old+1:SBC #0:STA old+1:JMP gr2
d=.gr3 LDA old:SBC #&39:STA old:LDA old+1:SBC #&1:STA old+1
n.gr2
x1LDA old:STA gtable,X:LDA old+1:STA gtable+1,X
�LDA #&F:LDY #0:STA (old),Y
�\new alien object
�BLDA level:STA &2A:STY &2B:STY &2C:STY &2D:JSR &AF12  \�(level)
�FLDA &2A:CMP #20:BCS grend:ASL A:PHA  \right column address pointer
�3LDA #6:STA &2A:JSR &AF12  \�(6)...alien objects
�{LDA &2A:ASL A:ASL A:ASL A:ASL A:ADC #odata � 256:STA olddata:STA dtable+78:LDA #odata � 256:STA olddata+1:STA dtable+79
�UPLA:TAY:LDA table1,Y:STA old:STA atable+78:LDA table1+1,Y:STA old+1:STA atable+79
�LDY #15
�
.loop1
�LDA (olddata),Y:STA (old),Y
�DEY:BPL loop1
�RTS
�
.grend
LDA #0:STA atable+79
RTS
 
":.print  \uses new/old/X=columns/Y=rows/olddata/newdata
,STX columns:STY rows
6
LDY #0
@6LDA #2:STA count  \1st rub out old, then print new
J
.loop3
T"LDA columns:PHA  \save columns
^
.loop1
h6LDA old+1:PHA:LDA old:PHA  \save address of column
rLDX rows
|
.loop2
�)LDA (olddata),Y:� (old),Y:STA (old),Y
�ICLC:LDA olddata:ADC #1:STA olddata:LDA olddata+1:ADC #0:STA olddata+1
�"LDA old:� #7:CMP #7:BEQ bottom
�CCLC:LDA old:ADC #1:STA old:LDA old+1:ADC #0:STA old+1:JMP next1
�.bottom  \row
�<CLC:LDA old:ADC #&39:STA old:LDA old+1:ADC #&1:STA old+1
�
.next1
�DEX:BNE loop2  \next row
�/CLC:PLA:ADC #8:STA old:PLA:ADC #0:STA old+1
�'DEC columns:BNE loop1  \next column
�%PLA:STA columns  \restore columns
�'LDA new:STA old:LDA new+1:STA old+1
�7LDA newdata:STA olddata:LDA newdata+1:STA olddata+1
DEC count:BNE loop3
RTS
 
&.test  \plane ok?
0+LDA plane:STA old:LDA plane+1:STA old+1
:?LDA #pdata � 256:STA olddata:LDA #pdata � 256:STA olddata+1
DLDA #3:STA columns
N
.loop1
X6LDA old+1:PHA:LDA old:PHA  \save address of column
b
LDX #8
l
.loop2
v0LDA (olddata),Y:CMP (old),Y:BEQ te1:inc dead
�N.te1 CLC:LDA olddata:ADC #1:STA olddata:LDA olddata+1:ADC #0:STA olddata+1
�LDA old:� #7:CMP #7:BEQ te2
�ACLC:LDA old:ADC #1:STA old:LDA old+1:ADC #0:STA old+1:JMP te3
�.te2  \bottom row
�<CLC:LDA old:ADC #&39:STA old:LDA old+1:ADC #&1:STA old+1
�.te3
�DEX:BNE loop2  \next row
�/CLC:PLA:ADC #8:STA old:PLA:ADC #0:STA old+1
�'DEC columns:BNE loop1  \next column
�RTS
�]
��
��

 

� �relocate

p*KEY0 "*TAPE|MD%=PAGE-&E00:FORI%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:?(TOP-D%)=255|MPAGE=&E00|MOLD|MRUN|F|M"

 *FX21,0

**FX138,0,128

4�

> 

H� �another

R� S%,L%

\
� �tdP

f\S%=1000*((?score � &F0)� &10)+100*(?score � &F)+10*((score?1 � &F0)� &10)+(score?1 � &F)

p� S%>scores%(10) �hi_score

z	�20:�

��'�3);:�big("High  Scores")

�� 2:�'''

�� I%=1 � 10

�� �(-6)>3 �tune

�	� 3:�

�2�;I%;".";:� 2:� �3);name$(I%);�15);scores%(I%)

��

�0� 1:�'''"   Another game ?"''�(6);"(Y or N)"

�
� key$=�0

�� �(-6)>3 �tune

�� �" YyNn",key$)>1

��:�19,3,6;0;

��
 
� �hi_score
� 3:� �0,5);
$�big("* CONGRATULATIONS *")
.Q� 2:�''''"You are in the"''"high score table."''"What is your name ?"''''"?";
8"� 1:string$="":� 23,1,1;0;0;0;
B� K%=�0
L� �(-6)>3 �tune
V4� K%>31 � K%<127 � �<11 string$=string$+�K%:� K%
`C� K%=127 � � string$ string$=�string$,(� string$)-1):� �>1 � K%
j� K%=13
t$scores%(10)=S%:name$(10)=string$
~� I%=10 � 2 � -1
�� �(-6)>3 �tune
��� scores%(I%)>scores%(I%-1) S%=scores%(I%):scores%(I%)=scores%(I%-1):scores%(I%-1)=S%:string$=name$(I%):name$(I%)=name$(I%-1):name$(I%-1)=string$
��
�� 23,1,0;0;0;0;
��
� 
�� �initialise
�� scores%(10),name$(10)
�� I%=1 � 10
�scores%(I%)=1100-I%*100
��
�'name$(1)="Electron":name$(2)="User"
$name$(3)="Micro":name$(4)="User"

� I%=5 � 10
name$(I%)=name$(I%-4)
�
(1� 1,2,-1,-2,-4,150,10,10,126,0,0,-126,126,126
2� 19,3,6;0;23,1,0;0;0;0;
<{plane=&7C:score=&82:dead=&86:speed=&87:level=&88:pdata=&5720:gtable=&900:atable=&900+80:dtable=&900+160:table1=&900+240
F�
P 
Z� �pause(T%)
d�=0:� � �>T%
n�
x 
�
� �scroll
�
� �tdP
�:a$=�6," ")+"Electron User"+�6," ")+"Micro  User":b$=a$
�� b$=b$+a$
�� K%=�0
�	�tune
�� �3,30);�b$,34);
�
b$=�b$,2)
�� � b$=34 � K%=32
�� K%=32
��
� 
�� �big(string$)
� I%,A%
� I%=1 � � string$
?&70=�(�string$,I%,1))
"A%=10:X%=&70:Y%=0:� &FFF1
,� J%=0 � 1
6� 23,225
@� K%=2 � 9
J� ?(&70+4*J%+K%�2)
T�
^� 225,10,8
h�
r
� 11,11,9
|�
��
� 
�
� tune
�M� 32,48,60,80,60,80,96,80,60,80,60,48,32,48,60,80,60,80,96,80,60,80,60,48
�O� 28,40,60,88,60,88,100,88,60,88,60,40,28,40,60,88,60,88,100,88,60,88,60,40
�� -1
� 
�� �tune
�$� pitch:� pitch<0 � �tdP:� pitch
�� 1,-10,pitch,3
��
�

00000000  0d 00 0a 0e f4 20 53 6b  72 61 6d 62 6c 65 0d 00  |..... Skramble..|
00000010  14 16 f4 20 42 79 20 52  2e 41 2e 57 61 64 64 69  |... By R.A.Waddi|
00000020  6c 6f 76 65 0d 00 1e 17  f4 20 46 6f 72 20 45 6c  |love..... For El|
00000030  65 63 74 72 6f 6e 20 55  73 65 72 0d 00 28 09 ee  |ectron User..(..|
00000040  20 85 20 f9 0d 00 32 18  e7 20 90 3e 26 45 30 30  | . ...2.. .>&E00|
00000050  20 f2 72 65 6c 6f 63 61  74 65 3a e0 0d 00 3c 07  | .relocate:...<.|
00000060  eb 20 34 0d 00 46 11 f2  69 6e 73 74 72 75 63 74  |. 4..F..instruct|
00000070  69 6f 6e 73 0d 00 50 0f  eb 20 35 3a d3 3d 26 35  |ions..P.. 5:.=&5|
00000080  31 30 30 0d 00 5a 0f f2  61 73 73 65 6d 62 6c 65  |100..Z..assemble|
00000090  3a d8 0d 00 64 0f f2 69  6e 69 74 69 61 6c 69 73  |:...d..initialis|
000000a0  65 0d 00 6e 05 f5 0d 00  78 09 f2 67 61 6d 65 0d  |e..n....x..game.|
000000b0  00 82 0c f2 61 6e 6f 74  68 65 72 0d 00 8c 11 fd  |....another.....|
000000c0  20 a7 22 4e 6e 22 2c 6b  65 79 24 29 0d 00 96 07  | ."Nn",key$)....|
000000d0  eb 20 36 0d 00 a0 05 e0  0d 00 aa 05 20 0d 00 b4  |. 6......... ...|
000000e0  13 dd 20 f2 69 6e 73 74  72 75 63 74 69 6f 6e 73  |.. .instructions|
000000f0  0d 00 be 0b 2a 46 58 31  31 2c 30 0d 00 c8 0a 2a  |....*FX11,0....*|
00000100  46 58 34 2c 31 0d 00 d2  29 ef 20 32 32 2c 34 2c  |FX4,1...). 22,4,|
00000110  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 31 39 2c  |23,1,0;0;0;0;19,|
00000120  30 2c 34 3b 30 3b 3a 2a  46 58 31 36 2c 30 0d 00  |0,4;0;:*FX16,0..|
00000130  dc 32 f1 20 8a 31 30 2c  31 29 3b 3a f2 62 69 67  |.2. .10,1);:.big|
00000140  28 22 2a 20 53 20 4b 20  52 20 41 20 4d 20 42 20  |("* S K R A M B |
00000150  4c 20 45 20 2a 22 29 3a  2a 46 58 32 31 30 2c 30  |L E *"):*FX210,0|
00000160  0d 00 e6 a1 f1 27 27 27  27 22 20 59 6f 75 20 61  |.....''''" You a|
00000170  72 65 20 6f 6e 20 61 20  64 61 6e 67 65 72 6f 75  |re on a dangerou|
00000180  73 20 6d 69 73 73 69 6f  6e 20 66 6c 79 69 6e 67  |s mission flying|
00000190  22 27 27 22 20 64 65 65  70 20 69 6e 74 6f 20 65  |"''" deep into e|
000001a0  6e 65 6d 79 20 74 65 72  72 69 74 6f 72 79 2e 20  |nemy territory. |
000001b0  59 6f 75 72 20 74 61 73  6b 22 27 27 22 20 69 73  |Your task"''" is|
000001c0  20 74 6f 20 64 65 73 74  72 6f 79 20 61 73 20 6d  | to destroy as m|
000001d0  61 6e 79 20 61 6c 69 65  6e 20 66 69 67 68 74 65  |any alien fighte|
000001e0  72 73 22 27 27 22 20 61  6e 64 20 6d 69 73 73 69  |rs"''" and missi|
000001f0  6c 65 73 20 61 73 20 70  6f 73 73 69 62 6c 65 2e  |les as possible.|
00000200  22 0d 00 f0 82 f1 27 27  22 20 59 6f 75 72 20 70  |".....''" Your p|
00000210  6c 61 6e 65 20 69 73 20  65 71 75 69 70 70 65 64  |lane is equipped|
00000220  20 77 69 74 68 20 70 6f  77 65 72 66 75 6c 22 27  | with powerful"'|
00000230  27 22 20 6d 69 73 73 69  6c 65 73 20 77 68 69 63  |'" missiles whic|
00000240  68 20 61 72 65 20 63 61  70 61 62 6c 65 20 6f 66  |h are capable of|
00000250  20 74 75 72 6e 69 6e 67  22 27 27 22 20 65 6e 65  | turning"''" ene|
00000260  6d 79 20 63 72 61 66 74  20 69 6e 74 6f 20 66 69  |my craft into fi|
00000270  72 65 62 61 6c 6c 73 20  6f 6e 20 69 6d 70 61 63  |reballs on impac|
00000280  74 2e 22 0d 00 fa 55 f1  27 27 22 20 42 65 20 63  |t."...U.''" Be c|
00000290  61 72 65 66 75 6c 6c 2c  20 6f 6e 65 20 74 6f 75  |arefull, one tou|
000002a0  63 68 20 66 72 6f 6d 20  61 6e 20 6f 62 6a 65 63  |ch from an objec|
000002b0  74 22 27 27 22 20 61 6e  64 20 79 6f 75 72 20 70  |t"''" and your p|
000002c0  6c 61 6e 65 20 77 69 6c  6c 20 64 69 73 69 6e 74  |lane will disint|
000002d0  65 67 72 61 74 65 2e 22  0d 01 04 2b f1 27 27 27  |egrate."...+.'''|
000002e0  8a 38 29 22 50 72 65 73  73 20 74 68 65 20 53 50  |.8)"Press the SP|
000002f0  41 43 45 20 62 61 72 2e  2e 2e 22 3a 2a 46 58 32  |ACE bar...":*FX2|
00000300  31 2c 30 0d 01 0e 42 ec  20 30 2c 39 30 30 3a df  |1,0...B. 0,900:.|
00000310  20 30 2c 31 30 32 33 3a  df 20 31 32 37 36 2c 31  | 0,1023:. 1276,1|
00000320  30 32 33 3a df 20 31 32  37 36 2c 30 3a df 20 30  |023:. 1276,0:. 0|
00000330  2c 30 3a df 20 30 2c 39  30 30 3a df 20 31 32 37  |,0:. 0,900:. 127|
00000340  36 2c 39 30 30 0d 01 18  1b fb 20 31 32 39 3a fb  |6,900..... 129:.|
00000350  20 30 3a f2 73 63 72 6f  6c 6c 3a fb 20 31 32 38  | 0:.scroll:. 128|
00000360  0d 01 22 15 ef 20 32 38  2c 31 2c 33 30 2c 33 38  |..".. 28,1,30,38|
00000370  2c 35 2c 31 32 0d 01 2c  64 fb 31 32 39 3a f1 20  |,5,12..,d.129:. |
00000380  8a 33 2c 32 30 29 22 20  50 72 65 73 73 20 6e 75  |.3,20)" Press nu|
00000390  6d 62 65 72 20 74 6f 20  73 65 6c 65 63 74 20 6f  |mber to select o|
000003a0  70 74 69 6f 6e 20 22 3a  fb 31 32 38 3a fb 31 3a  |ption ":.128:.1:|
000003b0  f1 20 8a 33 2c 32 33 29  22 41 3d 75 70 20 20 20  |. .3,23)"A=up   |
000003c0  20 20 5a 3d 64 6f 77 6e  20 20 20 20 20 52 45 54  |  Z=down     RET|
000003d0  55 52 4e 3d 66 69 72 65  22 0d 01 36 53 f7 20 8d  |URN=fire"..6S. .|
000003e0  64 4c 41 3a e3 20 49 25  3d 31 20 b8 20 35 3a f3  |dLA:. I%=1 . 5:.|
000003f0  20 61 24 3a f3 20 62 24  3a f1 20 8a 34 2c 33 2a  | a$:. b$:. .4,3*|
00000400  49 25 2d 31 29 3b 3a f2  62 69 67 28 c3 28 49 25  |I%-1);:.big(.(I%|
00000410  29 2b 22 2e 20 22 2b 61  24 2b c4 32 35 2d a9 61  |)+". "+a$+.25-.a|
00000420  24 2c 22 2e 22 29 2b 62  24 29 3a ed 0d 01 40 17  |$,".")+b$):...@.|
00000430  41 25 3d 31 3a 42 25 3d  41 25 3a 2a 46 58 32 31  |A%=1:B%=A%:*FX21|
00000440  30 2c 30 0d 01 4a 1b 53  25 3d 34 3a 4c 25 3d 34  |0,0..J.S%=4:L%=4|
00000450  3a 6a 6f 79 3d a3 3a 2a  46 58 31 36 2c 30 0d 01  |:joy=.:*FX16,0..|
00000460  54 14 f5 20 6b 65 79 24  3d be 3a 2a 46 58 32 31  |T.. key$=.:*FX21|
00000470  2c 30 0d 01 5e 15 e7 20  6b 65 79 24 3d 22 31 22  |,0..^.. key$="1"|
00000480  20 41 25 3d 2d 41 25 0d  01 68 15 e7 20 6b 65 79  | A%=-A%..h.. key|
00000490  24 3d 22 32 22 20 42 25  3d 2d 42 25 0d 01 72 27  |$="2" B%=-B%..r'|
000004a0  e7 20 41 25 3e 30 20 f1  20 8a 33 32 2c 32 29 3b  |. A%>0 . .32,2);|
000004b0  3a f2 62 69 67 28 22 53  22 29 3a 2a 46 58 32 31  |:.big("S"):*FX21|
000004c0  30 2c 30 0d 01 7c 27 e7  20 41 25 3c 30 20 f1 20  |0,0..|'. A%<0 . |
000004d0  8a 33 32 2c 32 29 3b 3a  f2 62 69 67 28 22 51 22  |.32,2);:.big("Q"|
000004e0  29 3a 2a 46 58 32 31 30  2c 31 0d 01 86 2c e7 20  |):*FX210,1...,. |
000004f0  42 25 3e 30 20 f1 20 8a  33 32 2c 35 29 3b 3a f2  |B%>0 . .32,5);:.|
00000500  62 69 67 28 22 4b 22 29  3a 6a 6f 79 3d a3 3a 2a  |big("K"):joy=.:*|
00000510  46 58 31 36 2c 30 0d 01  90 2c e7 20 42 25 3c 30  |FX16,0...,. B%<0|
00000520  20 f1 20 8a 33 32 2c 35  29 3b 3a f2 62 69 67 28  | . .32,5);:.big(|
00000530  22 4a 22 29 3a 6a 6f 79  3d b9 3a 2a 46 58 31 36  |"J"):joy=.:*FX16|
00000540  2c 32 0d 01 9a 32 e7 20  6b 65 79 24 3d 22 33 22  |,2...2. key$="3"|
00000550  20 4c 25 3d 28 4c 25 2b  31 29 83 39 3a f1 20 8a  | L%=(L%+1).9:. .|
00000560  33 32 2c 38 29 3b 3a f2  62 69 67 28 c3 28 4c 25  |32,8);:.big(.(L%|
00000570  2b 31 29 29 0d 01 a4 33  e7 20 6b 65 79 24 3d 22  |+1))...3. key$="|
00000580  34 22 20 53 25 3d 28 53  25 2b 31 29 83 39 3a f1  |4" S%=(S%+1).9:.|
00000590  20 8a 33 32 2c 31 31 29  3b 3a f2 62 69 67 28 c3  | .32,11);:.big(.|
000005a0  28 53 25 2b 31 29 29 0d  01 ae 0e fd 20 6b 65 79  |(S%+1))..... key|
000005b0  24 3d 22 35 22 0d 01 b8  05 e1 0d 01 c2 05 20 0d  |$="5"......... .|
000005c0  01 cc 46 dc 20 53 6f 75  6e 64 2f 71 75 69 65 74  |..F. Sound/quiet|
000005d0  2c 53 2c 20 4b 65 79 62  6f 61 72 64 2f 6a 6f 79  |,S, Keyboard/joy|
000005e0  73 74 69 63 6b 2c 4b 2c  53 74 61 72 74 20 6c 65  |stick,K,Start le|
000005f0  76 65 6c 2c 35 2c 53 70  65 65 64 2c 35 2c 53 74  |vel,5,Speed,5,St|
00000600  61 72 74 2c 3f 0d 01 d6  05 20 0d 01 e0 0b dd 20  |art,?.... ..... |
00000610  f2 67 61 6d 65 0d 01 ea  2a 21 73 63 6f 72 65 3d  |.game...*!score=|
00000620  30 3a 3f 73 70 65 65 64  3d 31 30 2d 53 25 3a 3f  |0:?speed=10-S%:?|
00000630  6c 65 76 65 6c 3d 32 35  35 2d 4c 25 2a 32 35 0d  |level=255-L%*25.|
00000640  01 f4 22 fb 20 33 3a f1  20 8a 32 2c 33 31 29 22  |..". 3:. .2,31)"|
00000650  53 20 4b 20 52 20 41 20  4d 20 42 20 4c 20 45 22  |S K R A M B L E"|
00000660  3b 0d 01 fe 2a fb 20 32  3a f1 20 8a 30 2c 31 29  |;...*. 2:. .0,1)|
00000670  22 53 63 6f 72 65 3a 30  30 30 30 22 3b 8a 31 32  |"Score:0000";.12|
00000680  2c 31 29 22 4c 69 76 65  73 3a 22 0d 02 08 16 e3  |,1)"Lives:".....|
00000690  20 6c 69 76 65 73 3d 33  20 b8 20 31 20 88 20 2d  | lives=3 . 1 . -|
000006a0  31 0d 02 12 1f e6 20 30  2c 31 3a ec 20 30 2c 39  |1..... 0,1:. 0,9|
000006b0  30 30 3a f0 20 32 31 2c  31 32 38 30 2c 39 30 30  |00:. 21,1280,900|
000006c0  0d 02 1c 12 f1 20 8a 31  38 2c 31 29 3b 6c 69 76  |..... .18,1);liv|
000006d0  65 73 0d 02 26 2a e3 20  49 25 3d 30 20 b8 20 37  |es..&*. I%=0 . 7|
000006e0  38 20 88 20 32 3a 49 25  21 67 74 61 62 6c 65 3d  |8 . 2:I%!gtable=|
000006f0  26 37 37 34 30 2b 49 25  2a 34 3a ed 0d 02 30 21  |&7740+I%*4:...0!|
00000700  e3 20 49 25 3d 30 20 b8  20 37 38 20 88 20 34 3a  |. I%=0 . 78 . 4:|
00000710  49 25 21 61 74 61 62 6c  65 3d 30 3a ed 0d 02 3a  |I%!atable=0:...:|
00000720  21 e3 20 49 25 3d 30 20  b8 20 37 38 20 88 20 34  |!. I%=0 . 78 . 4|
00000730  3a 49 25 21 64 74 61 62  6c 65 3d 30 3a ed 0d 02  |:I%!dtable=0:...|
00000740  44 2f e3 20 49 25 3d 30  20 b8 20 34 30 20 88 20  |D/. I%=0 . 40 . |
00000750  32 3a 49 25 21 74 61 62  6c 65 31 3d 26 35 43 46  |2:I%!table1=&5CF|
00000760  30 2b 26 31 34 30 2a 49  25 2f 32 3a ed 0d 02 4e  |0+&140*I%/2:...N|
00000770  18 21 70 6c 61 6e 65 3d  26 36 32 31 30 3a 3f 64  |.!plane=&6210:?d|
00000780  65 61 64 3d 30 0d 02 58  23 e3 20 49 25 3d 30 20  |ead=0..X#. I%=0 |
00000790  b8 20 32 33 3a 49 25 3f  26 36 32 31 30 3d 49 25  |. 23:I%?&6210=I%|
000007a0  3f 70 64 61 74 61 3a ed  0d 02 62 13 d1 3d 30 3a  |?pdata:...b..=0:|
000007b0  d6 20 93 3a 2a 46 58 32  31 2c 30 0d 02 6c 24 f2  |. .:*FX21,0..l$.|
000007c0  70 61 75 73 65 28 32 30  30 29 3a ef 20 32 38 2c  |pause(200):. 28,|
000007d0  30 2c 33 30 2c 31 39 2c  32 2c 31 32 2c 32 36 0d  |0,30,19,2,12,26.|
000007e0  02 76 05 ed 0d 02 80 05  e1 0d 02 8a 05 20 0d 02  |.v........... ..|
000007f0  94 0f f4 20 66 69 72 65  62 61 6c 6c 73 0d 02 9e  |... fireballs...|
00000800  34 dc 20 31 32 2c 36 31  2c 34 42 2c 41 35 2c 39  |4. 12,61,4B,A5,9|
00000810  36 2c 34 42 2c 33 34 2c  31 32 2c 39 32 2c 32 43  |6,4B,34,12,92,2C|
00000820  2c 35 38 2c 41 34 2c 32  39 2c 39 34 2c 42 2c 32  |,58,A4,29,94,B,2|
00000830  34 0d 02 a8 32 dc 20 31  30 2c 36 31 2c 34 33 2c  |4...2. 10,61,43,|
00000840  39 36 2c 39 36 2c 34 33  2c 32 35 2c 31 30 2c 41  |96,96,43,25,10,A|
00000850  31 2c 43 2c 39 2c 32 43  2c 32 38 2c 38 35 2c 32  |1,C,9,2C,28,85,2|
00000860  2c 41 31 0d 02 b2 0b f4  20 70 6c 61 6e 65 0d 02  |,A1..... plane..|
00000870  bc 46 dc 20 38 38 2c 43  43 2c 45 45 2c 39 46 2c  |.F. 88,CC,EE,9F,|
00000880  46 46 2c 45 37 2c 45 37  2c 46 37 2c 30 2c 30 2c  |FF,E7,E7,F7,0,0,|
00000890  30 2c 46 46 2c 46 46 2c  46 2c 46 2c 46 46 2c 30  |0,FF,FF,F,F,FF,0|
000008a0  2c 30 2c 38 38 2c 34 34  2c 45 45 2c 33 45 2c 33  |,0,88,44,EE,3E,3|
000008b0  45 2c 45 45 0d 02 c6 0e  f4 20 66 69 67 68 74 65  |E,EE..... fighte|
000008c0  72 31 0d 02 d0 29 dc 20  30 2c 30 2c 30 2c 32 2c  |r1...). 0,0,0,2,|
000008d0  35 2c 46 2c 33 46 2c 37  2c 30 2c 31 2c 33 2c 33  |5,F,3F,7,0,1,3,3|
000008e0  2c 33 46 2c 46 2c 44 45  2c 31 45 0d 02 da 0e f4  |,3F,F,DE,1E.....|
000008f0  20 66 69 67 68 74 65 72  32 0d 02 e4 34 dc 20 30  | fighter2...4. 0|
00000900  2c 32 32 2c 35 35 2c 46  46 2c 43 46 2c 37 37 2c  |,22,55,FF,CF,77,|
00000910  32 32 2c 33 33 2c 31 31  2c 33 33 2c 34 37 2c 46  |22,33,11,33,47,F|
00000920  46 2c 33 45 2c 46 45 2c  31 31 2c 31 31 0d 02 ee  |F,3E,FE,11,11...|
00000930  0e f4 20 66 69 67 68 74  65 72 33 0d 02 f8 32 dc  |.. fighter3...2.|
00000940  20 30 2c 30 2c 30 2c 31  31 2c 32 32 2c 46 46 2c  | 0,0,0,11,22,FF,|
00000950  43 46 2c 37 37 2c 31 31  2c 33 33 2c 37 37 2c 44  |CF,77,11,33,77,D|
00000960  46 2c 37 37 2c 46 45 2c  33 45 2c 46 46 0d 03 02  |F,77,FE,3E,FF...|
00000970  0d f4 20 6d 69 73 73 69  6c 65 0d 03 0c 2d dc 20  |.. missile...-. |
00000980  30 2c 30 2c 34 37 2c 39  46 2c 39 46 2c 34 37 2c  |0,0,47,9F,9F,47,|
00000990  30 2c 30 2c 31 2c 31 32  2c 46 2c 33 43 2c 33 43  |0,0,1,12,F,3C,3C|
000009a0  2c 46 2c 31 32 2c 31 0d  03 16 0c f4 20 73 61 75  |,F,12,1..... sau|
000009b0  63 65 72 0d 03 20 31 dc  20 30 2c 31 30 2c 32 30  |cer.. 1. 0,10,20|
000009c0  2c 37 30 2c 38 31 2c 38  34 2c 37 30 2c 30 2c 30  |,70,81,84,70,0,0|
000009d0  2c 38 30 2c 34 30 2c 45  30 2c 31 38 2c 31 32 2c  |,80,40,E0,18,12,|
000009e0  45 30 2c 30 0d 03 2a 0e  f4 20 6d 69 73 73 69 6c  |E0,0..*.. missil|
000009f0  65 32 0d 03 34 2d dc 20  30 2c 30 2c 34 2c 37 38  |e2..4-. 0,0,4,78|
00000a00  2c 37 38 2c 34 2c 30 2c  30 2c 30 2c 36 36 2c 45  |,78,4,0,0,0,66,E|
00000a10  46 2c 44 45 2c 44 45 2c  45 46 2c 36 36 2c 30 0d  |F,DE,DE,EF,66,0.|
00000a20  03 3e 05 20 0d 03 48 0f  dd 20 f2 61 73 73 65 6d  |.>. ..H.. .assem|
00000a30  62 6c 65 0d 03 52 2c 70  64 61 74 61 3d 26 35 37  |ble..R,pdata=&57|
00000a40  32 30 3a 6f 64 61 74 61  3d 26 35 37 32 38 3a f4  |20:odata=&5728:.|
00000a50  20 61 63 74 75 61 6c 6c  79 20 26 35 37 33 38 0d  | actually &5738.|
00000a60  03 5c 12 66 69 72 65 62  61 6c 6c 3d 26 35 37 30  |.\.fireball=&570|
00000a70  30 0d 03 66 31 f7 20 8d  74 54 42 3a e3 20 49 25  |0..f1. .tTB:. I%|
00000a80  3d 30 20 b8 20 31 35 31  3a f3 20 61 24 3a 49 25  |=0 . 151:. a$:I%|
00000a90  3f 26 35 37 30 30 3d a0  28 22 26 22 2b 61 24 29  |?&5700=.("&"+a$)|
00000aa0  3a ed 0d 03 70 18 67 74  61 62 6c 65 3d 26 39 30  |:...p.gtable=&90|
00000ab0  30 3a f4 20 67 72 6f 75  6e 64 0d 03 7a 26 61 74  |0:. ground..z&at|
00000ac0  61 62 6c 65 3d 26 39 30  30 2b 38 30 3a f4 20 6f  |able=&900+80:. o|
00000ad0  62 6a 65 63 74 73 20 61  64 64 72 65 73 73 65 73  |bjects addresses|
00000ae0  0d 03 84 2c 64 74 61 62  6c 65 3d 26 39 30 30 2b  |...,dtable=&900+|
00000af0  31 36 30 3a f4 20 6f 62  6a 65 63 74 73 20 64 61  |160:. objects da|
00000b00  74 61 20 61 64 64 72 65  73 73 65 73 0d 03 8e 2c  |ta addresses...,|
00000b10  74 61 62 6c 65 31 3d 26  39 30 30 2b 32 34 30 3a  |table1=&900+240:|
00000b20  f4 20 72 69 67 68 74 20  63 6f 6c 75 6d 6e 20 61  |. right column a|
00000b30  64 64 72 65 73 73 65 73  0d 03 98 3b 6f 6c 64 3d  |ddresses...;old=|
00000b40  26 37 30 3a 6e 65 77 3d  26 37 32 3a 73 65 65 64  |&70:new=&72:seed|
00000b50  3d 26 37 34 3a 63 6f 75  6e 74 3d 26 37 35 3a 72  |=&74:count=&75:r|
00000b60  6f 77 73 3d 26 37 36 3a  63 6f 6c 75 6d 6e 73 3d  |ows=&76:columns=|
00000b70  26 37 37 0d 03 a2 42 6f  6c 64 64 61 74 61 3d 26  |&77...Bolddata=&|
00000b80  37 38 3a 6e 65 77 64 61  74 61 3d 26 37 41 3a 70  |78:newdata=&7A:p|
00000b90  6c 61 6e 65 3d 26 37 43  3a 66 6c 61 67 73 3d 26  |lane=&7C:flags=&|
00000ba0  37 45 3a 6c 63 6f 6c 3d  26 37 46 3a 6c 61 73 65  |7E:lcol=&7F:lase|
00000bb0  72 3d 26 38 30 0d 03 ac  2a 73 63 6f 72 65 3d 26  |r=&80...*score=&|
00000bc0  38 32 3a 64 65 61 64 3d  26 38 36 3a 73 70 65 65  |82:dead=&86:spee|
00000bd0  64 3d 26 38 37 3a 6c 65  76 65 6c 3d 26 38 38 0d  |d=&87:level=&88.|
00000be0  03 b6 42 6f 73 62 79 74  65 3d 21 26 32 30 41 20  |..Bosbyte=!&20A |
00000bf0  80 20 26 46 46 46 46 3a  6f 73 77 72 63 68 3d 21  |. &FFFF:oswrch=!|
00000c00  26 32 30 45 20 80 20 26  46 46 46 46 3a 6f 73 77  |&20E . &FFFF:osw|
00000c10  6f 72 64 3d 21 26 32 30  43 20 80 20 26 46 46 46  |ord=!&20C . &FFF|
00000c20  46 0d 03 c0 14 e3 20 70  61 73 73 3d 30 20 b8 20  |F..... pass=0 . |
00000c30  32 20 88 20 32 0d 03 ca  08 50 25 3d 93 0d 03 d4  |2 . 2....P%=....|
00000c40  0e 5b 20 4f 50 54 20 70  61 73 73 0d 03 de 0e 2e  |.[ OPT pass.....|
00000c50  6d 61 69 6e 5f 6c 6f 6f  70 0d 03 e8 0c 4a 53 52  |main_loop....JSR|
00000c60  20 66 69 72 65 0d 03 f2  1b 4a 53 52 20 6d 6f 76  | fire....JSR mov|
00000c70  65 5f 70 6c 61 6e 65 3a  4a 53 52 20 74 65 73 74  |e_plane:JSR test|
00000c80  0d 03 fc 0e 4a 53 52 20  66 6c 61 6d 65 73 0d 04  |....JSR flames..|
00000c90  06 2a 44 45 43 20 6c 65  76 65 6c 2b 31 3a 4c 44  |.*DEC level+1:LD|
00000ca0  41 20 6c 65 76 65 6c 2b  31 3a 80 20 23 37 3a 42  |A level+1:. #7:B|
00000cb0  4e 45 20 6d 61 69 6e 31  0d 04 10 29 4c 44 41 20  |NE main1...)LDA |
00000cc0  6c 65 76 65 6c 3a 43 4d  50 20 23 32 30 3a 42 45  |level:CMP #20:BE|
00000cd0  51 20 6d 61 69 6e 31 3a  44 45 43 20 6c 65 76 65  |Q main1:DEC leve|
00000ce0  6c 0d 04 1a 0a 2e 6d 61  69 6e 31 0d 04 24 16 4c  |l.....main1..$.L|
00000cf0  44 41 20 73 70 65 65 64  3a 4a 53 52 20 77 61 69  |DA speed:JSR wai|
00000d00  74 0d 04 2e 0c 4a 53 52  20 66 69 72 65 0d 04 38  |t....JSR fire..8|
00000d10  1b 4a 53 52 20 6d 6f 76  65 5f 70 6c 61 6e 65 3a  |.JSR move_plane:|
00000d20  4a 53 52 20 74 65 73 74  0d 04 42 0e 4a 53 52 20  |JSR test..B.JSR |
00000d30  67 72 6f 75 6e 64 0d 04  4c 16 4c 44 41 20 73 70  |ground..L.LDA sp|
00000d40  65 65 64 3a 4a 53 52 20  77 61 69 74 0d 04 56 42  |eed:JSR wait..VB|
00000d50  4c 44 41 20 23 26 38 31  3a 4c 44 58 20 23 26 38  |LDA #&81:LDX #&8|
00000d60  46 3a 4c 44 59 20 23 26  46 46 3a 4a 53 52 20 6f  |F:LDY #&FF:JSR o|
00000d70  73 62 79 74 65 3a 54 59  41 3a 42 4e 45 20 72 65  |sbyte:TYA:BNE re|
00000d80  74 75 72 6e 20 20 5c 45  73 63 61 70 65 3f 0d 04  |turn  \Escape?..|
00000d90  60 1a 4c 44 41 20 64 65  61 64 3a 42 45 51 20 6d  |`.LDA dead:BEQ m|
00000da0  61 69 6e 5f 6c 6f 6f 70  0d 04 6a 10 4a 53 52 20  |ain_loop..j.JSR |
00000db0  62 6c 6f 77 6e 5f 75 70  0d 04 74 0b 2e 72 65 74  |blown_up..t..ret|
00000dc0  75 72 6e 0d 04 7e 07 52  54 53 0d 04 88 05 20 0d  |urn..~.RTS.... .|
00000dd0  04 92 0d 2e 62 6c 6f 77  6e 5f 75 70 0d 04 9c 0b  |....blown_up....|
00000de0  4c 44 58 20 23 34 30 0d  04 a6 0a 2e 6c 6f 6f 70  |LDX #40.....loop|
00000df0  31 0d 04 b0 0b 54 58 41  3a 50 48 41 0d 04 ba 39  |1....TXA:PHA...9|
00000e00  4c 44 58 20 23 73 6f 75  6e 64 35 20 83 20 32 35  |LDX #sound5 . 25|
00000e10  36 3a 4c 44 59 20 23 73  6f 75 6e 64 35 20 81 20  |6:LDY #sound5 . |
00000e20  32 35 36 3a 4c 44 41 20  23 37 3a 4a 53 52 20 6f  |256:LDA #7:JSR o|
00000e30  73 77 6f 72 64 0d 04 c4  57 4a 53 52 20 26 41 46  |sword...WJSR &AF|
00000e40  35 31 3a 4c 44 41 20 26  32 41 3a 53 54 41 20 6f  |51:LDA &2A:STA o|
00000e50  6c 64 64 61 74 61 3a 41  53 4c 20 41 3a 53 54 41  |lddata:ASL A:STA|
00000e60  20 6e 65 77 64 61 74 61  3a 4c 44 41 20 26 39 30  | newdata:LDA &90|
00000e70  3a 53 54 41 20 6f 6c 64  64 61 74 61 2b 31 3a 53  |:STA olddata+1:S|
00000e80  54 41 20 6e 65 77 64 61  74 61 2b 31 0d 04 ce 3d  |TA newdata+1...=|
00000e90  4c 44 41 20 70 6c 61 6e  65 3a 53 54 41 20 6f 6c  |LDA plane:STA ol|
00000ea0  64 3a 53 54 41 20 6e 65  77 3a 4c 44 41 20 70 6c  |d:STA new:LDA pl|
00000eb0  61 6e 65 2b 31 3a 53 54  41 20 6f 6c 64 2b 31 3a  |ane+1:STA old+1:|
00000ec0  53 54 41 20 6e 65 77 2b  31 0d 04 d8 1b 4c 44 58  |STA new+1....LDX|
00000ed0  20 23 33 3a 4c 44 59 20  23 38 3a 4a 53 52 20 70  | #3:LDY #8:JSR p|
00000ee0  72 69 6e 74 0d 04 e2 16  4c 44 41 20 73 70 65 65  |rint....LDA spee|
00000ef0  64 3a 4a 53 52 20 77 61  69 74 0d 04 ec a9 4a 53  |d:JSR wait....JS|
00000f00  52 20 26 41 46 35 31 3a  4c 44 41 20 26 32 41 3a  |R &AF51:LDA &2A:|
00000f10  53 54 41 20 6f 6c 64 64  61 74 61 3a 41 53 4c 20  |STA olddata:ASL |
00000f20  41 3a 53 54 41 20 6e 65  77 64 61 74 61 3a 4c 44  |A:STA newdata:LD|
00000f30  41 20 26 38 30 3a 53 54  41 20 6f 6c 64 64 61 74  |A &80:STA olddat|
00000f40  61 2b 31 3a 53 54 41 20  6e 65 77 64 61 74 61 2b  |a+1:STA newdata+|
00000f50  31 3a 4c 44 41 20 70 6c  61 6e 65 3a 53 54 41 20  |1:LDA plane:STA |
00000f60  6f 6c 64 3a 53 54 41 20  6e 65 77 3a 4c 44 41 20  |old:STA new:LDA |
00000f70  70 6c 61 6e 65 2b 31 3a  53 54 41 20 6f 6c 64 2b  |plane+1:STA old+|
00000f80  31 3a 53 54 41 20 6e 65  77 2b 31 3a 4c 44 58 20  |1:STA new+1:LDX |
00000f90  23 33 3a 4c 44 59 20 23  38 3a 4a 53 52 20 70 72  |#3:LDY #8:JSR pr|
00000fa0  69 6e 74 0d 04 f6 21 4a  53 52 20 67 72 6f 75 6e  |int...!JSR groun|
00000fb0  64 3a 4c 44 41 20 73 70  65 65 64 3a 4a 53 52 20  |d:LDA speed:JSR |
00000fc0  77 61 69 74 0d 05 00 0b  50 4c 41 3a 54 41 58 0d  |wait....PLA:TAX.|
00000fd0  05 0a 11 44 45 58 3a 42  4e 45 20 6c 6f 6f 70 31  |...DEX:BNE loop1|
00000fe0  0d 05 14 07 52 54 53 0d  05 1e 05 20 0d 05 28 29  |....RTS.... ..()|
00000ff0  2e 73 6f 75 6e 64 31 20  45 51 55 44 20 26 30 30  |.sound1 EQUD &00|
00001000  30 31 30 30 31 31 3a 45  51 55 44 20 26 30 30 34  |010011:EQUD &004|
00001010  30 30 30 43 38 0d 05 32  1b 2e 73 6f 75 6e 64 32  |000C8..2..sound2|
00001020  20 45 51 55 44 20 30 3a  45 51 55 44 20 26 31 31  | EQUD 0:EQUD &11|
00001030  0d 05 3c 29 2e 73 6f 75  6e 64 33 20 45 51 55 44  |..<).sound3 EQUD|
00001040  20 26 46 46 46 31 30 30  31 30 3a 45 51 55 44 20  | &FFF10010:EQUD |
00001050  26 30 30 30 41 30 30 30  35 0d 05 46 29 2e 73 6f  |&000A0005..F).so|
00001060  75 6e 64 34 20 45 51 55  44 20 26 46 46 46 31 30  |und4 EQUD &FFF10|
00001070  30 31 31 3a 45 51 55 44  20 26 30 30 30 32 30 30  |011:EQUD &000200|
00001080  30 30 0d 05 50 29 2e 73  6f 75 6e 64 35 20 45 51  |00..P).sound5 EQ|
00001090  55 44 20 26 46 46 46 31  30 30 31 30 3a 45 51 55  |UD &FFF10010:EQU|
000010a0  44 20 26 30 30 30 41 30  30 30 34 0d 05 5a 17 2e  |D &000A0004..Z..|
000010b0  74 69 6d 65 20 45 51 55  44 20 30 3a 45 51 55 42  |time EQUD 0:EQUB|
000010c0  20 30 0d 05 64 05 20 0d  05 6e 09 2e 77 61 69 74  | 0..d. ..n..wait|
000010d0  0d 05 78 17 50 48 41 20  20 5c 73 61 76 65 20 64  |..x.PHA  \save d|
000010e0  75 72 61 74 69 6f 6e 0d  05 82 42 4c 44 58 20 23  |uration...BLDX #|
000010f0  74 69 6d 65 20 83 20 32  35 36 3a 4c 44 59 20 23  |time . 256:LDY #|
00001100  74 69 6d 65 20 81 20 32  35 36 3a 4c 44 41 20 23  |time . 256:LDA #|
00001110  31 3a 4a 53 52 20 6f 73  77 6f 72 64 20 20 5c 72  |1:JSR osword  \r|
00001120  65 61 64 20 63 6c 6f 63  6b 0d 05 8c 24 50 4c 41  |ead clock...$PLA|
00001130  3a 43 4d 50 20 74 69 6d  65 3a 42 50 4c 20 77 61  |:CMP time:BPL wa|
00001140  69 74 20 20 5c 74 69 6d  65 20 75 70 3f 0d 05 96  |it  \time up?...|
00001150  4c 4c 44 41 20 23 30 3a  53 54 41 20 74 69 6d 65  |LLDA #0:STA time|
00001160  3a 53 54 41 20 74 69 6d  65 2b 31 3a 53 54 41 20  |:STA time+1:STA |
00001170  74 69 6d 65 2b 32 3a 53  54 41 20 74 69 6d 65 2b  |time+2:STA time+|
00001180  33 3a 53 54 41 20 74 69  6d 65 2b 34 20 20 5c 7a  |3:STA time+4  \z|
00001190  65 72 6f 20 63 6c 6f 63  6b 0d 05 a0 2f 53 54 41  |ero clock.../STA|
000011a0  20 74 69 6d 65 2b 31 3a  53 54 41 20 74 69 6d 65  | time+1:STA time|
000011b0  2b 32 3a 53 54 41 20 74  69 6d 65 2b 33 3a 53 54  |+2:STA time+3:ST|
000011c0  41 20 74 69 6d 65 2b 34  0d 05 aa 40 4c 44 58 20  |A time+4...@LDX |
000011d0  23 74 69 6d 65 20 83 20  32 35 36 3a 4c 44 59 20  |#time . 256:LDY |
000011e0  23 74 69 6d 65 20 81 20  32 35 36 3a 4c 44 41 20  |#time . 256:LDA |
000011f0  23 32 3a 4a 4d 50 20 6f  73 77 6f 72 64 20 20 5c  |#2:JMP osword  \|
00001200  26 20 72 65 74 75 72 6e  0d 05 b4 05 20 0d 05 be  |& return.... ...|
00001210  09 2e 66 69 72 65 0d 05  c8 24 4c 44 41 20 6c 63  |..fire...$LDA lc|
00001220  6f 6c 3a 42 4e 45 20 6c  61 31 20 20 5c 6c 61 73  |ol:BNE la1  \las|
00001230  65 72 20 66 69 72 65 64  3a 5d 0d 05 d2 7d e7 20  |er fired:]...}. |
00001240  6a 6f 79 20 5b 4f 50 54  20 70 61 73 73 3a 4c 44  |joy [OPT pass:LD|
00001250  58 20 23 30 3a 4c 44 41  20 23 31 32 38 3a 4a 53  |X #0:LDA #128:JS|
00001260  52 20 6f 73 62 79 74 65  3a 54 58 41 3a 5d 20 8b  |R osbyte:TXA:] .|
00001270  20 5b 4f 50 54 20 70 61  73 73 3a 4c 44 41 20 23  | [OPT pass:LDA #|
00001280  26 38 31 3a 4c 44 58 20  23 26 42 36 3a 4c 44 59  |&81:LDX #&B6:LDY|
00001290  20 23 26 46 46 3a 4a 53  52 20 6f 73 62 79 74 65  | #&FF:JSR osbyte|
000012a0  3a 54 59 41 20 5c 72 65  74 75 72 6e 20 70 72 65  |:TYA \return pre|
000012b0  73 73 65 64 3f 3a 5d 0d  05 dc 0d 5b 4f 50 54 20  |ssed?:]....[OPT |
000012c0  70 61 73 73 0d 05 e6 0b  42 45 51 20 6c 61 32 0d  |pass....BEQ la2.|
000012d0  05 f0 25 4c 44 41 20 70  6c 61 6e 65 3a 80 20 23  |..%LDA plane:. #|
000012e0  37 3a 42 4e 45 20 6c 61  32 20 20 5c 6f 6e 20 6c  |7:BNE la2  \on l|
000012f0  69 6e 65 3f 0d 05 fa 42  43 4c 43 3a 4c 44 41 20  |ine?...BCLC:LDA |
00001300  70 6c 61 6e 65 3a 41 44  43 20 23 32 34 3a 53 54  |plane:ADC #24:ST|
00001310  41 20 6c 61 73 65 72 3a  4c 44 41 20 70 6c 61 6e  |A laser:LDA plan|
00001320  65 2b 31 3a 41 44 43 20  23 30 3a 53 54 41 20 6c  |e+1:ADC #0:STA l|
00001330  61 73 65 72 2b 31 0d 06  04 33 4c 44 59 20 23 34  |aser+1...3LDY #4|
00001340  3a 4c 44 41 20 28 6c 61  73 65 72 29 2c 59 3a 42  |:LDA (laser),Y:B|
00001350  4e 45 20 65 78 70 6c 6f  73 69 6f 6e 20 20 5c 6c  |NE explosion  \l|
00001360  61 73 65 72 20 68 69 74  3f 0d 06 0e 32 4c 44 41  |aser hit?...2LDA|
00001370  20 23 26 46 45 3a 53 54  41 20 28 6c 61 73 65 72  | #&FE:STA (laser|
00001380  29 2c 59 3a 4c 44 41 20  23 33 30 3a 53 54 41 20  |),Y:LDA #30:STA |
00001390  6c 63 6f 6c 20 20 5c 66  69 72 65 0d 06 18 39 4c  |lcol  \fire...9L|
000013a0  44 58 20 23 73 6f 75 6e  64 31 20 83 20 32 35 36  |DX #sound1 . 256|
000013b0  3a 4c 44 59 20 23 73 6f  75 6e 64 31 20 81 20 32  |:LDY #sound1 . 2|
000013c0  35 36 3a 4c 44 41 20 23  37 3a 4a 4d 50 20 6f 73  |56:LDA #7:JMP os|
000013d0  77 6f 72 64 0d 06 22 1b  2e 6c 61 31 20 20 20 5c  |word.."..la1   \|
000013e0  6d 6f 76 65 20 6c 61 73  65 72 20 62 6f 6c 74 0d  |move laser bolt.|
000013f0  06 2c 2f 4c 44 59 20 23  34 3a 4c 44 41 20 28 6c  |.,/LDY #4:LDA (l|
00001400  61 73 65 72 29 2c 59 3a  43 4d 50 20 23 26 46 45  |aser),Y:CMP #&FE|
00001410  3a 42 4e 45 20 65 78 70  6c 6f 73 69 6f 6e 0d 06  |:BNE explosion..|
00001420  36 53 43 4c 43 3a 4c 44  41 20 6c 61 73 65 72 3a  |6SCLC:LDA laser:|
00001430  53 54 41 20 6f 6c 64 3a  41 44 43 20 23 38 3a 53  |STA old:ADC #8:S|
00001440  54 41 20 6c 61 73 65 72  3a 4c 44 41 20 6c 61 73  |TA laser:LDA las|
00001450  65 72 2b 31 3a 53 54 41  20 6f 6c 64 2b 31 3a 41  |er+1:STA old+1:A|
00001460  44 43 20 23 30 3a 53 54  41 20 6c 61 73 65 72 2b  |DC #0:STA laser+|
00001470  31 0d 06 40 32 4c 44 41  20 23 30 3a 53 54 41 20  |1..@2LDA #0:STA |
00001480  28 6f 6c 64 29 2c 59 3a  4c 44 41 20 28 6c 61 73  |(old),Y:LDA (las|
00001490  65 72 29 2c 59 3a 42 4e  45 20 65 78 70 6c 6f 73  |er),Y:BNE explos|
000014a0  69 6f 6e 0d 06 4a 14 44  45 43 20 6c 63 6f 6c 3a  |ion..J.DEC lcol:|
000014b0  42 45 51 20 6c 61 33 0d  06 54 1a 4c 44 41 20 23  |BEQ la3..T.LDA #|
000014c0  26 46 45 3a 53 54 41 20  28 6c 61 73 65 72 29 2c  |&FE:STA (laser),|
000014d0  59 0d 06 5e 0c 2e 6c 61  32 20 52 54 53 0d 06 68  |Y..^..la2 RTS..h|
000014e0  48 2e 6c 61 33 20 4c 44  58 20 23 73 6f 75 6e 64  |H.la3 LDX #sound|
000014f0  32 20 83 20 32 35 36 3a  4c 44 59 20 23 73 6f 75  |2 . 256:LDY #sou|
00001500  6e 64 32 20 81 20 32 35  36 3a 4c 44 41 20 23 37  |nd2 . 256:LDA #7|
00001510  3a 4a 4d 50 20 6f 73 77  6f 72 64 20 20 5c 73 69  |:JMP osword  \si|
00001520  6c 65 6e 63 65 0d 06 72  05 20 0d 06 7c 0e 2e 65  |lence..r. ..|..e|
00001530  78 70 6c 6f 73 69 6f 6e  0d 06 86 13 4c 44 58 20  |xplosion....LDX |
00001540  23 30 3a 53 54 58 20 6c  63 6f 6c 0d 06 90 14 43  |#0:STX lcol....C|
00001550  4d 50 20 23 26 39 36 3a  42 4e 45 20 65 78 31 0d  |MP #&96:BNE ex1.|
00001560  06 9a 39 4c 44 58 20 23  73 6f 75 6e 64 34 20 83  |..9LDX #sound4 .|
00001570  20 32 35 36 3a 4c 44 59  20 23 73 6f 75 6e 64 34  | 256:LDY #sound4|
00001580  20 81 20 32 35 36 3a 4c  44 41 20 23 37 3a 4a 4d  | . 256:LDA #7:JM|
00001590  50 20 6f 73 77 6f 72 64  0d 06 a4 3e 2e 65 78 31  |P osword...>.ex1|
000015a0  20 4c 44 58 20 23 73 6f  75 6e 64 33 20 83 20 32  | LDX #sound3 . 2|
000015b0  35 36 3a 4c 44 59 20 23  73 6f 75 6e 64 33 20 81  |56:LDY #sound3 .|
000015c0  20 32 35 36 3a 4c 44 41  20 23 37 3a 4a 53 52 20  | 256:LDA #7:JSR |
000015d0  6f 73 77 6f 72 64 0d 06  ae 39 4c 44 58 20 23 73  |osword...9LDX #s|
000015e0  6f 75 6e 64 32 20 83 20  32 35 36 3a 4c 44 59 20  |ound2 . 256:LDY |
000015f0  23 73 6f 75 6e 64 32 20  81 20 32 35 36 3a 4c 44  |#sound2 . 256:LD|
00001600  41 20 23 37 3a 4a 53 52  20 6f 73 77 6f 72 64 0d  |A #7:JSR osword.|
00001610  06 b8 0b 4c 44 59 20 23  31 35 0d 06 c2 0a 2e 6c  |...LDY #15.....l|
00001620  6f 6f 70 31 0d 06 cc 20  4c 44 41 20 66 69 72 65  |oop1... LDA fire|
00001630  62 61 6c 6c 2c 59 3a 53  54 41 20 28 6c 61 73 65  |ball,Y:STA (lase|
00001640  72 29 2c 59 0d 06 d6 11  44 45 59 3a 42 50 4c 20  |r),Y....DEY:BPL |
00001650  6c 6f 6f 70 31 0d 06 e0  0b 4c 44 59 20 23 37 36  |loop1....LDY #76|
00001660  0d 06 ea 0a 2e 6c 6f 6f  70 31 0d 06 f4 22 4c 44  |.....loop1..."LD|
00001670  41 20 61 74 61 62 6c 65  2c 59 3a 43 4d 50 20 6c  |A atable,Y:CMP l|
00001680  61 73 65 72 3a 42 4e 45  20 65 78 32 0d 06 fe 26  |aser:BNE ex2...&|
00001690  4c 44 41 20 61 74 61 62  6c 65 2b 31 2c 59 3a 43  |LDA atable+1,Y:C|
000016a0  4d 50 20 6c 61 73 65 72  2b 31 3a 42 45 51 20 65  |MP laser+1:BEQ e|
000016b0  78 33 0d 07 08 1a 2e 65  78 32 20 44 45 59 3a 44  |x3.....ex2 DEY:D|
000016c0  45 59 3a 42 4e 45 20 6c  6f 6f 70 31 0d 07 12 07  |EY:BNE loop1....|
000016d0  52 54 53 0d 07 1c 4c 2e  65 78 33 20 4c 44 41 20  |RTS...L.ex3 LDA |
000016e0  23 66 69 72 65 62 61 6c  6c 20 83 20 32 35 36 3a  |#fireball . 256:|
000016f0  53 54 41 20 64 74 61 62  6c 65 2c 59 3a 4c 44 41  |STA dtable,Y:LDA|
00001700  20 23 66 69 72 65 62 61  6c 6c 20 81 20 32 35 36  | #fireball . 256|
00001710  3a 53 54 41 20 64 74 61  62 6c 65 2b 31 2c 59 0d  |:STA dtable+1,Y.|
00001720  07 26 59 53 45 44 3a 43  4c 43 3a 4c 44 41 20 73  |.&YSED:CLC:LDA s|
00001730  63 6f 72 65 2b 31 3a 41  44 43 20 23 35 3a 53 54  |core+1:ADC #5:ST|
00001740  41 20 73 63 6f 72 65 2b  31 3a 4c 44 41 20 73 63  |A score+1:LDA sc|
00001750  6f 72 65 3a 41 44 43 20  23 30 3a 53 54 41 20 73  |ore:ADC #0:STA s|
00001760  63 6f 72 65 3a 43 4c 44  20 20 5c 73 63 6f 72 65  |core:CLD  \score|
00001770  3d 73 63 6f 72 65 2b 35  0d 07 30 3a 4c 44 41 20  |=score+5..0:LDA |
00001780  23 33 31 3a 4a 53 52 20  6f 73 77 72 63 68 3a 4c  |#31:JSR oswrch:L|
00001790  44 41 20 23 36 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #6:JSR oswrch|
000017a0  3a 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  |:LDA #1:JSR oswr|
000017b0  63 68 0d 07 3a 3c 4c 44  41 20 73 63 6f 72 65 3a  |ch..:<LDA score:|
000017c0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
000017d0  41 3a 4c 53 52 20 41 3a  43 4c 43 3a 41 44 43 20  |A:LSR A:CLC:ADC |
000017e0  23 34 38 3a 4a 53 52 20  6f 73 77 72 63 68 0d 07  |#48:JSR oswrch..|
000017f0  44 2b 4c 44 41 20 73 63  6f 72 65 3a 80 20 23 26  |D+LDA score:. #&|
00001800  30 46 3a 43 4c 43 3a 41  44 43 20 23 34 38 3a 4a  |0F:CLC:ADC #48:J|
00001810  53 52 20 6f 73 77 72 63  68 0d 07 4e 3e 4c 44 41  |SR oswrch..N>LDA|
00001820  20 73 63 6f 72 65 2b 31  3a 4c 53 52 20 41 3a 4c  | score+1:LSR A:L|
00001830  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
00001840  3a 43 4c 43 3a 41 44 43  20 23 34 38 3a 4a 53 52  |:CLC:ADC #48:JSR|
00001850  20 6f 73 77 72 63 68 0d  07 58 2d 4c 44 41 20 73  | oswrch..X-LDA s|
00001860  63 6f 72 65 2b 31 3a 80  20 23 26 30 46 3a 43 4c  |core+1:. #&0F:CL|
00001870  43 3a 41 44 43 20 23 34  38 3a 4a 53 52 20 6f 73  |C:ADC #48:JSR os|
00001880  77 72 63 68 0d 07 62 07  52 54 53 0d 07 6c 05 20  |wrch..b.RTS..l. |
00001890  0d 07 76 0b 2e 66 6c 61  6d 65 73 0d 07 80 0b 4c  |..v..flames....L|
000018a0  44 59 20 23 37 38 0d 07  8a 0a 2e 6c 6f 6f 70 31  |DY #78.....loop1|
000018b0  0d 07 94 1f 4c 44 41 20  64 74 61 62 6c 65 2c 59  |....LDA dtable,Y|
000018c0  3a 80 20 23 26 45 46 3a  42 4e 45 20 66 6c 31 0d  |:. #&EF:BNE fl1.|
000018d0  07 9e 23 4c 44 41 20 64  74 61 62 6c 65 2c 59 3a  |..#LDA dtable,Y:|
000018e0  82 20 23 31 36 3a 53 54  41 20 64 74 61 62 6c 65  |. #16:STA dtable|
000018f0  2c 59 0d 07 a8 1a 2e 66  6c 31 20 44 45 59 3a 44  |,Y.....fl1 DEY:D|
00001900  45 59 3a 42 4e 45 20 6c  6f 6f 70 31 0d 07 b2 07  |EY:BNE loop1....|
00001910  52 54 53 0d 07 bc 05 20  0d 07 c6 0f 2e 6d 6f 76  |RTS.... .....mov|
00001920  65 5f 70 6c 61 6e 65 0d  07 d0 59 4c 44 41 20 23  |e_plane...YLDA #|
00001930  70 64 61 74 61 20 83 20  32 35 36 3a 53 54 41 20  |pdata . 256:STA |
00001940  6f 6c 64 64 61 74 61 3a  53 54 41 20 6e 65 77 64  |olddata:STA newd|
00001950  61 74 61 3a 4c 44 41 20  23 70 64 61 74 61 20 81  |ata:LDA #pdata .|
00001960  20 32 35 36 3a 53 54 41  20 6f 6c 64 64 61 74 61  | 256:STA olddata|
00001970  2b 31 3a 53 54 41 20 6e  65 77 64 61 74 61 2b 31  |+1:STA newdata+1|
00001980  0d 07 da 2b 4c 44 41 20  70 6c 61 6e 65 2b 31 3a  |...+LDA plane+1:|
00001990  53 54 41 20 6f 6c 64 2b  31 3a 4c 44 41 20 70 6c  |STA old+1:LDA pl|
000019a0  61 6e 65 3a 53 54 41 20  6f 6c 64 0d 07 e4 10 80  |ane:STA old.....|
000019b0  20 23 37 3a 42 45 51 20  6d 70 34 0d 07 ee 24 4c  | #7:BEQ mp4...$L|
000019c0  44 41 20 23 31 3a 42 49  54 20 66 6c 61 67 73 3a  |DA #1:BIT flags:|
000019d0  42 45 51 20 6d 70 35 3a  42 4e 45 20 6d 70 36 0d  |BEQ mp5:BNE mp6.|
000019e0  07 f8 11 2e 6d 70 34 20  20 5c 6d 70 75 70 3a 5d  |....mp4  \mpup:]|
000019f0  0d 08 02 8a e7 20 6a 6f  79 20 8c 20 5b 4f 50 54  |..... joy . [OPT|
00001a00  20 70 61 73 73 3a 4c 44  58 20 23 32 3a 4c 44 41  | pass:LDX #2:LDA|
00001a10  20 23 26 38 30 3a 4a 53  52 20 6f 73 62 79 74 65  | #&80:JSR osbyte|
00001a20  3a 54 59 41 3a 80 20 23  26 43 30 3a 43 4d 50 20  |:TYA:. #&C0:CMP |
00001a30  23 26 43 30 3a 5d 20 8b  20 5b 4f 50 54 20 70 61  |#&C0:] . [OPT pa|
00001a40  73 73 3a 4c 44 41 20 23  26 38 31 3a 4c 44 58 20  |ss:LDA #&81:LDX |
00001a50  23 26 42 45 3a 4c 44 59  20 23 26 46 46 3a 4a 53  |#&BE:LDY #&FF:JS|
00001a60  52 20 6f 73 62 79 74 65  3a 49 4e 59 20 5c 41 20  |R osbyte:INY \A |
00001a70  70 72 65 73 73 65 64 3f  3a 5d 0d 08 0c 0d 5b 4f  |pressed?:]....[O|
00001a80  50 54 20 70 61 73 73 0d  08 16 0e 42 4e 45 20 6d  |PT pass....BNE m|
00001a90  70 64 6f 77 6e 0d 08 20  23 2e 6d 70 35 20 4c 44  |pdown.. #.mp5 LD|
00001aa0  41 20 66 6c 61 67 73 3a  80 20 23 26 46 45 3a 53  |A flags:. #&FE:S|
00001ab0  54 41 20 66 6c 61 67 73  0d 08 2a 1e 53 45 43 3a  |TA flags..*.SEC:|
00001ac0  4c 44 41 20 70 6c 61 6e  65 3a 80 20 23 37 3a 42  |LDA plane:. #7:B|
00001ad0  4e 45 20 6d 70 32 0d 08  34 48 4c 44 41 20 70 6c  |NE mp2..4HLDA pl|
00001ae0  61 6e 65 3a 53 42 43 20  23 26 33 41 3a 53 54 41  |ane:SBC #&3A:STA|
00001af0  20 70 6c 61 6e 65 3a 4c  44 41 20 70 6c 61 6e 65  | plane:LDA plane|
00001b00  2b 31 3a 53 42 43 20 23  26 31 3a 53 54 41 20 70  |+1:SBC #&1:STA p|
00001b10  6c 61 6e 65 2b 31 3a 4a  4d 50 20 6d 70 31 0d 08  |lane+1:JMP mp1..|
00001b20  3e 4a 2e 6d 70 32 20 4c  44 41 20 70 6c 61 6e 65  |>J.mp2 LDA plane|
00001b30  3a 53 42 43 20 23 32 3a  53 54 41 20 70 6c 61 6e  |:SBC #2:STA plan|
00001b40  65 3a 4c 44 41 20 70 6c  61 6e 65 2b 31 3a 53 42  |e:LDA plane+1:SB|
00001b50  43 20 23 30 3a 53 54 41  20 70 6c 61 6e 65 2b 31  |C #0:STA plane+1|
00001b60  3a 4a 4d 50 20 6d 70 31  0d 08 48 0d 2e 6d 70 64  |:JMP mp1..H..mpd|
00001b70  6f 77 6e 3a 5d 0d 08 52  89 e7 20 6a 6f 79 20 8c  |own:]..R.. joy .|
00001b80  20 5b 4f 50 54 20 70 61  73 73 3a 4c 44 58 20 23  | [OPT pass:LDX #|
00001b90  32 3a 4c 44 41 20 23 26  38 30 3a 4a 53 52 20 6f  |2:LDA #&80:JSR o|
00001ba0  73 62 79 74 65 3a 54 59  41 3a 80 20 23 26 43 30  |sbyte:TYA:. #&C0|
00001bb0  3a 43 4d 50 20 23 26 30  3a 5d 20 8b 20 5b 4f 50  |:CMP #&0:] . [OP|
00001bc0  54 20 70 61 73 73 3a 4c  44 41 20 23 26 38 31 3a  |T pass:LDA #&81:|
00001bd0  4c 44 58 20 23 26 39 45  3a 4c 44 59 20 23 26 46  |LDX #&9E:LDY #&F|
00001be0  46 3a 4a 53 52 20 6f 73  62 79 74 65 3a 49 4e 59  |F:JSR osbyte:INY|
00001bf0  20 5c 5a 20 70 72 65 73  73 65 64 3f 3a 5d 0d 08  | \Z pressed?:]..|
00001c00  5c 0d 5b 4f 50 54 20 70  61 73 73 0d 08 66 0b 42  |\.[OPT pass..f.B|
00001c10  4e 45 20 6d 70 31 0d 08  70 22 2e 6d 70 36 20 4c  |NE mp1..p".mp6 L|
00001c20  44 41 20 66 6c 61 67 73  3a 84 41 20 23 31 3a 53  |DA flags:.A #1:S|
00001c30  54 41 20 66 6c 61 67 73  0d 08 7a 21 4c 44 41 20  |TA flags..z!LDA |
00001c40  70 6c 61 6e 65 3a 80 20  23 37 3a 43 4d 50 20 23  |plane:. #7:CMP #|
00001c50  36 3a 42 45 51 20 6d 70  33 0d 08 84 49 43 4c 43  |6:BEQ mp3...ICLC|
00001c60  3a 4c 44 41 20 70 6c 61  6e 65 3a 41 44 43 20 23  |:LDA plane:ADC #|
00001c70  32 3a 53 54 41 20 70 6c  61 6e 65 3a 4c 44 41 20  |2:STA plane:LDA |
00001c80  70 6c 61 6e 65 2b 31 3a  41 44 43 20 23 30 3a 53  |plane+1:ADC #0:S|
00001c90  54 41 20 70 6c 61 6e 65  2b 31 3a 4a 4d 50 20 6d  |TA plane+1:JMP m|
00001ca0  70 31 0d 08 8e 49 2e 6d  70 33 20 43 4c 43 3a 4c  |p1...I.mp3 CLC:L|
00001cb0  44 41 20 70 6c 61 6e 65  3a 41 44 43 20 23 26 33  |DA plane:ADC #&3|
00001cc0  41 3a 53 54 41 20 70 6c  61 6e 65 3a 4c 44 41 20  |A:STA plane:LDA |
00001cd0  70 6c 61 6e 65 2b 31 3a  41 44 43 20 23 26 31 3a  |plane+1:ADC #&1:|
00001ce0  53 54 41 20 70 6c 61 6e  65 2b 31 0d 08 98 08 2e  |STA plane+1.....|
00001cf0  6d 70 31 0d 08 a2 2b 4c  44 41 20 70 6c 61 6e 65  |mp1...+LDA plane|
00001d00  3a 53 54 41 20 6e 65 77  3a 4c 44 41 20 70 6c 61  |:STA new:LDA pla|
00001d10  6e 65 2b 31 3a 53 54 41  20 6e 65 77 2b 31 0d 08  |ne+1:STA new+1..|
00001d20  ac 1e 4c 44 41 20 23 31  39 3a 4a 53 52 20 6f 73  |..LDA #19:JSR os|
00001d30  62 79 74 65 20 20 5c 2a  46 58 31 39 0d 08 b6 1b  |byte  \*FX19....|
00001d40  4c 44 58 20 23 33 3a 4c  44 59 20 23 38 3a 4a 53  |LDX #3:LDY #8:JS|
00001d50  52 20 70 72 69 6e 74 0d  08 c0 07 52 54 53 0d 08  |R print....RTS..|
00001d60  ca 05 20 0d 08 d4 0b 2e  67 72 6f 75 6e 64 0d 08  |.. .....ground..|
00001d70  de 1e 4c 44 41 20 23 31  39 3a 4a 53 52 20 6f 73  |..LDA #19:JSR os|
00001d80  62 79 74 65 20 20 5c 2a  46 58 31 39 0d 08 e8 39  |byte  \*FX19...9|
00001d90  4c 44 41 20 61 74 61 62  6c 65 2b 32 3a 53 54 41  |LDA atable+2:STA|
00001da0  20 6f 6c 64 3a 4c 44 41  20 61 74 61 62 6c 65 2b  | old:LDA atable+|
00001db0  33 3a 53 54 41 20 6f 6c  64 2b 31 3a 42 45 51 20  |3:STA old+1:BEQ |
00001dc0  67 72 6e 6f 61 0d 08 f2  12 4c 44 41 20 23 30 3a  |grnoa....LDA #0:|
00001dd0  4c 44 59 20 23 31 35 0d  08 fc 0a 2e 6c 6f 6f 70  |LDY #15.....loop|
00001de0  31 0d 09 06 0f 53 54 41  20 28 6f 6c 64 29 2c 59  |1....STA (old),Y|
00001df0  0d 09 10 11 44 45 59 3a  42 50 4c 20 6c 6f 6f 70  |....DEY:BPL loop|
00001e00  31 0d 09 1a 18 2e 67 72  6e 6f 61 20 4c 44 58 20  |1.....grnoa LDX |
00001e10  23 32 3a 4c 44 59 20 23  30 0d 09 24 2f 4c 44 41  |#2:LDY #0..$/LDA|
00001e20  20 67 74 61 62 6c 65 2b  32 3a 53 54 41 20 6f 6c  | gtable+2:STA ol|
00001e30  64 3a 4c 44 41 20 67 74  61 62 6c 65 2b 33 3a 53  |d:LDA gtable+3:S|
00001e40  54 41 20 6f 6c 64 2b 31  0d 09 2e 13 54 59 41 3a  |TA old+1....TYA:|
00001e50  53 54 41 20 28 6f 6c 64  29 2c 59 0d 09 38 0a 2e  |STA (old),Y..8..|
00001e60  6c 6f 6f 70 31 0d 09 42  0b 49 4e 58 3a 49 4e 58  |loop1..B.INX:INX|
00001e70  0d 09 4c 17 5c 6d 6f 76  65 20 61 6c 69 65 6e 20  |..L.\move alien |
00001e80  6f 62 6a 65 63 74 73 0d  09 56 57 4c 44 41 20 64  |objects..VWLDA d|
00001e90  74 61 62 6c 65 2c 58 3a  53 54 41 20 64 74 61 62  |table,X:STA dtab|
00001ea0  6c 65 2d 32 2c 58 3a 53  54 41 20 6f 6c 64 64 61  |le-2,X:STA oldda|
00001eb0  74 61 3a 4c 44 41 20 64  74 61 62 6c 65 2b 31 2c  |ta:LDA dtable+1,|
00001ec0  58 3a 53 54 41 20 64 74  61 62 6c 65 2d 31 2c 58  |X:STA dtable-1,X|
00001ed0  3a 53 54 41 20 6f 6c 64  64 61 74 61 2b 31 0d 09  |:STA olddata+1..|
00001ee0  60 3a 53 45 43 3a 4c 44  41 20 61 74 61 62 6c 65  |`:SEC:LDA atable|
00001ef0  2c 58 3a 53 54 41 20 6f  6c 64 3a 53 42 43 20 23  |,X:STA old:SBC #|
00001f00  38 3a 53 54 41 20 6e 65  77 3a 53 54 41 20 61 74  |8:STA new:STA at|
00001f10  61 62 6c 65 2d 32 2c 58  0d 09 6a 45 20 4c 44 41  |able-2,X..jE LDA|
00001f20  20 61 74 61 62 6c 65 2b  31 2c 58 3a 42 45 51 20  | atable+1,X:BEQ |
00001f30  6d 61 32 3a 53 54 41 20  6f 6c 64 2b 31 3a 53 42  |ma2:STA old+1:SB|
00001f40  43 20 23 30 3a 53 54 41  20 6e 65 77 2b 31 3a 53  |C #0:STA new+1:S|
00001f50  54 41 20 61 74 61 62 6c  65 2d 31 2c 58 0d 09 74  |TA atable-1,X..t|
00001f60  0a 2e 6c 6f 6f 70 32 0d  09 7e 32 4c 44 41 20 28  |..loop2..~2LDA (|
00001f70  6f 6c 64 64 61 74 61 29  2c 59 3a 53 54 41 20 28  |olddata),Y:STA (|
00001f80  6e 65 77 29 2c 59 3a 4c  44 41 20 23 30 3a 53 54  |new),Y:LDA #0:ST|
00001f90  41 20 28 6f 6c 64 29 2c  59 0d 09 88 19 49 4e 59  |A (old),Y....INY|
00001fa0  3a 43 50 59 20 23 31 36  3a 42 4e 45 20 6c 6f 6f  |:CPY #16:BNE loo|
00001fb0  70 32 0d 09 92 0f 54 41  59 3a 4a 4d 50 20 6d 61  |p2....TAY:JMP ma|
00001fc0  31 0d 09 9c 08 2e 6d 61  32 0d 09 a6 16 54 59 41  |1.....ma2....TYA|
00001fd0  3a 53 54 41 20 61 74 61  62 6c 65 2d 31 2c 58 0d  |:STA atable-1,X.|
00001fe0  09 b0 08 2e 6d 61 31 0d  09 ba 10 5c 6d 6f 76 65  |....ma1....\move|
00001ff0  20 67 72 6f 75 6e 64 0d  09 c4 3a 53 45 43 3a 4c  | ground...:SEC:L|
00002000  44 41 20 67 74 61 62 6c  65 2c 58 3a 53 54 41 20  |DA gtable,X:STA |
00002010  6f 6c 64 3a 53 42 43 20  23 38 3a 53 54 41 20 6e  |old:SBC #8:STA n|
00002020  65 77 3a 53 54 41 20 67  74 61 62 6c 65 2d 32 2c  |ew:STA gtable-2,|
00002030  58 0d 09 ce 3c 4c 44 41  20 67 74 61 62 6c 65 2b  |X...<LDA gtable+|
00002040  31 2c 58 3a 53 54 41 20  6f 6c 64 2b 31 3a 53 42  |1,X:STA old+1:SB|
00002050  43 20 23 30 3a 53 54 41  20 6e 65 77 2b 31 3a 53  |C #0:STA new+1:S|
00002060  54 41 20 67 74 61 62 6c  65 2d 31 2c 58 0d 09 d8  |TA gtable-1,X...|
00002070  13 54 59 41 3a 53 54 41  20 28 6f 6c 64 29 2c 59  |.TYA:STA (old),Y|
00002080  0d 09 e2 18 4c 44 41 20  23 26 30 46 3a 53 54 41  |....LDA #&0F:STA|
00002090  20 28 6e 65 77 29 2c 59  0d 09 ec 15 43 50 58 20  | (new),Y....CPX |
000020a0  23 37 38 3a 42 4e 45 20  6c 6f 6f 70 31 0d 09 f6  |#78:BNE loop1...|
000020b0  19 5c 6e 65 78 74 20 70  69 65 63 65 20 6f 66 20  |.\next piece of |
000020c0  67 72 6f 75 6e 64 0d 0a  00 39 4c 44 41 20 73 65  |ground...9LDA se|
000020d0  65 64 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 53  |ed:ASL A:ASL A:S|
000020e0  45 43 3a 41 44 43 20 73  65 65 64 3a 53 54 41 20  |EC:ADC seed:STA |
000020f0  73 65 65 64 20 20 5c 73  69 6d 70 6c 65 20 b3 0d  |seed  \simple ..|
00002100  0a 0a 13 80 20 23 31 32  38 3a 42 4e 45 20 67 72  |.... #128:BNE gr|
00002110  75 70 0d 0a 14 29 4c 44  41 20 6f 6c 64 2b 31 3a  |up...)LDA old+1:|
00002120  43 4d 50 20 23 26 37 42  3a 42 50 4c 20 67 72 32  |CMP #&7B:BPL gr2|
00002130  20 20 5c 74 6f 6f 20 6c  6f 77 3f 0d 0a 1e 1f 4c  |  \too low?....L|
00002140  44 41 20 6f 6c 64 3a 80  20 23 37 3a 43 4d 50 20  |DA old:. #7:CMP |
00002150  23 37 3a 42 45 51 20 67  72 31 0d 0a 28 41 43 4c  |#7:BEQ gr1..(ACL|
00002160  43 3a 4c 44 41 20 6f 6c  64 3a 41 44 43 20 23 31  |C:LDA old:ADC #1|
00002170  3a 53 54 41 20 6f 6c 64  3a 4c 44 41 20 6f 6c 64  |:STA old:LDA old|
00002180  2b 31 3a 41 44 43 20 23  30 3a 53 54 41 20 6f 6c  |+1:ADC #0:STA ol|
00002190  64 2b 31 3a 4a 4d 50 20  67 72 32 0d 0a 32 49 2e  |d+1:JMP gr2..2I.|
000021a0  67 72 31 20 43 4c 43 3a  4c 44 41 20 6f 6c 64 3a  |gr1 CLC:LDA old:|
000021b0  41 44 43 20 23 26 33 39  3a 53 54 41 20 6f 6c 64  |ADC #&39:STA old|
000021c0  3a 4c 44 41 20 6f 6c 64  2b 31 3a 41 44 43 20 23  |:LDA old+1:ADC #|
000021d0  26 31 3a 53 54 41 20 6f  6c 64 2b 31 3a 4a 4d 50  |&1:STA old+1:JMP|
000021e0  20 67 72 32 0d 0a 3c 09  2e 67 72 75 70 0d 0a 46  | gr2..<..grup..F|
000021f0  2a 4c 44 41 20 6f 6c 64  2b 31 3a 43 4d 50 20 23  |*LDA old+1:CMP #|
00002200  26 37 36 3a 42 4d 49 20  67 72 32 20 20 5c 74 6f  |&76:BMI gr2  \to|
00002210  6f 20 68 69 67 68 3f 0d  0a 50 1c 53 45 43 3a 4c  |o high?..P.SEC:L|
00002220  44 41 20 6f 6c 64 3a 80  20 23 37 3a 42 45 51 20  |DA old:. #7:BEQ |
00002230  67 72 33 0d 0a 5a 3d 4c  44 41 20 6f 6c 64 3a 53  |gr3..Z=LDA old:S|
00002240  42 43 20 23 31 3a 53 54  41 20 6f 6c 64 3a 4c 44  |BC #1:STA old:LD|
00002250  41 20 6f 6c 64 2b 31 3a  53 42 43 20 23 30 3a 53  |A old+1:SBC #0:S|
00002260  54 41 20 6f 6c 64 2b 31  3a 4a 4d 50 20 67 72 32  |TA old+1:JMP gr2|
00002270  0d 0a 64 3d 2e 67 72 33  20 4c 44 41 20 6f 6c 64  |..d=.gr3 LDA old|
00002280  3a 53 42 43 20 23 26 33  39 3a 53 54 41 20 6f 6c  |:SBC #&39:STA ol|
00002290  64 3a 4c 44 41 20 6f 6c  64 2b 31 3a 53 42 43 20  |d:LDA old+1:SBC |
000022a0  23 26 31 3a 53 54 41 20  6f 6c 64 2b 31 0d 0a 6e  |#&1:STA old+1..n|
000022b0  08 2e 67 72 32 0d 0a 78  31 4c 44 41 20 6f 6c 64  |..gr2..x1LDA old|
000022c0  3a 53 54 41 20 67 74 61  62 6c 65 2c 58 3a 4c 44  |:STA gtable,X:LD|
000022d0  41 20 6f 6c 64 2b 31 3a  53 54 41 20 67 74 61 62  |A old+1:STA gtab|
000022e0  6c 65 2b 31 2c 58 0d 0a  82 1e 4c 44 41 20 23 26  |le+1,X....LDA #&|
000022f0  46 3a 4c 44 59 20 23 30  3a 53 54 41 20 28 6f 6c  |F:LDY #0:STA (ol|
00002300  64 29 2c 59 0d 0a 8c 15  5c 6e 65 77 20 61 6c 69  |d),Y....\new ali|
00002310  65 6e 20 6f 62 6a 65 63  74 0d 0a 96 42 4c 44 41  |en object...BLDA|
00002320  20 6c 65 76 65 6c 3a 53  54 41 20 26 32 41 3a 53  | level:STA &2A:S|
00002330  54 59 20 26 32 42 3a 53  54 59 20 26 32 43 3a 53  |TY &2B:STY &2C:S|
00002340  54 59 20 26 32 44 3a 4a  53 52 20 26 41 46 31 32  |TY &2D:JSR &AF12|
00002350  20 20 5c b3 28 6c 65 76  65 6c 29 0d 0a a0 46 4c  |  \.(level)...FL|
00002360  44 41 20 26 32 41 3a 43  4d 50 20 23 32 30 3a 42  |DA &2A:CMP #20:B|
00002370  43 53 20 67 72 65 6e 64  3a 41 53 4c 20 41 3a 50  |CS grend:ASL A:P|
00002380  48 41 20 20 5c 72 69 67  68 74 20 63 6f 6c 75 6d  |HA  \right colum|
00002390  6e 20 61 64 64 72 65 73  73 20 70 6f 69 6e 74 65  |n address pointe|
000023a0  72 0d 0a aa 33 4c 44 41  20 23 36 3a 53 54 41 20  |r...3LDA #6:STA |
000023b0  26 32 41 3a 4a 53 52 20  26 41 46 31 32 20 20 5c  |&2A:JSR &AF12  \|
000023c0  b3 28 36 29 2e 2e 2e 61  6c 69 65 6e 20 6f 62 6a  |.(6)...alien obj|
000023d0  65 63 74 73 0d 0a b4 7b  4c 44 41 20 26 32 41 3a  |ects...{LDA &2A:|
000023e0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
000023f0  41 3a 41 53 4c 20 41 3a  41 44 43 20 23 6f 64 61  |A:ASL A:ADC #oda|
00002400  74 61 20 83 20 32 35 36  3a 53 54 41 20 6f 6c 64  |ta . 256:STA old|
00002410  64 61 74 61 3a 53 54 41  20 64 74 61 62 6c 65 2b  |data:STA dtable+|
00002420  37 38 3a 4c 44 41 20 23  6f 64 61 74 61 20 81 20  |78:LDA #odata . |
00002430  32 35 36 3a 53 54 41 20  6f 6c 64 64 61 74 61 2b  |256:STA olddata+|
00002440  31 3a 53 54 41 20 64 74  61 62 6c 65 2b 37 39 0d  |1:STA dtable+79.|
00002450  0a be 55 50 4c 41 3a 54  41 59 3a 4c 44 41 20 74  |..UPLA:TAY:LDA t|
00002460  61 62 6c 65 31 2c 59 3a  53 54 41 20 6f 6c 64 3a  |able1,Y:STA old:|
00002470  53 54 41 20 61 74 61 62  6c 65 2b 37 38 3a 4c 44  |STA atable+78:LD|
00002480  41 20 74 61 62 6c 65 31  2b 31 2c 59 3a 53 54 41  |A table1+1,Y:STA|
00002490  20 6f 6c 64 2b 31 3a 53  54 41 20 61 74 61 62 6c  | old+1:STA atabl|
000024a0  65 2b 37 39 0d 0a c8 0b  4c 44 59 20 23 31 35 0d  |e+79....LDY #15.|
000024b0  0a d2 0a 2e 6c 6f 6f 70  31 0d 0a dc 1f 4c 44 41  |....loop1....LDA|
000024c0  20 28 6f 6c 64 64 61 74  61 29 2c 59 3a 53 54 41  | (olddata),Y:STA|
000024d0  20 28 6f 6c 64 29 2c 59  0d 0a e6 11 44 45 59 3a  | (old),Y....DEY:|
000024e0  42 50 4c 20 6c 6f 6f 70  31 0d 0a f0 07 52 54 53  |BPL loop1....RTS|
000024f0  0d 0a fa 0a 2e 67 72 65  6e 64 0d 0b 04 18 4c 44  |.....grend....LD|
00002500  41 20 23 30 3a 53 54 41  20 61 74 61 62 6c 65 2b  |A #0:STA atable+|
00002510  37 39 0d 0b 0e 07 52 54  53 0d 0b 18 05 20 0d 0b  |79....RTS.... ..|
00002520  22 3a 2e 70 72 69 6e 74  20 20 5c 75 73 65 73 20  |":.print  \uses |
00002530  6e 65 77 2f 6f 6c 64 2f  58 3d 63 6f 6c 75 6d 6e  |new/old/X=column|
00002540  73 2f 59 3d 72 6f 77 73  2f 6f 6c 64 64 61 74 61  |s/Y=rows/olddata|
00002550  2f 6e 65 77 64 61 74 61  0d 0b 2c 18 53 54 58 20  |/newdata..,.STX |
00002560  63 6f 6c 75 6d 6e 73 3a  53 54 59 20 72 6f 77 73  |columns:STY rows|
00002570  0d 0b 36 0a 4c 44 59 20  23 30 0d 0b 40 36 4c 44  |..6.LDY #0..@6LD|
00002580  41 20 23 32 3a 53 54 41  20 63 6f 75 6e 74 20 20  |A #2:STA count  |
00002590  5c 31 73 74 20 72 75 62  20 6f 75 74 20 6f 6c 64  |\1st rub out old|
000025a0  2c 20 74 68 65 6e 20 70  72 69 6e 74 20 6e 65 77  |, then print new|
000025b0  0d 0b 4a 0a 2e 6c 6f 6f  70 33 0d 0b 54 22 4c 44  |..J..loop3..T"LD|
000025c0  41 20 63 6f 6c 75 6d 6e  73 3a 50 48 41 20 20 5c  |A columns:PHA  \|
000025d0  73 61 76 65 20 63 6f 6c  75 6d 6e 73 0d 0b 5e 0a  |save columns..^.|
000025e0  2e 6c 6f 6f 70 31 0d 0b  68 36 4c 44 41 20 6f 6c  |.loop1..h6LDA ol|
000025f0  64 2b 31 3a 50 48 41 3a  4c 44 41 20 6f 6c 64 3a  |d+1:PHA:LDA old:|
00002600  50 48 41 20 20 5c 73 61  76 65 20 61 64 64 72 65  |PHA  \save addre|
00002610  73 73 20 6f 66 20 63 6f  6c 75 6d 6e 0d 0b 72 0c  |ss of column..r.|
00002620  4c 44 58 20 72 6f 77 73  0d 0b 7c 0a 2e 6c 6f 6f  |LDX rows..|..loo|
00002630  70 32 0d 0b 86 29 4c 44  41 20 28 6f 6c 64 64 61  |p2...)LDA (oldda|
00002640  74 61 29 2c 59 3a 82 20  28 6f 6c 64 29 2c 59 3a  |ta),Y:. (old),Y:|
00002650  53 54 41 20 28 6f 6c 64  29 2c 59 0d 0b 90 49 43  |STA (old),Y...IC|
00002660  4c 43 3a 4c 44 41 20 6f  6c 64 64 61 74 61 3a 41  |LC:LDA olddata:A|
00002670  44 43 20 23 31 3a 53 54  41 20 6f 6c 64 64 61 74  |DC #1:STA olddat|
00002680  61 3a 4c 44 41 20 6f 6c  64 64 61 74 61 2b 31 3a  |a:LDA olddata+1:|
00002690  41 44 43 20 23 30 3a 53  54 41 20 6f 6c 64 64 61  |ADC #0:STA oldda|
000026a0  74 61 2b 31 0d 0b 9a 22  4c 44 41 20 6f 6c 64 3a  |ta+1..."LDA old:|
000026b0  80 20 23 37 3a 43 4d 50  20 23 37 3a 42 45 51 20  |. #7:CMP #7:BEQ |
000026c0  62 6f 74 74 6f 6d 0d 0b  a4 43 43 4c 43 3a 4c 44  |bottom...CCLC:LD|
000026d0  41 20 6f 6c 64 3a 41 44  43 20 23 31 3a 53 54 41  |A old:ADC #1:STA|
000026e0  20 6f 6c 64 3a 4c 44 41  20 6f 6c 64 2b 31 3a 41  | old:LDA old+1:A|
000026f0  44 43 20 23 30 3a 53 54  41 20 6f 6c 64 2b 31 3a  |DC #0:STA old+1:|
00002700  4a 4d 50 20 6e 65 78 74  31 0d 0b ae 11 2e 62 6f  |JMP next1.....bo|
00002710  74 74 6f 6d 20 20 5c 72  6f 77 0d 0b b8 3c 43 4c  |ttom  \row...<CL|
00002720  43 3a 4c 44 41 20 6f 6c  64 3a 41 44 43 20 23 26  |C:LDA old:ADC #&|
00002730  33 39 3a 53 54 41 20 6f  6c 64 3a 4c 44 41 20 6f  |39:STA old:LDA o|
00002740  6c 64 2b 31 3a 41 44 43  20 23 26 31 3a 53 54 41  |ld+1:ADC #&1:STA|
00002750  20 6f 6c 64 2b 31 0d 0b  c2 0a 2e 6e 65 78 74 31  | old+1.....next1|
00002760  0d 0b cc 1c 44 45 58 3a  42 4e 45 20 6c 6f 6f 70  |....DEX:BNE loop|
00002770  32 20 20 5c 6e 65 78 74  20 72 6f 77 0d 0b d6 2f  |2  \next row.../|
00002780  43 4c 43 3a 50 4c 41 3a  41 44 43 20 23 38 3a 53  |CLC:PLA:ADC #8:S|
00002790  54 41 20 6f 6c 64 3a 50  4c 41 3a 41 44 43 20 23  |TA old:PLA:ADC #|
000027a0  30 3a 53 54 41 20 6f 6c  64 2b 31 0d 0b e0 27 44  |0:STA old+1...'D|
000027b0  45 43 20 63 6f 6c 75 6d  6e 73 3a 42 4e 45 20 6c  |EC columns:BNE l|
000027c0  6f 6f 70 31 20 20 5c 6e  65 78 74 20 63 6f 6c 75  |oop1  \next colu|
000027d0  6d 6e 0d 0b ea 25 50 4c  41 3a 53 54 41 20 63 6f  |mn...%PLA:STA co|
000027e0  6c 75 6d 6e 73 20 20 5c  72 65 73 74 6f 72 65 20  |lumns  \restore |
000027f0  63 6f 6c 75 6d 6e 73 0d  0b f4 27 4c 44 41 20 6e  |columns...'LDA n|
00002800  65 77 3a 53 54 41 20 6f  6c 64 3a 4c 44 41 20 6e  |ew:STA old:LDA n|
00002810  65 77 2b 31 3a 53 54 41  20 6f 6c 64 2b 31 0d 0b  |ew+1:STA old+1..|
00002820  fe 37 4c 44 41 20 6e 65  77 64 61 74 61 3a 53 54  |.7LDA newdata:ST|
00002830  41 20 6f 6c 64 64 61 74  61 3a 4c 44 41 20 6e 65  |A olddata:LDA ne|
00002840  77 64 61 74 61 2b 31 3a  53 54 41 20 6f 6c 64 64  |wdata+1:STA oldd|
00002850  61 74 61 2b 31 0d 0c 08  17 44 45 43 20 63 6f 75  |ata+1....DEC cou|
00002860  6e 74 3a 42 4e 45 20 6c  6f 6f 70 33 0d 0c 12 07  |nt:BNE loop3....|
00002870  52 54 53 0d 0c 1c 05 20  0d 0c 26 15 2e 74 65 73  |RTS.... ..&..tes|
00002880  74 20 20 5c 70 6c 61 6e  65 20 6f 6b 3f 0d 0c 30  |t  \plane ok?..0|
00002890  2b 4c 44 41 20 70 6c 61  6e 65 3a 53 54 41 20 6f  |+LDA plane:STA o|
000028a0  6c 64 3a 4c 44 41 20 70  6c 61 6e 65 2b 31 3a 53  |ld:LDA plane+1:S|
000028b0  54 41 20 6f 6c 64 2b 31  0d 0c 3a 3f 4c 44 41 20  |TA old+1..:?LDA |
000028c0  23 70 64 61 74 61 20 83  20 32 35 36 3a 53 54 41  |#pdata . 256:STA|
000028d0  20 6f 6c 64 64 61 74 61  3a 4c 44 41 20 23 70 64  | olddata:LDA #pd|
000028e0  61 74 61 20 81 20 32 35  36 3a 53 54 41 20 6f 6c  |ata . 256:STA ol|
000028f0  64 64 61 74 61 2b 31 0d  0c 44 16 4c 44 41 20 23  |ddata+1..D.LDA #|
00002900  33 3a 53 54 41 20 63 6f  6c 75 6d 6e 73 0d 0c 4e  |3:STA columns..N|
00002910  0a 2e 6c 6f 6f 70 31 0d  0c 58 36 4c 44 41 20 6f  |..loop1..X6LDA o|
00002920  6c 64 2b 31 3a 50 48 41  3a 4c 44 41 20 6f 6c 64  |ld+1:PHA:LDA old|
00002930  3a 50 48 41 20 20 5c 73  61 76 65 20 61 64 64 72  |:PHA  \save addr|
00002940  65 73 73 20 6f 66 20 63  6f 6c 75 6d 6e 0d 0c 62  |ess of column..b|
00002950  0a 4c 44 58 20 23 38 0d  0c 6c 0a 2e 6c 6f 6f 70  |.LDX #8..l..loop|
00002960  32 0d 0c 76 30 4c 44 41  20 28 6f 6c 64 64 61 74  |2..v0LDA (olddat|
00002970  61 29 2c 59 3a 43 4d 50  20 28 6f 6c 64 29 2c 59  |a),Y:CMP (old),Y|
00002980  3a 42 45 51 20 74 65 31  3a 69 6e 63 20 64 65 61  |:BEQ te1:inc dea|
00002990  64 0d 0c 80 4e 2e 74 65  31 20 43 4c 43 3a 4c 44  |d...N.te1 CLC:LD|
000029a0  41 20 6f 6c 64 64 61 74  61 3a 41 44 43 20 23 31  |A olddata:ADC #1|
000029b0  3a 53 54 41 20 6f 6c 64  64 61 74 61 3a 4c 44 41  |:STA olddata:LDA|
000029c0  20 6f 6c 64 64 61 74 61  2b 31 3a 41 44 43 20 23  | olddata+1:ADC #|
000029d0  30 3a 53 54 41 20 6f 6c  64 64 61 74 61 2b 31 0d  |0:STA olddata+1.|
000029e0  0c 8a 1f 4c 44 41 20 6f  6c 64 3a 80 20 23 37 3a  |...LDA old:. #7:|
000029f0  43 4d 50 20 23 37 3a 42  45 51 20 74 65 32 0d 0c  |CMP #7:BEQ te2..|
00002a00  94 41 43 4c 43 3a 4c 44  41 20 6f 6c 64 3a 41 44  |.ACLC:LDA old:AD|
00002a10  43 20 23 31 3a 53 54 41  20 6f 6c 64 3a 4c 44 41  |C #1:STA old:LDA|
00002a20  20 6f 6c 64 2b 31 3a 41  44 43 20 23 30 3a 53 54  | old+1:ADC #0:ST|
00002a30  41 20 6f 6c 64 2b 31 3a  4a 4d 50 20 74 65 33 0d  |A old+1:JMP te3.|
00002a40  0c 9e 15 2e 74 65 32 20  20 5c 62 6f 74 74 6f 6d  |....te2  \bottom|
00002a50  20 72 6f 77 0d 0c a8 3c  43 4c 43 3a 4c 44 41 20  | row...<CLC:LDA |
00002a60  6f 6c 64 3a 41 44 43 20  23 26 33 39 3a 53 54 41  |old:ADC #&39:STA|
00002a70  20 6f 6c 64 3a 4c 44 41  20 6f 6c 64 2b 31 3a 41  | old:LDA old+1:A|
00002a80  44 43 20 23 26 31 3a 53  54 41 20 6f 6c 64 2b 31  |DC #&1:STA old+1|
00002a90  0d 0c b2 08 2e 74 65 33  0d 0c bc 1c 44 45 58 3a  |.....te3....DEX:|
00002aa0  42 4e 45 20 6c 6f 6f 70  32 20 20 5c 6e 65 78 74  |BNE loop2  \next|
00002ab0  20 72 6f 77 0d 0c c6 2f  43 4c 43 3a 50 4c 41 3a  | row.../CLC:PLA:|
00002ac0  41 44 43 20 23 38 3a 53  54 41 20 6f 6c 64 3a 50  |ADC #8:STA old:P|
00002ad0  4c 41 3a 41 44 43 20 23  30 3a 53 54 41 20 6f 6c  |LA:ADC #0:STA ol|
00002ae0  64 2b 31 0d 0c d0 27 44  45 43 20 63 6f 6c 75 6d  |d+1...'DEC colum|
00002af0  6e 73 3a 42 4e 45 20 6c  6f 6f 70 31 20 20 5c 6e  |ns:BNE loop1  \n|
00002b00  65 78 74 20 63 6f 6c 75  6d 6e 0d 0c da 07 52 54  |ext column....RT|
00002b10  53 0d 0c e4 05 5d 0d 0c  ee 05 ed 0d 0c f8 05 e1  |S....]..........|
00002b20  0d 0d 02 05 20 0d 0d 0c  0f dd 20 f2 72 65 6c 6f  |.... ..... .relo|
00002b30  63 61 74 65 0d 0d 16 70  2a 4b 45 59 30 20 22 2a  |cate...p*KEY0 "*|
00002b40  54 41 50 45 7c 4d 44 25  3d 50 41 47 45 2d 26 45  |TAPE|MD%=PAGE-&E|
00002b50  30 30 3a 46 4f 52 49 25  3d 50 41 47 45 20 54 4f  |00:FORI%=PAGE TO|
00002b60  20 54 4f 50 20 53 54 45  50 34 3a 21 28 49 25 2d  | TOP STEP4:!(I%-|
00002b70  44 25 29 3d 21 49 25 3a  4e 45 58 54 3a 3f 28 54  |D%)=!I%:NEXT:?(T|
00002b80  4f 50 2d 44 25 29 3d 32  35 35 7c 4d 50 41 47 45  |OP-D%)=255|MPAGE|
00002b90  3d 26 45 30 30 7c 4d 4f  4c 44 7c 4d 52 55 4e 7c  |=&E00|MOLD|MRUN||
00002ba0  46 7c 4d 22 0d 0d 20 0b  2a 46 58 32 31 2c 30 0d  |F|M".. .*FX21,0.|
00002bb0  0d 2a 10 2a 46 58 31 33  38 2c 30 2c 31 32 38 0d  |.*.*FX138,0,128.|
00002bc0  0d 34 05 e1 0d 0d 3e 05  20 0d 0d 48 0e dd 20 f2  |.4....>. ..H.. .|
00002bd0  61 6e 6f 74 68 65 72 0d  0d 52 0b ea 20 53 25 2c  |another..R.. S%,|
00002be0  4c 25 0d 0d 5c 0a f7 20  8d 74 64 50 0d 0d 66 5c  |L%..\.. .tdP..f\|
00002bf0  53 25 3d 31 30 30 30 2a  28 28 3f 73 63 6f 72 65  |S%=1000*((?score|
00002c00  20 80 20 26 46 30 29 81  20 26 31 30 29 2b 31 30  | . &F0). &10)+10|
00002c10  30 2a 28 3f 73 63 6f 72  65 20 80 20 26 46 29 2b  |0*(?score . &F)+|
00002c20  31 30 2a 28 28 73 63 6f  72 65 3f 31 20 80 20 26  |10*((score?1 . &|
00002c30  46 30 29 81 20 26 31 30  29 2b 28 73 63 6f 72 65  |F0). &10)+(score|
00002c40  3f 31 20 80 20 26 46 29  0d 0d 70 1e e7 20 53 25  |?1 . &F)..p.. S%|
00002c50  3e 73 63 6f 72 65 73 25  28 31 30 29 20 f2 68 69  |>scores%(10) .hi|
00002c60  5f 73 63 6f 72 65 0d 0d  7a 09 ef 32 30 3a db 0d  |_score..z..20:..|
00002c70  0d 84 1f f1 27 8a 33 29  3b 3a f2 62 69 67 28 22  |....'.3);:.big("|
00002c80  48 69 67 68 20 20 53 63  6f 72 65 73 22 29 0d 0d  |High  Scores")..|
00002c90  8e 0c fb 20 32 3a f1 27  27 27 0d 0d 98 0f e3 20  |... 2:.'''..... |
00002ca0  49 25 3d 31 20 b8 20 31  30 0d 0d a2 13 e7 20 96  |I%=1 . 10..... .|
00002cb0  28 2d 36 29 3e 33 20 f2  74 75 6e 65 0d 0d ac 09  |(-6)>3 .tune....|
00002cc0  fb 20 33 3a f1 0d 0d b6  32 f1 3b 49 25 3b 22 2e  |. 3:....2.;I%;".|
00002cd0  22 3b 3a fb 20 32 3a f1  20 8a 33 29 3b 6e 61 6d  |";:. 2:. .3);nam|
00002ce0  65 24 28 49 25 29 3b 8a  31 35 29 3b 73 63 6f 72  |e$(I%);.15);scor|
00002cf0  65 73 25 28 49 25 29 0d  0d c0 05 ed 0d 0d ca 30  |es%(I%)........0|
00002d00  fb 20 31 3a f1 27 27 27  22 20 20 20 41 6e 6f 74  |. 1:.'''"   Anot|
00002d10  68 65 72 20 67 61 6d 65  20 3f 22 27 27 89 28 36  |her game ?"''.(6|
00002d20  29 3b 22 28 59 20 6f 72  20 4e 29 22 0d 0d d4 0d  |);"(Y or N)"....|
00002d30  f5 20 6b 65 79 24 3d bf  30 0d 0d de 13 e7 20 96  |. key$=.0..... .|
00002d40  28 2d 36 29 3e 33 20 f2  74 75 6e 65 0d 0d e8 16  |(-6)>3 .tune....|
00002d50  fd 20 a7 22 20 59 79 4e  6e 22 2c 6b 65 79 24 29  |. ." YyNn",key$)|
00002d60  3e 31 0d 0d f2 10 db 3a  ef 31 39 2c 33 2c 36 3b  |>1.....:.19,3,6;|
00002d70  30 3b 0d 0d fc 05 e1 0d  0e 06 05 20 0d 0e 10 0f  |0;......... ....|
00002d80  dd 20 f2 68 69 5f 73 63  6f 72 65 0d 0e 1a 10 fb  |. .hi_score.....|
00002d90  20 33 3a f1 20 8a 30 2c  35 29 3b 0d 0e 24 1f f2  | 3:. .0,5);..$..|
00002da0  62 69 67 28 22 2a 20 43  4f 4e 47 52 41 54 55 4c  |big("* CONGRATUL|
00002db0  41 54 49 4f 4e 53 20 2a  22 29 0d 0e 2e 51 fb 20  |ATIONS *")...Q. |
00002dc0  32 3a f1 27 27 27 27 22  59 6f 75 20 61 72 65 20  |2:.''''"You are |
00002dd0  69 6e 20 74 68 65 22 27  27 22 68 69 67 68 20 73  |in the"''"high s|
00002de0  63 6f 72 65 20 74 61 62  6c 65 2e 22 27 27 22 57  |core table."''"W|
00002df0  68 61 74 20 69 73 20 79  6f 75 72 20 6e 61 6d 65  |hat is your name|
00002e00  20 3f 22 27 27 27 27 22  3f 22 3b 0d 0e 38 22 fb  | ?"''''"?";..8".|
00002e10  20 31 3a 73 74 72 69 6e  67 24 3d 22 22 3a ef 20  | 1:string$="":. |
00002e20  32 33 2c 31 2c 31 3b 30  3b 30 3b 30 3b 0d 0e 42  |23,1,1;0;0;0;..B|
00002e30  0b f5 20 4b 25 3d a6 30  0d 0e 4c 13 e7 20 96 28  |.. K%=.0..L.. .(|
00002e40  2d 36 29 3e 33 20 f2 74  75 6e 65 0d 0e 56 34 e7  |-6)>3 .tune..V4.|
00002e50  20 4b 25 3e 33 31 20 80  20 4b 25 3c 31 32 37 20  | K%>31 . K%<127 |
00002e60  80 20 b1 3c 31 31 20 73  74 72 69 6e 67 24 3d 73  |. .<11 string$=s|
00002e70  74 72 69 6e 67 24 2b bd  4b 25 3a ef 20 4b 25 0d  |tring$+.K%:. K%.|
00002e80  0e 60 43 e7 20 4b 25 3d  31 32 37 20 80 20 a9 20  |.`C. K%=127 . . |
00002e90  73 74 72 69 6e 67 24 20  73 74 72 69 6e 67 24 3d  |string$ string$=|
00002ea0  c0 73 74 72 69 6e 67 24  2c 28 a9 20 73 74 72 69  |.string$,(. stri|
00002eb0  6e 67 24 29 2d 31 29 3a  e7 20 b1 3e 31 20 ef 20  |ng$)-1):. .>1 . |
00002ec0  4b 25 0d 0e 6a 0b fd 20  4b 25 3d 31 33 0d 0e 74  |K%..j.. K%=13..t|
00002ed0  24 73 63 6f 72 65 73 25  28 31 30 29 3d 53 25 3a  |$scores%(10)=S%:|
00002ee0  6e 61 6d 65 24 28 31 30  29 3d 73 74 72 69 6e 67  |name$(10)=string|
00002ef0  24 0d 0e 7e 14 e3 20 49  25 3d 31 30 20 b8 20 32  |$..~.. I%=10 . 2|
00002f00  20 88 20 2d 31 0d 0e 88  13 e7 20 96 28 2d 36 29  | . -1..... .(-6)|
00002f10  3e 33 20 f2 74 75 6e 65  0d 0e 92 95 e7 20 73 63  |>3 .tune..... sc|
00002f20  6f 72 65 73 25 28 49 25  29 3e 73 63 6f 72 65 73  |ores%(I%)>scores|
00002f30  25 28 49 25 2d 31 29 20  53 25 3d 73 63 6f 72 65  |%(I%-1) S%=score|
00002f40  73 25 28 49 25 29 3a 73  63 6f 72 65 73 25 28 49  |s%(I%):scores%(I|
00002f50  25 29 3d 73 63 6f 72 65  73 25 28 49 25 2d 31 29  |%)=scores%(I%-1)|
00002f60  3a 73 63 6f 72 65 73 25  28 49 25 2d 31 29 3d 53  |:scores%(I%-1)=S|
00002f70  25 3a 73 74 72 69 6e 67  24 3d 6e 61 6d 65 24 28  |%:string$=name$(|
00002f80  49 25 29 3a 6e 61 6d 65  24 28 49 25 29 3d 6e 61  |I%):name$(I%)=na|
00002f90  6d 65 24 28 49 25 2d 31  29 3a 6e 61 6d 65 24 28  |me$(I%-1):name$(|
00002fa0  49 25 2d 31 29 3d 73 74  72 69 6e 67 24 0d 0e 9c  |I%-1)=string$...|
00002fb0  05 ed 0d 0e a6 13 ef 20  32 33 2c 31 2c 30 3b 30  |....... 23,1,0;0|
00002fc0  3b 30 3b 30 3b 0d 0e b0  05 e1 0d 0e ba 05 20 0d  |;0;0;......... .|
00002fd0  0e c4 11 dd 20 f2 69 6e  69 74 69 61 6c 69 73 65  |.... .initialise|
00002fe0  0d 0e ce 1b de 20 73 63  6f 72 65 73 25 28 31 30  |..... scores%(10|
00002ff0  29 2c 6e 61 6d 65 24 28  31 30 29 0d 0e d8 0f e3  |),name$(10).....|
00003000  20 49 25 3d 31 20 b8 20  31 30 0d 0e e2 1b 73 63  | I%=1 . 10....sc|
00003010  6f 72 65 73 25 28 49 25  29 3d 31 31 30 30 2d 49  |ores%(I%)=1100-I|
00003020  25 2a 31 30 30 0d 0e ec  05 ed 0d 0e f6 27 6e 61  |%*100........'na|
00003030  6d 65 24 28 31 29 3d 22  45 6c 65 63 74 72 6f 6e  |me$(1)="Electron|
00003040  22 3a 6e 61 6d 65 24 28  32 29 3d 22 55 73 65 72  |":name$(2)="User|
00003050  22 0d 0f 00 24 6e 61 6d  65 24 28 33 29 3d 22 4d  |"...$name$(3)="M|
00003060  69 63 72 6f 22 3a 6e 61  6d 65 24 28 34 29 3d 22  |icro":name$(4)="|
00003070  55 73 65 72 22 0d 0f 0a  0f e3 20 49 25 3d 35 20  |User"..... I%=5 |
00003080  b8 20 31 30 0d 0f 14 19  6e 61 6d 65 24 28 49 25  |. 10....name$(I%|
00003090  29 3d 6e 61 6d 65 24 28  49 25 2d 34 29 0d 0f 1e  |)=name$(I%-4)...|
000030a0  05 ed 0d 0f 28 31 e2 20  31 2c 32 2c 2d 31 2c 2d  |....(1. 1,2,-1,-|
000030b0  32 2c 2d 34 2c 31 35 30  2c 31 30 2c 31 30 2c 31  |2,-4,150,10,10,1|
000030c0  32 36 2c 30 2c 30 2c 2d  31 32 36 2c 31 32 36 2c  |26,0,0,-126,126,|
000030d0  31 32 36 0d 0f 32 1c ef  20 31 39 2c 33 2c 36 3b  |126..2.. 19,3,6;|
000030e0  30 3b 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |0;23,1,0;0;0;0;.|
000030f0  0f 3c 7b 70 6c 61 6e 65  3d 26 37 43 3a 73 63 6f  |.<{plane=&7C:sco|
00003100  72 65 3d 26 38 32 3a 64  65 61 64 3d 26 38 36 3a  |re=&82:dead=&86:|
00003110  73 70 65 65 64 3d 26 38  37 3a 6c 65 76 65 6c 3d  |speed=&87:level=|
00003120  26 38 38 3a 70 64 61 74  61 3d 26 35 37 32 30 3a  |&88:pdata=&5720:|
00003130  67 74 61 62 6c 65 3d 26  39 30 30 3a 61 74 61 62  |gtable=&900:atab|
00003140  6c 65 3d 26 39 30 30 2b  38 30 3a 64 74 61 62 6c  |le=&900+80:dtabl|
00003150  65 3d 26 39 30 30 2b 31  36 30 3a 74 61 62 6c 65  |e=&900+160:table|
00003160  31 3d 26 39 30 30 2b 32  34 30 0d 0f 46 05 e1 0d  |1=&900+240..F...|
00003170  0f 50 05 20 0d 0f 5a 10  dd 20 f2 70 61 75 73 65  |.P. ..Z.. .pause|
00003180  28 54 25 29 0d 0f 64 10  d1 3d 30 3a f5 20 fd 20  |(T%)..d..=0:. . |
00003190  91 3e 54 25 0d 0f 6e 05  e1 0d 0f 78 05 20 0d 0f  |.>T%..n....x. ..|
000031a0  82 0d dd 20 f2 73 63 72  6f 6c 6c 0d 0f 8c 0a f7  |... .scroll.....|
000031b0  20 8d 74 64 50 0d 0f 96  3a 61 24 3d c4 36 2c 22  | .tdP...:a$=.6,"|
000031c0  20 22 29 2b 22 45 6c 65  63 74 72 6f 6e 20 55 73  | ")+"Electron Us|
000031d0  65 72 22 2b c4 36 2c 22  20 22 29 2b 22 4d 69 63  |er"+.6," ")+"Mic|
000031e0  72 6f 20 20 55 73 65 72  22 3a 62 24 3d 61 24 0d  |ro  User":b$=a$.|
000031f0  0f a0 0e f5 20 62 24 3d  62 24 2b 61 24 0d 0f aa  |.... b$=b$+a$...|
00003200  0b f5 20 4b 25 3d a6 30  0d 0f b4 09 f2 74 75 6e  |.. K%=.0.....tun|
00003210  65 0d 0f be 15 f1 20 8a  33 2c 33 30 29 3b c0 62  |e..... .3,30);.b|
00003220  24 2c 33 34 29 3b 0d 0f  c8 0d 62 24 3d c1 62 24  |$,34);....b$=.b$|
00003230  2c 32 29 0d 0f d2 15 fd  20 a9 20 62 24 3d 33 34  |,2)..... . b$=34|
00003240  20 84 20 4b 25 3d 33 32  0d 0f dc 0b fd 20 4b 25  | . K%=32..... K%|
00003250  3d 33 32 0d 0f e6 05 e1  0d 0f f0 05 20 0d 0f fa  |=32......... ...|
00003260  13 dd 20 f2 62 69 67 28  73 74 72 69 6e 67 24 29  |.. .big(string$)|
00003270  0d 10 04 0b ea 20 49 25  2c 41 25 0d 10 0e 16 e3  |..... I%,A%.....|
00003280  20 49 25 3d 31 20 b8 20  a9 20 73 74 72 69 6e 67  | I%=1 . . string|
00003290  24 0d 10 18 1a 3f 26 37  30 3d 97 28 c1 73 74 72  |$....?&70=.(.str|
000032a0  69 6e 67 24 2c 49 25 2c  31 29 29 0d 10 22 1d 41  |ing$,I%,1))..".A|
000032b0  25 3d 31 30 3a 58 25 3d  26 37 30 3a 59 25 3d 30  |%=10:X%=&70:Y%=0|
000032c0  3a d6 20 26 46 46 46 31  0d 10 2c 0e e3 20 4a 25  |:. &FFF1..,.. J%|
000032d0  3d 30 20 b8 20 31 0d 10  36 0c ef 20 32 33 2c 32  |=0 . 1..6.. 23,2|
000032e0  32 35 0d 10 40 0e e3 20  4b 25 3d 32 20 b8 20 39  |25..@.. K%=2 . 9|
000032f0  0d 10 4a 16 ef 20 3f 28  26 37 30 2b 34 2a 4a 25  |..J.. ?(&70+4*J%|
00003300  2b 4b 25 81 32 29 0d 10  54 05 ed 0d 10 5e 0e ef  |+K%.2)..T....^..|
00003310  20 32 32 35 2c 31 30 2c  38 0d 10 68 05 ed 0d 10  | 225,10,8..h....|
00003320  72 0d ef 20 31 31 2c 31  31 2c 39 0d 10 7c 05 ed  |r.. 11,11,9..|..|
00003330  0d 10 86 05 e1 0d 10 90  05 20 0d 10 9a 0a f4 20  |......... ..... |
00003340  74 75 6e 65 0d 10 a4 4d  dc 20 33 32 2c 34 38 2c  |tune...M. 32,48,|
00003350  36 30 2c 38 30 2c 36 30  2c 38 30 2c 39 36 2c 38  |60,80,60,80,96,8|
00003360  30 2c 36 30 2c 38 30 2c  36 30 2c 34 38 2c 33 32  |0,60,80,60,48,32|
00003370  2c 34 38 2c 36 30 2c 38  30 2c 36 30 2c 38 30 2c  |,48,60,80,60,80,|
00003380  39 36 2c 38 30 2c 36 30  2c 38 30 2c 36 30 2c 34  |96,80,60,80,60,4|
00003390  38 0d 10 ae 4f dc 20 32  38 2c 34 30 2c 36 30 2c  |8...O. 28,40,60,|
000033a0  38 38 2c 36 30 2c 38 38  2c 31 30 30 2c 38 38 2c  |88,60,88,100,88,|
000033b0  36 30 2c 38 38 2c 36 30  2c 34 30 2c 32 38 2c 34  |60,88,60,40,28,4|
000033c0  30 2c 36 30 2c 38 38 2c  36 30 2c 38 38 2c 31 30  |0,60,88,60,88,10|
000033d0  30 2c 38 38 2c 36 30 2c  38 38 2c 36 30 2c 34 30  |0,88,60,88,60,40|
000033e0  0d 10 b8 08 dc 20 2d 31  0d 10 c2 05 20 0d 10 cc  |..... -1.... ...|
000033f0  0b dd 20 f2 74 75 6e 65  0d 10 d6 24 f3 20 70 69  |.. .tune...$. pi|
00003400  74 63 68 3a e7 20 70 69  74 63 68 3c 30 20 f7 20  |tch:. pitch<0 . |
00003410  8d 74 64 50 3a f3 20 70  69 74 63 68 0d 10 e0 13  |.tdP:. pitch....|
00003420  d4 20 31 2c 2d 31 30 2c  70 69 74 63 68 2c 33 0d  |. 1,-10,pitch,3.|
00003430  10 ea 05 e1 0d ff                                 |......|
00003436