Transactor/Transactor_27_1988_Transactor_Publishing.d64

Commodore Disk Image | 1988-01-01 | 170.8 KB

{$f0}E{$f0}{$f6}2HP{$f2}Z{$60}I{CBM-Q}{$f0}I-P{$60}l{$eb}~
{$f0} w{$fd}
 {$e2}~
 Y~
 Y

{$f0} w{$fd}
 S

 {$e2}~
P {CBM-G}P{SHIFT-POUND}~{$60} {$7d}~
c {$7d}~
d8{CBM-G}{$e5}c{CBM-G}{$e5}d{$60}{CBM-G}Z"{CBM-G}{$7b}#{CBM-G}-${CBM-G}.%{$60}{CBM-G}"E$P{CBM-G}#E%{$60}{CBM-@}H{CBM-E}"{CBM-@}H" {CBM-R}{$fd}
P{$60}{$e6}"P{$ec}{$e6}#P{$e8}{CBM-@}{CBM-E}${CBM-@}$ {CBM-R}{$fd}
P{$60}{CBM-G}$PF%F$lU{$fd}


{CBM-G} {$ee}~
{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} -{$fe}
H{CBM-E}{CBM-S}0V R~P{$f6} {$e5}~
8{$60}{CBM-D}{$fa}~
{CBM-S}P{SHIFT-POUND}~CB0 {$7d}~
EP {$7d}~
EP {$f1}~
{SHIFT-POUND} lR~ {$7d}~
 J~
{$f0}R u~
{$e6} U{$fd}
{$e6}-P{$e6}.{$60} u~
F {CBM-X}{$fd}
{CBM-G}-PF.F-{$60} {CBM-K}{$fd}


{$60}{CBM-G}5C{CBM-G}6Bl{CBM-*}~
{CBM-G}CE3C{CBM-G}BE4B {$7d}~
P{$fb}{$60}

{$e6}ZP{$e6}{$7b}{CBM-E}Z{$60}{SHIFT-POUND}


 {$f4}~
8{CBM-G}-{$e9}{CBM-N}{CBM-G}.{$e9}

{CBM-POUND}{CBM-G}
 U~l{$f7}~
{CBM-M}changEdeletEfinDkilLnumbeRappenD

v{$fc}
{$f2}{$fb}
v{$fc}
W{$fb}
k{$fe}
~
l3{CBM-G}l{$7c}{CBM-G}l{CBM-+}ly{CBM-+}l{CBM-+}lK{SHIFT-POUND}lW{CBM-N}l{$fd}{CBM-S}l{CBM-P}lM{CBM-X}l
k
P{$fb}{$60}

{$e6}WP{$e6}X{CBM-E}W{$60}{CBM-M}breaKchangEdeletEfinDkilLnumbeR

 {$fd}
 {$fc}
<{$fc}
 {$fc}
A{$fb}
{$fe}
{CBM-M}{$fb}


1geoassembler    1
w/v


C(
geowrite        (v
x



FOO             y2


B40 SCREENpRINTER
w
/


(tEXT  sCRAP     (
y


wRONG IS wRITE planation from the associated
9
j "article in the magazine.
?
t
B
^ "Subscriptions to Transactor

H "are $19 Cdn. in Canada

R "and $15 US in the U.S."
{CBM-B}
{$7c} "for one year (6 issues).
E

{$e7}
 "Send subscription requests
 "with paymen
{$fa}{CBM-Z}{SHIFT-POUND};{SHIFT-POUND} {CBM-G}4!{CBM-G}5"
 8P 8{$f0}# 8E4{CBM-N}{CBM-G}#E5 c c p{SHIFT-+}{$60}{$ea}{$ea}{CBM-G}PF F{CBM-E}{$60}h{CBM-G}!PF"F!H!{$60}{SHIFT-POUND}E{SHIFT-POUND}{$e5} {$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$fe}~
4{CBM-Z}~~
5{SHIFT-POUND}lY{CBM-Z}T{$fb}
Z{CBM-Z}U{$fb}
{$7b}l{$fc}
{$f0}l

{CBM-B}{SHIFT-POUND}IY{SHIFT-POUND}:Z{SHIFT-POUND}{CBM-A}{$7b}{$60}V{$fb}
{CBM-J}{CBM-Z}{SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-L}{CBM-+}{CBM-Z}{CBM-G}{CBM-J}I:{CBM-A}l{$7d}

{$60}{CBM-X}I{CBM-H}P{$ed}{CBM-G}{CBM-J}{$e6}W{CBM-L}{CBM-I}

{SHIFT-@}J{$e8}{CBM-@}W{CBM-O}

8{$fd}R~
{$f0}I{$f0}
{$7e}l@{$fc}
{$f0}l{$eb}~
{SHIFT-POUND}I{$7c}{SHIFT-POUND}:{$7d}{SHIFT-POUND}{CBM-A}{$7e}{$60}{SHIFT-@}{CBM-X}M{$fc}~
{$f0}P{CBM-@}{CBM-+}{CBM-G}I:{CBM-A}l

{$60}{CBM-X}M{$fd}~
P{$ec}{CBM-G}{$e6}Z{CBM-I}

{CBM-G}J{$e8}{CBM-@}Z{CBM-O}

8{$fd}{CBM-+}~
{$f0}I{$f0}{$e6}{CBM-G}{$e8}{CBM-X}{CBM-G}~
{$fa}{CBM-X}{CBM-+}~
P{$e4}{$f0}{CBM-V}{$e8}HP Z{CBM-G}{CBM-G}
{CBM-N}{CBM-X}H~
h{CBM-X}G~
h {$fb}
lS

 C{$fd}
{CBM-G}_{CBM-+}{$60}$% Y~
{CBM-G}_{CBM-+}{$60}
 {CBM-E}_{$f0}{CBM-N}{CBM-E}_Z{$7b}{CBM-G}$8{$e5}Z{CBM-N}{CBM-G}%{$e5}{$7b}{CBM-POUND}{CBM-A}E--E..

{CBM-E}Z$HP{$f9}{$e6}{$7b}{$e6}%{CBM-G}.E%{CBM-A}{$ef} S~
{CBM-G}"{CBM-+}#I-{$e8}. {CBM--}~
L  V~
 S



 supermon+ instr
#
 10000
i
 "supermon+ is a new version of
R(
"'supermon'  the reason for the new
2
"version is to provide identical
{SHIFT-*}7
"commands to those of the built-in
{$e4}<
"monitor of the commodore 128.
a
"  the most visibleW{CBM-G}X {CBM-G}*!{CBM-G}+"{$60}{CBM-G}E!P{CBM-G} E"{$60}{CBM-@}H{CBM-E}{CBM-@}{CBM-Z}H ~{$fd}
P{$60}{$e6}P{$ec}{$e6} P{$e8}{CBM-@}{CBM-E}!{CBM-@}{CBM-Z}! ~{$fd}
P{$60}{CBM-G}!PF"F!l"{$fe}


{SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} C&

* transactor disk intro program
i
* this program should work on
M
* any 8-bit commodore computer
S(
:
{CBM-N}
 G(147);G(14);
{CBM-N}{CBM-V}
 "Transactor Publishing Inc."
MH
 "85 West Wilmot Street, #10"
{$ec}R
 "Richmond Hill, Ontario"
{CBM--}
 "CANADA  L4D
" tiny aid4 "
?N
"adapted by jim butterfield from
AX
"  bill seiler's 'basic aid'
Z
"sample  commands:
{CBM-N}
"break (to monitor);   kill (aid program)
J
"number 100,10  (renumber)
{CBM-*}
"delete 130-250
{$f2}{CBM-N}
"find /gosub/
{CBM-H}
"chang
""{CBM-T}14)"c64 tiny aid
e
"adapted for c64 by: david a. hook
P
"from 'tiny aid' by: jim butterfield

"and 'basic aid' by: bill seiler
{CBM-L}
""{CBM-T}12)"sample commands:
Q
"change /?/print#4,/
{$eb}

"find .gosub., 200-

"delete 130-
zt to the above address.

={CBM-@} "*  press any key to exit  *";
p{CBM-S}{CBM-K}a$:a${CBM-R}""{CBM-M}430


 {$ef}{SHIFT-POUND}{CBM-N} {CBM-U}{SHIFT-@}{CBM-O} E E E {$fa}{CBM-D}L{SHIFT-*}P{SHIFT-POUND}~Q{SHIFT-*}{$f0}
{SHIFT-*}{$f0}{SHIFT-*}P E{$60}

L
M
N
KHP{$f1}{CBM-N}{SHIFT-POUND}
{$7b}{$7c}{$7d}  8JP{$f9}JJJI{CBM-A}4I
{$f0}){CBM-POUND} 8.{$7e}.{$7f}.P{$f1}{CBM-POUND}NN{$7f}N{$7e}.{$7b}.{$7c}.{$7d}P{$eb} {$e8}P{CBM-R}NZ{$60},0{$60}lR{$e6}{SHIFT-@}{$e8}{CBM-X}Q~
{$fa}{CBM-X}R~
P{$e4}{$f0}{CBM-B}{$e8}HP W{CBM-G}{SHIFT-@}
{CBM-N}{CBM-X}{$f3}~
h{CBM-X}{$f2}~
h {$e4}{$fb}
lP

 {CBM-A}{$fd}
{CBM-G}\{CBM-+}]!" {CBM-T}{CBM-J}{CBM-G}\{CBM-+}]
 {CBM-E}\{$f0}{CBM-N}{CBM-E}\WX{CBM-G}!8{$e5}W{CBM-N}{CBM-G}"{$e5}X{CBM-POUND}{CBM-A}E**E++

{CBM-E}W!HP{$f9}{$e6}X{$e6}"{CBM-G}+E"{CBM-A}{$ef} {CBM-L}{CBM-H}{CBM-G}{CBM-+} I*{$e8}+ {$e9}{CBM-J}l~{CBM-W} {$fb}{CBM-H} P

{CBM-J}{CBM-I}

f {$fd}
{CBM-G}{SHIFT-@}IP{CBM-I}f {$fd}
 P

{$f0} {$f5}{CBM-V} {CBM-A}{$fd}
{CBM-G}\{CBM-+}]WX {CBM-*}{SHIFT-@}PHEWW{$e6}X C~
{$f0} Z{$fd}
{CBM-A}l{$fc}
r{$e6}r{CBM-@}r{CBM-+}.{CBM-G}/{CBM-J}{CBM-E}W{$f0}X{SHIFT--}

P
{CBM-I}

i ={$fd}
{CBM-G}{CBM-G}I

P{CBM-I}i ={$fd}
 S

{$f0} {$e8}~
 C{$fd}
{CBM-G}_{CBM-+}{$60}Z{$7b} {$e5}~
PHEZZ{$e6}{$7b} {$7d}~
{$f0} {$fd}
{CBM-A}l@{$fc}
u{$e6}u{CBM-@}u{CBM-+}1{CBM-G}2{CBM-E}Z{$f0}X{SHIFT--}

P{$ed}{$e8}HFP{$f1}{CBM-G}i{$f0}[ {CBM-K}{$fd}
{CBM-G}48{$e5}2{CBM-M}{$f0}(H{$f0}J{CBM-E}ZP{$f9}E{CBM-M}I@Ik{CBM-A}<{CBM-G}{CBM-M}FE{CBM-A} U{$fd}
{$f0} {CBM-X}{$fd}
{CBM-G}8{$e5}4{CBM-POUND}H{CBM-G}4{$f0}{CBM-+}3{CBM-X}

Z{$e8}HFP{$f5}{CBM-G}-E{CBM-M}-{CBM-G}.E.{CBM-G}Z{CBM-+}{$7b}_{$60}{CBM-+}c{CBM-G}d {$ee}{$fd}
 {$e1}~{SHIFT-POUND}

F{CBM-@}l{CBM-T}{$fc}
{CBM-@}ZH1{SHIFT-POUND}

2{CBM-O}{CBM-D}{$fb}~
{CBM-P}8{$e9}{$7f}{CBM-N}

J{$f0}{$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~
{CBM-G}5{CBM-G}6 {$e8}~
 {$e2}~
{CBM-G}3{CBM-G}4 {CBM-*}~
 {$7d}~
 {$7d}~
P! _~
 {$7d}~
 {$7d}~
Pl@{$fc}
 {$7d}~
{CBM-G}CZ {$7d}~
{CBM-G}BZ J~
{$f0}{$e2} {$7d}~
 {$7d}~
 {$7d}~
I"P {$7d}~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S

{CBM-A}S {$e2}~
 ~
{CBM-G}<{$7b}{CBM-G};Z

{CBM-I}

{CBM-X}

I0h S

 5~
H

Z{$e8}P{$e8} S

{CBM-A} d~
 Y

{$f8}I,{$f0}{CBM-U}P _~
 {$7d}~
 {$7d}~
~
 C~
 C~
I"P C~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}M~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}W8{CBM-G}X9 P

{CBM-A}S {$f6}{CBM-U} o~
{CBM-G}9X{CBM-G}8W

{CBM-I}

{CBM-X}I0h P

 {$7b}~
H

W{$e8}P{$e8} P

{CBM-A} ~
 V

{$f8}I,{$f0}{CBM-U}P {CBM-G}~
 C~
 C~
P{SHIFT-POUND}~{$60}_0 C~
EP
 C~
EPlO C~
 {CBM-A}~
{$f0}W ~
{$e6}{CBM-Z} "{$fe}
{$e6}*P{$e6}+{$60} ~
F{CBM-Z}
{$fe}
{CBM-G}*PF+F*{$60} {$ee}{$fd}


{CBM-Z}{$60}{CBM-G}2{$60}{CBM-G}3_l"{CBM-L}{CBM-G}{$60}E0{$60}{CBM-G}_E1_ C~B 1K7"
%{$e6}
 "telephone [phone]"
+{$f0}

n{$fa}
 "This disk contains programs
N "from Volume 9 Issue 4 of
 "Transactor.

{CBM-D}" "In most cases, these programs
N, "are not 'stand alone', and
{$f2}6 "require documentation and/or

@ "exe /gosub/goto/,300-400
@{CBM-V}
l{CBM-R}B(52){CBM-N}B(53){CBM-D}256:1536:m{CBM-R}B(33):n{CBM-R}B(34)
FH
52,m:53,n:48,m:49,n:n{CBM-R}m{CBM-N}n{CBM-D}256
MR
n


n";G(34);",01";:x{CBM-R}n{CBM-Z}4096:250
{CBM-K}{$f0}
x{CBM-R}l{CBM-Z}4096:250:
Q{$fa}
",";:j{CBM-R}1{CBM-@}4:x%{CBM-R}x:x{CBM-R}(x{CBM-Q}x%){CBM-D}16:x%{CBM-E}9{CBM-M}x%{CBM-R}x%{CBM-N}7
{$e5}G(x%{CBM-N}48);:j:


{CBM-Z}~{$fd}
{$fb}




~~
5{CBM-Z}~{$fc}625

"number 100,5
b

"append "G(34)"name"G(34)", [device #]
n
"kill
I
(B(43){CBM-N}B(44){CBM-D}256{CBM-N}383)


{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"P<{CBM-G}"PF#F"{CBM-E}"{$f0}!&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-L}I{CBM-B}P{$ed}{CBM-G}73{CBM-G}84L7
{CBM-N}{CBM-N}{CBM-B}{SHIFT-POUND}l{$7c}{CBM-Z}{$fe}~
{$7d}{CBM-Z}~~

Q{CBM-X}lT{$e1}l{$e1} {CBM-@}{$fb}
desk top        x
#X


&configure       &
x1n


1geoassembler    1
w/v


C(
geowrite        (v
x



FOO             y2


B40 SCREENpRINTER
w
/


(tEXT  sCRAP     (
y


wRONG IS wRITE {$ed}{$e8}HF{CBM-J}P{$f1}{CBM-Z}{CBM-G}f{$f0}[ {$ee}{$fd}
{CBM-G}18{$e5}/{CBM-H}{$f0}(H{$f0}J{CBM-E}WP{$f9}E{CBM-H}I@Ik{CBM-A}<{CBM-G}{CBM-H}F{CBM-J}E{CBM-Z}{CBM-A} "{$fe}
{$f0}
{$fe}
{CBM-G}{CBM-Z}8{$e5}1{CBM-POUND}H{CBM-G}1{$f0}{CBM-L}{CBM-+}0{CBM-X}

W{$e8}HF{CBM-L}P{$f5}{CBM-G}*E{CBM-H}*{CBM-G}+E{CBM-J}+{CBM-G}W{CBM-+}X\]{CBM-+}@{CBM-G}a ;{$fe}
 {$e1}~{SHIFT-POUND}

{CBM-@}{CBM-Z}l{$ed}{$fc}
{CBM-@}WH.{SHIFT-POUND}

/{CBM-O}

{$f0}E{CBM-J}{$f0}{$f6}/HP{$f2}W{$60}lRTI{CBM-Q}{$f0}I-P{$60}l

{CBM-B}{$f0} {CBM-@}{$fd}
 {$f6}{CBM-U} {CBM-T}{CBM-J} V

{$f0} {CBM-@}{$fd}
 P

 {$f6}{CBM-U}P {CBM-G}P{SHIFT-POUND}~{$60} C~
@ C~
a8{CBM-G}{$e5}@{CBM-G}{$e5}a{$60}{CBM-G}    go to address 1000 hex and begin
"running code.
f"  if no address is given, the address
L"from the <pc> register is used.
"" jump (subroutine)"
,"   j 1000
H6"     call address 1000 hex and begin
{$f4}@"running code.  re


" &20000
!
" %10000000000000
'{CBM-N}

p{CBM-H}
"     in the above example the user
{$7c}{CBM-V}
"has asked for the numeric equivalents
{CBM-POUND}H
"to hexadecimal 2000.  the reply shows
TR
"the value in hex ($), in decimal (+),
{$fb}{CBM--}
"in octal (&), and in binary (%)
 to return to supermon+,
{CBM-L}"command sys 8.
%{$e8}9000
b{$f2}" simple assembler "
C{$fc}"   a 2000 lda #+18
{$7b}"  (changes  to:)"
"a 2000 a9 12    lda #$12
{CBM-F}"a 2002 ..next instruction
{$e5}$"     in the above example the user
."   l
B"   load any program from cassette #1.
;C"    l ";G(34);"ram test";G(34)
GD"   load from cassette #1 the program
{$7f}E"named ram test.
{CBM-Z}J"   l ";G(34);"ram test";G(34);",08
{SHIFT-+}T" load from disk (device 8) the progra000000
&{CBM-@}" ... will be converted to assemble:
a{CBM-S}"   a $0400 lda #$80
J{CBM-U}"   if you don't give a prefix, the
B"monitor will assume hexadecimal.
{$f4}9000
{CBM-U}{$fe}" register display "
E"   r
{$e2}"   pc  sr ac xr yr sp
{$fe}"; 0000 01 0
{$e2}"     disassembles instructions from
;{$ec}"2000 to 2004 hex.  if one address is
G{$f6}"given, 20 bytes will be disassembled.

"if no address, start from the last
{CBM-@}
"used address.
N"  code may be reassembled by moving
{$f8}"the cursor back transfer memory "

{$fa}
"   t 1000 1100 5000
8"     transfer memory in the range 1000
F"hex to 1100 hex and start storing it at
{$7e}"address 5000 hex.
j9000
{CBM-G}t" compare memory "
G^"   c 1000 1100 5000
{$f4}H"      display is in lines of 8
4"so addresses $200 to $20f are shown.
^"  if one address only is given then
"12 lines (96 locations) will be shown.
{CBM-U} "if no address is given display will go
U*"from the last address.

4" equivalent ascii turn to the monitor.
{$fe}{CBM-@}9000
" hunt memory "
:{CBM-I}"   h c000 d000 'read
H{CBM-D}"     hunt thru memory from c000 hex to
{CBM-L}"d000 hex for the ascii string read and
E{SHIFT-*}"print the address where it is found.  a
{$f1}J"maximum of 32 char.
&{$e6}
"  the user could ask for a number to
q{$f0}
"be converted from any of these bases
Y{$fa}
"by giving the appropriate prefix.
,9000
 6" important note -- "
K@" at any time in the following text,
{$f6}j"you may enter any number in any base
!"started assembly at 2000 hex.  the
:8"first instruction was load a register
Hb"with immediate 18 decimal. in following
l"lines the user need not type the
{SHIFT-@}v"a and address.  the simple assembler
{$e8}{$60}"prompts with the next address.  to exitm
{$f3}{$7e}"named ram test.
"this command leaves basic pointers
."unchanged.
8{SHIFT-@}9000
i
" save"

"   s ";G(34);"program name";G(34);",01,0800,0c80"
{CBM-E}
"     save to cassette #1 memory from
{SHIFT--}{CBM-N}
"0800 hex up to but not including2 03 04 05
-
&"     displays the register values saved
y
0"when supermon+ was entered.  values

:"may be changed by typing over the
{CBM-P}
d"display followed by a return character.
M
n"  pc - program counter
{$ea}
x"  sr - status register
B"
 and typing over the
("right hand part.
X9000
2" fill memory "
s"   f 1000 1100 ff
"     fills the memory from 1000 hex to
{CBM-+} "1100 hex with the byte ff hex.
{CBM-A}{CBM--}9000
E{$e6}" go (run)"
Y{$f0}"   g 1000
{$fa}"  changes from
3f
"earlier versions of supermon are:
^k
"  --decimal or binary input allowed;
p
"  --disk status and commands (@);
{CBM-POUND}u
"  --looser (easier) syntax.
{CBM-W}D
 9000
QN
" number conversion "
{$e2}X
"   $2000
{$ef}
" $2000
{$fc}
" +8192characters are shown
!
>"in reverse at the right.
m
h"values are changed by typing over the
{$7b}
r"display followed by a return character.

9000

" exit to basic "
{CBM-Z}
"   x
W
{CBM-I}"     return to basic ready mode.
{CBM-D}"when you wishacters may be used.
T"   h c000 d000 20 d2 ff
i{$de}"     hunt memory from c000 hex to d000
V{$e8}"hex for the sequence of bytes 20 d2 ff
{CBM-@}{$f2}"and print the address.  a maximum of 32
{CBM-X}{$fc}"bytes may be used.
Gv9000
W{$60}" load "
{$e5}At"and conversion will be done for you.
0^"example:
bH"   m +4096
JR" ...  will cause a memory display
{$7c}"from decimal address 4096.  in the
{CBM-B}"display, the hex address ($1000) will
{SHIFT-+}"be shown.  similarly,
{$fc}"   a +2048 lda #%10
J"the assembler type a return after the
.T"the address prompt.
w{$7e}"  previous lines may be changed by
{$7e}"typing over the right hand part.
{CBM-A}9000
{CBM-@}D"   d 2000 2004
CN". 2000 a9 12    lda #$12
{$e5}X". 2002 9d 00 80 sta $8000,x
 0c80
{CBM-H}
"hex and name it program name.
a{CBM-V}
"   s ";G(34);"0:program name";G(34);",08,1200,1f50"
NH
"    save to disk drive #0 memory from
R
"1200 hex up to but not including 1f50
{SHIFT-*}{CBM--}
"hex and name it program name.
J{$e6}
9000
{$e8}{$f0}
" ac, xr, yr - a, x, and  y registers
1L"  sp - stack pointer
;{CBM-C}9000
tP"   m 200 209
Z">0200 4d 20 32 30 30 20 32 30:m 200 20"
{CBM-W}{$e4}">0208 39 00 00 04 00 04 00 04:9......."
{CBM-*}{$ee}"     display memory from 0200 hex to
{$f8}"0209 hex. P{$f3}{$60}{CBM-O}{CBM-Q}{$fe}6){$7f} {$f2}{$fb}6H({$f3}{$60}
   pc  sr ac xr yr sp   v1.2{CBM-B}..sys : erroRa    @eP@0"e3P@@e3P@@e{CBM-W}P@
"d3Pd
"d3Pd"d3P@"d3P@BX{SHIFT-POUND}
!

ymj,),#($y
x$$
#]{CBM-K}#{CBM-K}
){CBM-S}I{CBM-POUND}#$s#$s{CBM-K}
[[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z})
{$7c}
M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}
{CBM-H}T{CBM-H}(NT{$f4}@,$0
{$fa}{$f4}"     get drive 0 directory
{$fe}"   @,s0:temp
:"     scratch file 'temp' from disk
d9000
A" output to printer"
&"call supermon+ from basic with:
{SHIFT-POUND}0"  open 4,4:cmd 4:sys 8"
R:"all commands will go the printe
{$60}{CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6 {$fe}6 {$e1}~{$f0} !{$fa}6{$ee}{CBM-Z} {$fc}6{CBM-Z} J{$fc}6{CBM-A}{$e4}lZ{$f5}6l{SHIFT-POUND}{$f5}6{SHIFT-POUND}. R~ {$ee}{$fb}6 {$e1}{$fb}6 {$ee}{$fb}6
{CBM-E}C {CBM-M}{$fa}6h{CBM-S}{$e8}J2 0 {$fe}6{CBM-D}2lq{$fa}6{CBM-E}C {$eb}{$fb}6H{SHIFT-*}{$e5}H{CBM-I} {$ef}{$fa}6{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{CBM-E}C({CBM-A} {$fc}6P{$ef}
{CBM-X}/~6 R~{CBM-X}5~6{$f0} R~JPP{$60} {$fa}6IP{$e8}l{$e5}{$fb}6{CBM-+}D{CBM-POUND}JEC{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{$de}{$fe}6{CBM-A}jjjj)P {SHIFT-POUND}
{CBM-N}{CBM-X}"~6{$fe}6{SHIFT-POUND}; R~{SHIFT-POUND}  R~{CBM-Z}( {$fc}6 {CBM-O}( {$eb}{$fb}6H{SHIFT-*}{$f5} {$f6}{$fb}6{CBM-I}
1 O~
{$e8} ({CBM-A}I
P{$f1}{SHIFT-POUND}
~ 7{$fc}6{$f0}{CBM-*}I {$f0}{$f7}{CBM-I}{SHIFT--}{SHIFT-*}~6{$f0}J{$f8}  {$fe}6lZ{$f5}6 {CBM-A} {CBM-A}
{CBM-N}{CBM-X}W~6h{CBM-X}V~6hl{$fb}62l{$f7}6l{CBM--}{$fc}6L {CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6{CBM-I}fBFAJP{$f9} {$e1}~{$f0}
 V{$f6}6{SHIFT-POUND} {$fc}6 H{$fc}6{CBM-A}{$ee}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {CBM-POUND}{$fc}6
 {$fb}6{CBM-A}
{CBM-G}A*H{SHIFT-*}{$f1}lZ{$f5}6{CBM-A} q{$fc}6
 {$fb}6{CBM-A}{CBM-G}ACH{SHIFT-*}{$f2}{SHIFT-POUND} R~ V{$f6}6lc compare memory
{$fb}v"@ disk status/command
 9000
1{CBM-N}"supermon will load itself into the
^{CBM-H}"top of memory .. wherever that happens
{$7b}{CBM-V}"to be on your machine.
{CBM-POUND}{CBM--}"be sure to note the sys command which
U{$e6}"links supermon to the com
{$fc}6 {$fb}6{CBM-A}{CBM-G}A{CBM-G}B z{$fc}6{CBM-G}A/{CBM-G}B0$8{$60} {$fb}6 {$fc}6{SHIFT-POUND}$ R~{CBM-G}A{CBM-+}B {$e5}{$fb}6 {$fc}6{SHIFT-POUND}+ R~ '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6 {$fc}6{SHIFT-POUND}& R~{SHIFT-POUND}
{CBM-I}  p{$fd}6 {$fc}6{SHIFT-POUND}% R~{SHIFT-POUND}
{CBM-I}
 p{$fd}6lZ{$f5}6 q{$fc}6{SHIFT-POUND}
{CBM-I}
J{$fa} X{$f8}C&D{CBM-I}{CBM-X}
{$7d}

J{$f4}P{$eb}({$60}h{CBM-G}A{CBM-G}B{SHIFT-POUND}

H
{CBM-D}
{SHIFT-POUND}
..
*{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}A x  {CBM-A}tA{SHIFT-POUND}
{CBM-Y}{$f0}IlP{SHIFT-@}{SHIFT-POUND}
 U~{CBM-G}){$f0}{$e7}{CBM-Z}2{$f0}{CBM-N} ( {$fe}6lZ{$f5}6{CBM-+}C{CBM-@}D{SHIFT-POUND}
{CBM-O}{$f0}S {CBM-J}{$fc}6{CBM-A}y {$fb}6{CBM-A}t 7{$fc}6Po
{CBM-G}AC {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$ef}lZ{$f5}6{CBM-A}7 q{$fc}6{CBM-I}
 7{$fc}6P
{$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN
P{$f6}{$f0}{$e9}l{SHIFT-POUND}{$f5}6{CBM-I}{CBM-Z}P- @{$fb}6{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$
{$e8} {CBM-Z}
IL{$f0}{CBM-G}BP {SHIFT-POUND}0
{$e8}P{$f9}N1 7{$fc}6{$f0}I {$f0}E
{$e8}
{CBM-X}{CBM-A}{CBM-L}/{CBM-I}
{CBM-I}
3{CBM-Z} {CBM-M}{$fa}6{CBM-S}
0{CBM-N}{CBM-X}{$7c}~6 N-D
"  disk copy-all      jim butterfield"
FN
a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
PX
p${CBM-R}""

 l2(232),l1%(232),n$(232),t%(232),t$(4)
{CBM-Y}
 xxx,seq,prg,usr,rel
L
j{CBM-R}0{CBM-@}4:t$(j):j
{$e5}
"from unit  8";f
{$ee}{CBM-N}
830
{$f8}{CBM-H}
f${CBM-R}d$
{CBM-V}

{$7c}LjR{$f2}{CBM-@}
{CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R}
"
&&RRHDJ&hdd{CBM-I}H
   acdfghjmrtx@.>;$+&%lsv\{$f8}6{CBM-H}{$f6}6{$e9}{$f9}67{$f8}6?{$f6}68{$f7}6]{$f6}6R{$f5}6w{$f5}6{CBM-Y}{$f6}6O{$f5}6{$fd}6\{$f8}6{$f6}6{$f6}6
i{$f5}6{$f5}6ketogeos











@
symass 3.13












@-----bits-----











gfxdemo.symass











aread r.
{$f9}d"  when complete, return to basic
n"with x and command:
1x"  print#4:close 4"
;B9000
H{CBM-D}
"        summary                     "
{CBM-E}
"$,+,&,% number conversion
{CBM-T}{CBM-L}
"g go (run)
{SHIFT-*}{CBM-F}
"j jump  (subroutine)
{$e1}{SHIFT-*}
"l loa
)){CBM-N}  {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}<~6/{CBM-O}{$7c}~60{SHIFT-POUND}
 0./*P{$f6}I? R~JP{$ea}l{$ee}{$fb}6N1 @{$fb}6{CBM-A} 4{$fc}6P
N1{CBM-Z}P{$f0}
I {$f0}I,{$f0}HHl{SHIFT-POUND}{$f5}68${CBM-Z}{$60}{SHIFT-POUND}
ABhh 7{$fc}6{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}O~6{$f0}J{$f8}{$e8}N1{CBM-C}{$f4}~6{CBM-X}{$f8}~6
 7{$fc}6{$f0}C8{$e9}0^I
{$e9}I{CBM-A}tLj{$f0}h{$ee}{SHIFT-*}
P
{CBM-I}{CBM-J}AJ{$f8}{CBM-S}
A&B{CBM-A}.JP{$f7}{SHIFT-*}
P.{CBM-A}{CBM-Z}EAA{CBM-Z}EBZ{$f5}6{CBM-S}. {CBM-POUND}{$fc}6X{CBM-Z}(h{CBM-Z})h{CBM-Z}*h{CBM-Z}+{CBM-S},{CBM-D}-@{CBM-S}. d{$f6}6-,+H*lx{$f5}6 {$f6}{$fb}6{SHIFT-POUND}> R~ {$e1}{$fb}6
{$f0} {$ee}{$fb}6{CBM-E}C {$fc}6H{SHIFT-*}{$f3} & {$fe}6
{CBM-E}C{CBM-N}){CBM-B}I"{$f0}){$7f}I {CBM-A}{SHIFT-POUND}. R~H{SHIFT-*}{$e5}{$60}{SHIFT-POUND}
,{SHIFT-POUND}2{SHIFT-POUND}
 {CBM-J}{$fc}6{CBM-A} {$fb}6l{SHIFT-POUND}{$f5}6,2'{CBM-G}CEA{CBM-G}D{$e5}B{CBM-A}{CBM-Z}/EAA{CBM-Z}0EBB{CBM-I}{CBM-X}CJ{$f8}{SHIFT-POUND} {$f6}{$fb}6
 {$e1}~{$f0}1{CBM-E}C,2AQA{$f0} {$e1}{$fb}6,0{$e6}AP{$e6}BPl{SHIFT-POUND}{$f5}6 H{$fc}6 {$fc}6modore.  it

{$f0}"may be used to reconnect the monitor
,{$fa}"if it is accidentally disconnected by
u"use of the run-stop/restore keys."
_9000
H@ 30
{CBM-Q}(#" hit any key to continue ";
{CBM-X}2#i{CBM-R}1{CBM-@}10:{CBM-K}a$:
Q<#{CBM-K}a$:a
 7{$fc}6{$f0}$N1I${$f0}c{CBM-G}A {CBM-E}~{SHIFT-POUND}O ~{CBM-S}1{$ee}1{CBM-X}
{$f0} {CBM-POUND}~{$f0} {CBM-S}~ {$f6}{$fb}6{CBM-G}A {CBM-H}~{SHIFT-POUND}O ~ {CBM-G}~ R~I
{$f0}{CBM-G}){CBM-B}{$f0}{$f0} {CBM-Q}~lZ{$f5}6l{SHIFT-POUND}{$f5}6{CBM-G}A {CBM-E}~{SHIFT-POUND}{$f0} ~{CBM-S}1{CBM-X}
{$f0} {CBM-POUND}~{$e8}P{$f5} {CBM-S}~ {$f6}{$fb}6{CBM-G}Ah {CBM-H}~{SHIFT-POUND}{$60} ~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6{SHIFT-POUND}  R~ {CBM-G}~{$f0}
{CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND}  ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND}  R~{SHIFT-POUND} R~compare memory in the range 1000
R"hex to 1100 hex with memory starting
:{$7c}"at address 5000 hex.
d{CBM-S}9000
[{CBM-U}" check disk "
IB"   @
L"     get disk status message
V"   @9
G "     get disk unit 9 status message
X{$ea}"   {$f9}6{CBM-X}<~6 N{$f9}6{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{SHIFT-POUND}0{CBM-A} K{$f9}6P{$f1}
{CBM-X}/~6 N{$f9}6{CBM-X}5~6{$f0} N{$f9}6JPR{$f0} K{$f9}6 K{$f9}6{CBM-Z}/M3{$f0}l{SHIFT-+}{$f9}6{CBM-D}{$f0}2{CBM-Z}0IP#{CBM-G}A{$e5}C{CBM-N}{CBM-G}B{$e5}DPF {CBM-A}B{CBM-POUND}HP\ xJJ{CBM-D}P{CBM-O}{SHIFT-*}
CP{$f8}{CBM-Z}C {$f6}{$fb}6{SHIFT-POUND} R~ . {$fe}6 ){$fa}6{$ee}{CBM-Z} {$fc}6{SHIFT-POUND}aW{SHIFT-POUND} X{$7d}{CBM-G}D {$fc}6YZ{CBM-G}C {$fc}6{$7b}{$7c}{SHIFT-POUND}FlZ{$f5}6l{SHIFT-POUND}{$f5}6 N{$f9}6{CBM-S}3{SHIFT--}
{$f0}
HH{$ee}{$f0}{$e8}l{$e8}{$f8}6{$ee}3{CBM-S})D
 "supermon+64    jim butterfield"
cN
(B(43){CBM-N}256{CBM-D}B(44){CBM-N}71)





{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"I6P/{CBM-G}"PF#F"{CBM-E}"I6{$f0}0&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-R}{CBM-G}73{CBM-G}84L7
66   {$fe}6{CBM-Z}{$fe}~6A{CBM-Z}~~6B '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6 {$f6}{$fb}6{CBM-Z}{$fc}~6{CBM-Z}{$fd}~6{SHIFT-POUND} ~
{CBM-I}H(J{$f9}X{SHIFT-@}.x
 d from tape or disk
{$fa}J
"m memory display
T
"r register display
4{$de}
"s save to tape or disk
l{$e8}
"x exit to basic
G"a simple assembler
{$7e}"d disassembler
$"f fill memory
{CBM-N}."h hunt memory
Dl"t transfer memory
{SHIFT--}q"B{CBM-A}{CBM-Z}EAAEBB8$
H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}C{CBM-+}Dh {$fc}6H {$fc}6{SHIFT-POUND} PI
P{SHIFT-POUND}
$ R~{SHIFT-POUND}
lR~ {$f6}{$fb}6{SHIFT-POUND}  R~l{$fe}6 {$fc}6 R~{CBM-S}lR~h ){$fc}6{CBM-N}Hjjjj)I
II0{$60}N1{CBM-S}1{CBM-X}
{$f0}I:{$f0}I?{$ee}1{CBM-S}({$60}{CBM-G}AC{CBM-G}BD{$60}8{CBM-G}A{$e5}CA{CBM-G}B{$e5}DB{$60}{SHIFT-POUND}8{CBM-G}A{$ed}A{CBM-G}B{$e9}
B{$60}8{CBM-Z}/{$e9}/{CBM-Z}0{$e9}
0{$60}{SHIFT-POUND}ECC{$e6}D{$60}8{CBM-G}C{$e9}C{CBM-G}D{$e9}
D{$60}{CBM-A}
{CBM-G}A{CBM-@}B)({$60}{CBM-A}# ql1{$f7}6 {$fc}6 {$7c}{$fc}6{CBM-A}JlZ{$f5}6 {CBM-J}{$fc}6{CBM-A}y
 7{$fc}6I'P 7{$fc}6I
{$f0}iH 7{$fc}6{$f0}{SHIFT-*}P{$f3}{$f0} {$fb}6{CBM-G}AH {$fb}6{CBM-A}{SHIFT-*}P{$f1}2 {$f6}{$fb}6
{CBM-E}CYPHL2P{$f3} {$e1}{$fb}6 {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$e1}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {SHIFT-@}{CBM-O}{CBM-Y}{SHIFT-POUND}{CBM-C}{SHIFT-POUND}{CBM-F} 7{$fc}6{$f0}yI {$f0}{$f7}I"P{CBM-S}1{CBM-X}
{$f0}i{$e8}I"{$f0}{CBM-F}{$e6}{CBM-Y}H{SHIFT-*}{$ed}l{SHIFT-POUND}{$f5}61 7{$fc}6{$f0}0 {$fb}6{CBM-A}+{CBM-G}A{SHIFT-@} {$fb}6{CBM-A}" q{$fc}6 {$fb}6{CBM-A}= {$f6}{$fb}6{CBM-+}A{CBM-@}B{CBM-Z}2IsPQ{SHIFT-POUND}
{CBM-O}{SHIFT-POUND}C X~lZ{$f5}6{CBM-Z}2Iv
I${CBM-R}""{CBM-M}9020
{$fb}'"         s u p e r m o n   +   "
' '"commands - user input in  reverse "
- 8'


 prefix, the
B"monitor will assume hexadecimal.
{$f4}9000
{CBM-U}{$fe}" register display "
E"   r
{$e2}"   pc  sr ac xr yr sp
{$fe}"; 0000 01 0){CBM-P}r
{CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}064450
<{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450
s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450
\{CBM-U}410
Bz{CBM-W}80{CBM-M}"                     ":470
{CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1%
JVst{CBM-R}0{CBM-P}n{CBM-W}232330
{$e3}  1: 15:" * * * * *"
{$e5}n{CBM-R}0{CBM-M}"* no prog"
" 1,f,3,"$"{CBM-N}f$
#,860:e{CBM-M}:230
-63132
=@r{CBM-R}255: 340
gj3221
Ktj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j
{$7c}^n${CBM-R}J(a$,4,j)
Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470
{CBM-A}Rl1%{CBM-R}F(J(a$,22))
S{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
{$ee}J(a$,4,16);" ";t$(t9)
{$fd}p{CBM-R}B(151
"
 save"0:copyall 64 glink",8
j
 ** jim butterfield's c64 copy-all

 ** modified for use with the glink ieee-488 interface
{CBM-POUND}
 ** richard evers 07-06-1987
{CBM-S}
:
Y
 ** allows concurrent copying of data

 ** serial to ieee-488, ieee-48       ",21);
${CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
p{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780
Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730
{CBM-Q}P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
PZl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780
{$e5}{$e4}t%{CBM-R}4{CBM-M}4462:760
{$ef}{$ee}4443
15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$
 n860:e{CBM-M}:550
fx15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&"
yB860:e{CBM-M}:550
ML890:890:q{CBM-R}q{CBM-N}1
V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630
890
{CBM-R}l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )"
B 1: 15:500
X14,f,15:15,t,15

{CBM-POUND}H(n$(j){CBM-N}"
"to unit  9";t
H
830
"R
t${CBM-R}d$
4{CBM--}
f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M}
x{$e6}
n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$
N{$f0}
860: e {CBM-M} :230
{$fa}
z{CBM-R}90:"pattern  *";p$
{CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
{SHIFT--}"hold down 'y' or 'n' key to select"
{$fd}"programs to be copied...
SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
@abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P K{CBM-G}{$f0}{CBM-V}{$60}palvert 1.0











palvert64 1#1,x$

{CBM-K}#1,x$
{CBM-K}#1,x$
x{CBM-R}F(x${CBM-N}G(0))
4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0))
:{CBM-D}


 {CBM-E}*{CBM-X}{CBM-E}*{CBM-C}{CBM-E}*f {CBM-E}*{CBM-F}{CBM-E}*{SHIFT-@}{SHIFT-POUND}d {CBM-G}
{CBM-E}{SHIFT-@}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E}{SHIFT-@} {CBM-E}{CBM-C}I*{$f0}
I?{$f0}Q{SHIFT-@}PH{SHIFT-*}P{$ed}{$60}
{SHIFT-@}{CBM-G}P{$f6} {CBM-G}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~
 {$e4}~{SHIFT-@}HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 rams *": 800
{$ea}j{CBM-R}1{CBM-@}n
0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670
={$fe}q{CBM-R}0550
y"*** output disk full"
Y"do you have a new one";z$
F(z$){CBM-W}{CBM-E}89{CBM-M}
C& 15:15,t,15:"want to new the output disk  n";z$
V0F(z$){CBM-W}{CBM-E}89600
{$f0}:"disk name,id";x$,y$


d){CBM-P}r
{CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}255450
<{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450
s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450
\{CBM-U}410
Bz{CBM-W}80{CBM-M}"                     ":470
{CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1%
JVst{CBM-R}0{CBM-P}n{CBM-W}232330
{$e3}  1: 15:" * * * * *"
{$e5}n{CBM-R}0{CBM-M}"* no prog8 to serial
;
 ** serial to serial or ieee-488 to ieee-488
N
 ** via transactor's glink ieee-488 interface
T

:

 ** transactor publishing inc.
{CBM-O}
 ** 85 west wilmot st., #10


 ** richmond hill,ontario, canada



 ** l4b-1k7 (416) 764-{$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780
 ""
2 4: 3: 15: 14
9j
C x{CBM-R}{CBM-U}(0):"another input disk ready";z$
U*F(z$){CBM-R}89230
{$7b}4
>"drive  0";d
 hd{CBM-D}d{CBM-W}{CBM-E}d830
{CBM-E}rd${CBM-R}G(d{CBM-N}48):
D\15,e,e$,e1,e2
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}       ",21);
$
{CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
p
{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780

Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730
{CBM-Q}
P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
P
Zl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780
{$e5}
{$e4}t%{CBM-R}4{CBM-M}3438:760
{$ef}
{$ee}3419

"

" 1,f,3,"$"{CBM-N}f$
#
,860:e{CBM-M}:230
-
64156
=
@r{CBM-R}255: 340
g
j4245
K
tj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j
{$7c}
^n${CBM-R}J(a$,4,j)

Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470
{CBM-A}
Rl1%{CBM-R}F(J(a$,22))
S
{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
{$ee}
J(a$,4,16);" ";t$(t9)
{$fd}
p{CBM-R}B(203"to unit  9";t
H
830
"R
t${CBM-R}d$
4{CBM--}
f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M}
x{$e6}
n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$
N{$f0}
860: e {CBM-M} :230
{$fa}
z{CBM-R}90:"pattern  *";p$
{CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
{SHIFT--}"hold down 'y' or 'n' key to select"
{$fd}"programs to be copied...
SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}{SHIFT-@}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~{CBM-I} I~
{CBM-I}
{CBM-E}{SHIFT-@}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
@abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-N} L~ 0P K{CBM-G}{$f0}{CBM-V}{$60}palvert 1.0











palvert64 115,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$

n860:e{CBM-M}:550
f
x15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&"
y
B860:e{CBM-M}:550
M
L890:890:q{CBM-R}q{CBM-N}1

V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630

890
{CBM-R}
l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )"
B
 1: 15:500
X
14,f,15:15,t,15
{CBM-POUND}H(n$(j){CBM-N}"             rams *": 800
{$ea}j{CBM-R}1{CBM-@}n
0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670
={$fe}q{CBM-R}0550
y"*** output disk full"
Y"do you have a new one";z$
F(z$){CBM-W}{CBM-E}89{CBM-M}
C& 15:15,t,15:"want to new the output disk  n";z$
V0F(z$){CBM-W}{CBM-E}89600
{$f0}:"disk name,id";x$,y$

d-D
" disk copy-all      jim butterfield"
FN
a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
PX
p${CBM-R}""

 l2(232),l1%(232),n$(232),t%(232),t$(4)
{CBM-Y}
 xxx,seq,prg,usr,rel
L
j{CBM-R}0{CBM-@}4:t$(j):j
{$e5}
"from unit  8";f
{$ee}{CBM-N}
830
{$f8}{CBM-H}
f${CBM-R}d$
{CBM-V}
#1,x$

{CBM-K}#1,x$
{CBM-K}#1,x$
x{CBM-R}F(x${CBM-N}G(0))
4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0))
:{CBM-D}


 {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d {CBM-G}
{CBM-E}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E} {CBM-E}I*{$f0}
I?{$f0}QPH{SHIFT-*}P{$ed}{$60}
{CBM-G}P{$f6} {CBM-G}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 {$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780
 ""
2 4: 3: 15: 14
9j
C x{CBM-R}{CBM-U}(0):"another input disk ready";z$
U*F(z$){CBM-R}89230
{$7b}4
>"drive  0";d
 hd{CBM-D}d{CBM-W}{CBM-E}d830
{CBM-E}rd${CBM-R}G(d{CBM-N}48):
D\15,e,e$,e1,e2
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}{CBM-E} {CBM-E}I*{$f0}
I?{$f0}QPH{SHIFT-*}P{$ed}{$60}
{CBM-G}P{$f6}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e U{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 R~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa} U{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~ {$7c}{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc 2{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
t%(232),t$(4)
!
 xxx,seq,prg,usr,rel
<
 j{CBM-R}0 {CBM-@} 4:  t$(j): j
b
:
P
 when size=3956 then code begins at 6005

z1{CBM-R}6027:  entry point #1
{CBM-D}
z2{CBM-R}z1{CBM-N}3:  entry point #2
J
z3{CBM-R}z2{CBM-N}3:  entry point #3
{$e8}
z4{CBM-R}z3{CBM-N}3:  entry point #4

init{CBM-R}z4{CBM-N}3:
,t,0,"$"{CBM-N}t${CBM-N}": !#$%&"
]
127:  e {CBM-M} : 84
,^
131: 131: q{CBM-R}q{CBM-N}1
e_
{CBM-K}#1,x$:  x${CBM-W}{CBM-E}"" 95
n{$60}
131
UA
l{CBM-R}x{CBM-N}y{CBM-D}256:  "(";l;"blocks free )"
B
xx{CBM-R}tu:  136:  1:  15: 79
C
:
LD
xx{CBM-R}fr:  136:  14,f,15:  source cmd channel
{$fc}E
xx{CBM-R}tu:  136:  15,t,15p
51,84:52,9
7z
"file type  s";t$:"file";x$
kD
1,8,2,x$:2223
BI
st{CBM-W}{CBM-E}64{CBM-M}"no go":
X
 1:"other disk ready";a$
{CBM-Q}
C(a$){CBM-M} 1,8,2,x${CBM-N}","{CBM-N}t${CBM-N}",w":2267: 1




 {CBM-I} F~ {$e4}~
{$fb}{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}IP{$f0}{CBM-G}{$f0}{$e9}{CBM-G}{$fb}@{CBM-G}{$fc}alL~ {CBM-I} I~
{CBM-E}{$fb} R~{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fb}M@{CBM-G}{$fc}{$ed}a{$e7}{SHIFT-POUND} move rom to ram, etc.
a2
xx{CBM-R}fr:  136: n{CBM-R}0:  1:  15:  15,f,15: 15,"i"{CBM-N}f$
y3
127:  e {CBM-M} :  50
Z4
z{CBM-R}90: : "pattern  *";p$
{CBM-I}5
p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
M6
 "hold down 'y' or 'n' key to select"
{$ee}7
 "programs to be copied..."
8
U
xx{CBM-R}fr:  136:  3:  14:  source
.V
xx{CBM-R}tu:  136:  4:  15:  destination
5W
j
{$60}X
x{CBM-R}{CBM-U}(0): "another input disk ready";z$
SY
 F(z$){CBM-R}89 50
Z
 1,55:
{$7b}
"drive  0";d
{CBM-POUND}{$7c}
 d{CBM-D}d{CBM-W}{CBM-E}d 123
{SHIFT-@}{$7d}
d${CBM-R}G(d{CBM-N}48):
{SHIFT-*}{$7e}
:
S{$7f}
15,e,e$,e1,e2
{$f7}
 e{CBM-R}0 {CBM-M} e{CBM-R}D
 save"0:cua  (change)",8
iN
 ** jim butterfield - september 1981
X
 ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
{CBM-Y}
 "old device number   8";:  do
P
 do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130
{$f8}
 "new device number   9";:  dn

1%(n){CBM-R}l1%
k
 st{CBM-R}0 {CBM-P} n{CBM-W}232 60
jl
xx{CBM-R}fr:  136:  1:  15:  " * * * * *                  "
Qm
 n{CBM-R}0 {CBM-M}  "* no programs *":  120
{$7f}n
 j{CBM-R}1 {CBM-@} n
{CBM-T}o
l2{CBM-R}l2(j): t%{CBM-R}t%(j):  l{CBM-E}l2 100
{CBM-E}p
 q{CBM-R}0 84
Nq
 "*** output disk full"
{$ee}r
"do you have a new one";@abc{$ee}@P{$ee}a U{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P 2{CBM-G}{$f0}{CBM-F}{$60},{$f2}p{$60}{CBM-G}{$f0}){$fd}{$f1}{SHIFT-POUND}@{$f2}{CBM-Z}{$ed}Ih{$f0} - {SHIFT-POUND} q{SHIFT-POUND}
p{CBM-POUND}{CBM-E}ppHP{$f9}{$e6}q{CBM-G}qI{SHIFT-*}P{SHIFT-POUND} qI
P{$e9} 7l{CBM-G}{$fb}{$fd}l{CBM-G}{$fc}{$fd}X{CBM-+}{$fd}{CBM-X}{$f0}x{$60}{CBM-I} {CBM-K}{CBM-N} {CBM-K}{CBM-I}
 {CBM-K} {$e4}~I
P{$f9}{$60}{CBM-X}{CBM-Z}{$f0} R~{$e8}P{$f5}{$60}
press <return> when ready

place switch in
i move rom to ram, etc.
@
swap{CBM-R}init{CBM-N}3:  swap rom to ram or vice-versa

fr{CBM-R}251: tu{CBM-R}252: tp{CBM-R}253:  from, to and temp storage of drive type
!
:
{CBM-G}"
"from unit  8";f
{CBM-C}#
123:  get drvnum
F$
f${CBM-R}d$
{$ec}%
 "1) serial or 2) ieee  2";tf

&
 tf{CBM-W}:  dest cmd channel
&F
 H(n$(j){CBM-N}"                    ",21);
xG
xx{CBM-R}fr:  136:  3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
H
14,e,e$,e1,e2: 128:  e {CBM-M}  "** ";e$;e: 117
I
:
{CBM-E}J
xx{CBM-R}tu:  136:  destination
{$e9}K
 t%{CBM-R}4 {CBM-M}  4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):
7lL~{SHIFT-POUND}6{SHIFT-POUND}{$fc}{SHIFT-POUND}t{$fb}{$60}* serial to serial or ieee-488 to ieee-488
N
 ** via transactor's glink ieee-488 interface
T

:

 ** transactor publishing inc.
{CBM-O}
 ** 85 west wilmot st., #10


 ** richmond hill,ontario, canada



 ** l4b-1k7 (416) 764-
 1,f,3,"$"{CBM-N}f$:  ok
9
127:  e {CBM-M} : 50
(:
(z1)
8;
r{CBM-R}255:  61
b<
(z2)
K=
 j{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:  F(J(a$,j{CBM-N}3)){CBM-R}160 {CBM-M} j
{$7c}>
n${CBM-R}J(a$,4,j)
 ?
t9{CBM-R}F(a$){CBM-Q}128:  t9{CBM-W}1 {CBM-A} t9{CBM-E}4 75
{CBM-H}@
l1%{CBM-R}F(J(a$,22))
Wa
l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
b
 I("   "{CBM-N}J(D(l2),2)
(st {CBM-P} 191): e${CBM-R}"*st*"
{$fd}


:

{CBM-K}#1,x$,x$,x$
%
x{CBM-R}F(x${CBM-N}G(0))
>
{CBM-K}#1,x$: y{CBM-R}F(x${CBM-N}G(0))
d

j
:

 tp,B(xx): (swap): :  flip to source/destination drive


ll{$f9}lHl{SHIFT-+}l/l {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d
{CBM-E}I@Io{CBM-A} U{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}Z5273


:
4

 "  disk copy-all      jim butterfield"
D

 "** glink ieee-488 interface version **"


 " copies between serial and ieee drives"
P

a${CBM-R}"!jim butterfield!": a${CBM-R}a${CBM-N}a${CBM-N}a$: a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
Z

p${CBM-R}""

 l2(232),l1%(232),n$(232),z$
s
 F(z$){CBM-W}{CBM-E}89 {CBM-M} 122
1t
 15: xx{CBM-R}tu:  136:  swap to destination
Hu
 15,t,15: "want to new the output disk  n";z$
{$7c}v
 F(z$){CBM-W}{CBM-E}89 92
w
:
x
"disk name,id";x$,y$
{CBM-O}y
15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$
Pz
127:  e {CBM-M} : 84
V[
:
~\
15,"i"{CBM-N}t$:  1
eee mode
serial mode



{CBM-N}any program from cassette #1.
;C"    l ";G(34);"ram test";G(34)
GD"   load from cassette #1 the program
{$7f}E"named ram test.
{CBM-Z}J"   l ";G(34);"ram test";G(34);",08
{SHIFT-+}T" load from disk (device 8) the progra1 {CBM-A} tf{CBM-E}2 {CBM-M} 37

'
:

(
"to unit  8";t
7
)
123:  get drvnum
a
*
t${CBM-R}d$
G
+
 "1) serial or 2) ieee  1";tt
{$7e}
,
 tt{CBM-W}1 {CBM-A} tt{CBM-E}2 {CBM-M} 43

-
:
{CBM-I}
.
 f{CBM-R}t {CBM-P} f${CBM-R}t$ {CBM-P} tt{CBM-R}tf {CBM-M}
{CBM-POUND}
/
:
{$e6}
0
 fr,tf{CBM-Q}1:  tu,tt{CBM-Q}1:  drive type source and destination
1
(init): 111
{$ef}L
:
M
 4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
N
:
jO
l{CBM-R}l{CBM-Q}l2: 127:  e {CBM-M}  "*** ";e$;e: 117
TP
 t%{CBM-R}4 {CBM-M} (z4): 114:  relative copy
{$7e}Q
(z3)
{CBM-POUND}R
xx{CBM-R}tu:  136:  set destination again
WS
n$(j){CBM-R}"": 127:  e {CBM-M}  "**** ";e$;e: 117
{$e1}T
 ""
 dn{CBM-W}8 {CBM-A} dn{CBM-E}15 {CBM-M} 150
3{CBM-N}
 15,do,15:  command channel
K{CBM-H}
a${CBM-R}G(do{CBM-N}32): b${CBM-R}G(do{CBM-N}64):  talk and listen current
{CBM-V}
 a:  a{CBM-R}0 {CBM-M}  "disk not recognized!";:  230
LH
15,"m-r"G(a)G(0): {CBM-K}#15,x$:  x${CBM-W}{CBM-E}a$ {CBM-M} 190
{$fd}R
15,"m-r"G(a{CBM-N}1)G(0): {CBM-K}#15,x$:  x${CBM-W}{CBM-E}b$ {CBM-M} 19,4)" :"J(a$,4,16)" "t$(t9)"      "
#c
p{CBM-R}B(203) {CBM-P} r
ad
{CBM-K} z$:  z${CBM-R}"" {CBM-P} p{CBM-W}064 73
Me
 z${CBM-R}"y" {CBM-A} z${CBM-R}"n" {CBM-M} z{CBM-R}F(z$): r{CBM-R}255: 73
f
 z${CBM-R}G(13) {CBM-M} r{CBM-R}0: 73
g
68
h
:
Ci
 z{CBM-W}80 {CBM-M}  "                     ": 75
{$f7}j
n{CBM-R}n{CBM-N}1: l2(n){CBM-R}l2: n$(n){CBM-R}n$: t%(n){CBM-R}t9: l:  "   old pal filename";op$
 {CBM-T}20)cn""
2 "              drive";op
b{CBM-I} {CBM-T}20)od""
A{CBM-D} "            device#";od
{CBM-L} 1, od, 8, op$ : ed{CBM-R}od :  700 :   1
{CBM-M}{SHIFT-*} e {CBM-M}  ee$ :  :  900
{CBM-B}J :  {CBM-T}21)"@"op$""
{CBM-*}T "   new pal filename";pn$
{$fa}{$de}0

 ****************************************
_
 * convert cbm assembler source file to *

 *  file to pal assembler source file   *
{CBM-X}(
 *         k.j.h. hildon 03/83          *
{$ec}2
 *   ========  palvert  1.0 =========   *
<
 *      work
a{CBM-R}sa :  660     :  output file start addr ($0401)
{$60}& mc : sx{CBM-R}st       :  input line from cbm source file
T0a${CBM-R}H(i$,B(189))
{CBM-F}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5      :  start addr + line len + 5 for link,line,mkr
{$f6}da{CBM-R}sa :  660     :  output line link - hex lo64  {CBM-M} 1230     :  get line link
!Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
_{$7e}{CBM-K}#1, b$, c$                           :  get line number
a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
F mc{CBM-N}21, 0                           :  input delim now $00
O mc
{CBM-+}a${CBM-R}a${CBM-N}H(i$  32, 198, 255,  32, 228, 255, 201,  13, 240,  11, 164, 189
V
 145, 187, 200, 132, 189, 196, 186, 208, 238,  76, 204, 255
{CBM-POUND}{CBM-N}
 :  j{CBM-R}mc {CBM-@} mc{CBM-N}37 :  x :  j, x : t{CBM-R}t{CBM-N}x :
L{CBM-H}
 t{CBM-W}{CBM-E}5767 {CBM-M} "typo in data" :
{$f4}{CBM-V}
z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0
3H
 "(DO NOT exit with <RETURN>)   Append another file n";yn$
? yn${CBM-R}"y" {CBM-M} 840
x 2, pd, 6, pn${CBM-N}",a"
 2, z$z$;             :  add end file marker ($00, $00)
{CBM-@}*  2 :   15
W4 "load";G(34);pn$;G(34);","J(D(pd),2)""
{SHIFT--}>
h 270 0
 ****************************************
_
 * convert cbm assembler source file to *
(
 *  file to pal assembler source file   *
{CBM-X}2
 *         k.j.h. hildon 03/83          *
{$ec}<
 *   =======  palvert64 1.0 =========   *
f
 *       wor^

H :  "   new pal filename";pn$
,
R {CBM-T}20)cn""
k
{$7c} "  destination drive";pn
[
 {CBM-T}20)pd""
Z
 "destination device#";pd

pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{CBM-B}
{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
{$e9}
{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M}  "file exists" :  :  360
{$f3}
{CBM-U} :  H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010
7{$e8}pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) :  1080
g{$f2} {CBM-T}20)cn""
F{$fc} "  destination drive";pn
V {CBM-T}20)pd""
 "destination device#";pd
{CBM-A}pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
Z$ 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
. es on pet/cbm with disk      *
jf
 * absolutely no copyright restrictions *
Yp
 *  won't work on basic 1.0 or dos 1.0  *
{CBM-POUND}z
 ****************************************
{$ec}D
i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" :  i$ must be 1st var used
/N
i${CBM-R}i${CBM-N}i${CBM-N}i$, hex hi
1
na{CBM-R}sl :  660     :  output line #    - hex lo, hex hi
O
xsl;a$           :  ===== remove for better speed ======
{CBM-I}
Bsl{CBM-R}sl{CBM-N}ic             :  increment line number
S
L2,a$z$;        :  output line (+chr$ zero)
{$e4}
V sx{CBM-R}0 {CBM-M} 550
{$fa}
  2,B(189)){CBM-N}z$            :  +z$ to add lost mkr
{CBM-A}2,a$;
w{SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$)                           :  update start addr
BD 1130
JN  1
{CBM-S}X mc{CBM-N}21, 13                          :  input delim back to cr
X{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic
{$ec}
sa{CBM-R}1025                             :  start addr pet/cbm
OR
sl{CBM-R}100                              :  starting line #
{CBM-G}{CBM--}
ic{CBM-R}10                               :  increment
{CBM-P}{$e6}
 270
{$e1}{$f0}
 :  "append to existing pal file (y/n)";yn$
{$f5}{$fa}
 yn${CBM-R}"y" {CBM-M} 900

                 :  for new cbm file name
sr 450                  :  alter next line number, increment
G\ 1, cd, 8, cn$
F 2, pd, 6, pn${CBM-N}",a"
{CBM-D}P 550                   :  go add file
{CBM-*}Z ** append cbm source to existing pal file **

p0
'
{CBM--}
15,"m-w"G(a)G(0)G(2)G(dn{CBM-N}32)G(dn{CBM-N}64)
/
{$e6}
 15
h
{$f0}
  12,  50, 119,   0


488 interface version **"


 " copies between serial and ieee drives"
P

a${CBM-R}"!jim butterfield!": a${CBM-R}a${CBM-N}a${CBM-N}a$: a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
Z

p${CBM-R}""

 l2(232),l1%(232),n$(232),
Ba{CBM-R}sl :  :  {CBM-T}20)sl""
-L "    starting line #";sl
]V sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a :  450
M  {CBM-T}20)ic""
{$ea} "     line increment";ic
{$f4} :
{CBM-V}{$fe} ** open input and output files **
R 1, cd, 8, cn$
{$ed} 2, pd, 6, pn${CBM-N}",p,w"
%{CBM-W}{CBM-E}62  {CBM-M}  " file exists" :  :  970
=8 : "creating new file from ";op$;"  stand by..."
xb 1, od, 8, op${CBM-N}",p,r"
Sl 2, pd, 6, pn${CBM-N}",p,w"
{CBM-N}v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));   :  file start address
H{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));

J{CBM-K}#1, b$, c$ :  st{CBM-R}                         :  establish input buffer
PX
mc{CBM-R}896                              :  mach code start addr
{SHIFT-POUND}
 *** string input routine -- by jim butterfield ***
{$ef}
 160,   2, 177,  42, 153, 184,   0, 200, 192,   6, 208, 246, 162
5
   1, :   1 :  760
{CBM-D}{CBM-D} output 2 hex bytes {CBM-D}{CBM-D}
+2, G(a {CBM-P} 255);
@2, G({CBM-J}(a{CBM-Z}256));
f{CBM-POUND}
w{CBM-R}{CBM-D}{CBM-D} err{CBM-A}  {CBM-D}{CBM-D}
H{CBM-C} 15, ed, 15
{$7f}F15, e, e$, et, es
{CBM-POUND}Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es)
{CBM-E}Z  15
{CBM-Y}{$e4}
{CBM-*}{$ee} ** add more cbm source modules **
{$e5}{$f8}
+
E 450                               :  alter next line num
3{$f6} 1, cd, 8, cn${CBM-N}",s,r"
=
 550


"   load from cassette #1 the program
{$7f}E"named ram test.
{CBM-Z}J"   l ";G(34);"ram test";G(34);",08
{SHIFT-+}T" load from disk (device 8) the progra 360 :  450 :  520
3 :  "cbm source filename";cn$
c {CBM-T}20)cn""
B" "       source drive";cn
R, {CBM-T}20)cd""
6 "     source device#";cd
{CBM-D}@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$
Vj 1, cd, 8, cn$ : ed{CBM-R}cd :  700 :   1
{$f2}t e {CBM-M}  ee$ :  :  270
{$f8}  :  970
#8 : "creating new file from ";op$;"  stand by..."
>b 1, od, 8, op${CBM-N}",p,r"
yl 2, pd, 6, pn${CBM-N}",p,w"
v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));   :  file start address
{CBM-S}{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));
{$e6}J{CBM-K}#1, b$, c$ :  st{CBM-R}64  {CBM-M} 1230     :  get linffer
a
X
mc{CBM-R}896                              :  mach code start addr
Z

 *** string input routine -- by jim butterfield ***
E

 160,   2, 177,  45, 153, 137,   0, 200, 192,   6, 208, 246, 162,   1

  32, 198, 255,  32, 228, 255, 201,  13, 240,
 hex bytes {CBM-D}{CBM-D}

2, G(a {CBM-P} 255);
"2, G({CBM-J}(a{CBM-Z}256));
({CBM-POUND}
9{CBM-R}{CBM-D}{CBM-D} err{CBM-A}  {CBM-D}{CBM-D}
j{CBM-C} 15, ed, 15
AF15, e, e$, et, es
Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es)
Z  15
{$e4}
A{$ee} ** add more cbm source modules **
G{$f8}
{$ea} "(DO NOT exit with <RETURN>)
k           :  alter next line num
{$f6} 1, cd, 8, cn${CBM-N}",s,r"
#
 550


8, cn${CBM-N}",s,r"
=
 550


"   load from cassette #1 the program
{$7f}E"named ram test.
{CBM-Z}J"   l ";G(34);"ram test";G(34);",08
{SHIFT-+}T" load from disk (device 8) the progra 520

 :  "cbm source filename";cn$
.
 {CBM-T}20)cn""
m
" "       source drive";cn
]
, {CBM-T}20)cd""
{$7c}
6 "     source device#";cd

@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$
A
j 1, cd, 8, cn$ : ed{CBM-R}cd :  700 :   1
{SHIFT--}
t e {CBM-M}  ee$ :  :  270
{$e3}
^
H :  "   ne
op$
{$f9} {CBM-T}20)cn""
 "              drive";op
({CBM-I} {CBM-T}20)od""
g{CBM-D} "            device#";od
Q{CBM-L} 1, od, 8, op$ : ed{CBM-R}od :  700 :   1
{SHIFT-*} e {CBM-M}  ee$ :  :  900
{CBM-G}J :  {CBM-T}21)"@"op$""
ET "   new pal filename";pn$
 {$de} H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010
{$e8}8

 the transactor volume 5 issue 06         page 12
]

* data loader for "verifizer" *
R
 vic/64 version
{$7b}
cs{CBM-R}0

 i{CBM-R}828 {CBM-@} 958: a: i,a
{CBM-M}(
cs{CBM-R}cs{CBM-N}a: i
{CBM-Z}2
:
{CBM--}<
 cs{CBM-W}{CBM-E}14755 {CBM-M} "***** data error *****":
{$ea}f
 sys 828
{$f0}p

{$f6}D
:
({$e8}   output file start addr ($0801)
k& mc : sx{CBM-R}st       :  input line from cbm source file
_0a${CBM-R}H(i$,B(142))
{CBM-+}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5      :  start addr + line len + 5 for link,line,mkr
{$e1}da{CBM-R}sa :  660     :  output line link - hex lo, hex hi
na{CBM-R}sl : e link
Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
e{$7e}{CBM-K}#1, b$, c$                           :  get line number
Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
{CBM-D} mc{CBM-N}21, 0                           :  input delim now $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            : 15, 164, 142, 145, 140
[
 200, 132, 142, 196, 139, 240,   4, 165, 144, 240, 234,  76, 204, 255
{CBM-N}
 :  j{CBM-R}mc {CBM-@} mc{CBM-N}41 :  x :  j, x : t{CBM-R}t{CBM-N}x :
{CBM-E}{CBM-H}
 t{CBM-W}{CBM-E}6120 {CBM-M} "typo in data" :
{$e3}{CBM-V}
z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0 :  G(14)
H
sa{CBM-R}2049
"Append another file n";yn$
% yn${CBM-R}"y" {CBM-M} 840
> 2, pd, 6, pn${CBM-N}",a"
{$7b} 2, z$z$;             :  add end file marker ($00, $00)
*  2 :   15
{CBM-X}4 "load";G(34);pn$;G(34);","J(D(pd),2)""
C>
{$f8}h 270                  :  for n160,   0, 189,   0,   2, 240,  22, 201
t
$  32, 240,  15, 133,  91, 200, 152,  41,   3

. 133,  90,  32, 183,   3, 198,  90,  16, 249
{CBM-U}
8 232, 208, 229,  56,  32, 240, 255, 169,  19
{$ea}
b  32, 210, 255, 169,  18,  32, 210, 255, 165
l  89,  41,w pal filename";pn$
R {CBM-T}20)cn""
6{$7c} "  destination drive";pn
f {CBM-T}20)pd""
E "destination device#";pd
pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{CBM-N}{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
T{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M}  "file exists" :  :  360
{$de}{CBM-U} :
{$f9}Ba{CBM-R}sl :  :  {CBM-T}2
pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) :  1080
-{$f2} {CBM-T}20)cn""
l{$fc} "  destination drive";pn
\ {CBM-T}20)pd""
{$7b} "destination device#";pd
pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{SHIFT-*}$ 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
{$ec}. e{CBM-W}{CBM-E}62  {CBM-M}  " file exists" :ks on c64 with disk         *
jp
 * absolutely no copyright restrictions *
Yz
 ****************************************
{CBM-X}D
i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" :  i$ must be 1st var used


N
i${CBM-R}i${CBM-N}i${CBM-N}i$                         :  establish input bu 660     :  output line #    - hex lo, hex hi
sxsl;a$    :  ===== remove for better speed ======
Bsl{CBM-R}sl{CBM-N}ic             :  increment line number
{CBM-J}L2, a$z$;       :  output line, chr$ zero
FV sx{CBM-R}0 {CBM-M} 550
{CBM--}  2 :   1 :  760
{$f9}{CBM-D}{CBM-D} output 2 +z$ to add lost mkr
{$fd}{CBM-A}2,a$;
={SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$)                           :  update start addr
hD 1130
pN  1
X mc{CBM-N}21, 13                          :  input delim back to cr
{CBM-V}{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic
{$fe}{$ec} 450                                        :  start addr c64
zR
sl{CBM-R}100                              :  starting line #
{CBM--}
ic{CBM-R}10                               :  increment
{$e6}
 270
L{$f0}
 :  "append to existing pal file (y/n)";yn$
 {$fa}
 yn${CBM-R}"y" {CBM-M} 900
{$fa} 360 :  450 : ew cbm file name
9r 450                  :  alter next line number, increment
m\ 1, cd, 8, cn$
FF 2, pd, 6, pn${CBM-N}",a"
P 550                   :  go add file
EZ ** append cbm source to existing pal file **
{$e9} :  "   old pal filename";76,  74,   3, 165, 251, 141,   2,   3, 165
z{$f2} 252, 141,   3,   3,  96, 173,   3,   3, 201
{$fc}   3, 240,  17, 133, 252, 173,   2,   3, 133
{CBM-V} 251, 169,  99, 141,   2,   3, 169,   3, 141
{$f0}   3,   3,  96, 173, 254,   1, 133,  89, 162
"
   0, 0)sl""
L "    starting line #";sl
hV sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a :  450
x  {CBM-T}20)ic""
W{$ea} "     line increment";ic
{$f4} :
{SHIFT-POUND}{$fe} ** open input and output files **
{CBM-X} 1, cd, 8, cn$
X 2, pd, 6, pn${CBM-N}",p,w"
a{CBM-R}sa :  660     : 5, 167, 208,  58, 173
c$ 254,   1, 133, 251, 162,   0, 134, 253, 189
U.   0,   2, 168, 201,  32, 240,  15, 230, 253
{CBM-M}8 165, 253,  41,   3, 133, 254,  32, 236,   2
Yb 198, 254,  16, 249, 232, 152, 208, 229, 165
l 251,  41,  15,  24, 105, 1$044e

{CBM-A}f043f 85 eb       sta $eb
'{CBM-E}f0441 e8          inx
a{CBM-R}f0442 8a          txa
^{CBM-W}f0443 29 03       {CBM-P} #$03
{$7c}{CBM-H}f0445 85 ea       sta $ea
{CBM-J}f0447 20 6e 04    jsr $046e
{SHIFT-@}{CBM-L}f044a c6 ea       dec $ea
Z{CBM-Y}f044c 10 f9       bpl $0447
{$f4}{CBM-U}f044e c8
   3, 169,  16, 141,   3,   3,  96, 165
pT  20, 133, 208, 162,   0, 160,   0, 189
{$7d}{$7e}   0,   2, 201,  48, 144,   7, 201,  58
{CBM-N} 176,   3, 232, 208, 242, 189,   0,   2
W 240,  22, 201,  32, 240,  15, 133, 210
 200, 152,  41,   3, 133, 209ror *****":
af
 bank 15:sys 1024:rem   bank 15:sys 1027 turns off
gp

mD
:
S
  76, 14,  4,165,251,141,130,  2
 165,252,141,131,  2, 96,173,130
{CBM-B}   2,201, 39,240, 17,133,251,173
{$e5} 131,  2,133,252,169, 39,141,130
    2,169,  4,14er
7f0411 c9 27       cmp #$27  ; me than the hi {CBM-B}ce i have other
Gf0413 f0 11       beq $0426 ;such in page 4
f0415 85 fb       sta $fb
{CBM-G}f0417 ad 83 02    lda $0283
Cf041a 85 fc       sta $fc
{$e2}f041c a9 27       lda #$27
f041e 8d
8

 the transactor volume 5 issue 06         page 12
A

* data loader for "verifizer 4.0" *
J
cs{CBM-R}0

 i{CBM-R}634 {CBM-@} 754: a: i,a
(
cs{CBM-R}cs{CBM-N}a: i
2
:
K<
 cs{CBM-W}{CBM-E}15580 {CBM-M} "***** data error *****":
Yf
 sys 634
{CBM-*}p

{$e5}D
:
{$e8}  76, 138,   2, 1200

 the transactor volume 7 issue 01 page 11
w{$e8} * data loader for "verifizer +4"
X{$f2} * commodore plus/4 version
{$fc}{$de} 1: {$e8}: {$de} 0:  make room for code
{CBM-M}cs{CBM-R}0
S j{CBM-R}4096 {CBM-@} 4216:  x:  j,x: ch{CBM-R}ch{CBM-N}x:
{$fb} ch{CBM-W}{CBM-E}13146 {CBM-M}  "checksum error":
8

 the transactor volume ? issue ??         page ??
y
    save"1:verifizerb128",8

    don't know if you need this, but it does work with the pet
{SHIFT-+}
    checkbytes to the extent of identical token numbers.
'
    make sure that line 30 sa
93, 141,   0, 128
=v 165, 251,  74,  74,  74,  74,  24, 105, 193
O{$60} 141,   1, 128, 108, 163,   2, 152,  24, 101
J 251, 133, 251,  96


 240, 255, 108, 251,   0, 165,  91,  24
PT 101,  89, 133,  89,  96


: cn{CBM-R}0 :  G(14)
H
sa{CBM-R}2049         170
~:
$cverted from pet {CBM-P} c{CBM-Q}64 versis
{$60}some subs{SHIFT-*}tial changes were needed. writeup  your use:
this will w{CBM-A}k ly  the  buffer does {CBM-POUND} cross page
Wboundry. n{CBM-A}mal buffer is in {CBM--} 1 at $fa5e{CBM-Q}faff, which is ok.
{SHIFT--};

f0400 4c 0e 04
{$f9},  32, 113
1{CBM-+}  16, 198, 209,  16, 249, 232, 208, 229
^{CBM-A} 165, 208,  41,  15,  24, 105, 193, 141
{SHIFT-@}   0,  12, 165, 208,  74,  74,  74,  74
{CBM-U}D  24, 105, 193, 141,   1,  12, 108, 211
{$e5}N   0, 165, 210,  24, 101, 208, 133, 208
{$ef}X  96


      1,131,  2, 96,165
1(   1, 72,162,  1,134,  1,202,165
w0  27,133,233, 32,118,  4,234,177
{$7d}8 136,240, 22,201, 32,240, 15,133
{CBM-T}@ 235,232,138, 41,  3,133,234, 32
Ih 110,  4,198,234, 16,249,200,208
{$ef}p 230,165,233, 41, 15, 24,105,193
x 1482 02    sta $0282
! f0421 a9 04       lda #$04
a{CBM-K}f0423 8d 83 02    sta $0283
[{CBM-I}f0426 60          rts
{CBM-T}f0427 a5 01       lda $01     ;overabundance of cauti...
X{CBM-@}f0429 48          pha         ; chances are it's 1 anyway.
{$f7}{CBM-G}f042a a2 01
, 173, 163,   2, 133, 144
i{$f2} 173, 164,   2, 133, 145,  88,  96, 120, 165
{$7b}{$fc} 145, 201,   2, 240,  16, 141, 164,   2, 165
{CBM-Z} 144, 141, 163,   2, 169, 165, 133, 144, 169
{CBM-*}   2, 133, 145,  88,  96,  85, 228, 165, 217
 201,  13, 208,  62, 16
Z  15,  24, 105,  97,  32, 210, 255
nv 165,  89,  74,  74,  74,  74,  24, 105,  97
{$60}  32, 210, 255, 169, 146,  32, 210, 255,  24
{CBM-R}J  32, 240, 255, 108, 251,   0, 165,  91,  24
PT 101,  89, 133,  89,  96


: cn{CBM-R}0 :  G(14)
H
sa{CBM-R}2049         $ "sys 4096: rem to enable"
<. "sys 4099: rem to disable"
b8
Ob  76,  14,  16, 165, 211, 141,   2,   3
l 165, 212, 141,   3,   3,  96, 173,   3
Iv   3, 201,  16, 240,  17, 133, 212, 173
{$f6}{$60}   2,   3, 133, 211, 169,  39, 141,   2
#Jys 'bank 15', and not some other keyword!
N
                                                  liz deal 6/4/85


* data loader for "verifizer b128" *
{CBM-K}
cs{CBM-R}0
D
{CBM--} 15: i{CBM-R}1024 {CBM-@} 1163: a: i,a
T(
cs{CBM-R}cs{CBM-N}a: i
Z2
:
<
 cs{CBM-W}{CBM-E}16828 {CBM-M} "***** data erjmp $040e ;{$e6} {CBM-I} z{CBM-Q}pg places $e9{CBM-Q}eb,fb{CBM-Q}fc
9
f0403 a5 fb       lda $fb
y
f0405 8d 82 02    sta $0282
W
f0408 a5 fc       lda $fc

f040a 8d 83 02    sta $0283
{CBM-E}
f040d 60          rts
{$f4}
f040e ad 82 02    lda $0282 ;test low byte of warm vec {CBM-Q} safbuffer
{CBM-Q}f0436 ea          nop         ; {CBM-@} {CBM-K} y
t{CBM-D}f0437 b1 88       lda ($88),y ; Bing the  buffer
{CBM-Z}f0439 f0 16       beq $0451   ; {$e6} indirect ptr
O{CBM-S}f043b c9 20       cmp #$20    ; x{CBM-Q}y from c64 code are now exchanged
{$ef}{CBM-P}f043d f0 0f       beq 1,  0,208,165,233, 74, 74, 74
;{$60}  74, 24,105,193,141,  1,208, 24
AH 104,133,  1,108,251,  0,165,235
P  24,101,233,133,233, 96,165,136
{CBM-Z}X 164,137,133,133,132,134, 32, 38
S 186, 24, 32, 78,141,165,133, 56
{$f9} 229,136,168, 96,170,170,170, ldx #$01

{CBM-+}f042c 86 01       stx $01
/
{CBM-M}f042e ca          dex
N
{CBM-POUND}f042f a5 1b       lda $1b     ;low byte of line# still Eid
{CBM-E}
{SHIFT-POUND}f0431 85 e9       sta $e9     ; b128 has no line#  the stack.
{$f2}
{CBM-N}f0433 20 76 04    jsr $0476   ;find where line# s in os
#
R"input filename"::f$:f${CBM-R}""{CBM-M}
j
{$7c}x{CBM-R}0{CBM-@}15:f${CBM-R}f${CBM-N}G(160)::f${CBM-R}H(f$,16)
_
210: 600: dir
{$7d}
t{CBM-R}d1:s{CBM-R}d2:310: get info

e4{CBM-R}s%(0):e5{CBM-R}s%(1): link
{SHIFT-@}
{CBM-@}s%(0){CBM-R}0:s%(1){CBM-R}255: /change
Y
{CBM-S}s%(2){CBM-R}3:s%(3){CBM-R}21 : /1st 4
{$f0}
{CBM-U}690: write block

Bt{CBM-R}e1:~{SHIFT-*}f045d 4a          lsr
Af045e 4a          lsr
3Bf045f 4a          lsr
mCf0460 4a          lsr
GDf0461 18          clc
Ef0462 69 c1       adc #$c1
{CBM-+}Ff0464 8d 01 d0    sta $d001
{SHIFT-*}Gf0467 18          clc
{$e7}Hf0468 68          pla        ;
s{CBM-R}e2:310: get dir
(L 790: dir entry info
cVs%(e3){CBM-R}131: user/c=64
F s%(e3{CBM-N}1){CBM-R}e4:s%(e3{CBM-N}2){CBM-R}e5: vlir
{$ea}s%(e3{CBM-N}19){CBM-R}d1:s%(e3{CBM-N}20){CBM-R}d2:info
{CBM-G}{$f4}s%(e3{CBM-N}21){CBM-R}0: seq/geos
H{$fe}s%(e3{CBM-N}22){CBM-R}6: application/geos
Ys%(e3{CBM-N}23){CBM-R}t1
{$ea}s%(e3{CBM-N}24){CBM-R}t2
{$fb}s%(e3{CBM-N}25)erifizer c128"
){CBM--}
 * commodore c128 version
r{$e6}
 * works in 40 or 80 column mode!!!
[{$f0}
ch{CBM-R}0
{$fa}
 j{CBM-R}3072 {CBM-@} 3220: x: j,x:ch{CBM-R}ch{CBM-N}x:
{CBM-N} ch{CBM-W}{CBM-E}18602 {CBM-M}  "checksum error":
F "sys 3072,1 to enable
{$e3} "sys 3072,0 to disable
{$e9}"
, 170,208, 1)

Tf047e 20 26 ba    jsr $ba26  ;chr{CBM-K}, y{CBM-R}0
cUf0481 18          clc        ;clc {CBM-POUND} really needed
Vf0482 20 4e 8d    jsr $8d4e  ;{CBM-K} line#, no err{CBM-A}s {CBM-O}sible, i hope.
KWf0485 a5 85       lda $85    ;this code does  n o t  permit the

Xf0487 38
{$f0}

 {$fa}
 2 :    << close all >>
-15,"i0"
=x{CBM-R}0{CBM-@}2000:
g 15:
m":
Q, << read sector >> t,s,s%(255)
6"reading trk:";t;"sec:";s
{CBM-G}@15,"u1";2;0;t;s
{CBM-V}j170:i{CBM-R}0{CBM-@}255:{CBM-K}#2,b$
Wts%(i){CBM-R}F(b${CBM-N}G(0))::
{SHIFT--}^:
{$fe}H convert a c64 file to ge
{CBM-X} 15, 24
#!{CBM-U} 105,193, 32,210,255,165,250, 74
i!B  74, 74, 74, 24,105,193, 32,210
O!L 255,169,146, 32,210,255, 24, 32
!V 240,255,108,253,  0,165,252, 24
{CBM-P}!  101,250,133,250, 96


is in {CBM--} 1 at $fa5e{CBM-Q}faff, which is ok.
{SHIFT--};

f0400 4c 0e 04    . d followed by ctl{CBM-Q}[ will V a program. hest.
g{CBM-@}{CBM-Q}   1,0:1, etc in the b{CBM-Q}machine does  n o t  supress the
y{CBM-+}questi mark.
_{CBM-D};
{CBM-L}:              upgrade{CBM-Q}pet verizer from your disk:
{CBM--}{SHIFT-*}verizer 2{CBM-Z}4 does {CBM-POUND} w{CBM-A}k in my 2pet. $d9 uses {CBM-*} number. {CBM-*} numD
 save"0:c128 vfz.ldr",8
4N
 c-128 verifizer
CX
 bugs fixed:  1) works in 80 column mode.
{CBM-Q}
                 (had to lda #0:sta $ff00--enters routine with i/o
{$e6}
                  chips banked out in 80-column mode)

              2) s $1
If0469 85 01       sta $01
;Jf046b 6c fb 00    jmp ($00fb);{CBM-P} back {CBM-@} warm start
FKf046e a5 eb       lda $eb    ;multilpy
Lf0470 18          clc
Mf0471 65 e9       adc $e9
{CBM-C}Nf0473 85 e9       sta $e9
VOf0475 60          rts
Pf0476 a
I
{SHIFT-*} {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L}
{CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}^{SHIFT-POUND}{SHIFT-*}{SHIFT-POUND}w,{SHIFT-POUND}{SHIFT-*}-{SHIFT-POUND}{$7f}{CBM-I}  {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}{CBM-I}{$7f} F~ {$e4}~ R~I
{$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L\{SHIFT-*}{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND}
X{CBM-G}EI?{$f0}Kl{SHIFT-*}ave"0:directories",8
{CBM-I}
{CBM-X}{SHIFT-*}{$e8}  banked out in 80-column mode)

              2) s1,165,253,141,  2,  3
56 165,254,141,  3,  3, 96,173,  3
[@   3,201, 12,240, 17,133,254,173
j   2,  3,133,253,169, 39,141,  2
{CBM-M}t   3,169, 12,141,  3,  3, 96,169
M^   0,141,  0,255,165, 22,133,250
{$f3}H 162,  0,160,  0,189,  0,  2,201
 R    sec        ;buffer {CBM-@} cross pages. s{SHIFT-*}dard
kYf0488 e5 88       sbc $88    ;setup {CBM-A} something similar {CBM-@} it
Zf048a a8          tay        ;is assumed. also, {CBM-POUND}hing will w{CBM-A}k
R{SHIFT-+}f048b 60          rts        ;you move the  buffer from {CBM--} 1.
XP:
{$fe}Z
{CBM-Z}< {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L}
{CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}{CBM-Z}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND},{SHIFT-POUND}-{SHIFT-POUND}{$7f}{CBM-I}  {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}

{CBM-I}{$7f} F~ {$e4}~ R~I
{$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}{CBM-Z}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND}
X{CBM-G}EI?{$f0}KlIave"0:directories",8
{CBM-I}
{CBM-X}{SHIFT-*}{$e8}  banked out in 80-column mode)

              2) s         iny
{CBM-O}f044f d0 e6       bne $0437
2{SHIFT-@}f0451 a5 e9       lda $e9
o{CBM-F}f0453 29 0f       {CBM-P} #$0f
I{CBM-C}f0455 18          clc
{CBM-X}f0456 69 c1       adc #$c1
G{CBM-V}f0458 8d 00 d0    sta $d000  ;from pet versi{CBM-Q} the screen
{$e5}{CBM-B}f045b a5 e9       lda $e9

ebers
Jaren't Fii codes in 2.  {CBM-*} is {CBM-*} 10. check  $0a at $2a7.


0:program name";G(34);",08,1200,1f50"
NH
"    save to disk drive #0 memory from
R
"1200 hex up to but not including 1f50
{SHIFT-*}{CBM--}
"hex and name it program name.
J{$e6}
9000
{$e8}{$f0}
"ys 3072,0 now works. (tax sets eq)
s
         (previously, the correct syntax was:
Z{CBM-N}
                 sys 3072,,,,0 on
{CBM-T}{CBM-H}
                 sys 3072,,,,2 off)
{SHIFT-POUND}{CBM-V}

{$e1}H
 joel m. rubin, box 4189, san francisco 94101-4189

R
 * data loader for "v5 88       lda $88    ;ptr {CBM-@} {CBM-@}kenized text in the buffer is
{$60}Qf0478 a4 89       ldy $89    ;clobbered. so we'll just re{CBM-K} the
Rf047a 85 85       sta $85    ;line number {CBM-@} {CBM-K} y {CBM-O}itied
{$e1}Sf047c 84 86       sty $86    ;($88{CBM-Q}8a buffer ptr, $85{CBM-Q}87 txtptrD
  save"maketogeos",8
?N
 originally part of larger prg
lX
s%(255)
u
370
[

A
:
R
 disk error
{CBM-N}
15,en,em$,et,es:en{CBM-R}0{CBM-M}
{CBM-E}{CBM-H}
" disk error "en,em$,et,es
{CBM-C}{CBM-V}
250:
BH
:
{$e4}R
 15,8,15,"i0": <<open all>>
{$ed}{CBM--}
170
{$fd}{$e6}
 2,8,2,"#"
  48,144,  7,201, 58,176,  3,232
? {$7c} 208,242,189,  0,  2,240, 22,201
E   32,240, 15,133,252,200,152, 41
    3,133,251, 32,141, 12,198,251
{CBM-E}   16,249,232,208,229, 56, 32,240
W {CBM-@} 255,169, 19, 32,210,255,169, 18
{$fd} {CBM-S}  32,210,255,165,250, 41,:              b{CBM-Q}bits  your Qi:
b{CBM-Q}   sometimes b128 {CBM-K}s its ters. specically, in graphics mode
sht{CBM-Q}l may come out as sht{CBM-Q}v. two solutis: (1)push , {CBM-P}
Fflip the mode several times, {CBM-A} (2) use ctrl{CBM-Q}[ (that's rol {CBM-P} left
{CBM-I}square bracket)
-I{CBM-A})I
&&'{CBM-A}$&&'{CBM-A}&&'{CBM-A}&&'{CBM-A}E&&{CBM-G}'I

'{CBM-A}HPDl {$f7}
{CBM-I}{CBM-+}~ {CBM-+}~ {$f9}
 B{CBM-X}lg{$f9}
{SHIFT-POUND}

&'{CBM-E}Z8{$e9}06I
{CBM-A}2h{CBM-G}&{CBM-+}'&&'{CBM-A}W&&'{CBM-A}QE&&E''{CBM-A}F&&'{CBM-A}{SHIFT-*}HE&&{CBM-G}'I

'{CBM-A}{CBM-W}HPCl {$f7}
H{SHIFT-POUND}

&'{CBM-E}Z8{$e9}0I{CBM-A}&&'{CBM-A}E&&{CBM-G}'I

'HP{$e2}l {$f7}
{SHIFT-POUND}B{$fc}[{SHIFT-POUND}B{$fc}\{CBM-I}



{CBM-E}[{$f0}QZPH{SHIFT-*}{$f3}D]P8{$60}{$e8}{CBM-G}[I
[{$e6}\ 8P{SHIFT-+}{$60}{CBM-G}7B{CBM-G}8C
1):310:610

"  not found  ":
!
:
<
{CBM-POUND} write sector to disk
[
{CBM-R}"writing trk:";t;"sec:";s
M
{CBM-C}15,"b-p";2;0
Z
Fi{CBM-R}0{CBM-@}255

P2,G(s%(i));

Z
{CBM-+}
{$e4}15,"u2";2;0;t;s
{CBM-E}
{$ee}170:
{CBM-Y}
{$f8}:
{CBM-X}
:
V
 get dir entry info
{$f6}
"dir. entry informatio
 ..

second pass...


assembly complete


symbol table overflow


illegal quantity


undefined symbol


branch out of range


illegal mode


illegal pseudo-op

 3.13












@-----bits-----











gfxdemo.symass











aread
{$e6}]{$e6}]l{$f6}
 {$f9}


{CBM-E}ZI({$f0} {CBM-E}[
{$fb}
 s{$f7}
 {$fb}
 {$fb}
l{$f6}
{$e6}ZP{$e6}{$7b}F]F] {CBM-E}[
{$fb}
 s{$f7}
 {$fb}
 {$fb}
{$e6}]l{$f6}
I{$fa}P
{CBM-I}{CBM-*}~ {CBM-*}~ {$f9}
 B{CBM-X}lg{$f9}


y{$e6}yP{$e6}z{$60}{CBM-I}



{CBM-E}Z{$f0}.I"{$f0}# {$f0}I:{$f0}"I;{$f0}I{CBM-R}{$f0}I {$f0}HP{$e1}{SHIFT-*}

P{$e6}ZPY{$e6}{$7b}PUi{CBM-N}lf{$fb}
]{SHIFT-*}

{$60}H{CBM-E}ZIbPl{$fb}
IwPl {$fb}
IFPl{$fc}
IPl){$fc}
IpPlh{$fc}
{CBM-I}{$ed}~ {$ed}~ {$f9}
 B{CBM-X}lg{$f9}
{CBM-G}Pl{CBM-D}{$f5},2,1

lotab {CBM-R}{CBM-D} ;base addresses
,
hitab {CBM-R}{CBM-D}{CBM-N}1
m
{CBM-@}.w{CBM-A}d $a000,$a140,$a280,$a3c0
N
{CBM-S}.w{CBM-A}d $a500,$a640,$a780,$a8c0

{CBM-U}.w{CBM-A}d $aa00,$ab40,$ac80,$adc0
{CBM-A}
B.w{CBM-A}d $af00,$b040,$b180,$b2c0
Q
L.w{CBM-A}d $b400,$b540,$b680,$b7c0
{$f2}
V.w{CBM-A}d $b900,$ba40,$bb80,$bcc0
 .w{CBM-A}

 {$f9}
 s{$f7}


rHrl{CBM-D}{$f5}
{CBM-G}w8{$e9}
w{CBM-A}FxE-{CBM-G}x{$e5}.{CBM-A}
{CBM-I}~ ~ {$f9}
 B{CBM-X}lg{$f9}
{CBM-G}wIr{CBM-G}xI

s {SHIFT-POUND}

wP{$fb}{CBM-@}]{CBM-E}ZwP{$f8}{$60}

{CBM-E}ZIj{$f0}IbP !{$f0}  {$f0} {$f9}
{SHIFT-POUND}Ps {$f9}
{SHIFT-POUND}Pl {$f9}
P{SHIFT-POUND}Pc

{CBM-E}ZI#{$f0}{$e4}I({$f0} {CBM-@}]{$f0}+{$f0}({CBM-E}ZI,P"H{CBM-E}Z Ix{$f0}H{CBM-E}[I{$fa}{$f0}{CBM-@}]] s{$f7}
{$e6}]{$e6}]

l
{$f7}
 s{$f7}
{$f0}{CBM-Q}{SHIFT-POUND}Eyy{$e6}zl{CBM-D}{$f5}
 {$f9}
 {$f9}
 s{$f7}
yz{$60}H{CBM-E}Z&{SHIFT-POUND}
txa{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cpx{$ec}{$fa}{$fa}{$e4}{$fa}{$fa}{$fa} {$fa}{$fa}jmplL{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}tax{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-N}{$fa}{$fa}{$fa}iny{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}H{$fa}{$fa}{$fa}sty{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-A}a


{$fa}{$fa}dey{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}dex{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}J{$fa}{$fa}{$fa}stx{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}sbc{$ed}{$fd}{$f9}{$e5}{$f5}{$fa}{$fa}{$e9}{$e1}{$f1}bit,{$fa}{$fa}${$fa}{$fa}{$fa}{$fa}{$fa}{$fa}brk{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}

{$fa}{$fa}{$fa}bvcp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bvsP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cld{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}cli{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}x{$fa}{$fa}{$fa}clv{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-U}{$fa}{$fa}{$fa}cpyL{$fa}{$fa}D{$fa}{$fa}{$fa}{SHIFT-*}{$fa}{$fa}inx{$fa}
0e
{$fa}
r7 {CBM-R}$10
r8 {CBM-R}$12
$r9 {CBM-R}$14
*;
6"{CBM-D}{CBM-R}$c000
c'jmp demo
s,;jump table
D6bm jmp ibm
Y@bmoff jmp ibmoff
jbm jmp ibm
ttx jmp itx
{CBM-S}^plot jmp iplot
AHdraw jmp xdraw
GR;
{$e1}{$7c}bitab {CBM-R}{CBM-D} ;pixel masks


.byte 128,64,32,16,8,4
{CBM-G}B8{$e9}
B{CBM-A}FCEw{CBM-G}C{$e5}x{CBM-A}{CBM-G}P{CBM-G}y{CBM-+}z{$60}{CBM-I}{CBM-U}~ {CBM-U}~ {$f9}
 B{CBM-X}lg{$f9}


{CBM-E}B{$f0}QZPMH{SHIFT-*}{$f3}D&PD {CBM-E}B{CBM-N}{CBM-E}B{$60}{CBM-G}9{CBM-G}: {CBM-+} I{CBM-+}lT{CBM-@}{CBM-G}nZ{CBM-G}o{$7b}

{CBM-E}ZnH{CBM-E}Zo{$f0}H{CBM-E}Z9H{CBM-E}Z:{CBM-G}ZIZ{$e6}{$7b}{$60}{CBM-@}]H,{CBM-@}]EZZ{$e6}{$7b}l&{$fb}
&'

{CBM-E}&{$f0} R~HP{$f6}{$60} {CBM-E}[
{$fb}
 {$f9}
 s{$f7}
8{$e9}{CBM-A}J8{$e5}y&{$e5}z{CBM-N}{CBM-G}&II

{$f0}
{CBM-I}J~ J~ {$f9}
 B{CBM-X}lg{$f9}
{CBM-G}& {$fb}
l{$f6}
{$e6}Z
n"
 "year :";t1:t1{CBM-E}99{CBM-M}800
.*"month:";t2:t2{CBM-E}12{CBM-M}810
j4"day  :";t3:t3{CBM-E}31{CBM-M}820
F>"hour :";t4:t4{CBM-E}23{CBM-M}830
h"min. :";t5:t5{CBM-E}59{CBM-M}840
Fr"file:";f$:"date:"t1;"/";t2;"/";t3;"  time:";t4;":";t5:198,0
\"do you wish to change info (y/n) ?"


2061


{CBM-G}7({CBM-G}8){CBM-G}-&{CBM-G}.'
{CBM-G}&PF'F&{CBM-E}&I{CBM-A}oh{CBM-G}&PF'F&{CBM-E}&I2{CBM-N}{CBM-G}&PF'F&{CBM-E}&E7*E8{CBM-N}HP{CBM-G}(PF)F(({CBM-G}*
IP{CBM-G}*h{CBM-G}(PF)F(H({CBM-T}I{$7f}P{$ed}{SHIFT-POUND}l{CBM-C}{CBM-G}({CBM-X}7{CBM-G}){CBM-V}8 C{CBM-+}{SHIFT-POUND}~:l{CBM-C}{$7f}{SHIFT-POUND}

{CBM-I}:~ :~ {$f9}
{CBM-+}:{$e8}PlT{CBM-@}{CBM-I}^~ ^~ {$f9}
{CBM-G}7w{CBM-G}8x{$e6}ZP{$e6}{$7b}{CBM-G}Zpn{CBM-G}{$7b}qo x{$f9}
PlI{$f5}
 &{$fb}
PI{CBM-R}P;ln{$f6}
{CBM-I}

{CBM-K}ZI

l{$f6}
{SHIFT-POUND}

{$60} {$f9}
^

{CBM-E}ZI,{$f0}HD^P{$f5}{CBM-G}{$f0}3]H{CBM-G}^^8{$e5}^^{CBM-A}{SHIFT-POUND}

^ s{$f7}
 {$fb}
{CBM-G}{$60}{$f0} {$fb}
{CBM-G}^{$f0}${CBM-@}]HEZZ{SHIFT-*}{$e6}{$7b}P{CBM-C}{CBM-G}{$60}{$f0}{SHIFT-POUND}IEyy{$e6}zD^P{CBM-P}l{$fb}
 {$f9}
 {CBM-E}ZI"{$f0}{CBM-+}{$f0}^ {$fb}
{CBM-@}^HD]P{$ea}l{$fb}
{$e6}yP{$f4}{$e6}zP{$f0}{CBM-G}PlI{$f5}
 {$f9}
{CBM-I}{$7c}~ {$7c}~ {$f9}
{CBM-G}y9{CBM-G}z: B{CBM-X}l{CBM-S}{CBM-M}{CBM-G}y){$f0}{CBM-G}{$f0}{SHIFT-POUND}

 {$fb}
l{$fb}
{$e6}yP{$f9}{$e6}zP{$f5}lda{CBM-Z}{CBM-X}{CBM-O}{CBM-G}{CBM-J}{$fa}{$fa}{SHIFT-POUND}{CBM-K}{CBM-E}sta{$fa}





2061


{CBM-G}7({CBM-G}8){CBM-G}-&{CBM-G}.'
{CBM-G}&PF'F&{CBM-E}&I{CBM-A}oh{CBM-G}&PF'F&{CBM-E}&I2{CBM-N}{CBM-G}&PF'F&{CBM-E}&E7*E8{CBM-N}HP{CBM-G}(PF)F(({CBM-G}*
IP{CBM-G}*h{CBM-G}(PF)F(H({CBM-T}I{$7f}P{$ed}{SHIFT-POUND}l{CBM-C}{CBM-G}({CBM-X}7{CBM-G}){CBM-V}8 C{CBM-+}{SHIFT-POUND}~:l{CBM-C}{$7f}{SHIFT-POUND}

{CBM-I}:~ :~ {$f9}
{CBM-+}:{$e8}PlT{CBM-@}{CBM-I}^~ ^~ {$f9}
{CBM-G}7w{CBM-G}8x{$e6}ZP{$e6}{$7b}{CBM-G}Zpn{CBM-G}{$7b}qo x{$f9}
PlI{$f5}
 &{$fb}
PI{CBM-R}P;ln{$f6}
{CBM-I}

{CBM-K}ZI



'HHl {$f7}
HD]{$f0}
{CBM-E}ZI{CBM-N}{$f0}I{CBM-Q}P{$f1}& {$fa}{$f8}
{CBM-@}&&'l {$f7}
{SHIFT-POUND}

()*_

{CBM-E}ZI$Pl{$f8}
I"{$f0}{CBM-C}I{CBM-D}{$f0}'I{CBM-E}{$f0}I{CBM-W}{$f0}I%Pl{CBM-K}{$f8}
8{$e9}0{CBM-R}I
{CBM-A}{CBM-S}l[{$f8}
_{$e6}ZP{$e6}{$7b}F]PFH{CBM-G}y&{CBM-G}z'{CBM-G}*P{CBM-G}&({CBM-G}')lR{$f7}
I{CBM-N}P{CBM-G}&E(({CBM-G}'E){$ea}ln{$f8}
8{CBM-G}({$e5}&({CBM-G}){$e5}'){$7c}D]{$f0}{CBM-E}Z*HEZZ{$e6}{$7b}8{CBM-G}]]{$e5}]]l]{$f7}
{CBM-G}_P{CBM-G}({CBM-+}){$60}I{CBM-E}P{CBM-G}){CBM-I}

{$60}{CBM-G}({CBM-I}

{$60}H{SHIFT-POUND}

&'{CBM-E}Z8{$e9}05I

{$e9}
{CBM-R}t3
&s%(e3{CBM-N}26){CBM-R}t4
0s%(e3{CBM-N}27){CBM-R}t5
-:690:250:
3d:
jn find a dir entry
\xt{CBM-R}18:s{CBM-R}1:310
LBi{CBM-R}5{CBM-@}229{SHIFT-POUND}32
{$7e}Lg${CBM-R}"":j{CBM-R}0{CBM-@}15
Vg${CBM-R}g${CBM-N}G(s%(i{CBM-N}j)) :
Xg${CBM-R}f${CBM-M}d1{CBM-R}s%(i{CBM-Q}2):d2{CBM-R}s%(i{CBM-Q}1):e1{CBM-R}t:e2{CBM-R}s:e3{CBM-R}i{CBM-Q}3:: e3=filetype

:s%(0){CBM-W}{CBM-E}0{CBM-M}t{CBM-R}s%(0):s{CBM-R}s%(
{$fa}{$fa}{$fa}{$fa}{$fa}{$e8}{$fa}{$fa}{$fa}lsrn^{$fa}fv{$fa}j{$fa}{$fa}{$fa}nop{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$ea}{$fa}{$fa}{$fa}pha{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}h{$fa}{$fa}{$fa}php{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}pla{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}H{$fa}{$fa}{$fa}plp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}({$fa}{$fa}{$fa}rol.>{$fa}&6{$fa}*{$fa}{$fa}{$fa}r{CBM-A}

N{$7e}{$fa}FV{$fa}J{$fa}{$fa}{$fa}rti{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}@{$fa}{$fa}{$fa}sec{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}8{$fa}{$fa}{$fa}sed{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$f8}{$fa}{$fa}{$fa}sei{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}tay{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-POUND}{$fa}{$fa}{$fa}tsx{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{SHIFT-@}{$fa}{$fa}{$fa}txs{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}symass 3.13 robert huehn feb 1986



first pass.
P{$e6}{$7b}
{CBM-E}[
{$fb}
F] s{$f7}
 {$fb}
l{$f6}
{$e6}ZP{$e6}{$7b}{CBM-G}]8{$e9}{CBM-POUND}]{CBM-E}Z I,{$f0}H{CBM-E}[
{$fb}
 s{$f7}
 {$fb}
{$e6}]{$e6}]{$e6}]l{$f6}


{CBM-E}ZIjPlK{$fa}
IbP !{$f0}  {$f0}l{CBM-M}{$f9}
 {$f9}
P
 {CBM-E}[
{$fb}
l{$f6}


{CBM-E}ZI#Pl{$e2}{$f9}
I(Pl{$fa}{$f9}
I!P{$e6}ZP{$e6}{$7b}F],{SHIFT-POUND}

{$60}{CBM-I}{CBM-@}]{$f0}{$f0}{CBM-E}ZI,P]{$e8}H{CBM-E}ZIx{$f0}{$e8}^ s{$f7}
{$f0}{CBM-@}^{CBM-E}[
{$fb}
{CBM-G}( {$fb}
 {$fb}
l{CBM-X}{$fa}
{CBM-G}{$60}P{$e9}{CBM-@}^HHH{CBM-E}[I{$fa}{$f0}{$de}
{$fb}
{CBM-G}( {$fb}
{CBM-@}^{$f0}
:k$:k${CBM-R}"y"{CBM-M}790
F


      x
#X


&configure       &
x1n


1geoassembler    1
w/v


C(
geowrite        (v
x



FOO             y2


B40 SCREENpRINTER
w
/


(tEXT  sCRAP     (
y


wRONG IS wRITE
{CBM-D}P {$f7}
l{CBM-D}{$f5}
{CBM-E}ZI{CBM-R}Pl:{$f6}
 I{$f8}
l {$f6}


{CBM-E}ZI.PlA{$fb}
 _{$f6}


{CBM-G}yrH{CBM-G}zr{CBM-@}]{CBM-E}ZI {$f0}I:{$f0}l{$60}{$f5}
HEZZ{$e6}{$7b}lH{$f5}
{$e6}{CBM-I}M~ M~ {$f9}
{CBM-G}pn{CBM-G}qo x{$f9}
Pl%{$f6}
 &{$fb}
{$f0}!{CBM-I}

{CBM-K}ZI{CBM-D}P {$f7}
l{$f6}
 I{$f8}
l%{$fa}


{CBM-E}ZI.PlA{$fb}
{CBM-@}]{CBM-E}ZI {$f0}I:{$f0}lZ{$f5}
HEZZ{$e6}{$7b}l{$e2}{$f5}
{CBM-I}{$7c}~ {$7c}~ {$f9}
{CBM-G}y9{CBM-G}z: B{CBM-X}lT{CBM-@} _{$f6}
 {$f9}
 s{$f7}


rHrl{CBM-D}{$f5}

{$fa}{$fa}bneP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}beq{$f0}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cmpM{SHIFT--}YEU{$fa}{$fa}IAQjsr {$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}ldx{CBM-S}{$fa}{CBM-V}{CBM-+}{$fa}{CBM-L}{$fa}{CBM-I}{$fa}{$fa}rts{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$60}{$fa}{$fa}{$fa}ldy{CBM-D}{CBM-C}{$fa}{CBM-@}{CBM-H}{$fa}{$fa} {$fa}{$fa}bmi0{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}decN{$de}{$fa}FV{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-P}



-=9%5{$fa}{$fa})!1bcs{CBM-A}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}inc{$ee}{$fe}{$fa}{$e6}{$f6}{$fa}{$fa}{$fa}{$fa}{$fa}bcc{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}tya{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bpl{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}asl{$fa}{$fa}
{$fa}{$fa}{$fa}clc{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}adcM{$7d}YEU{$fa}{$fa}IAQe{CBM-A}

m]yeu{$fa}{$fa}iaq

D
700
N
;
4X
;  {CBM-W} {CBM-W} {CBM-W}  graphics  v1.0  {CBM-E} {CBM-E} {CBM-E}
y
; copyright 1988 by robert huehn
{$7b}
; high speed graphic routines

; jan 1988

;
{CBM-D}{CBM-N}
;zpage pseudo registers
{CBM-U}{CBM-H}
r0 {CBM-R}$02
D{CBM-V}
r1 {CBM-R}$04
PH
r2 {CBM-R}$06
{CBM--}R
r3 {CBM-R}$08
{$e8}{CBM--}
r4 {CBM-R}$0a
{$f4}{$e6}
r5 {CBM-R}$0c

{$f0}
r6 {CBM-R}$    ;up
{$f2}jbpl dr12
{$fd}tldy #7
^sec
Hlda base
Rsbc #$40
,{$7c}sta base
;lda base{CBM-N}1
fsbc #1
zdr19 sta base{CBM-N}1
J{CBM-@}dr12 ldx #0
{CBM-S}lda r        ;r{CBM-R}r{CBM-N}dx
{CBM-U}clc
Badc dx
 Lsta r
{CBM-Z}Vbcs dr16
{CBM-J} inx
{CBM-X}{$ea}sec
M{$f4}dr16 sbc dy
Z{$fe}bcs dr17
{$e2}a $dd00
{CBM-POUND}lda #$1b
{CBM-R}sta $d011
'{CBM-C}lda #$15
5Fsta $d018
=Prts
cZ;
A{$e4};clear bit map $a000{CBM-Q}bf40
M{$ee}ibm {CBM-R}{CBM-D}
X{$f8}lda #0
ldx #250
cl1 sta $9fff,x
{SHIFT-POUND}sta $a0f9,x
{CBM-O} sta $a1f3,x
I*sta $a2ed,x
Y4sta $a3e7,x
{$e9}>sta $a4e1,x
{$f9}hsta $a5d
c{CBM-R}dx
{$f4}Flsr

Psta r{CBM-N}1      ;r{CBM-R}dx{CBM-Z}2
Zlda dx
"{$e4}sta c
){$ee}r{CBM-A}
3{$f8}sta r
=lda c
h{CBM-A}a c{CBM-N}1
Ebeq dr9      ; {CBM-B}gle po{CBM-J}
T dr3 lda xi
*bmi dr4
4lsr m        ;right
{CBM-@}>bcc dr5
{CBM-Z}hr{CBM-A} m
{SHIFT-@}rlda base
E\adc #8
RFsta base
{$de}Pbcc dr5
{$ed}Zincptemp {CBM-R}r6{CBM-N}1
{$ee}Z
lda yc
{$f7}
{CBM-P} #7

sta ptemp

e{CBM-A} yc
{CBM-I}
lsr
{CBM-D}
lsr
'{CBM-L}
tax
7{SHIFT-*}
lda hitab,x
dJ
adc xc{CBM-N}1
sT
sta base{CBM-N}1
C{$de}
lda lotab,x
P{$e8}
sta base
{$7b}{$f2}
lda xc
{$fc}
{CBM-P} #7
tax
e{CBM-A} xc
{CBM-@}adc ptemp
{CBM-D}$tay
{CBM-X}.lda (base),y
L8{CBM-A}a bitab,x
{SHIFT--}bsta (
col1 sta $8bff,x
{CBM-+}sta $8cf9,x
'{CBM-A}sta $8df3,x
7{SHIFT-@}sta $8eed,x
?Ddex
lNbne col1
tXrts
z{$e2};
N{$ec};fast line draw
{$7b}{$f6}idraw {CBM-R}{CBM-D}

;passed:

x1 {CBM-R}r0
y1 {CBM-R}r1
{SHIFT-POUND}x2 {CBM-R}r2
{CBM-H}(y2 {CBM-R}r3
B2;altered:
X<dx {CBM-R}r4   ;delta x
{$ee}fdy {CBM-R}r5   ;delta y

y #7
{$f3}

lda base



sbc #$40


sta base

lda base{CBM-N}1
'(
sbc #1
;2
dr18 sta base{CBM-N}1
p<
dr8 lda (base),y
yf
{CBM-A}a m
Vp
sta (base),y ;plot (x,y)
z
dec c
D
bne dr3
N
dec c{CBM-N}1
{CBM-D}X
beq dr3      ;
{CBM-U}
dr9 rts
V
drii {CBM-R}{CBM-D}      ; {CBM-Q}1{CBM-E}slope{CBM-E}1
{$e1}
lda d1
 ,jsr draw
{$eb}6ldx x1
{$f7}@bne lp4
jdec x1{CBM-N}1
tbeq lp4
^inc x1{CBM-N}1
#H;
.Rlp5 {CBM-R}{CBM-D}
;{$7c}jsr draw
fdec y1
rbne lp5
Blpw lda 197
N{CBM-@}cmp #60
Z{CBM-S}bne lpw
{CBM-U}jsr bmoff
Blda #$37
Lsta 1
{CBM-M}Vrts
{CBM-Z} ;
{SHIFT-@}{$ea}xdraw {CBM-R}{CBM-D}
E{$f4}lda #4
Q{$fe}inc $f    ;dy{CBM-R}{CBM-L}(dy)
Radc #1
{$7c}dr2 sta dy
stx xi
)sty yi
hlda y1       ;plot (x1,y1)
q{CBM-@}{CBM-P} #7
y{CBM-S}tay
C{CBM-U}e{CBM-A} y1
KBlsr
SLlsr
{$7b}Vtax
 lda x1
{$ea}{CBM-P} #$f8
{CBM-K}{$f4}adc lotab,x
{SHIFT-@}{$fe}sta base     ; base
Jlda hitab,x
Wadc x1{CBM-N}1
{$e6}sta base{CBM-N}1
{$f1}&dex
{$ef}beq dr14
dr17 sta r   ;r{CBM-E}{CBM-R}dy, r{CBM-R}r{CBM-Q}dy
&lda xi
'0bmi dr13
8:lsr m ;right
edbcc dr14
nnr{CBM-A} m
[xlda base
FBadc #8
SLsta base
Vbcc dr14
inc base{CBM-N}1
bne dr14
{CBM-W}dr13 asl m   ;left
{SHIFT-*}bcc dr14
J{CBM-POUND}rol m
W{CBM-R}lda base
{$e2}b,x

rsta $a6d5,x

\sta $a7cf,x
)
Fsta $a8c9,x
9
Psta $a9c3,x
i
Zsta $aabd,x
y
sta $abb7,x
I
sta $acb1,x
Y
sta $adab,x

{CBM-I}sta $aea5,x

{CBM-D}sta $af9f,x
{SHIFT-POUND}
{CBM-L}sta $b099,x
{CBM-O}
{SHIFT-*}sta $b193,x
I
Jsta $b28d,x
Y
Tsta $b387,x
{$e9}
{$de}sta $b481,x
{$f9}
{$e8}sta $b base{CBM-N}1
{$f9}bne dr5
dr4 asl m    ;left
bcc dr5
&{CBM-I}rol m
3{CBM-D}lda base
>{CBM-L}sbc #7
k{SHIFT-*}sta base
wJbcs dr5
FTdec base{CBM-N}1
{$7f}{$de}dr5 lda r    ;r{CBM-R}r{CBM-N}dy
{$e8}clc
{$f2}adc dy
{$fc}sta r
{CBM-POUND}bcc dr6
{CBM-H}inc r{CBM-N}1
{SHIFT-*}dr6 sec
K$sbc dx
S.tax
{CBM-*}8lda r{CBM-N}1
{$ec}bbase),y
{$e5}lrts
{$eb}v;
~{$60}; show{CBM-Q}off demo
demo {CBM-R}{CBM-D}
lda #$36
"sta 1
.{CBM-+}jsr bm
:{CBM-A}jsr bm
f{SHIFT-@}jsr tx
qDlda #0
\Nsta x1
IXsta x1{CBM-N}1
T{$e2}sta y1
{$ec}sta x2{CBM-N}1
{$f6}lda #$9f

sta x2
{CBM-+}
lda #$63
{CBM-E}sta y2
{CBM-Y};
B(lp1 {CBM-R}{CBM-D}
O2jsr draw
Z<pxi {CBM-R}r5{CBM-N}1 ;l{CBM-Z}r flag
zyi {CBM-R}r6   ;u{CBM-Z}d flag
=Dbase {CBM-R}r7 ;base of pixel addr
vNm {CBM-R}r6{CBM-N}1  ;pixel mask
JXc {CBM-R}r8    ;count
Yr {CBM-R}r9    ;
ldx #0   ;xinc{CBM-R}right
{CBM-N}ldy #0   ;yinc{CBM-R}down
K lda x2   ;calculate dx{CBM-R}x2{CBM-Q}x1
S{CBM-N}sec
{$de}{CBM-H}sbc x1
{$e9}{CBM-V}sta dx
{$f6}H
y
{$fc}
beq dr15     ;{CBM-B}gle po{CBM-J}
{CBM-N}
sta c        ;c{CBM-R}dy
{CBM-H}
lsr
4{CBM-V}
sta r        ;r{CBM-R}dy{CBM-Z}2
dH
dr10 lda yi
qR
bmi dr11
_{CBM--}
iny ;down
J{$e6}
cpy #8
W{$f0}
bcc dr12
{$fa}
ldy #0
lda base
adc #$3f
{SHIFT-POUND}sta base
{CBM-U}"lda base{CBM-N}1
C,adc #1
P6bcc dr19
{$e5}@dr11 dey d $be00
{$ea};
${$f4};turn  bit map at $a000
0{$fe}ibm {CBM-R}{CBM-D}
>lda $dd00
i{CBM-P} #$30
u{CBM-A}a #$01
C&sta $dd00
P0lda #$3b
{$7e}:sta $d011
dlda #$38
nsta $d018
{CBM-K}xrts
{CBM-M}B;
{CBM-V}L;back {CBM-@} n{CBM-A}mal text
LVibmoff {CBM-R}{CBM-D}
Zlda $dd00
{$e5}{CBM-P} #$30
{$f1}{CBM-A}a #$03
~stlda x1
{$fa}0{CBM-P} #7
:tax
dlda bitab,x
+nsta m        ; mask
;x{CBM-A}a (base),y
lBsta (base),y
yLlda dx{CBM-N}1
EVbne dri
lda dx       ;(dx{CBM-E}{CBM-R}dy)
cmp dy
bcs dri
{CBM-@}jmp drii
H{CBM-POUND}dri {CBM-R}{CBM-D}       ;case i {CBM-Q}1{CBM-W}slope{CBM-W}1
U{CBM-R}lda dx{CBM-N}1
{$ec}{CBM-C}sta c{CBM-N}1      ;{CBM-C}sbc #7
{$ef}Fsta base
{$fc}Pbcs dr14
Zdec base{CBM-N}1
!{$e4}dr14 lda (base),y
*{$ee}{CBM-A}a m
g{$f8}sta (base),y ;plot (x,y)
q
dec c
E
bne dr10     ;
R
dr15 rts
X
;
*
;fast plot
4
iplot {CBM-R}{CBM-D}
{CBM-K}>
;passed:
{CBM-D}h
xc {CBM-R}r0
{CBM-Y}r
yc {CBM-R}r1
E\
;altered:
SF
;base {CBM-R}r7
{$e3}P
57b,x
{$f2}sta $b675,x
{$fc}sta $b76f,x
)sta $b869,x
9sta $b963,x
ista $ba5d,x
y$sta $bb57,x
I.sta $bc51,x
Y8sta $bd4b,x
bsta $be45,x
ldex
vbne cl1
{CBM-G}{$60}rts
{CBM-Q}J;
LT;set bit map colour at $8c00
X{$7e}itx {CBM-R}{CBM-D}
{$e5}lda #$bf
{$f2}ldx #250sbc dx{CBM-N}1
{$f8}lbcc dr8
vstx r        ;r{CBM-E}{CBM-R}dx,
*{$60}sta r{CBM-N}1      ;r{CBM-R}r{CBM-Q}dx
5Jlda yi
aTbmi dr7
o{$7e}iny ;down
zcpy #8
Fbcc dr8
Qldy #0
{$7e}{CBM-+}lda base
{CBM-A}adc #$3f
{SHIFT-@}sta base
{CBM-M}Dlda base{CBM-N}1
{CBM-R}Nadc #1
{CBM-B}Xbcc dr18
O{$e2}dr7 dey ;up
{SHIFT-+}{$ec}bpl dr8
{$e6}{$f6}ldldx x1
{$e2}finx
{$ed}pstx x1
{$f9}zbne lp2
Dinc x1{CBM-N}1
Nbne lp1
X;
#lp2 {CBM-R}{CBM-D}
0cpx #$3f
<bne lp1
i ldx x1{CBM-N}1
u{CBM-N}beq lp1
[{CBM-H};
F{CBM-V}lp3 {CBM-R}{CBM-D}
SHjsr draw
{$7e}Rldx y1
{CBM--}inx
{$e6}stx y1
{$f0}cpx #$c7
{CBM-N}{$fa}bne lp3
{CBM-Y}jsr draw
{CBM-X};
Hlp4 {CBM-R}{CBM-D}
S"dec xlda x2{CBM-N}1
Rsbc x1{CBM-N}1
{CBM--}sta dx{CBM-N}1
{$e6}bcs dr1
?{$f0}dex          ; dx{CBM-W}0, xinc{CBM-R}left
j{$fa}lda #1
usbc dx
{$60}sta dx
Klda #0
X"sbc dx{CBM-N}1
,sta dx{CBM-N}1
 6dr1 lda y2   ;dy{CBM-R}y2{CBM-Q}y1
{CBM-POUND}@sec
{CBM-W}jsbc y1
{CBM-B}tbcs dr2
{CBM-*}^dey          ;dy{CBM-W}0, yinc{CBM-R}up
{$f9}He{CBM-A} #$ff  of line in buffer
a{CBM-H}
:   B(x){CBM-R}58 {CBM-M} x{CBM-R}x{CBM-N}1:  210:  found a colon
{CBM-V}
:  x{CBM-R}x{CBM-N}1:  x{CBM-E}xx  250:  xx points to end of input buffer
H
:   180
MR
:   B(x){CBM-R}32 {CBM-P} bf${CBM-R}"" {CBM-M} x{CBM-R}x{CBM-N}1:  210:  skip leading spaces
{$fc}{CBM--}
:   B(x){CBM-R}34 {CBM-M} x{CBM-R}x{CBM-N}1:  220:  skip quotes~8{$60}{CBM-Z}LI{CBM-A}{$f7}{CBM-Z}TIp{$f0}Is{$f0}IuP{$e8}{$60}7
{CBM-Z}LZP
K{CBM-Z}{$7b}
L{CBM-Z}{$7c}
M{CBM-Z}{$7d}
N{$ee}Z{CBM-I}
O{$60}Y
KHPTo {$fe} [{SHIFT-*}
P{$f8} [{CBM-Z}l{CBM-O}
KK{CBM-O}
OO{CBM-O}
LL{CBM-O}
MM{CBM-O}
NN{$60}stoRpacKsqueeZcruncHsquasHcruncH
un-

{CBM-S}LJ0{CBM-O}Z0HP{$f8}HP{$f2}{CBM-O}Zh){$7f} R~HH{$f3} ing...
{$60}

 "
,0>{CBM-S}{$f0}
l
{CBM-S}L{$f0} {$f0} {$f0}

  drive, initilize after calling
0H
  routine.
r{CBM--}
 i{CBM-R}49152 {CBM-@} 49191: x: i,x:
{$7f}{$e6}
 169,   0, 133, 251, 165, 252, 170, 160
{CBM-D}{$f0}
   0,  32, 186, 255, 169,   1, 166, 251
Y{$fa}
 160,   0,  32, 189, 255,  32, 192, 255

 165, 144,  72, 165, 252,  32
Y
K{$f0}M{CBM-A}{$f1}{CBM-V}
L{$ec}WP{CBM-V}
M{$ec}XP{CBM-V}
N{$ec}YP{CBM-O}
O{CBM-I}

{$60}H{$f0}M{$f5}
LZK{$f0}Il{$f0}
 @{$60}B{CBM-D}P E{CBM-Z}90P$8H{SHIFT-*}

{SHIFT-POUND}
({$60}{CBM-D}{SHIFT-*}{$fe}E//{$e6}0
{CBM-E}/H
{$60}l {CBM-*} H x^K{$60}{CBM-Z}]_{SHIFT-POUND}{CBM-S}{SHIFT-POUND}{CBM-Z}K{$60} x8A{$ed}E{CBM-Z}]B{$ed}F'{CBM-Z}{$60}K {CBM-P}{CBM-Z}^\I{CBM-Z}_]J{CBM-Z}EA{CBM-Z}FB{CBM-Z}]{$f0}0{CBM-Z}\
;1 {CBM-M} the device is .
{$e6}
;
6{$f0}
;{CBM-POUND}e{CBM-Q}  u{CBM-B}g device 8 {CBM-A} 9
x{$fa}
;{CBM-P} drive is , the err{CBM-A} light
X;will be flashing, but just
;initialize the drive {CBM-P} all
{SHIFT-POUND};will be ok.
{CBM-P}";
{CBM-F},{CBM-D}{CBM-R}$c000
G6.opt oo
X@device {CBM-R} $fc
{$e8}jflag {CBM-R} $fb
{$fe}tlda #0: sta fl

CD{SHIFT-POUND}H{$60}{CBM-Z}FI{$60}{CBM-Z}E{CBM-D}J{SHIFT-POUND}  ,{CBM-D}I{SHIFT-POUND}P ,{CBM-D}K{SHIFT-POUND}{$f0} ,{$ee}EP{$ee}F{$60}4{CBM-G})

{CBM-+}Xx{$60}{CBM-G}{$fc}){$f0}{CBM-G}{$fb}
{CBM-+}X{CBM-E}x{$60}h{CBM-Z}HI{CBM-A}{CBM-Z}CPNDNC{CBM-Z}C
DP{$ee}HG{CBM-Z}GDH{$60}HH {CBM-T}{CBM-Z}~~{$f0} R~l {CBM-T}L{$ee}P{$ee}{$60}
































































.8{CBM-G}"{$ed}{CBM-G}#{$ed}{CBM-G}/M{CBM-G}0M{CBM-S}{CBM-D}lz
Hit any key to create the files
On unit 8,0 or RUN/STOP to abort

{SHIFT-POUND}
F {$e4}~I
{$f0}{$f9}I{$60}?spur?erse?qgrl{CBM-I}

{SHIFT-POUND}08{CBM-Z}{$f9}{$fa}h{CBM-Z}{$f9}{$fb}h{CBM-Z}{$f9}{$fc}HH{SHIFT-POUND}~{$fe}PUHHHHHH{$e8}$0{SHIFT-POUND}  {CBM-C}
{SHIFT-*}{$f0}{SHIFT-*}P{CBM-O}I {$f0}{SHIFT-POUND}, R~{CBM-O} R~H{SHIFT-*}{$e1}{$60}{$e8} P{$f5},  EI{CBM-A}{CBM-R}{CBM-N}I{CBM-Y}{SHIFT-POUND}{SHIFT-POUND}yw
{SHIFT-POUND}{SHIFT-POUND}
x

{SHIFT-POUND}
{CBM-F}{SHIFT-POUND}{CBM-C} E {$ef}HJP{$f3}{SHIFT-POUND}, {$ef}H{CBM-Z}T {$ef}{SHIFT-POUND}  {$ef}{SHIFT-POUND}{CBM-N} {CBM-U}{SHIFT-@}{CBM-O} E E E {$fa}{CBM-D}L{SHIFT-*}P{SHIFT-POUND}~Q{SHIFT-*}{$f0}
{SHIFT-*}{$f0}{SHIFT-*}P E{$60}

L
M
N
KHP{$f1}{CBM-N}{SHIFT-POUND}
{$7b}{$7c}{$7d}  8JP{$f9}JJJI{CBM-A}4I
{$f0}){CBM-POUND} 8.{$7e}.{$7f}.P{$f1}{CBM-POUND}NN{$7f}N{$7e}.{$7b}.{$7c}.{$7d}P{$eb} {$e8}P{CBM-R}NZ{$60},0{$60}lR
-
{$e6}
:   B(x){CBM-W}{CBM-E}0 {CBM-M} bf${CBM-R}bf${CBM-N}G(B(x)): x{CBM-R}x{CBM-N}1:  220
3
{$f0}
:
L
{$fa}
 bf${CBM-R}"" {CBM-M}  "enter file name: ";bf$:  no arguments
R
:

 15,8,15

 2,8,2,"0:"{CBM-N}bf${CBM-N}",s,r"
{SHIFT-POUND}
"15,x,x$
{$e5}
, x{CBM-E}19 {CBM-M}  "file name = "bf$:  "disk error"x,x$:  390
{$eb}
6:
{$f6}
@{CBM-K}#2,x$

jP
 {CBM-A}{CBM-S}L
 {CBM-N}
{CBM-A} E
{$f0} {$f0} v
 a
{CBM-I}

,{$60}{CBM-S}OP{CBM-S}PP{CBM-S}QP{SHIFT-POUND}~{$60}NQNPNO{$60}h{$ee}mMUU{$ee}VH{$60}ly
I{$fe}{$f0}{$60}{SHIFT-POUND}Mw
{SHIFT-POUND}
x
HHl{$e6}{SHIFT-POUND}{$7d}w
{SHIFT-POUND}
x
lH

 w

x
{CBM-D}N{$f0}P
{SHIFT-POUND}yw
{SHIFT-POUND}
x
{CBM-Z}{$60}{SHIFT-POUND}
{$f5}
{$ee}WXY 8{CBM-D}{CBM-Z}WW.{$ee}{$ee}{CBM-Z}I8l
;, 195, 255
3
 104,  48,   4, 169,   1, 133, 251,  96


{$fa}
 bf${CBM-R}"" {CBM-M}  "enter file name: ";bf$:  no arguments
R
:

 15,8,15

 2,8,2,"0:"{CBM-N}bf${CBM-N}",s,r"
{SHIFT-POUND}
"15,x,x$
{$e5}
, x{CBM-E}19 {CBM-M}  "file name = "bf$:  "disk error"x,x$:  390
{$eb}
6:
{$f6}
@{CBM-K}#2,x$

j{CBM-Z}]{$f0} q {CBM-P}{CBM-G})P q\{CBM-G})  q]PK{SHIFT-POUND}4{SHIFT-POUND}{CBM-Z}\K{$60}{$60} {SHIFT-@}{CBM-A}{$60}{CBM-Z}^I{CBM-Z}_J {$fc}{CBM-Z}A^{CBM-Z}B_l{CBM-S}{SHIFT-POUND}
\{CBM-D}H 8.\.]P{$f4}{CBM-Z}\P8{CBM-Z}]IP1HH{SHIFT-POUND}
OPQ{SHIFT-POUND}~{CBM-Z}LIP  8.M.NP{$f4} ( 8P{$fa}8{$60}{CBM-Z}\l^
{$fd}{$e6}{$fd}P{$e6}{$fe}{$60}{CBM-G}{$fd}I<P{CBM-G}{$fe}IP8{$60}{SHIFT-POUND}<{$fd}{SHIFT-POUND}{$fe}{$60}{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-I}
{CBM-K}{$fd}{$60}{SHIFT-POUND} EFG{SHIFT-POUND}{$fe}
{$e6}ag

^lda device: tax: ldy #0
2
Hjsr $ffba   ;setlfs
p
Rlda #1: ldx flag: ldy #0
H
{$7c}jsr $ffbd   ;setnam
{$7b}
jsr $ffc0   ;

lda $90: pha
{SHIFT-POUND}
lda device: jsr $ffc3 ;
{SHIFT-@}
{CBM-@}pla: bmi off
R
{CBM-S} lda #1: sta flag
{$de}
{CBM-U}off rts


 390
{$eb}
6:
{$f6}
@{CBM-K}#2,x$

j
)D
 parse the input buffer for a file
cN
 name following run:
wX
 by noel nyman
]
:

x{CBM-R}512 :  start of input buffer
{CBM-+}
xx{CBM-R}592:  change to 673 for c128
{$e1}
:   B(x){CBM-W}138 {CBM-P} B(x){CBM-E}0 {CBM-M} x{CBM-R}x{CBM-N}1:  160:  138=run token
{CBM-N}
:   B(x){CBM-R}0  250:  end
ib
{SHIFT--}bit $fb
{$e8}bne xd
{$f0}rts
{$f6}&;

 0xd {CBM-R}{CBM-D}
 :jmp idraw
 d.


,;jump table
D6bm jmp ibm
Y@bmoff jmp ibmoff
jbm jmp ibm
ttx jmp itx
{CBM-S}^plot jmp iplot
AHdraw jmp xdraw
GR;
{$e1}{$7c}bitab {CBM-R}{CBM-D} ;pixel masks


.byte 128,64,32,16,8,4 D
  device presence checker
8N
  by paul g sawyer
vX
  store device # in 252,
U
  sys to routine (49152),

  then peek(251). if value is
{CBM-J}
  0 then device is off,
Q
  1 then device is on.
W{CBM-N}

{$fa}{CBM-H}
  if device checked is a disk
 {CBM-V}
{$7d} x$;
t:
<^ 653,1,255:  shift key pauses, shift/lock holds
bH:
sR st{CBM-R}0  320
y{$7c}:
G  2:   15
M:
S


ta $d011
dlda #$38
nsta $d018
{CBM-K}xrts
{CBM-M}B;
{CBM-V}L;back {CBM-@} n{CBM-A}mal text
LVibmoff {CBM-R}{CBM-D}
Zlda $dd00
{$e5}{CBM-P} #$30
{$f1}{CBM-A}a #$03
~stD
 700
N
;paul g. sawyer
%X
;
8
;{CBM-A}angeville,
>
;
d
;
A
;device presence checker
{$7e}{CBM-N}
;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}(relocatable){CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
{CBM-H}
;put device # in locati 252
{CBM-X}{CBM-V}
;after calling routine,
{CBM--}H
;locati 251.  its Eue is
{$fa}R
;0 {CBM-M} the device is off, {CBM-A}
{CBM--}

D
 700
N
;paul g. sawyer
%X
;
8
;{CBM-A}angeville,
>
;
d
;
A
;device presence checker
{$7e}{CBM-N}
;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}(relocatable){CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
{CBM-H}
;put device # in locati 252
{CBM-X}{CBM-V}
;after calling routine,
{CBM--}H
;locati 251.  its Eue is
{$fa}R
;0 {CBM-M} the device is off, {CBM-A}
{CBM--}

(2063)


{SHIFT-POUND}
 P{SHIFT-POUND}
!Pld
 e
Directory for this S.D.Archive:

 %{SHIFT-POUND}= R~P{$f8}{$60}l+ {CBM-I}{$ed} /0{SHIFT-POUND}
 R~

IP{$e4}H
I{CBM-A}{CBM--}8{CBM-G}-{$e5}/{CBM-G}.{$e5}0Q

{CBM-N}H{SHIFT-POUND}" R~
 R~HJP{$f6}{SHIFT-POUND}" R~{SHIFT-POUND}  R~{CBM-G}SIP{$f5}
{CBM-I}{SHIFT--}{$7f}{$f0}JP{$f8}{CBM-X}{$7f} R~{CBM-X} R~{CBM-X} R~{SHIFT-POUND}  R~
{SHIFT-*}P{$f5}{CBM-Z}{CBM-+}{CBM-Z}{CBM-M}   bytes
{CBM-Z}#{SHIFT-POUND}
"
@b

'

{$e8}

D









{CBM-G}(
X{SHIFT-POUND}
{CBM-E}/h{SHIFT-POUND}
Hx{$60}
{CBM-O}I0P{SHIFT-*}{$f0}{SHIFT-POUND} HP{$ed}{$60}{SHIFT-POUND}{$ed}/{SHIFT-POUND}0{CBM-G}){$fe}{SHIFT-POUND}
 sPlF
N{SHIFT-POUND}{$ed}/{SHIFT-POUND}0 W
{CBM-A}p {SHIFT-*}~$0i{CBM-I} I~ M{CBM-A}?,0
 R~$03l{$7b}
 L~{SHIFT-POUND} C~{SHIFT-POUND}{$fe} E{CBM-Z}MMUP{CBM-Z}NMVP{SHIFT-POUND}o R~{SHIFT-POUND}k,{SHIFT-POUND}? R~lJ
,08{$60} L~{SHIFT-POUND} C~{CBM-G}lT{CBM-@}{CBM-I}/{SHIFT-POUND}
\J{$fa}{SHIFT-POUND}0
{SHIFT-POUND}: EIPM{$e8} EL
 q{CBM-Q}5{$fd}uy{$de}w[=hqhX-TV QMTv{$ed}=9VHUq{CBM-B}KW{$f9}

.T{CBM-X}{$ea}Q_={$7b}{CBM-V}*E; I{$7d}WV{$fd}UVEwtX4hw
064{$f1}{CBM-T}FCs{CBM-K}"L
.7{$ec}.x4v{CBM-U}{CBM-@}{CBM-B}4

gKFU{$f1}KBxh6
JT2{CBM-A}X6sM's{CBM-W}V>?U!#T1(WI{$f3}hS]
{$e8}
X{CBM-J}0h{SHIFT-@}{$f3}E!{CBM-L}X{SHIFT-+}{CBM-T}' {$7d}KTO{$fd}{CBM-Y}b{CBM-L}<b{CBM-L}Jc9{CBM-J}{$f5}{$e4}8748{CBM-J}Y{$e3}{$e4}Y{SHIFT-*} [{SHIFT-+}v{CBM-H}Cm'$0W{$7c}-{CBM-L}V

{$e8} {CBM-G}O{CBM-K}h{$e4}nb{CBM-N}{$60}\{CBM-@}&I)sHl{$f1}?Z
e{$7c}mP {CBM-+}#j
aJLbGb 9L^YNH{$ea}{CBM-B}'
$y
 G{CBM-Q}{$ed}N{CBM-U}k {CBM-POUND}{$e3}n{CBM-I}
{SHIFT-POUND}@{CBM-I}{CBM-Z}{CBM-S}
Up$9!Z {$e7}{CBM-A}
,iN{$fe}X{$f6}r{$de}A@%({$f8}A-{$e4}@VDP2
 ad{$60}
e{CBM-V}H{CBM-I}{CBM-X}jJ{$f8}{$60}?j>hsx
{SHIFT-*}

 {CBM-POUND} A {CBM-+}L{CBM-POUND}{CBM-Q})chpt{$e9}c{$fa}IJ{$f1}{CBM-Q}Hj{CBM-POUND}9$)-D #j5U*{CBM-POUND}

{CBM-A}qA

{CBM-D}p)IZ{$e6}
@{CBM-D}hiH@8{CBM-C}{CBM-@}A):9,X<Q{$e4}Z@U{$60};pA{$f3}C{$fc}{CBM-Z}f{$f8}{$fb}b{CBM-*}{CBM-POUND}{$e1}{CBM-S}{$e9} {$ee}*{$f0}{$f9}{CBM-N}6{$f6},{$fb}{$e9}*{CBM-H}:[*&9

{CBM-H}*{$f8}y{SHIFT-*} oI"Z {$ed}
{CBM-E}k{CBM-L}{SHIFT-+}9CC{CBM-P}I{CBM-Q}!{CBM-POUND}{CBM-W}0Jb"HX9a{CBM-C}O
{SHIFT-*} {CBM-Y}R:
{$f9}P h"{SHIFT-*}{CBM-A}HW{$60}: 9q{CBM-T}-{CBM-K}{CBM-B} \{$60}{$fa}{CBM-I}{CBM-A}%{CBM-F}{CBM-R}/Qa-y@ <
YIP{CBM-Z}{$ec}{$f8}H
{$fd} +{CBM-Z}A{$e6}{CBM-@}Ah{$f6}{CBM-C}{SHIFT-@}Xi\
L{$f0}{$f5}{CBM-C}{CBM-Y}AAN{$ec}{$f0}{CBM-H}n{CBM-F}#CEBJ+ 9H5
J {CBM-B}dbp{CBM-G}N{$f0}
1\U{CBM-W}{CBM-E}1{CBM--}TD{$de}{CBM-Y}{$7f}OTpS{$f8}h{$e2}{CBM-R}3{$e4}1{CBM--}U{$e4}EK{CBM-N}{CBM-H}:{$f3} S
T
1<
0K{$7b}(

1<uxE{$7c}o{CBM-A}g2BjR-{$f9}  {CBM-C}{CBM-D}{$f7}{$f0}{$eb}{SHIFT-@}L6{$e1} Nj{CBM-D}Y{SHIFT-+}z"
{CBM-C}{CBM-Z}3({$60}{CBM-K}{$f5}{CBM-I}"p{$7c}7P{$fc},{$e7}{$f4}O {CBM-A}Ip
{$f8}@
L.{CBM-+}m{$7b}{CBM-R}7UD{$f2}t{$ec}
=
z{SHIFT-*}{CBM-C}.{$60}AAgRE{$ec}e!{CBM-C}
P#&\
hby{CBM-V},L
h{$7e}H<1ea
:H


]P8{$eb}.{CBM-L}{CBM-O}'J{$ec}UQ@z8D;t
k{SHIFT-*}B{$7e}{CBM-E}E P=f\mlaH{$f0}(a{$7c}b{CBM-S}a
88E5AiX{CBM-U}{CBM-E}{$f2}j{CBM-C}a{SHIFT-POUND}
{$7c}B\Au5R'/{$e5}({$60}Jr
{CBM-@}%DC$gE{$fc}  wb19{$e6}{CBM-L}{$7b}1- {$f9};Q{CBM-Y}8
P8{$f8}[F{$60}IJ,LyE{CBM-@} d {CBM-D}[V {$60}{CBM-W}9{$e9}L

)O60L{$e4}WeI{CBM-H}F{$e6}SF92{$e5}{CBM-Z}d
LE{$f9}${CBM-L}Y

,d@{$e6}\4{$e7}H{$60}Ar:{$60}>
S.{$f8}
0{$7d}S{CBM-D}
a%{$60}

{$fb}4kX ){CBM-+}{$60}R{$eb}1{CBM-W}2{CBM-POUND}{CBM-T}&
{$ec}P;WB{CBM-K}
{CBM-+}(MC/1={CBM-R}jNd
60
0+&{CBM-R}%{CBM-A}O{CBM-E}2)J<p
603CP{CBM-I}
;{$fb}R"

6{CBM-A}>W4+{CBM-R}R{CBM-U}SX
(6{CBM-A} {CBM-R}zc({$60}g{$e1}3xhK6+J#H
cRrQy{$60}
%{$fb}h_*pG{$ed}G
(]>O{$de}{$f6}^{CBM-E}Y(

pW{SHIFT--}z{$e7}=P=,pO{CBM-X} {CBM-J}{CBM-*}G"FD{CBM-J}{$f1}{SHIFT-POUND}Hp{$ef}H{$e3}_Fp{CBM-*}@p@{SHIFT-*}#{$e1}{SHIFT-*}U<{CBM-N}>{$fa}M<F{CBM-+}JM{CBM-T}"{CBM-H}=a{CBM-W}H{CBM--}]{$e1}{SHIFT--}Y1{CBM-D}{CBM--}{CBM-Z}{CBM-W}>_b%={SHIFT-+}{$fd}]GSaN{CBM--}{$fb}{$fd}{$7b}{CBM-T}H*pb{$f8}<X)?{$ea}6pbD
pbR{CBM-S}R{$f0}%{$e4}{$ea}{$fd}d3=)pb{$60}{CBM-K}{$e4}YF{CBM-X}=
%{CBM-C}3B{CBM-T}.(1BNA{$ee}{CBM-@}%{$7c}2{CBM-H}@
{$f4}IBpb F{$e7}{CBM-U}[kD {CBM-Q}
R{CBM-W}C{CBM-G}"Z{CBM-G}{$7e}{CBM-Q}k
{SHIFT-*}&{CBM-E}{$e2}S{$fc}l{CBM-J} {$e4}UT{SHIFT--}C{CBM-E}Z{$f9}I2>{$e5}<{$60}{CBM-K}f@x{$e3}
*,Lry@hXIHf6uK%O9m{$fc}{CBM-@}{CBM--}tSMp{$e3}2
 AG{$ed}WDC<:O.{$f2}{$f2}2J<{CBM-S}
{CBM-E}@B^?{SHIFT-*}{$ec}2T#:$AA{$ed}{CBM-D}{$e5}2{$e5}u {$e1}({CBM-S}nZV{$f8}-5VH!g {$e1}DA=k{SHIFT-+} Ira{CBM-K}{SHIFT--}{$7c},{CBM-K}YR
H8[g{CBM-J}!m{CBM-S}F{CBM-POUND} $tEO{$e7}6{CBM-L}<%<TG
@H{CBM-U}{CBM-POUND}D{$e6}T{SHIFT-+}c{$e1}35{CBM-L}l {$e3}
{$7b}{$fb}6k{$ed}5{$7b}SVxS{$7b}Ng/P>XT{CBM-C}U{CBM-L}x'gCkV{CBM-H}{$fa}X
>XVnK5
VA7X{CBM-Q}E0VYCiH{$eb}8>X7{$f8}>X{CBM-Y}9{$ea}c1
{CBM-D}HTVJPzf){CBM-POUND}*{CBM-D}
>{$f8}vx{CBM-U}{CBM-M}Nq{CBM-O}Z{$7b}D{$f7}{CBM-B}$_~YC {CBM-O}{CBM-Z}rLhYI{$e9} 2{$f8}<W
{$e2} U@I{CBM-L}{CBM-Y}9+7XP+K]B1x{$ed}6[{$f1}J>{$f6}IACO{$e7}{CBM-POUND}hw
{CBM-@}{$f7}t{$e7}wB{$f4}
{CBM-POUND}dt{CBM-E}{CBM-F}65{CBM-POUND}z{CBM-F}-{CBM-M}c;@DYC/@T{$f0}VQdU@{$fc}
@qsR"{CBM-L}[{$ee}^&2EyI{$f9}Ten00

{CBM-J}tryDh{SHIFT-*}pl
{CBM-R}(@H ({CBM-T}{CBM-T}{$e2}Nda39x> @{CBM-W}Txm{CBM-J}sNFUj{CBM-O}{CBM-POUND}K6P{$ec}{CBM-H}{SHIFT--}{CBM-@}'Q){$de}m

@4Gy
P{$7c}P4MB{CBM-POUND}Ee{CBM-POUND}
U D0A({$f6}I{CBM-+}{$e2}?,H!(2{SHIFT-*}

@ P(a{CBM-T}Hw{$ec}[ Ile{$f3}D
{CBM--}DCX*RlM{$ef}\{$f3}2{CBM-K}{$e9}
B  8{$f8}@@ApC{$e8}R#J{$f6}:{$fa}
{CBM-A}4HSl{$fc}{CBM-C}#L{CBM-V}
{$e4} {CBM-Z}{$f3}{CBM-+}j$j8@ bh "TH3o{$7b}K9{$e2}zj{CBM-@}{CBM-POUND}
{SHIFT-*}8 Fp{$f9}C)
Q'{$f2}{$e1}

 nH{CBM-N}%A{SHIFT-POUND}-H{$f1}:{CBM-O}{CBM-Y}0
e
+m{$e4}{$7b}O{$60}Z{$f2}Ae;{CBM-M}" mD{CBM-L}R{$e8}
:{CBM-U}{CBM-R}Oc0 g{$e4}{CBM-POUND}7{$f2}s$y{CBM-U}x{CBM-U}ef&T
:XEWH)[{CBM-I}ZB;{CBM-POUND}{CBM-U}){$f1}{CBM-POUND}u{CBM-E}{CBM-S}{$f9}:{$f8}{$f8}{$ed} {CBM-Q}

{$60}
 tdoG{CBM-R}E-WF{$7d}<zz<[F{CBM-C}
{CBM-A}
$h{$fc}r{CBM-U}_X*?K{CBM-A}C%H
{CBM-A}{CBM-Z}%$
D@HL.P{$ed}
{$f4}{SHIFT-*}
h{SHIFT-*}4{$f2}O{CBM-B}CNC:?>oQLJ@8NC
{CBM--}N{SHIFT-+}?{$f3}h{$f5}{$e6}{$f1}{CBM-P}){CBM-@}
Ko{$eb}v
{$fc}
 L'92bQDR{CBM-V}{$ee}U
) {$e7}
{$ec}&%JZn{$e3}<{CBM-POUND}) NC{CBM-Y}{CBM-I}\,RJ{$f3}B{CBM-A}{CBM-N}{CBM-J}
) {$ea}A{CBM-F}NrF0D
j{CBM-+}NGR0cia9F{CBM-S}{$f3}+{$f1}K"{CBM-POUND}l{CBM-V}{$f8}*
{SHIFT-*}(VV6{CBM-F}nQ{CBM-U}m{$fe}@V

{SHIFT-*}NQ{CBM-K}Lvk{$7b}N"
HD&*B
{$de}
{$7c})H{$ec}{CBM-C}X{CBM-+}~V!Z{CBM-K}v{$de}>
b#{CBM-U}C{$f9}f
 P%a{SHIFT-*}!>T<${CBM-U}[cE{$e4}{$ee}z


{$f0}H{$f1}{CBM--}A#(jjQhD{CBM-@}{CBM-G} rc{$f9}<RH0Bg{CBM-V} OV2"R/Q{CBM-X}{$ea}N{$f7}
E{$e4}{CBM-N}G IFR.PF
{CBM-L}ga2B{$7f}!a{$e6}SB{$f8}ODR{CBM-T}td qeHbP{$e4}.{$fb}{CBM-Z}gi!a)PrV{CBM-P}{$e9}K)$WE
{SHIFT-*}{CBM-T},Ab{CBM-G}CfTpfF{$e1}(
{$f0}XtX{CBM-E}p
{$e4} Lq{CBM-POUND}@
tUwJeBO"%!

{$7b}$6{$f0}{$e4}
@{$60}
A1{$60}rI{$fb}~Sj{CBM-V}IH{CBM-W}{CBM-I}PK{$f6}{$ee}0Ns>{CBM-C}6{CBM-POUND}{CBM-V}SH1)P{CBM-POUND}0sIx({CBM-R}y{CBM-POUND}{CBM-POUND}k{$e8}{CBM-N}{CBM-@}wR{CBM-POUND}P$k*B+>{CBM-F}A#+hXHtG{CBM-A}kV{CBM-J}
TB
@ &

H Z9{CBM-R}2{CBM-T}{$eb}*hLPW ?/{$f4}Hu
{CBM-N}{$e5} fM{$f0}K
HWJ(pe{SHIFT-@}{$e4}{CBM-W}"(c@5w
0p{CBM-J}s{$e1}{$f8}*p=* nY ^E38W$
{CBM-U}y{CBM-POUND}'

phuff.src{$fe}!

a@
Xr#uBDPq{CBM-+}d
{$f8}

{CBM-POUND}a{SHIFT-*} f{CBM-E}B

{$e8}Hs <Y
t@{CBM-@}!f
A{CBM-D} A7B$I

uJ
{$60}@!iR
!h
N  lTz#F@FmhpJq{CBM-F}51
2a0 {CBM-M}IMND

zV.,;&o{CBM-J}{$60}{CBM-Q}a8A{CBM-N}{CBM-G}{SHIFT-POUND}SGiCt
&5>
{SHIFT-*} {CBM-G}5Qa{$f9}{CBM-Q}tc )ajs!j2R[{SHIFT-POUND}%g&
J{CBM-W}A8B!Y q{CBM-R}MK"{CBM-*}H{$e1}47NA{CBM-P}Q{$ec}9pm
0D{CBM--}{$f5},{$ec}b!]{$ec}{$f1}{$f6}TR{CBM-M}pbnuJ{CBM-W} Tm{$f7}Qo% {$e3}AvG!{$f1}-{CBM-F}~@Fk{$fa}+{$fd}EIB6S{CBM-H}{$ef} T  5LGO{CBM-S}{$fd}
HK\n{CBM-T}"87?{CBM--}:5{CBM-G}M{CBM-S}-I{$ef}{CBM-H}5

{$f4}.{$ec}{$7e}h{$7f}rPM{$7e}Y
{CBM-V}f2{CBM-B}g{CBM-S}Q{$60}{$7e}Z,{CBM-R}J{SHIFT--}{CBM-C}G{CBM-B}e{CBM-D}{$f6} V
{$60}({$f8} K&S~Z>{$e2}Vs{CBM-@}{$e5}QL@{CBM-Y}
r
9G@VNGpe/Cp{SHIFT-*}
 V2
JhZh,U{CBM-M}b{$f4}(Ke{$e8}HbLHwN{$e8}e{CBM-Y}bLYb[{$fe}{$e3}{CBM-D}4)H!
{CBM-A}{$f8}t,
@BT{SHIFT-*}G0W
#
U^5{CBM-A}\{$f1}p>T!Ll{CBM-A}{CBM-I}9h{CBM-W}6#l{$f2}{CBM-R}6G{CBM-E}?,
!L{CBM-L}{$f6}:,h{CBM-F}Y2V{CBM-E}{$fb}PDt#B
Sm{CBM-G}i{CBM-B}{$e2}SARLDHE{CBM-L}{$f8},J+{$f6}J;mJwAJ/{CBM-S}q_{CBM-N}{CBM-J}{$e1}{CBM-B}{$f4}H7{CBM-D}qqW
b{$e5}m{$7e} $H:{$e3}{CBM-D}{$fd}@{CBM-B}RC{$60}{$e1}t
Oi{$f6}
{$f2}{$fc}s>{CBM-H}LL{$7d}auDAu{CBM-H},{CBM-A}X{CBM-U}FDQd
2N R{CBM-I}?{CBM-I}# Jy[{CBM-F};
{$ee}AJB{$e5}"Y${$f2}{$ed}{CBM-F}{CBM-I}{$e5}cd
{CBM-I}#
05PK4
n;%{CBM-I}H{$f6}
j{SHIFT-*}{SHIFT-*}{CBM-L}LRC
{$fc}NC.{$7b}Y{SHIFT-+}2{$f2}P8'0X'B Y/
dPc{$f2}{SHIFT-+}{SHIFT--}{$e3}D{$f0}3K!{CBM-M}'s"{CBM-P}{$f9}{CBM-C}{$f3}T{$e8}{CBM-F}{$e5}=N(0{CBM-X}k{$f6}{$e3}L
8 b{CBM-T}mVL

,r{$ef}*{SHIFT-POUND}4A{$e5}n~aC{CBM-POUND}C
=9{CBM-POUND}bvF{CBM-A}\  +P{$f2}
{CBM-@}HA)BR{$e3}PJh
{$60},t{$ea}T{$f0}
{SHIFT-@}N
D

{CBM-E}{CBM-E}E{CBM-G}2GuzF{CBM--}3Dr[W{$e2}R;{$60}@h{$7c}SD{SHIFT-*}R
@{$60}@x'{CBM-K}V%dr%{$7c}RD{$fd}'{$7d}&#O&3
{SHIFT-*}
{$60}@d{CBM-POUND}{CBM-V}{$fb}TF8+{CBM-X}I$,P{SHIFT-POUND}6{CBM-@}d4

{$60}bt4D[{$ea}Hd$cfI"


&Dd

{$60}bW
p&{$e4}{CBM-G}r{SHIFT-*}+{$60}ba{CBM-U}{CBM-M}O{$60}bq\
@{CBM-U}A7dpG
-{CBM-N}CHfy@{$60}bi4{CBM-@}X{CBM-J}{$f8}{CBM-Q}{CBM-S}{$ea}Q3{SHIFT-POUND}T{$eb}{CBM-H}&{CBM-G}3{$f4}
&T{CBM-M}l&{$f4}
R{CBM-D}&EZP
&l$%NC{$60}Bt4
QFf
{CBM-P}p{CBM-A}0R!{CBM-A}{CBM-S}{$e3}6T{$fe}{SHIFT-*}Y{CBM-P}H{$f9}{$f2}{CBM-B}LoF{$f9}iErN0hX?;5Cr0.
@)I{CBM-S}'>E
XB0#X{CBM-A}H8)H{$fd}]{SHIFT-*}{CBM-P}HC{$f0}0h
cwEh{$e4}
O{CBM-I})H0{$e5}JCj6\{CBM-B}$U\X\T{CBM-C}AEA{$ef}%8_Rc{$e3}{CBM-G}{$e3}8X]{CBM-*}U{CBM-W}_{CBM-Y}K{$e8}{$de}1{CBM-U}98\%(0VURU{CBM-T}/S{CBM-J}\h{$f4}
U_'W{CBM--}Cr{$eb}{$f5}{$f3}(Q{CBM-O}%{CBM-T}{CBM-*}
@;K{SHIFT-*}>{CBM--}{$e1}-{$ef}9{CBM--}Z
{CBM-Z}6({CBM-+}pC{CBM-K}T
{CBM-A}r{CBM-J}nZ0jL(R{$ed}f{CBM-A}{CBM-+}aIJ@pcBk {CBM-D}{$60}
{CBM-H}{SHIFT-@}{CBM-C}
{$e6}@@gPLe!!{CBM-N}e;M{CBM-E}-

{CBM-U}{$fa}5R{$60}P<
p
{$e5}{CBM-X}2{CBM-H}lhDE{CBM-K}h
{CBM-Y}@{SHIFT-*}dZvK{$f9}Zo{$ee}4{CBM-R}]aHa{CBM-O}2(S~H' X{SHIFT-@} {SHIFT-*}({CBM-M}{SHIFT-POUND} B{CBM-N}G1
Z[AH{$e4}R
{CBM-C}
dL{CBM-U}:fL{$7f}M#M{$f6}X{CBM-@}{$ec}#W(\nIB
,9K{CBM-M}{CBM-M}ZOdZDga
{CBM-POUND}"
8T{$de}FcE{$f0} f5!V{$f2}{$f4}@0&({CBM-U}{CBM-E}9{CBM-M}QZF
{CBM-R}V
{SHIFT-*}+ y{$7b}{CBM-X}{$fe}J]{CBM-U}{CBM-A}{CBM-O}18{CBM-Y}1w {CBM-F}{$7b}RP

HXrp8{$e5}{CBM-J}J{CBM-L}{$e5}yS
{$f8}
OZw{$f8}2(KFb% a\Pf{CBM-X}hl
2{CBM-D}D{CBM-N}Y9U@{$fb}?f={$fb}

>E{$60}O{$e4}Ep{CBM-H}K3

 cmXJX{$f8}jk{CBM-Y}u{$e8}>{CBM-H}{CBM-F}hU{$f8}{CBM-@}F
d>D {SHIFT--}{CBM-Q}_dC\D<Uc; CtLF7P{$f7}s=
>{CBM-D}DQ{$ec}P-P{CBM-K}{CBM-U} "{SHIFT-*}^{$7c}CIDv{CBM-E}*
{SHIFT-*}e"dM{$fc}{$f0}lXG{CBM-G},J
{$e5}c(pCL@&90H6>K${$fe}@pC{CBM--})5+
@pCF@pC@{CBM-+})T5{CBM--}Mp{CBM-S}Z;pC{SHIFT--}7fS{$e1}
{CBM-C}5<<{CBM-D}i6,{$e8}{CBM-D}_{CBM-B}=P{SHIFT-*}@{CBM-K}@{$f6}c]A{CBM-H}kW{$ee}{SHIFT-@}7{$fb}
(
{CBM-C}{$7c}{CBM-T}{CBM-D}){$eb}LI{CBM-L}Dcp{CBM-W}
{CBM-POUND}
{CBM-C}


HJT@Q{CBM-@}b(P
{SHIFT-+}{$e7}1I){CBM-A}
@P
{CBM-R}B{$e9}
D
{SHIFT-*}{CBM-POUND}{CBM-Y}aP
J'P
k&{$fd}{$eb}{CBM-+}{CBM--}kL&!{$60}

p{CBM-E}{$fa}K.a{$f5}G1*B?P

W*{$fd}cu
L@
dDD!{CBM-M}{$f2}WM{$60}({$f5}F{$ed}z,{$ec}K=QT{CBM-X}{$7b}{SHIFT--}.mX{$f9}{$f2}{CBM-H}{CBM-@}=XhIJ{CBM-N}{$f8}OL)RHgPFr{$f5}x"z{CBM-I}{CBM-@}GH NOX{$f2}4{CBM-T}NUP
h{$e8}+{CBM-K}SI0o{CBM-J}ta{SHIFT-@}@$lD{CBM-K}81I{CBM-W}?%I{$ed}2
P{CBM-R} C{CBM-R}&{CBM-Y}${CBM-H}{CBM-X}{$e5}
 A{CBM-M}<%ciby{CBM-R}({CBM-Z}@BycDP{$7b}2FL{SHIFT-POUND}{CBM-K}{$f7}P$<0{$60}{CBM-D}q{CBM-@}jdv{$f5}2{CBM-V}{$e2}{CBM--} v{SHIFT-*}aq{SHIFT-*}D
,5oWHDx{$fb}B
{CBM-A}2 {CBM-N}{$7b}K{CBM-S}{$e5}{$f5}XM{SHIFT-*}
{CBM-@}m{CBM-D}q{$fd}AD VDC REGISTER #.X IN .A

OLDIRQ = $FA65      ; STANDARD C'128 IRQ ROUTINE
IRQV   = $0314      ; IRQ VECTOR

TIME = $DC08        ; CIA CLOCK #1

 ORG $1300

 SEI
 LDA #<NEWIRQ
 STA IRQV
 LDA #>NEWIRQ
 STA IRQV+1
 CLI
 RTS

*=============================7Z


pobj.gen.bas{$fe}!
@AAX%ga*{$e4})! "{$f2}h%l
B X dsxQ{$e2}{$e1}b9D" oj{$e4}'iHB;4JB#vlI(3,{$f0}
!@$ ph{$e1}H
bl*uShsoI
d#{CBM-POUND}@9Qd  \njRh
{$60}

{CBM-+}2<I4{$e9}Is{$ef}cH{$e4}g!i({SHIFT-@}{$f8}{$e6}@{CBM-POUND}P{$de}-
{$e4}#{SHIFT-*}{CBM-Z}0 b{CBM-@}*)
 {$f5} Qh+rJ1AE
tZ5{CBM-+}{CBM-F}vA {$60}@DU{CBM-V}{CBM-O}6G{CBM-X}{CBM-Q}GE

$0!W0{$ec}{$7b}u{$fb}{$ed}{CBM-@}

P8P!V1{$ef}b{CBM-N}x{CBM-J}g(0A{CBM-H}Ka{SHIFT-POUND}v/3{$ea}$Z<+o{$eb}{SHIFT-*}MFM{$e3}^r-{CBM-+}Z{CBM-Y}E5{$f9}{CBM-W}{$f5}(C
w{SHIFT-*}d{SHIFT-*}{CBM-L}GF{CBM-V}z{CBM-U}{CBM-B}{CBM-V}B

T{$60}!J{CBM-P}{CBM-N}{$f5}{$ea}
{$de}{CBM-S}{CBM-Q}mrVIgnT#J{CBM-C}s{$e6}Xj(I{$f6}W79"x{CBM-POUND}{CBM-U}EN{$f6}{CBM-D}fvf
{CBM-+}{CBM-+}]>{CBM-D}{$e4}){CBM-+}
{$7c}
=gXA{$f2}{$fb}+C{$f3} 6Fn{$f5}d{CBM-D}jcq{CBM-C}

%{$60}CA{$7b}{SHIFT-@}"o,
                    ; 80-COLUMNS IF 128

WRITDAT = $CDCA     ; .A => WRITE .A TO VDC DATA REGISTER (31)
WRITREG = WRITDAT+2 ; .A, .X => WRITE .A TO VDC REGISTER #.X

RDDAT = $CDD8       ; READ VDC DATA (31) REGISTER IN .A
RDREG = RDDAT+2     ; .X => RE{$f8}U[{$e3}.rOZ{$f7}X{CBM-D}{CBM-J}Nd0dTf={CBM-F}vg{$e3}B9{$f8}{CBM-Z}to70$UE{$f1}{SHIFT-+}{$7f}={$f9}{$ed}{SHIFT--}L@{CBM-L}N0{$e4}4QQYN{$7d}{$f2}j{$eb}Go{$ee}

,Ek6{CBM-H}C
{$ed}{SHIFT-+}BT{CBM-A}4{CBM-H}{$e3}iJ_{$7d}{$7d}+{$f9}D{$fe}
{$60},]G{CBM-J}Zi{CBM-*}O{$7d}B-{$ed}{$7f}(
{$e4}
KH${CBM-X}=Y{$f1}{SHIFT-*}]&{CBM-T}{$fc}{$fd}Ut
{SHIFT-*}2WT0{CBM-S}W{$eb};FqK?{CBM-C}KFvs{$7c}{$60}0{$ec}{CBM-*}z_{CBM-L}{CBM-P}D{SHIFT-*}Qt{CBM-W}oB?{$ef}{$f2}{$f3}{SHIFT-POUND}V{CBM-K}
8{CBM--}8ju:M
K: {$60}
{$7c}7{CBM-W}{$7b}Kv'DHF {CBM-K}
P

{CBM-POUND}{SHIFT-*}{$e8}{$fa}Z{$e6}N5{SHIFT-*}sL{$f0}u{$f8}'Q2{$fa}{$fa}6{$ee}{$fc}DQbe{SHIFT--}GY"{CBM-Z}XA(
@D{CBM-I}JQ{CBM-I}GS{CBM-R}i?UC
b{$f2}(*%$Ar{SHIFT-POUND}lr


>vjT[nbF{SHIFT-POUND}uH
!{CBM-@}jHfe{CBM-E}{CBM-X}{CBM-E}>
']{CBM-N}PT{$fc}DBT{SHIFT-POUND}*@g{$ea}{$f3}{CBM-S}f{CBM-U}{$f6}{CBM-I}{CBM--}{SHIFT-POUND}=
{SHIFT-*}2pj{CBM-U}{CBM-G}
I{CBM-T}d{CBM-N}9
l{CBM-N}8oQr3{SHIFT-@}?p=P{CBM-POUND}{CBM-G}lAJP,Ra{$f2}D_F]{CBM-M}Fb8u{CBM-+};!y{CBM-F}{$f3}K{CBM-R}{$f2}
@k{CBM-+}{CBM-O}h{CBM-M}q@El

{$f8}{CBM-G}j48{$e5}2Yb{CBM-A}AO_QL
{$60}-P{CBM-E}{$ea}tY{$fe}({$f5}QP+"{$fd}c{CBM-A}{$ea}{CBM-+}{CBM--}kL&{$f1}5(D{CBM-R}6 {$e2}

-0{CBM-E}{$fe}S?t:T{CBM-O}{CBM-R}{$fe}2bb8J0_GN{CBM-H}{CBM-S}{$f8}
$-{CBM-A}
Q{$fd}c{CBM-A}P;6{$fd}cPP[?{$fd}cFAP[
{$fd};6T{$e9}j5e
{$f2}9{CBM-POUND}{$60};T){$e3}{CBM-U}&K*{$f3}'P{CBM-Z}P{CBM-B}{$f9}P{$f0}{CBM-E}{$e7}:_{$f5}{$e2}b{$e2} {CBM-T}{$e3}8/

P
',z:{CBM-L}{$f1}-{CBM-K}{$f5}{CBM-F}?P'zz

P'3zZBFPq2BP{SHIFT-@}@{CBM-R}{SHIFT-@}{CBM-A}AA{CBM-G}t
 H IErcy{$e3}{CBM-J} {CBM-C}M

P{CBM-L}{$e6}YL{CBM-H}-{CBM-N}{CBM-G}KO
@
(H{CBM-G}{CBM-D}S{$e9}ZHZ-{$f4}A

W @{CBM-N}CQQ#{$e3}I{CBM-B}f{CBM-G}
(
tzy{CBM-+}H4:l{CBM-G}e @{CBM-P}yMqD5M^uQA
{$f1}x{$f4}5/*{CBM-O}r{$ec}{$e8})rT@s/=P{$f6}S&{CBM-G},{CBM-O}V{CBM-K}t{$f8}{$f4}{CBM-R}F-kI{$f5}!{CBM-K}@ex{SHIFT-+}kQ{$ef}{$e4}{$fa}Q{$f8}){$7b}PPt$'N ZN{SHIFT-*} {$7e}
W4{$fa}A>p5{CBM-L} {CBM-S}Y{CBM-D}C {CBM-K}{CBM-@}{$f3}{$f2}s^B{$ea}{SHIFT--}{CBM-E}+D{CBM-O}j
8==
* PUT 2 BCD DIGITS (.A) ON     *
* CURRENT SCREEN AT CURRENT    *
*       POSITION               *
*===============================

PRINTIT TAY
        LSR
        LSR
        LSR
        LSR
        ORA #"0"    ; DOUBLE QUOTES HERE INDICATES MOST
  2
{$f2}j{SHIFT-POUND}>mMq
p@
 C{CBM-Q}Qp>87
 -UOX{CBM-U}){CBM-O}{$e6}z{CBM-L}FRN{SHIFT--}{$fb}(H<Cu?@-
{$60}$&b$Ey*3{$e4}A-){CBM--}aN{CBM-S}{$f9}{CBM-POUND} {$7f}
[{CBM-K}{$7c}{CBM-T}(%P"{$f2}{CBM-U}{$60}PR#vx{$e1}$
B
{$7d}@R0AbB4{$e1}@
{CBM-M}0B$Li{SHIFT-+}',I$G{$ec}0{SHIFT-*}5<E{CBM-D}i{SHIFT-*}T{CBM-I})bbPZSYVP

p{$fc}{CBM-@}D{CBM-+}Yc
{CBM-Z}){CBM-G}#LG{$7c}{$7e}PB

{CBM-I}@hYL&lJK{CBM-L}{$e5}wbY{CBM-@}p
PQ
4{$e1}LL=P{CBM-O}%Rl{$7b}O{CBM-U}C{$ed}{$eb}pA{CBM-POUND}6n{$e8}S9B{$e9}{$f8}{$e2}OSD
{$60}X{CBM-U};B28{$ed}{CBM-Z}T{$e5};kG{CBM-Q}{$ea}{$7c}\H{CBM-D}sVQ*{CBM-H}L
3
@{CBM-J}Y&{$e7}{CBM-B}y{$f3}&

{SHIFT-*}y{SHIFT-+}{CBM-C}{CBM-Q}{$ea};{$f7}{CBM-U}{CBM-E}.

D {CBM-N}#{CBM-T} {CBM-K}]{CBM-W}
@
a@P Kk{CBM-P}-{SHIFT--}q=p{CBM-E}u:O)QP:
.{CBM-A} :F{$fc}{CBM-Z}  _ {SHIFT-@}{CBM-S}{CBM-O}Q{CBM-B}{CBM-E}){CBM-A}0F d({$e9}{CBM-Z}{$fe}{$fa}Y{$f0}rf/
@6 r{CBM-N}33m;{CBM-K}6F.{$e8}d{$f4}I%tL{$e7}{$7d}{$f0}{$ed}({CBM-R}b+V0N$paU{CBM-S}09U6{$fd}&>kD{CBM-W}{CBM-S}{CBM-B}:paMWe
{$e5})T{$7d}{$e3}{$f5}^{$eb}NJTu{CBM-G}4{CBM-H}
%paC;WQP{$60}GRd
TXSD4
C^_{$ec}1b{$f5}{$fe}{$fb} (H{CBM-I}
p>{CBM-H}<D#&A{$e3}{CBM-W}l{$e2}4{CBM-H}{$fd}B0paGD{$e5}.ApaW)i{$fa},ApaO{$7c}{CBM-L}ApA{SHIFT-*}{SHIFT-*}pAH_ {$fd})
5{$fd}{$fd}{$7d}{$fc}{$e3}U~{SHIFT-+}{CBM-B}pCD~{$f6}{$fe}{CBM-*}ziD
TXSX5lM{$fd}#t{$ef}O{CBM-O}{CBM-N}.{SHIFT-*}{CBM-I}0{CBM-D}p!{CBM-P}/{CBM-H}{CBM-M}{$fb}4d{$de}
@
3 !{$60}Xb'U?MF# 6{$e7}H0Zt{CBM-O}T{SHIFT--}{$ed}8-q

P<(B&~
Ja{CBM-M}{$e6}W y{$7d}^su{CBM-Q}oQUL{$f6}{CBM-J}D
 {$f0} !X{CBM-I}K{CBM-U}k{$fb}{$e6}{$60}ms{SHIFT-*}c,{$ee}
KbTF{CBM-B} X,J{$f1}


{$ea}()ad{CBM--}c{$e4}{$f8}e{$f5} {CBM-H}{CBM-Z}{CBM-V}{$e4}V/Zi@Lm

X
&q{CBM-W}^{CBM-D}Q-Y19QITXE{CBM-*}{$eb}n{$f5}{CBM-M}{$e2}VK
C@g{CBM-X}qH/{$f1}n{CBM-Q}G  (Lfu>m==Z={CBM-R}{CBM-Y}P
~{CBM-I}{CBM-V}s5

cd{CBM-P}ZIYH

P1${$e5}HT%{CBM-W}{CBM-O})*irx
1{$e4}D)Rj{CBM-L}{$e4}GFX;cy^j{$e1}




























































































































































































@2P1{$fd}xA{$ef}{CBM-E}I{CBM-Z}{CBM--}=l({$f1}{CBM-I}{$e2}{$fd}{CBM-A}J
eYpj"XM8 *P
{$ef}"9R{CBM-B}#D%vJeP4{CBM-D}{CBM-I}P{$fc}A,&2{$7e} P~${CBM-I}{CBM-G}C_<"XM8 J
eP4,SE&{$7e}?P2
y{$7f}{$e8}HHr J?F1@c&1{$7e}@)PG{$e5}{$ee}9{CBM-POUND}{$60};#D%vj{SHIFT-*}


























































{SHIFT-@}{$e1}X7{CBM-Y}{CBM-R}J{CBM-K}L ds*F@cg/;{$f1}gjB4{$f5}R{CBM-N}{CBM-A}{$fc}HZ=ZxA
FF1hN{CBM-Q}{$e8}{$e3}NN{CBM-J}{CBM-E}t AA'$Z%k

{$e8}8H{CBM-F}CY{$e2}Y%{$f6}S{CBM-@}zQ{SHIFT-POUND}{CBM-K}

Q {$e3}{CBM-N}{CBM-P}{SHIFT-POUND}
Q{CBM-J}{CBM-POUND}{$f8}QL:{CBM-G}
 T{CBM-C}T{$de}i{$e2}{SHIFT-@} OT{SHIFT-POUND}@{$ef}?{$fe}{SHIFT-@}+C{CBM-E}.{CBM-Q}>{$fd}{CBM-H}d9  {CBM-K}HFvF4-KUQ:{CBM-V}{CBM-@}MJf{CBM-+}KMYb:{CBM-P}0J"6
P{CBM-L}-~{CBM-+}U{$7f}P-{CBM-J}{$eb}
u{$60}L{CBM-W}h{CBM-V}{CBM-L}{CBM-POUND}{$fd}uL%ac0{SHIFT-*}{CBM-A}K{$e1}{$f7}{SHIFT--}]{CBM-A}{$f3}V{SHIFT-POUND}X
{$f5}{SHIFT-*}
W{CBM-L}A********************************
*  CLOCK PROGRAM FOR C'128     *
*  WORKS IN 40 OR 80-COLUMN    *
*         TEXT MODE.           *
*  (C) 1989 JOEL M. RUBIN      *
********************************

COL40_80 = $D7      ; CURRENT SCREEN IS 40-COLUMNS IF 0-Dfy{SHIFT-*}\\{CBM-I}{CBM-M}Pv{$7f}
c
m@u^{$fe}y)_q{CBM-I}0D{$7b}{CBM-A}V^M)Uz/
L
iQUD{CBM-U}-{$f5}&r{$7f}{$f1}04p[SU{CBM-J}
3
{$7c}]MM65u{CBM-J}{SHIFT-+}{$7c}{$fb}YBS{CBM-G}%{$e4}PPs{$f6}0{CBM-N}yo{$e5}ivUs3v
 4b{$ed}tU-{CBM-X}+_Wj]{SHIFT-*}{CBM--}P {CBM-X}@
PHx{CBM-G}{CBM-G}{CBM-L}0X{CBM-E}{SHIFT-POUND}7 T*{$ed}%;
TzW0XHeyC:nGiFU{$7d}c{CBM-X}t
[@C0IDUn1{$7d}={$7d}v[/{CBM-A}t,Uv{SHIFT--}{$f5}
{$7b}/sEqJ{$f3},w0
{CBM-A}
K$BQTUIt]0A8vIIL!0
@0
      STA $40B
      LDA #"M"
      STA $40C
      BNE ENDIT
N{CBM-J}{CBM-E}t AA'$Z%k

{$e8}8H{CBM-F}CY{$e2}Y%{$f6}S{CBM-@}zQ{SHIFT-POUND}{CBM-K}

Q {$e3}{CBM-N}{CBM-P}{SHIFT-POUND}
Q{CBM-J}{CBM-POUND}{$f8}QL:{CBM-G}
 T{CBM-C}T{$de}i{$e2}{SHIFT-@} OT{SHIFT-POUND}@{$ef}?{$fe}{SHIFT-@}+C{CBM-E}.{CBM-Q}>{$fd}{CBM-H}d9  {CBM-K}HFvF4-KUQ:{CBM-V}{CBM-@}MJf{CBM-+}KMYb:{CBM-P}0J"6
P{CBM-L}-~{CBM-+}U{$7f}P-{CBM-J}{$eb}
u{$60}L{CBM-W}h{CBM-V}{CBM-L}{CBM-POUND}{$fd}uL%ac0{SHIFT-*}{CBM-A}K{$e1}{$f7}{SHIFT--}]{CBM-A}{$f3}V{SHIFT-POUND}X
{$f5}{SHIFT-*}
W{CBM-L}A              *
* DATUM IN .A                  *
* FOR 40-COLUMN SCREEN,        *
*  SCREEN POSITION IN .X       *
*===============================

WRITIT PHA
       LDA COL40_80
       BPL :40

       PLA
       JMP WRITDAT

:40    PLA
       STA $400,
JSR WRITIT
      PLA           ; GET BACK AM/PM FLAG
      BMI PM
      LDA #"A"&"?"
      HEX 2C        ; SKIP NEXT TWO BYTES
PM    LDA #"P"&"?"
      JSR WRITIT
      LDA #"M"&"?"
      JSR WRITIT

      LDA COL40_80
      BPL FIN40

*=================

(2063)


{SHIFT-POUND}
 P{SHIFT-POUND}
!Pld
 e
Directory for this S.D.Archive:

 %{SHIFT-POUND}= R~P{$f8}{$60}l+ {CBM-I}{$ed} /0{SHIFT-POUND}
 R~

IP{$e4}H
I{CBM-A}{CBM--}8{CBM-G}-{$e5}/{CBM-G}.{$e5}0Q

{CBM-N}H{SHIFT-POUND}" R~
 R~HJP{$f6}{SHIFT-POUND}" R~{SHIFT-POUND}  R~{CBM-G}SIP{$f5}
{CBM-I}{SHIFT--}{$7f}{$f0}JP{$f8}{CBM-X}{$7f} R~{CBM-X} R~{CBM-X} R~{SHIFT-POUND}  R~
{SHIFT-*}P{$f5}{CBM-Z}{CBM-+}{CBM-Z}{CBM-M}   bytes
{CBM-Z}#{SHIFT-POUND}
"COULD         *
* CONTAIN VDC REFERENCES IN    *
* THE FUTURE.                  *
*===============================

COL80 TSX
      LDA $107,X
      CMP #$C4
      BLT OK
      CMP #$D0
      BGE OK

      JMP OLDIRQ

*===============================
* F
A
      JSR WRITREG
      DEX
      PLA
      JSR WRITREG
ENDIT JMP OLDIRQ

*===============================
* 40 COLUMNS ONLY--FILL IN     *
* COLOR RAM WITH CURRENT       *
* CURSOR COLOR.  IF WE ARE     *
* IN LOWER/UPPER MODE, TURN    *
* THE LOWER C
@b

'

{$e8}

D









{CBM-G}(
X{SHIFT-POUND}
{CBM-E}/h{SHIFT-POUND}
Hx{$60}
{CBM-O}I0P{SHIFT-*}{$f0}{SHIFT-POUND} HP{$ed}{$60}{SHIFT-POUND}{$ed}/{SHIFT-POUND}0{CBM-G}){$fe}{SHIFT-POUND}
 sPlF
N{SHIFT-POUND}{$ed}/{SHIFT-POUND}0 W
{CBM-A}p {SHIFT-*}~$0i{CBM-I} I~ M{CBM-A}?,0
 R~$03l{$7b}
 L~{SHIFT-POUND} C~{SHIFT-POUND}{$fe} E{CBM-Z}MMUP{CBM-Z}NMVP{SHIFT-POUND}o R~{SHIFT-POUND}k,{SHIFT-POUND}? R~lJ
,08{$60} L~{SHIFT-POUND} C~{CBM-G}lT{CBM-@}{CBM-I}/{SHIFT-POUND}
\J{$fa}{SHIFT-POUND}0
{SHIFT-POUND}: EIPM{$e8} EL*===============================
* COMMON ROUTINES FOR          *
* 40 COLUMNS AND 80 COLUMNS    *
*===============================

DO40  LDX #0
      LDA TIME+3    ; HOURS + AM/PM
      PHA
      AND #$1F      ; HOURS
      JSR PRINTIT
      LDA #":"
 ~8{$60}{CBM-Z}LI{CBM-A}{$f7}{CBM-Z}TIp{$f0}Is{$f0}IuP{$e8}{$60}7
{CBM-Z}LZP
K{CBM-Z}{$7b}
L{CBM-Z}{$7c}
M{CBM-Z}{$7d}
N{$ee}Z{CBM-I}
O{$60}Y
KHPTo {$fe} [{SHIFT-*}
P{$f8} [{CBM-Z}l{CBM-O}
KK{CBM-O}
OO{CBM-O}
LL{CBM-O}
MM{CBM-O}
NN{$60}stoRpacKsqueeZcruncHsquasHcruncH
un-

{CBM-S}LJ0{CBM-O}Z0HP{$f8}HP{$f2}{CBM-O}Zh){$7f} R~HH{$f3} ing...
{$60}

 "
,0>{CBM-S}{$f0}
l
{CBM-S}L{$f0} {$f0} {$f0} X
       INX
       RTS

NEWIRQ LDA COL40_80
       BPL DO40

*===============================
* FOR 80 COLUMNS ONLY, MAKE    *
* SURE THAT WE'RE NOT DOING    *
* ANYTHING WITH THE VDC RIGHT  *
* NOW--$C400 TO $CFFF NO GOOD. *
*                          ==============
* 80 COLUMNS ONLY--FILL IN     *
* VDC ATTRIBUTE RAM WITH THE   *
* CURRENT COLOR.               *
*===============================

      LDA #8
      LDX #$12
      JSR WRITREG
      INX
      LDA #0
      JSR WRITREG
      LDA $F1
     .8{CBM-G}"{$ed}{CBM-G}#{$ed}{CBM-G}/M{CBM-G}0M{CBM-S}{CBM-D}lz
Hit any key to create the files
On unit 8,0 or RUN/STOP to abort

{SHIFT-POUND}
F {$e4}~I
{$f0}{$f9}I{$60}?spur?erse?qgrl{CBM-I}

{SHIFT-POUND}08{CBM-Z}{$f9}{$fa}h{CBM-Z}{$f9}{$fb}h{CBM-Z}{$f9}{$fc}HH{SHIFT-POUND}~{$fe}PUHHHHHH{$e8}$0{SHIFT-POUND}  {CBM-C}
{SHIFT-*}{$f0}{SHIFT-*}P{CBM-O}I {$f0}{SHIFT-POUND}, R~{CBM-O} R~H{SHIFT-*}{$e1}{$60}OR 80 COLUMNS ONLY,         *
* PUT THE VALUES OF VDC        *
* REGISTER $12 AND $13 ON      *
* THE STACK.                   *
*                              *
* SINCE WE ARE GOING TO WRITE  *
* TO THE BEGINNING OF THE      *
* 80 COLUMN SCREEN, WE ARE
ASE REVERSED      *
* "AM" OR "PM" TO "AM" OR "PM".*
*===============================

FIN40 LDX #12
      LDA $F1
:L    STA $D800,X
      DEX
      BPL :L
      LDA $A2C
      CMP #22       ; LOWER/UPPER MODE
      BNE ENDIT
      LDA $40B
      ORA #$4                  ; SIGNIFICANT BIT SET, SO REVERSED
        JSR WRITIT
        TYA
PRINT2  AND #$0F
        ORA #"0"
        JMP WRITIT

*===============================
* PUT A SCREEN VALUE AT CURRENT*
*  POSITION ON CURRENT SCREEN. *
*                     JSR WRITIT
      LDA TIME+2    ; MINUTES
      JSR PRINTIT
      LDA #":"
      JSR WRITIT
      LDA TIME+1    ; SECONDS
      JSR PRINTIT
      LDA #"."
      JSR WRITIT
      LDA TIME      ; TENTHS OF SECONDS
      JSR PRINT2
      LDA #" "
      {$e8} P{$f5},  EI{CBM-A}{CBM-R}{CBM-N}I{CBM-Y}{SHIFT-POUND}{SHIFT-POUND}yw
{SHIFT-POUND}{SHIFT-POUND}
x

{SHIFT-POUND}
{CBM-F}{SHIFT-POUND}{CBM-C} E {$ef}HJP{$f3}{SHIFT-POUND}, {$ef}H{CBM-Z}T {$ef}{SHIFT-POUND}  {$ef}{SHIFT-POUND}{CBM-N} {CBM-U}{SHIFT-@}{CBM-O} E E E {$fa}{CBM-D}L{SHIFT-*}P{SHIFT-POUND}~Q{SHIFT-*}{$f0}
{SHIFT-*}{$f0}{SHIFT-*}P E{$60}

L
M
N
KHP{$f1}{CBM-N}{SHIFT-POUND}
{$7b}{$7c}{$7d}  8JP{$f9}JJJI{CBM-A}4I
{$f0}){CBM-POUND} 8.{$7e}.{$7f}.P{$f1}{CBM-POUND}NN{$7f}N{$7e}.{$7b}.{$7c}.{$7d}P{$eb} {$e8}P{CBM-R}NZ{$60},0{$60}lR    *
* COULD PROBABLY GET AWAY WITH *
* $CD00 TO $CDFF IN BANK 15    *
* BUT THERE IS A REFERENCE TO  *
* $D600 IN $C500 PAGE.         *
*                              *
* ALSO, THERE IS A PATCH AREA  *
* AT THE END OF $CE00 PAGE     *
* TO $CFFF WHICH  AND #$F
      LDY #13
:L    JSR WRITDAT
      DEY
      BNE :L

*===============================
* 80 COLUMNS ONLY--TAKE OLD    *
* VALUES OF VDC REGISTERS      *
* $13 AND $12 OFF THE STACK.   *
*===============================

      LDX #$13
      PL

*******************************
*  CLOCK PROGRAM FOR C'128     *
*  WORKS IN 40 OR 80-COLUMN    *
*         TEXT MODE.           *
*  (C) 1989 JOEL M. RUBIN      *
********************************

COL40_80 = $D7      ; CURRENT SCREEN IS 40-COLUMNS IF 0     *
* GOING TO SET THESE REGISTERS *
* TO 0.                        *
*===============================

OK    LDX #$12
      JSR RDREG
      PHA
      LDA #0
      TAY
      JSR WRITREG
      INX
      JSR RDREG
      PHA
      TYA
      JSR WRITREG

{CBM-R}K{CBM-F};{CBM-K}{$fc}Z{CBM-J}{CBM-POUND})s[{CBM-F}{CBM-V}
;yXP{CBM-A}{$7b}X{$f4}Qd
{SHIFT-POUND}{CBM-W}:6#.PN{$7b}QUdZ{CBM-Z}{CBM-R}gD[{CBM-T}
I{$f3}WJIP{CBM-D}VKr{$f8}!{$7b}{SHIFT-*}{$e3}{SHIFT-@}!{$7e}iKVTK{CBM-I}6z{CBM-POUND}{$f0}
V{CBM-E}{$7f}PK:N R8jJ{CBM-R}{SHIFT-*}Cr{CBM-+}{CBM-N}"E{CBM-POUND}CP,{$e8}{CBM-M}{$fa}fH* 3H@8E3I{SHIFT-POUND}I9J

AD*<h fPpHp{CBM-R}{CBM-Q}Ci{CBM-W}<*yBQ{$e7}8: q{CBM-T}p{$fc} {CBM-L}{$fb}{$e3};{$7b}{CBM-W}{SHIFT-POUND}N
%09^qb${SHIFT--}F{CBM-P}W'<
Y
K{$f0}M{CBM-A}{$f1}{CBM-V}
L{$ec}WP{CBM-V}
M{$ec}XP{CBM-V}
N{$ec}YP{CBM-O}
O{CBM-I}

{$60}H{$f0}M{$f5}
LZK{$f0}Il{$f0}
 @{$60}B{CBM-D}P E{CBM-Z}90P$8H{SHIFT-*}

{SHIFT-POUND}
({$60}{CBM-D}{SHIFT-*}{$fe}E//{$e6}0
{CBM-E}/H
{$60}l {CBM-*} H x^K{$60}{CBM-Z}]_{SHIFT-POUND}{CBM-S}{SHIFT-POUND}{CBM-Z}K{$60} x8A{$ed}E{CBM-Z}]B{$ed}F'{CBM-Z}{$60}K {CBM-P}{CBM-Z}^\I{CBM-Z}_]J{CBM-Z}EA{CBM-Z}FB{CBM-Z}]{$f0}0{CBM-Z}\
Ya{CBM-R}UxF
{$e6}{CBM-E}
Z,A4WO3{$e1}{CBM-H}CB{$ea}&3eF
BHP{$eb}+<mX{CBM-H}?{CBM-G}%nf4Ra
B{$f0}{CBM-R}P(L{$7c}sG{$e4}1U{CBM-@}h{CBM-E}{$ee}B{CBM-M}:m Q{CBM-Y}K({$ea}1H{$f4}-0{SHIFT--}{$e2}6Is2U?{CBM-POUND}j%lWcfGQh* {CBM-N}*hPJ/'{SHIFT--}D{$7d}wx{$f3}{CBM-L}S*N4HBQ*3{$e4}Jj{CBM-U}RS 2't sAE$Z*v75{$e8}

*
{$de}{CBM-Z}XI{$f4}{$ec}0HT{$de}l{CBM-U}t{CBM-POUND}Lq{$de}5
{CBM-G}*{CBM--}{CBM-S}pf{CBM-G}l{$e7}0{CBM-N}{$e4}
{CBM-O}.{CBM-X}C@{CBM-L}F^#x%B{CBM-@}{CBM-J}/P0{CBM-J}$-{$7d}{SHIFT-POUND}{$e9}?{$f9}{CBM-I}Yq%l{$e1}X6JD6HRy{CBM-V}%JU{SHIFT-POUND}AB{$7b}QVP*vD9"r{$e1}I _{CBM-G}-"{CBM-P}JA)tP%{CBM-@}:{CBM-+}Ki
IY]y{CBM-J}{$f6}{$f3}{CBM-N}"{CBM-Z}R{$f2}j%H({$fa}
(w_G{CBM-O}{$e7}WHU
]{SHIFT-POUND}Xdg{$e2}!6{CBM-Z}{$f1}#{CBM-F}P{$f0}P
H-(%!_g;P#{$ee}vB{CBM-E}dk5
8#3@M{CBM-M}tixNC1{CBM-Z},r{$e8}SIu{CBM-T}QF{CBM-Q}"h Y{CBM-G}vRQ(rb{CBM-X}"qt{$7f}{CBM-R}VFMKV Q{CBM-W}TD]{CBM-POUND}{$60}{$ee}0{$f1}{$e6}{CBM-M}3P{CBM-I} C{$e3}

sshellmain.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B
q{CBM-X}(Qfp LW{$e3},{CBM-I} ;L{CBM-E}ar{$fd}M4{CBM-Q}{$ec}f.p,z{CBM-X}L{$f8}Az{CBM-Q}I\{CBM-POUND}j{CBM-C}Z.jZ;U(D[/!{$7d}{CBM-Q}aq{CBM-Y}+.";KH{$e5}K/D<{$7b}.URU{CBM-*}{$ea}P{$fd}{SHIFT-@}W{CBM-K}58W{CBM-Z}*y>W{CBM-F}{CBM-L}T{$e2}ZaT{CBM-H}ZwNaUTMSyk{CBM-N}{$e9}~{CBM-V}<{$e7}S{CBM-B}M6{$ea}2b{$f3}D {$e4}C{SHIFT-*}{$eb}TW57{CBM-D}HEZ{SHIFT-+}{$fb}mZP{CBM-P}1XlP](@{$ee}PK/R3{SHIFT--}R{$e8}\_{$e7}K2{$e5}{CBM-POUND}{$fd}){CBM-E}{CBM-U}TQ{$de}{$7c}{$f7}#8h/{$7d}=e{$e4}{$7e}{CBM-U}y{CBM-P}qLR{$f5}#{CBM--}U{$e2}8{$f6}
eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea} ]{CBM-POUND} lP!{CBM-V})a${CBM-R}( {$e3}{CBM-I}r; {CBM-S}H Py{CBM-C}{$ea}"{CBM-M} IA#0iG{CBM-A}K{$f9}&$%0*{CBM-POUND}{CBM-@}b{CBM-L}
v:{$e9}I{CBM-E} j"{$eb}{CBM-K}bN{SHIFT-*}4C{CBM-H}MVC{CBM-L}{CBM-W}t{$ee}{SHIFT-*}v{CBM-A}A{CBM-H}{$f1}<[{$ef}{CBM-F}p{CBM-K}HK{SHIFT--}rcpfLB{CBM-H}As[TcEg{CBM-N}{$e8}'tSW{CBM-M}zW2XOR5#{CBM-Z}{$7c}{CBM-X}%{$f4}N_TYaWBRH]ZQ-{CBM-F}WiUc
O {$e3}]]{$fe}{CBM-X}{$f7}C{$eb}PU k;5Jo{CBM-P}P
"{CBM-X}8t{CBM-O}cBwKhHT$%0*{$e4}{$fa}Z5OB{CBM-U}{$e1}^{$fd}L{$f9}UH"O{$f6}J{$7f}?z{CBM-S}lw$N {CBM-D}?h@X:!FB{$fd}{$fb}K!{CBM-I}H{CBM-F}@{$ef}{SHIFT-@}{CBM-R}($Esf{$f2}1)8{SHIFT-*}bzKb{$e6}{$f4}{CBM-G}eQj~<"'B{CBM-R}R{CBM-I}${CBM-*}{$f9}[{$60}({$f9}A{$ea}.
9-R!U{CBM-A}&{$f3}h{CBM-I}Br{$f0}{CBM-T}fZfE2g{CBM-Y}"{$ef}Vj{$e2}V{$fc}F-{CBM-L}{CBM-K}[{$ea}7B%{$f2}()2WCX^D+~p{$de}J{CBM-K}{$f3}{CBM-M}{CBM-K}{CBM-M}{CBM-E}{CBM-M}l{$ea}Sx{$f3}F)rz+zPp{CBM-W}"({CBM-T}{SHIFT-+}{SHIFT-@}{CBM-I}i{CBM-H}{$de}{CBM-G}{CBM-Y}XGj{CBM-H}{CBM-M}{$7f}DZ{CBM-V}Bh4X:{CBM-R}{SHIFT-POUND}{CBM-U}F
 {CBM-T}_ZD{CBM-A}hZ&9x{CBM-+}hW{CBM-+}Yw{CBM-M}OF){CBM-Z}{CBM-O}{CBM-M}i{CBM-N}{CBM-@}ThSz{CBM-Q}{SHIFT-POUND}
U "[5P
[ pi
c{CBM-L}{CBM-POUND}{CBM-B}{SHIFT-POUND};i*{CBM-Z}Y{CBM-A}G{CBM-Z}]{$f0} q {CBM-P}{CBM-G})P q\{CBM-G})  q]PK{SHIFT-POUND}4{SHIFT-POUND}{CBM-Z}\K{$60}{$60} {SHIFT-@}{CBM-A}{$60}{CBM-Z}^I{CBM-Z}_J {$fc}{CBM-Z}A^{CBM-Z}B_l{CBM-S}{SHIFT-POUND}
\{CBM-D}H 8.\.]P{$f4}{CBM-Z}\P8{CBM-Z}]IP1HH{SHIFT-POUND}
OPQ{SHIFT-POUND}~{CBM-Z}LIP  8.M.NP{$f4} ( 8P{$fa}8{$60}{CBM-Z}\l^
{$fd}{$e6}{$fd}P{$e6}{$fe}{$60}{CBM-G}{$fd}I<P{CBM-G}{$fe}IP8{$60}{SHIFT-POUND}<{$fd}{SHIFT-POUND}{$fe}{$60}{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-I}
{CBM-K}{$fd}{$60}{SHIFT-POUND} EFG{SHIFT-POUND}{$fe} {$f3}B[&#z(h{$e6}zYBKEa08{CBM-@}{$ed}@Kq*5!{$f7}2G{$7c}h{CBM-H}Q D{$fc}{$60}{CBM-Z}eU
Td{CBM-H}e{$60}H?{CBM-Y}{CBM-K}x{CBM-*}{CBM-@}{$fb}{CBM-J}SM{$60}{CBM-U}{$ed}i{$f1}
R{CBM-@}{CBM-Z}(KaNKBB{CBM-@}{$e3}{$e4} {CBM-+}p{CBM-P}^VH:R1EW5 9{CBM-H}ZBW{CBM-H}55m{$fd}
{CBM-O}Nb{CBM-@}C{$f6}G(YF9yG{$f2}(T{$7b}MH{$ef}ZG4Oe{$fb}G+{CBM-B}{CBM-+}T{$7e}VH Y<({SHIFT-@}#${$7b}{$7d}{$fa}GC{$fe}z{$7d}x{$ee}a9j_ @{CBM-H}0]<M{SHIFT-*}{$f0} 66{CBM-U}{CBM-D}F{$f5}{CBM-D}k{CBM-K}{$de}
D{CBM-D}{CBM-Z}{$f0}jYO@Y+fQYM#{CBM-H}{$f7}NIWV{$e6}W{$de}{$fa}{CBM-A}I\4D
-#{CBM-POUND}{$f5}CH{$7e}{CBM-G}mD\E{$e1}
{CBM-B}xA6{$e3}d6B5J6_y\n{CBM-U}\{CBM-K} {SHIFT-@}ZZRK{$f9}{CBM-L}d{CBM-B}{CBM-F}{CBM-J}.RV
STgA{CBM-Y}{SHIFT-@}{$fc}{CBM-H}
g_Z{CBM-Q}>{$f3}nP{CBM-Q}j{CBM-O}{CBM-M}{CBM-O}3_{$f9}z{$e4}d5O{CBM-POUND}_{CBM-C}{$fc}{CBM-@}h{CBM-Y}\JK>{$7d}rn{CBM-I}W;{$e5}{$60}{SHIFT-+}{$f2}x{SHIFT-+}C{$eb}S9V
{CBM-J}Y{$7c}PVRmKQZGW.V{SHIFT-*}R>
-{CBM-H}{$7b}
















































eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{SHIFT-@},{$ea}b{$e7}){CBM-H}j{CBM-G}#62H'-
HXD
l{CBM-POUND} T{$ea}"Hx{$60}{$ee}{$f2}a{CBM-R}hF{CBM-T}{CBM-A}{CBM-Z}YZ){CBM-Q}{$f0}h{$de}J#
Ba
EVYr,H#Li{CBM-G}
K&{$fc}^9{$f8}j{$f0}{CBM-X}{CBM-R}S{$f6}{$f2}rP0^Z{CBM-T}{$ef}G!X{$fa}p{$ef}{$e6}{CBM-J}?{$ed}B8{$e4}V{$fc}<{$f0}Y{CBM-K}ay{$f3}
{$f9}2{CBM-V}B{$ef}{SHIFT-@}{CBM-B}_yHY=B{$f9}{CBM-K}{CBM-F}A{SHIFT-@}{CBM-Q}{CBM-S} {CBM-F}{CBM-H}{$f9}{CBM-F}x{CBM-@}*{CBM-U}X6{CBM-R}8{$f9}{CBM-W}lRk {$f8}{CBM-R}{CBM-B}S{CBM-N}~mz{CBM-@}W{CBM-O}{CBM-R}7X{CBM-J}U4:/<
!{$f3}{$eb}{CBM-W}O{CBM-O}{CBM-S}m25{CBM-B}{CBM-I}.H{$e8}{CBM-F}{CBM-I}(#~P: {CBM-I}{$7c}9{CBM-O}*{CBM-I}(~pu{$7b}{CBM-J}{CBM-J}{SHIFT-POUND}eP+o{CBM-V}K{CBM-F}s{CBM-U}i0{$eb}lG{CBM-G}{CBM-Q}J{$60}{CBM-POUND}ze
{$7b}CP{CBM-U}54q{CBM-F}{CBM-U}a({$fa}X{$f0}z{CBM-D}AIC~P
 {CBM-A}{CBM-S}L
 {CBM-N}
{CBM-A} E
{$f0} {$f0} v
 a
{CBM-I}

,{$60}{CBM-S}OP{CBM-S}PP{CBM-S}QP{SHIFT-POUND}~{$60}NQNPNO{$60}h{$ee}mMUU{$ee}VH{$60}ly
I{$fe}{$f0}{$60}{SHIFT-POUND}Mw
{SHIFT-POUND}
x
HHl{$e6}{SHIFT-POUND}{$7d}w
{SHIFT-POUND}
x
lH

 w

x
{CBM-D}N{$f0}P
{SHIFT-POUND}yw
{SHIFT-POUND}
x
{CBM-Z}{$60}{SHIFT-POUND}
{$f5}
{$ee}WXY 8{CBM-D}{CBM-Z}WW.{$ee}{$ee}{CBM-Z}I8l{CBM-J}{CBM-D}%(B {CBM-Q}CEJ{$fc}Qp'&{$7d}ha
r{$f1}{CBM-R}#q_{$fa}>b1{CBM-U}{$7c}{$e4}g6{CBM-I}2t{$fc}i{SHIFT-POUND}X5{$ea}{$e7}{CBM-X}{CBM-X}hYk{CBM-Q}f#qt"&{CBM-*}h]RD-?oYST{$fb}8!X 6E{$e2}N{$f8})*pf\{CBM-K}BE0cMJoaf{CBM-*}D
$1{CBM-L}{$e2}%{CBM-M}i5V{$fc}'#N1SO{$e2}{$e2}Bs${SHIFT-*}NJhksB$&gY*{CBM-N}RY{CBM-Q}v{$f5}Iok@{$fc}{$e4}p#{$fe}Q{CBM-T}{SHIFT-POUND}!{$ec}{CBM-G}{$fa}={SHIFT-@}:{$e1}{CBM-K}NHfOF$8Y1Is;$ {$e4}{CBM-S}0{CBM-R}{$f1}V{$e1} xH{CBM-K}H{$fa}{CBM-+}{$e3}9)SD2b98{CBM-L}DPO{CBM-S};yF{CBM-POUND}fjTxn{$e2}
V28{CBM-B}C{CBM-E}y{CBM-M}0YR{$e5}{CBM-K} ZF{$f4}KR{$de}!bN{$e6}!={$e6}es{CBM-L} P{CBM-POUND}{CBM-M}GH z "y{CBM-D}k@HD{CBM-Y}z:CifzA[Ay!{$e4}{CBM-D}{CBM-Q}(aBL{$7e}P {CBM-T}{$ea}AA {$fa}h+I,N{CBM-K}BE
9VC2hP 8H{$ea})-{$f2} 6A{$60}41F{CBM-K},{$f2}{$fb}nRKe {$f2}+.{$e7}{CBM-POUND}{$f4}h
{CBM-T}{$7e}{$eb}
HPH :&{$eb}B((C)9F{$e8}{$60}{SHIFT-POUND}{$eb}{$f5};({CBM-POUND}i{CBM-T}t*W(EJS{CBM-Z}D{CBM-U}
CD{SHIFT-POUND}H{$60}{CBM-Z}FI{$60}{CBM-Z}E{CBM-D}J{SHIFT-POUND}  ,{CBM-D}I{SHIFT-POUND}P ,{CBM-D}K{SHIFT-POUND}{$f0} ,{$ee}EP{$ee}F{$60}4{CBM-G})

{CBM-+}Xx{$60}{CBM-G}{$fc}){$f0}{CBM-G}{$fb}
{CBM-+}X{CBM-E}x{$60}h{CBM-Z}HI{CBM-A}{CBM-Z}CPNDNC{CBM-Z}C
DP{$ee}HG{CBM-Z}GDH{$60}HH {CBM-T}{CBM-Z}~~{$f0} R~l {CBM-T}L{$ee}P{$ee}{$60}
































































dL{CBM-A}0{CBM-@}{CBM-G}{SHIFT-POUND}X*i{CBM-W}/{$ec}B{$7b}>h](1W.?W{SHIFT-@}P%{CBM-A}A{CBM-P}{CBM-R}(a{SHIFT-@}U{SHIFT--}L{CBM-A}"!{CBM-R};y95eR{$ef} U{$e7}L{SHIFT-@}dN={$ee}E1{$fb}K3{CBM-POUND}@{CBM-W}.=,b{SHIFT-*}>{$ec}a$I{$f9}OS{CBM-O}ZI{CBM-I}k{$60}k{CBM-U}1{SHIFT--}^{$fd}[{$eb}{CBM-N}K%{CBM-X}k{$60}_Y,{$7c}{CBM-A}{$ea}Uz{$7d}M{CBM-D}{CBM-T}{CBM-S}cGi{$7d}7KJ.^{$7e}A
{$f6}BL{CBM-H}Fkzl{$60}"R.)#T{$eb}B{$e4}YJeXV{$fc}6f{$ed}K!
HAR@S{CBM-L}XV^U{CBM-N}kr{CBM-Q}ZT9-{SHIFT-+}nF{CBM--}R?{$e4}G+qmL-U{CBM-+}gVCZYP*{$f2}{CBM-T}

sc$getchar.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B&J6{CBM-K}vVIzR{$f9}{CBM-I}wtn{CBM-G}F{CBM-I}TZUuVx
J{CBM-POUND}(BHTvyH{CBM-T}zo{$7d}{CBM-T}D?*{SHIFT-POUND}{CBM-P}j!{CBM-G}{$ea}"{CBM-R}T{CBM-I}Px{CBM-A}{SHIFT-@}{CBM-POUND}4${$f2}{$ed}4r2EyUE{CBM-Z}J"L{$e7}{$f2}j\#G"wh {CBM-Z}N/h7XN7={CBM-I}0{SHIFT--}{$f7}{CBM-L}a~M{$f7}=xi{CBM-Y}qN{$fe}h{CBM-I}H{$eb}{$f5}/s{CBM-B}{$f0}blP{SHIFT-*},J{CBM-T}){CBM-I}C
&m
0ba{CBM-K}h{$7b}{CBM-D}{CBM-H}55M FR.A04{CBM-W}a
{$f7}Z;{CBM-@}
eYVY;{CBM-POUND}TO5Ox.
J(R{CBM-POUND}"{$eb}V0B{CBM-A}{$e2}{CBM--}b{CBM-M}Mo,j{$60}BK5&fG{CBM-L}{$ee}${$7e}0{CBM-Y}{SHIFT-POUND}{CBM-Y}I{CBM-R}{$fe}G{CBM-@}I{CBM-Q}?JR{CBM-O}K{SHIFT-+}{CBM-H}{CBM-Q}XaXs{CBM-A}&N{$e2}J{$fc}%{CBM-Y}{CBM-D}N^{$eb}{$60}Tde{$f4}{CBM-+}rZTL[\Jj%.{CBM-W}{CBM-A}=K#(Q&{SHIFT-POUND}{CBM-POUND}fHFwJX{CBM-B}
J<0
{CBM-X}4{CBM-*}{CBM-G}F0({CBM-Y}yw:$Hdd{CBM-POUND} Z{$f0}{$f6}8O{$fa}{$f8}2{CBM-@}U"{CBM-G}c{CBM-I}{CBM-@}{$e3}{CBM-G}{CBM-+}k{CBM-Q}{SHIFT-@}{CBM-E}#R{$fd}{$f2}{CBM-V}y
4
{CBM-A}Y\tJ&c:$W%{CBM-L}{$ec}{SHIFT-POUND}_{$60}{$fc}C{$f0}GXx{CBM-I}c;03]{CBM-@}1B{$f3}A?HhK
(,1
{CBM-W} V{$f6}!{CBM-L}{CBM-L}{$7b}{$e2}{$ea}ry{CBM-POUND}{$f5}{SHIFT-*}>{CBM-M}{CBM-A}{$f9}Nv{CBM-M}C{$60}RMA{$60}K+{CBM-J}c{SHIFT-+}PJ{CBM-F}r
5({CBM-O}{$e7};8{$e7}2pb{$e6}{$ea}"{CBM-C}Ff{CBM-R}{CBM-Q}{CBM-M}{$f7}JPBX{CBM-W}{CBM-Z}{CBM-A}{CBM-POUND}\Pe{CBM-POUND}{$e4}
{$ec}&{CBM-W}N^b[{CBM-+}je5/uYEVE{CBM--}{$7c}"=b{$e7}]#{CBM-D}
ASy._{$fe}T3V=~XCGa{CBM-R}Z{CBM-F}{$e3}){CBM-M}
1c T{$ed}{$de}I/\J{CBM-Y}:tA"{$7c}{CBM-*}{$e9}N{CBM-P}7{CBM-M}{CBM-M}{$e8}{$ef}4A {$e3}ckcQ{$f9}{$f2}{$f7}{CBM-D}{CBM-L}{$fc}{$e4}QZJJ{CBM-D}{$f3}.{SHIFT-*}nc4 {CBM-B}a
)({$fb}Q{$f8}T5{CBM-@}O{$60}SF2{$fd}GpUhN
~fUjp{CBM-M}e {$ee}{CBM-V}Z5 Z{CBM-E}P{$e6}b {$ed}d${$60}{$60}B{CBM-Y}{CBM-O}q{CBM-Z}
y{CBM-X}U@tC{$7b}zZ{$f2}a{CBM-J}cqOF {$e6}{CBM-S}{$ec}WVJ{$e9}{$ed}b;ZV{$fa}u{CBM-A}{$f9}Hr[{SHIFT-*}
{$e4}{$f4} {CBM-J}9{CBM-X}t@{CBM-@}>{$f5}+ac{$7b}u^R+i{$e5}{$f5}^[[{$eb}M{CBM-L}{CBM-L}]{$7d}1G{CBM-*}"U{$fe}4{CBM-Y}q{$fd}{$e9}{$7d} A{$de}{$f4}{CBM-T}K{$60}${$eb}{CBM-C}y8PF%CKz{CBM-T}ZT*F A
5{CBM-R}C
B6paTppI{$e6}F'{CBM-I}J{$7b}=4{$fa}^{CBM-O}{$fd}{CBM-K}C{$ec}{SHIFT--}P{CBM-B}{$7d}{$e2}I{$e4}{CBM-X}{CBM-K}906$I8x;{$de}PP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{SHIFT-POUND} {$f2}"&V{SHIFT-@}R{CBM-K}{$e2}xF{CBM-@}N{SHIFT-*}D"{CBM-D} !CH,HG&*{CBM-POUND}!Gq{CBM-I}{$ec}]{CBM-POUND} R{CBM-N}j"/J{CBM-POUND}(D"_A
"OE{CBM-+}.eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{SHIFT-POUND}D{CBM-I}.*a{$e7}){CBM-H}{CBM-@}%{CBM-J}Uh"2 *#*hj%1{SHIFT-*}!{CBM-P} {SHIFT-@}F{SHIFT-@}W
!{$eb}{CBM-K}bNc NB{SHIFT-@}A!JJ{CBM-A}{$f0}{CBM-E} 0z(T"0{SHIFT-POUND}{$ea}9!#o{CBM-V}HeN{CBM-POUND}N
.G{CBM-W}
{$e9}{$f7}A{CBM-B}{$eb}{$7e}W{$f8}Hea2H6LCO{$fa}{$ec}B?{$ef}{$f5}5{$ea}{SHIFT-@}~Nk{$f7}{CBM-R}$P{CBM-E};9I/{$7b}QyU+_{$ec}U(<V{$7e}{$fa}{CBM-T}?{$f9}W{$fb}?O h;ex{CBM-A}]{$e9}{CBM-A}{CBM-U}{CBM-A}:O!{$fb}{$fa}VhY{SHIFT-POUND}k{$e1}0{$f3}RBiC{$fb}{SHIFT-POUND}{CBM-G}N{CBM-V}QH{$e2}{$fb}{CBM-U}{CBM-B}{$7b}{CBM-K}"{$f9}{SHIFT-POUND}{CBM-+}E
{$fb}{CBM-A}Pr>3!I'{$f9}{CBM-Z}{$ee}{CBM-O}?{$e8}{CBM-E}A8?Y{CBM-P}G{$f1}{CBM-+}{$e3}::Z{$7d}{$60}p@{$fa}{CBM-I}{CBM-M}{$fb}0X{CBM-Z}{CBM-X}j{CBM-O}{$7f}{$e8}i
{CBM-+}~ ~Y{$e1}{CBM-E}{$fd}[3Z j{$ea}{CBM-C}{$ea}{CBM-J}{$7f}z{CBM-Q}#B{CBM-Q}X{CBM-L}"({$e4}A2(S
<{$f6}!*{CBM-A}6{$f4}DV{CBM-M}{SHIFT-*} {$e7}mi4%={$ed}#@
JBT{CBM-A} A'@E{$f7} ]]{$f7};R{CBM-Z}6g{$f8}${$60}{$f0}Y{CBM-T}jSyX{CBM-H}
xbJ H{$e1}{$f6}HQ{SHIFT-+}{$de}{CBM-V}g{$e3}{CBM-Q}k{CBM-Z}{$f1}q%{CBM-@} {$eb}i7J$<
{CBM-H}DL%[#N{CBM-K}{$60}{$e3}F$?L&)CE{$f0}oG{CBM-+}{$e1} LQ{CBM-POUND}
bPO
"{CBM-J}{CBM-M}5{$ed}ni# {CBM-H}1powRx{$fb}{$eb}2X^D{SHIFT-*}] H)!
{$60}rt{CBM-I}{CBM-+}%{$7d}e#A.{CBM-J}~b{$ed}{$ec}{CBM-W}.Q {$f6}L6OK{CBM-A}1 \T{$fe}{$e8}0
,,a3{CBM-L}Q A?@auyZ{SHIFT--}{CBM-J}{CBM-S}7{CBM-C}k<wi'{$f8}{CBM-Y}7{CBM-T}{$e8}Gw{$7b}{$7f}R{$f0}YB
nD{$ea}({CBM-E}8-{$fa}2{CBM-V}{$f0}{CBM-+}{$fb}b{$e4}Q{$f5}{$7e}{CBM-POUND}yOZ!{SHIFT-@}{$e7}!/Q7{CBM-N}Q0dt{$ee}CZ?!{$fa}M@){$e9}KV"D"b]H{CBM-M} 0'd@DaY{$f6}GXfI{$e8}+{CBM-G}{$60}gX{CBM-X}<{CBM-+}0Y{CBM-K}j={$eb}"{$7e}Ke{CBM-A}{CBM-K}jYH"B45Z{$e4}${$e3}{$7b}{$7f}xd2{CBM-E}xr"a8{CBM-H} hf-9H{$eb}7sB{CBM-H}hV]{$e3}GL{CBM-U}/)pJX{CBM-L}IS9P#h{CBM-V}ES
R{$e9}{CBM-Y}E{$fb}NA+ DN {CBM-S}!p{CBM-L}S
{$f0}aj{CBM-M}{$e4}{SHIFT-+} DhblZOVs
BBMqAPIC="{CBM-P}{CBM-@}k6{CBM-R}!'(S5{CBM-O}{$7b}.AHNR{CBM-I}{CBM-POUND}qB{CBM-E}{$f8}{$e6}{CBM-P}{CBM-@}{CBM-@}NV${CBM-W}{CBM-S}{SHIFT-@}{CBM-L}{CBM-M}&{$fb}ijh{CBM-E}>{CBM-+}{CBM-E}Z{$ea}gb12$hZz{CBM-R}0{CBM-@}{CBM-+}.{SHIFT-@}{$fd}g{CBM-I}qeb$Yu{CBM-E}qX{$e2}{CBM-E}{CBM-F}Pb{CBM-+}lA{$e8}{CBM-A}yGd{CBM-R}c#































































0D{$e9}{CBM-W}@A{CBM-S}v{$e4}+Cj
{$e1}0{CBM-R}L={$ee}I{CBM-A}% {CBM-+}$TBP{$ef}n{$f7}{SHIFT-*}
{CBM-K}{$60}{SHIFT-+}X&Pa,D{SHIFT-@}{$fe}{CBM-A},@
BOa$J
k\{$e5} q{CBM-M}D${CBM-F}Hb8{CBM--}{$de}$-J{$e8}c! G{CBM-I}SCf0<Nj{CBM-E}({CBM-POUND}A{CBM-P}D1i@@G R{CBM-H}W<cO% QE
d{CBM-S}0{$fa}{CBM--}si{$f4}0{CBM--}{$f0}KDh WF'JSv{CBM--}C{$fa}3{SHIFT-POUND}{CBM-H}{$fe} E$















































{CBM-H}oTR/{SHIFT-*}{$fe}[pIrZZ{CBM-T}{$ee}[DB3T{$7e}{SHIFT-POUND}1P=O{$e8}{$fb}N!x{$e6}{$e8}{CBM-L}V{CBM-C}CLXWNf~YBzXI{CBM-S}{SHIFT-POUND} S{CBM-W}{$e4}{CBM-U}DPXKF{$f8}{CBM-R}!
E{SHIFT-+}WI]TGR{$ea}{SHIFT-+}E[MU{$60}x5
&{CBM-A}{$e7}Sqc{$e4}{CBM-R}
{$fe}BW{$eb}{CBM-V}uX,c{CBM-+}
q{CBM-W}/{$e2}{SHIFT-+}{$f4}{CBM-H}({$60}{CBM-S}>h dPUQMAh{$7c}V{CBM-POUND}U{CBM-J}I{CBM-N}{SHIFT--}G;{SHIFT-POUND}{$e9}{CBM-E}y-h6{CBM-X}{SHIFT-POUND}Y{$f0}cyD{$e7}{CBM-T}%^{$e5}{CBM-J}*DK{SHIFT-@}U{CBM-T}{CBM-Z}7P&{CBM-Y}
V{CBM-K}{$f8},SRQ{$7f}{$fa}{$de}{$e5}S[{CBM-F}WE {$f5}PyLJH{CBM-I}LJ{SHIFT-*}vp ^euz:jhw^E5ykU{CBM-J}w]{SHIFT-@}{SHIFT-@}eU[G{$e9}H{CBM-T}Z{$60}{CBM-K}{CBM-@}r*{CBM-POUND}NaR!
B{$e5}WqQkH G
{CBM-Z}{CBM-T}{CBM-I}{CBM-A}{$ed}HI"R{CBM-I}RUUy'{CBM-Z}E"{CBM-R}{CBM-L}JUeul{$ed}{CBM-X}_{CBM-I}{SHIFT-@}{$fd}Tyz]X
{CBM-R}T{$e6}M{$fd}&{SHIFT--}LwCTqO{$e9}{$f9}(U*jQc{$7d}{$f9}5P{CBM-R}0B
 &EH:{$e2}VH]y{CBM-W} 4
{CBM-K}LyG{CBM-X}T8{CBM-I}(N_{$f3},#{$e3}7bV:2S.6{CBM-POUND}LB{$f7}y4{CBM-R}@1{CBM-@}*{$eb}{CBM-P}<-4.b  by{$e8}{$ed}2{$ea}"X{$fa}@i{CBM-G}*{$fe}{$ef}5*B(mU ${CBM-H}C{SHIFT-POUND}d{CBM-H}{$fc}

HUb#s8{$e2}@,
G{CBM-G}{CBM-X}(k{CBM-R}c-tum{CBM-L}Hqr*F<[LBQ{CBM-L}]{CBM-POUND} *{CBM-R}9{$e6}{CBM-D}{CBM-N}7&PyLJ{CBM-POUND}*B{CBM-X}{SHIFT-+}g_{CBM-T}D?*{SHIFT-POUND}
T'{CBM-I}V!R9{CBM-K}2T 5\APr*(\6yhf{$e9}5A*(o2Yx 6u{$ef}Pm{$de}ew{CBM-N}<B B{CBM-POUND}p{CBM-I}.#I],){$60}{$e4}U{$ec}{$ee}{CBM-T}DM!_{CBM-J}k{CBM-S}{SHIFT-*}
ce{CBM-Q}{SHIFT-*}XB{CBM-V}i< qV{SHIFT-@}Q {CBM-@}
{$eb}{$fa}
kXKB [ Y {$fa}\H{CBM-Y}IF{SHIFT-+}{$7b}{SHIFT-+}\X{$fb}R{$e9}rV{CBM-G}{$f7}
{CBM-Q}{CBM-W}k{CBM-W}{$f9}:{CBM-H}JwJ{CBM-M}6{$f9}l 9{CBM-M}
{CBM-O}{$fd}{$f9}{CBM-X}c{$e9}{CBM-G}CX{CBM-T}MeXK;{CBM-T}]j{CBM-@}kxT{$e9}&0{SHIFT-POUND}{$f6}F{CBM-H}{$eb}K{$eb}{$f8}{CBM-N}^{$e8}A{CBM-U}{$e3}{$eb}H{CBM-N}JF{CBM-J}{$ef}{SHIFT-+}{$7b}aD{$fb}i{CBM-U}{CBM-@}{$ea}{CBM-Y}>{$fe}{CBM-P}{$7b}{$e8}d+*m({CBM-W}:~{CBM-R}=A{CBM--}PZt8{CBM-A}hhL{$f3}{CBM-+},D{CBM-R}K#{CBM-A}8{SHIFT-+}t{$7c}{CBM-H}^{SHIFT-*}K{CBM-C}{$e4}G{CBM-B}{$fb}v{CBM-D}W{SHIFT-*}{$ea}{CBM-D}]&{CBM-R}N{CBM-L}Z{CBM-R}3{$e8}&{CBM-A}{CBM-U}G&V{$f6}A!JZ{CBM-R}a'
{CBM-K};2{$f2}\{$e4}zx.E{CBM-G}{CBM-Y},{$e4}R{$e5}i{$e5}J{$e5}5*B(
rCN2){CBM-N}{$fc}

HCbG,E{$e4}
a,MG{CBM-T}{CBM-X}(k{CBM-R}c{$fa}XTn{CBM-T}HEH{CBM-E}{$f0}{CBM-E} {CBM-P}m{$f2}N{CBM-E}a
EV!2*{CBM-I}r'{CBM-A}{$fd}
F)rQ?{CBM-I}V!n{CBM-N}7E"2{$f0}H#{CBM-@}H3{$e2}{$f8}{CBM-O}{CBM-T}"{$fc}P6i{$7e}l1Nz0:{SHIFT--}te"wT{CBM-E}5oV{CBM-*}{$7e}H
H{SHIFT-@}y E
,{CBM-F}{$fb}(yFb{CBM-X}U{CBM-N}K{CBM-A}A
c{SHIFT--}.{CBM-O}UCnX%Kis
{CBM-H}{CBM-N}YHy{CBM-L} {SHIFT-+}{$f0}y$o{$e9}L{CBM-E}AR{$f3}<;{CBM-Q}^c{CBM-W}{$ed}HD:GIqN8(w9yr{CBM-E}<!{CBM-R}+jAmbS{CBM-POUND}{CBM-A}{$f2}e{$fe}M_U"%.f!!O<@8?{CBM-O}G]{$fa}{$e4}{CBM-D}l%/v{$ee}{CBM-W}M{$e2}{CBM--}]E(g{CBM-D}K{$e4}f${$ef}{CBM-G},T
wJ{$f2}{$e5}{CBM-Q}reMxE{$fd}{CBM-E}r*{SHIFT-+}*{CBM-S}{$ef},E"a2JN{$7c}p{$e1}%-{CBM-G}{CBM-N}GX{$e2}{CBM-C}{$e5}{CBM-D}&p(D{$f2}\VB{CBM-J}M'{CBM-C}lp{CBM-POUND}{CBM-@}
{CBM-D}Q{$f0}E{CBM-N}{SHIFT-*}Nw+P{$60}{CBM-R}zYsI{CBM-G}{$fa}{$fa}{$de}Fbc^{CBM-P}{$e4}Z4->,g3Zp{$fb}{SHIFT-@}m{$f7}a{CBM-W}x"7

sdoload.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B
e{CBM-D}{CBM-K}K


sdprintf.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B
L{CBM-F}{$7e}{SHIFT--}<J{CBM-X}{CBM--}Z{$fd}{$f4}X7{CBM-*}?d6UPMO.{$7c}[XR{$e6}!{CBM-H}{CBM-J}{$e3},Ja{$fa}V{CBM-*}V{CBM-D}M{$f3}{$e3}{CBM-+}fMI{$e7} {$fb}{CBM--}{SHIFT-*}
{$e6} 4"{$60} >OO:FO{CBM-+}C{CBM-U}{$ef},BXS{SHIFT--}QtZ{$de}{$e2}{$ee}{CBM-I}
{$f7}j5{CBM-A}A {$60}p"{CBM-@}s{$7e}{$e8}G:O4FI{$f7}{$7d}LG{CBM-O}I/V{CBM-A}^{$e4}{CBM-H}W{CBM-X}O{SHIFT-*}{CBM-+}{CBM-+}_{$f2}{$f7}{$ea}DN{$e8}0%{$e4}{CBM-+}sNE{$7e}MS>{$f8}V{CBM-B}F{$e6}{CBM-X}{SHIFT--}{$ef}QCs{CBM-R}s]{SHIFT-POUND}Ko
~fR{$fc}R{$f8}{$7d}{CBM-*}T#{$7d}VzBK{CBM-Y}{CBM-P}{$7c}{CBM-U}S-{$60}Y{$ed}CAZ'{CBM-V}~7#x{$7d}{$fb}g{$ef}Q6N{$e5}{CBM-W}T{CBM-E}{CBM-Y}{$7d}{SHIFT-*}s{$7c}Pf{$7f}%i7P]{CBM-H}v1{$eb}#Sj{CBM-L}XzS{CBM-Z}(u.B@9u {$e9}V#S{CBM-@}'{$ed}9{SHIFT-+}{$e9}"5{SHIFT-*}{CBM-I}#{CBM-A}C{$ea}{CBM-I}q{$e5}yH*Mq%b{$ea}{$e9}{$7d}90 VJu{CBM-I}jAPO (l{CBM-M}H{CBM-V}H]0{SHIFT-*}YO{$e3}>1${$f2}{$e8}kV{CBM-O}{$e2}w"T="jbS{CBM-G}0^{$7e}U7NV{$eb}UO{CBM-X}jV{CBM-*}{CBM-Y}{$e9}Ko?{$fb}{$de}{CBM-B}{CBM-C}{$fc}{CBM-F}{CBM-M}{CBM-C}{$e9}VO{$fb}{SHIFT-*}{$7e}U*t\@H{CBM-N}{CBM-@}N{$60}]9?{CBM-U}{CBM-K}.{$f3}{$e2}w{CBM-*}8Q{CBM-W}n3[ {CBM-T}j6{$f9}a\{$f4}{CBM-H}{$ea}P){CBM-Y}?U{CBM-Z}Y?b#{$f9}{CBM-D}<{CBM-G}O;
*A0{CBM-S}& f{$de}M6{SHIFT--}< !{$f2}I-u#U{CBM-X}BCM{CBM-*}{$fa}"tr{CBM-J}{$f9}{CBM-Y}Zl2{$7b}!2{CBM-F}@("s!5h{CBM-K}{$e6}S!7O{$7c}E*{CBM-H}  6pIJ4X{$fd}HT{CBM-M}S"T;
{CBM-J}{CBM-D}1{CBM-I}Q
Ms{CBM-O}jaB{SHIFT-POUND}{$fb} {$f7}Z?4{CBM-P}?{$ec}RK{CBM-P}"{$f7}.*.bK+O {$e2})D{$7b}C0rPEZ{CBM-*}YMUCO9{$f7}{CBM-C}{$f3}{CBM-*}&;={$e4}.{$f9}{CBM--}{SHIFT--}{CBM-V}O{SHIFT-*}
&ah{$f7}p{CBM-E}X{SHIFT-*} .V${$7e}W{CBM-X}{CBM-B}{CBM--}{$e4}{CBM-Y}Zj{$f0}{CBM-G}{$7b}
{CBM-+}{$f8}P{$eb}^ o8{CBM-Q}V Ya




































































{CBM-C}{CBM-X}































































dctransactor disk#  27 2a    geos FORMAT v1.0


































































load & run











aid4












c64 tiny aid ldr











supermon+ inst











supermon+64












copy-all












copy-all.64












copy-all64 glink









kkkkdevpres.bas











devpres.src











----columns----











ml.sda








/


clock.asc











----articles----











shellram.sda











sETmOUSEpIC.sam y
kkcopy file 64











change unit addr











palvert 1.0











palvert64 1.0











verifizer.vic/64











verifizer.pet











verifizer.+4











verifizer.b128









kkkksETnEWmODE.sam  y
$



GEOS128sYM      y%


loadermaker
x




loadermaker.sda








.


iCON dEFINER

x




icondef.sda








5


random.bas












random.asm









kkverifizer80.c128












stp sys49152












stp sys828











maketogeos













symass 3.13













-----bits-----












gfxdemo.symass












read










~verify.bas












 make 2 sided








4


#pREFERENCES     #
y4
































































































































































{$e5}{CBM-O}]9{$f7}*F$&{CBM-T}={CBM-I}S{CBM-R}{CBM-K}DyX{$f0}$9h'E{$f2}<:7Qkic{CBM-N}*hLP{$f5}K
{$eb}{$e6}jy'k!{CBM-A}3{CBM-A}#.vVI;+C)Q{CBM-P}JZ$r#5v9EwiuKcl&Q{CBM-H}F*q{CBM-+}s{CBM-POUND}{CBM-S}s{$e7}a{SHIFT-@}#{$eb}hu1!h=R,By{CBM-K}q{CBM-U}{CBM-POUND}{$e4}v_4W{CBM-I}?f
{CBM-W}:{$eb}Io{$ed}Q{$ed}{SHIFT-*}B{SHIFT-*}{CBM-POUND}4r{CBM-K}v[u#R{CBM-S}9aA{CBM-POUND}4{CBM-T}2CHbGp{CBM-J}W7{$fa}{CBM-N}w{$e7}d{CBM-Z}{$e5}{$ef}
{CBM-Q}0H{CBM-N}T55{$e4}ALRK[X{CBM-POUND}7{CBM-G}5{CBM-Z}Hd{CBM-Q}@
R(5{CBM-R}{CBM-Z}Ma{$eb}{SHIFT--}vc{CBM-Z}MmMq{CBM-K}P{CBM-U}6{CBM-Y}{CBM-C}{$ed}mKHRh6. Tg{SHIFT-+}R{CBM-POUND}7{CBM-Q}c{$eb}{$7c}{$fb}:{$de}Y&{CBM-H}{CBM-D}{CBM-T}k{$e1}{CBM-G}Wc{CBM-U}+ OF{$eb}@g{$f9}v{CBM-+}6{CBM-L}*P^:{CBM-POUND}b{$fc}(HD{CBM-R}F{$7d}{$f8}{$fd}V{$fc}{SHIFT-POUND}O{$fd}{$ed}J5: P{CBM-L}v{$e8}{CBM-*}
0Z{$60}{$fd}{CBM-P}+ ;dfC{CBM-POUND}{$e4}A0D{CBM-K}6d{CBM-A}rJ{$fa}{$7d}8E2d{CBM-A}{$e9}PO#{CBM-G}:d{CBM-A}kedN{SHIFT--}{$f0}do
hLWP{$eb}{$ea}{CBM-V}!S:e]{$f7}{CBM-Z}VT{$f0}Uu{$f1}KJW[{CBM-K}w{CBM-G}$UTC!
=G{$f3}3{$7f}q{CBM-K}f{CBM-J}+{CBM-*}{CBM--}Wk{$7b}{$f0}nF{$ef}{CBM-F}{$e2}x{CBM-D}Z{SHIFT-+}{$f6}Pa(6{CBM-H}tY4*My{CBM-H}OULF{CBM-L}CB<PN{$e1}{$7b}%n{CBM-Q}{SHIFT-+}{$e3}e{CBM-A}{$e4}{$60}DzoMx
{SHIFT-POUND} {CBM-S}_{CBM-A}{SHIFT-*}^(F9{CBM-C}B{CBM-W}N














































































































































{$f3}b{CBM-I}S{$f3}@{CBM-H}Pc;O:
{SHIFT-POUND}T{CBM-B}{$f1}% 3{CBM-X}{$ea}{CBM-R} {$ef}{$f9}{CBM-Z}{$f9}{CBM-Q}{$f3}r{$f2}9G$-{$f2}Q{CBM-A}Z{$f0}{CBM-N}4qB{CBM-Q}{CBM-N}Sd{$7f}H!{CBM-C}AS46Q)I
Rw"Su{$e3}pX(-{CBM-M}sE{CBM-M}{CBM-F}{CBM-J}{CBM-O}S {SHIFT-+}{CBM-Q}ZN\F{CBM-X}f{CBM-B}s{CBM-P}{CBM-J}?{$7b}'({CBM-M}{CBM-Q}]{CBM-+}):n{$e2}F,r{CBM-+}U{CBM-N}{CBM-F}{CBM-*}F{CBM-Z}ZFC&{$f3}[S{CBM-C}h{$7c}{CBM-+}{$7c}{$fc}ho{$fc}{CBM-E}{CBM-Q}{SHIFT-POUND}@{CBM-G}6N{CBM-O}BP%{CBM-+}1Bqxe4rzUX/Gsz
O{CBM-L}{CBM-G}MZC
{CBM-POUND}Y{CBM-X}5fs{$7b}{$60}{SHIFT-@}k0{CBM-A}{$7b}ZeCr({CBM-P}C{CBM-@}F%DAj{$f0}{CBM-POUND}q5[YA
{CBM-F}s@p{CBM-R}\{SHIFT-*}a3RD Q,Ofj{$7c}q{CBM-N}Aa
)Y{CBM--}{$f7}T !Bs{CBM-F}7%@vPf"\atu
DQ{CBM-S}{$f4}{$e2}{$e5}N{CBM-POUND}
BC/Y{$ec}^!D{CBM-K} {SHIFT-@}xd;{CBM-L}{CBM-E} )({$e2}Vp{$f5}{$e8}P!{CBM-K}{CBM-U}b]JbRj
rBY
{$f1}k,2tJ"G{CBM-*}m0sL:{$ea}$Qn2{SHIFT-*}
{CBM-U}{$f0}4{CBM-E}{$e5}{$ed}U{$f2}&f{$f2}TB&{CBM--}{$f2}Tm.Ys{$fe}aPjb M
c>
{$f8}&{CBM-Z}{CBM-K}HjC{CBM-I}Qg*XI\{$de}P'{CBM-G}P {$7b}{$f1}MJ{CBM-F}m9/{CBM-R}{CBM-H}{CBM-*}&a+{CBM-T}{$f3}{$fb}\J 1 {$e8}V8q% S{CBM-Z}{CBM-R}{CBM-C}PUBq{CBM-@}AD{$e9}q@2{$ec}h.>'{CBM-Z}A{CBM-Y}[tq{CBM-S}w{$e4}ICz{CBM-D}F{CBM-X}HF7jY{$f2}-'{$e3}{CBM-P}{CBM-X} Tr?OD{CBM-Q}L$~?{CBM-R}{CBM-F}3: P{CBM-G}{CBM-*}T{CBM-N}W{$f8}E+F{$e1}B{$e9}XH{CBM-R}#HHi
hkedA{CBM-X}{CBM-X}{CBM-R}{SHIFT-POUND}dE{CBM-J}Jt6*{$eb}c!{$ea}B{$60}Hb,F0am1{$de}{$7d}Xa{$f5}XA:({CBM-F}h{CBM-F}{$e1}7
.bM{CBM-P}k3%{CBM-B}{CBM-I}7{CBM-Z}{$f8}{$7f}Ta{CBM-L}X{CBM-*}&{$fa}{CBM-Y}Cs!{CBM-H}M{CBM-F}{$fe}{CBM-A}{$e6}Qo{$ea}{$fc}a\{CBM-M}{$e4}{$f8}G{$e2}{$e9}7M{$f8}X~HYY{$fa}{CBM-P}{CBM-O}{CBM-I}Yh {CBM-C}K{CBM-V}X{$fb}R;{$7f}X( {CBM-B}j 0ii{CBM-K}G[o{$f1}{CBM-Q}O%{CBM-U}
{CBM-P}J.H{$7f}{$f0}{CBM-F}{$e4}{$7b}0{$fb}{CBM-Y}ZFYO {CBM-Q}{CBM-P}L{CBM-O}{CBM-B}{CBM-*}Y{CBM-F}h0{CBM-A}{CBM-U}%C{CBM-Q}{$fa}{$fa}{CBM-H}EJ8H {$f8}{CBM-O}{$fb}e{CBM-A}{CBM-W}{CBM-U}{$ec}{$fb}%F{$f8}{CBM-W}{$ec}x{CBM-C}{CBM-G}i {CBM-F}{CBM-F}{$7d}{CBM-B}g{SHIFT-*}{$7e}pX{CBM-U}O"p{SHIFT-*}Q#R{CBM-C}S{$e6}
{CBM-POUND}lH L{$e8}{$e3}Y8m8Z PQU G"{CBM-R}
O2{$e9}J\
yH{CBM-J}Z' {$f2}{CBM-POUND}
YE2B#z*{$f2}E FI{CBM-L}
BOH ,{CBM--}{$fc}{$e5} TtV{SHIFT-POUND}L@xq \eRE{CBM-L}R{CBM-K}.{CBM-U}ED<bH8{$e2}@{$e9}j"P{$ee}{CBM-K}5{$e9}
{SHIFT-POUND}wCh({$ea}{$7e}H"(;Ay{$ea}fFsB{SHIFT-@}GK{$ec}{$e5}{CBM-I}"2wQ{CBM-G}{$f0}B( 08,H9tQj {CBM-Z}2ICR5 {$e3}))x&HH{$e3}Vj b!s^# *hV
{CBM-I}J#{$e4}"r,PyLJH{CBM-I}LJK{CBM-P}{CBM-U} {CBM-Q}{CBM-V}F
+R{CBM-Q}{CBM-P}{CBM-O}!{$ea}{CBM-P}
~





























































































































































































































































AV,{CBM-J} R{CBM-U}@TKFvK&V{$fb}a{CBM-N}{CBM-L}CF{CBM-Q}:{CBM-I}<qF{CBM--}{$7d}{CBM-L}{CBM-N}H]{CBM-@}xPQ-SL%pil{CBM-D}'%t!.e{$fa}{CBM-A}{$7e}{CBM-G}74 xh{CBM-X}Fktj{CBM-R}
,<{SHIFT-POUND}{CBM-E}!It9fU{$f9}S{CBM-N}MTvj{CBM-+}:'J{$7e}+(h{CBM-N}{CBM-O}$D{SHIFT--}%{CBM-J}Ic&{CBM-A}UL{$de}{CBM-J}{CBM-Q}CZ{$e6}_K:{CBM-S}z {$e7}{$fd}^~{SHIFT-@}{CBM-D}F{$eb}\{CBM-Y}W\{$7d}0&/Q{$eb}{$fb}Z {$60}{CBM-K}:{CBM-P}{CBM-O}{CBM-@}6R:{$ee} Ul[G{SHIFT--}{$e3}{CBM-S}*{$e3}{CBM-Q}0{CBM-G}{$eb}{CBM-R}{CBM-E}m{$ec}$A{CBM-D}{SHIFT-+}{$e6}R{CBM-R}vP{$ea}E{$e5}i{SHIFT--}{CBM-T}W{CBM--}$L{$60}xO{$fe}{CBM-K}{$e4}#
FNeIoD,{CBM--}{$f4}WS{$e2}!

ssrchcmd.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B

E{CBM-O}{$e7}D{SHIFT-POUND}G{CBM-A}E{$e1}{CBM-E}E{CBM-F}{$e5}n6Fx^V{$e5}{CBM-L}-;{CBM-S}]ryY{$e2}{$e5}QFEUEZ{CBM-Q}{$e3}{SHIFT-+}{$60}{$de}
{CBM-J}{CBM-D}{CBM-@}DF{$f3}{$7b}{CBM-I}#({$e6}{SHIFT--}&^{$ee}Er>'i{CBM-V}FT{CBM-+}KXF{$e6}={$7b}{$e6}EtD7{$f2}Xq{CBM-N}H{$7c}LkG{CBM-S}{$ea}yKT{$e4}DZ{$7b}Z{CBM-Q}{CBM-Y}lZy{$e6}c{CBM--}Ec>DU{SHIFT-POUND}{$7b}Y{$de}ET
{CBM-A}>K{CBM-V}c{$f0}:{$ef}{CBM-F}B[P{$e7}SR;Oh{CBM-F}C{CBM-F}{CBM-POUND}#F{CBM-E}Z{CBM-W}{CBM-T}'H
{$7f};{CBM-S}{$e3};:{CBM-M};{$eb}{CBM-O}ZTf{CBM-P}%{CBM-D}g{$7b}5?g_n ji
{CBM-POUND}{$f0}]{CBM-E}{CBM-W}{$7c}H!OGCq{SHIFT-POUND}M{CBM-R}{CBM-V}{CBM-X}"{CBM-F}B&{CBM-A}j{SHIFT-POUND}/y
{CBM-Q}328EJ{$e6}J*{CBM-W}{CBM-H}{CBM-H}z' #H{$f2}{CBM-X}{CBM-+}\<B{CBM-G}(k(*SYn{$60}>,/QS{CBM-K}{$fd}p{$60}Q{CBM-+}{SHIFT-POUND}
${CBM-X}k!h
C{CBM-K}UBpUY{CBM-@}KW{CBM-@}>c{CBM-K}1{CBM-+}{$7f}5zpaM{CBM-E}3Q{SHIFT-POUND}f{CBM-F}{$e6}{SHIFT-POUND}L{CBM-V}H[YX{$ea}R?{$f1}EDxFYT)b$tM{$f8}wYzk{CBM--}{SHIFT--}"{CBM-*}{$f2}D%0El{SHIFT-@}E{CBM-J}kc0)=5p)><a
FKn*{$ea}{CBM-*}3_{$f4}U{CBM-U}{CBM-+}{CBM-D}KyQ=Ar{SHIFT-*}PP MTb YiaNF0&{SHIFT-POUND} KD{CBM-T}!S8Rhs{CBM-D}YpR{CBM-N}{$f7}{$f7}h{SHIFT-*}{$e6}{CBM-V}l3BM{$e8}fI{$f1}hN:rj4{CBM-T}{$ed}{CBM-E}{$e8}M A{$f9}*{CBM-H}{$f1}{$fc}VHA0I5"Q{CBM-+}QHh*{$f4}{$ea}q_I8{$e8}RCPXb4{$de}s{CBM-I}{$7c}{$e2})0W{CBM-U}^RUDaRp0RC{$e4}vB{CBM-+} @{CBM-POUND}G{$f2}{CBM-C}{$e2}{CBM-A}FS{$e6}ZC?F
I{CBM-J}{CBM-Q}c{CBM-O}&T{CBM-POUND}\{$e4}{CBM-Z}{$fc}!{SHIFT-POUND}@p2LR
9{CBM-H}{$f3} z{$fc}a>{$7b}x[j;@g{CBM-A}{CBM-Z}OY)zK{CBM-P}{$fb}{CBM-J}QDJ@{CBM-K}{CBM-K}*{$ef}d'G [{$e8}{$f3}{CBM-W}{CBM-Y}{$f1}O{$7b}{$f3}$$KlO7{CBM-R}{CBM-M}=@q,x(a{$7e};={$f4}ANB{$ed}{SHIFT--}!0[:y&{$ed}1r:{$f9}{CBM-T}R{$e3}

{CBM-D}~mXM@e{CBM-H}Xd${CBM-B}
iXebe{CBM-C}y,{$f5}VejDd{SHIFT-@}NhM$d>C{CBM-O}I{CBM-W}{CBM-U}{SHIFT-+}{$7b}Z0{CBM-R}Gk{SHIFT-POUND}~{$fa}L{CBM-A}fS{CBM-O}{CBM-A}Gt{$7d}t8{CBM-P}{$eb}{CBM-Y}Ze
I{CBM-Z}(&{CBM-E}
{CBM-N}{$fd}{$e6}{CBM-K}"*{$e3}QeHC.{$de}{CBM-POUND}{CBM-+}5{CBM-POUND};{CBM-POUND}D0G{CBM-F}{$ed}{CBM-POUND}{CBM-X}Ql{CBM-A}F{$f5}Z
jZ:U!m2{CBM-K}P{$ed}{$e3}{CBM-E}:{CBM-G}zFR6OB{$e5}"6p{$e4}P7{$e9}E{CBM-W}:C9{$e7}$ E[{CBM-E}]{CBM-K}{CBM-POUND}{$f9}{$f0}E;&9GFSdQk(*{CBM-Y}AZ#Hd{CBM-Z}P1R{$ed}K]Zh{CBM-Q}{$7b}ph *{$ef}_8RG"!F{$ed}NRH.{CBM-A}!
BH /$0{SHIFT-*}"{CBM-S}{$60}SJw{SHIFT-@}{SHIFT-+}zV%{CBM--}{$de}R{CBM-Y}(L{$e1}h{CBM-P}{$f2}]K{$f8}{CBM-M}{$de} (*({CBM-W}W{$e1}B{$f8}{CBM-Y}=(O<{$e1}W{$f3}{CBM-*}T{CBM-*}{CBM-Q}{CBM-M}{$7d}Bo T{$f4}{$f5}{CBM-I}{CBM-D}{$e8}h{CBM-V}{$f3}{$f1}Mg#{$f3}{$fe}Cg{CBM-M}-QM?UEMGmD{$f0}{$e1}W{$ed}{CBM-B}{SHIFT-+}XHa{CBM-N}w{CBM-H}u{CBM-N}((fQ{CBM-R} ,{$7f}
Lbt{CBM-L}{$e4} L{CBM-K}{CBM-A}HN{$ea}33--e{$fb}cx{CBM-O}zip@{CBM-S}{$e8}S{$e8}Fqp{CBM-A}1W{$7e}{CBM-U}3{CBM--}{$e6}{$7f}'&@{$7e}RY{SHIFT-*}Ae'{$fd}{$e2}{$f0}{CBM-E}oA_M{$e7}BV{$e6}QgS{$fc}{CBM-@}{$ea}{$f9}WB{$f8}8T{CBM-C}{$7d}{CBM-I}{$e3}{CBM-Z}ZG{$f9}LeF%vS {CBM-T}A0'{SHIFT-*}{CBM-L}K={$e3}{CBM-Y}Z{CBM-H}{$f9}lZCsc{$ea}<{CBM-A}> Kv{$eb}cxTCD4z{CBM-R}qIKi^
2b"d%{CBM-O}U#HymJ{$f2}{CBM-W}{$7e}
hCB@#06_Hae{$fa}6I{$e5}){$f9}U_:/Y{$7f}UipX{CBM-H}>9hH{SHIFT-*}BS)K{CBM-P}S{CBM--}c!{$eb}{CBM-G}B{SHIFT-POUND}9{CBM-M}R%{$f5} 61{CBM-W}g{CBM-K}v
mi"Uo({$7f}E{CBM-X} {$de}O1{$e1}p{$ef}WEo;Ai{CBM-X}K{CBM-J}A1{$f6}{CBM-T}{$f6}{CBM-J}{CBM--}{CBM-R}3D^{$f6}9hmQ'{$f5}{CBM-*}>D0(KB/j{$e7}QL{$f9}.pUv{$fd}{$e7}{CBM-L}{$f7}E!T{$fe}{CBM-E}\H{$ef}Z#.Z{$f9}{CBM--}G{$7f}{$ef}{CBM-O}OC]{$fc}
E{CBM-POUND}bHO+{$ed}a{SHIFT-*}{$f0}<{SHIFT--}pp{SHIFT-*}WtNc1{$60}>H{$ea}RZ?s7bt{$ea}{CBM-H}{$f6}{CBM-F}{$de}2'{CBM-O}{$7b}B{$7d}K{CBM-Q}{CBM-*}{CBM-Q}{$de}{$60}K{CBM-Z}.R{CBM-E}L\{$f2}*K{CBM-N}{$de}{CBM-L}Zt{CBM-A}{$fc}T{$f4}S{CBM-L}{$7b}G?{$f4}yg?u{$f5}/c{$de}{$e7}{$e1} Oh !P+V{CBM-Y}<)X{$ea}\{$e7}{CBM-F}{CBM-A}{$eb}8{$ea}{$e6}_PWS,{$f6}rA{$7e}{CBM-O}k^{$f9}{CBM-G}eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{CBM-I}0#TbK{$f2}
{CBM-N}{CBM-POUND}A{CBM-POUND}lI{SHIFT-+}'1{SHIFT-*}ZIKH P{CBM-+}VJ{CBM-N}{$e2}{CBM-POUND}@{CBM-Q}.FHKI v:{$e9}a2H#T{$e7}o{$7e}B{CBM-D}{CBM-Z}Y{$e7}{$f1}({CBM-M}Q10
3P#IFU!{$e3}SBk !'{CBM-Z}C(M{CBM-K}9+ "PBSRMK{$eb}{CBM-O}=,!{CBM-L}{CBM-N}
{$7b}'{$fd}{CBM-K}/{$fc}{$fc}4xcp{CBM-S}$P){$7d}ZC'K{$ea}





































































































































































eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{SHIFT-@}NR{CBM-POUND}a {CBM-D}{$fc}adD{CBM-I}o**{CBM-POUND} )Vb{$f2}qD{CBM-X}{$7e}{$ea}{CBM-G}V,{$e9}J{CBM-R}{$ee}F !B)JD{CBM-POUND}Ei(R!{CBM-I}JmBK{$f2}{CBM-E}2T"
{$ef}{$e1} {CBM-D}{$60}mx{SHIFT-*}{CBM-K}{$7d}R_V{CBM-O}{$fd}{$ed}uIS1,{$60}W{CBM-O}vP({SHIFT--}Q\{$f4}1 EA{SHIFT-+}{CBM-+}{CBM-@}{CBM-K}0{$f2}oaqp{CBM--};FD8OET{$7b}{$f6}oVe3ZQ%P{CBM-T}Lc+m\{$f4}{CBM-Z}{$ef}
f!c {CBM-M}7{$f5}bXQ9{$f4}{$e3}%-H{CBM--}{$f5}h{SHIFT-*}{$60}^PG#I{$f1}V{CBM-N}{$e1}{CBM-@}{$f9}w# {$ec},{CBM-Y}\4$k
 Q1{CBM-POUND}a{$f7}{$7c}{CBM-C}{$ec} ?{$e9}POhpzW{CBM-K} Bh-{$e1}{CBM-I}"{CBM-G}{CBM-V}(e7T{$e4}b)r{CBM-E}7{$7f}b{CBM-L}{CBM-R}hupu{CBM-E}SUNDU736K{$fb}QkU{CBM-R}{$f5}6n/{CBM-F}'O{$f3}{CBM-L}k{CBM-H}{CBM-@}{CBM-R}{$f4}D{CBM-P}4?BJX{$f6}R{CBM-N}{CBM-J}B6'"!{$f6}*HfQ_{$f6}gqz b#{$f6}{CBM-G}E{$f6}r{CBM-*}d{CBM-S}&{$fb}d8J{CBM-V}{$de}{$fa}\o{$e2}{$e6}[VP{$7e}{CBM-E}zk
{CBM-POUND}c{CBM-H}j4(H+{$e2}{CBM-+}e#j#
+{CBM-E}&{$7e}"V{$e4}{$f6}/w8{$e9}{CBM-V}i{$e9}A~U0]{CBM-W}3g {$f2}4#s
{CBM-B}{$60}"{CBM-F}{CBM-V}{CBM-POUND}HCW{$7c}!;{CBM-A}5L;XX\4{CBM-N}k{CBM-T}#{CBM-M}{CBM--}{CBM-J}d:;{CBM-S}GD!P{$e2}9wJC{$de}{CBM-Q}{CBM-C}Z{$e4}{SHIFT-+}Y{CBM-M}{$60}k{CBM-T}26jr{CBM-E}M H{CBM-T}{CBM-P}{CBM-Q}v{$eb}{$f5}w*fuZT{$f5}{SHIFT-*}YC{$ed}U{$f1}QYJ{$f1}{SHIFT-POUND}{CBM-U}{$7d}{$f2}T{$f5},

































































































































































































































MJ&I&F{$7b}aR!
BBq u!xU!J\{CBM-POUND}H"L{CBM-Z}V%(R{CBM-G}y#{CBM-H}{SHIFT-@}
v{CBM-A}p6po#hQ\cV5z{CBM-D}B'lZAba{CBM-+}H E{$e6}{CBM-POUND}k)XUJ%{CBM-R}{$ea}{$e6}{CBM-+}"d{$ed}*O{CBM-T},{CBM-N}{CBM-O}jd+{$e4}{SHIFT-POUND}{$f2}H{CBM-POUND} "{CBM-I}GGIM{CBM-Y}{$e3}{CBM-W}Pr2{CBM-R}B
 &EC {$eb}{CBM-L}dM#]RJ#SDCh{CBM-T}&Jsvm{CBM-J}{CBM-M}S{$f4}$37{CBM--}n{$fd}48kV(3{$f4}{$7c}S{CBM-G}
{CBM-K},2{CBM-Q}E(.{CBM-J}@{$7d}-O{CBM-*}_k,7W{CBM-W}{CBM-Q}{CBM-G}suZK{CBM-L}^Fj{$e9} *M6p{$fb}E

sc64kernal.a{$fe}!
{CBM-U}FI{CBM-I}H$qB$I{CBM-@}b<9J{$60} oaB{CBM-POUND}p'b{$60}{CBM-@}#%4Y{CBM-N}tR$'lr{$ea}XI{CBM-W}rJ)GH3G#l&BI{CBM-M}l{CBM-H}DqjyI$n4J{$e5}{$fc}e"{$e5}k/!Ekf{CBM-Q}]iJtV{CBM-POUND} 4a"%I%k<{SHIFT--}[{CBM-@}p{SHIFT-@}nzj{CBM-F}6,iht{CBM-R}cVH9{CBM-N}%{$f9}$5p&h{CBM-Z}{CBM--}$JI y{CBM-R},2DBN{CBM-POUND}Z{$e4}B{$f6}^b8ZG%tHr&>{CBM-P}ZMt6W{CBM-Z}G$*Ah{CBM-@}bZji{CBM-N}Ci.ODVJ&VY5{$e5}G'R{CBM-E}b{$e7}jQg!{$7b}V{CBM-R}F{CBM-P}5g {$fd}E{CBM-E}FE{$e2}{CBM-D}B,"{$e4}{CBM-POUND}Gy*_{$e4}$Tf{$e7}OkE{$ee}{$e6}{CBM-W}L{SHIFT-POUND}{SHIFT-+}{$f9}PK{$fe}TL{CBM-H}DA{$ea}PG{SHIFT-@}H)DM{SHIFT-@}C'U{$eb}B{$f7}CL{$e4}{CBM-+}{CBM-Q}=E-{SHIFT--}G{$f6}{CBM-Y}7{$e4}@{$eb}{CBM-A}RMDnAC2{$e5}q#p {CBM-I}IGM{$ed}\e{CBM-D} +D*{$e4}X
N{CBM-P}6{CBM-F}YZcP{$7b}IQ{CBM-POUND}F5W%({CBM-E}K&{CBM-W}{SHIFT-POUND}{CBM-J}^jG'{$f3}HVY{SHIFT-@}{$ee}pe#9C1{SHIFT-POUND}{SHIFT-+}{CBM-P}1{CBM-Y}M{$f4}{CBM-T}{CBM-E}{CBM-D};{CBM-W}[C{SHIFT--}{CBM-F}z{CBM-L}{$f6}j{$f4}6I],
{$e1}I>F


s
shellstr.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B0{SHIFT-POUND}p&h"{CBM-POUND}{$7e}{CBM-N}#{CBM-POUND}>{CBM-O}-({CBM-I}
{CBM-K}AK{$ec}Q{CBM-N}{$e6}{$ea}r
a{$e9}I(A{CBM-I}@@GU{CBM-I}t:{$e2}"R{CBM-G}()CMEDL{CBM-T}{CBM-Q}T{$7c}u {CBM-L}KUJ#C(P;T6*"Gyb{CBM-A}]{CBM-POUND} ,U{CBM-W}{CBM-POUND}'{CBM-Y})0${CBM-X}"s{$eb}{$f5}XS
HtXXU({CBM-T}{CBM-R}m{CBM-POUND}EX{$7e}{$f9}{CBM-N}H{SHIFT-@}F#6{$ef}h*Y;{CBM-C} #>Jf{CBM-O}{CBM-K}C+{CBM-K}{CBM-C}#{CBM-R}{SHIFT-POUND}{CBM-V}{CBM-T}R{CBM-T}6-{CBM-I}CN0NX{CBM-W}y{$ef}${$de}R{$e6}{$7c} 4{$f5}{$e8}S{CBM-J}{$f8}L9V3~hN{CBM-X}\M+B{$ed}{CBM-R}M
eG1FDRU*b{CBM-N}"UdP2=q(bu:Y=e?HIBNJw{$7e} Z{$7b}{SHIFT-+}LQ>{$e4}4j,V%TU{$e3}k^VqBV
Hd?{$fa}D*v{CBM-N}{$f3}rr
{CBM-M}Xt{CBM-X}p!{CBM-I}A{CBM-W}BK{$e5}*B8%Cd{SHIFT--}{$f1}QsT{CBM-I}{CBM-H}5F1{$f7}{CBM-V}81{CBM-H}BQFOBB{CBM-POUND}{$e4}Xb{CBM-V}eSJEN{$f7}Iu{SHIFT-*}p{$f1}{$e8}{$e6}{CBM-C}B{$e4}${CBM-H}(cB{$f8}9uQ{$f5}X{CBM-N}U{$7e}{$e7}@5{$ea}qc{$7f}zDVE$Z+ <{$f6}{CBM-C}Y&f{CBM-Y}jc{$ea}p{$e1}{$e5}a1bJ{$fa}3tJ
0I{SHIFT-+}5Tu[{$7d}{CBM-M}{CBM-J}gfZ{CBM-T}hb{CBM-U}O0l7rH{CBM-POUND}G{CBM-N}fD-{CBM-O}{$7b}XS{CBM-A}Wp&pW{CBM-B})
{CBM-F}
P{SHIFT-POUND}{$7e}";>{CBM-Z}{$f6}{CBM-A}q_H{CBM-I}$HT+)%
4mA{CBM-O}{CBM-G}{$fc}{$f0}{$fe}{CBM-Q}{SHIFT-@}qEnKD -{$f3}{CBM-POUND}{SHIFT-POUND}LZ{$e7}!({CBM-W}{CBM-POUND}{$7d}N{SHIFT-+}NB>{$f3}UJtYvc{$f9}{$e5}{CBM-L}qj{$e9}Ga{SHIFT-POUND},B{CBM-T}:x${SHIFT-*}${CBM-D} 0{$7b}bQ#Q,OG3[ U{CBM-C}4.N&Vz(1(G{$7b}?8m~H)T~Q{$fb}M{$7e}{CBM-O}R{CBM-@}PN{CBM--}{CBM-K}.iN{CBM-Z}{CBM-@}

sshellcenv.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}B{CBM-H}Wc]{CBM-F}@{$e3}"{CBM-+}{CBM-O}L{$ea}{CBM-M}E{$f6}tXq{CBM-H}Fm_bN-\;{CBM-W}c"bc{$e9}I{$7b}:r5{CBM-V}{$e9}{$f3}LY0.zl{$fd}{$fb}w{$fc}I{$fa}{CBM-O}(x&gKNHwATlG{SHIFT-@}HIH~H{$e4}B{$f9}{SHIFT-+}{SHIFT-+}{CBM-T}E47{$7f}z{$ec}z{$ef}&{$ed}O{$e7}ek{$fb}{$7c}{$f8}z{CBM-K}UL>cf{$e9}{$ea}{CBM-V}{SHIFT--}{CBM-R}(@P\{$e9}{SHIFT-POUND}WF{SHIFT-POUND}! {CBM-J}T{CBM-R}{$fb}{$f4} !{$7c}RI{CBM-G}M&{$f4}{$f2}{CBM-H}G({SHIFT-POUND}oV{$fa}P
{CBM-POUND}{$e9}m{CBM-R}9SEs'({$e8}){$e7}ZpW{CBM-C} {SHIFT-*}{$e3}  {CBM-@}{$e7}\(E{SHIFT-*}J{$e2}{CBM-POUND}a
f{CBM-M}{CBM-I}T /y{CBM-G}{CBM-Q}I i0{CBM-A}k{CBM-H}{$fb}80{$e7}p{$e3}*{CBM-@}M5{CBM-A}X{$60}hJ4YP{SHIFT-POUND}{CBM-M},{$e6}ZC7{CBM-X}{CBM-U}Z{CBM-G}F0{$e7}f5c6a{$e2}{CBM-L}{CBM-D}{$7b}_WC#L]p{SHIFT--}8u{CBM-X}54A{$60}h{$eb}s{$60}{CBM-*}G{$7d}0ID
j{CBM-L}{$ec}WY{$f0}U{CBM-R}{$7b}n;N{CBM-V}{$ec};u[{CBM-J}m Zp{CBM-Y}m{CBM-E}0Z{CBM-Y}{CBM-W}{CBM-T}7a{$e9}{$e5}{CBM-N}{CBM-H}w{SHIFT-+}~E7{CBM-R}h{CBM-F}+Hg{CBM-Y}oI
{$7b}({$7b}js7{CBM-O}{CBM-Y}V>8{$7e}{CBM-J}>Zp>{CBM-J}q{$60}hj{CBM-M}{CBM-L}^G{$e4}{CBM-POUND}xGH1j!{CBM-A}g]_{SHIFT-@}{CBM-O}rW+ZKc{CBM-M}{CBM-H}EWV{SHIFT-@}G{$7b}Th4W@k*q{CBM-Y}R{CBM-A}NA
{$f6}{CBM-N}){CBM-X}&io{CBM-+}o{$e2}{$7c}LjH{CBM-S} o' {$ec}G{CBM-R}{$f6}u{$fe}!?{$fe}JEW^OM{$fa}z7
4X{CBM--}{CBM-F}TKv3AV{CBM-Z}{$7d}${$e4}P{CBM-R}"{$60}M
%-{$ef}fU{$f6}=XAr]C{$ef}QBBG{CBM-E}{$e6}{$f4}8{$7d}Z'G{CBM-U}{$f2}>{SHIFT-@}{$f6}Q sPK{CBM-W}{CBM-O}F
D!o{$e4}{$eb}Z {CBM-POUND}{$f8}{CBM-I}Y{$fa}{CBM-POUND}{CBM-K}
xS{CBM-*}R{$7e}O{CBM-F}'{CBM-B}6{$f7}?m{CBM-D}2RIGf{CBM-@}VLl{$de} r-hHCl?J{CBM-K}{CBM-D}5v{$ec}{$fc}HGrHDowG{CBM-B}4{CBM-I}M{CBM--}{$ef}{$ea}I{CBM-POUND} S{$7e}L#{$eb}{CBM-T}{CBM-S}b=VI^q{$de}?{$ee}Q!{CBM-I}Nc
eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{SHIFT-@}2*(a {CBM-D}{$fc}L{$f2}
{CBM-N}{CBM-POUND}A{CBM-@}{CBM-C}{$7d}z{$7d}j{CBM-@}QH
r{$ef}{CBM-K}5V{$e9}{$e3}{CBM-N}#BF$jZ{CBM-G}/2H+DMBn{$f8}{CBM-R}{CBM-I}Y{CBM-@},PyL{$ea}(!Yu{$f6}JfI{CBM-@}E'w{CBM--}{$e4}"{$ea}&{$7d}L{$de}{SHIFT-@}J{$e6}{SHIFT-@}{$ed}
{$ee}{CBM-POUND}{$ec}.{CBM-F}{CBM-Z}Ol{$f6}{CBM-T}{$f4}bF
N{CBM-E}{CBM-S}%{CBM-H}KVB{$e3}
{$e2}aAVj!{CBM-POUND}.p{SHIFT-@}&pmC{$eb}20{SHIFT-*}
,B]{CBM-Y}{$7b}u{$60}B{$ec} {CBM-X}j{$7d}3{$ec}{SHIFT--}VGH{$de}{SHIFT-*}n8
{CBM-C}wD
-Ln{CBM-O}R(7{$f5}{CBM-D}{SHIFT-*}{CBM-S}{$f0}{$f8}E@K{CBM-Q}{$f3}o{$f5}BkOB{$fc}{$e8}{$f6}{$ea}N{$f2}{$7e}SPB{$f4}{CBM-E}A{$7b}#{$f3}{$f9}s0
WVQwA
3L7+
=I)t$gV{$7b}+rH%






















































0=%rOeDY{$e2}U&{$e4}{CBM-T}ILH{CBM-N}TU(ZXcdZ{$e2}{CBM-F}YXl<{CBM--}{CBM-+}C '2{CBM-K}rJ{CBM-D}fIf${CBM-M}IJ{CBM-S}p{$e4}{$e2}X{CBM-P}{$de}P IbL{CBM-C}{CBM-F}e{$fa}^X\{$e2}{CBM-J}{CBM-POUND}/{$ef}
pt{$7d}(kU{CBM-H}1qNA{CBM-R}{$fb}f4 GU{CBM-N}{$e9}T+
(Q,R{CBM-E}jCH{SHIFT-+}PF{$f2}jG9{$e1}{$f2}F1{CBM-H}Ues{CBM--}TM{CBM-S}y<Nn{$f3}{CBM-POUND}{CBM-F}&\OZ\K{$f2}Pj{$f2}{CBM-H}zO]s{$7b}ouBsN{$ea}{CBM-M}){$e5}v
{CBM-K}{CBM-*}{$f4}2fS{$f8}V{CBM-D}{$f6}k{$f9}V{CBM--}ZOjZ_Mr)d!{$de}v{CBM-L}2{$ed}L{$7b}{CBM-F}]Y>{CBM-R}U c${$ec}hG{$e4}V
eP{$60}D{CBM-R}{$f5}{$e2}3
{CBM-Z}l{$f4}n/{CBM-N}{CBM-O}L&
%FKr&{SHIFT--}OD{$ea}D.S({CBM-I}TD<{SHIFT-@}q{$7d}{CBM-X}{SHIFT--}{$fa}{CBM-POUND}!{SHIFT-*}{CBM-F}{$e1}nC
SXA,{CBM-I}{$e1}R6i$_({$f9} aNDh {$e9}
R $B
&<{$ea}dI
r".4{CBM-R}({$eb}GsD{CBM-Q}Gc({CBM-K}*Vb{CBM-K}ER{$e8}{CBM-C}b{CBM-T}B{CBM-POUND}{CBM-B}h^{$7b}+p{$ea}{SHIFT-@}lPY
-z{$e8}E L {CBM-POUND} U{$fa}{$ea}&S{CBM-D}{CBM-E}'{$e2}{CBM-POUND}a
"R!{$ee}4p9+
H{$f8}L(
!{CBM-C}VYH{CBM-O}i{$fa}X${$fb}{CBM-Q}*
Z;{$e4}s.C{$ed}h{$e9}{$e6}{CBM--}!t{CBM-R}D^e{CBM-B}Y{$e4}5G{$e4}c{CBM--};{SHIFT-*}{CBM-L}G7GR{$e9}{CBM-N}x?AT%{CBM-E}K{$e2}@C{CBM-POUND}@3oi{$7c}A{CBM-U}{$e1}{CBM-@}H+{CBM-@}%=pB
t{$f8}r{$7e}bL{CBM-G}R%ZrbEE{$e2}4T "P{$e4}Z{CBM-L}%7m{$f3}_{SHIFT-@}{CBM-J}F({$e4}LoW1c,E
K3{SHIFT-+}{CBM-D}PY{CBM-G}x{CBM-X}kNE-{CBM-V}{CBM-F}@nU
 d%&{$e3}\2{CBM-Q}ra(Dho{CBM-D}{$f2} \T{CBM-N}P>JJ{$e6}{CBM-I}
j{$f6}{CBM-E}_%{CBM-+}DC{CBM-G}p{CBM-I}n1\^L{CBM-POUND}tm{CBM-H}{CBM-Q}F{$de}X\]D5,C{CBM-C}JjSW
<%H{CBM-R}O{$fc}
]V


sassm2.e{$fe}!
{$e8}( i
xTaPA
)elHT(99DF!jYjc%g$d  AcqBQ#C
*vJ2'='{$e4}h&jl{$7e}TIR











































































































































{SHIFT-+}X{$e9}M{$f8} t{CBM-H}]H"!bLQ;RIF{$ea}{CBM-POUND})I{SHIFT-*}{CBM-D}gKT{SHIFT--}N{CBM-F}x{CBM-J}R{CBM-S}T\UEN{CBM-U}{CBM-U}{$ee} {$e9}A
3{CBM-E}Z{$e4}iI-{CBM-L}\{$e7}^{CBM-L}tk0{$e5}





































































































































































{SHIFT-+}{CBM-Z}
zZ]4"Y{SHIFT-+}
UF[ {CBM-H}{$fc}{$eb}I{CBM-C}{CBM-J}{SHIFT-*}2F$3h{CBM-V}Z4t{$7b}B"H7V{CBM-T}{SHIFT-POUND}{$e9}{SHIFT-@})(*!x{$fe}UW[?C{SHIFT-@}{$e3}MNJS{$f6}6(!a{CBM-@}m@*J{$f5}#{CBM-T}M
I{$f2}{CBM-POUND}k]L"{CBM-Y}HL8p{$e4} 5{$f4}{CBM-T}{$fb}.i{CBM-Z})t<{$e5}{$ec}{$e7}{$e8}{CBM-H}{CBM-Y}{CBM-+}n@AP5UY{CBM-Z}{CBM-*}[G@
E{CBM-I}{CBM-K}{$fb}{$f6}{CBM-P}X{$f1}z{$f1}%{CBM-V}UT{$7b}{$ef}{CBM-V}Oj>{SHIFT-@}{$f1})Jp4V*{$7d}{$f5}N[HC3G{CBM-M} {$e4}S{SHIFT-POUND}>S{$7e}{$f6}709{$7f}{$f9}F?{CBM-V}W.W{CBM-O}/.EAA{CBM-Q}F @BmInTM6Sk{SHIFT-+}pQ.

U6


sbuildshell.e{$fe}!
exec assm1 shellmain.a doload.a dprintf.a srchcmd.a\r














































































































































































L{$ee}pk{$f2}1{SHIFT-POUND}{$eb}o{$f8}0{CBM-Q}CZ=iG{CBM-@}OTKL{SHIFT--}{$f7}{CBM-A}{$e2}yP[{SHIFT-+}){$7b}L{CBM-G}D{$e6}TlA{SHIFT-POUND}^Q3p {$7d}9lPZ-tB{SHIFT-+}{$ec}[:{CBM-Y}V {$60}{$f7}c {CBM-J}H{$7f}WQ{$f0}NxB{$e8}{$e1}E1_Q
.t&P
{$f6}R{$f4}{CBM-N}CSiyL{SHIFT-*}{CBM-G}.B{$ec} x{$f0}{CBM-O}{$e7}L{$f3}Ov{CBM-J}{CBM-D}{$ee}AKYWu7M{$e8} [Q{$e1}+WV{$e4}{$ee}g{CBM--}Nl{$7e}S{CBM-L}T7os{SHIFT-*}{CBM-R}































































{CBM-K}S{$de}{$fd}{CBM-M}Z{CBM-@}j.D'm){CBM-G}bR{$e6}{$e2}{$f1}e{CBM-N}"*iv{CBM-K}j2iiJ{SHIFT-POUND}~r-B{CBM-POUND}{$e7}{CBM-N}{$ec}%{CBM-I}{SHIFT-POUND}$2b
Ob{CBM-I}N0R{$e7}V
{CBM-T}{$ea}{CBM-V})*{CBM-I}!{$ea}'d( {$ee}c{$e4}Y +HDPa {CBM-+}W{CBM-K}{SHIFT-POUND}*{$f2}a{$f2}{CBM-N}D=Z",1HL{CBM-POUND}{$7e} lH){CBM-Z}t1X#{CBM-@}Ja{SHIFT-*}kL'{$ee}H&Rr@={CBM-A}{CBM-+}e{CBM-@}{SHIFT-+}D7
{$f9}/{$e6}FR{$e2}{CBM-D}*pE:{$e2}yaYE{$e6}{$e5}L({SHIFT-*}b2LSl2H {CBM-+}:L{SHIFT-*}HQ
c.]P{$f3}0H {CBM-N}{CBM-POUND}{CBM-K}E{$ea}2L*y\j{CBM-A}^{CBM-+}qJa NR({$f9}{$e4}kB{$e5}Es{CBM-E}{CBM-POUND}F,"H[{CBM-I}EZ
B!Vx{$de}m@B
4W{CBM-U}U({CBM-T}"4BB!{CBM--} B
#O{CBM-O}B-l0
PsM O{$7b}
5-0{SHIFT-+}R{CBM-Q}{SHIFT--}WS,{CBM-H}0B{CBM-A}M{CBM-L}
O{$ef}y{$f1}{CBM-A}























































































































fuaP{CBM-U}Y*D!bqKjB4d={$eb}C{CBM-B}c{CBM-U}{$fc}{CBM-L}{CBM-P}{$7c}@{$e9}qLC<2TD{$e2}{CBM--}RDM{CBM-T}N{$f5}h{$f5}S{SHIFT--}ZI{$60}{$e4}{SHIFT-@}{$fb}]{SHIFT--}6{$f1}H{CBM-R}MRRZA9s2L{$e7}{CBM-S}FmIEmM{$ec}@sr{$ea}l'{$7d}[{$e3}{CBM-H}{$de}R
{CBM-X}p8oXV
{CBM-H}LK!I;{$eb}{CBM-POUND}B%N{CBM-X}XQhM%{CBM-A}M)&Yc{CBM-K},{CBM-D}.Xbuu
"z{$e7}!b !MG{$f3}
{$f2}{CBM-C}S{CBM-O}'qDDU{$ea}P{CBM-Z}{$de}J^{CBM-P}Q{CBM--}M){$f9} X{CBM-V}{$f3}{$ea}V/E{CBM-+}c{$e7}2{$ee}7{$e4}@A.R"{SHIFT-POUND}DNa3{CBM-S}b{CBM-F}


s
linkshell.cmd{$fe}!
!i4{CBM-H} Af{CBM-A}"" l(2Deg>2A$Dr!l {CBM-G}{CBM-U}p
{CBM-E}'c q(%%l6g{CBM-C}@q{CBM-T}{CBM-K}l%e(QB&jznBX{CBM-A}&ja29E <GD{CBM-A}{$e4}{SHIFT-POUND}r{CBM-K}P1D"{CBM-POUND}n({CBM-S}{$fd}{CBM-+}Q{SHIFT-*}X



























































































 W

s
shellvar.a{$fe}!
{CBM-U}A{$e2}f@q2D($80H{$e2}b{$60}%I!{CBM-A}@{CBM-I}{$fb}{SHIFT-*}
Yj{$e4}Iq!{$f9}TC!a*!{CBM-N}t'h$H'bI{CBM--}{CBM-G}j{$f0}8)Q!i(ZK{$ea}#h:AB G1O{SHIFT--}{CBM-POUND}%{$f4}Z{CBM-L}O4XHj)t'{CBM-V}Y{CBM-R}{CBM-G}{CBM-@}
B@{CBM-K}{$60}bTy#x{SHIFT-POUND},TS*s{CBM-S}b4({$e5}{CBM-+}j{CBM-U}O{CBM-J}{SHIFT-POUND}$I
%o{CBM-D}W1d{CBM-+}'sHRDg{CBM-POUND}^8{$e5} {$e4}k-m{SHIFT-POUND}${CBM-F}{$60}BD {CBM-I}WCB{$fa}3A {CBM-K}{CBM-Z}AlfB{CBM-Y}){CBM-+}#{CBM-I}{CBM-O}DA7
D%kpY2{CBM-V}yT{CBM-T};B{CBM-C}0{CBM-V} ?zH&R:XlIkyFR{$e1}{CBM-A}#
%{CBM-Q}[s{$e7}V&{CBM-D}X{$fa}CF6{CBM-J}{CBM-O}'{CBM-K}DNHYV 9-<{$e1}){$f2}ZCA{CBM-R}{CBM-P}{$fd}{$e8}V8tOVE{$ed}xz;5{SHIFT-*}{$fe}XP{CBM-P}Do{$7b}Vn {$f2}<x{CBM-C}HJ{CBM-U}'H{$fd}{CBM-H}g{$ea}1:9j^{$f5}{SHIFT-@}JD{$f9}V{CBM-B}t{$f2}z)_xisz{$e6}GD9TG!q{$fa}{CBM-U}T{$7b}S{$7b}{CBM-V}nS&IC{$ed}{$60}{CBM-A}YI<N{$e2}=M0LP+u
KbJR,db{CBM-D}


sassm1.e{$fe}!
{$e8}( i
xTaPA
)elHT(99DF!jYjc%g$d  AcqBQ#C*vJ2'=GDH&j5P,m{CBM-I}La*{CBM-N}fb(B$*v{CBM-S}zPJmCCb:I2{$f3}{CBM-T}k.




































































































kJMR[PXR4B{SHIFT--} Nl{$e2}({$7e}0y{$ee}$hd^h#LVt{$e4}{$de}{$7f}{$fc}{$e4}{CBM-F}{$f2}{$fa}{$ed}BC{$e9}{CBM-B}{$ec}{$7e}{$f9}0B{$60}p>#{$ef}
{CBM-I}OB{$e1}{CBM-F}BHBB{CBM-L}2LA{CBM-Q}d{$fe}0{CBM-A}{CBM-N}{CBM-N}{CBM-I}{CBM-A}\H{$e1}C#{CBM-A}{$ea}KIp{$fc}xD{CBM-E}J{CBM-S}{CBM-G}V!{CBM-Y}{$f6}dO:{$eb}{CBM-N}{$7b}DP{CBM-+}w4aC
{CBM-D}{CBM-V}HG{$e1}C{CBM-G}G A('Af{CBM-@}{CBM-@}uFD0by#J{CBM-C}WQ"{CBM-D}){CBM-+}{CBM-G}F#FAOA{$e1}K{CBM-Y}{CBM-G}%{CBM-Q}{CBM-T}v%>{CBM-I}E#JR)G{$e6}pSL{CBM-W}JjI{CBM-G}{CBM-N}Ges3,wr){CBM-G}!0{CBM-A}Bd$B{CBM-L}h2! {$e2}{$e2}U{$60}9 {$e2}{$ee} 6{SHIFT-@}{SHIFT-@}{CBM-Q}p
l0X]
C{CBM-J}C{CBM-Z}b I{$f0}0bJ(9DjW{CBM-A}{CBM-G}{SHIFT-*}CK1
{$7f}{CBM-Y}I{CBM-L}{CBM-K}{$60}gp@bpb{$e3}C{$e7}-CQ{CBM-X}{$f6}"0{$fc}AFM{CBM-Y}xc{CBM-A}WS{$e6} {CBM-+}{CBM-H}{CBM-*}!{SHIFT-*}{CBM-U} "B{CBM-POUND}4
w
{CBM-A}T{CBM-*}{$e3}( {CBM-@}Pg{CBM-POUND}{SHIFT-*}D{$60}cWCb
{$f3}{CBM-@}{$fc}Ys/{CBM-Q}UQ{$ec}SOxJ{SHIFT--}T{SHIFT--}C{CBM--}{CBM-+}l{$e8}40.8>L-{$f2}7S
JcNH{CBM-S}X({CBM-POUND}0"4Rp JIr{$e8}o{CBM-C}


slinkshell.e{$fe}!
!i4{CBM-H} Af:{SHIFT-*}
dq2DH{$7c}D(#!n
A)Ekh{CBM-G} tEkY2{$e4}I)*{CBM-G}I{$e6}a{CBM-H}D(si]4A{CBM-T}7!ALxh{CBM-G}d Jq{CBM-T}G{CBM-@}{CBM-N}z{CBM-A}{$e8}" o
V$ca={CBM-R}dQOlF{$60}{$fe}


















































































"{CBM-M}{$e5}@Ix){SHIFT-+}A{$f1}Ay{$ec}>cK{CBM-W}N{CBM-O}{$e5}%XX.l{CBM-B}{$60}{CBM-G}i{$7c}{CBM-S}{$ed}M0!{$7b}y{$e8} {$e3}{CBM-L}{$7c}{CBM-W}{CBM--}^(*{CBM-Q}cEN{$f3}[{CBM-U}{SHIFT-+}{CBM-+}k5{$fb}PFPM nPFsNPTQD{CBM-@}g{CBM-K}j{CBM-E}{$e4} YP&~{$e5}{CBM-L}C*F0{$e3}=Uk_U{$f7}@0{$7c}m2\;@{CBM-G}
ZrSq{$e1}mdpU{SHIFT-POUND}{CBM-@}MAnU{CBM-S}['{CBM-R}tpL{CBM-@}X{$f3}{CBM-O}{$f1}{$f8}{$f6}J)U[Aa9 B{$e4}{CBM-I}V{CBM-E}U{CBM-S}Q ^{CBM-S}S6J{SHIFT--}4{CBM-POUND}{CBM-U}{$f3}{CBM-A}9H@t"PB5{CBM-S}{$e3}{$fa}V{CBM-E}={CBM-+}{$ec}{CBM-I}LS{$f6}{CBM-E}?T

s
twincopy.c{$fe}!
i#l*{CBM-I}{$f0}p{CBM-+}b$YT${$f0}kaj ;J{$f4}{$e4}{SHIFT-POUND}%7{$7e}Tr"d2QXDf8A4Y{CBM-POUND}{CBM-K}kEDI% {$e1}XQr be0M{CBM-A}B{CBM-T}A{$f2}H{CBM-I}@{CBM-P}r{CBM-V}D{CBM-N} tL2{CBM-O}{$e2}u,f85X%{CBM-Q}t{CBM-C}CEt{CBM-R}{CBM-L}K,w{SHIFT--}6DHGda{CBM-R};f{CBM--}{CBM-E}b{CBM-J}M>5JY{$fc}a@Yb{CBM-X}{SHIFT-+}S&i
{CBM-R}{$ea}5I{CBM-A}%POy9{$fa}{CBM-Z}p(
*{SHIFT-POUND}I5k2mJQP  nT{CBM--}{$fe}
{CBM-Y}{CBM-H}{$fb}{$f6}i&jR[{$60}y{CBM-Y}H{CBM-J}0L{$ec}3{CBM-U}{$de}9T{$7b}{$ee}
2{CBM-E}(E_* ,2R{CBM-POUND}@{$f6}{CBM-D}QXk{CBM-P}wE{CBM-I}{$e5}{$ec}q={$f7}P{$f6}FQg{CBM-A}Hb{CBM-W}H &{$e8}Nq{CBM-POUND}Z\{$e8}{CBM-T}{$e4}{SHIFT--}:{CBM-P}{CBM-R}x{CBM-L}{CBM-E}YNUA<{SHIFT-*}{$e4}{SHIFT--}{SHIFT-POUND}F
{$fd}{$ee}R{$f6}N>{$f6}{CBM-I}iI{CBM-N}{SHIFT-@}{SHIFT--}wY{$7e}/{$e3}G{$f4}Z;?{$f3}VM{$f4}Z{$ed}{CBM-B}9T{CBM-X}>Q{CBM-V}{CBM-Y}G>G,B(o{$7e}{$ea}{CBM-R}?~:U+{CBM-K}{CBM-W}{SHIFT-*}{$ec}
S{CBM-+}Z{CBM-J}%J{CBM-Q}QdU98%-zc.{CBM-N}*cDJU{CBM-J}{CBM-POUND}c'U);Pa$GxS@H{CBM-M}w{$fc}{CBM-Q}


slinktwincopy.cmd{$fe}!
p{CBM-+}i{SHIFT-*}{CBM-I}d{$ea}$I&o&:J$bD{SHIFT-*}{$60}T{CBM-E}Id";Vhq{CBM-I}{CBM-K}#^{$ec}dI!l{CBM-J}4{$60}{$fd}a<u*
  fq{$e4}%+{$7c}DHq{CBM-T}Gl(h0!A


























































































































{$fb}BZ{$ea}W{$60}{$f7}CH{$60}{$ed}O{CBM-N}{CBM-POUND}{SHIFT-+}{$ee}E{CBM-J}W9{$f4}[^MWW{CBM-G}{CBM-S}L{CBM-U}KBfP{$de}C{$eb}{CBM-+}${SHIFT--}OUNJ
!{CBM-POUND}Ji{$e7}:o{$fc}{SHIFT-*}:{CBM-Y}{CBM-POUND}{CBM-W}*{CBM-G}{CBM-N}{$f2}0@{CBM-O}>{CBM-D}DU&ZBDU*Pa{$e8}wr9
{CBM-N}9{$e7}{CBM-O}[{$f3}Mc{CBM-O}x{$ee}D<{SHIFT-*}F+x%{CBM-C}MZ{$e5}L{$fa}{CBM-K}k{SHIFT-+}{CBM-X}V'{CBM-E}{$7b}$RO{$f2} "D!Hqp@c {$e4}S3M{$f9};{CBM-A}{CBM--}U
;{$f6}T]F=x{$60}{$60}2
aH{CBM-U}p{CBM-Z}G{CBM-T}G.H{$f2}\{$fc}R$,Doj{$f3}{$7d}l{CBM-@}

VW{$f3}{CBM--}R{SHIFT-POUND}Lm0{SHIFT-POUND}u{$60}: 8v{$f5}L7{CBM-Y}{CBM-Z}D{CBM-Y}{$ef}dE7#@{CBM-J}80{$60}X{$ea}xD{CBM-+}{$ec}b{$7b}{$fe}A#{CBM-Y}_{CBM-V}~{$ee}{$e1}{$e3}{SHIFT-*}{$f8}{CBM-C}X
"{$ee}_
CRl PC'C@ 8hi&"*
fx"{CBM-R}{CBM-POUND}{SHIFT-*}{CBM-N}{CBM-S} D0{CBM-N}( {$f3}0{CBM-POUND}{CBM-POUND}"jj{CBM-B}B{CBM-F}{CBM-H}{$de}qd1{$e4}({$f1}Hr+o{$7c}@{CBM-@},{$e2}V "d{CBM-S}*d{$f4}{SHIFT-*}
3B{CBM-Q}"2({CBM-@}{CBM-A}
({SHIFT-POUND}{CBM-@}J!B(G"Z
(#!22 Y{$fc}"{CBM-POUND}#b{CBM-R}a{$60}(*NJB{CBM-N}{$e5}*#
5l{CBM-N}y5DE]R{CBM-L}ZV3Q{SHIFT-@}{CBM-E}#





















































































































































































































































{$fb}-RH{CBM-O}M[{$f8}{$e5}Q{$f5}7 0Mh]M{$f3}{$7d}]Tz7z{CBM-G}W.{$e9}OXR ){CBM-POUND}{SHIFT-POUND}9LpISZ G?Ky*-CD&07{CBM-K}i {$e9}RS PBG+>rKzK{SHIFT-POUND}{SHIFT-@}T{CBM-Q}
{CBM-I}QF'lA;!(-NcR{$e9}o&tHg{$f9}{CBM-O}{CBM-Z}{CBM-P}{$60}PYoDp{CBM-L}{CBM-L}k{$f2} {$fd}{$ee}{$f8}Y*tnO\H{CBM-R}n{$ec}{CBM-@}cr {CBM-J}WgH.%'{CBM-Q}9O{$e4}{$f2}{$ea}t%{CBM-M}{$ea}{CBM-P}u{CBM-P}QkuS.RXd$2q!*{$f0}FJUOMFc'-A{$ef}T5KF{SHIFT-+}{$7b}\{$7b}pPf{CBM-X}z{CBM-A}X{CBM-Q}{$7e},

pcstart{$fe}!

a{$60}
XD ed2{CBM-POUND} BeqRQ @+d1 b:.BDHs&ET
0(
d# @9
(A{$7c}0AD
:B
P{$60}
{CBM-E}0Ck 7amjBFtva
D"@di*$!i(jI" b2I{$7f} +w
"{CBM--}{CBM-U}-{$7e}B*!YPtN("r"{CBM-+}{$e4}'{CBM-+}#
{CBM-T} {CBM-@}u
{SHIFT-+}{$f4}$k${CBM-J}?{$60}{$f8}QJ(V\
.@xz{CBM-@}E
{$f2}{CBM-+}{$60}B+6H{$fd}%{$fc}E{$7b}&0yBj{CBM-K}{$f1}r(Kp{CBM-V}Rb#A+l{CBM-P}$CfR{$60}hRJ{CBM-T}{CBM-@}&{CBM-G}Fg{CBM-T}{$7b}<e
3*{CBM-E}0
G &8U{CBM-G}2{$7b}JM{$f1}{$7f}{CBM-N}%{SHIFT-+}Z6r{$ef}
Gr$8KjH{SHIFT-POUND}{CBM-R}$P!{$e8}6P{$f3}.{$e9} az{CBM-M}-{$e9}x2{CBM-G}GZ {SHIFT-@}{$7c}"O0'>*{CBM-POUND}x{CBM-M}u{CBM-N}8frk;?X+jDTZFxF{$e3}g{CBM-C}F{$7b}F":!r#Z{$fa}FBP4DP{CBM-G}w'iF{$7d}{SHIFT-POUND}{CBM-I}fjVD{$f9}D[Z+*{$7f}@&{$60}GvG-Sh6{$e4}H6i]"FGVQ_{CBM-O}P{$e9}A{CBM-K}1U{CBM-POUND}g5{$e1}Hr{CBM-L}E,={$e8}E {$fb}Tkn{CBM-Y}xHhFx{$7c}b{$e8}BK{$fa}30bJ"/!O:TWI"Bcx{CBM-V}{$fa}{CBM-E}E HEL<{$fe}{$f5}{CBM-B}!{CBM-I}/k=$J{$e6}{CBM-I}0mAqNTEXXq{CBM-E}{$e4}@W_ZJ>:$%&{$f3}$t{$fb}
V{CBM-U}@W{CBM-I}*'d!2{CBM-N}+{CBM-E}{$ea}{CBM-O}!"{CBM-N}"2{SHIFT-POUND}lxLL+tYXi{$60}D#{CBM-C}6{$e1}{$60}XBgWZj",AHXB()*1QDCb%rMy{$eb}{CBM-V}PHZ{$fe}#[fR-{CBM-A}{CBM-+}{$e9}lFXj#'


slinktwincopy.e{$fe}!
p{CBM-+}i{$e8}pyt{CBM-POUND}$g<{$e8}(6$f{$fe}
{CBM-T}g&
{$e9}{CBM-U}{$f1}"e{$f9}{CBM-U}{$e8}El(2{CBM-T}>N{$e8}@{$60}A{CBM-I}<u*j  fq{$e4}%+B{$e4}{CBM-POUND}QCFn(h0!{$e3}


















































































































JR{$e8}{$fb}M{$e6}QZc{$f4}RWJW{SHIFT-+}{CBM-+}{$fa}{CBM-K}{CBM-O}Y{$fa}{CBM-@}{$ec}E2b{$e1}F{$ef}R{CBM-Z}{$f6}{$7e}K{CBM-C}{$ef}#*WG{CBM-Z}{CBM-Q}F;{CBM-Y}UN{CBM-Q}{$f7}M{$f2}OL{CBM-L}V{$fd}{CBM-A}cXO{$fb}:{$ef}{CBM-T}{$fa}{CBM-T}{CBM-C}{CBM-Q}{CBM-G}+{$ea}!P6{CBM-Q}S{CBM-POUND}{CBM-F}{CBM-U}{$f2}j{CBM-H}{$e9}2 {$ed}P{CBM-F}{CBM-F}Q{CBM-A}1^@'ha2{$ea}{CBM-B}){CBM-R}{CBM-POUND}+E{$ea}{CBM-Z}{CBM-W}+,~{CBM-Q}{CBM-X}m[z] {CBM-O}{CBM-O}k{SHIFT-@}hl#{CBM-T}{CBM-H}A'N{$eb}6y>K
{CBM-R}{CBM-POUND}{CBM-F}3{CBM-O},{$f7}{CBM-Q}{CBM-A}{CBM-P}Zz{$60}{$f0}H{$e3}{CBM-U}{CBM-Z}:LJImhEr{CBM-POUND}z{$f0}(KH{SHIFT-@}ZV{CBM-POUND}{CBM-S}p{CBM-POUND}{CBM-N}r{CBM-K}{CBM-N}
{CBM-G}]8{$ee}CpqF]I0hY>wuUV,% +qg$pTP yQt{CBM-J}Bs
7zy-D
"udU"{CBM-Z}{CBM-POUND}Pxic{$60}"E{SHIFT-*}VdRbiT{$de}n9{$e4}tu{$ed}U
9
^l{$f5}{CBM-L}5{$fc}"{$e7}{CBM-@}(D{$e9}{CBM-R}Y{$7e}%1F{CBM-U}JAFYu{$fd}WKb_B@p'{$fd}WIME2fxC{$f7}3)f{$f6}DD{CBM-I}{$7b}[S{$ee}o9{$f9}r#GMFcHd
J5w{$7f}T{$f0}-{CBM-Q}
{SHIFT-*}{SHIFT-POUND}{CBM-R}X*/ZxE
T^b
@{$ec}C~{CBM-A}{SHIFT-*}p{CBM-J};qO{$fd}C:CV"V


s
linknewcc.cmd{$fe}!
p"q{$ea}{CBM-T}{CBM-T}lL {$f8}.<2$I=XHP{$e4}{CBM-T}F4qj{$e4}a(px{CBM-I}DH&jzZ{CBM-U}{SHIFT-*}{CBM-M}jb^Dh! y{CBM-I}{CBM-U}&\.{$7f} %





































































































































r]{CBM-E}[-aiC6SuY
0nAls'05qWOS6q{CBM-V}A6{$f3}UZ{CBM-J}{CBM-T}Mu{CBM-M}25oF]@Vu{SHIFT-POUND}C{CBM-E}{$ec}{CBM-T}{CBM-Q}r9K{$7e}9Iu#v{$f7}{$f4}E jx{CBM-O}{$ea}<{CBM--}u{CBM-Z}{CBM-+}sJ NA{$e5}Al{CBM-A}v.HP{CBM-D}5-{CBM-+}EWv{CBM-L}{$f0}Wnq]0a{CBM-*}dz54C,~p{$fa}{CBM-@}6[{CBM-V}{CBM-M}F{$ea}BH{CBM-Y}X{$ed}-{CBM--}R+j;B_rv{$7f}{SHIFT-+}M{CBM-M}{CBM-D}cq {CBM-H}zP{$e9}{CBM-Z}{$ee}{CBM-N}LF(4GMb{CBM-I}U{$e3}{$e5}B{CBM-K}{CBM-Q}V1{CBM-N}~N{$e7}6V-Iv9Y{$f6} V8{$e4}{$7b}8{$f6}A{$f3}{$7d} D{$7d}s

snewcc.a{$fe}!
{CBM-U}A{$e2}f@(UBQ
zIs{CBM-G}d(B{$e4})!{CBM-A}@:QX&oi2{CBM-K}dz{SHIFT-*}A
{CBM-+}!i\{CBM-I}($@{SHIFT-*},A{CBM-POUND}$ H' {CBM-T}dD)s!
{CBM-L}TY{$f2}Ir&bz{CBM-J}2{$e5}"Vns{CBM-B}Z#{$ea}hWMV{CBM-A}{$7c}KV{$ea}J^(2D(7{CBM-POUND}{CBM-E};9D{$fb}4"{CBM--} {$f2}I{CBM-M}lTB$h{$de}UB{CBM-@}HtF*8{CBM-J}{SHIFT--}{$f4}{CBM-H}{$f3}{$fa}n{CBM-@}4S{$7c}yd*{CBM-X}R<{$f1}{$ee}s2{CBM-I}4iJ{CBM-@} e1{$ee} {$e4}Hck+{$f9}
G%2nJVSHD!9r{CBM-POUND}{CBM-H}{$e7}p{CBM-L}G#F{CBM-I}*hEaNq{$f6}1{$e4}
h{$e7}ZF{$e5}F^F{$7f}{CBM-I}{$7c}NQgx{$f6}{CBM-M}O{$e7}lEcfX{$e7}>{$e9}{$f9}{$7f}{$e6}N{$e4}K{$e6}eGn{$7e}y<r{$e4}{$7e}V{$e4}0P!IA
EPS{CBM-Q}#E!{$e6}[{$e4}G6[{$fe}$0
w{$e1}${$ea}f{$fe}R8 u{$e5}JP{$fe}

;{CBM-X}5(KbR
{$de}SE]f{$e8}T{CBM-E}
wQ{$ea}7{CBM-F}{SHIFT-+}{CBM-R}B{$e8}dEHQiE\{CBM-S}D_I{CBM-POUND}HLL{CBM-O}&1k.(l{$f3}r{$f1}{CBM-V}{SHIFT-*}[aAF{CBM-S}x{$e1}#pfJ@t$l{CBM--}X
BV{CBM-M}{CBM-Y}D-,NISHt?x,1mm,B@U{$de}{$fe}S%{$e4}{CBM-W}'{CBM-I}lx)d{CBM-@}
{$f9}Ta{CBM-V}{$e8}9iA{$f3}O%{SHIFT-+}8fanL{$fc}^{CBM-R}{$e4}X{CBM-E}Kq{CBM-O}t{SHIFT-*}1G{CBM-G}IIS{$ed}er{SHIFT-@} aBIv{CBM-POUND}0qq{$f2}qtQ!
A{CBM-F}{CBM-C}{CBM-@}<Y4e{CBM-A}~JRk\!')W,-l-{CBM-U}L{CBM-R}f*[{$e9}4{$e2}{$7c}{$e6}?OU/[t{SHIFT-POUND}2{CBM-D}MB{$f0}G8bpCFkB{$f1} K{CBM-POUND}
{CBM-S}wKU*P r
H n,h{CBM-+}{$f1}A&{CBM-I}^2{CBM-O}{CBM-*}s{$60}{$f5}P
BI!HY{$7f}


slinknewcc.e{$fe}!
p"q{$ea}{CBM-T}{CBM-T}l%{CBM-A}0{$60}d 0{SHIFT-@}H$g:{$7c}LAc&?ALxh{CBM-G}d Ti#
kBdIqKa{CBM-V}{$e8}{$e2}  o
B$c4a{CBM-R}dQ*l{CBM-U}L{SHIFT-*}






























































































































{CBM-T}fH{CBM-X}f#;){CBM-U}{CBM-B}{CBM-V}{$7b}B{$f1}!
{CBM-I}!{CBM-R}N {CBM-S}=!w{$f3}?!Q0
I="i!{CBM-A}3
Ah.Qqd({$e2}#q)({CBM-N}GT{CBM-R}JzK8H{CBM-R}{$fa}{CBM-POUND}{CBM-G}jeXa{CBM-U}{CBM-E}fJE{CBM-D}EJW{CBM-H}J_H:{CBM-O}{CBM-J}R{CBM-E}{CBM-E}k{CBM-Z}U
>{CBM-I}JXXKjD Fx{CBM-B}
8{CBM-J}&K{CBM-N}U
{CBM-X}{CBM-A}K{$7e}P*CP{$fb}n{$f0}E{$e8}p{CBM-A}{$f3}>{CBM-*}F>OI{CBM-J}){CBM-C}"{$e3}{CBM-B}F;Q{SHIFT-POUND}$GE
{$7b}BL{CBM-C}q
{SHIFT-*}z {CBM-R}{CBM-Z}8;6{$f9}lB{$f1}{SHIFT-POUND}@{$f9}{$7c}{$e3}{$60}i"P'%{CBM-N}k00
\sBH0 0jb{$ef}Dv$\'{$f3}{CBM-I}KskAY{$e2}UHc@{CBM-L}u4qV{$7d}{$7e}{$f3}{SHIFT--}{$60}(D{CBM-@}hf{$e4}{CBM-POUND}l f{$f0}{CBM-N}Z^(c  {CBM-POUND}"{$e9} "{SHIFT-*}"{$e4}{CBM-G}%{CBM-V}@ {CBM-I}{CBM-A}{$ec}1*{CBM-POUND}{CBM-Q}{CBM-+}{$ee}{$ee}{CBM-T}<Jhj{$ea}2KJy({CBM-K}rb{CBM-M}8+R{$ea}{CBM-S}{CBM-G}VJ{SHIFT-POUND}l"{CBM-@}V{$eb}{CBM-I}{SHIFT-*}{CBM-I}{$e2}b{$eb}{$e9}E0{CBM-Q},{SHIFT-POUND}{CBM-E}{CBM-F} {SHIFT-*}{CBM-R}{CBM-G}{CBM-E}c3{$fe}I
Tb{CBM-@}l{CBM-D}I'!"{$ee}{CBM-N}{CBM-S}{CBM-+}Z"Jt{$e6}J{CBM-W}6H{CBM-POUND}{SHIFT-@}{CBM-N}{SHIFT-POUND}R{$e6} J(x!{CBM-@}{$7c}{$fa}3{CBM-T}{$7f}!DHa{SHIFT-POUND}C{$e2}{CBM-I},
~{CBM-B}~~~
~~A
a~{$f1}{CBM-B}{CBM-B}{CBM-B}~{$f1}~~~

~~

wRITE iMAGE v1.1























GEOwRITE    v1.1



{CBM-I}{CBM-X}{$7c}(K(JP{$f7} kA{SHIFT-POUND}
. <9{SHIFT-POUND}(sAMPLE CODE FOR sETmSEpIC [$C2DA] - SEE tRANSACTOR 9:4

{$e6}{SHIFT-POUND}
{SHIFT-POUND}8{SHIFT-POUND}97{SHIFT-POUND}  eA{SHIFT-POUND}({SHIFT-POUND}L hA{SHIFT-POUND}  eA{SHIFT-POUND}8
{$7b}3@P] {CBM-@}(G/y{$f9}(t{$f8}m{$f4}{$ec}v{$fe}{CBM-I}@ye
6{$ec}B{$f1}{CBM-K}"p{$e6}sYf!g
HDXg{CBM-E}O{CBM-F}P{$ed}b5J{$fa}K${CBM-@}{CBM-V}{CBM-Q}D{$7f}73{CBM-*}X{$ed}&qLm"qSV{CBM-E}{CBM-S}{CBM-@}yIy,Cd{CBM-POUND}-L$edNA{CBM-W}{CBM-U}{SHIFT-*}@Q[ D{$f1}o%*p-JQC{$60}{$e3}{CBM-*}#J{$f1}{CBM-POUND}=T)q  RC{CBM-M}3u{$de}k{CBM-X} Hv{CBM-L}{CBM-W}RF2{SHIFT-+}Yyak"{CBM-R}o{$e3}{CBM-M}e{$7f}{$f0}QgyoW{$f6}
<X{$7f}l{$f2}3/{$e6}%P{$ed}{$f4}eD\Ok{CBM-C}9D{$f6}!x/{$f7}{$fc}* {SHIFT-POUND}{SHIFT-*}LE
i3I_"fBjEH#h{CBM-POUND}{CBM-I}p@!{$60})$H\{CBM-E}C{CBM-W}x0BO{SHIFT-+}{CBM-E}C{CBM-M}80#p{CBM-POUND}
{CBM-R}EP,!"-{$f6}!{$e2}
{$ee}@{CBM-K}w@A62{CBM-O}E!*
R{$e1}{$de}
t(Q+{$ec}0{SHIFT-*}qJ2>
F4M(w%{CBM-A}H

{CBM-Q}@ {CBM-POUND}Q%{CBM-A}6u{CBM-POUND}a\z{$f2}
J {SHIFT--}mWh{CBM-T}lE{$e5}{CBM-POUND}q>
{$7c}ezb4%{CBM-K}DU Yrz{$f8}{CBM-K}I{CBM-A}={$f6},2
pmD{$f1}0














11111111
     RVWORD   %0001111111111111

;IMAGE
     RVWORD   %0000000000000000
     RVWORD   %0111111111111000
     RVWORD   %0110000011100000
     RVWORD   %0110001110000000
     RVWORD   %0110111000000000
     RVWORD   %0111100000000000
     RVWORD
${CBM-R}h+{$f2}{$f9}{CBM-A} '= z{$de}>{$e6} O!{CBM-N}j{SHIFT-*} {CBM-K}8@

G$#L]bgEU{CBM-G}*BMq{$ea}dBM{CBM-K}q{$e4}Lu([{CBM-M}{CBM-+}@{CBM-T}{$fb}l5*{SHIFT-POUND}C8OU@#{SHIFT-POUND}h{SHIFT-POUND}e,[ *q3f4MO{$e8}{$fe}{$f1}!{$e6}<{CBM-Q}${CBM-M}{SHIFT--}{$f4}{CBM-B}{CBM-Q}!k{CBM-E}K{CBM-E}{CBM-E}hEYaJ{$fa}Ro({$f5} a{$de}UN{CBM-B}jE{$e3}zGZL
?{$fc}Au({SHIFT-*}{$e5}{CBM-D}{CBM-POUND}{CBM-U}1NbE{CBM-O}{CBM-M}B"qgF{$f1}{CBM-O}{$7c}!{$e3}JG{CBM-POUND}>TA{CBM-L}{$7d}M6yc*BYTE>WORD,<WORD
 .ENDM

msepic:

;MASK
     RVWORD   %0000000000000001
     RVWORD   %0111111111111011
     RVWORD   %0111111111101111
     RVWORD   %0111111110111111
     RVWORD   %0111111011111111
     RVWORD   %0111101111111111
     RVWORD   %01101111'{$e1}9{$e1}W{CBM-H}{$f4}{$7b}h3Z'YA#{$ed}{$e7}{$f7}X"o{CBM-D}U"T{CBM-B}G{$e5}{$f3}S{CBM-@}<g
tO{$fa}

{CBM-L} {CBM-N}{$f1}{CBM-P}{$fe}{$e3}{CBM-A}AH{$e2}7VI{CBM-T}v2p{CBM-I}8"h!H{$60}(8{$fb}I%{SHIFT-@}"{$e6}Rzj{CBM-I}{CBM-*}{$60}0{CBM-S}6{$60}-S{CBM-C}1({CBM-Y}J{CBM-K}*H{CBM-+}{CBM-@}6,{CBM-POUND}={CBM-F}[{CBM-T}{$eb}S1BJ
{$e3}({$e5}{$e5} <{CBM-Q}*?{$f0}r{CBM-D}{CBM-T}&{CBM-E}{CBM-N}g9YPJ=k/b {$eb}{SHIFT-+}<S{CBM-K}Q3<{$f9}
{CBM-N}{CBM-C}{$e9}){CBM-I}P!{CBM-*}!?8{CBM-T}?C!{$7d}{$fa}{$f9}!{CBM-U}{CBM-T}{CBM-T}{$ea}
{CBM-G}1{$fa}(H{CBM-Q}:JP)iFa
M {SHIFT-*}
0*Ib" P!L{$ed}c{$e2}!*J{CBM-POUND}vO{$fd}%{CBM-@}"*5^{CBM-F}uH  "MBH{CBM-L}r_{$ed}Rt{CBM-Z}{CBM-L}+{CBM-@}{CBM-Q}H{CBM-K}V*B{$f2}R"S{CBM-K}hH Vx{SHIFT-+}K

{CBM-POUND}F{CBM-R}{$ea}T{$e3}P%luQkM{CBM-E}IG{CBM-A}n{$f1}x{CBM-A}{CBM-I}Z  {CBM-A}CK(xVr{$f5}r{$fb}{$e6}{CBM-U}LhV$zr8{CBM-H}N{CBM-POUND}l{CBM-G}{SHIFT-*}[{$f9}{$e1}xLS{$fe}{$f8}{CBM-M}NI){SHIFT-POUND}4JU{$ee}h".{$f2}L%{CBM-T}J9B{$ed}{CBM-Q}
{$e4}ZYJ{CBM-Y}HXI$Y{CBM-Q}{$e2}{CBM-Z}OKD{$ec}Q
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{CBM-Q}=a{CBM-R}1{$e4} i{CBM-Q}{$fa}8xO{$ec}L OgW3R{CBM-POUND}{CBM-*}{$7f}46V{$e5}
;J*{$f1}]URk{$f5}0P'{CBM-B}j{CBM-M}{CBM-Z}l{$f0}
{$de}{$e1}{CBM-+}{$e4}{CBM-@}:!,{CBM-*}Z\{$7c}BRB<{$e5}%7{$e1}~{CBM--}{CBM-W}mpiJbqZ{$f2}k$H%(A2M{CBM-I}DZb
\RVM,T{CBM-Q}rXH{CBM-S}PT+5{CBM-T}0Kgi{SHIFT-+}GyG{$f4}%w{CBM-P}={CBM-R}i{CBM-W}{SHIFT-POUND}uzBWb{CBM-K}{SHIFT-POUND}4{$e4}qTYI{$e2}NT'IA{$e9}{CBM-V}V({SHIFT-POUND}{CBM--}{CBM-C}@{CBM-Q}{$ea}l{$e1}k{CBM-X}{$e6}{CBM-X}JNX{$e5}:bTTC{CBM-S}ibd
{SHIFT-POUND}{SHIFT-@}U{$ed}$H(V2N{$7c}7J
{$de}{CBM-H}{CBM-X}

s
shellram.edme{$fe}!
{$60}{$fd}f@q2D($A Ac" f{$e6}{CBM-Z}{CBM-J}{SHIFT-*}P  {CBM-G}l89{CBM-I}dp!Z4R{$e9}hr!:X p0BG%F{CBM-@}l,xvg!i&{$e4}{CBM-R}a@A${SHIFT-POUND}{CBM-Z}<U4Is{CBM-+}*EJdI*U{CBM-@}{$e4}# {$60}{CBM-R}{$ed}ke{CBM-+}"I4{$60};t{$ec}{CBM-G}nLXQ
#{$e8}g4qj{CBM-X}" {CBM-S}F
{CBM-A}{$7b}# t{CBM-M}cj{$e4}+
g,y{$f2}d{CBM-I}UI[{CBM--}Le{CBM-@}{CBM-POUND}#l{$e4}{CBM-I}ly{CBM-R}U1{CBM-C}LE*jUR{$e7}+6S{$f9}C
5 %0110000000000000
     RVWORD   %0000000000000000

(6$f{$fe}
{CBM-T}g&
{$e9}{CBM-U}{$f1}"e{$f9}{CBM-U}{$e8}El(2{CBM-T}>N{$e8}@{$60}A{CBM-I}<u*j  fq{$e4}%+B{$e4}{CBM-POUND}QCFn(h0!{$e3}


















































































































Y{CBM-I}\hYp{CBM-A}D{CBM-J}N{$e5}?u/*hbh{CBM-@}{CBM-@})I{$e5}.MQ,{$e7}Y&G{$f1}Q{$f2}*M{$fb}{CBM-@}D%k{SHIFT-POUND}#"A{SHIFT-*}E Q(TcR{CBM-K}1{$7d}{CBM-POUND}{CBM-R}EQ{CBM-U}>i{$f9}x{$e6}
U({CBM-M}EXR U-J\{CBM-L}y{CBM-N}{$e4}.D{$fc}#pYfP,{CBM-@}7{SHIFT-POUND}{CBM-B}{$ec}PE C)O{CBM-D}[DFda{$eb}{CBM-P}Ha*V{CBM-S}KeM{CBM-P}E{SHIFT--}K{CBM-S}hbg<rP.{$e4}{SHIFT-*}G^{CBM-K}9
{$f5}{CBM-J}x!k2h{SHIFT--}3B{CBM-M}{$e3}{CBM-Z}[!0wOB/{$7b}l!2{CBM-M}W{$ea}oo{$ed}
a'{$60}{$e6}{$e8}s{CBM-K}m{CBM-T}bp T
{CBM-I}D%b{$e4}BQH^%n{$e2}:9{$f2}
{CBM-@}U5{CBM-POUND}aZ9
v,Q
{SHIFT-*}R5{CBM-U}I {CBM-+}h{$e3}{SHIFT-@}-{$fa}{$ea}{CBM-N}Z{CBM-T}1p
{CBM-G}{$e2}H!K{CBM-I}^c{$eb}
!c{$e1}*{SHIFT-@}C{CBM-C}{SHIFT-*}{CBM-POUND}p@{$7c}@:{CBM-A}C4P{$7b}Be{$e5}"b GaBH@
Q{CBM-H}{CBM-A}@
{CBM-POUND}2@ {CBM-K}#'{CBM-C}NH{$e8}{CBM-K}whc
{$f2}{$f2}0!{$e9}>{CBM-I}Hd*
P
$
:{$e5}S0p
35px
\qJ

4
J]P{CBM-O}{CBM-I}{$f2}Y"(d

~{$e8}K{CBM-X}{SHIFT-*}{CBM-I}{CBM-V}X2/I{$7d}#{$e1}{$60}{CBM-N}J{CBM-C}OBzr{CBM-G}7(S:MZ{$f1} {$7f}{CBM-P}p{CBM-K}5BHP\zV{CBM-Q}^{CBM-@}{CBM-K},{CBM-+}Uh{CBM-D}O?{CBM-K}c8R{CBM-F}{$e6}{$7e}{CBM-W}{$e7}{$ea}Vk
*{CBM-Q}B.F{$e1}{CBM-X}S/?ILt{CBM-D}H H{CBM-E} {SHIFT-+}8{$fd} ] {$de}#S{$60}[
Pz8Zq{CBM-+}T{$e1}I;{CBM-O}L{$f0}#@sP"{CBM-C}!2!*A{SHIFT-@}{$f2}{$fc}i{CBM-I}J 0'P
{SHIFT-*}"




















































{CBM-POUND}{$7b}{$f9}{CBM-I} {CBM-G}G>{$e7}{CBM-F}9*{CBM-N}{$e6}%UY{CBM-POUND}]{CBM-I}v{CBM-K}L{$60}{$f0}c{CBM-Y}0JJ{$e3}hz{$60}FK{$f8}>{CBM-P}ry{$e4}{CBM-V}${CBM-R}Y{CBM-I}=h{CBM-U}{CBM-G}n{CBM-V}Y){CBM-Q}f{CBM-POUND}{$ee}0,{SHIFT-*}{CBM-POUND}S.0{$ef}{$f2}+f{CBM-O}{SHIFT-@}(GP:)/azF{$f9}E"{$7c}UJJ{$ec}%{CBM-POUND}{$7e}{CBM-L}F"{CBM-U}5j{SHIFT-*}V{$e5}%RHG{$7e}{CBM-N}Zp({CBM-Z}{CBM-E}{CBM-T}B{$e7}J{CBM-P} B{CBM-F}{CBM-V}{$f9}Q{CBM-Q}={$e4}A{CBM-U}{$fc}vw{CBM-Q}{$e2}H HZKZP){CBM-I}{$e3}~{$7b}[{$7b}{CBM-R}%4{CBM-I}OJt{CBM-+}n {$60}9{CBM-POUND}[{$ef}Q{CBM-L}xhTHZF K{$7d}I_cSUE{CBM-N}~El{$f9}J{SHIFT-+}{$e9}N{$e5} {CBM-B}{$7c}EHbYU

{CBM-*}h
{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}

;SAMPLE CODE FOR sETmSEpIC - $c2da

tRIANGLEmOUSE:
     lOADwR0,msepic
     JSRsETmSEpIC
     RTS

dEFAULTmOUSE:
     lOADwR0,arrow
     JSRsETmSEpIC
     RTS

; MACRO TO STORE WORD IN hI/lO ORDER

 .MACRORVWORD  WORD
     .B {$e5}6{CBM-I}{CBM-C}{$fd}XBK
EC{$e3}e!K{$fa}{$7c}QkXT{CBM-M}UG
{$ea}{$e2}{$e9}x{$e4}G{CBM-Z}Za{$7b}{$de}{$7e}hU({CBM-R}R{CBM-P}vB{$ed}xV{CBM-Q}{$f4}Dn;Ei{$f6}Y{CBM-X}{$e9}{$ec}.{CBM-I}W'st{CBM-J}{CBM-R} \{SHIFT-POUND}lUJcv{CBM-+}i{CBM-X}S{CBM-P}{SHIFT-@}K{$f5}8
{SHIFT--}
dGaD JF{$e6}1{$f6}{CBM-N}{SHIFT-*},Q>{$f8}Yf{$fe}R^{$f4}{CBM-Y}0LC b{CBM-+}X2O{$f9}{$e3}wO=PQ!RL{$fd}{$f2}N{CBM-Z}/2?P{$f6}{CBM-R}{CBM-D}&{$e4}{CBM-Q}G3{$7e}{$f9}IX L{$f2}@R{$fc}s{$e2}T4ac{CBM-V}pT{CBM--}!I{CBM-X}{CBM-X}cX{$fa}{$7c}{CBM-D}xx-{$fa}{SHIFT-@}&{$7e}{$e2}{$f7}K
{CBM-V} lOADERmAKER v1.0 mACHINE lANGUAGE lOADER mAKER
 nICHOLAS j. vRTIS H
 cOPYRIGHT 1988
 5863 pINETREE s.e.
{CBM-S} kENTWOOD, mi 49508
{CBM-R}
1{CBM-G}q
tHIS PROGRAM IS USED TO CREATE A geos PROGRAM WHICH
/CAN BE RUN FROM THE dESKtOP.  t
~{CBM-B}~~~
~~A
a~{$f1}{CBM-B}{CBM-B}{CBM-B}~{$f1}~~~

~~

wRITE iMAGE v1.1























GEOwRITE    v1.1



{CBM-I}{CBM-X}{$7c}(K(JP{$f7} kA{SHIFT-POUND}
. <9{SHIFT-POUND}(sAMPLE CODE FOR sETnEWmODE [$C2DD] - SEE tRANSACTOR 9:4

{$e6}{SHIFT-POUND}
{SHIFT-POUND}8{SHIFT-POUND}97{SHIFT-POUND}  eA{SHIFT-POUND}({SHIFT-POUND}L hA{SHIFT-POUND}  eA{SHIFT-POUND}8
~{CBM-B}~~~
~~A
a~{$f1}{CBM-B}{CBM-B}{CBM-B}~{$f1}~~~

~~

wRITE iMAGE v1.1























GEOwRITE    v1.1



{CBM-I}{CBM-X}{$7c}(K(JP{$f7} kA{SHIFT-POUND}
. <9{SHIFT-POUND}(nEW EQUATES, VARIABLES AND CONSTANTS - SEE tRANSACTOR 9:4

{SHIFT-POUND}
{SHIFT-POUND}8{SHIFT-POUND}97{SHIFT-POUND}  eA{SHIFT-POUND}({SHIFT-POUND}L hA{SHIFT-POUND}  eA{SHIFT-POUND}8
~{CBM-B}


{$7f}~{$fe}@{$fe}_{$7e}O~{$7e}W{$fe}{$7e}W{$fe}V{$fe}T~{$fe}U{$7e}U~{$fe}U{$7e}T~{$e6}VW{$fc}W~{$fc}W{CBM-T}{$fc}W{CBM-U}{$fa}P?{$7f}~{$fe}




p{CBM-A}u
plOADERmAKERv1.0




nICK vRTIS -- 1988












































cREATE A LOADER PROGRAM ON geos DISK TO LOAD ml FILES CREATED BY A NON-geos ASSEMBLER
~~~~~~~~~~40
ckrnlioin= $4E
cram64k= $7F
double_w= $8000
double_b= $80
gr_40= 0;USE THESE TWO TO TEST
gr_80= $80;GRAPHmODE
incompatible= 14;NEW DISK ERROR
input128= 15;NEW INPUT DEVICE
keyhelp= 25
keyalt= 26
keyesc= 27
keynoscrl = 7
keyenter= 11
o

(t<n
tHAT FILE ALREADY EXISTS.
ok TO OVERLAY ?
!u{CBM-B}~~~
{CBM-N}  u
{$f8}{$fc}
{$7f}
{$7f}
{$fc}{CBM-G}{$f8}
t@{SHIFT-POUND}
~~~
@{$7f}

q{$7f}lOADERmAKERv1.0




nICK vRTIS -- 1988












































lOAD AND rUN A geos PROGRAM CREATED BY
' THE NEW SCREEN
JSRdRAWsCREEN
RTS

{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}2E0
sETcOLORmODE= $C2F5
sETmSEpIC= $C2DA
sETnEWmODE= $C2DD
sWAPbdATA= $C2E6
tEMPhIDEmOUSE= $C2D7
vERIFYbdATA= $C2E9

; vARIABLES

GRAPHmODE= $003F;BIT 7 SET = 80 COLUMN MODE
SCR80pOLAR= $88BC;COPY OF vdc REG 24
SCR80cOLORS= $88BD;COPY OF vdc HE geos PROGRAM WILL
9THEN LOAD AND RUN AN ASSEMBLER PROGRAM CREATED AS A
c'NORMAL' cOMMODORE PROGRAM.  tHIS AVOIDS HAVING TO
mRUN A SEPERATE PROGRAM TO 'CONVERT' YOUR ASSEMBLER
wPROGRAM EACH TIME YOU REASSEMBLE IT.  a 'NORMAL'
AcOMMODORE PROGR
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
{SHIFT-POUND}{$f0}{SHIFT-POUND}p 6A{SHIFT-POUND}{SHIFT-@}{SHIFT-POUND}p{SHIFT-POUND}lqAl,B{CBM-I} q {CBM-W}plA {CBM-X}A{SHIFT-POUND}2{SHIFT-POUND}u{CBM-I}B s {CBM-W}p{CBM-G}I{$f0}N{SHIFT-POUND}!{SHIFT-POUND}u{CBM-I}{$7b} s {CBM-W}p{CBM-G}I{$f0}{CBM-O}{SHIFT-POUND}!{SHIFT-POUND}u{CBM-Z}Nh{SHIFT-POUND}
N BHNP{CBM-I}{$f2} s {CBM-W}p{CBM-G}I{$f0}C{SHIFT-POUND}!{SHIFT-POUND}u 8B{CBM-I}
{CBM-X}2u@{$7f}{$e8} {$7e}P{$f5}{SHIFT-POUND}{$7e}I@Yt{SHIFT-POUND}
I{$7f}Zt{SHIFT-POUND}
{SHIFT-POUND}0{SHIFT-POUND}t {$ed}AlplvB


\
Pp{CBM-*}pUp
%pZp
pdONE
mAKE
hELP



{$eb}p
pqUIT



@G@
xff128flags= 96;OFFSET INTO HEADER BLOCK
screenbytewidth= 80
screenpixelwidth= 640

u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u
{CBM-C} A NON-geos ASSEMBLER.  tHIS PROGRAM LOADS

































{SHIFT-POUND}@{SHIFT-POUND}{$7f} B{$f0}l,B{CBM-Z}{CBM-Z}{SHIFT-POUND}

{SHIFT-POUND} {$e4}A{CBM-Z}{$fb}{$fd}{CBM-Z}{$fc}{$fe}{CBM-I}P{CBM-Z}
{CBM-Z} {$e4}A{CBM-I} ~{CBM-Z}
P{CBM-D}
{$e8}{CBM-X}
{$fb}{$e6}{$fb}P{$e6}{$fc}{$e4}P{$f0}{CBM-Z}
PNL{$fd}

u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u


(2063)


{SHIFT-POUND}
 P{SHIFT-POUND}
!Pld
 e
Directory for this S.D.Archive:

 %{SHIFT-POUND}= R~P{$f8}{$60}l+ {CBM-I}{$ed} /0{SHIFT-POUND}
 R~

IP{$e4}H
I{CBM-A}{CBM--}8{CBM-G}-{$e5}/{CBM-G}.{$e5}0Q

{CBM-N}H{SHIFT-POUND}" R~
 R~HJP{$f6}{SHIFT-POUND}" R~{SHIFT-POUND}  R~{CBM-G}SIP{$f5}
{CBM-I}{SHIFT--}{$7f}{$f0}JP{$f8}{CBM-X}{$7f} R~{CBM-X} R~{CBM-X} R~{SHIFT-POUND}  R~
{SHIFT-*}P{$f5}{CBM-Z}{CBM-+}{CBM-Z}{CBM-M}   bytes
{CBM-Z}#{SHIFT-POUND}
"REG 26
VDCcLRmODE= $88BE;CURRENT COLOR MODE
KEYREG= $D02F
CLKREG= $D030
MMU= $D500
vdc= $D600
mousebase= $FD00
endmouse= $FE80
CONFIG= $FF00

; cONSTANTS

add1_w= $2000
add1_b= $20
arrow= 0;PASS THIS TO sETmSEpIC
cioin= $7E
ckrnlbasioin= $AM HAS THE LOAD ADDRESS AS THE FIRST
KTWO DATA BYTES OF THE FILE, AND STARTS EXECUTION AT
UTHAT ADDRESS AFTER BEING LOADED.

s
({CBM-N}s

<n
eNTER NAME FOR new LOADER
PROGRAM TO BE CREATED.

Qs

<n
eNTER NAME OF program TO LOAD.

t

{CBM-*}
8
{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}

;SAMPLE CODE FOR sETnEWmODE - $c2dd

sWITCHmODE:
; FIRST ERASE OLD SCREEN
JSRI_rECTANGLE
.BYTE0,199
.WORD0,319{CBM--}double_w{CBM--}add1_w
; NOW SWITCH MODES
LDAGRAPHmODE
EOR#%10000000
STAGRAPHmODE
JSRsETnEWmODE
; NOW INITIALIZE

{CBM-*}p

{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}

;table 2 - nEW eQUATES, vARIABLES AND cONSTANTS (
pgEOS128sYM

)

; jUMP tABLE

aCCESScACHE= $C2EF
cOLORcARD= $C2F3
cOLORrECTANGLE= $C2FB
dOboP= $C2EC
hIDEoNLYmOUSE= $C2F2
jMPiNDx= $9D80
mOVEbdATA= $C2E3
nORMALIZEx= $C.8{CBM-G}"{$ed}{CBM-G}#{$ed}{CBM-G}/M{CBM-G}0M{CBM-S}{CBM-D}lz
Hit any key to create the files
On unit 8,0 or RUN/STOP to abort

{SHIFT-POUND}
F {$e4}~I
{$f0}{$f9}I{$60}?spur?erse?qgrl{CBM-I}

{SHIFT-POUND}08{CBM-Z}{$f9}{$fa}h{CBM-Z}{$f9}{$fb}h{CBM-Z}{$f9}{$fc}HH{SHIFT-POUND}~{$fe}PUHHHHHH{$e8}$0{SHIFT-POUND}  {CBM-C}
{SHIFT-*}{$f0}{SHIFT-*}P{CBM-O}I {$f0}{SHIFT-POUND}, R~{CBM-O} R~H{SHIFT-*}{$e1}{$60}~8{$60}{CBM-Z}LI{CBM-A}{$f7}{CBM-Z}TIp{$f0}Is{$f0}IuP{$e8}{$60}7
{CBM-Z}LZP
K{CBM-Z}{$7b}
L{CBM-Z}{$7c}
M{CBM-Z}{$7d}
N{$ee}Z{CBM-I}
O{$60}Y
KHPTo {$fe} [{SHIFT-*}
P{$f8} [{CBM-Z}l{CBM-O}
KK{CBM-O}
OO{CBM-O}
LL{CBM-O}
MM{CBM-O}
NN{$60}stoRpacKsqueeZcruncHsquasHcruncH
un-

{CBM-S}LJ0{CBM-O}Z0HP{$f8}HP{$f2}{CBM-O}Zh){$7f} R~HH{$f3} ing...
{$60}

 "
,0>{CBM-S}{$f0}
l
{CBM-S}L{$f0} {$f0} {$f0} {CBM-Z}]{$f0} q {CBM-P}{CBM-G})P q\{CBM-G})  q]PK{SHIFT-POUND}4{SHIFT-POUND}{CBM-Z}\K{$60}{$60} {SHIFT-@}{CBM-A}{$60}{CBM-Z}^I{CBM-Z}_J {$fc}{CBM-Z}A^{CBM-Z}B_l{CBM-S}{SHIFT-POUND}
\{CBM-D}H 8.\.]P{$f4}{CBM-Z}\P8{CBM-Z}]IP1HH{SHIFT-POUND}
OPQ{SHIFT-POUND}~{CBM-Z}LIP  8.M.NP{$f4} ( 8P{$fa}8{$60}{CBM-Z}\l^
{$fd}{$e6}{$fd}P{$e6}{$fe}{$60}{CBM-G}{$fd}I<P{CBM-G}{$fe}IP8{$60}{SHIFT-POUND}<{$fd}{SHIFT-POUND}{$fe}{$60}{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-I}
{CBM-K}{$fd}{$60}{SHIFT-POUND} EFG{SHIFT-POUND}{$fe}
@{$ea}[{$f3}8FM @X{CBM-U}LfL
 {CBM-H} {CBM-R}{CBM-Q}
{CBM-@}{$7b}"!f
NZQ{$e9}
:*F{$fc}g J(#,bHH
j{CBM-POUND}JAhJ{CBM-@}{$e1}"2

I^$TX
+{$7f}
C@5lB{$fa}{CBM-I}{$fc}{CBM-POUND}c@ F
1I B(${CBM-A} ,p@!{SHIFT-*}bHJNb{SHIFT-*}4{$60}$hBvC
m)C${CBM-A}#2BIYHJ{CBM-A}{CBM-@}C{CBM-C}qRJ^J{CBM-A}{CBM-+}g{$ea}{CBM-A}{CBM-M}L{$e9}{CBM-+}R{CBM-O}C
{$f8}@ae
F{$e5}{$ec}{CBM-A}{CBM-M}
KZC*Le
$p{CBM-A}{$e5}{$ec}{CBM-A}{CBM-@}KAc
@{$ee}c0{$60}!  c{$e2}{$f4}=+N{$eb}F$<z4{SHIFT-*}b.{SHIFT-*}{$7e}!6H16{$e2},4c.~{CBM-T}{CBM-A}0H@#IH@
,L{CBM-I}{CBM-U}

G[T#f#{$f3}WT@LY(!{$e2}C{$60}tHb{CBM--}L{$de}
{CBM-POUND}P
Xcj e{CBM-POUND}
B{$e5}/$p/pR(q

.{SHIFT-*}!/^{$f1}WX{$f9}!zM{CBM-I}
j {$60}'{SHIFT-*}{CBM-K}"A0{$e1}UHD'{CBM-E}Ambbh4E'{$e9}d"
 8{$f4}dgS{SHIFT-@}{CBM-K}
C{CBM-G}Q
 PxJPa

Hb1AO$:
{CBM-Z}{$e4}rPVlV
@G( CDb{$ec}d{CBM-K}4{CBM-@}P{CBM-I}{$de}1X{$f0}I!@Z
B3{$fa}@{CBM-T}m{CBM-J}D9K{$fc}r= b
 OCX{$f0}{CBM-Y}{$ee}{CBM-POUND}P{$e4}{CBM-K}zet{CBM-T}S{$de}
{$ee}{$f1}M j3{$e9}i{$fc}v{$e3}{CBM-Z}{$e8}Jv
{SHIFT-*}.{$e9}D{CBM-L};i0{$7e}{$e3}{CBM-Z}f{CBM-J}hds^{$f0},Gm
h
h-"N6i{$ed}Q{CBM-POUND}{CBM-G}Nu{CBM-POUND}N{CBM-O}fDgmN@bN{$fa}ZU{CBM--}{CBM-V}Bh(y5
 {CBM-K}A{CBM-Z}p{$e9}$T{$ed}>faD 0{CBM-R}6p{$e4} {$ef}J8{$fa}12G;C
@b

'

{$e8}

D









{CBM-G}(
X{SHIFT-POUND}
{CBM-E}/h{SHIFT-POUND}
Hx{$60}
{CBM-O}I0P{SHIFT-*}{$f0}{SHIFT-POUND} HP{$ed}{$60}{SHIFT-POUND}{$ed}/{SHIFT-POUND}0{CBM-G}){$fe}{SHIFT-POUND}
 sPlF
N{SHIFT-POUND}{$ed}/{SHIFT-POUND}0 W
{CBM-A}p {SHIFT-*}~$0i{CBM-I} I~ M{CBM-A}?,0
 R~$03l{$7b}
 L~{SHIFT-POUND} C~{SHIFT-POUND}{$fe} E{CBM-Z}MMUP{CBM-Z}NMVP{SHIFT-POUND}o R~{SHIFT-POUND}k,{SHIFT-POUND}? R~lJ
,08{$60} L~{SHIFT-POUND} C~{CBM-G}lT{CBM-@}{CBM-I}/{SHIFT-POUND}
\J{$fa}{SHIFT-POUND}0
{SHIFT-POUND}: EIPM{$e8} EL
P
 {CBM-A}{CBM-S}L
 {CBM-N}
{CBM-A} E
{$f0} {$f0} v
 a
{CBM-I}

,{$60}{CBM-S}OP{CBM-S}PP{CBM-S}QP{SHIFT-POUND}~{$60}NQNPNO{$60}h{$ee}mMUU{$ee}VH{$60}ly
I{$fe}{$f0}{$60}{SHIFT-POUND}Mw
{SHIFT-POUND}
x
HHl{$e6}{SHIFT-POUND}{$7d}w
{SHIFT-POUND}
x
lH

 w

x
{CBM-D}N{$f0}P
{SHIFT-POUND}yw
{SHIFT-POUND}
x
{CBM-Z}{$60}{SHIFT-POUND}
{$f5}
{$ee}WXY 8{CBM-D}{CBM-Z}WW.{$ee}{$ee}{CBM-Z}I8l
CD{SHIFT-POUND}H{$60}{CBM-Z}FI{$60}{CBM-Z}E{CBM-D}J{SHIFT-POUND}  ,{CBM-D}I{SHIFT-POUND}P ,{CBM-D}K{SHIFT-POUND}{$f0} ,{$ee}EP{$ee}F{$60}4{CBM-G})

{CBM-+}Xx{$60}{CBM-G}{$fc}){$f0}{CBM-G}{$fb}
{CBM-+}X{CBM-E}x{$60}h{CBM-Z}HI{CBM-A}{CBM-Z}CPNDNC{CBM-Z}C
DP{$ee}HG{CBM-Z}GDH{$60}HH {CBM-T}{CBM-Z}~~{$f0} R~l {CBM-T}L{$ee}P{$ee}{$60}
































































{$7d}a{CBM-O}
8@iRYI\{CBM-N}7{$e9}"ztNrx]$0"G{CBM-N}ZP{SHIFT--}U{CBM-@}0
j{CBM-Z}{CBM-@}{$60}{$ed}Uf{CBM-X}AV]I{CBM-@}S{CBM--}^{CBM-Z}0tFIe{CBM-@}ZJ
0PxT
g{$ed}{$ed}V

P8%D " {CBM-POUND}{CBM-K}H{$f9}{$ed}/J{CBM-POUND}H{CBM-M}Rc@{CBM-R} "k

 4>=QP2{SHIFT-*}{$60}{$fe}{$60}L+8{CBM-I}c 4AC{$f6}R[{$7d}A{SHIFT--}o{$7f}{CBM-T}c("{CBM-N}&$2{$f6}D
mbba {CBM-N}
{CBM-K}D,h+LPA 5@uijK@{CBM-W}@s2G\{$ea}{CBM-N}{CBM-P}{CBM-K}F*K{CBM-K}{CBM-T}N{SHIFT-@}{SHIFT-*}PT-{CBM-X}
@jp,Mkap{$e9}ODQ8$'C]""Ia{$f6}&{CBM--}Ix{$f2}i{$f4}{CBM-+}GgV){$e1}H3{CBM-B}( 'DH[H_@
hF
{$f1}{$f9}{SHIFT-*}<{$60}
{$ec}_(Q{$60}<P{CBM-E},{CBM-W}Xl
{$f8}{CBM-L}D"D{CBM-N}rFTOh\&{CBM-K}
X{CBM-A}2{$f3}H,_&AX{$f0}8HIvV =
 {$f0}(E{SHIFT-*}KPcX{$eb}v5IM<HD{$f0}pP{CBM-K}{$e2}BB{CBM-K}
{$f0}P{CBM-A}{$de} he
U{$f7} {$e8} It[{$7f}
@ A{$60}{$f7}A{$f0}P
0
!{CBM-T}o
{CBM-M}{CBM--}({$e4}#*9JY{$7e}G= {$e1}u{$f5}jd{$fa}4$LD{$7d}{CBM-U}6
RT%%v{$fc}=F:eQ3R{$e1}

Q{CBM-H}{$e2}wS( {$f6}LVth{$ef}C^{$f3}fB{CBM-R}s J!{$f7}%{$f1}b{$e9}{$f4}{$e4}
 D{CBM-C}{$ed}{CBM-I}9>3H A
 {$fe}{CBM-X}(j{CBM-S}@X
 {CBM-O}"b
+Ip{$7d}Y3
@@g{$e6}\
(2(N{$e3}p{CBM-E}"a
3{$fc}$r
>  e{$f7}{$f3}MOI{CBM-A}Kq
2X
jAdB{$e3}(
{CBM-L}{CBM-E}{CBM-Q})u
GJp{SHIFT-@}E{CBM-Z}@ @{$eb}Y6{CBM-P}{CBM-V}& {SHIFT-*}{$e4}E{$e4}Z)dBq {SHIFT-*}{$ee}U{$7e}{CBM-N}&{$e8} P{$f5},  EI{CBM-A}{CBM-R}{CBM-N}I{CBM-Y}{SHIFT-POUND}{SHIFT-POUND}yw
{SHIFT-POUND}{SHIFT-POUND}
x

{SHIFT-POUND}
{CBM-F}{SHIFT-POUND}{CBM-C} E {$ef}HJP{$f3}{SHIFT-POUND}, {$ef}H{CBM-Z}T {$ef}{SHIFT-POUND}  {$ef}{SHIFT-POUND}{CBM-N} {CBM-U}{SHIFT-@}{CBM-O} E E E {$fa}{CBM-D}L{SHIFT-*}P{SHIFT-POUND}~Q{SHIFT-*}{$f0}
{SHIFT-*}{$f0}{SHIFT-*}P E{$60}

L
M
N
KHP{$f1}{CBM-N}{SHIFT-POUND}
{$7b}{$7c}{$7d}  8JP{$f9}JJJI{CBM-A}4I
{$f0}){CBM-POUND} 8.{$7e}.{$7f}.P{$f1}{CBM-POUND}NN{$7f}N{$7e}.{$7b}.{$7c}.{$7d}P{$eb} {$e8}P{CBM-R}NZ{$60},0{$60}lR
Y
K{$f0}M{CBM-A}{$f1}{CBM-V}
L{$ec}WP{CBM-V}
M{$ec}XP{CBM-V}
N{$ec}YP{CBM-O}
O{CBM-I}

{$60}H{$f0}M{$f5}
LZK{$f0}Il{$f0}
 @{$60}B{CBM-D}P E{CBM-Z}90P$8H{SHIFT-*}

{SHIFT-POUND}
({$60}{CBM-D}{SHIFT-*}{$fe}E//{$e6}0
{CBM-E}/H
{$60}l {CBM-*} H x^K{$60}{CBM-Z}]_{SHIFT-POUND}{CBM-S}{SHIFT-POUND}{CBM-Z}K{$60} x8A{$ed}E{CBM-Z}]B{$ed}F'{CBM-Z}{$60}K {CBM-P}{CBM-Z}^\I{CBM-Z}_]J{CBM-Z}EA{CBM-Z}FB{CBM-Z}]{$f0}0{CBM-Z}\e!'

ploadermaker.src{$fe}!

aA<xPBD
-{$ec}
 fDF{CBM-C}a#f-5H::K#@j{$e4}s"h{$f2}s"j
q%Ydrj2Uz{$e4}I!0NT{CBM-C}Edhr&
{$7f}<"#2g0IV(q{SHIFT-POUND}{$ec}hD{CBM-+}{CBM-T}jmQ{$e2}{SHIFT-*}qm(a{$e8}!&2{$ea}D!^9;%J9g,m({$f9})r{CBM-G}!k{CBM-L}{$f0}H,D
%g(
 {CBM-@} m{$60}G
%{CBM-P}\{CBM-N}{$60}Y{CBM-C}
a
@HyM{$ef}{$ea}{$f9}
cGfKN{CBM-O}{CBM--}V[M{CBM-F}M{$f6}0

0M{CBM-E}C{$ee}{SHIFT-+}{$ed}{CBM-O}G6

3+cD{CBM-A},{CBM-R}I!{$fc}
*{CBM-D}{CBM-POUND}Ij({CBM-G}R*{CBM-POUND}{CBM-@}{$f4}2Q{CBM-W}L@{SHIFT-POUND}{SHIFT-*}{CBM-A}V L{CBM-R}J>R!{CBM-M}{CBM-H}J*OtJ{CBM-H}CAR
P
w
B

{SHIFT-*}{$f0}nX{$ec}H/0{$fc}{$f8}${CBM-R}H{CBM-T}(%v{CBM-@}x{$fe}{CBM-I}Y{CBM-X}"<*2!{CBM-P}{$e7}H;{$f5}{CBM-H}SKH
{CBM-R}
mL{$7c}H1M (
 @c{$60}){CBM-*}
AoH{$f4}{CBM-Q}{CBM-*}A
x{$f9}g{CBM-B}{$fe}{CBM-N}{SHIFT-*}({SHIFT-*}@2eh
hp{$e5} {CBM-K}{$e2}U {CBM-*}.{CBM-K}t3{SHIFT-*}m({CBM-V}2g{SHIFT-POUND}$

,W{CBM-D},4{CBM-M}YL6QB~$F J{SHIFT--}LH@@me"FVD2@@[E{CBM-R}q{$f9}{$ec}b{CBM-V}@{SHIFT-*}@{CBM-W}xz{CBM-Z}{$ea}U{CBM-P}!dKW {$60}{CBM-N}{$e6}{$f1}KZc{CBM-H}A{CBM-S}{CBM-G}{$eb}vZUF
@{CBM-A}W*4{CBM-Y}{CBM-+}8
@3PQ&(Q{CBM-T}@{SHIFT-*}s{CBM-Q}:T{$ee}{CBM-V}B{$f8}{$e9}XBp  e7T^Xth@BX{$e4}9{CBM-@}{$e7}{CBM-I}F{$f7}@@a{$fc}{CBM-B}h!t{CBM-K}dHYgpQ?D
F K{CBM-A}{CBM-G}{CBM-R}#{$f8}W{$f0}c
{$60}dP{CBM-@}{CBM-R}{$e4}{$f3}{CBM-@}{CBM-K}P^
{$7f}{CBM-+}l{$fb}G{$ec}Q {CBM-T}{$7e}h=jD{$ed}
e {SHIFT-*}{$e3}{CBM-X}M{CBM-L}# {$ee}r
{$ec}{$ef}b{$f6}
R{$7e}{CBM-C}7({$fd}


{$7e}
N{CBM-T}({CBM-POUND}{CBM-POUND}Ib
{$fc}{CBM-POUND}Q9

{CBM-H}{$f8}{CBM-B}{$ee}{$e9}hI%
{CBM-V}{CBM--}*T*0!C @R
*l
{CBM-POUND}n{SHIFT-POUND}{CBM-I}Nh+{$fe}B*{$e6}{$f1}a%({$7f}
/Lb-:{$60}!< BK(~ B{CBM-R}q By@*H{$e3}7l{$f3}{CBM-P}#h"Jb{CBM-Z}{$fb}*S{$f2}m< Bc{$60}
X*{$7c}{CBM-POUND}H{CBM-H}{$f8}%{$60}{$f9}@Pk2{$60}
@ {$e1}{$fc}{$fe}{$f2} {$60}{$ec}
@ \XQSx5{$fe}({$f1}n {$60}
{SHIFT-*}: fd1
'0{$fe}{$fa}3d$h$[ qX<R
SD70h@h$R/{$f2}*

4 mDP@"{$e6} [t%E{$f9}8{$7d}*6j{CBM-W}#" @{$f4} B{$f4}GTlDtaF #> t,)
@( jJ{CBM-B}{CBM-O}{$e2}?h
{SHIFT-POUND}sLh{CBM-@}{$e8}E G!xDT
T8ER{CBM-A}#{$f4}{$f8}D+HGLx{$f4}!P1'Aj(PYt
{SHIFT-*} a.
{$fe}(@'Ak&!;HD z{CBM-I}{CBM-E}*h{$e4}{$fe}l{CBM-Q}{CBM-T}{$e7}{$e1}){$60}atYrt{$ee}{CBM-E}L9

{CBM-@}t {SHIFT-*}{CBM-A}8F{$e4}{CBM-M}+:{CBM-K}S!<{$60}a^%=[#P

X
tt&{CBM-A}{CBM-A}e,<(R{SHIFT-*}2PAHe{CBM-I}D4uy9

0r

@
{$60}aoEB{CBM-H}C:OP
LB$b'{CBM-A}cV{CBM-T}{CBM-D}MiF8Pk {CBM-O}b+s{$f3}{CBM-R}Y
{SHIFT-*}.{$60}AbV
 6L{CBM-U}l$[{$fe}7Ha"t2{$f0}#(Q(gsPd{$e6}{$60}Ciq0U0{CBM-A}{CBM-H}S{$e6}T)
 ({CBM-@}{CBM-+}NjM{CBM-I}"{CBM-R}!wtZ{$e8}{$e8}:v- U{$fa}f{$f2}1S{CBM-K}G!{CBM-N}a4 A{SHIFT-*}{$f5}nuT
@+ ATX{$f5}g3{$e8}H{$60}$P{CBM-X}1%{CBM-M}P{CBM-K}{CBM-D}X{$ed} A@P{CBM-C}\
{CBM-Y}>vx0UZ5{$60}{CBM-G}*4 {$e3}p{CBM-W}{CBM-@}
mS
{$60}>{$fc}{CBM-H}@DJD(>{$e4}TP!{$e1}{$ef}XSJAKY{$f3}{CBM-*}!KV
1 Blg{$f4}{CBM-L}Ba$ Vl{$e7}ZMo{CBM-A}{SHIFT-POUND}F{$7d}H=jO6l>Lexb{CBM-W}{CBM-R}V0{CBM-A}{SHIFT-POUND}{CBM-R}{CBM-L}
*{$e9}{$f4}lPT{CBM-@}{$e2}2{$f5}R0C$z> {SHIFT--}{CBM-C}{$e7}{$7f}Sq){$e7} >Yp{$e6}TR{$e1}P{SHIFT-POUND}5{SHIFT-@}

h1+{SHIFT-POUND}xQ
C{CBM-O}'

+cU{$f1}Q{$f5}9EQ
{$ed}{CBM-P}>7)
{$e4}1{CBM-H}{$f7}E;Y+{SHIFT--}P{$f1}s{CBM-*}B$c{CBM-*}{$e9}P{$fd}{$f9}]
{CBM-J}{CBM-T}KE\
{SHIFT-*}3CDe:{CBM-A}r{$f5}{SHIFT-POUND}pVpF>qYM;&{SHIFT-*}R{$f1} {$f5}{$e9}{$de}i={SHIFT-*}NeQ
U
&{SHIFT-*}Y^d{CBM-+}{CBM-Q}gNP;{CBM-*}{$e3}{CBM-Q}g/{SHIFT-*}@Y?@
4a
ten{$f8}{CBM-Y}{SHIFT--}>Hg@5{SHIFT-*}WMP{CBM-Q}{CBM-A}3M{$f8}'{$ef}=2@{CBM-P}S/W{CBM-W}0{CBM-I}L
{SHIFT-*}=
4.
Q{CBM-O}p{SHIFT-*}({CBM-A}1HIb8{$fc},{$fe}b{CBM-U}O{$f3}N,p.a2p{SHIFT-*}({$fa}W{SHIFT--}{$fc}{CBM-P}F

C23!cp{SHIFT-*}{$f0}{$ef}Bp
{SHIFT-*}{$f0}/2{$e2}!{CBM-E}Rf{$7e}
s>
{SHIFT-*})p{SHIFT-*}({$fa}t3{$fb}{$f1}/{$ee}1{$fc}d~ 01P
%{CBM-@}
#(ot+#4h{CBM-POUND}@-fF{SHIFT--}

{$e8}
%{$e4};:h$(@XT{CBM-POUND}{CBM-F}E0$
{CBM-O}{$f4}B{$fd}4h0{$fa}{$fb}+pb{SHIFT-*}@{CBM-U}R{$7c}#{CBM-X}. S {CBM-P}F{CBM-U}4T3{CBM-E}{$7e}@{CBM-X}"?{$ea}
D
%4"%{$f4}
{CBM-I}/
Q1{CBM-H}
{SHIFT-*}{SHIFT-@}{CBM-O}{$e3}
{CBM-T}{$7e}I{$7e}{CBM-W} {CBM-Y}SP@{SHIFT-*}R<

T
{$ec}W,{$60}ki!-f.{SHIFT-*}{CBM-K};Pb08o{$e1}5PA{$ed}{SHIFT-@}{CBM-P}A{CBM-I}c{CBM-V}I~(-(yF
{CBM-L} {CBM-A}({CBM-X}yFm\H-l,{$f7}a4PB
{SHIFT-*}
{CBM-+}{$60}{$7b}
{CBM-L}PKMO{SHIFT--}{CBM-K}{CBM-U}{$60}{$fd}{$f6}4gC@CS-{$ec}{CBM-D}H;.{CBM-L}0BU{SHIFT--}E4&A@
{SHIFT-*}>PB0H{SHIFT-POUND}{CBM-L}0:e{$f5}{SHIFT--}IRH{CBM-Z}
<{CBM-D}bfBO/{CBM--}{CBM-L}BY 2p
{$fc}
,;.{CBM-L}00H{$de}{CBM-P}11+
P9){$60}'"{$f3}{CBM-W}{$60}{CBM-I}%fX'

* ciW1l{$e8}($yB%;6 cQ:T%L{CBM-D}yr #{$f6}PWXRq {CBM-Y}h
X:T${$60}fR{CBM-+}($SrTD

D:EJTDH$0uC>4
:LD0{CBM-M}{$fb}d^{$ea}fAzf2L:{CBM-D}{CBM-G}Bf{$7f}( 0{CBM-POUND}{CBM-W}O{SHIFT-*}9 Ca,i*{CBM-POUND} {$60}{SHIFT-*}u*{CBM-+}{$e3}!(Gm{CBM--}>

&{$60}{SHIFT-*}kG4

{$60}xET2
,j4{CBM-POUND}$K{CBM-A}#{$f0}
@
8{$f7}!{$60}
XB'vs80{$e3}{CBM-G}( g(
X{$60}50
2H
6{CBM--}{$e5}Hd{$fc}{CBM-G})P{$e7}L{SHIFT-@}A>X6{$7c}4{$7e}DS>em{$e5}eq$c{$60}@{$e4}0DC!
@.{$60}l{CBM-W}e{CBM-H}T,(6 5[{CBM-S}{$e7}0{$e7}035t{CBM-Q}{$e6}{$ea}t{$f3}{CBM-+}+B{$60}@{CBM-H}pT+yUrp5["B{$60}C"AaI2 RQ-*{$60}#{CBM-P}{CBM-K}h (
{CBM-A}{CBM-H}De{CBM-A}
{CBM-F} {CBM-N}nh{CBM-W}CDEhIRo {$f8}+
_2w+S+Rj{$f3}{CBM-O}{$f3}i2R{SHIFT-*}{$e3}4{CBM-D}sea#g{CBM-F}RT{$7b}{$f0}" hT )T0[+YA> rGT{CBM-I}4{CBM-M}H#LP{CBM-Y}{CBM-S}l{CBM-Q}+B G{CBM-I}$%{SHIFT-*}Q+@N{$e6}xBHLT"B{CBM-POUND}1{SHIFT-+}{CBM-E}&#{SHIFT-*}B{SHIFT-@}IQ{$e4} O(,iB{$ea}rS"0WP{CBM-H}{CBM-X}{CBM-J}#n&{CBM-N}U{$f2}@R{$e1}@{CBM-N}{$f8}tsv{CBM-X}#{CBM-M}lC8aSKLC
@D*5GLnL$MaDHL
{$e4}{CBM-D}{SHIFT--}\R{CBM--}

{CBM-C}-~{$7c}nN

{$60}
!4{CBM-D}{SHIFT--}{CBM-I}MBTg+{CBM-Q}q{CBM-Q}

!T-?;B@{CBM-S}{$fb}{CBM-Z}^B{CBM--}R3W2B{CBM-U}#H{$7b},{SHIFT-*}LC8,A LRJRHDBF*{$e3}dB{CBM-E}'
{SHIFT-*}
Fc$"{CBM-Q}{CBM-I}u4Ku{$eb}Q#';R{$7d}v{CBM-E}7{$7b}={$7b}

X
){CBM-A}=y?{$ed}{CBM-W}?{$fd}S
{CBM-H}
)<S
{$f6}({CBM-X}{SHIFT-*}E{CBM-S}QW
mOS{CBM-X}RFSUW
{$f6}P Pw{CBM-K},)h=?{$f5}c[RRQzE{SHIFT-*}:
@S\){$e8}{CBM-H}{CBM-V}Cv@{CBM-*}{$e5}]{$e3}fTY5{CBM-N}SI-@R#
{$e7}0%Z(

9S{$f8}&O[Z3;NT;#{$ef}{$f2}{$fe}eTC6
)a@+M{$7b}{CBM-B}
8
${CBM-C}C]NaVg@a@c2{$f2}{$f0}?a{CBM-W}{CBM-Q}Y${$de}jZX{$7b}OmW%{CBM-T}cpB{SHIFT-*},
{$7c}%L#(x)#4h{CBM-POUND}@-&.&9jj'H{CBM-T}>!pA{SHIFT-*}
h{$f3}LsM{$fd}{$e2}{$ea}0"W{$7b}81+

pA{SHIFT-*}({$fa}{$fc}{$ec}{CBM-R}{CBM-X}{CBM-T}aPTI.7pA{SHIFT-*}{CBM-U}#x.\{$f9}{$fc}{$f9}{CBM-Q}{CBM-F}{$e5}R{CBM-X}~
,# Cw{$fa}6{$f1}~k2K{CBM-R}F&S+T6{CBM-Q}9{$f6}{$eb}K ;!C7p{SHIFT-*}z.\{$f9}{CBM-POUND} J{$f6}{$eb}K ;f
{CBM-Q}&{CBM-X}S3{CBM-E}/5 ,#H<;:p{SHIFT-*}{SHIFT-@}{$e8}O{$eb}.{CBM-L}00BMR-f8
{CBM--}Ox^P{$ee}PM~eR{$f0}{$7d}{CBM-POUND}{$fb}{SHIFT-@}maP{SHIFT-*}{$fd}7^PC{SHIFT-@}{$f7}{SHIFT--}!kht{CBM--}{$e9}
{$ef}-!CP={CBM-I}{CBM-U}v00Si{CBM-*} QBD"P{SHIFT-*}U^0LO{SHIFT--}UgC=r2{$7d}A
 =P
{$f7}P{SHIFT-*}#0











































































































{CBM-R}chiTf<{$ef}04x<({CBM-K}7{$60}
yF;0
3P]d30cN%:{$e1}PK*{$f2}{$f2}Hkr8#k{CBM-U}B{$60}
c{CBM-S}E(0pX:{$fa}dEO{$f6}{CBM-T}P*{$60}w>bN{$e4}v{$ee}{$e4}^%{$e4}^{$f6}8t =AkH{$60}{$e6}0{$60}h{$fe}{$ed}{$60}DgP{$e2}P[{CBM-POUND}S4{CBM-B}A>x&H
v#-i{$ee}2UO2t{$7e}Ay<{$de}a
{$60}f&"L0
'
{CBM-T}
&%UpQg1{CBM-POUND}{$fa}{$e5}{$de}A{$60}m{$f1}0{CBM-R}1{CBM-B}{$ea}<{SHIFT-*}z8ZB\{$e9}?  {CBM-C}&{CBM-U}8N

-!{CBM-M}IT{$7e}R=g{CBM-J}{$7b}[SRk {CBM-N}A n{CBM-Y}{CBM-Y}eUP
Y y
9w{CBM-O}!NEC*{$ef}{$7c}H{$f7},RVu{CBM-W}&H${$60}$h{$f4}s"{CBM-N}( cOuO{CBM-E}5{CBM-U}
 w{$f4}8R (x{$f5}-R{CBM-J}{CBM-F}H9{CBM-POUND}.Hz ?7{$f4}47  bH
pG
P,
.D{$f5}{SHIFT-*}{SHIFT-*}3G
{$60}{CBM-POUND}{$f2}{CBM-R}@oiAWa{$f7}{CBM-J}h{CBM-T}.DqWP{$f5}@_{$f0} {$f7}m[{CBM-K}d{$7f}{$60}{CBM-@}{CBM--}{$f5}CYfU1G$fD

 aMi
Y+ a[BQJ

d!{CBM--}
{CBM-@}5Em-!{CBM-C}{CBM-Z}{SHIFT--}TR{$f4}a
@{$e5}VD{CBM-I}{CBM-A}{CBM-H}
{SHIFT-*}T{CBM-S}{$e5}{$fa}.L;B2J{CBM-S}e{$f4}NNBA+{$de}{$e4}#ETh{$ef}L-{$fe}b{CBM-J}Z{$f2}{$e2}{CBM-C}+:E>{$e4}?{CBM-G}{$ee}{$f3}&{$ec}{$ed}B{$f9}{$e2}
0@r{CBM-I}+{$f0}
T^{CBM-J}{$de}rwH{$ed}zm{$fc}{$e8}i!R sC(O(LBcV!{$e3}^GLC{$f4}{CBM-L}Z8(Y$
?{CBM-N}aIq{CBM-S}2;b@Q{CBM-H}X
{$e6}{$f8}IO{CBM-K}{CBM-X}C>L_N=E
{SHIFT-*};aL{$f1}
uPiS{CBM-Z} >

!cZ{CBM-Y}5/@{$f2}dT{CBM-H}{$e9}aGG{$e7}
,{$fd}{CBM-A}{CBM-R} B!A@,{$f2}[{CBM-U})R{CBM-W}{CBM-V}{$f9} {CBM-R}{CBM-S}x

5C@{CBM-Q}*{CBM-I}2h[XY61z&{CBM-X}hh
9\{$fd}{$ee}i>{CBM-POUND}{$fc}P7T3{CBM-T}{CBM--}1P{CBM--}SZ(*Vt

X9{CBM-C}{$7c}
{CBM-O}u4'{$fd}
C {$fd}{SHIFT--}1{$eb}WR{$f0}H{CBM-T}
T9*01{$ec}9 A9Z{CBM-M}{CBM-P}{$f9}{CBM-U}{CBM-T}AW;>{CBM-*}H1:
{SHIFT-*}{SHIFT-*}( 6p
{SHIFT-*}X4/
Q{$fd}{CBM-P}{CBM-E}
_{CBM-I}h0, F{CBM-K}qc8

p
{SHIFT-*}({CBM-L}+p
{SHIFT-*}Xi&p{SHIFT-*}*{$fa}+{$fc}{$ef}{CBM--}{CBM-B}{CBM-R}
{$e8}
5{CBM-A}
,~{$ee}%P{$e6}~2{CBM-E}"A{CBM-F}
p{SHIFT-*}B >{$fc})C{CBM-N}{$ee}m{$e6}D5h
{CBM-D};"'08)D5(,FX
{$ee}1l5{$e8}
,{$ee}[82{CBM-O}{SHIFT-POUND}{SHIFT-*}{CBM-G}{$fc}
{$f3}{$7d}{$f7},p.Ap;"{CBM-Y}~(d{CBM-G}Y.48:{$7d}P{SHIFT-*}*{$fa}{$fc}{$ec}{CBM-R}
,4#S+f{$f2}l
{$e8}
X{CBM-D};+m:{$e9}{$e5}{$7e}
p@P{$fb}i1m{CBM-I}KVtW"r/D

,h{$e9}p 0%{$fc},{$fe}Rq{$f3}{CBM-M}{$7c}R
$
D,{$f7}A P@
({$7f}{$fb}



p
symass-3.tasc{$fe}!

{CBM-POUND} jB]rt)(C{$e5}B{$60}2\(">{CBM-I}{CBM-G}Xrwc(
G{CBM-C},
RF[)/{CBM-K}sJ[(e{CBM-K}{$e4}{$60}1"
{CBM-W}
{CBM--}{CBM-@}&{CBM-U}I 7{CBM-POUND}b^&Ux
{SHIFT-*}{CBM-W}a2b
H{CBM-D}x"D{CBM-M}a
{$ea}d{CBM-P}18z
pjs"%jIUwb{CBM-Y}5EPYS0F %!
O2
8{CBM-@}f{CBM-C}hj3EI+o>{$7f}
{$fd},{$ec}A{CBM-O}
{CBM-N}t{CBM-Q}{$e1}{CBM-A}{$60}{$e3}{CBM-+}D
MY{SHIFT-@}M{$f6}{$7d}{$fb}498{$e6}{$e1}#g;NOh@s(N^bQ!0{CBM-@}7{CBM-+}
{$e9}a{$de}pK{$ee}&dU{CBM-P}y{$f0}{$f6}{SHIFT--}{$fb}
>{CBM-+}{$f4}t)U.a%Vpq{CBM-H}jI8e{CBM-M},eX9{$e3}K3{$f7}xa(j{$7e}A)(J
!${CBM-I}N{CBM-*}{$fa}{CBM-K}n{CBM-POUND}D{CBM-A}{SHIFT-*}{CBM-L}{CBM-N} 3 Q
! Q{$60}
P{$60}L
{CBM-E}R1L2Q{CBM-A}

{CBM-R}PlbL'lbAA{$f2}
5<@{CBM-K}54,@D:(
{CBM-+}6{$7c}{$f1}
Zd{CBM-S}{CBM-K}%
 C{CBM-E}{$ee}{$f1}@5
{$e5}FQ{CBM-M}Q@ {CBM-O}{$7b}{CBM-I}iz{CBM-@}b
 bNH C KpzsEXQM {CBM-T}{$f2}{$e5}
B
8U{CBM-I}P
-t{$e9}@ {$f0}{SHIFT-*}{$7f}{CBM-H}ZO&$p{$de}1
VI{$f1}(pfB{CBM-I}M^
qB2{SHIFT-POUND}O4>2 1{$e9}h/LA{$e5}^T0*K8U{$f9}pq{$e9}ltc {$60}{$ee}{$f2}MC={$7c}{$e8}C$I{CBM-J}D{CBM-L} E{SHIFT-*}
e
,p{CBM-@}
d){$eb}lF{CBM-U}p&{CBM-G}
@\ Z{CBM-C}j {CBM-A}0DqB
{CBM-U}l{$fe}
,= {$7b}{CBM-E}mkR{$60})
$NQd$!{CBM-E}CpzS{$e5}$c{SHIFT-+}(
h{CBM-R}(H2Z2\{SHIFT-+}kB{CBM-I}H

D{CBM-K}mb{CBM-J} {CBM-K}{CBM-E}{$f5}
q4PST{$ed}tW!{$fc}_{$ed}FXqUQbS{$ec}{$e8}H{$7b}{CBM-K}V ){CBM-T}c
x  @M Da.{CBM-@}O{$e8}{$e8} {$e7}{CBM-*}7l-{$7c}KB{$f0}4{$fc}_pN{$f1}o{$e2}{CBM-J}{CBM-U}D!!i{CBM-POUND}{CBM-+} ; {$e9}{CBM-E}{$60}\p0{SHIFT-@}!{CBM-POUND}a]4dFiaC?{CBM-F}
{CBM-POUND}{CBM-W}&FZB{$60}{CBM-+}[!{CBM-V}PQOcZ{$f8}T{$f0}{SHIFT-POUND}b{$f2}{$e8}{CBM-S}:
hL_X'${$f6}/@{$ec}CEab{$f2}{$f8}{SHIFT-POUND}{CBM-P}  {$60}{SHIFT-POUND}
 9A A
G

?{CBM-G}/){CBM-B}/{SHIFT-POUND}{$f0}{CBM-E}{SHIFT-POUND}{CBM-R} {CBM-I}A

?~ {CBM-Q}As< {CBM-Q}A{$fb}t {CBM-Q}A,L {CBM-Q}A{CBM-M} {CBM-S}A
(icon definer  v1.0
 {CBM-S}A
4BY f. g. kOSTELLA FOR THE tRANSACTOR
 {CBM-S}Ap
hA pHOTO aLBUM
 {CBM-S}A8
{$60}PREVIOUS ALBUM RECORD
 {CBM-S}A8
XNEXT ALBUM RECORD
 {CBM-S}Ap
CURRENT ALBUM REC A

/ {CBM-S}A


{SHIFT-POUND}J{SHIFT-POUND} hA{SHIFT-POUND}/ eA{CBM-Z}
{SHIFT-POUND}
{SHIFT-POUND}{SHIFT-*} A{SHIFT-POUND}  eA{$60}{SHIFT-POUND} 9A AG

?{$60} {CBM-S}AN
F empty record
{SHIFT-POUND}{CBM-P} WB{$60}h {CBM-S}AN
F -disk error- #
Hh{SHIFT-POUND}
{SHIFT-POUND}{SHIFT-*} A{SHIFT-POUND}  eA{SHIFT-POUND}{CBM-P} WBHIP {CBM-S}AN
O -RECORD TOO LONG-
{$60}
{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}
{SHIFT-POUND}{CBM-Z}
{$f0}I({CBM-A}{CBM-Z}{$f0}
I{CBM-U}{CBM-A} bA{$60} {CBM-S}AN
F -bad bitmap-
{$60}{CBM-Z}P{SHIFT-POUND}R {$60}{$e6}PP{$e6}Q{$60}{$e6}RP{$e6}S{$60}{CBM-G}UEQ{$f0}
{$60}{CBM-G}TEP{$f0}l8{$60}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}
 {$ed}A{$60} ~~

~~{$f1}{$f1}{$f1}~~

~~

~{$fe}

{CBM-U}


X


<X{$f3}{CBM-W}FM{CBM-W}FA{CBM-W}FY{$fb}{CBM-W}F
Y{CBM-W}FM<X{$f3}

~{$7f}~~{$fe}

{CBM-U}


1

0FX03FLFL{CBM-W}<{$fc}{CBM-W}<{SHIFT-*}1{CBM-W}LX

 lrM@Ksyqa^"cE@a(be({$fa}@"'1T{CBM-N}D{$e4}lR4gB${CBM-@}{$f2}{$e1}K{CBM-A}0@@Q@2{CBM-A}3\{CBM-W}rkK{SHIFT-@},0{CBM-+}{CBM-M}S{CBM-O}9{CBM-G}p{CBM-E}
4{CBM-G}ca){$e4}U#c]t{CBM-E}
b Az]wC
% !uSbAIbII7{$7d}{$e3}s*{$60}{CBM-Q}s{CBM-T}f'{$de}PpNF{CBM-I}k({SHIFT-@}H{SHIFT-*}I{CBM-G}{$e8}{CBM-W}
{$e8}aa
{CBM-N}nMd1c{CBM-S}n3${SHIFT-*}Z@Q"P2
pB{$60}a9
,{CBM-R}
 -{CBM-J}8KQ
{CBM-+}WYPER
,0r5e${$e4}*2Np
{SHIFT-*}~1{$f2}
8{CBM-+}6{CBM-X}

{$e2}T{$ea}BQ
<
{CBM-X}X
&A q{SHIFT-*}B$2V
W6i{CBM-D}"
@D@1A


{CBM-G}{CBM-J}H0ArHD@d)b\{$e4}
F1{$f2}{CBM-O}pAPe(l)C(Bf{CBM-S}h vBp+ZIb 'xt)PC^{CBM-X}0KP{CBM-Q}dX{CBM-K}p{$e8}{CBM-K}a{$fc}mM{$ec}{CBM-T}NE{CBM-M}{CBM-Z}PCh{$fc}{$60}0{$de}x@{SHIFT-*}A
{SHIFT-POUND}{CBM--}{$e5}-t{$f5}{$e5}I<
I{CBM-Z}N~h4p2={CBM-G}H{$e7}{$e5}I{$f0}"/, AK{$e4}{CBM-T}88E{SHIFT-@}R\{CBM-L}{$f0}2{CBM-A}{$e1}t{$ec} /A
_{CBM-A}:4t{CBM-L}Z7,{$7c}pCGi{CBM-L}P7{$7c}{$e4}{$f8}gg{SHIFT-+}{CBM-Y}{$7c}{CBM-K}{$e2}p{$de}9{SHIFT-@}N
{CBM-V}{$f4}
y{CBM-K}YL T@P.{$f4}*d!9@{CBM-I}A{CBM-A}V$Z(\8
YHa{$e4}f7{$f0}M
{$7b}Abb& {$f9}Y@*]{$e2}{$ee}Rx{CBM-H}{$ef}{CBM-S}{$e4}{CBM-K}q(a2{$fa}!H@{$e2}{CBM-K}
aH{$60},k{$ea}{CBM-Z}!Z{CBM-X}n{SHIFT--}{$e6}:{$ec}7{$f0},c{$e2}{$e1}pJC!VIGa{$fc}{$7e}{$7d}{$e2}*Hb{$7e}oXRsV{CBM-T}[@"{$ed}^
OSTELLA
















































































































































 y
$


B40 SCREENpRINTER
w
/


(tEXT  sCRAP     (
y


wRONG IS wRITE
~{CBM-B}~~~ pr1A{$f4}{$e3}~{$f4}{CBM-K}rrA{CBM-K}Yu M{CBM-K}wrK<
~~~



iCON dEFINERv1.0



f.g.kOSTELLA















































tRANSLATE PHOTOS INTO .byt DEFINITIONS FOR ASSEMBLING.
80,0,1,$80,0,1,$80,0,1,$80














ORD
{$60}{SHIFT-POUND}{SHIFT-POUND} zA{$60}C
Cs

>2&
;{$fb}
z,
m{CBM-M}
Kl,B {SHIFT-*}I{$f0}{SHIFT-POUND}

lD{$ee}
{SHIFT-POUND}

lDN
{SHIFT-POUND}

 {$f7} {$60} YI{$f0} B "{$60} {SHIFT-POUND}
{$7b}{$fa}{SHIFT-POUND}{$7b}{SHIFT-POUND}
{SHIFT-POUND}{SHIFT-POUND} vB{CBM-G}{$60}d{CBM-POUND}

pLEASE ENTER fILENAME
 {SHIFT-POUND}
J{$fa}{SHIFT-POUND}{SHIFT-POUND}J{SHIFT-POUND}
{SHIFT-POUND}]{SHIFT-POUND}{SHIFT-POUND}{$ec}{SHIFT-POUND} vB{CBM-G}{$60}h
{SHIFT-POUND} 9A{$ec}L\6[4{SHIFT-*}da{CBM-V}"{$eb}+{CBM-R}{CBM-U}jqdAZM{$e2}{CBM-Z}H
{CBM-F}{CBM-P}{CBM-L}F{$e2}4{CBM-P}CPUS:{$e3}MN$@4{CBM-C}"{SHIFT-POUND}V{$7d}{$f0}:um%{CBM-R}{CBM-I}m%{$e3}{CBM-I}{CBM-T}{CBM-Z}H{$f3}
$rM
{SHIFT-*}S{SHIFT-POUND}rC{CBM-I}
{SHIFT-*}':{SHIFT-*}N{SHIFT-+}{$60}l#q0{CBM-K}l)j>{$fa}{CBM-P}{CBM-K}L{CBM-POUND}$(S
 q{$eb}DHrveO#{CBM-L}{CBM-I}TY,0{$7b}5W1Y{SHIFT-@}
i#jtR4P

{CBM-G}P
* s&qFUb#(<b{$e1}-b2+X
J{$60}{SHIFT-*}P^{CBM-A}g{$fa}B4{$f4}{$e5}8fA! G+H{$f0}@u,{$e1}{CBM-*}:1{$ea}pnwpPEu
R5mB+D aT{CBM-I}(e+{CBM-V}{$f0}j{CBM-I}Jp Bl"5{$f8}b !9B{$7f}D
e<T_,0]LB{CBM-Q}{$ed}{SHIFT-*}${CBM-E})(c]I4p/{$f4}{CBM-K}_HCZ%{CBM-POUND}@{$7f}
C:ZH{CBM-I}={$f8}bzZV@{CBM-R}cw qC{$7b}{$f8}BV{$f0}p{$7c}{CBM-K}


-XAr{CBM-A}{CBM-L} # E4T0{$ee}x?{$7c}{$e1}Oc{$ec}<!{CBM-S}@{$ec}+{CBM-V}Qqa2@{$e8}
{CBM-K}{SHIFT-*}_
{CBM-V}
UqcBCfg!C{CBM-V}{$f0})
~i"{$60}6_pB











































































































































































































































 1{CBM-Z}{CBM-P}P {CBM-A}{$60}{SHIFT-POUND}
{$60}

 1 {CBM-K}B{SHIFT-POUND}J{SHIFT-POUND} TB{$f0} ^{$60}{CBM-Z}
 BP @{$60}{SHIFT-POUND}{SHIFT-POUND}P{SHIFT-POUND}{SHIFT-POUND}
 B{$f0} ^{$60}{CBM-G}T{CBM-G}U{SHIFT-POUND}
{CBM-P} {CBM-A} WB{$60}
{SHIFT-POUND}
P{SHIFT-POUND}Q{SHIFT-POUND}PR{SHIFT-POUND} S
A{CBM-Z}A)P!{SHIFT-POUND}
 {$f7}{SHIFT-POUND}. {$f7}{SHIFT-POUND}b {$f7}{SHIFT-POUND}y {$f7}{SHIFT-POUND}t {$f7}{SHIFT-POUND}  {$f7}l{CBM-@}{SHIFT-POUND}, {$f7}{$ee}A{CBM-E}P R {$fd} C{SHIFT-POUND}
 {$f7}{SHIFT-POUND}
R{SHIFT-POUND}PS{SHIFT-POUND} T{CBM-G}RU{CBM-G}SV{$60}h{SHIFT-POUND}$ {$f7}Hhjjjj {$ec} {$f7}H {$ec} {$f7}{$60})I
0II0{$60}~{$7f}~{CBM-A}~~~


@{SHIFT-*}~{$f3}~{$f3}~{$f3}{SHIFT-*}@


~~~{$7f}~~{CBM-A}~~{$fe}


~C~{$f3}~C


~~~{$7f}~~PHOTO ALBUM


































{$7b}{CBM-B}~~~


















~~~







iCON dEFINERv1.0



f. g. k


(2063)


{SHIFT-POUND}
 P{SHIFT-POUND}
!Pld
 e
Directory for this S.D.Archive:

 %{SHIFT-POUND}= R~P{$f8}{$60}l+ {CBM-I}{$ed} /0{SHIFT-POUND}
 R~

IP{$e4}H
I{CBM-A}{CBM--}8{CBM-G}-{$e5}/{CBM-G}.{$e5}0Q

{CBM-N}H{SHIFT-POUND}" R~
 R~HJP{$f6}{SHIFT-POUND}" R~{SHIFT-POUND}  R~{CBM-G}SIP{$f5}
{CBM-I}{SHIFT--}{$7f}{$f0}JP{$f8}{CBM-X}{$7f} R~{CBM-X} R~{CBM-X} R~{SHIFT-POUND}  R~
{SHIFT-*}P{$f5}{CBM-Z}{CBM-+}{CBM-Z}{CBM-M}   bytes
{CBM-Z}#{SHIFT-POUND}
".8{CBM-G}"{$ed}{CBM-G}#{$ed}{CBM-G}/M{CBM-G}0M{CBM-S}{CBM-D}lz
Hit any key to create the files
On unit 8,0 or RUN/STOP to abort

{SHIFT-POUND}
F {$e4}~I
{$f0}{$f9}I{$60}?spur?erse?qgrl{CBM-I}

{SHIFT-POUND}08{CBM-Z}{$f9}{$fa}h{CBM-Z}{$f9}{$fb}h{CBM-Z}{$f9}{$fc}HH{SHIFT-POUND}~{$fe}PUHHHHHH{$e8}$0{SHIFT-POUND}  {CBM-C}
{SHIFT-*}{$f0}{SHIFT-*}P{CBM-O}I {$f0}{SHIFT-POUND}, R~{CBM-O} R~H{SHIFT-*}{$e1}{$60}~8{$60}{CBM-Z}LI{CBM-A}{$f7}{CBM-Z}TIp{$f0}Is{$f0}IuP{$e8}{$60}7
{CBM-Z}LZP
K{CBM-Z}{$7b}
L{CBM-Z}{$7c}
M{CBM-Z}{$7d}
N{$ee}Z{CBM-I}
O{$60}Y
KHPTo {$fe} [{SHIFT-*}
P{$f8} [{CBM-Z}l{CBM-O}
KK{CBM-O}
OO{CBM-O}
LL{CBM-O}
MM{CBM-O}
NN{$60}stoRpacKsqueeZcruncHsquasHcruncH
un-

{CBM-S}LJ0{CBM-O}Z0HP{$f8}HP{$f2}{CBM-O}Zh){$7f} R~HH{$f3} ing...
{$60}

 "
,0>{CBM-S}{$f0}
l
{CBM-S}L{$f0} {$f0} {$f0} {CBM-Z}]{$f0} q {CBM-P}{CBM-G})P q\{CBM-G})  q]PK{SHIFT-POUND}4{SHIFT-POUND}{CBM-Z}\K{$60}{$60} {SHIFT-@}{CBM-A}{$60}{CBM-Z}^I{CBM-Z}_J {$fc}{CBM-Z}A^{CBM-Z}B_l{CBM-S}{SHIFT-POUND}
\{CBM-D}H 8.\.]P{$f4}{CBM-Z}\P8{CBM-Z}]IP1HH{SHIFT-POUND}
OPQ{SHIFT-POUND}~{CBM-Z}LIP  8.M.NP{$f4} ( 8P{$fa}8{$60}{CBM-Z}\l^
{$fd}{$e6}{$fd}P{$e6}{$fe}{$60}{CBM-G}{$fd}I<P{CBM-G}{$fe}IP8{$60}{SHIFT-POUND}<{$fd}{SHIFT-POUND}{$fe}{$60}{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-I}
{CBM-K}{$fd}{$60}{SHIFT-POUND} EFG{SHIFT-POUND}{$fe} T){CBM-D}
EfJH{CBM-@}{CBM-O}1{CBM-I}${CBM-I}
{CBM-@}{CBM-@}
{$e4}n{$e2} {SHIFT-*} {$e4}  Q($c{CBM-C}"{CBM-K}{CBM-K}{SHIFT-POUND}
x
iG *I{SHIFT-*}A {$de}{CBM-C}c8/{CBM-V}@<4X&{CBM-B}
+{$e6}e{$de}B({$7f} !*{CBM-O}M9,(
@3TI{CBM-I}#{$e9}f0APg{CBM-D}c*a@j8{SHIFT-*}HaLH@
3,f!{$ea}Qc{$60}R4{CBM-N}{CBM-K}{CBM-I}{$f6}#
@1{CBM-M}{CBM-I}{CBM-T}Bb{CBM-K}80{$f2}Y{CBM-K}{$e4}#9jH#R{$f2}H

<pL

 E{$60}E
d4{$60}Q{$e6}]P0,

!{$60}{$f1}{SHIFT--}bT{CBM-@}{$f5}f5{CBM-Z}@({$60},{CBM-V}B0
{SHIFT-*}H{SHIFT-*}.
z
ge
Y{CBM-L}em{SHIFT-@}{$e2}{CBM-M}poJk2
{CBM-D}
(

q{CBM-D}xPd{$7f}
fU{CBM-C}/#@{$7f}
a5
x{CBM-A}l{$f5}{$f2}3tpE{$60}{$fa}{$60}{CBM-A}
{$f9}4{CBM-K}7z{$f0}{CBM-B}9{CBM-N}]Q{SHIFT-POUND}q{$7c} v(
{CBM-P}t{$e2}{$fd}jC{CBM-@}hT{$e3}f4$C{CBM-I}{$f1}+{$de} qT=

{SHIFT-*}a{$60}a
BsPPk<D%Q9Y{$ec}{$f2}1${CBM-K}$J{CBM-P}I
 ,
)(K9{$f6}{CBM-T}XEGoHSii{$e6}b=y
9D {CBM-POUND})F0D{CBM--}{$7e}E${CBM-POUND}{CBM-K}{CBM-U}  JHE "EF{CBM-L}.X6BPX@d{$de}{CBM-D}<[
{CBM-H}@dE{$7c}a{SHIFT-*}E()
{$ea}
 Q{CBM-H}pNzWLVE2
 d{$f4},{CBM-K}{$7c}k
{$f4}{CBM-E}E@K
NE{$60} {$f4}J{$e8}@ BK5{CBM-W}{$e9}{$f0}E{$e4}
@Q{CBM-Y}NcL\TJQd{$7c}l,bz:${CBM-I}-{$e5}
8"
1{CBM-@}UbpT{CBM-C}:4{$e4}R"\J<
 FU{CBM-G}{$f0}d QLp{$60}1 {$f6}{CBM-*}w F!
@b

'

{$e8}

D









{CBM-G}(
X{SHIFT-POUND}
{CBM-E}/h{SHIFT-POUND}Hx{$60}
{CBM-O}I0P{SHIFT-*}{$f0}{SHIFT-POUND} HP{$ed}{$60}{SHIFT-POUND}{$ed}/{SHIFT-POUND}0{CBM-G}){$fe}{SHIFT-POUND}
 sPlF
N{SHIFT-POUND}{$ed}/{SHIFT-POUND}0 W
{CBM-A}p {SHIFT-*}~$0i{CBM-I} I~ M{CBM-A}?,0
 R~$03l{$7b}
 L~{SHIFT-POUND} C~{SHIFT-POUND}{$fe} E{CBM-Z}MMUP{CBM-Z}NMVP{SHIFT-POUND}o R~{SHIFT-POUND}k,{SHIFT-POUND}? R~lJ
,08{$60} L~{SHIFT-POUND} C~{CBM-G}lT{CBM-@}{CBM-I}/{SHIFT-POUND}
\J{$fa}{SHIFT-POUND}0
{SHIFT-POUND}: EIPM{$e8} EL
P
 {CBM-A}{CBM-S}L
 {CBM-N}
{CBM-A} E
{$f0} {$f0} v
 a
{CBM-I}

,{$60}{CBM-S}OP{CBM-S}PP{CBM-S}QP{SHIFT-POUND}~{$60}NQNPNO{$60}h{$ee}mMUU{$ee}VH{$60}ly
I{$fe}{$f0}{$60}{SHIFT-POUND}Mw
{SHIFT-POUND}
x
HHl{$e6}{SHIFT-POUND}{$7d}w
{SHIFT-POUND}
x
lH

 w

x
{CBM-D}N{$f0}P
{SHIFT-POUND}yw
{SHIFT-POUND}
x
{CBM-Z}{$60}{SHIFT-POUND}
{$f5}
{$ee}WXY 8{CBM-D}{CBM-Z}WW.{$ee}{$ee}{CBM-Z}I8l
CD{SHIFT-POUND}H{$60}{CBM-Z}FI{$60}{CBM-Z}E{CBM-D}J{SHIFT-POUND}  ,{CBM-D}I{SHIFT-POUND}P ,{CBM-D}K{SHIFT-POUND}{$f0} ,{$ee}EP{$ee}F{$60}4{CBM-G})

{CBM-+}Xx{$60}{CBM-G}{$fc}){$f0}{CBM-G}{$fb}
{CBM-+}X{CBM-E}x{$60}h{CBM-Z}HI{CBM-A}{CBM-Z}CPNDNC{CBM-Z}C
DP{$ee}HG{CBM-Z}GDH{$60}HH {CBM-T}{CBM-Z}Q{$f0} R~l {CBM-T}L{$ee}P{$ee}{$60}
































































E
 Rbp

3p t
p j"{CBM-K}
B@a\){CBM-+}@aqatyH{$e4},{CBM-R}{CBM-Q}6{$f2}{CBM-POUND}Vdp0u
a@{CBM-I}
2Hk{$f6}#V{$7c}M{$fb}

@ASBh"{CBM-P}w @3R{CBM-I}<{$e2}"{CBM-R}(TxPUB0@{$eb}
{CBM-A}
{$fd}{$f4}40C{$fa}0
{$f0}z{$f6}{CBM-Z}{CBM-I}!6{$eb}{$e3}7{$f0}dPiA
#
 {$fe}caS@{CBM-A}{CBM-POUND}{CBM-A}3A9bO
"@C2CX3A2{$f7}B{CBM-W}O{$ed};${CBM-A}n6U{CBM--}{CBM-A}Px.{$ec},$0O{CBM-E}{$fc}l0{$e7}{CBM-C}PL{CBM-E}{$e1}@jp0t{CBM-C}B(nYL{CBM-L}!{$ef}u${$f2}"{$fc}OsA8{$f8}
b2{$e2}
{$f8},F{$ed}@Be {CBM-U}{$e5}3{$e4}{CBM-C}9JQD5{$fe}h
]{CBM-@}*cvZSa{$e2}BP(I{CBM-C}@Bs03{CBM-Y}
{CBM-POUND}j5(Q{CBM-G}+t{CBM-U}{SHIFT-*}{CBM-K}{CBM-S}{$e4}{CBM-J})8YIoPI
W{$e7}  H;X:
F,N '

XuQW 0 5{CBM-Q}R{SHIFT-*}C&
JeM{CBM-V}
{$fd}{CBM-U}
9{CBM-*}J{$e3}
 {CBM-E}vsp@{CBM-I} o&tQ<q5{$ea},W{$60}XTt{$7c}{CBM-U}&{$e4}Y{CBM-POUND}S{CBM-I}{CBM-O}PJ{$7f}-

qc
Q{CBM-Y}{CBM-I}{CBM-K}-
@
$pDXD3h{CBM-X}{CBM-Q}E{$7c}@{CBM-*}{$7e}{$e7}WhhG{$e1}{CBM-D}E
K a{$e9}{CBM-A}{SHIFT-@}UmX@>d{$fc}{CBM-A}!//{CBM-I} hP9{$e8}FD:{$ea}J{CBM-I}3
R{CBM-W}{CBM-W}(JpykY{CBM-P}'(@CE{CBM-G}{$e7}4dB
@? {CBM-J}Ky%FbnP{$eb}@b{CBM--}
x
{CBM--}wN
 {CBM-P}'{$7e}c-%
{CBM-V}{CBM-I}{SHIFT-*}{CBM-POUND}{CBM-O}UWC] {CBM-T}{$ed}{$60}{CBM-G}. 2{$f3}@W8(PJT{$f8}{$f3}PJjd
{CBM-@}g
@F{$de}{$e3}W3
o{CBM-G}{CBM-M}qT{$e8} P{$f5},  EI{CBM-A}{CBM-R}{CBM-N}I{CBM-Y}{SHIFT-POUND}{SHIFT-POUND}yw
{SHIFT-POUND}{SHIFT-POUND}
x

{SHIFT-POUND}
{CBM-F}{SHIFT-POUND}{CBM-C} E {$ef}HJP{$f3}{SHIFT-POUND}, {$ef}H{CBM-Z}T {$ef}{SHIFT-POUND}  {$ef}{SHIFT-POUND}{CBM-N} {CBM-U}{SHIFT-@}{CBM-O} E E E {$fa}{CBM-D}L{SHIFT-*}P{SHIFT-POUND}~Q{SHIFT-*}{$f0}
{SHIFT-*}{$f0}{SHIFT-*}P E{$60}

L
M
N
KHP{$f1}{CBM-N}{SHIFT-POUND}
{$7b}{$7c}{$7d}  8JP{$f9}JJJI{CBM-A}4I
{$f0}){CBM-POUND} 8.{$7e}.{$7f}.P{$f1}{CBM-POUND}NN{$7f}N{$7e}.{$7b}.{$7c}.{$7d}P{$eb} {$e8}P{CBM-R}NZ{$60},0{$60}lR
Y
K{$f0}M{CBM-A}{$f1}{CBM-V}
L{$ec}WP{CBM-V}
M{$ec}XP{CBM-V}
N{$ec}YP{CBM-O}
O{CBM-I}

{$60}H{$f0}M{$f5}
LZK{$f0}Il{$f0}
 @{$60}B{CBM-D}P E{CBM-Z}90P$8H{SHIFT-*}

{SHIFT-POUND}
({$60}{CBM-D}{SHIFT-*}{$fe}E//{$e6}0
{CBM-E}/H
{$60}l {CBM-*} H x^K{$60}{CBM-Z}]_{SHIFT-POUND}{CBM-S}{SHIFT-POUND}{CBM-Z}K{$60} x8A{$ed}E{CBM-Z}]B{$ed}F'{CBM-Z}{$60}K {CBM-P}{CBM-Z}^\I{CBM-Z}_]J{CBM-Z}EA{CBM-Z}FB{CBM-Z}]{$f0}0{CBM-Z}\9P9
+
picon-definer.src{$fe}!

a@{$e1}{CBM-A}{$7c}lHP A\$
'{SHIFT-*}{$f2}{CBM-A}C{SHIFT-*}

?Q{CBM-M}@Y{$f2}
{CBM-A}
]D{$e4}1{SHIFT-*}{CBM--}
H
2IbFx
P+JUd)r%h({$e5}

x@E{$e6}
]=
g=l{CBM-Z}0{$60} {CBM-K}Zx; ZX[A{CBM-Q}{CBM-J}Z8Ra0VQE{$60}
[AOL
{CBM-B}xr"$){CBM-I}j{CBM-D}{CBM-+}M{CBM-U}uk AR({CBM-+}d(9O4Bj4V{CBM-Q}{$f5}{$e8}{SHIFT-@}kN{$f0}sN{CBM-V}KmMP8O{$e3}K{$ee}{SHIFT-@}{$f8},MZ0${$7b}
{SHIFT-*}PX{$ec}{$ec}S-:{$f7}L{CBM-A}B:{$f7}dN"
0{$f8}{CBM-Y}G,{CBM-A}{$7c}H&]{CBM-L}FN!
{SHIFT-*}T{CBM--}o
L{SHIFT-*}s)*{SHIFT-*}Vq {CBM-D}h'd bT{CBM-POUND}{CBM-I}{$ec}&
X
cA{$7e}{CBM-A}Ykh"{CBM-D}*{CBM-T}u{$fb}%RkOi a'@0{CBM-H}:
A{CBM-T}{CBM--}%"Y%{CBM-N}@{$e2}{CBM-*}{CBM-T}
{SHIFT-*}P{$f7}U7{CBM-F}{CBM-A}A
{$7e}cD
{SHIFT-*}&{$60}0{$e1}O{CBM-*}brp,X{CBM-T}F
{$fb}
<
{CBM-A},{SHIFT-POUND}A11{CBM-+}[{CBM-P}bU{$e4}{CBM-U}50{CBM-K}Gum!{CBM-K}"H7{$ea}{CBM-R}7a ;T
@
 {$f1}rPK
@ {$f1}@{$fc}{$f5})cZ-1LHBJ{CBM-P}:IRo1X@
\D
Fs[Q
X <{$7d}
1{$e5}&?6!{$ea}HzLH{CBM-S}DbN{CBM-Z}+O{$e2}YjY
{SHIFT-*}H{SHIFT-@}sb{CBM-T}{CBM-E}p{$f3}{CBM-POUND}
^G {CBM-Y}{CBM-R}a{SHIFT-POUND}A
Ppd
{CBM-Z}rX{CBM-C}${$e8}{$e4}{CBM-*}0{CBM-V}a{CBM-U}{CBM-I} {CBM-@}J

{CBM-+}@{SHIFT-*}{CBM-Q}${SHIFT-@}{CBM-N}P{CBM-S}@F({CBM-N}f{CBM-A}x{CBM-D}BfAf{CBM-S}{$f2}R{CBM-L}{CBM-H}b
t629{CBM-@}@o4n8{$f8} fjL
N
2{$7e}{CBM-S}
H{$ec}{$7b}{$f5}_l {CBM-T}{CBM-D}
pD
{$f2}d{CBM-Y}
{CBM-D}{CBM-P}v{$f7}N
{SHIFT-*}
a{$f2}ucrX2{$e8}{CBM-V}Z8W{CBM-T}{$fb}Lc>WCWw@_9.
{SHIFT-*} @J/

 @{CBM-Y}{CBM-I})
S

{CBM-POUND}{CBM-@}{CBM-C}Jt{$e1}= 9<

 @{$ea}{CBM-S}b3H{CBM-+}< @{$ea}*{$ea}
h
{CBM-U}{$7e}aC{CBM-POUND}
{$f8}{$de}

{CBM-U}
d{$f8}[#{CBM-A}J
{CBM-K}J##{CBM-O};{CBM-N}{$e3}{$f8}
${CBM-POUND}h1

{$e4}

D{CBM-A}1R{$60}
W {CBM-T}N{CBM-T}{SHIFT-@}
4S{CBM-N}Sx+{$e2}H
-i{CBM-H}{$f2}4{$ec}
T{$f9}{CBM-E}{$f9}I{$e8}{CBM-J} {CBM-P}j{CBM-V}{$f2}4
*{CBM-G}q{CBM-Z}{CBM-Z}{$f3}"PP&P:P0{$e1}8(K%

> B\XS >R{SHIFT--}2{CBM-POUND}{CBM-A}{CBM-POUND}
n+o- <P{SHIFT-POUND}{CBM-S}<(e  Bqdb3 bz9(
*{CBM--}d{CBM-C}f#N

{$e8}*{CBM-C}eEy8*

{CBM-P}y{$ea}[4
@ %F{CBM-D}{$ea}J+.#?
@ j{CBM-D}{CBM-J}x{CBM-L}&
* E,c1w,x94*pDcB4r{$f4}*0E{CBM-X}M

,*{$f0}D9C{$fb}hdG"{$ec}*{CBM-J}d{$f9}aj  @{CBM-D}b{SHIFT-@}FY){CBM-+}V

 @E
H${CBM-@} 3ws{CBM-B}{CBM-@}{SHIFT-@}:({$e3}2c{$60}{SHIFT-*}l{CBM-O}{$f3}{CBM-POUND}{$f1}7i{$e3}3.4
{SHIFT-*}{$60}{SHIFT-*}zi{$e7}
{SHIFT-*}{$60}{SHIFT-*}a

{SHIFT-*}{$60}{SHIFT-*}u){CBM-H}RQ {$fe}P{CBM-N}*
(R{CBM-I}&{$60}BkJ1Y%{CBM-W},^uL{$f3})P
{CBM-+}VB_{$de}

R
"Y{$ea}uA{CBM-L}{$e2}{CBM-B}{$60}{SHIFT-*}h-I{SHIFT-@}<{$60}r-{$e4}<
{$60}{SHIFT-*}j%5{$60}{SHIFT-*}{$e8}J{CBM-M}1{CBM-V}{CBM-+}{CBM-J}&7L]?{$60}{SHIFT-*}${CBM-Z}V{CBM-V}M&
{$de}:Z{$e1}3>j_y
u;QQ
{CBM-H}&HU{$ee}aS%
&HT{$de}
+
{SHIFT-*}"{$60}qc!{CBM-POUND}{$f0}r<{$e4}
{$ee}A{$de}&1P{$fb} @MH{$e9}
+B( @{SHIFT-+}P{CBM-J}C:5 {CBM-@}AGKb{$e3}A! {SHIFT-*}Th{CBM-T}B {SHIFT-*}J${$ea}{$f7}${$fc}{$ec}mf{$7d} .\)Rx{$f4}?{CBM-J}zf.<
1{$eb}{CBM-D}{CBM-B}50{$f3}.{$fc}l4og{$f7}{CBM-+}2(
.\PB
! {SHIFT-*}E04NP
X.{$60}M{CBM-@}{$de}{$60}h{$f0}a I,{$e8}4{$e3}:viS&B[3{$ea}b. {SHIFT--}L6
@ G{$e8}4N{CBM-E}{$f4}y2T.Mc,.H
\K{CBM-H}P{CBM-Y}b+{$7b}{$e3}.{CBM-POUND}M[v {SHIFT-*}{CBM-J}={$de}\{$e3}{$f2}{CBM-Q} hb{CBM-J}{CBM-POUND}A={SHIFT-*}C{CBM-L}E{CBM-Z}{CBM-Q}
t{SHIFT-*}WV{$f3}5A{CBM-Q}{CBM-V}{CBM-N}
!
b. {$e4}{CBM-Z}lr{$ec}gY{CBM-I}?p!{$60}4{$fd}p( L{CBM-E}{SHIFT--}H{CBM-B}{SHIFT--}{SHIFT-+}{CBM-T}{CBM-Q}i.

 $(A{$e3}l{SHIFT-+}UL;2{SHIFT-*}U8{$fc}X{$f9}{$7c}{$e7}"

!h]k
b<
 D0sc {$e8}*NJ48
@/E{CBM-U}{$f5}@;p{CBM-POUND}a{$ee}{SHIFT-*}(Sev:L!{$f8}\JBbA{$e3}{$e6}%A=K {$e8}W{CBM--}BAb  MaVMY{SHIFT--}{$e2}'t={CBM--}{CBM-Z}aIU{$e3}l
Q~M*4{CBM-A}{$7d}
k1){CBM-A}
RGK
 {SHIFT-POUND}{$f6}1P{$7f}f{CBM-Q},{$e2})h
rP"3h)(r{CBM-K}E$P{$e3}+h8h @5ca"HT%){$e8}
rZ{SHIFT-POUND}
{CBM-W}
{CBM-Y}B("
X)RG/9I {$f6}1P{$7f}Fg{CBM--}*$)XrPs{$f0}a#b {$ed}aZ{$e8}01{SHIFT-+}{CBM-O}e T)D9S{CBM-G}C8b A{CBM-W}${$e5}>)R>X9<{$e4}{$7d}-<
)T
R7]={$e2}vb {$f5}0 3
>.PB{CBM-*})Fo
{SHIFT-*}[{CBM-F}{SHIFT--}
p{CBM-D}{CBM-X}8H@{CBM-H}9H{$e1}~=c
{SHIFT-*};p
 {CBM-@}Sn-s(p {SHIFT--}=c

,p 8{$60}%HZ{CBM-W}{SHIFT-POUND}{$e2}
pi@)A{CBM-M}2
%XjK{CBM-U}S{$60}j{$e1}{$e1}d{$e2}H
%X
JXY,
%J{$e7}ZPZ a{$e8}{$f5}V%8%D
]{CBM--}E{CBM-K}
%{CBM-@}J{CBM-I};^O]bpb {CBM-POUND}=w"%t
{$de}<h{$e3}HI@X;Iq{CBM-T}%{CBM-H}{$7e}iJ?{SHIFT-POUND}{CBM--}{$7b}UR_hc6{$f1}=${$e3}{$ec}%{$f4}jPs{$f0}A5pBd@{$e9}0
{SHIFT-*}pB -2"pAn@{$ed}2^ -^{CBM-@}{$e2}{CBM-T}{SHIFT-@} l R{$e2}{$f3}2I{$f1}\0

h{CBM-C}{$f2}0e){$de}R(N,(4H{CBM-U}R

HX%l # @y
rh{SHIFT-@}${$e3}mg!{$7e}k>>{$e2}{CBM-W}O,
@2 aprK{CBM-X}l&m 7{$e8},h14
D{CBM-@}xR1:{$e2}-{CBM-P}\"Q*oQS{CBM-@}Q{$f3}qJ22C a@1w+
{SHIFT-*}- a@-Y{SHIFT-*}
{$7c}{CBM-H}$URbA8 c_ea{$fa}*{SHIFT-*}:l
t Cr
&:P:{$ec}$n<{$fa}T
Y5{CBM-*}

{$f0}:{$f1}e){CBM-O}ER* CcZ{$e2}r
K 46

{$ec}&O-{CBM-A}{$fc}&{CBM-U}5{$ee}c{CBM-K}:IPkEUvi{$f3})@4{CBM-R} .{$60}d5%46U{$60}aj{CBM-W}Z{$f0}25h
{$e4}{$ef}{CBM-M}I{CBM-B}{CBM-C}H{CBM-U}{CBM-O}{$e3}{CBM-POUND}{CBM-C}:{$ee}{$60}aeC{CBM-K}{CBM-V}{$fc}T{CBM-X}J :bT{CBM-+}{CBM-X}{$f3}E{$60}a{SHIFT-*}H/{$de}@{$7e}">K2{$f1}d{$f4}TG b&{$60}Ax{$7d}r{CBM-A}5a7{$60}Ab{$ed}5m{CBM-H}#iW{CBM-O}UW{CBM-B}A:{$60}A{SHIFT-*}{$f8}3
(C{$f4}{$7b}-@{CBM-M}B2
{CBM-C}TceeP{CBM-@}4{CBM-L}%{CBM-Z} 6{CBM--}UI{$fc}!,&[{CBM-H}{$fc}{CBM-T}oK
{CBM-D}:
P6{$7c}T{CBM-L}>{$7e}Qn
{$7c}{CBM-S}{$7c}"'@{CBM-U}
{CBM-K}VP\ {$f8}{CBM--}{$7c}vIp- a{SHIFT-*}U:
BG{CBM-T} W )z/xA{$de}b{CBM-K}Xq{$ef}P{$e4},cQ0R{SHIFT-POUND}{$fd}K?{$e4}
@0 aYj8BP){CBM-W}{$fc}Y[a aCC?T-{CBM-E}Ym {CBM-W}{$ec}/{CBM-E}
\QwUpA$ A{CBM--}B{CBM-E}R4E&*
{SHIFT-*}: AFr
M%{CBM-N}@E
{CBM--}{CBM-D}*#l{CBM-T} C{SHIFT-+}2#{CBM-A}Pj
{CBM-W}{CBM-A}>e{$f9}{CBM-S}Yf2${$7e}(]{$e7}I-P>@{$7c}ex JV{$fb}5{$f4}2:4> {$7c}a{SHIFT--}{$e2}, {CBM-W}@GUQ-
{$ed}{$de}{CBM-W}{CBM-Z}"AP{CBM-T}
*2M 4AZ{$fd}Ya
{CBM--}b{$f0}x;AUmU&
{CBM-C}<{$7b}SDq{$f5}={$ee}&{$de}6({CBM-S}#q{$f4}@
{$e2}I{CBM-V}9YB{$ed}Q
l B{SHIFT-+}{$ea} {CBM-C}{$f2}>6*{CBM-X}{CBM-K}{$7e}15<"< {$de}{CBM-I}lI
{SHIFT-*}?W{$f2}{$ed}{$e8}+ R{$fc}{CBM-*}{SHIFT-+}U ?H@{$e2}{CBM-Z}7  H{CBM-K}Z{CBM-V}7Y{$f0}Oy{$e6}g= {CBM-+}S(!31{CBM-X}W^{$f1}c\)n?4+1X
{$e2}U{$de}lc
{SHIFT-+}72{CBM-U}258S{CBM-G}A {CBM-D}{$f8}
\
{$de}Z{CBM-V}"E {CBM-+}i6S%{$ed}{$e2}
{$e1}{$7e}{CBM-J}{CBM-Q}j{CBM-Q}%{SHIFT-@}<{$de}{$e2}{CBM-W}{$fe}J{CBM-POUND}uIKP{CBM-G}&aza#A3K{$fe}a{CBM-F}{SHIFT-POUND}0R{CBM-POUND}{SHIFT--}{$f2}{CBM-Z}BbH:HaY{$f2}{$e3} cB"
{CBM-Y}  {CBM-*}T

RPZ-{CBM-*}*
9PRQQ3nS
9P
R~{$f1}{CBM-Z}

09{CBM-+}H1b-h{CBM-+}{$e8}01+H9H
RQ{$fd}{$eb}{CBM-B}7{$eb}.{$e2}2-E{$e8}9{CBM-POUND}2H<{CBM-W}${$e5}>9
Rc 4-Y{$e5}pA -{CBM-A}p<T{$e2}9{CBM-Y}{$7c}jP{CBM-R}"(
JK
g2b{$f8}{$e1}{CBM-POUND}a{CBM-R}f
{SHIFT-*}*{$de}{SHIFT-POUND}{CBM-L}{$f1}%{CBM-*}p Z{CBM-F}M7p {CBM-+}Sn{$ed}{$e6}c$p
 {SHIFT--}=c
@"p 8{$e4}
{CBM-N}Z0
{CBM-D}h*P{CBM-A}csSC{SHIFT-POUND}5c"{CBM-Z}H=zL ca{CBM-U}E*p
 1({CBM-F}{$fa}
9{CBM-Z}{CBM-@} v{$7d}{$fb}g{CBM-B}#p {$ea}*.?p{$e1}w{CBM-R}{SHIFT-@}H&M{$e1}B{$7e}pi{$e9}{$e8}{$e3}{$f0}5x
J{CBM-A}hUl{$e9}*k{$f0}p "
pc<d#2: Cw{$e9}{$e2} @G"{$e7} {CBM-J}:{SHIFT-*}4DFa

? @' D65a @'{CBM-D}{$f8}c9 mN/Uj{$e1}{CBM-Z}{CBM-POUND}ZY{CBM-L}S{CBM-H}:{CBM-A}{$e5}6Y{$e7}@{CBM-+}{SHIFT-*}
@p{$e7}9
{SHIFT-*}, @G0{$e2}B j{CBM-S}{$e8}m&E
:{$e8}{$e5}

{SHIFT-*}/ @{$e7}Y{CBM-L}v{$ea}K<

4{$60}{CBM-A}{CBM-R}]{$e5}nq9{$60}oH={$de}H/.{CBM-O}EPT{$60}@b{$de}"DT{CBM-T}P{$ee}{$60}@i{CBM-E}b){CBM-Y}s t%{$f8}
T4{CBM-M}uZ{CBM-@}]:d:S
@8{$60}@ga{$ea}8HLWWwt{$f2}
6
{CBM-D}{CBM-P}Ye
j0%;W@AWwi{$e8}4p x{CBM-I}(KK6{SHIFT-*}
,R{$60}{SHIFT-*}{$f6}H{CBM-F}{$e2}@({$60}VOWja{$60}aO{$7b}q
kZ{CBM-J}v{CBM-I}@3{$60}u{CBM-B}060Q){$e2}b'{$60}kS{$60}_\{$e5}b{CBM-H}KvIJ{CBM-G}<>Y{CBM-A}<wtu{$7f}{$f5}6h
LJ{CBM-G}$S rW W{CBM-A}&{CBM-+}{CBM-POUND}{$e1}c
{$e8}
L-J # YPW&{$f0}Xd{CBM-Q}{CBM-H}{$e2} {SHIFT-*}{$ea}{$ea}{CBM-A}v$

{CBM-POUND}
L{SHIFT--}
DL={$f3}{$f1}h 3Do{CBM-K}{$60}{$f8}4>{CBM-+}OhT,:{CBM-*}d{CBM-L}X{$f3} {SHIFT-*}-{$e2}/ S{$f6}K

d>{$f0}{$ec}l{$f0}D
>{$fc}P B.{$e9}{CBM-A}{$7b}{$f9}{$e4}A V{$ee}H{$e6}H{$7f}{$60}y@ <.z
()' IYU{$e2}m{$f1}6
{CBM--}>X{$ed}{$e6}<B G{$fe}E

X{CBM-L}{$e4}0U
bLA)%H4o056{CBM-@}{$ed}%S>S$A0h3{CBM-Z}{$ee};({$e4} {$ee}{CBM-Z}
{$e2}t{CBM-E}UN
-@{SHIFT-*}8{CBM-U}{CBM-L}{$e7}{CBM-Z}
l
{CBM-C}{CBM-C}{CBM-N}="INI6Qd{CBM-Q}9+t,C{SHIFT-*}NQrK{CBM-B}{CBM-R})#N{$e4}1{$7c}{$e3}U{CBM-Z}{$7f}6={$7d}{CBM-U}{$f8}#
t1d{$7d}g
bc
 {$7e}A%bc 8
1t
"RB:c {$de}L
{CBM-P}!.<{CBM-E}M^{$fc}){CBM-S} S
{SHIFT-*}X/y{CBM-POUND}{$e3}CI~K{CBM-@}A~C
,{CBM-C}{$ed}{CBM-C}5
0L{CBM-X}SN15H{CBM-C}MC (h$(lTH{CBM--}{CBM-X}SS{SHIFT-*}G{SHIFT-+}{$ea}^*{$fd}T
X
Rl{CBM-G}

 {SHIFT--}TDa{CBM-U}$H8_{$e7}

 Rl{$f4}
r{$e3}9{$de}{CBM-H}D$pHh~ 0{$e2}{$7c}prZ{SHIFT-POUND}
{CBM-W}
{CBM-Y}B{$e8}I{$fd}t,h8h HP#H30{$e9}T{CBM-F} "
@ -{CBM-POUND}{SHIFT--}{$f2}{CBM-Z}bc 8T9$2(Z-k{$de}{CBM-O}c #'92RBc ~56{$e1}{$60}{CBM-I}E{CBM-G}

<9TRsPp{SHIFT-*} 7{$e4}{$f3}hJA{CBM-V}!O oDL2PGPw*n

p{SHIFT-*} {CBM-Y}])A&{CBM-I}
R{CBM-E}]V{$ee},p{SHIFT-*}
 ={$e3}4W5p{SHIFT-*} {CBM-Y}{$7b}
{$e4}!p :%{$ee}@4p
@@M{$e1} mGvG*
{CBM-@}E {$ec}{CBM-D}O
 T.{$ef}pqbp
 {$ec}{$ec}p
jK
{$fb}{$f2}c{$fe}{$ed}S)Q{SHIFT--}!{$e4}{$e3}\0
 {CBM-V}{$f3}-KL'>l#Yx{$f1}1
AY
UL{SHIFT--}{CBM-B}{$e2}
@pc {CBM-L}{CBM-A}{CBM-*}{$ee}{$ed}S)Q{SHIFT--}{$e1}Opc 85TJ{SHIFT-*}{CBM-I}{$f8}Cpc {CBM-O}{CBM-Q}#{$fd}
{SHIFT-*}pC [Y{SHIFT-*}
L
J{CBM-V}{CBM-M}{$de} YtRBt35

{CBM-D}*{$de}{$fd}]{CBM-Q}Q
{CBM-Z}Ts
A3{$f1}Pn*N>8


{CBM-N}RRC{CBM-N}{$e1}{CBM-M}b' &pa {$fd}qo{$e1}{$f8}
\{$ea} 9
@P{SHIFT-*} {$ea}*F
{CBM-@}m{$f5}{$ea},{$e2}9
@
{CBM-S}BF{$f0}a3P
 {$ed}
6ODbP
 {$e9}*N>L
Z,B3{$f1}l,{$ec}3 {$e9}*S{$f0}A9P

OACP !{$7f}{CBM-U}{CBM-F}:r@M{$f2}{$f5}{CBM-T}E{CBM-V})

{$60}
-H
z{CBM-O}{CBM-Q}#51P I/{CBM-T}P
 {$7d}>Q{$f5}{CBM-M}
'->{$fd}{$f2}vhXJaQ -{CBM-U}Zm{CBM-X}+-
]{$f1}{$fd}{$7e}
-dzkDnQ{CBM-@}-{CBM-@}
]{$f1}{$fd}{$7e}ZPb E0{CBM-A}e{CBM-D}%c3Pb Y{CBM-*}{$ef}'
{SHIFT-*}Pb E0P(m]B"Pb Y{CBM-*}{$ef}'
{SHIFT-*}PB E{$f0}{CBM-Q}r{CBM--}-,
]{$f1}{$fd}{$7e}@ A {CBM-X}qZ{$ec}e
]{$f1}{$fd}{$7e}{SHIFT-*}{CBM--}A ${$f1}{$ea},{CBM-Z}R{CBM-L}{CBM-U}
]a){SHIFT-*}X{$f8}]{$f1}{$fd}{$7e}{$e2}
n{$e1}lp{$ec}d
fC%0@{$60}{CBM-D}{$f8}0b{$60}@){CBM-K}$WD$h6{$60}{$fe}JQBZ,#{$f6}1A{$e7}0l
{$60}U{SHIFT-POUND}{$ea}{CBM-A}0b{$60}{$7c}{CBM-C}{CBM-I}x4BD
h
C{$f9}H{CBM-@}L{CBM-Q}s90v,]f){CBM-T}xD{CBM-L}{CBM-H}{$e1}7t{CBM-Q} d3{SHIFT-@}@0B{$60}{CBM-@}zj2{$de}{CBM-L}9Nh{$ea}a5S2{CBM-I}d22Y{CBM-L}3{SHIFT-*}h$
@)0B{$60}PE1K .T#fc30B
{$60} '\#{CBM-C}{CBM-*}{$ef}{CBM-M}td{$7e},{CBM-+} {CBM-W}{CBM-POUND}Dv4J{CBM-V}E $
V{$f2}d'{CBM-M}2{CBM-M}MTR*CP*B
bW+0!T{CBM-Y}b35{$f4}Tv/
{$eb}Z{$7f}{CBM-Y}{$eb}Z{$7f}{CBM-Y}{$eb}Z{$7f}{CBM-Y}bW+0{$ed}\
4v/ 0!4B{CBM-L},{CBM-M}{CBM-J}{CBM-D}MKRzK{SHIFT-@}h{CBM-A}b{$60}{$e1}{CBM-Z}{CBM-POUND}I;{CBM-Z}){$e9}{CBM-POUND}DZ{$eb}Q{$7b}]B{$60}{$e1}{$ed}4PW1
vGDHSUn3
+L
v{CBM-V}sZKV&{CBM-A}B{$60}/!hU{$fa}4#
+
q{CBM-I}{CBM-M}Q+31NPj2%{CBM-W}1)
@
{CBM-A}B){$60}U:Sj2%{CBM-W}{$f3}{CBM-I}8{CBM-M}{CBM-W}{$de}A{CBM-A}B{$60}U:{$e2}0%{CBM-W}!s3{CBM-Y}AP{$60}/3S
;{CBM-M}1QE
X
6RP{$60}G&A{$e1}{$f9}lnp
Pb
{$60}W:^{CBM-E}{CBM-Y}R+31{$e2}0%;{$f8})G?V:{$e2}0%;{CBM-U}3s2S1{$e5}{$e6}cPb{$60}/3S0{CBM-W}{CBM-K}8+{CBM-A}{CBM-W}
PT'DV{CBM-M};
R+{CBM-W}&s{CBM-R}BPb
{$60}W{SHIFT-@}1%;{CBM-U}3s2S{$e2}0{$e5}{$e6}Pa&{$60}/3{CBM-W}!s{CBM-R}{CBM-Y}P{CBM-Y}
;Q
Pa{$60}#'{CBM-A}t
Vxn 4OD{CBM-K}{$e9}4V{CBM-M}{$e3}{CBM-F}P+{CBM-W}{CBM-H};3%{CBM-W}{CBM-K}8'
d{CBM-H}V{CBM-M}#s{CBM-R};3%{CBM-W}
 hY
/XN64{CBM-S}A!{$f0}b {$f8}{$eb}2"1{CBM-S}{$fc}3# Ep
4{$f0}a T:{CBM-Y}P{CBM-Y}{CBM-U}SX{CBM-R}h{CBM-E}{$e2}'{$f0}a2 {$fc}BP{CBM-N}P{CBM-N}P{CBM-N}P{CBM-N}

D
N2!.{CBM-@}{$e4}N!{SHIFT-POUND}
{SHIFT-POUND}
{SHIFT-POUND}
{SHIFT-POUND}

{SHIFT-*}0{$f0}a ,{CBM-W}h{CBM-E}h{CBM-E}h{CBM-E}9Q{SHIFT-*}{$f0}a9
{$f7}xI{$7d},qK
({CBM-T}2
{CBM-O}{$ec}!
?T
{$de}{CBM-H}{CBM-POUND}{CBM-G}{$e1}{CBM-M}H
{$f1}AD?{CBM-H}N23
r*q3{$f0}C
 {CBM-T}
{CBM-Z}d"n{$e2}+n=({CBM-W}B{$e3}N)?l{$de}zv$64{$7e}$>{CBM-POUND}c"
~{CBM-Q}ET


pconvertseqtopal{$fe}!

a{SHIFT-*}{$7c}HP A\r$fqd{CBM-U}HHB{$e8}0
{CBM-U}@
 D1{CBM-T}.DPGRdf&
T@
 Qhh"Jr2mp{$e2}m{CBM-O}{CBM-@}h{CBM-D}
X
@TaM{CBM-T}{SHIFT-*}{CBM-G}R3D iQ"@{$60}U(7@d/"{CBM--}Br o(f{CBM-D}A1{$e2}"n
Yl
H@JmX0Ct2{CBM-M}*J{CBM-U}{CBM-@}ds{CBM-Y}5
S @
G{$e8}{$e9}3{$60}t=3{$e4}{CBM-U}
{CBM-A}DBX
















{$e5}){$f5}O>{$7c}
R/P {$f5}{$e7}ki{SHIFT-@}P1=P G{CBM-A}1
H
 {CBM--}{$f3}{$fd}{$7e}IX:Hp?
{CBM-U}
pZ{$f6}i>{CBM-O}{CBM-Q}#5a:P 1p{$60}&pf{CBM-K}{SHIFT-POUND}s4J{$fe}~]~
]VY{$f5}{$e3}+ebPdAI{$7d}{$f6}AF%{SHIFT-POUND}PAI{$fd}GC{$e6}{$f2}{$e7}Q&=
L{$e8}
:P{$f5}35].{$de}{$f4}{$e6}C+PcAI={CBM-*}{$ef}'

 P {CBM-*}{$f4}{$e6}Pc {$eb}*p 0{$e5}(Pc {$ef}
6{$ed}tX8{$ed}h{CBM-B}0Pc W)5
{CBM-POUND}
={$fa},B3{$f1}l,=T
ZrC
1p7pV${CBM-S}{$f3}4{$7c}25{$60}{$ea}*p 0{$e5}(X{CBM-C}{CBM-+}]EN>{SHIFT-*}
FG+ &R0{$60}F{CBM-K}F{$7e}#{CBM-W}{CBM-Z}{$60}{$7e}>Q%F

{$f0}
F{$f6}{$e1}70HBg#*:X{$fa}{$60}"0UV{$f6} E{$7e}O>8
{$e6}{$e7}]{$e2} {$e6}0{$60}F{$7e}S{$f0}a40g#*8$&R"D
{$e6}GC&v
L
{CBM-@}&{$de}{CBM-L}{CBM-O}{CBM-K}b#4 B{$e3}{CBM-@}{$fa}JA4&M{CBM-POUND}Q+{CBM-L}{$e1}i P{$f1}EW%{$7c}

&{$de}{CBM-L}94a;n#{CBM-P}y6-
CTVt&R0c{CBM-R}{$eb}30/{$e2}0%{$e2}R;{CBM--}v{CBM-M}#s{CBM-R}{$eb}3020{CBM-R}40S
{CBM-A}3/M>p{CBM-C}
v{CBM-M}{CBM-W}>#{$e7}
{CBM-E}{CBM-A}yrR
'w{$eb}3P
{CBM-A}A'{$60}U:{CBM-E}{CBM-A}yY{CBM-A}w{$eb}3{CBM-N}2{CBM-E}{CBM-A}{CBM-K}{$f8}[{$f5}v{CBM-M}S{$e3}S%{CBM-A}>{SHIFT-POUND}*;
eQ-SO>t

V{CBM-M}{CBM-W}>';
e)%{$e7}
PR%31QYC{CBM-A}{$60}W:P{CBM-R}40S
{CBM-A}3/{CBM-E};3%k S#3{$fc}
{SHIFT-*}V{CBM-M}{CBM-T}8w{CBM-K}$s2{CBM-T}; 3{CBM-Y}{CBM-A}{$60}/3S
;{CBM-M}11{CBM-I};
6R{CBM-A}{$60}{SHIFT-+}lT{CBM-K}8w{CBM-K}$sN>{CBM-H}{$f4}
{$f6}230P){CBM-E}
{CBM-A}r{CBM-R}
P{$ec}V{CBM-M};{CBM-POUND}
{CBM-F}(%;{CBM-U}3sR){CBM-E}V{CBM-M}{CBM-T}$s{CBM-R};3%{CBM-W}{CBM-K}8w!sN>{CBM-A}7l{$f6}23{$e2}0%;P{CBM-Y}P{CBM-A}3{CBM-Y}0{$f0}7,
6R.PC{$60}O2{CBM-G}TkzWPYf{CBM-T}PC{$60}{CBM-Y}R{CBM-Z}Xp*Q{$ed}<7V{CBM-M}#6U%;k
1
S
W
;{CBM-M}G3B<PC{$60}~{$de}{CBM--}!Nf<A{$f6}{CBM-POUND}, {$7c}
7{$7c}
V{$7d}
V*{$fa}{SHIFT--}!00%AD


na

{$f0}C
  {CBM-Z}{$e8}{$e8}u$6u4{CBM-@}?{$ec}{$de}Z{CBM-V}"%>o{CBM-POUND}a{CBM-B}?\
{$de}R{$7e}H
={$e9}$b{CBM-J}XJ-
~D~{$fc}$b{CBM-J}Xb-{$fe}(N-1{SHIFT-POUND}{$f6}X
{$7c}?{$fc}
NI{CBM-B}>v(

D.{$de}F{CBM-POUND}:{$fe}_ Qf"2-{CBM-O}zW{$ec}N{CBM-I}PySU.(Rp$
V{CBM--}{SHIFT-POUND}N
{CBM-B}>
 v{CBM-POUND}

{CBM-U}
PM{$ea}
{$fc}{CBM-B}{$e2}$
2{CBM-B}a<
G{CBM--}9#p{CBM-A}#6(P

Mc{CBM-A}b9 "'
{CBM-POUND}MC9S9{$ed}J
{SHIFT--}F'A{CBM--}1h+L
D
{$fe} 15:sa{CBM-R}56320
-N
 k {CBM-R}4{CBM-@}7:  B(sa{CBM-N}k),
5X
:
a
K {CBM-@} 110
n
sa{CBM-R}56320

 B (sa {CBM-N} 4), B ( sa {CBM-N} 5), B ( sa {CBM-N} 8), B ( sa {CBM-N} 9)
{CBM-N}
K {CBM-@} 160
{CBM-K}{CBM-H}
 56320, 0
{CBM-O}H
 {CBM-F}(0){CBM-D}256: K {CBM-@} 200
C,{$fe} 15
{$ea}6sa{CBM-R}56320:  sa{CBM-N}4, 255:  sa{CBM-N}5, 255
{$fc}@ sa{CBM-N}14, 1:
{$f0}?P{$e7}_ q{CBM-H}
QT{$f0}D
=
Z{CBM-I} /PC 1S{$f0}aPC
 W)*a@{$f0}aPC 8{CBM-H}=\
:RB&PC {$e3}{CBM-Z}{CBM-Q}UM^{$e1}{CBM-D}0F{SHIFT-POUND}b 1s<={$fc}
:{$f5}{$e3}+{SHIFT-POUND}{$de}{CBM-B}{$fc}4{$fd}P{$60}{CBM-C}{SHIFT-@}
a]{$f1}{$fd}{$7e}

{$60}FS0
{$60}{CBM--}{CBM-B}{CBM-D}P{$fe}{$f2}#)K9{CBM-V}H{$e1}JHFz.0{$fe}{$f2}H{$60} /{CBM-B}
0{$60} /{CBM-B}0{$60}X7DmN0$hf{$7e},{CBM-+}Mb0{CBM-C}]{$f1}{$fd}{$7e}{$e2}
n{$e1}l{CBM-H}Sm{$e2}:oc0{$60}{$7c} P4{$60}{$f2}{$fa}
"0c{$60}1F"*0C{$60}BS j50C{$60}{$ea}*H{$f8}4
:{SHIFT-*}{$60}1F{SHIFT-+}C{$60}BS {CBM-A}{$e8}3<
&4H
H{$f8}4&-P{CBM-*}2R
3{$7c}F
0{$60}!'{$f8}3{SHIFT-*}H{$f8}4&{$ed}I0{$60}!'$3v{SHIFT-*}{CBM-U}{$f8}c{$eb}vw{CBM-POUND}{$e2}{SHIFT-*}0{$60}{$ed}T{$f0}{CBM-T}TP{CBM-J} @I{$f7}{$7f}{CBM-T}3
vP{CBM-N}:3hV,j{CBM-B}A=0
{$60}-P{$7c}3{$e8}v!^({CBM-A}{$60}M{$e2}>{CBM-A}{$60}M{CBM-E}t{$f8}@
{$ee}
9{CBM-A}{$60}8PR8{CBM-A}@{$60}]{$7c} {CBM-Q}={CBM-E}*_UpBV{CBM-M}{CBM-M}Q+31NPj2%{CBM-W}1)
@{CBM-A}+{$60}W:Sj2%{CBM-W}{$f3}{CBM-I}8w{CBM-T}b{CBM-A}{$60}W:{$e2}0%{CBM-W}!s{CBM-R};3KR{$e2}{CBM-A}?{$60}W:{$e2}0%;{CBM-U}3{$f5}

#keQ<{$f3}{CBM-I}{CBM-U}J

{$f6}23[{CBM-P}{CBM-A};
e)%W 8w{CBM-T}"hV{CBM-M}#e)%W 8w{CBM-E}6{CBM-E}0{CBM-T}{CBM-POUND}HV{CBM-M}W 8w{CBM-E}6{CBM-E}0S
3

({$f6}23K2{CBM-E}02/S
S0{SHIFT-@})tH
V{CBM-M}##{$f3};{$f3}{CBM-I}8w{CBM-K}$s2
{CBM-D}
{$e8}V{CBM-M}{CBM-T}8w{CBM-K}$s2{CBM-T}; {$7d}U9u{CBM-M}{CBM-POUND}{CBM-J}:hZ)
{CBM-Z}{$fe}wF{$f0}
 TwL6o{$f6}I-{$e8} n{$7d}1P{$fd}{SHIFT-POUND}{$e1}{CBM-T}{CBM-G}{CBM-T}

{CBM-I}@{$f0}
 T>c{CBM-U}{$e9}{CBM-P}{$e8}GD)F0{$f0}$hH{CBM-+}Vb{$f0}
 TWZ>Zp*I%00"
{CBM-A}
n{$7d}{$e1}3.IYf$J-l{$f0}R2{$f0} lA2hhhhlD{$7f}V*{$fa}g*&{$f0} 4.Q{$fd}yXhhht{CBM-W}N(X/{$e8}
n{SHIFT-*}{CBM-L}{$f8}c){$f0}  {$ed}x]J{$7e}a
A{$e3}OgFZn@3{$f0}x.RB) r=T{$f8}f
( {$f2}HV{CBM-V}{$e1}"Yh{CBM-X}4{$e2}T{$f0}{SHIFT-*} dL+












































































































































































































 a(6,6)
x{CBM-R}{CBM-F}(.):y{CBM-R}{CBM-F}(.)
/{CBM-@}x{CBM-R}6{CBM-D}x{CBM-N}1:y{CBM-R}6{CBM-D}y{CBM-N}1
c{CBM-S}a(x,y){CBM-R}a(x,y){CBM-N}1
[{CBM-U}{CBM-K}q$:q${CBM-R}""{CBM-M} K {CBM-@} 410
CB:
NLk{CBM-R}1{CBM-@}6
YVl{CBM-R}1{CBM-@}6
 a(k,l),
{$ea}l::k
{$f4}410
Nxsa{CBM-R}4635:  sa = 139 for c-64 or 4635 for c-128
{$ea}B{$fe}15:{$fe}%: on c-128 only
L k{CBM-R}0 {CBM-@} 4: x
{$ea}4000
{$ec}.{CBM-A}g 4864
!{$ee}.mem
={$f0};    table of variables
C{$f2}count {CBM-R}1024    ; start of counter
{$f4}{CBM-F}x {CBM-R}$121b    ; start of {CBM-F} seed
{CBM-G}{$f6}mmu {CBM-R}$ff00     ; change {$fe}
E{$f8}{CBM-F}{CBM-O} {CBM-R}$8455  ; {CBM-O}itive {CBM-F} entry
{$f6}{$fa};{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
 {$fc}sta{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
9%V{$ed}     lda temp       ; all five match, so
A%X:        sta mmu        ;  old {$fe},
%Z:        cli            ; allow {CBM-J}errupts, {CBM-P}
{CBM-Y}%{$7c}:        rts            ; back {CBM-@}
{$e8}%{$7e};{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
{$f5}%

:         ldx #4
&:         lda #0
0{$ec}1 {CBM-R}{CBM-D}
[:        sta count,x    ; zero counter
:        dex            ; all five bytes
:        bpl {$ec}1
M;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
~:         ldx #4        ; s{CBM-@}re current {CBM-F}
#

 publication rights reserved
^
G(142)"turn off write verify operation for"

"     commodore's 1571 disk drive
{CBM-T}(
"    (c) 1988, 1989
{CBM-O}2
"            by
{$e1}<
G(15)"    dennis j. jarvis"G(143)
~f
"    kissimmee florida{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
8 *:         ldx #4        ; move {CBM-F} seed {CBM-@}
_ ,{$ec}3     lda {CBM-F}x,x    ; seed2 {CBM-P} seed1
 .:         sta seed2,x   ; {CBM-@} {CBM-F} seed
  0:         lda seed1,x
{CBM-Y} 2:         sta {CBM-F}x,x
{$e4} 4:         dex           ; all five bytes
{$f9} 6:         bpl{CBM-E}30{CBM-M}120

""

15,dv,15
\
 15:st{CBM-M}" device number:"D(dv)" is not turned on":
J{CBM-N}
15,dv,15
{CBM-G}{CBM-H}
lsb{CBM-R}254:msb{CBM-R}255:350: read the rom irq vector ($fffc)
{CBM-V}{CBM-V}
lsb{CBM-R}103{CBM-P}msb{CBM-R}254{CBM-M}220

H
"sorry this program will only work on the     dex
"h:         bpl {$ec}4
<"j:         jmp {$ed}      ; counter overflow
M"l;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
X"n{$eb}ne {CBM-R}{CBM-D}
{CBM-I}"p:         ldx #4        ; move {CBM-F} seed
K"r{$ec}5     lda {CBM-F}x,x    ; {CBM-@} seed1 {CBM-P} seed2
{$f2}"t:         sta seed1,x   ; {CBM-@} {CBM-F} seed
ctor":210
) i{CBM-R}2{CBM-@}50: h$:a${CBM-R}H(h$,1):b${CBM-R}I(h$,1)
j 300:b{CBM-R}a{CBM-D}16:a${CBM-R}b$:300:c{CBM-R}a{CBM-N}b
J 15,"m-w"G(i)G(1)G(1)G(c):
{CBM-S} "15,"m-e"G(23)G(1):" write verify now turned off":
K ,a${CBM-W}":"{CBM-P}a${CBM-E}"/"{CBM-M}s{CBM-R}48:330
{$e8} 6a${CBM-E}"@"{CBM-P}a${CBM-W}"g"{CBM-M}s{CBM-R}55:330
!@ "invali{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
.$F:       ldx #4          ; compare {CBM-F} seed
o$H{$ec}6   lda {CBM-F}x,x      ; {CBM-P} seed1
G$J:       cmp seed1,x
$L:       bne main        ; {CBM-POUND} equal, so start over
{CBM-D}$N:       dex
Z$P:       bpl {$ec}6       ; compare five bytes
%R;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
: sa{CBM-N}k, x:
&V 128, 115, 153, 56, 197
6y {CBM-R}{CBM-F}(1): y
tk {CBM-R} 1 {CBM-@} 294 : x{CBM-R}{CBM-F}(1) :
{$60}K {CBM-@} 640
F_{$ea}
{$60}{$ea}{$f2}"article/prog":{$ef}"article/prog"


0
{CBM-K}{CBM-H}
 56320, 0
{CBM-O}H
 {CBM-F}(0){CBM-D}256: K {CBM-@} 200
C,{$fe} 15
{$ea}6sa{CBM-R}56320:  sa{CBM-N}4, 255:  sa{CBM-N}5, 255
{$fc}@ sa{CBM-N}14, 1:
rt    sei            ; no {CBM-J}errupts
q{$fe};{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
Y
:         lda mmu       ; s{CBM-@}re {$fe} {CBM-P}
:         sta temp      ; K {$fe} 15
{CBM-J}:         lda #00
K:         sta mmu
{$fc};{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
zseed1 {CBM-R}{CBM-D}
&.byte 0,0,0,0,0
&seed2 {CBM-R}{CBM-D}
*&.byte 0,0,0,0,0
6&temp {CBM-R}{CBM-D}
b&.byte 0


 seed1
G$J:       cmp seed1,x
$L:       bne main        ; {CBM-POUND} equal, so start over
{CBM-D}$N:       dex
Z$P:       bpl {$ec}6       ; compare five bytes
%R;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q} seed
{$ec}2     lda {CBM-F}x,x
b:         sta seed1,x   ; in seed1 {CBM-P} seed2
\:         sta seed2,x
 :         dex           ; all five bytes
":         bpl {$ec}2
O$;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
{SHIFT-+}&main {CBM-R}{CBM-D}
 (;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}"
4p
G(7)G(15)"  press any key to continue"G(142)
Rz
{CBM-K}a$:a${CBM-W}{CBM-E}""{CBM-M}90: purge buffer of any previous key strikes
{SHIFT-POUND}D
{CBM-K}a$:a${CBM-R} ""{CBM-M}100: wait for a key to be pressed now
{CBM-R}N
""
{$ef}X
"what is the 1571's device number  8 ";a$:dv{CBM-R}E(a$)

dv{CBM-W}5{CBM-A}dv {$ec}3
*!8;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
m!<:        jsr {CBM-F}{CBM-O}     ; {$eb} a {CBM-F}({CBM-N})
{$7e}!>;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
!@:         ldx #4
{CBM-V}!b{$ec}4     inc count,x   ; incent counter
{$e9}!d:         bne {$eb}ne      ; check  carry
{$fb}!f:     1571 disk drive"
R
 15:
]{CBM--}
lsb{CBM-R}002:msb{CBM-R}128:350: check text at $8002 's/w - david g. sir...etc
V{$e6}
lsb{CBM-W}{CBM-E}83{CBM-A}msb{CBM-W}{CBM-E}47{CBM-M}200
{CBM-B}{$f0}
lsb{CBM-R}169:msb{CBM-R}002:350: make sure irq is pointing to a routine in rom
 {$fa}
msb{CBM-W}128{CBM-M}" sorry some one is using the irq ve
#v:         lda seed2,x
7#x:         sta {CBM-F}x,x    ; all five bytes
i#z:         dex
^#\:         bpl {$ec}5
#^;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
{CBM-A}#{$60}:          jsr {CBM-F}{CBM-O}   ; {$eb} {CBM-F}({CBM-N})
P#B:          jsr {CBM-F}{CBM-O}   ; twice
$D;{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
d hex byte -"h$":stop
!ja{CBM-R}F(a$){CBM-Q}s
!t
H!^15,"m-r"G(lsb)G(msb)G(2):{CBM-K}#15,a$,b$:lsb{CBM-R}F(a${CBM-N}G(0)):msb{CBM-R}F(b${CBM-N}G(0)):
!H  48:                : pha         save acc.
{CBM-C}!R  8a:                : txa

"{$7c}  48:                : pha         save x reg. on o

 ***********************************************************************

 *                                                                     *
{$eb}
 *     this program is used to convert a double sided diskette that    *
9(
 * was collec +15    no then branch
l#{CBM-S}  09,10:             : ora #$10    replace the verify function
#{CBM-U}  95,00:             : sta $00,y   with a seek command
J#B  ca:                : dex         move down to next queue
$L  10,f3:             : bpl *-11
71 diskette.                          *
Qp
 *     to use this program just place the affected diskette            *
{CBM-B}z
 *  in the 1571 disk drive and run this program, and if this           *

D
 * problem holds true then this program will correct  background jobs
=%  ad,a9,02:          : lda $02a9   get the address of the
%  18:                : clc         current addres in the irq
E%  69,03:             : adc #3      vector and add 3 to is then
&&  8d,15,01:          : sta $0115 e
 *          just answer (n)o to the questions, if for some reason      *

 *          (such as a write error or a power failure) this program    *
{$e1}
 *          does not finish its task you must rerun this program or    *
/{CBM-N}
 *          ser sta $02a9   new irq routine into the
m'x  a9,01:             : lda #1      the 1571's irq vector
'B  8d,aa,02:          : sta $02aa   so were called each irq.
T'L  58:                : cli         restart the background jobs
(V  60:                                              *
G
R
 ***********************************************************************
{CBM-N}
{CBM--}
a{CBM-R}40 :  change this to your computers screen size 40, 80 etc.
{CBM-O}
{$e6}
sc{CBM-R}a{CBM-Z}2:sc
~
{$f0}
"": clear the screen and delete any current win dows (if any)
{$fa}
dv{CBM-R}8
lp${CBM-R}"enter the disk drives device number": string to be printed
row{CBM-R}12            : row to print the string on
{SHIFT-@}1820         : print it to the center of the screen
{$f0}"dv;"";     : display the default drive number!
/,5,0           : prevent question mark from being printed
V65,a$        : allow the user to change the current device number
{SHIFT-POUND}@ 5            : allow proper screen prompting
{$de}jdv{CBM-R}{CBM-L}(E(a$))   : make the device number positive

tdv {CBM-R} 0 {CBM-M}  to the stack
h"  a2,05:             : ldx #5      number of job queue's to check
"  b5,00:             : lda $00,y   get current job out of queue
O"  c9,a0:             : cmp #$a0    is it a verify command?
#{CBM-@}  d0,04:             : bne * ted on the 1571 disk drive while it was in the 1541 mode  *
2
 * which will automaticaly convert a diskette back to a single sided   *
U<
 * diskette. this progam will also convert a diskette formatted        *
#f
 * on a 1541 to a double sided 15     if any more to do branch
k$V  4c,fe,ff:          : jmp $0000   see text for this one
q$ :
${$ea}: this is where the program is executed when it's in the disk drive
{CBM-B}${$f4}:{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}
{$fd}${$fe}  78:                : sei         stop  the problem.      *
[N
 *                                                                     *
{SHIFT-POUND}X
 * warning: if for any reason any errors occur or if during the        *
{$f7}
 *          execution of this program you should change your mind      *
    save it for us to jump to,
m&0  ad,aa,02:          : lda $02aa   this was done to save code
&:  8d,16,01:          : sta $0116   (place at jmp $xxxx
L&d  a9,02:             : lda #2      place the address of our
'n  8d,a9,02:          :  ious problems could occur with your diskette!.          *
{$7d}{CBM-H}
 *                                                                     *
K{CBM-V}
 *  (c) 1988, 1989    by dennis j. jarvis  publications rights reserved*

H
 *
'       : rts         and were done


d,aa,02:          : lda $02aa   this was done to save code
&:  8d,16,01:          : sta $0116   (place at jmp $xxxx
L&d  a9,02:             : lda #2      place the address of our
'n  8d,a9,02:          : !
       it's unable to read the second side of the disk)
r2080     : close all open channels to the disk drive
{SHIFT-@}{CBM-POUND}2090     : make the drive recognize that this disk 2 sided disk and have it read in the disk id's
B{CBM-R}"
{CBM-C}p${CBM-R}"disk has now been r!"":: they're done now
l
^dv{CBM-E}5  {CBM-P}   dv{CBM-W}31 {CBM-M} 430:  if the device number is in range branch

H""     : if it's not then clear screen and print the message
A
Rp${CBM-R}"illegal device number " : to the screen
{$f7}
{$7c}rv{CBM-R}1             : set the reverse fi!-----*
0{$ee} *  if we are unable to read the second side of the diskette then we   *
{$7e}{$f8} * give the user the option of formatting only the second side of the  *
L * disk. if selected then we will format only the second side of the   *
 * disk,!
 the disk drive to obtain model number
r{CBM-U}x{CBM-R}0{CBM-@}2000:: give the drive time to finish its reset process
B2050        : read in and save disk drives model number
XL1,"u0>m1"  : just in case were running on a non fast bus computer
{$eb}V1,"u0>r"{CBM-N}G!his diskette was not formatted as a double sided diskette."
Jhrow{CBM-R}10:1820:p${CBM-R}" would you like to make it one? (y/n) ?":row{CBM-R}12:rv{CBM-R}1:1820:1920:
Rr"
{CBM-V}\p${CBM-R} "are you sure? this will erase the second side of your disk? (y/n)"
IFrow{CBM-R}13
SP1820
!ted
row{CBM-R}12           : print it on this row
irv{CBM-R}1             : print it in reversed field
&1820        : print it to the center of the screen
02080:x{CBM-R}0{CBM-@}3000::
{$de}:1660             : open the proper channels to the disk drive
df!er channels to the disk drive
.{CBM-D}fl{CBM-R}0         : set the flag for a single sided diskette
_{CBM-L}1230    : reset single sided diskette flag
E{SHIFT-*}
{CBM-W}J *---------------------------------------------------------------------*
T *   this routine is the !
ad attempts
4V d {CBM-R} 66 {CBM-M} 810    : if unable to read the second side of the disk
{$7e}                        then branch to see if they want to format it
I                        d will equal 66 ( illegal track and sector if
                 !this is very important!!*
6{$fc} *--------------------------------------------------------------------*
Z (st {CBM-P} 128) {CBM-M}1130 : check for the disk drive being turned off
{SHIFT-@}2050:e{CBM-W}2 {CBM-M}   : if there are no drive errors then return
H"":5,0
"$p"${CBM-R} "disk error has occurred - ":row{CBM-R}11:r{CBM-R}0:1820:2050:p${CBM-R}e$:row{CBM-R}13:r{CBM-R}1:1820::920
O. *--------------------------------------------------------------------*
{CBM-C}8 *   this routine is used by the trap command to detect such errors   *
b * as synt!estored to a   double sided diskette"
Frow{CBM-R}11:1820
xPp${CBM-R}"i am now performing a collect on  this disk please wait..."
Zrow{CBM-R}13:rv{CBM-R}1:1820:2080:2090:15,8,15,"v0:": 15:"":
{$e2}{$e4} *----------------------------------------------------------------!eld on flag
4row{CBM-R}12           : print it in the center of the screen
_1820        : print it to the screen
1700        : wait for the user to acknowledge the error
J{CBM-@}250          : restart the input loop
{CBM-S}1,dv,15,"u:" : soft reset! or if not wanted then we restore the single sided flag on     *
H * the disk and terminate this routine.                                *
{CBM-L}  *---------------------------------------------------------------------*
{CBM-V}*"
H42080
>p${CBM-R}"sorry t!(1)
0 2080        : close down the command channel to the disk drive
p{$ea}H(I(e$,9),1){CBM-R}"7"{CBM-M} o{CBM-R}1:510
x{$f4}o{CBM-R}0
 {$fe}o{CBM-M}570       : if it's a 1571 online then bypass the error message
{$e9}"":p${CBM-R} "sorry for the 1571 disk drive only": string to be prin!Z1920    : get their response if it's 'y' then return
e1410    : format the second side of the diskette
690      : inform the user and perform a collect on the diskette
{CBM-L}2080    : close down all open files
{$f1}{CBM-I}1660    : open the prop!l{CBM-R}128:1230      : set the flag for double sided disk
fn1,"u0>r"{CBM-N}G(1): set read attempts to 1
x1,"u1:2 0 53 0" : attempt to read second side of the disk
{SHIFT-@}B2050:d{CBM-R}e         : preserve the error channel
{$ed}L1,"u0>r"{CBM-N}G(5): reset number of re!error handler. if any disk errors have        *
o{$de} * occured ,other than the drive being off ,the routine outputs the    *
{$e8} * error message and resets the double sided/single sided diskette    *
{$e9}{$f2} * back to a single sided diskette. note that "
sk drive is used, which is in the    *
1%z * normal formatting process, to use this routine we place the max.   *
{$7e}%D * number of tracks on this disk (71), into $02ac, and jump to the    *
K%N * format routine ($a445) to format the second side of t"ax, or the disk drive being turned off, if the disk drive   *
vl * is turned off then it prints a warning to the screen and restarts  *
{CBM-T}v * the program. if any other error occurs then the program is aborted.*
{$f0}{$60} *-------------------------------"e command channel to the disk drive
'  1570     : check for any errors
:'{CBM-N}1,"m-w"{CBM-N}G(a {CBM-P} 255)G(a{CBM-Z}255)G(1)G(b): set max trk
b'{CBM-H}"
'{CBM-V}p${CBM-R}"the formatting process is now being performed on side 1 of your diskette"
K'Hrow{CBM-R}11:1820:1,"m-e"G(69)G(164"
  * indicate this disk is double sided to enable us to read the second *
A  * side of the disk, and if we are able to read it then this diskette *
{CBM-S}  * was formatted as a double sided disk, but if we are not able to    *
{$fb} {CBM-+} * read the second" * the disk drive, or any write errors, etc. if any occur then this   *
l){$fa} * subroutine will terminate the formatting process and reset the     *
) * single/double sided flag back to a single sided diskette.          *
{$e6}) * note: read the war"-----------------------------*
"N1,"u1:2 0 18 0" : read in the diskettes bam
c"X1040             : check for read errors
"{$e2}1,"b-p 2 3"     : set the pointer to the double side indicator
R"{$ec}2,G(fl);     : set the flag to the value for single":rv{CBM-R}0:1820:p${CBM-R}e$:row{CBM-R}11:rv{CBM-R}1:1820:p${CBM-R}"please check your disk drive "
+6row{CBM-R}13:1820:1700:920:810
F+@ *--------------------------------------------------------------------*
{CBM-W}+j *   this routine will open the command channel to the disk drive   "
id!)
{$f1}#1660             : reopen the channels
{$f7}#(
{$fd}#2:
j$< *     this routine is used to format the second side of the disk     *
$f * that is currently formatted as a single sided disk. to do this a   *
{$e4}$p * routine that is in the 1571 di"--------------------------------------------------------*
-{$7c} 2: 1 : ensure channels are closed
q-2,dv,2,"#": allocate a buffer for our use in the disk drive
-1,dv,15   : open the command channel to the disk drive
F- 1570     : check for a#ny disk errors then return
.{CBM-@}p${CBM-R} " press any key to continue ":rv{CBM-R}1:row{CBM-R}row{CBM-N}2:1820:2040
.{CBM-S}{CBM-K}a$:a${CBM-R}""{CBM-M}1710
&.{CBM-W}"":
S.{CBM-U} *--------------------------------------------------------------------*
{SHIFT-*}.B *   this routine is used to print our text cente"he disk       *
&X *--------------------------------------------------------------------*
D&a {CBM-R} 284        : maximum track (located in the 1571's memory at $02ac)
&b{CBM-R}71           : maximum track number-1 to format too
{SHIFT--}&1,dv,15    : open th"-------------------------------------*
-Jp${CBM-R}" turn on your disk drive ":rv{CBM-R}1:row{CBM-R}12:1820:1700:
ZT *--------------------------------------------------------------------*
G{$7e} *  read the diskettes bam into the buffer and set the flag to        *
"):1570: 15:2080:
(R *--------------------------------------------------------------------*
E({CBM--} *   this routine will check to ensure that there are no errors during*
{CBM-R}({$e6} * the format process, such as the user popping the diskette out of   *
~({$f0}" side of the diskette then it was formatted as a    *
h!{CBM-A} * single sided diskette so reset the flag back to indicate that this *
!{SHIFT-@} * is a single sided diskette and end this program.                   *
{$e2}!D *---------------------------------------"ning in the first set of rem statements.         *
3* *--------------------------------------------------------------------*
{$7b}*"2050:e{CBM-W}20{CBM-M}  : if no disk drive errors have occurred then return
{$f8}*,"": 5:p${CBM-R}"a disk drive error has occured ":row{CBM-R}9" or double sided
#{$f6}1,"u2:2 0 18 0" : write the new bam back to the diskette
f#
1040             : check for write/read errors
#
1,"i0:"         : force drive to read it's new bam in
D#2080             : close down our channels (1571 just d"  *

,t * whose number is specified in dv, and will also reserve             *
m,^ * a buffer for our use inside of the disk drive to allow us to read  *
,H * and write the bam from/to the disk drive                           *
{$e7},R *------------#
rs entered up to this point.                    *
6{$e4} *--------------------------------------------------------------------*
^6{$ee}{CBM-K}zz$:zz${CBM-W}{CBM-E}""{CBM-M}2030   : any more keys in the buffer? if so loop
6{$f8}                     : buffer now purged
6e${CBM-R}""
{CBM-P}6#red on the 40 or 80  *

/L * column text screens.                                               *
z/V *                                                                    *
{CBM-M}/  *  to use this routine you must predefine the following variables.   *
k#
er to  print the text on                            *
(1 *--------------------------------------------------------------------*
_1nl {CBM-R} C(p$){CBM-Z}2 : find the true length of the string
U1&"":x{CBM-R}2{CBM-@}row::
{CBM-I}10i{CBM-R}1{CBM-@}{CBM-L}(sc{CBM-Q}C(p$){CBM-Z}2):"";::rv{CBM-R}1{CBM-M}G(18);
{CBM-R}
g{$7f}{$7f}
~
N{$60}

















































{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}#calling routine, else reset the flag in the bam to indicate this   *
33L * disk is a single sided disk, not a double sided diskette then end  *
3V *--------------------------------------------------------------------*
L32040      : purge the keyk#
screen and terminate the window
{$e6}4{CBM-C}            :terminate this program
35F *--------------------------------------------------------------------*
5P *  generic purge routine for all cbm computers. this subroutine will *
M5Z * remove all charactekk
wst{CBM-M} e{CBM-R}E(H(e$,2)):
I6{CBM-K}#1,a$:e${CBM-R}e${CBM-N}a$:2060
U6  2: 1:
{$ed}6*1,dv,15,"i0:": 1:


--------------------------------------------------------------*
5P *  generic purge routine for all cbm computers. this subroutine will *
M5Z * remove all characte#{$f4}/{$ea} *                                                                    *
a0{$f4} *  p$  = the string you wish to print centered onto the screen       *
0{$fe} *  r   = reverse field on (1), or off (0)                            *
{SHIFT-+}0 *  row = row numb
~{CBM-B}~~~
{$7e}{$e3}{CBM-M}A>{$e1}
{$e1}{$f1}{$f1}{$f1}{CBM-X}{$f1}{CBM-B}{$f1}{$f1}{$e1}{$e1}OA{$ef}N

~~~
G_{CBM-Z}_

pREFERENCES v1.0























pRFRNCE mGR v1.0



{CBM-Z}$_
%_ ^{CBM-G}h{SHIFT-POUND}5{CBM-Z}F
 P n{CBM-Z}&_'P(P KyH Pn{CBM-Z}!_I{CBM-A}{SHIFT-POUND}{CBM-Z}"_{CBM-Z}#_{SHIFT-POUND}_{SHIFT-POUND}'{SHIFT-POUND}{SHIFT-POUND}A {$ea}y Uq{SHIFT-POUND}2{SHIFT-POUND}A1{$60}{CBM-I}{CBM-X}Np!_J{$f7}{SHIFT-POUND}
F_#1:p$;:rv{CBM-R}0:
~1d *--------------------------------------------------------------------*
l2n *   clear the keyboard buffer of any key presses and wait for the    *
2x * user to press a key and if it's the key 'y' then return to the     *
{$e6}2B * k# board buffer of any outstanding key presses
4{CBM-K}z$:z${CBM-R}""{CBM-M}1930  : wait for the user to press a key
4z${CBM-R}"y"{CBM-M}
o4920       : set the flag for a single sided diskette
4{CBM-POUND}2080      : close any open disk drive files
{CBM-X}4{CBM-R}""     : clear the k