~|`H@ 
C(VzB	V
R Q)&L4LH
w 
1~[<$6}"A
n8zDb6|R( ~<
j	rFB{ /Mz /Kf.M
 !,O&,MkM

N	
IUfBtLvx]zLojV7np;rD@	|&!#%')N.~rsvvN]
 p{	h@
LI	)0)lJC&EK	L01	$K=%	L%0)	L)0	L11	6K
	L;1!
$
@@p^_4! (q`Y/KS"U
pFtgpqz |VPq-

L20 "&;q"M/g
%[q)!r
bn4c)F)c )bDn
bD
f)r$+	P@/$!
f)2&*c*9F**4n(?&@?A$!Dn@OAH.b!f .bf
"ObP.H@~
bf
D.QzR*bnb!~ 
mdmD
H//Hdv (S&St?&
c
F

4nH?! h	D N	'@h h
	G~}w (
00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b
3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn30mm4zg|}w7o@OR!W7(T(?'LX	LV N	Y*bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;
LE{ 7ES'L
1<=ajwao[2\bLhTsRSbhE	
r
~
tGugzCVDyo\5b][dX-IZZKH	TO!N!(/X~b2b}3&N	2B-  5c5	L#0
+4,b57j
2f)f4$&#@# nJ>
n!"b	|G#]#V
3f{Urz xO33$HVbn?d
.

ny	W0%vK2 w{e;t? 2TA1%=i~+Q rRfrTrWBrX-rY#r`
r	}G| }c{z(yy yxy)w(zvu)$t)
A$ kbk	lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f 	ls(?\A$
AgA NA ~k-j Abe	les7 |e UdeA*KN3BWd'YExo)R*WR~}7} ~|b'{"zHd~yz)H?!hJ	*x"zxzi~}@? 
lw!>}S(}@?O!.vuz}hHz f} .~>zxz)OD	,~<Z	}C!o}b`vy J	.xz)1 	tC@s{ozrZJtc(S{yz)S2	lM0
{c9
F&i eO.@EeR0-@{PtE% >JGf Hf 	l~~JO7})| R2s`sUsSs{6sIhS	o(T	lI"V	lBGJHKGj IfH<J}/G .{~X	lzz7IYJy0 	~EXG&U(S	oG$QY*{W	~xD(^{D
i>
^78RvAOQw
PG	fB:gb;hkAY 6Z*8TOeB	~(?}"
8)| {H/zy"	xC0(wy0	~C -z2b *z8$
2	lv2u2}t 	8K2 /4s"	xCrq(3zp@.z/94*bf
"ObP.H@~
bf
D.QzR*bnb!~ 
md-s?JMu!  @`W  2%	~8X	~OP	l}(?M@/|"O}G	l}{2@zS	oBPJQT	lz"	}G	yCx(/P!.}@/ wiV	lBQ	}>HIz}H>}vsvgu>u}st}s}'5	,}r0}	|0	}C{H/%Qd>w PP&R.){2.n+-'-0BH.rD.b,-'V2bqn|pZz)rtK#5)$ ("   .)bn~6C	l4X7hQFn(hn!JD
"@~b>z*N	*C*(O?D"(>z*3JD	l**6D*+!Dfj	}6|6{z0b{jxj	}2}~|2|~{2{{sH
nzyxDHE+	}D>}|s|g{>{	|j520@
F}	l(?~9h/wO&xozO"{?
?-P 	}E70(/
	l0(|y{ ?##Kz}!Yf#>
O9z

n
y`xY2,*wZOZIz
nnsv'Y>J, ~W&}Y"HbnO0Ya(Y	oY$]	,Z>	uC Yfmt"xYkz) vK2*e`8t?@2RB*)R} .	G =f 	l~v	Ez}|`o
Uo
So`W(
"={K	~E!7h~ziy<&x=&~7x~@5z!	l~XJ	*&j 	G b=d /5}"	wG} .=v"u	CH$zts)O bFbb	lW	<es7 |e UdeA*KND0Se|#uKS*8TOJC5NxFwbXn&bn4 n4b	G	~C(WzU"b(;z!b@;zbHf.bf/JC .bAj
@"@HzfiH/@/Rf.X	l}y
"nmhl 	~Gm	|mx	{G lfVnj&kpcm0qrbhnlj@Ehn8b tbcc	l8Ef	~C}ck)).
|`Xn)){ 0Df.bf*0@b&b&b&5N8izH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{"	G~'}'F>fjh+AY s0xp&
c
F
6&
&cF cb7#j&c7F c	l68	G~68	~G}68	}GVN4&k6{	 	C|	~Cb{@/kz"yiKJ./!f	G~}w ([c\
dhX	[<Vn\=&>(N	:h~Sb"$n

w
CNh}tp5NxFx	,rn4 n4i"&"~&&&&}b8
i.bf.o8') 		P;?n<<4 n<<4ip"&!.|"f{8&X`H/Z)f.bfz8T"bbyi N	9Hh	lxnzF*cehxfn	l >A~0~&J0n4"cF%&&&c' @H1~fn~b	l}|y 6:&
c7BF 7c7Fc n66	,{7rzy{Hf.bf	l}N{V1	xC wr	xG 	hC^hdh_6N	\Hhdj 8fFEwOR.n
b5B(|hT&*p-16
V=VVVVVJ, ho"	,,+}/m(/=m$`i"+:-9-Em" nf-?-Hlb	hInmb!Hnj&	nBZzno7 mbmEjmn"Hjb	hIk+*g @ Z 
(!*
?ff

(?V,	IV  
C(VzB	V
R Q)&L4LH
w 
1~[<$6}"A
n8zDb6|R( ~<
j	rFB{ /Mz /Kf.M
 !,O&,MkM

N	
IUfBtLvx]zLojV7np;rD@	|&!#%')N.~rsvvN]

/xRC
 `0&cd0cdaf>atH
f666b&	bC

n
PhbP8b(J
.
Jhb&.fJ(b8J~&}f}a(]z 
PJ|(2z{H/zy"P0 0!c ( bbcoz

n
r`	gK?
@:o} p@`?M	|	~J	J	hA	$@(C	
	)-	~	, (C	#	i,}|	,{z7 h		2
G	@M	AL	AO	AL	A	yC	(OzHOzd(	~	,^(C	^C	^c1,&
)L} h	h	676(?xH?wv; ;2@h p{
h@
LI	)0)lJC&EK
L01
$K=%
L%0)	L)0
L11
6K

L;1 
LI	)0)lJC&EK(q`Y/KS"U
pFtgpqz |VPq-

L20 "&;q"M/g
%[q)!s
	L		L		L		L		L		L		L		L		L		L		L		L		L		L		L		L	@i+%4!2[l
)!'[%xg6;h<[wq^ha ?)-7676_7B*)j).c77cl&	C_g	L	)&/767-6-(6B*-d-_77d)b720-7)l-&IK8-7'7B
7g)&JK87y2*7d776*@ @p cN
(bG*&(C[*c(]z7`K
<H
%abE
H
NI
|z&l%+fr[2(
|N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m
)QFs
l@
 vOy3U	OOsQ
|RS2' n'(/'"(: 'b
.(P	@TP
(T(8UV'YX'gW'
0 F.Zbbb!b'b.b3b8(k[		b
\bbE
l	?
tC
,:	38kL`~ca
fed|
@^	|eetf^J
dK%Yw*AJQ@*Y$sQ"MM)nK8rc(gzM{a&t,('H/)"<b~*rC(2<+b ' J,&H"z)=&}~'*C(K(=&+*$C	,|{0(,{z(&y)&x*&w+&vu'
tBtr}	|,2sss!rg
CKEL(>{SLM b

n
]h](S0=(]<2HGr;v(]0S(S(S((/g:2se]i?C
U
 #2qUqvu``Lu!Lv?LwALxLysLzHL{#L|PL}tL~)L	d
&
L&Kh
,@/
@O	&0h#G$%'"+AHPz,END LOCK 2
->9a8T!r(@yK
>]bUrmcLtEJ+M,qjU]"k!|QT+ois\idi[6m9e["w]]idM
,lr@`
 	/s/>3	DD	HNw0BY@C*vR@
4
7N
+C@%*A`3+O`M3J6I@!
fL@JfL@JfM@ JfM+fI@]9+aM@6\
7@*fA}*FN]+N@2m+aDo
f%)vFZ,+P`G@
WS&
GN@ JFA@ 

fO!
FO#

G$
'@$
R FS!*FzJF4+fC
5`9+Pc
vS4*v
EA\+
SE@N
d@Ld+dR@1e+E/8J
d>J
dN
d@
d
d	Jd>Jd
NKdO+KdAvM@@@vN@@(vNCvP@@HJvT@@ JfTCPfZ@@ vZCvP@@H
w
Q*&V
@T&FQ!*AC*
C@*
C)
@!DD
87<O"@|p
;
{
7q
;!{
7gLRTR@
373
;8{OBC
sx{
v7u
;r{
7?
;e|
17F
;
s{
7H
;0|17@
L
	7t
;	V{

7l<U@@
7

i{
7K1@}*
K
7%
K"|
7.K1|.
K2|
7cK1@}[
K@|
7V
KS|
7aK2|aK50|cK51|eLXTpklASN+PCNSC@D@
Ov Iz{n2 Zxz
<(pB+emtbWo&mF.nMWWWbPub0vzs0Z{y0xH+&;nK%FZR `p'
'1pr@@L!X!:'r@*l+v}(/|{2(,zc?u	65&t)vec*)"("z
)f| |vu33e)oRbl!l (z{ryb9 0fH/2x(/Nw"(v{Xj|0]"gi&&&&	"!b(Tzed	" uC`(/t3|isZ6f
g6oT,qYz\}>pBffhfeDV.c/`c&RRDq~4}Bebdbj6*3f"nfbfb
ggfrn
dddt9d"gddf d
hH. ?i96|(e{" @zz>Tzg
yI

7I\

7Ixh
wIfzazxyh
w4}~	
	qBvur7ir.|h0k
{
j@?fs^?
~(?}"
8)| {H/zy"
xC0(wy0
~C -z2b *z8$
2
lv2u2}t 
8K2 /4s"
xCrq(3zp@.z/94*wx0yA&A?G<bGlta&
nC	(O
chG,U0l
ldmalm'	cKfo-s?JMx! P@`W P2X
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
0
PAGE 
BLOCK 160
\N1, BLOCK 1
\M, LCK 1
\N, BLOCK 1
\J, BLOCK 1
\I, BLOCK 1
DUMMY [0
]6, 1702
0
0
]3, 2331
2300
0
CPAGE 6
EAP 
ENTRY MAIN
MAIN, NOP 
CALL 0,OPEN
PAUSE 


(WzU"b(;z!b@;zbHf.bf/JC .bAj
@"@HzfiH/@/Rf.X
l}yg"nmhl 	~Gm	|mx	{G lfVnj&kpcm0qrbhnljE
hn8b tbcc	l8Ef	~C}ck)).
|`Xn)){ 0Df.bf*0@b&b&b&5N;i0zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{"	G~'}'F>fj xp&
c
F
6&
&cF cb7#j&c7F c	l68	G~68	~G}68	}GVN4&k6{	 	C|	~Cb{@/kz"yiKJ./!f	G~}w ([c\bdhX	
[<Vn\=&>(N
:h.Sn$
BHrH~NK}t 	(?fb&0 ~rZ
ndd46}Bbb

L|
^z bfejh?k',{(/zA4bAJe(/1
,\	\4dDetyb&)A&3a&!C*SO*)A&ax0J
nc
.
adTa#xcaaCwv(-zu
,  K@9zt
s]x
jt	
sI
<
|I	jpp
>h`fp~}

p&(z L,&&b \ &J&f&@/!'"_#"$&ro%l{*1 knu'01 NO 200 ORG2 ! IS SHIFT4 NO 0 FILL[	 \^_7^_D`TJ]?pvSoTi{{DKzB`d8w:^!tJo$pJR,HO&HRHN



T@C





PP@6
	

PD@
RTA!O"
0

$

@NAAa
@
SEA
 A
Q

@
 $A$
SPGAN@
P@@
A
0KO

PL@

T
0FD 
I@
H@
	

`S%

E
CAN!

4
OM
30{[0{[0{[0{[I
C 
CIA 
TAD (51
DCA \I
^M, ISZ \I
TAD \I
CIA 
TAD (120
SPC 
JMP ^N
TAD (43
CALL 3,SUBSC
ARG \I
ARG \J
ARG \JDAT
^O
CALL 1,IOH
^O, ARG 0
JMP ^M
^N, 
CALL 1,IOH
ARG 0
JM P
CPAGE 4
\15, 5070
6001
6251
0
^P, 
\12, NOP 
JMP ^G
^H, 
DCA \J
^Q, ISZ \J
TAD \J
CIA 
TAD (43
SPC 
JMP ^R
CALL 2,WRITE
ARG (3
ARG \17
DCA \I
^S, ISZ \I
TAD \I
CIA 
AD (101
SPC 
JMP ^T
TAD (43
CALL 3,SUBSC
ARG \I
ARG \J
ARG \JDAT
^U
CALL 1,IOH
^U, ARG 0
JMP ^S
^T, 
CALL 1,IOH
ARG 0
JMP ^V
CPAGE 6
\17, 5047
4047
5461
6360
162
5100BY@D

PAGEh

~
lhC
phC	
'I%VE B3LX:'r@
,}
|}}S!|cH{{
zN
3NC	@8'*g'K'@

xN
uNy
|yyS!xbHw{
vG
vEv!>uH/t8
x
l
sw
sEs!>rH/lu"F
tN
sN
CihC	V
C	@?*(t0#pseorgpqn
8*
)L

|*
~!~b}
|}}S!|bH%z{(F
t
ls
l"?C	@(C	.
8
,)@zk
yG
yEy!>{H/c(
x
|[}w
}E}!>wH/V{"F
tN
sN
CSxC	@
C	@a'*'1pr@@.2.v>u8nrpq{"|t!~?A`sH#`Pt)
OxRC
 `0&cd0cdaf>atH
f666b&
bC

n
PhbP8b(J
.
Jhb&.fJ(b8J~&}f}a(]z 
PJ|(2z{H/zy"P00!c (bbcoz

n
r`
gK?0
PAGE  0@`?M|

Note: Lines longer than 256 characters were wrapped