Run Magazine ReRun: Works/rerun-works.d64

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

Cbm



menu 128

{CBM-I} l{CBM-G}{CBM-P}run"menu 128",u8
























































































































































































































B{$f6}Vf68&66F6{$f6}v&;&{$f6}&VF6{$f6}v&6
{$fc}+{$f6}&
;{$fb}z
)0&{$fb}&
VK{$fb}80K{$f9};066
{$ee} 1
878.78
 0
 0
hou


uti


tel


ins


sav


cha


cas


gro


aut


gas


ent


res


clo


don


med


equ


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


xxx


mis


end


01




878.78


















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































?
?
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
t
u
u
uP
u
u
u
~
~
~
~~~~
~{$f7}~~~u~u~{CBM-C}{CBM-B}{CBM-C}{CBM-B}P{CBM-B}@{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~*{CBM-I}*{CBM-I}{$eb}{$fa} C{CBM-W}{CBM-W}{SHIFT-*}{CBM-A}{CBM-P}{CBM-W}{$fc}{$f0}~{CBM-P}{$f3}3?>{$fb}{SHIFT-*}{CBM-C}{$fc}{CBM-P}{CBM-Q}{CBM-V}{$f3}{$f0}



{SHIFT-*}{CBM-A}{$fc};{$f8}8{$fb}{$ef}?0{$f0}~{$ec}?
{$f0}


C{SHIFT-*} {$f0}2<{CBM-G}J*
{SHIFT-*}z~{CBM-Q}{CBM-P}{$fc}

{SHIFT-@}{$fb}{$ec}{CBM-A}{SHIFT-*}





0~
{SHIFT-*}{$f0}3 {$e3}~>{$f0}?;{$fc}{$eb}{CBM-N}{$eb}{$f0}0<?{$fa}{CBM-F}{$ec}{$ef}{$fb}{$eb}{SHIFT-@}~{$f0}{SHIFT-*}
NF>>>>><<<E[]{CBM-J}<<<<;<
22222222<{CBM-C}222222<;<<L6><<<{SHIFT-+}[][5<;<<<
22222222<<222222;<<<;L{$e6}>K2<<\[5<;;;<
22222222<{$fc}222222<<<<;;L{$ec}O<<<[[\\[2<<<<;
22222222<O222222<<;<;<<;{$fc}{$fb}{CBM-C}{CBM-B}{CBM-C};2<<<<2<<<
222222221222222<<D{CBM-Q}{CBM-@}K<;<{$fb}{$fb}{CBM-C}{CBM-C}{CBM-C}{$fc}{$fb}{$7c}{$7c}{CBM-Y}{$7c}{CBM-C};<
2222222{$fe}1{$f1}222222<D4kjkK<<{$fb}{$fc}{CBM-B}{$fc}<2{$7b}
~
~uuuuuu~u@{$7f}@{$7f}@{$7f}{$7f}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$f0}

{SHIFT-*}{$f0}{CBM-C}{$ef},

? {SHIFT-*}{$ef}<<{$f3}{SHIFT-*}{SHIFT-*}0
{$f0}{SHIFT-*}00{$e8}8<3


C{$fc}11AIF

{SHIFT-*}800000{CBM-U}{$ec},lll.;{CBM-E}{CBM-E} ,;h88, {CBM-A}{SHIFT-*}ll.;hkn
N{CBM-F}{$ec}LLLL.;{CBM-W}3;/c{$e2}?
{$f0}{SHIFT-*}


C>?{$f3}~{$f0}{$f0}{$f3}?<~{CBM-T}{$ef}{SHIFT-*}030

v{SHIFT-POUND}x{CBM-N}@{SHIFT-*} {$ed}{SHIFT-@}{CBM-S}

{$f0}~NC{SHIFT-*}{$f0}{SHIFT-*}{$f0}<{$f0}{SHIFT-*}{$f0}8
C3>NC{SHIFT-*}{$f0}{CBM-K}11
{CBM-I}2{$f0}{$fe}{CBM-S}{$fe}{CBM-F}{$eb}.?{$de}W{$f5}{$fd}{CBM-B}{CBM-Q}{$fe}{$e6}{$f9}uv{CBM-N}{CBM-Q}{$fe}Pn{$7e}{$fe}{$fb}{$eb}{CBM-S}{$fa} {$f0}{CBM-A}{$f0}{SHIFT-*}{SHIFT-*}{SHIFT-*}

3{$f3}{SHIFT-*}


{SHIFT-*}{$f0}








?
?
?
?
~
~
~
~
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
u
u
u
u

 {CBM-POUND}
{CBM-N}{$f0}0

*77{$f7}UUuy
O{$fe}{$fb}{CBM-C}
{$ec}{$f0}{SHIFT-*}<~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~C{$f3}~{CBM-B}

~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$fd}{$fd}
~
~E{$fd}
~
~{CBM-G}{CBM-*}{CBM-*}
~
~Ma{$7d}
~
~y{$ed}{$fd}
~
~{CBM-+}{$f7}t{$f7}
~
~u{$7e}p{$7f}
~
~{CBM-*}U
~
~@{CBM-B}{$7f}
~
~{$7d}a{$7d}
~
~{CBM-*}{CBM-*}
~~{$7f}~
~~{CBM-N}{CBM-+}{$e6}{$e6}
~~{SHIFT-@}{CBM-O}{SHIFT-@}{$fe}{SHIFT-@}
~~u{CBM-G}
~~{CBM-N}z{CBM-+}{CBM-N}
~~{CBM-N}y
~~u{CBM-+}
~~{CBM-N}u
~{$f0}{CBM-B}{CBM-A}{CBM-B}{CBM-A}~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~ 66;6N

V+{$7b}{CBM-+}&;;
6{$f6};<,,;
6&{CBM-+}{$f6}{$eb}{$fc}
{CBM-+}{$f6}

+K{$fb}<{$fc},{$7b}
6F{$fb}{$ec}{CBM-D}{$f8}<L{$fb}?~{$eb}{$fb}:{$f0}L
{SHIFT-*}{SHIFT-*}{$f0}?~{$fe};;;
{$f3}{$eb}{CBM-B}{$ec}{$e8}?<N

{SHIFT-*}








?
?
?
?
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~u~~~~~~{$7f}{CBM-B}{CBM-B}{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$f0}{$f0}<{$fc}{$eb}{$fe}{$ef}8{CBM-B}{CBM-B}{$ec}{$fb};~<0C{SHIFT-*}{$f0}{CBM-C}{$ef}>
O;:{CBM-B}{CBM-S}{$ee}
{SHIFT-*}{$f0}

/.>~{CBM-A}{CBM-A}0

{CBM-Y}{CBM-Y}{CBM-C}<<
22222221>{$e1}{$e1}222<<4D{$fc}{$fc}{$fb}{CBM-C}O{$fc}2{$7c}<<
222222NN{$e1}N{$ec}2>222;<l{CBM-@}{CBM-@}42;<{$fb}{$fc}{$fc}{$fc}{$fc}O{$fb}<<{$fc}{$fb}{$fc}2<<22222{CBM-V}{$e3}N
<222<<<<2<<<2{$fc}{$fb}{$fc}{CBM-C}{$fc}I{CBM-POUND}{CBM-O}<;<N{$e1}KK
222222<<;;2;;<HH{$fc}O2<{CBM-O}{CBM-U}8<<
22222>;<4
>22222<<2<<<<{CBM-R}{CBM-R}<<<<88<<
222FFL66{$e1}>>22222<;<<<2{CBM-O}2)()2<;<<8<<<
22F{CBM-C}2>






?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~u~u~uuuu@{CBM-B}@{CBM-B}@{$7f}@{$7f}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~++/?{$f0}{CBM-A}{CBM-A}u{$f0}
B3p{$e8}{CBM-P}{CBM-W}{$fe}

C{$f3}?
{$f0}{CBM-C}{SHIFT-*}{$fc}


{SHIFT-*}8?

{SHIFT-*}0
C{CBM-B}{$ea}




{SHIFT-*}L{$fa}{CBM-B}0

{SHIFT-*}0~{CBM-A}{$f0}~

0CC{SHIFT-*}
{$f0}{SHIFT-*}

{SHIFT-*}{$f0};:{$fe}

{$f0}{$f0}


~{SHIFT-*}{CBM-A}{$f0}
{$ee}{$f8}  {$e8}{$ea}{CBM-N}{$fa}{$eb}>


{SHIFT-*}<{SHIFT-*}{SHIFT-*}{SHIFT-*}{$f0}{$ec}?3<33

{$ef}<


{SHIFT-*}0{$f3}TbB{$e2}{CBM-Q}{$ee}{CBM-R}{$fc}uz 8:{CBM-Q}{CBM-N}u~
&iqv{CBM-@})IB{SHIFT-*}{CBM-A}{CBM-A}00  {$ec}0<;;>
{CBM-S}{CBM-D}{$e8}{CBM-A}{CBM-A}{CBM-C}~{SHIFT-*}{CBM-C}{$ef}3{$fc}~{$eb}{$ef}E{CBM-A}{CBM-A}{CBM-C}C
{SHIFT-*}I*
{SHIFT-*}{$fc}{CBM-G}w{$fd}{CBM-P}{$fc}


{CBM-F}{$ec}{CBM-A}{SHIFT-*}






>C<8L
{SHIFT-*}0{$ec}+
{SHIFT-*}{SHIFT-*}









?
?
?
?
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
~
~
~
~
{$fc}
{$f3}{$f2}{$f3}
 X{$e8},~~~
~{CBM-A}{$ea}{$fe}{$fa}{$fe}~>~

yJyU
~
~
~
~
~
~
~~u~u~u~~{$7f}{$7f}{$7f}{CBM-B}
~
~
~
~{CBM-N}{CBM-M}{CBM-Q}{CBM-Q}{CBM-F}{CBM-F}{$fe}{SHIFT-@}{SHIFT-@}{SHIFT-@}{$fa}{SHIFT-@}{SHIFT-@}




~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$f6}
~
~
~V
~
~
~ z
~
~
~V
~
~
~V
~
~
~{CBM-+}
~
~
~bu
~
~
~
~
~
~@O
~
~
~I
~
~
~ G
~
~
~~~
~
~{CBM-+}{CBM-N}~
~
~y{CBM-N}~
~
~Iz{CBM-N}~
~
~{CBM-+}z{CBM-N}~
~
~v{CBM-N}~
~
~Jz{CBM-N}~
~
~v{CBM-N}~
~
~
~{SHIFT-*}~
~
~&+<{$7b}&,+K<K6
6{$fc}+{$f6}&
;{$fb}z
)0&{$fb}&
VK{$fb}80K{$f9};066{CBM-POUND}{$eb}{SHIFT-@}{CBM-V}(

{$f0}{CBM-S}{$f0}{$f0}<

<{CBM-D}{CBM-B}O{$f2}{$f2}
{CBM-S}/



{SHIFT-*}
{$fa}{$fe}{$eb}<

~{CBM-B}{SHIFT-*}{SHIFT-*}{$f0}~
0~3~C?
~{$fb}:>
{CBM-D}{$fc}{$f0}0<{$f0}{CBM-A} {$fc}{CBM-C}~:



{$fc}{$f0}{CBM-A}{CBM-D}{$ec}{$eb}?N{$ef}{$fc}C{$fe}{$fe}








?
?
?
?
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
~
~
~
~
~
~
~
~
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}~u~u~u~u{$7f}{$7f}{$7f}{$7f}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$e1}{$e4}>222222<<<<<22<<<;<<<<<<<
78F6LL8>{$e6}{$e4}722222;<<<<<<,)22<<<<<<<2<<<
87F;878>fn822222<<<<<<;<;<<;;<<2<<<<<<<
88668>>6v^872222<<<<<<{CBM-Y}8{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-Y}88<<<;<
77876662^w222222<<<<<<X{CBM-U}{CBM-U}{CBM-U}{CBM-Y}{CBM-Y}{CBM-U}{CBM-Y}{CBM-Y}88X<2<<<
27878222{$7e}U222222LLLLLLLLLLL6L6LL6LLLLLL
88777782ZZ222222222222
{SHIFT-*}0


0<~{$f3}


 {CBM-A}{$fc}?
{$fc}{SHIFT-@}{SHIFT-*}{SHIFT-*}00L
O{$fb}?2>
{$fe}{CBM-POUND}{$ef}{CBM-B}{$f3}{SHIFT-*}
{$f0}{$ef}{SHIFT-*}{$f0}
{$f3}{CBM-P}{CBM-S}{$fe}{$ea}









?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~uuu{CBM-N}u{CBM-N}u{CBM-N}@{$7f}@{CBM-B}@{CBM-B}@{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
{$f0}
{$f0}
{$f0}
~






~






~






~






~






{$f7}{$f7}_w_{CBM-B}{CBM-B}{CBM-A}~{$fc}~{$f0}~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~


C{SHIFT-*}{SHIFT-*}{CBM-W}{$f3}?{$e8}?OC{$eb}{CBM-V}



{SHIFT-*}O{$fe}{$fa};?<0{$f0}{CBM-A}{$fc}{$fc};{$fe}

{$f3}{CBM-B}{$e8}{CBM-E}{$f1}{$f1}<{$fc}{CBM-A}{$fe}{CBM-S}{$f2}{CBM-T}{$f8}>/{CBM-G}{SHIFT-POUND}{$ea}>{$e6}{$f9}uv{CBM-N}{CBM-Q}{$fc}{$60}kK{CBM-POUND}{CBM-D}{CBM-W}K/ {$f0}{CBM-A}{$f0}{SHIFT-*}{SHIFT-*}{SHIFT-*}
>{$ec}{$eb}{$fb}~LOCC33{CBM-W}{CBM-W}~ {SHIFT-*} {CBM-POUND}{$f8}{$f0}?

0+{$f3}{SHIFT-*}C00
~<8{CBM-P}{$f3}{$ee}?{CBM-D}

{SHIFT-*}{SHIFT-*}{CBM-A}{SHIFT-*}{$fb}:>>C{SHIFT-*}{$f0}<{$f0}{$ec}{$fb}{CBM-B}L{$ec}{$f0}0








?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~~~~~~~~{CBM-B}{CBM-B}{CBM-B}{CBM-B}
~
~
~
~{CBM-N}{CBM-N}
{$f0}
~
~{CBM-N}


~
~


~
~22FL6LL666626KK26662626LF;22222222<;222222;<<<<<<<<<<;;<<<<;<<<;<;22222222<{CBM-C}222222{CBM-C}<;;<K{CBM-L}{CBM-V}{CBM-L};<<<;;<<2;<<2<
22222222<{CBM-C}222222<;;<;<{SHIFT-+}&&&k;<99;+>6<{$7c}K,;0F66>;7'+6'+&F6F6;;+{$f6}&ff666{$f6}&F
~3C{$f3}{CBM-D}{CBM-F}{CBM-B}~
{CBM-D}8C{$f0}O{$f3}0{SHIFT-*}{CBM-A}>
{CBM-A}{$eb}:O {$fc}{$e8};~O{$f3}{$ef}{$f0} {$fc}{SHIFT-*}%FB{$f2}{$f2}2{CBM-D}{$fb}{$ec}{$ec}{CBM-U}00008?;.ll,{$fc}.8{CBM-A}  AA{$e3}{CBM-R}8,,l~{CBM-S}l{$f0}{CBM-R}#ll{$ec}{CBM-F}N;.ONLLCC{$e3}c



O{$eb}<
{SHIFT-*}{CBM-B}{$eb}{$fa}

{$f3}{$fc}{CBM-B}{$eb}{$fb}{$e8}{CBM-U}{CBM-V}{CBM-N}


{SHIFT-*}03








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
{CBM-N}
~
~22222222222222222222222782Z{CBM-M}????2222>>>>>>>>{$e3}>>{$e3}{$e1}{$e1}>2222222772{CBM-I}{CBM-POUND}?OO{CBM-B}2222{$e3}{$e3}{$e3}{$e3}{$e3}>>>>{$e3}{$e3}222222222222R(?OO?+{$fb}K{$f6}Vf;{CBM-+}F;;K{$f6}66L6{$f6}&F{$f6};{$f6}&


~






~






~






~






~






~






~






~






~






~






~






~






~






~






~






~






~






~
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~u{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$7f}@{$7f}@{$7f}@{$7f}
~
~
~
~
~
~
~{CBM-N}{CBM-N}
~
~
~{CBM-N}{CBM-N}
~
~
~
~
~
~
{$60}
~
~
~
~
~
~
~
~
{CBM-N}
{CBM-N}
{CBM-N}
S
u
u
u
{$ec}
{CBM-N}
{CBM-N}
{CBM-N}
<
u
u
u
{$ef}
u
u
u

{CBM-N}
{CBM-N}
{CBM-N}
{$f0}
{CBM-N}
{CBM-N}
{CBM-N}

{CBM-N}
{CBM-N}
{CBM-N}
{$f0}
{CBM-N}
{CBM-N}
{CBM-N}

~
~
~


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

u
u
u

~
~
~


{CBM-N}
{CBM-N}
{CBM-N}
0
{CBM-N}
{CBM-N}
{CBM-N}
<
{CBM-N}
{CBM-N}
{CBM-N}

~
~
~


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

~
~
~


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

u
u
u
{$ef}
{CBM-N}
{CBM-N}
{CBM-N}
=
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~6{$7b};

,<&{$e6}{CBM-+}66;>6{$f6}
{CBM--}F&


{$f6}),6{CBM-F}<+&



06&<;F




Q1L<+&6)
 ;8(_?!H{$f9}I.{SHIFT-+}{$fb}{$ee}{$fe}{CBM-Y}WX{$fe}{$e5}O{$f0}H[u{CBM-N}~
b{$fb}{CBM-V}N{$fb}>nc{SHIFT-*}{SHIFT-*}{CBM-A}{CBM-A}{$f0}{$f0} C{$f0}3/,{SHIFT-*}{CBM-A} <

{SHIFT-*}{CBM-P}{$eb}C{$f5}_{$f4}{$f3}NN
%E_{$fa}{$f3}{$fc}{CBM-G}{$fd}{CBM-G}{CBM-N}~teD{CBM-POUND}{$e9}{$ec}{CBM-A}{CBM-A}LC{$f2}L~3


{SHIFT-*}{CBM-W}{$eb}{$fc}{$fc}  <{CBM-F}
{CBM-A}<
N
{CBM-N}{$e8} {CBM-A}{CBM-A}<{SHIFT-*}{SHIFT-*}








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~{CBM-N}~{CBM-N}~{CBM-N}{CBM-N}{CBM-N}@{CBM-B}@{CBM-B}@{CBM-B}{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~~{CBM-N}~{CBM-N}~{CBM-N}~{CBM-N}{CBM-N}{$7f}{$7f}{CBM-A}{$7f}{CBM-C}{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~0{SHIFT-*}{$e3}30<{$7c}S{$f3}B{$f2}{$ee}{$eb}{CBM-F}{$ee}{CBM-V}{CBM-F}{CBM-F}{$fc}UZ 8:{CBM-Q}{CBM-N}u~
&IYV{CBM-+})IB   {$e8}{$e6}{$eb}C0<

NNKK8;{$f7}{$de}{$fb}{$7b}Nn{$ec}{$e5}{CBM-Q}{CBM-A}{SHIFT-*}?{$f9}{CBM-N}{CBM-B}{$f0}
{$f2}I2<{CBM-N}~

@{$fa}{$7f}upeK{CBM-F}{$7e}{$eb}4O{$f2}{CBM-F}{$ef}{$ef}{CBM-B}{CBM-U}{$f8}C


{CBM-O}~{$f6}{$ee}{CBM-O}~{$e7}{$ec}W^Z{CBM-P}{$f0}H
3{$f3}..{CBM-G}{CBM-F}{CBM-L}{CBM-S}{SHIFT-+}{$fe}{$e9}J{CBM-P}{$ea}{CBM-N}{CBM-POUND} {CBM-J}[{$e9}~{$fe}C

u{$fe}v~{CBM-Q}{$fc}

{CBM-L}x{$e8}



0
{SHIFT-*}H
C{$f2}2
{SHIFT-*}{SHIFT-*}{CBM-A}{$ea}{SHIFT-*}C00{$f0}{CBM-C}{$fb}{$fb}

{$f0} <{$eb}:JN{$ee}{CBM-U}8{CBM-U}








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~{CBM-N}~{CBM-N}~~~~{$7f}{$7f}{CBM-B}{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~;

N~
{$f0}O{$eb}{CBM-A}{SHIFT-*}{CBM-A}{$fc}
+/
:C{SHIFT-*}{CBM-A}{$f0}{CBM-U}L{$f9}{CBM-S}{$eb}{$fe}


v{CBM-Q}{$fe}{CBM-Q}~


~{CBM-P}{CBM-B}{$f0}



~{SHIFT-*}




<{CBM-N}




{$fb}{$fb}?

MO{$eb}{CBM-R}{SHIFT-@}{CBM-C}{$ee}{$ef}{$fe}S{CBM-G}{$ea}{$fe}?O{CBM-G}{$ea}{$fc}z{CBM-N}{$ea}~u{CBM-N}{CBM-N}u{CBM-N}{CBM-N}~{CBM-Q}{CBM-R}{$f9}vJ{CBM-Q}{CBM-B}{$fc}G\{$7c}{$f3}M;{$e7}.{CBM-D}{CBM-U}X{$e8}
O3{$f0}{$ec}0
{$f9}{$ee};
{$f8}{SHIFT-POUND}w{$fe}{CBM-Q}{$f8}


O{$fc}{CBM-A}{SHIFT-*}





3{$f0}{$ef}{$fb}
L







~
?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
{$fc}
{$f3}{$fe}3?MMM
{$eb}[O{CBM-D}{CBM-A}{$f0}
;;;?








~
~
~
~
~
~
~
~
~
~~~~~~~~~{CBM-B}{CBM-B}{CBM-B}{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{CBM-I}{CBM-I}{$f8}{$ee}{CBM-N}~
{$fc}8~{$f0}O{$f3}0
{SHIFT-*}>
{CBM-A}{$eb}:O{$e8}{$fc}{$e8}8~{SHIFT-*}
{$f0}

{CBM-D}<8<L 0<C3NNC3<+{$fb}{SHIFT-*}{SHIFT-*}{$fc}O{$f2}{$ef}{SHIFT-*}{$f0}{$ef},HCO<0{$f0}{$eb}:{$f0}{CBM-A}+

{$e2}{$e2}{$fa}{CBM-V}{CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-A}{CBM-B}C;O,+{$fc}C{$f2}3{CBM-P}<LO{CBM-C}{CBM-D}{CBM-A}{CBM-C}
L{CBM-C}{$ef}+>C
 {CBM-A}{CBM-POUND}

O~(
{SHIFT-*}{CBM-B}{$eb}{$fa}{$fe}C{SHIFT-*}

{$f3}{$fc}{CBM-B}{$eb}{$fa}{$e8}{CBM-U}
+&008?((


90?81<<<+8,<<<,(<<<,(
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$fa}>{$fa}N

{$eb} {CBM-A}{CBM-POUND}{SHIFT-*}{SHIFT-*}{SHIFT-*}0:

CO{$f1}{CBM-E}A{$fc}{CBM-D}{$f8} {$fb}{$fb}{SHIFT-@}{$ea}{CBM-P}{CBM-Q}:{CBM-G}{SHIFT-POUND}{$ea}{CBM-V}{$ef}{$e6}{$f9}uv{CBM-N}{CBM-Q}{$fe}Pn{$7e}{$fa}{$fa}{$ee}{SHIFT-@}{$eb} {CBM-A}{CBM-A}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}
;?2{SHIFT-*}{SHIFT-*}<{SHIFT-*}{CBM-A}0.?L{CBM-C}{$f3}{$f3}{$f3}-.{CBM-S}{CBM-F}{$ee}{$ee}{$ec}{CBM-G}UZ 8:{CBM-G}{CBM-N}u~
{CBM-G}IYV{CBM-+})IB??OC{$f0}{$f0}{$f0}>{$f3}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$f0}{$fc}

{CBM-B}{CBM-D}{$fc} {CBM-C};
0


{CBM-A}{$ea}CC{$eb}0{$ec}








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~,{$ef}{$fd}{CBM-Q}{CBM-N}~
Ny{$f6}{CBM-Z}*K{$e2}{SHIFT-*}{$f0} {CBM-A}  C{CBM-B}{$ef}?>








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~{$fe}{$fa}{$fa}{$f9}{$e9}{$e9}{CBM-G}{$e9}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}OKK[zzvz{SHIFT-*}~{SHIFT-*}~{SHIFT-*}~{CBM-C}~
{$fc}
{$f3}{$f1}{$f3}
{$f0}{$7c}{SHIFT-*}4
~
~
~
~
~
~
~
~
~
~
~
~{SHIFT-*}{CBM-A}{$eb}<{SHIFT-*}{$f3}{CBM-T}{$e3}{$e3}LL{$ef}{$f0}{$ee}{CBM-S}{$ee}{CBM-F}{$ee}{$fb}>{$de}W{$f5}{$fd}{CBM-B}{$eb}{$fe}{$e6}{$f9}uv{CBM-N}{CBM-Q}{$fe}Pn{$7e}{$fe}{$fb}{$ee}{CBM-F}{$ee}{SHIFT--}{CBM-J}{CBM-X}{CBM-V}{$f9}{CBM-V}{$f9}~{SHIFT-*}{CBM-B}uI{SHIFT-@}{$ee}{$fe}{$e9}{CBM-N}{$ee}{$ef}{SHIFT-@}:,&{$e6}{$f9}{$e5}{$e5}{$e5}{CBM-A}{$fc}:O"{CBM-N}{$fe}{$ea}{$e8}{CBM-W}O
{SHIFT-*}{SHIFT-*}{$f0}0{CBM-W}
{SHIFT-*}{$f0}0?:"""{CBM-POUND}{CBM-POUND}{SHIFT-*}{$e5}{$e9}{$ef}{CBM-Z}{CBM-V}{$fa}{$ef}{$eb}  XxNV{$f9}

@{$e9}g{$7b}u{$fa}z{$f6}{SHIFT-POUND}v{$e5}{SHIFT-POUND}u{$fe}

330

{SHIFT-*}~

{SHIFT-*}{CBM-A},C{SHIFT-*}
{$fb}{SHIFT-*}{CBM-A}3 {CBM-P}~{$fc}O{CBM-A}  <K{SHIFT-*}?
{SHIFT-*}{$f0}<L~L<{$fb}{$f2}3{$eb}>C{$f3}
{$f0}{$fc}
{SHIFT-*}{$f8}








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~~~~~~{CBM-N}~{CBM-B}{CBM-B}{CBM-B}@{CBM-B}
~
~
~
~
~
{$f0}{$f0}




?



~
~
~
~
~
~
~
~
~{CBM-N}u{CBM-N}~
~
~{CBM-N}u{CBM-N}~
~{CBM-D}{$fb}N{SHIFT-*}{$f0}0
{SHIFT-*}{$fc}N0<{$f3}08{CBM-W}{$f3}{SHIFT-*}{$ec}8
{SHIFT-*}{$eb}

C
{SHIFT-*}{$f0}<
{$ec}{$fc} ~{$f0}{$ec}<




{SHIFT-*}{$ec}{$fc}~0{SHIFT-*}L<0{$fa}/.;>>{CBM-*}{$fa}{CBM-A}L{$e9}{$fe}O{$f9}{CBM-N}
{$e8}u{$f5}{CBM-B}{CBM-N}{$ea}~
uv{CBM-N}~{$fe}a{CBM-B}{$f9}{CBM-G}wN{$e5}O{$7e}{CBM-F}{SHIFT-+}M{CBM-V}{$fa}~{$e8}^{CBM-*}W{$ef}{CBM-F}{$e9}
{SHIFT-*}{$7f}{CBM-X}{SHIFT-@}{$ee}t/{$fe}{$eb}{CBM-B}{$fa}

{$fc}z~[{CBM-N}~
u {CBM-U}{$ec}{$fa};{CBM-B}{$ef}{$fc}>{CBM-I}


{$e8}{$fa}{$f0}{$ec}{$fb}><{$e8}
u{CBM-N}~{CBM-N}u
u
~{CBM-N}u{CBM-N}~
?
~{CBM-N}u{CBM-N}~{CBM-V}{CBM-N}
{CBM-Q}{$fe}{SHIFT-*}{$f0}{CBM-W}{$fa}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~~~~~~~{CBM-N}@{$7f}@{$7f}@{$7f}@{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~p@uq@{CBM-Q}O
{SHIFT-*}{$f3}>" {$f0}{CBM-N} {CBM-U}(

{$e2}{$ec}{$ef}Ox"(#?
p
{CBM-P}{CBM-V}{$eb}{CBM-B}{$fa}u
~{CBM-N}{$fe}{CBM-Q}{CBM-N}~
 {$e8}{SHIFT-@}{$ee}{$fb} {CBM-U}.
C3
{$fc}:{CBM-POUND}{SHIFT-*} {$f0},{$ef}C
,0{$f3}
BXX(,

X+

0 K;K



{$f6}),6{CBM-F}<+&



06&<;F




Q1L<+&6)
 ;8(_?!H{$f9}I
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-B}{CBM-B}{CBM-B}{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
 (
{CBM-POUND}:{$ee}{CBM-W}{SHIFT-*}{$f0}C{CBM-B}C{CBM-W}{$ec};{SHIFT-@}C{$f0}?{CBM-I}.
 E{CBM-E} {SHIFT-*}0?{CBM-G}J{SHIFT-POUND}*)Jz{CBM-P}{$fe}[{$fa}{CBM-N}{CBM-V}{$eb}]UTTTP





{$eb}{$ec}C{$f0},08{$f0}<ONM=9>{$60}IY{CBM-M}{CBM-L}{$ed}{CBM-G}{SHIFT-POUND}{$ea}{CBM-V}{$eb}{$e6}{$f9}uv{CBM-N}{CBM-Q}{$fe}Pn{$7e}{$fe}{$fb}{$ee}{CBM-F}{$ee}{$f0}{$f0}{CBM-A}{$f0}{SHIFT-*}{SHIFT-*}
<3,  {$ec}{$f8}
*{CBM-S}{CBM-B}*{$e9}{$fa}{$fa}?$((*{$e2}{$f8}{$e9}{$e6}{CBM-POUND}E'/{CBM-B}{$fa}Q{CBM-X}Y{$e5}{$ec}{$ec}{CBM-P}{CBM-S}{$ee}{$ee}?


{CBM-A}{CBM-O}{$f9}{$f9}6&9J{CBM-Y}{$ed}{$fb}{CBM-V}{CBM-Q}{$ea}{$e6}{$f9}v{CBM-Q}{$fe}{CBM-Q}~Pk{CBM-F}{$eb}{CBM-S}{CBM-V}{$fb}{$ef} {$f0}{$f0}{$f0}{SHIFT-*}{SHIFT-*}
#0,0;








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~~
{$f3}{SHIFT-*}z{CBM-@}eu
uJ
JyyU{$f7}{$f7}{SHIFT-POUND}{SHIFT-POUND}p@@{$f0}{$7f}P?{SHIFT-*}3

{$fc}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$eb}{$fe}{CBM-N}({$ea}~{SHIFT-*}{$f3}
=O
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$eb}<<{$ec}{$ec};{$e3}
{SHIFT-*}0;O~W{SHIFT--}<39;
{CBM-G}{$de}I{CBM-B}{$fa}~
~u~w{CBM-N}{CBM-@}{CBM-I}X{CBM-L}{$ee}{$fb}{$fc}{$ec}{$f8}{$fb}32O
 >:>?:NNN{$e5}{CBM-J}{CBM-O}{$ed}{$f7}{CBM-S}{CBM-F}{$ed}{CBM-Z}W{$7e}{$eb}{CBM-G}{$de}{$7b}{$ed}{$fa}O{$fa}K{CBM-B}~{CBM-N}~{CBM-N}{$fe}~~{CBM-@}I{$f9}N{$e9}{$fe}

~{SHIFT-@}{$ee}{CBM-Z}{CBM-F}{$eb}{CBM-S}{CBM-L}{$e7}O[Z{$fa}{CBM-Y}{$7b}{CBM-N}{$eb}~~~C{CBM-P}Z{CBM-Q}{$e6}{CBM-S}{$f9}{$ea}{$eb}dQw{$fe}{$ed}{CBM-*}{$7e}{$ed}{$fc}{CBM-Q}v{$fe}{CBM-N}v{$fe}ua{$e4}L{$e6} {$f0}{CBM-P}{CBM-P}.
8~{CBM-D}{$fc}{$f3}0








?
?
?
?
~
~
~
~
~
~
~
~
~
~{CBM-N}u{CBM-N}~
~
~{CBM-N}u{CBM-N}~
~
~{CBM-N}u{CBM-N}~
~7Uy{SHIFT-POUND}yU7{$fd}{SHIFT-*}{SHIFT-*}{$fc}{CBM-Q}{$fc}{SHIFT-*}{SHIFT-*}



{$f3}


























C
C
C{SHIFT-*}C
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$f0},{$eb}>C{$f3}JO{CBM-Q}~

 ({CBM-V},,{CBM-N}*BC





{SHIFT-*}  (*;{CBM-N}/+{CBM-R}{CBM-U}{CBM-U}{$e2}{$ef}{$ec}{CBM-C}{CBM-A}{$f3}/{$fa}KL{CBM--}2{$f3}ON?{CBM-M}y{SHIFT-@}{CBM-P}Y{CBM-Q}v{$fa}{$7f}O{$fc}{$f0}P{SHIFT-*}{SHIFT-*}{CBM-G}~




{CBM-G}~{$fc}




~{$f0}




{SHIFT-*}




>{$f3}]
BN{CBM-Q}{CBM-F}{$ee}{CBM-V}{CBM-F}{CBM-F}{$f8}{CBM-Q}uz(
.(K{$fc}
{$f8}(:{SHIFT-*}3

C{CBM-W}{$fc}{SHIFT-*}
{SHIFT-*}{$f0}{CBM-D}OC{$f0}0O,


{$f0}{$f8}

0*3
0{$ec};2BBL0


{SHIFT-*}<{$fc}{$ec}









?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~{CBM-N}~{CBM-N}~{CBM-N}~{CBM-N}@{CBM-B}@{CBM-B}@{CBM-B}@{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$f0}0{$ec};B

{CBM-I}{$fb}
 {CBM-U}{$fa} ~2;;<{$ec}{$ef}{SHIFT-*}P{$fc}<{$fc}2 8:{CBM-Q}{CBM-N}u~
{CBM-+}Iyv{CBM-+})IB
{SHIFT-*}{SHIFT-*}{$f0}{$f0} {$fe}{$f3} <<?
{SHIFT-*}{SHIFT-*}0{$ef}{CBM-N}{$fb}








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~{$f3}
{$f0}
{$fc}
{$fc}

{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
0






{CBM-A}
??







;<{SHIFT-*}C{SHIFT-*}C


~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~C{$f0}:>8C{$f3}{CBM-B}~


{SHIFT-*}{$f0}{$fc}<C{$e3}{$f0}8+{$fc}{SHIFT-*} ~>3N,/{SHIFT-@}{CBM-B}{$f3}{SHIFT-*}{SHIFT-*}
L{$e8}{$f3}N?j:+9V{$e9}K{CBM-R}*{CBM-P}v{SHIFT-POUND}
{SHIFT-@}{$e8}..{$e2}
{$f8}.{$f0}<

{SHIFT-*}{$f0}








?
?
?
?
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~~{CBM-N}~{CBM-N}~{CBM-N}~{CBM-N}@{CBM-B}@{CBM-B}@{CBM-B}@{CBM-B}
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~:N{$fa};{$e8}~0{SHIFT-*}{$f0}{CBM-C}{$ec};
{SHIFT-*}


C{CBM-S}{$fb}?{SHIFT-*}{SHIFT-*}{$ec}N~{CBM-B}{CBM-D}{$fb}{CBM-U}/
{CBM-Q}{CBM-T}*
BO{$f1}3
{SHIFT-*}{$e3}{$fc}L{CBM-*}^V{$f5}{$eb}/>NP{$7c}\{$f7}G{CBM-Z}{CBM-Y}{$e9}


{SHIFT-*}{SHIFT-*}
{$f0}{$ef}0{SHIFT-*}0N{SHIFT-*}LL33O~

L3L3{$fc}

"

O{$fc}


"

~

"
~


""~


"{CBM-N}

3L3~{$fe}
L3L~~{$ee}
3L3O{$fe}{CBM-F}{$ee}""{CBM-N}FL0c{$60}{$60}D









0L




































JJ{CBM-N}Fu{CBM-F}{$ee}~~~~{CBM-B}{$ee}{CBM-F}{$ee}{$fb}~~~~~{CBM-F}{$ee}{CBM-F}{$fe}~~~~{CBM-N}{$ee}{CBM-F}{$ee}{$fb}{$fc}{$f0}{SHIFT-*}CD


"{CBM-N}




/"{CBM-POUND}{CBM-N}


~~#{CBM-I}{CBM-N}{CBM-N}
~~~{CBM-B}"{CBM-N}{CBM-N}{$f3}{$f3}{$f3}{$f3}{$f3}"~~~~~~~~{$eb}{$ee}{$ef}{$ed}{$fb}~~~~~{$eb}{$ee}{$ef}{CBM-N}{CBM-N}Jud{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-S}[u{CBM-N}{CBM-N}{CBM-N}{CBM-N}F~~UUYR{CBM--}W@{CBM-N}W102{CBM-W}{$fb}
~E ,(({$eb}
{CBM-Z}Q0{CBM-A}{$f0}{$f0}{$f0}
FF{CBM-B}~3{$fe}~~~~~~~{$ea}{SHIFT-@}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{CBM-I}{CBM-POUND}{CBM-N}{CBM-N}{CBM-N}{$ea}{SHIFT-@}
{SHIFT-*}0L{$f3}L{$f3}ttt
{SHIFT-*}0de@


t@
a

p
@


(





















































""
"*{CBM-N}{CBM-N}"{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Q}{CBM-N}{CBM-Q}{CBM-S}{CBM-Q}{CBM-S}{CBM-F}{$ee}{CBM-F}{$ef}{CBM-F}{$ef}{CBM-B}{$ef}{CBM-B}{$ef}{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~{$fb}~~~~~~{$fe}{CBM-F}~~~~~~~~~~~~~~~~~~~~~~~~~{$fe}~{$fe}~~~~{CBM-N}{$ea}{SHIFT-@}{$ea}{SHIFT-@}{$ee}{SHIFT-@}{$ee}
  {CBM-POUND}{CBM-N}{CBM-N}

































("{$e8} {CBM-POUND}{CBM-I}


















e





{CBM-POUND}{CBM-N}*jjjFIFEFE~~~~~~{CBM-B}~~~~~~~~~~~~~~~~~{SHIFT-POUND}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}uu{$f5}{$fd}{$fe}{$fa}{$ea}{CBM-POUND}duuu{CBM-N}{CBM-F}~
@dq{$f5}{$ee}{CBM-Q}


@dqT{$f5}




0L3























{CBM-N}{CBM-N}





{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ef}{CBM-B}~{CBM-B}~~~~{$fa}~~~~~~~{CBM-N}{$fa}~~~~~~{CBM-N}{CBM-N}{$ea}~~~~~{CBM-N}{CBM-N}{CBM-N}{$ea}~~~~ {CBM-N}{CBM-N}{CBM-N}{$ea}~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~
{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuu
{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuu
 {CBM-N}{CBM-N}{CBM-N}uuuu
{CBM-POUND}{CBM-N}{CBM-N}uuuu
{CBM-N}{CBM-N}uuuuu{CBM-N}~~~~{$f0}{SHIFT-*}~~{$fc}




{$fc}{$fc}

L3{$ee}L


3L?{$ee}0~{$f7}{SHIFT--}'''U(~~


uW{SHIFT--}{$7f}
3~W{SHIFT--}uw
L3~W{SHIFT--}u{$f0}?{SHIFT-*}3{SHIFT--}WU{$7f}
~<{$ee}{SHIFT-@}{CBM-N}{SHIFT-*}
~~B {$fc}

{CBM-G}{CBM-G}%A{CBM-C}{$f3}{CBM-C}{$f3}{CBM-C}{$f3}{$f3}{SHIFT-*}
{SHIFT-*}









































fbvvkU{CBM-N}{CBM-Q}{CBM-S}{CBM-F}{$ef}~~{CBM-N}{CBM-S}{CBM-F}{$ef}~~~~{CBM-F}{$ee}{CBM-F}{$ee}~~~~{CBM-F}{$ee}{CBM-F}{$ee}~~~~{SHIFT-@}{$ee}{CBM-F}{$ee}~~~~tE{CBM-N}{CBM-N}{CBM-N}{CBM-N}@qE{CBM-N}{CBM-N}~
duF{CBM-N}~3
duF{CBM-N}~3
duF{CBM-N}~3
duF{CBM-N}p
O{$fe}{CBM-F}{$ef}{CBM-Q}gZX {CBM-K}{$fc}{$f0}AvyF
yFJ{CBM-N}{CBM-N}"{CBM-Q}{$ee}{CBM-F}~~~~{CBM-S}{CBM-F}~~~~~~~~~~~~~~~~~~~~~~{$ee}{$fb}{$fe}~~~~~{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{CBM-N}{CBM-N}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}EQ\w{CBM-G}{CBM-S}{CBM-Q}{CBM-N}*J{CBM-R}{CBM-D}{CBM-Q}~{CBM-B}{$ef}{CBM-F}{CBM-S}{CBM-Q}{CBM-N}*~~~~~{CBM-B}{$ef}{CBM-F}~~~{$fe}{$fb}{$ee}{SHIFT-@}{$ea}{$fa}{$ee}{SHIFT-@}{$ea}{CBM-N}{CBM-N}{CBM-POUND}"{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I}"{CBM-N}{CBM-N}{CBM-N}{CBM-N}"6OO???9888888888888{CBM-U}999999999999992;;;;;KKK66999922222222299
222

;;{CBM-O}9299992
;;;;;;99922222222229999


;;;
{CBM-O}9222

;;9922{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{CBM-C}{CBM-U}{CBM-U}99;{CBM-B}{CBM-B}{CBM-O}{CBM-O}922{$f8}9{CBM-O}9992{$f8}{$f8}{$f8}{CBM-B}{$fb}??{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B};;;{$fb}{$f8}{$f8}{$f8}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-C}9999{$f8}{CBM-B}{CBM-B}<<<;{$fb}<2;;;;;;;{CBM-O}{CBM-O}9999{CBM-U}99229998{CBM-U};;;;;;{$ef}{$fb}{$fe}{CBM-Q}{CBM-N}{CBM-N}{CBM-N}zFF{CBM-N}{$ea}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}z{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}
{CBM-POUND}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}
 {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}


""

3L3L?
3L3O?~{$fe}L3L?~{$fe}{$fb}{$ee}L?~{$fe}{CBM-F}{$ee}{CBM-F}{$ee}L~~{$ee}{CBM-F}{$ee}{CBM-N}{CBM-N}L~{CBM-F}{$ee}{SHIFT-@}{CBM-N}{CBM-N}{CBM-N}~{$fe}{CBM-F}{$ee}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~{$ee}{CBM-F}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-F}{$ee}{SHIFT-@}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-F}{$ea}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-@}{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}
  {SHIFT-POUND}{CBM-@}{CBM-W},




{SHIFT-*}3L





{SHIFT-*}









(



"




"






{CBM-Q}"


{CBM-B}{CBM-S}{CBM-Q}{CBM-N}"
~~{CBM-B}{$ef}{CBM-F}{CBM-S}+{$f0}~~~~~{CBM-B}{$ef}

{$e8}
~~~~~{$fb}{$ee}{CBM-F}~~~~{$fe}{CBM-F}{$ee}{CBM-F}~~~{$fb}{$ee}{CBM-F}{$ee}{CBM-F}~~{$fe}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$fe}{$fb}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ea}{CBM-N}{$ea}{SHIFT-@}{$ee}{CBM-F}{$ee}{CBM-F}dquuuF
dquuu3
@duu3L

duu0L

duu
L
euu
L
duuuLduuuu

uuuuu

<{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}KKKKKKKKKK




;2;{$eb}>222222222222
<{CBM-C}<<<<{CBM-C}{CBM-C}<<2==2<<<K;


;2;{$eb}>>>>>>>222222
{CBM-C}<<{CBM-C}<KAAAQQQQQ{CBM-E}MMMK


;;;{$eb}>>22>>2222222
KKE{CBM--}M~~~~~~~~~~~~~~~~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Q}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}u~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~uu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}Uuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}uuuu{CBM-N}{CBM-N}{CBM-P}{SHIFT-*}P_u~~{CBM-N}u
{CBM-POUND}{CBM-N}{CBM-N}{$fd}u
~
{$ee}{CBM-F}vq
puuuuu{CBM-POUND}{CBM-N}dqtuu{$f5}{$fd}

 "{CBM-I}{CBM-POUND}



 "

d   {CBM-U}{CBM-P}{CBM-N}*





{SHIFT-*}t






{CBM-P}



{$f5}"#{CBM-X}UuJ:{$e8}{CBM-POUND} FEuy{CBM-B}~{CBM-B}~{CBM-B}~{CBM-B}~~~~~~~~~~~~~~~~~{CBM-Q}{SHIFT-POUND}{CBM-Q}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-D}{CBM-E}D*{CBM-S}{CBM-F}{CBM-S}{CBM-F}{$ef}{CBM-B}osE











{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}~~{$fc}{$fc}{$fc}{$fc}{$fc}~{$ea}{$fe}?C{$fc}~~{CBM-P}{CBM-P}{CBM-N}{$fa}~{$f0}~~
{CBM-N}{$fa}{CBM-B}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~{CBM-POUND}{CBM-N}v{CBM-G}{CBM-N}{CBM-N}~~ {CBM-N}z{CBM-N}~~~{CBM-N}Jv~~~~?
{CBM-POUND}{CBM-N}~~~~~~ ~~~~~~~~{$fe}{$fb}{$fe}{$fb}{$fe}~~~{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{$fe}{$ef}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-N}{$fe}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-N}{CBM-N}{$fa}{$ef}{SHIFT-@}{$ee}{CBM-F}{$ee}{CBM-N}{CBM-N}{CBM-N}{$fa}{CBM-P}{CBM-N}{CBM-N}{$ea}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fa}{CBM-P}{CBM-N}{CBM-N}+.+.{CBM-Q}.
{CBM-C}{$ef}{CBM-B}{$fc}{$f3}{$fc}{$f3}L{$f0}0{SHIFT-*}
{SHIFT-*}

{CBM-F}{$ea}
Uw
{$f0}L0L3u{$f0}


"{$7f}


""



L?O3
L3
*{CBM-N}{CBM-POUND}"

~"

?{SHIFT-*}"( {CBM-N}{CBM-N}{CBM-POUND}""*{CBM-POUND}""{CBM-N}{CBM-I}"

{CBM-I}"
*"{CBM-POUND}*{CBM-POUND}"(uqdp@dp@

tfb



/{CBM-F}{CBM-S}+{CBM-N}*"~~~{CBM-B}{$ef}{CBM-F}{CBM-P}{CBM-Q}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{SHIFT-POUND}{SHIFT-POUND}EEEEEEE{$f5}{$ef}{CBM-B}{$ef}{CBM-B}{$ef}{CBM-B}{$ef}{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fe}{$fb}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}~~{$fe}~;;;;;;{CBM-U}{CBM-U}{CBM-O}992222222222{CBM-U}92222299999{CBM-U}{CBM-U};;;;;;{CBM-U}{CBM-U};;


9992222222228{CBM-U}{CBM-U}+{SHIFT-@}{CBM-R}{SHIFT-@}999{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U};;



99999922999999999
55%%
66055
%
Vf&%Q
{$fe}~~~




{CBM-I}{$ea}{$fe}





{CBM-I}






0{CBM-N}






{CBM-N}{CBM-N}*



"{CBM-POUND}{CBM-N}{CBM-N}*

?"{CBM-POUND}{CBM-N}{CBM-N}*~~/{CBM-I}{CBM-N}{CBM-N}{CBM-N}W~~{CBM-B}#{CBM-N}{CBM-N}UW{$f7}~~"{CBM-POUND}~UWW~~~~~{CBM-P}{CBM-F}{CBM-F}{$fb}~~~~~~{CBM-P}{CBM-F}{CBM-F}{$eb}*{CBM-N}{CBM-N}{CBM-N}{CBM-Q}{CBM-S}{CBM-F}{CBM-N}{CBM-Q}{CBM-S}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{CBM-S}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ef}{CBM-B}{$ee}{CBM-F}{$ef}{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fe}~{$fe}   {$e8}{CBM-I}{$e8}














~






{SHIFT-*}
{CBM--}]]]]]]UUq==2



;;;{$eb}>>22222222222
M{CBM--}M{SHIFT-+}{CBM-X}{SHIFT-+}M{CBM-X}{CBM-X}MM{CBM-X}=2







{$fb};{$eb}>222222222222



9
















??;{$eb}>222222222222



X
















A?;{$eb}>222222222222



X
















22;{$eb}>222222222222



9
















22;{$eb}>2222222222222227{CBM-M}2277222222;

{CBM-N}{CBM-N}{CBM-N}dqTU{CBM-H}{CBM-J}{CBM-H}{CBM-J}tuuU"{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}
 "{CBM-I}{CBM-N}{CBM-N}


 "{CBM-I}





L3FFJJ{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}u{CBM-N}{CBM-N}{CBM-N}{CBM-G}]W{SHIFT--}{SHIFT-POUND}{CBM-G}w]W{CBM-*}{$7f}~{CBM-Q}{$ee}{CBM-F}{$ef}~~~~{$7d}~~~~~~~{CBM-N}{$ea}{$fa}~~~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fa}{$ee}{$fb}~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{CBM-J}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-P}uu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Q}Uuu{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$f5}uuu{CBM-P}{CBM-N}{CBM-N}{CBM-B}uuuu
{SHIFT-*}~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}

{$fa}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}

{CBM-C}{CBM-Q}{CBM-N}{CBM-N}{CBM-N}{CBM-N}
?0O{CBM-C}{CBM-Q}{CBM-N}{CBM-N}u{$ea}
0{$f3}N{SHIFT-POUND}*
u~L
{$ee}{CBM-F}{CBM-P}{CBM-P}~L
{$f5}TU{CBM-N}~~{SHIFT-*}uu{CBM-N}~3
@uuu{CBM-N}{CBM-POUND} @t{CBM-N}${CBM-Q}{CBM-N}

euU{CBM-B}{CBM-N}e
"
?{SHIFT-*}
1A20B

0L0L0L0

























































*


"{CBM-N}{CBM-N}

dduu{$fa}~dduu~{CBM-P}{$fa}{$7f}duu~~~~~"(~~~~~~?{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fe}~~~~~~~{$ea}{CBM-B}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-POUND}r{CBM-K}{CBM-I}{CBM-I}{CBM-I}{CBM-I}
({CBM-N}{$ea}{CBM-B}{CBM-N}{CBM-N}{CBM-N}?
 {CBM-N}{CBM-N}v{SHIFT-POUND}{CBM-N}~~{CBM-N}{CBM-N}z{CBM-G}W{SHIFT--}{$f7}

{CBM-POUND}{CBM-N}{CBM-N}W{SHIFT--}W{SHIFT--}
 {CBM-N}W{SHIFT--}W{SHIFT--}W
{CBM-N}{$ea}{SHIFT-@}{$ee}{CBM-F}{$ee}{CBM-F}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ea}{SHIFT-@}{$ea}







3







{SHIFT-*}<



{$fe}~{$fe}~  {CBM-I}{CBM-POUND}{CBM-N}{$ea}{SHIFT-@}uA0{SHIFT-*}{$f0}EQ\wuu{CBM-S}{CBM-Q}{CBM-N}*H{CBM-A}{CBM-Q}{CBM-N}""*{CBM-POUND}""{CBM-POUND}{CBM-I}"

{CBM-I}"*
*""{CBM-POUND}
{CBM-POUND}""{CBM-POUND}
*dep
p
ep
p









{CBM-POUND}

































"{CBM-S}+{CBM-N}*"*~{CBM-B}{$ef}{CBM-F}{$ee}{CBM-F}{CBM-S}{CBM-F}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-POUND}{CBM-S}{CBM-F}{CBM-P}{CBM-F}{CBM-P}{CBM-F}{CBM-S}{$fd}?cdqtJZ{$fe}~@{CBM-N}{CBM-N}
&
@





&6
0




p

!6


00





0
/v&


70








P





00







6&;(;;
0

&&



























*




*{CBM-POUND}"


tude{CBM-POUND}"Fyvyu{$f1}~~~~{CBM-B}{$ef}{CBM-B}{CBM-P}~~~~~~~~{CBM-N}{$ea}{$fe}~~~~~{CBM-I}{CBM-POUND}{CBM-N}{$fa}{$fe}~~
 {CBM-I}{CBM-POUND}{CBM-N}{CBM-N}{$fa}



"{CBM-POUND}{CBM-N}





{SHIFT-*}3







*





{CBM-N}{CBM-N}*




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



"{CBM-POUND}{CBM-N}{CBM-N}{CBM-N}{CBM-N}

?{CBM-I}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~/{CBM-I}{CBM-N}{CBM-N}{CBM-N}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ef}{CBM-B}{$ef}{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


2>;{$eb}>>22222222222<<<<{SHIFT-POUND}<<<<<22;;666>>

22;;{$eb}>>>>>>>22222<<<<{$e9}{CBM-O}<<<<<;;66>22>>>
?2;;;{$eb}{$eb}{$eb}{$eb}>>>>>>>>2222{CBM-O}22229{CBM-O}6>2



2{$e6}2A?22;;;;;{$eb}K{$eb}{$eb}{$eb}{$eb}{$eb}I2<<I{CBM-U}OOO<<{$eb}>2





;2;{CBM-E}{CBM-E}{CBM-B}??2;;;;;;;<2<OII29669{$e6}>






{CBM-O}9;?1?{CBM-B}{CBM-B}{CBM-B}{CBM-B};;
99999999888;2



9999;;K;&yFy{$ea}~FJJ{CBM-N}{CBM-N}~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}u{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-X}w{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Q}~u{CBM-Z}{CBM-Z}{CBM-Z}{CBM-X}{$f4}P@
f{$7f}{CBM-N}{$ea}{CBM-N}{$ea}{SHIFT-POUND}uu@{CBM-N}{CBM-N}{CBM-P}{CBM-J}up

p@3OvvFzJ{$ea}{SHIFT-@}{$ee}{CBM-F}{$ee}{$fb}{$fe}~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ee}{CBM-F}{$ee}{CBM-F}{CBM-POUND}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ea}{SHIFT-@}{CBM-I}{CBM-POUND}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-Q}{CBM-Q}{CBM-POUND}{SHIFT-POUND}{CBM-Q}{$7e}{SHIFT-+}W]wu{CBM-B}~~~~{$7f}{CBM-*}W{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}~~~~~~{$fe}~{$fd}~{$f6}{SHIFT-+}N{SHIFT-@}{$ea}{CBM-N}{CBM-F}{$ef}{CBM-B}~~~~~~~~~~~~~{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-I}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}"{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-POUND}""{CBM-N}{CBM-N}{CBM-N}{CBM-I}"{CBM-N}{CBM-N}"

{CBM-N}"
{CBM-N}"
{CBM-G} 0
 7
 0
 5
 27
 64
 27
 65
 7
Distribution of Employees by Type Work
Number of Employees
 6
 3
manul
 10
secry
 6
suprv
 17
analy
 4
mgr
 2
exec
3
ys.stuff.h











graph maker








2
































 830{$e9} L{$f7}[

 [k n kn{$f0}S [k n I
{$f0}F ' nlSm c{CBM-S}{$f0} PM Vm n knlSm{CBM-POUND}{CBM-Z}
{CBM-S} {CBM-D} J
{CBM-E}t
HL{$f5} {$ef}{CBM-S}
 (


{CBM-I}
l{$ee}? lD6 I
P{$f9}{$60}I
{$f0}1I{$f0}cIP{SHIFT-POUND}{$60}IP{SHIFT-POUND}
{$f0}{$f4}I{$f0}lI{$f0}GIPl{CBM-B}nIPlRnI{$f0}
{$60} Rn{SHIFT-POUND}
{$f7}{$f8}{$60}{SHIFT-POUND}
{$f9}{$fa}{$f0}{$ef} n{CBM-A}{$60} n{CBM-Z}
h{SHIFT-POUND}

{CBM-S}{SHIFT-POUND}  VmH
{$60}{$ee}
V 0
 7
 0
 5
 27
 64
 27
 65
 7
Employees by Age
Age (Years)
 4
 9
18-24
 12
25-34
 15
35-44
 6
45-67
0
secry
 6
suprv
 17
analy
 4
mgr
 2
exec
3
ys.stuff.h











graph maker








2

































{CBM-K} 0
 7
 0
 5
 27
 64
 27
 65
 7
Salaries Paid
Salaries (Hundreds of $)
 6
 520
manual
 1781
secrt
 2160
suprv
 6378
analy
 2470
mgr
 2250
exec
xec
3
ys.stuff.h











graph maker








2


































{$60}





















K{CBM-S}{CBM-F}{$ee}{CBM-N}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{SHIFT-POUND}{CBM-N}{SHIFT-@}{$ee}{CBM-F}{$ee}{CBM-F}~E{CBM-+}{SHIFT-POUND}{SHIFT-@}{$ee}{CBM-F}{$ee}
{CBM-G}{CBM-N}{CBM-S}K{CBM-N}{CBM-+}
 u{SHIFT--}W{SHIFT--}W{SHIFT--}

JuW{SHIFT--}W{SHIFT--}

uU{SHIFT--}W{SHIFT--}


{CBM-N}u{SHIFT--}W{SHIFT--}


u{SHIFT--}W{SHIFT--}



JuW{SHIFT--}



 uU{SHIFT--}




zu{SHIFT--}




 vU





x















































????????{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-K}{CBM-K}{CBM-K}{CBM-N}{CBM-N}{CBM-N}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-M}{CBM-M}~~~~{$fd}{CBM-N}{$fa}{$ee}~~~{$fd}u{CBM-N}{CBM-Q}{$ef}W{SHIFT--}W{SHIFT--}u{$ee}~{$f0}@{$60} {$60}{SHIFT-*}

































********{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}~~{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~







~~~~~~~~FFFF{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ea}{CBM-Q}wuuvzJ{CBM-N}{$ee}{SHIFT-POUND}{CBM-M}~uu~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~































******
































































































































G{CBM-Z}{$f7}8{$ed}Nh{CBM-Z}{$f8}{$e9}
{CBM-A}H{$60}{$f8}H{$f7}{$60}{$ee}{CBM-Z}{$f7}{CBM-D}{$f8}MNH +e{$60}{$f8}{$f7}{$60}{$ee}{CBM-Z}{$f9}8{$ed}N{$f9}{$60}{$ee}{CBM-Z}{$f9}MNIH{CBM-A}{$f9}{$60}lPlJh{CBM-S}{CBM-X}, gH{CBM-N}{CBM-X}, gl+Jh{CBM-S}{CBM-X}/ gH{CBM-N}{CBM-X}/ gl+8{$e9}h{CBM-S}
{CBM-X}2 gH
{CBM-N}{CBM-X}2 gl+ 7; {$e8}9{CBM-S}{$e8}h{CBM-S}{CBM-+} *$)j{SHIFT-POUND}
NH{CBM-S}{CBM-M} *N %:{CBM-A}{$fb} O
 9k ; ?77







































































































































????????{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

















????????{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-POUND}{CBM-POUND}{CBM-POUND} {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-N}~~~~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~L3L3O~~~L3L3~~~{$ee}L3L~~{$fe}{CBM-F}{$ee}L3{$fc}~{$fc}{$ee}{CBM-U}{$ee}B1B1B1A1???????O~~~{$ee}{CBM-F}{$ee}{CBM-F}~~~~{$ef}{CBM-F}{$ee}{CBM-F}~~~~~{CBM-F}{$ee}{CBM-F}~~~~~~{$ef}{CBM-F}L~~~~~~{CBM-B}L{$f3}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~












{$7b}N{$7b}{$ee}{CBM-F}{$ef}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{$fb}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-F}{$ee}{CBM-B}~{CBM-B}{$ef}{CBM-F}{$ef}{CBM-F}{$ee}{$fb}{$fe}~~~~~~{CBM-N}{$e9}{SHIFT-@}{$ea}{SHIFT-@}{$ee}{SHIFT-@}{$ee}{CBM-F}{CBM-S}{CBM-F}N{CBM-F}{CBM-S}{CBM-F}{$ef}{CBM-B}~~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-F}{$fe}~~~~~~{CBM-F}{$ee}{$fb}~~~~~{CBM-N}{$ee}{CBM-F}{$ee}{$fb}{$fe}~~{$60}xTV{$de}U{SHIFT--}
































uu~~~~{CBM-N}{CBM-N}{CBM-N}F~~~~{CBM-N}{CBM-N}{CBM-N}F~~~~{CBM-N}{CBM-N}{CBM-N}F~~~~{CBM-N}{CBM-N}{CBM-N}F~~~~{CBM-N}{CBM-N}{CBM-N}F~~~~{CBM-N}{CBM-N}{CBM-N}F~~~~vvF~~~~uF{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-J}uutp{$fb}{$fe}{$fb}~{$f0}{SHIFT-*}

{CBM-B}{$fc}{SHIFT-*}




{SHIFT-*}











































*******:{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{CBM-K}{CBM-Q}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~








/////?/?{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~































+/+.





























































B2B1B1;:;:;:;:{$ee}{CBM-F}{$ef}~~~~~{$ee}{CBM-F}~~~~~~{$ee}{CBM-B}~~~~~~{$ee}~~~~~~~~~~~~~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{CBM-G}{CBM-G}_W]W{CBM-*}{$7f}{$fe}{$fb}{$ee}{SHIFT-@}~{$fb}{$ee}{SHIFT-@}{$ea}{CBM-N}{CBM-POUND}{CBM-I}{CBM-F}{$ef}~~{$fc}3{SHIFT-*}
~~~3L


~~~3L


{CBM-F}{$ee}~?L3
{$e6}{SHIFT-@}{$ee}{$fb}>O3


   {$e8}














{$fa}????????{$f8}{$f0}{$f0}{$f2}{$fa}{$fe}~~**{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fe}~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fe} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}u {CBM-N}{CBM-N}{CBM-N}{CBM-N}uuu {CBM-N}{CBM-N}uuuuu{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-P}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~~~~~~~~~~~~~~~~~~~~































***.;.







































































































































????????{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}~~~~~~~~
~~~~L3L{$f3}~~~{$fd}"!uwuuuW{SHIFT--}{$7f}uuuW{SHIFT--}{$7f}~{$fb}uu]W{SHIFT--}~{$ee}{CBM-F}puUW{SHIFT--}~{$ef}{CBM-F}

pt{CBM-+}{SHIFT-POUND}{$ea}




@D















????????{$f8}{$f2}{$f8}{$f2}{$f8}{$f2}{$f8}{$f2}

uuuu {CBM-Q}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}*~{CBM-B}{CBM-Q}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~{CBM-P}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~~{CBM-P}{CBM-N}{CBM-N}{CBM-N}~~~~~{CBM-B}{CBM-N}{CBM-N}~~~~~~{CBM-B}{CBM-N}~~~~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fb}{$ee}{CBM-F}~~~~~{CBM-F}{$ee}{CBM-F}~~~~~{CBM-F}{$ee}{CBM-F}~~~~~{CBM-U}{$ee}{CBM-U}~{$fc}~{$fc}~B2





????????{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}~{$eb}{$ee}{$eb}{$ee}{$ee}~~~{$eb}{$ef}{$eb}{$ef}{$eb}~~~~{CBM-Q}{CBM-F}{CBM-Q}{CBM-F}{CBM-F}~~~{CBM-P}{CBM-F}{CBM-F}{CBM-F}{CBM-P}~~~~{CBM-F}{CBM-F}{CBM-Q}{$ef}{$ef}~~~~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~







{CBM-B}~{CBM-B}~~~~~{$fb}{$ee}{$fb}{$ee}{$fb}{$ee}{$fb}{$ee}{CBM-F}{$ee}{CBM-N}{$ea}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-F}{$ee}{CBM-F}{CBM-S}{CBM-F}{CBM-S}{CBM-Q}{CBM-S}{$7f}~{$7f}{CBM-*}{$7f}{SHIFT--}W{SHIFT--}{$f5}{SHIFT--}{$f5}{SHIFT--}UU^Zw]wuZ{$ea}{CBM-N}{CBM-N}{$7f}~Wu{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~~{CBM-N}{CBM-N}{CBM-N}~~~~u{CBM-N}{CBM-N}{CBM-N}~~~~u{CBM-N}{CBM-N}{CBM-N}~~~~{$7f}{CBM-N}{CBM-N}{CBM-N}~~~~~~~~~~~~








{CBM-F}{$ee}{CBM-F}{CBM-Z}{CBM-Y}~
UV{CBM-F}{$ee}{CBM-B}~U
W{SHIFT--}W~~~{CBM-N}
{CBM-F}{$ee}{CBM-F}~~~
W{SHIFT--}{$7f}~~~

{CBM-F}{$ee}~~~u

{CBM-F}{$ee}~~~u

{CBM-F}{$ee}~~~@

{CBM-F}{$ee}~~{$fd}


{CBM-F}~~~u


{CBM-F}~~~u


{CBM-F}~~{$fc}



~{$f0}{SHIFT-*}




































































.;.;.;{SHIFT-@}{SHIFT-@}{$fa}{SHIFT-@}{$fa}{SHIFT-@}{$fa}{SHIFT-@}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}~~~~~~~~~~~~~~~~~~









































































/?/?????{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-K}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-Q}{CBM-Q}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~































7?~{CBM-P}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~{CBM-Q}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~{CBM-B}{CBM-N}{CBM-N}{CBM-N}{CBM-N}~~~~~~~~~~~~~~~~~~~~~~~~{$fc}{$f3}{$fc}{$f3}L3L3A2B2B2A275575575~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fa}uuwwwwG{$7f}~{$fe}{$fb}{$fe}{$fa}{$ea}{SHIFT-@}{CBM-B}~{$fc}{$f3}L0{SHIFT-*}0L0{SHIFT-*}










































{CBM-M}{CBM-@}))
!~






?{CBM-N}{$fa}????? v~~~~~~~~~~~~~?~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



3L3



L3L3


3L3L3


3L3L32B1B1&%-/
""""
3L3L3L3
3L3L3L3
3L3L3L3
3L3L3L3

L3L3L3

L3L3L3


3L3L3



L3L3




0L3





L5






t





















H{CBM-POUND}{SHIFT-*}?DFp{CBM-V}{$60}{SHIFT-POUND}N ?NNP{$ee}N{$60}{CBM-I}{SHIFT-POUND}

JP{$f9}I
{$f0}{$e8}{$60}{CBM-S}h{$7f}$){$e8}
{CBM-N}J{CBM-Z}j{$7f}{SHIFT-POUND}{CBM-+}{CBM-M}{CBM-I}o {$7f}{SHIFT-POUND}RS{$7e}{SHIFT-POUND}IX{SHIFT-POUND}Y O4{SHIFT-POUND}
{$7b}{CBM-S}{$e8}{CBM-S}{CBM-+} *Z&{$7b})~PF{$7b}FZ{CBM-Z}jjj{$7d}{CBM-S}{$e8}{CBM-S}{CBM-M} *{$7c}TF{$7c} !?)UEZh{SHIFT-POUND}
E{$7b}jHJjjV{CBM-G}ZEhh){CBM-G}{$7b}Ei{CBM-N}HI@{$e9}{CBM-A}{CBM-G}{$7c}EjIH{$60}{CBM-S}{CBM-+}{CBM-X}Ia{$7f} (




{SHIFT-POUND}
{CBM-@}V{$f1}{$fa}{CBM-+}U{CBM-X}{SHIFT-*}a{$f1}{CBM-+}{CBM-X}{CBM-O}a{CBM-@}V{$f1}{$f1}{SHIFT-POUND}{CBM-Z}!P){CBM-N}{CBM-Z}, K8{CBM-S}W{CBM-Z}V N8{CBM-@}:PS  :{$60}
, hh{CBM-I}
{CBM-O}^8IH{$e8} {$f5}H{CBM-N}HMO {$f1}8-- {$60} {CBM-I}d @
DcPFdl{$ef} $Ip%LEMP $J%N$KOpeP /HPM{$e6}@{$e6}bPGl{$ef}XJ {SHIFT-POUND},{SHIFT-POUND}
Xxl+{CBM-I}2 P&{CBM-I}h P {CBM-I},{CBM-D}{CBM--}{SHIFT-POUND}M{SHIFT-*}{$f0} {SHIFT-*}{SHIFT-*}l{$7d}9{CBM-I}' P{CBM-I} {SHIFT-POUND}y gl+ {CBM-I}0P
 d{CBM-I}0P {CBM-O}{CBM-I}199 Ld0e/a
l+ P; T9 c P; Z{CBM-Z}PE)P{$ed}{CBM-Z}#{CBM-Z}
P{CBM-S}P{CBM-D}P {$ef} k Z{CBM-G}]A{CBM-Z}P,Q0{SHIFT-POUND}
.{CBM-S}P{$e8}c Z{CBM-Z}
P{CBM-D}P,P0{SHIFT-POUND}
{CBM-POUND}MP,H-{CBM-Z}PM.jjj
ab{CBM-Z}.
?@{SHIFT-POUND}{CBM-I}P ig{SHIFT-POUND}{$60} 62{$e6}]{$e6}A{CBM-G}]IH{CBM-A}{CBM-Z}QM..FcP lc{CBM-S},{CBM-Z}- Vch{CBM-POUND}{CBM-G}?r{CBM-G}@s{CBM-Z},-{CBM-T}p{CBM-Z}PhM,,H0{SHIFT-POUND}
M--{CBM-G}aI/n{CBM-G}bI{$f3}o{CBM-G}aIgl{CBM-G}bI{$ef}m Z {SHIFT--}d{CBM-N}H{CBM-POUND},Rm{CBM-G}I
{CBM-O}L5)u$)0{CBM-O}D5h
Hhqrr ?JP{$f4}H{$60} {$fc}; <{SHIFT-POUND},{$f0}5{CBM-I}% - {CBM-K};$)-&.{CBM-I} {$fa} {CBM-K}; l={CBM-I} = o={CBM-I} ={CBM-I} {$fa} {CBM-K}; o={CBM-I} ={$60}{CBM-G}{$fa}I@{CBM-G}{$fb}{$e9}{CBM-A}){CBM-G}{$fc}IH{CBM-A}#I2P{CBM-G}{$fa}I
P{CBM-G}{$fb}I
j{CBM-N}{CBM-X}h=({$f0}

PP{$60}{SHIFT-POUND}{$fa}P{$60}i~-PP{$60}{CBM-I}
,{CBM-I}{CBM-J}-8{$f5}{$fa}{CBM-J}.{$f5}{$fb}{$60} t; {$fa}:{SHIFT-POUND}
*  eYMU{$f0}{$ec} {$fd}=P{$e7}{CBM-@}j{CBM-I}
{$f0}{CBM-+}X{$f0}{SHIFT--}J{CBM-C}
J{CBM-X}
iJ{CBM-X}
hXj{$e6}j {$fd}={$f0}{$f9}Fj
{$60}{CBM-I}
{SHIFT-POUND}
{$f0}{CBM-I}{SHIFT-POUND}cilXl+{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}T{SHIFT-POUND}@*{CBM-I}
{CBM-I},{CBM-I}
{CBM-G}*){CBM-B}* l+ Wgl+JU P



W{$60}{CBM-I}{CBM-Z}i{CBM-I}
Gl+{SHIFT-POUND}@ {CBM-S}AP{CBM-I}{$e8}{CBM-POUND}{SHIFT-POUND}
 {$f0}({SHIFT-POUND} P${SHIFT-POUND}  {CBM-J}
X{$e8}
{CBM-I} {SHIFT-POUND}  {CBM-I} {SHIFT-POUND}jJ

$)jjI


{SHIFT-POUND}*{CBM-Z} i {CBM-B}
\{$e8}{SHIFT-POUND}!P j kj ne{SHIFT-POUND}c
{CBM-I}
0{CBM-S}l'4lB3{CBM-U}]{CBM-O}]{SHIFT-@}]HH{$60} ;{CBM-I}[ _ {CBM-K};{CBM-Z}{CBM-T}i~%[[
{CBM-T}_{$60}(
g8
7 ; 33 {CBM-B}6{CBM-G}jIp{CBM-A}{SHIFT-POUND}
{$60}{$e9}P{CBM-A}{$60},0M{CBM-A}{$f1}{CBM-+}iP{$ed}{CBM-+}h{$ec}{CBM-A}{$e6}jjM{$f5}j{CBM-D}{$f4}{CBM-I}h z&*M{$f3}hHi Xj {CBM-I}j {CBM-POUND}k8{SHIFT-POUND}{$60}l3k{SHIFT-POUND}#{SHIFT-POUND}o{CBM-I}
 $)nJ %:{CBM-A}{$fb} ; nk{$f3} ; l83 [k{$60} [klO ;{CBM-G}hM_{CBM-G}iM{$60}{CBM-POUND}{CBM-G}_ +e{CBM-A}2{CBM-G}jhMH{CBM-A}&IH{CBM-A}{$f9}h
{CBM-@}VX{CBM-S}{CBM-M} (
{CBM-I}
{SHIFT-POUND}{SHIFT-*}${CBM-E}R{CBM-@}({$f0}){CBM-@}{$7f}{SHIFT-POUND}
*P{$fa}{CBM-POUND}$)(0{CBM-O}{CBM--}aP{CBM-O}{$f0}ap(0{CBM-O}LaP{CBM-O}{$ec}aI{$e8} ({CBM-A}
FPK{CBM-@}HD{$7d}{CBM-L}{$f0}{CBM-H}H{CBM-G}{$7d} {$f4}a{CBM-@}U0{CBM-I}
({$7e}I{$e8}{$e4}V{$f6}{$f0}{$f4}H{CBM-A}{$ea}{CBM-@}V{CBM-+}{CBM-X}{CBM-O}aXX={CBM-O}aqXX{SHIFT-POUND}p${$7e}{$f0}{CBM-Z}{$f1}
II{CBM-O}{$f1}XX(P{$f0}{CBM-E}Xi~X{$f7}{SHIFT-POUND}${$7e}{CBM-G}ra{CBM-G}sb
{CBM-I}
{CBM-E}a(06P{$f0}={$f1}Ia{CBM-G}aIa{$e6}b{$e8}{$e4}V{$de}{$f0}{CBM--}{CBM-A}$){CBM-X}I
I1alVa
{$fd}: {$fd}9l{CBM-S}9,X0, {CBM-B}
?

{SHIFT-POUND}$){SHIFT-POUND}{SHIFT-*}
 i?{CBM-Z}){CBM-D}P{SHIFT-POUND}
P{CBM-Z}#{$60} P; T9 {$fd}: {$fd}9l{$f4}9 %:{CBM-A}{$fb} ; .2 .2 I< O{$ea}{CBM-S}TJl62{SHIFT-POUND},{SHIFT-POUND}
${$60}{CBM-G}IH{$60} ];{SHIFT-POUND} P  L;$)l+ 5{SHIFT-POUND}
{$f0} P; 5{SHIFT-POUND}@P P;{SHIFT-POUND}h T9,X0 -H{CBM-POUND}{SHIFT-POUND}

; ; I< %:{CBM-A}{$f2} ; :${$eb}0{$e6} ; d3{CBM-Z}Mlub /{SHIFT-POUND} ,{CBM-POUND}P{$ea}{SHIFT-POUND}
*l62 ; {CBM-W}4{CBM-A} O4P{CBM-Z},,S0{SHIFT-POUND}0 el{$ef}{CBM-I} P{CBM-I} P
{CBM-I}

{$f0}{CBM-I} {SHIFT-POUND}~]PIP{SHIFT-POUND},{SHIFT-POUND}
pl+ O4
{CBM-+}p$)0{CBM-X}D5P{CBM-X}L51r{CBM-N}$)0{$f0}{SHIFT-POUND}{$60}I{$fa}jjl{$f9}d Xd$)0iI{CBM-N}P{CBM-Z},{$60} P{CBM-E}n){$60}{CBM-E}l Pjjjj){$60}L{CBM-I}{$f0}{$60}M{CBM-K}{$f0}{CBM-A}{$f8}{$60}{SHIFT-*}
{$f0}{$60}IH{$60}{SHIFT-POUND}0-{$f0}3l{$f6}e{SHIFT-POUND}0-{$f0}l{$f3}e{CBM-S}AP{CBM-I}A{$e8}D J{SHIFT-POUND}gf B
X~n
 {$ef}{SHIFT-POUND}
,{SHIFT-POUND}{CBM-S}A{$e8} f {$f0}{CBM-I}{SHIFT-POUND}  3 K= $3 K= 3 B3Fj {$fd}=PE 3 {$f1}= $3 {$f1}=l{CBM-P}= {$fd}=P{CBM-+}X {$fc}HHlB={CBM-G}h
{$e8}{CBM-G}i
{$e8}{CBM-G}j
{$e8}X{$60}{$e6}j {$fd}=Fj(PO{$60} {CBM-W}4{SHIFT-POUND}~{$60} eEY{$60}{CBM-G}j)1

E1W O4 03{CBM-S}N{SHIFT-POUND}H8{$e5}jMN{CBM-A}{CBM-N}T !?)U
{CBM-POUND}{CBM-O}-?>>{CBM-O}.?>> {SHIFT-POUND}?8{$e5}h{CBM-N}{SHIFT-POUND}{$e5}iP {CBM-A}{CBM-POUND}EUjjjV{SHIFT-POUND}
{CBM-Z}W3{CBM-G}h)I{$e6}W{CBM-G}WI@>{SHIFT-POUND}I
>
{CBM-I}
{CBM-X}I{$f0}(i~1rr{CBM-X}I=
rr{CBM-X} jH{$e8}{$e4}c{$f4}lni P;{SHIFT-POUND}{CBM-G}  k{CBM-G}]jjjI{$e9}{CBM-POUND}{SHIFT-POUND}{CBM-A}8{$e9} {CBM-A}I{CBM-POUND}{SHIFT-POUND}
E


]IA {CBM-F}${SHIFT-POUND} j{SHIFT-POUND}
 ( jI{$f8} fk {CBM-N} K{SHIFT-POUND}
# {CBM-POUND}k %:{CBM-A}{$fb}{SHIFT-POUND} Cj Ij O{$eb} /{SHIFT-POUND}
 Cj{$f0}-$0X{$eb}{CBM-G}jIH{CBM-A}{$e5},0{CBM-I} {SHIFT-POUND}i il~h{CBM-I} {SHIFT-POUND}i){CBM-N}{$e8} Wgl~h,0*p{CBM-Z}{$f0}# L{CBM-B}j

 QP L{CBM-F}j

{SHIFT-POUND}-{$f0} f, q, L K {CBM-A}i {CBM-X}l{$f3}<Hhj < ;HA{SHIFT-POUND}
B < ;Hj <{$60}{SHIFT-POUND}h{CBM-I}{$7f}  {CBM-T}b{CBM-G}[8{$ed}{$f3}

h{SHIFT-POUND}
k*i{CBM-G}]8{$ed}{$f5}

IPj K?,v  D6 O4 t{CBM-I}l {CBM-K};  D6 O4{SHIFT-POUND}{CBM-I}
{SHIFT-POUND}d
{SHIFT-POUND}c{CBM-E}tl{CBM-E}vn .lFcP{$f1}H{SHIFT-*}
{$e8}N{$f0}FdP{SHIFT--}{CBM-G}tI(tvN{$e6}u{$e6}wPH{$60}{CBM-I}l{$f6}
P{$f6}{$f6}P{$f6}{CBM-I}
{$60} E;{CBM-Z}{CBM-T}{SHIFT-POUND} {CBM-B}l %:{CBM-A}{$fb} ; {CBM-I}j{CBM-G}]){$f8}] nk{$e7}{SHIFT-POUND}{CBM-I}
 8 ; XdI
{$f0}V e llmlM{$f0}&=IlVa]IlVaH ?FT{$f0}FP{CBM-K}l@{$60}~{$7f}?
{SHIFT-*} {$f0}{$f8}{$fc}{$fe}~

03<?{SHIFT-*}CLO{$f0}{$f3}{$fc}~

puz_ {CBM-G}{CBM-N}{CBM-P}{$f0}{$f5}{$fa}~
{$f0}~
u{CBM-N}~IERR{$e6}S{$60}{SHIFT-POUND}HErr{$e6}s{$60} O$ b <bl O$ b 5b P:0{$ef} P; ]b 5b P:0{$f5} ?b{SHIFT-POUND}0 ?b{SHIFT-POUND}
@ ; <{$e6}j{CBM-G}jEA{$f5}{$f0}{$f3}{SHIFT-POUND}E{CBM-I}E{CBM-I}P{$fc}{$60}{CBM-Z}#  ; ; {$f1};  ; {$ee}; ; Ec{CBM-A}
{CBM-I}[ _ {$de}% Echh Pc{CBM-A}
{CBM-I}] A {$de}% Pc{CBM-POUND}H{CBM-N}H{$60},{CBM-POUND}P
{CBM-E}l){$f0}
{SHIFT-POUND}l{$60} {SHIFT-POUND}
r{$fb}H{CBM-Z},n
Wl{$60} L4{SHIFT-POUND}{$e8}c{SHIFT-POUND}d {SHIFT-POUND}
r{$fb}I
P D: e .lFcP{$e6}Fd{$e2}{$60} h, [, _h I<H{CBM-POUND} O{$f4}, [, _, hX{CBM-+}{CBM-G}$)jhJ{CBM-N}H

{SHIFT-POUND}

{CBM-G}
x{$60}{CBM-X}{SHIFT-*}{CBM-X}C
{CBM-N}{CBM-X}E
{CBM-X}FP WglP;{CBM-X}y;MPJlP;J{SHIFT-POUND}{CBM-Z}7I{CBM-Z}8I
lO$ {CBM-B}6{CBM-I}h P{CBM-I}P{CBM-I}h,{CBM-I}_ [P{CBM-I}_,{CBM-I}[ h{CBM-M};{CBM-I}
{CBM-J}
#P{CBM-I}{SHIFT-POUND} ' D6{SHIFT-POUND}~{SHIFT-POUND}n{CBM-S}{CBM-D}{CBM-Z} ,f{CBM-Z}{CBM-S}D MMNPX{$60}{CBM-I}[ ;{SHIFT-POUND} f y{CBM-I}
IP{$f0}IX{$f0}#{CBM-I}
,{CBM-I}  D6{SHIFT-POUND}-{$f0}{SHIFT-POUND}{CBM-I} f{CBM-I} {$f7}{SHIFT-POUND}P{SHIFT-POUND}{CBM-I} f{CBM-I} {$fa}{SHIFT-POUND} 4f{CBM-I}k {$fc}{SHIFT-POUND}h{CBM-Z} [Habd 33 Zf) O4){CBM-Z}c
{CBM-I}
,0{CBM-K}arl{$60}f{CBM-E}ra{$e6}aP{$e6}bI{CBM-POUND}L  ?FcPU{CBM-Z} fFdP{CBM-B} {$ef}l{CBM-B}6Ehh{$e6}i{$60}
{CBM-Z}P,0hh{CBM-POUND}{CBM-I} 4H{CBM-N}H{CBM-POUND}I{CBM-POUND}{$e8}{$e4}VI{$f0}G{CBM-Z}>I>>{$ee}>{$ee}> ?{CBM-Z}P{CBM-G}lI(l{$e6}m{CBM-G}WIIp{$e9}pWFT{$f0}lZ>lB6{$e6}rP{$e6}s{CBM-G}r)P
{SHIFT-POUND}8Err{SHIFT-POUND}Ess{$60}{CBM-G}h$)
&ih{$60}
t{CBM-POUND}{$fc}p{CBM-@}{$f8}l{SHIFT-POUND}
 f{SHIFT-POUND}
 Gf {CBM-Q}? {CBM-B}

{SHIFT-POUND}
T??{SHIFT-POUND}U??{SHIFT-POUND}p
{SHIFT-POUND}c{CBM-I}{CBM-O}

{$e8}HFcP{$f4}h{CBM-@}p{CBM-I}>
J{$fa}{$f4}{CBM-Z}T?IT??{$ee}U?{$ee}?h{CBM-I}){$f0}{CBM-I}
$) LP{SHIFT-POUND} P{$60}{CBM-@}{CBM-G}l2,lk I ;{CBM-Z} g{CBM-S} [\M[{$e6}\M_{CBM-G}\I
$)jF_f\F[{$60}{CBM-@}j{SHIFT-POUND}
{CBM-S} 2{CBM-S} ]^MAI
Blfk {CBM-B}Q{SHIFT-*}

{SHIFT-POUND}6 x 1j {$60} 1j p .j H{SHIFT-POUND},{SHIFT-POUND}
1{CBM-N} &7{CBM-POUND} {SHIFT-POUND}
hi{CBM-G}1jl{$ec}{CBM-Z}c{SHIFT-POUND}P1{SHIFT-POUND}
{CBM-I}% Rj{CBM-G}1I1FcP{$ee}{SHIFT-POUND},{$f0}{$60}{SHIFT-POUND}"{CBM-I}#{CBM-D}P{SHIFT-*} {CBM-W}4{$60},0 O4{CBM-I}, P



! I{SHIFT-POUND}fg L8{CBM-Z}!{CBM-S} N8$)0{$60} {CBM-L}l{CBM-G}n{CBM-+}o P8{CBM-Z} {CBM-S}lK8{CBM-Z} P



{$60} E; {CBM-B}l {$fa}: XdI
{$f0}{$f3} eh {$7d}8 L4H llPlJh{CBM-S}{CBM-X}, gH{CBM-N}{CBM-X}, gl+Jh{CBM-S}{CBM-X}/ gH{CBM-N}{CBM-X}/ gl+8{$e9}h{CBM-S}
{CBM-X}2 gH
{CBM-N}{CBM-X}2 gl+ 7; {$e8}9{CBM-S}{$e8}h{CBM-S}{CBM-+} *$)j{SHIFT-POUND}
NH{CBM-S}{CBM-M} *N %:{CBM-A}{$fb} O
 9k ;  ]b{SHIFT-POUND}
{CBM-I}P
ab= Ec{CBM-A}8{$60} Z aaH PcHa:{$e6}:{$e6}{CBM-G}[-{CBM-T}Ha{CBM-N}{CBM-G}])Ha
Qa{CBM-N}HQa Vce{$e6}e aH{CBM-G})a{SHIFT-POUND}Eaa{$e6}b ;{SHIFT-POUND}g4{SHIFT-POUND}{$ef}5{SHIFT-POUND}/6{SHIFT-POUND}{$f3}7 O4
{CBM-I}
{CBM-K}ra eHDe{$f4}Eaa{$e6}b{$e6}jF:P{SHIFT--} {$ef}{CBM-G}=P( ; c: O4
{CBM-I}
{CBM-E}l4{CBM-E}n6{CBM-I}4 0lHDe{$ee} yF:P {$60}{CBM-G}_8{$e5}[{CBM-N}{CBM-G}{$60}{$e5}\{$60}{CBM-G}A8{$e5}]{$60}jJj$)0j{$60} Z{CBM-Z}PMPjjj{CBM-N} {$ef}{$e8}{$60} {$ef}l

{$e8}H {$f5}{$60} O$  ; % ; {CBM-I}
%6&{$e8}{$e8}{$f7}lj{SHIFT-POUND}
hi{CBM-Z}{CBM-K}_{CBM-Z}{CBM-I}{$60}{$60} %:{CBM-A}{$fb} C< O{$f3}{$60}{SHIFT-POUND}
,{SHIFT-POUND}X ;{CBM-A}
 t ;{CBM-I}t ;{CBM-G}jh{SHIFT-POUND}
j{SHIFT-POUND}GA <H M;{SHIFT-POUND}
,{SHIFT-POUND}@ O4{CBM-I}
 P2{CBM-I}~{CBM-G}p$)$@0{CBM-I}u
G&H2{CBM-POUND}{CBM-O}{CBM-U}a%2hi{CBM-POUND}H1{CBM-G}G8{$e5}1G{CBM-G}H{$e9}
#j{CBM-G}GJjj{CBM-N}H{CBM-POUND}{CBM-G}2h
{$f0}Hh$@1rqrr eJ{$ee}{CBM-G}_-{CBM-T}$)
{CBM-N}H=Aa
$@1rqrrx{$60} O4{CBM-G}A8{$e5}j{$f5}{CBM-N}{$e8}{CBM-@}p{$60} {CBM-I}{$fa} #g Z{CBM-I}
 ~ {$e1}f@bd {$e1}fac{$e8}{$e8}{$e8}{$e8}{$e8} p{$e2}l{$ef} {CBM-I}{$f7} #g Z ~ {$e1}f
{SHIFT-*}>{$f6}l{$ef}H{CBM-E}?a{$60}{SHIFT-POUND}
g{CBM-S}{CBM-N}  flg {CBM-J}Z
{SHIFT-POUND}
g f?l+ {CBM-N}{CBM-G}8{$ed}{CBM-POUND}{CBM-G}{$e9}
l2{SHIFT-POUND}
{$60}?@ab{CBM-I}?{SHIFT-*}{$f0}{CBM-I}   ig{SHIFT-POUND}{$f4}{CBM-I}({$f0}{SHIFT-POUND}@{CBM-I}(
E??E@@{$60}{SHIFT-POUND}{CBM-I}
{$f0}
{SHIFT-POUND}{CBM-I}P{SHIFT-POUND}{CBM-I}hmH- gl+{CBM-Z}il+{$f0}lg{CBM-I}
,{CBM-I}{CBM-POUND}I
{$f0}{$f4}{CBM-@}cI{$f0}I
{$f0} '{CBM-A}{$e5}D1{CBM-A}{$e1}0 e{$e6}cPP{SHIFT-*}
{$f0}S eFclJ&{CBM-@}c/{SHIFT-POUND}
0{CBM-S}0{$60}
I
I {CBM-A}I{CBM-A}{$60}8{$60}{CBM-S}{CBM--} {CBM-A}4 d){CBM-A}/
 yHI
P{$f5} ){SHIFT-POUND}
y{CBM-Z}y)1

E1
1{CBM-Z}z)E1I{$60} ){SHIFT-POUND}
y{$60},s,w
,p,w
{CBM-I}
,{CBM-I}{CBM-D}/{CBM-X}I'{$f0}0H{$e8}P{$f4}{$60} N{CBM-A}= d){CBM-A}8{$60}{SHIFT-POUND}
 {CBM-G}{CBM-A}0{$60} {CBM-S}{CBM-A}*{$60}{CBM-I}{$7f} {CBM-A}" d){CBM-A}{$60}{CBM-S}{CBM--},{CBM-I}{$7f} {CBM-A} d){CBM-A}{$60} e{CBM-A} d){CBM-A}{$60}I{$f0}Il2

p@3kerrbuf
k@~iomkag
2t~loadsavk
 {$7c}1 {CBM-E}?
J{$f8}H{CBM-I} 1 {CBM-B}'H{SHIFT-*}{$f3} {$e2}0Fd{$e1}lE0{CBM-I}Q /{CBM-Z}P/l0/{SHIFT-POUND}@{SHIFT-POUND}
 ;{CBM-I}
DF P2{CBM-I} P2{CBM-G}I8{$e5}G{CBM-G}J{$e5}H{CBM-I}{CBM-A}{CBM-I}
{CBM-J}Gi~M{CBM-J}Hi~NQ{CBM-I}I {$f4}2({CBM-A}{CBM-I}G,{CBM-I}I{CBM-J}JL{CBM-J}
JK
{CBM-@}L{$e6}KP{$e6}L d3{$e6}MP
{$e6}NP{SHIFT-POUND}
{$60}{CBM-+}Q {CBM-E}2$L0{CBM-I}
,{CBM-I}{$e4}Q{$f0}{SHIFT--} {CBM-E}2l2{CBM-J}CUhh{CBM-J}D$,F{SHIFT-POUND} ) Q&{SHIFT-POUND}1{CBM-I}
  E+l{$f2}'
Ll{$f2}' L
{$60}
Pg {CBM-B}g{$ef}P
 Q&{SHIFT-POUND}x{CBM-I}g {$ef} E+l{$f2}' ' U) {CBM-O}{$ec},Y{$f6}nP{$f5}0 L{$f6}n
{$60} L
{$60}~n{CBM-I}P{CBM-S}{$fe}nA{$e8} {$f0}{CBM-I} D {CBM-O} cI{SHIFT-POUND}
{CBM-POUND}HL){$eb}{CBM-O}{CBM-M}{CBM-M}l{$f2}' 'lU) L{$f7}
{$60}{$f4}{SHIFT-POUND}P9{CBM-Z}APl+{$f4}, L{$ec},{$f6}n
{SHIFT-POUND}P! L{$fa}
{$60}{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}l{CBM-H}+{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}h O$Hh{CBM-I} {$de})Hh C& {CBM-E}&{$f0}v{CBM-D}/H
0~~0



?00?00

~

~



{$fc}{$fc}000??





~~


{$fc}{$fc}


00000000
??0~~0




L






{$f0}






~






~






{CBM-N}



~

{$f0}

L

C

{SHIFT-*}

{$f0}

L

C

~

C

C

C

C

C

C

~




(


(
M "{SHIFT-*}P {CBM-V}-
 A@{CBM-P}{SHIFT-POUND}
 L[
{$fa}

{$e6}{$fd}{$e6}{$fd}{$e6}{$fe}{$e6}{$fe}P%{SHIFT-POUND}
,{SHIFT-POUND} L${$fa}

l ${SHIFT-POUND}
,{SHIFT-POUND}
{SHIFT-POUND} I/{CBM-POUND}{$f0}{$e8}{CBM-G} {SHIFT-POUND}'{CBM-+}Mn/{CBM-Z}n/H{CBM-I} {$de}){SHIFT-POUND}
# ){SHIFT-POUND}
 w / {CBM-R}'{CBM-I}r /{CBM-Z}q/ 0/ L4{SHIFT-POUND} j%{SHIFT-POUND}c{SHIFT-POUND}d {CBM--} e/{$ee}NP{$e7} h/ 2l{$f2}'?@c{$f0}
{CBM-E}? {CBM-B}'HDc{$f6}{$60}l0lJ1

<

harmode
~fontsi
{CBM-S}
harsize

~fonta{CBM-S}{SHIFT-*} {$f0}3{SHIFT-POUND} {CBM-W}&Pl{$f2}' S' L0
{CBM-D}/ ){CBM-S}{SHIFT-*}  V&{CBM-Z}) ) ' U){CBM-A}{$ea}{$60}9 ]bjJ"E[[{$e6}\j#E]]{$e6}^ {SHIFT-+}5l{CBM-J}5{SHIFT-POUND}
${CBM-Z}#&
i~I({SHIFT-POUND}~I
),0 B6,)" "75HP{$e6}54{CBM-I} P6 ~6 "7 {$fd}6{$ee}${SHIFT-POUND}lu6 745{CBM-I}4 {$f4}2{CBM-I}
 P6({CBM-I}4 {$f4}2{CBM-G}4{CBM-+}5 ~6 7 ~6 B6N&{SHIFT-POUND}{CBM-I}
 ~6{CBM-Z}&I~P{$60}{CBM-G}[{CBM-+}\M$_{$e8}{$60}{CBM-G}[{CBM-+}\8{$ed}$h{CBM-A}Ji{CBM-G}]{CBM-+}^M&{$e8} 6{CBM-G}]{CBM-+}^8{$ed}&{CBM-A}JjAkB 63, -7{$f0} d3{CBM-G}P{SHIFT-POUND}
,{SHIFT-POUND}h 2H #' &{$f0} L?-0
 I 2 O${CBM-Z}+) ; M$)0 {SHIFT-POUND}
{CBM-I}Q J {CBM-Z}{CBM-K}%{CBM-Z}{CBM-I}&l+ {CBM-N}{CBM-I}
{SHIFT-POUND}P{$e4} C&{SHIFT-POUND}*{SHIFT-POUND}$ Q&{SHIFT-POUND}{CBM-I}  w ) ' {CBM-K}'lJ' :){CBM-A}{$f8}PF 7) &){SHIFT-POUND}
IXa{SHIFT-POUND}I
b{SHIFT-POUND}
 7){CBM-A}VPd{SHIFT-POUND}" ()P= 7)
 =){CBM-A}CP1I"{$f0} caHP{$ed} &){$ee}{CBM-Z}I{CBM-Z}I{CBM-A}I{CBM-P}{CBM-G}aI(a{CBM-O}{$e6}bP{CBM-J} 2 & I{CBM-G}Iwj
Uiii{CBM-N}{CBM-G}KUGK{CBM-G}LUHL{$60} C{CBM-J}_8{$f5}hG{CBM-J}{$60}{$f5}iH0GPC{$60} ~DCIG{CBM-N}{SHIFT-POUND}
8{$f5}

{SHIFT-POUND}
{$f5}{$60}{CBM-I}
,{CBM-I}{CBM-J}%8{$f5}hh{CBM-J}&{$f5}ii{$60}{SHIFT-POUND}Ehh{$e6}i{$60}{SHIFT-POUND}~,{SHIFT-POUND}{$fe}Ehh{CBM-A}Fi{$60} , , {CBM-I}{CBM-J}h{CBM-*}J{$f7}{$60},P={SHIFT-POUND},{$f0}6 33{SHIFT-POUND},{$f0} 3 3 {CBM-B}6{SHIFT-POUND},{$f0} 3 3 {CBM-B}6{SHIFT-POUND},{$f0} 3 3 3 {CBM-B}6 {CBM-W}4{$60}{SHIFT-POUND} ,P0,X,  3 B3 !3lH3l> 7d{$60}2

hIP V' ) L0
 Q&HhIP  S&Hh {$7b}&89I {$7e}&{SHIFT-*}
{$f0}[{SHIFT-*}{$f0}{SHIFT-*}[P{CBM-Z}AIP{CBM-I}~ v P){CBM-A}GHI{$f0}l{$f2}' ' U){CBM-A}{CBM-Y} O$ {CBM-R}' {CBM-+},{CBM-Z}, {CBM-B}'l{$f2}'{CBM-I}1 ,{CBM-I}1{SHIFT-POUND} ){SHIFT-POUND}
8{SHIFT-POUND}9{CBM-I}{$60} {$fd} P)l{$f2}' L
P
{$60}g{CBM-S}{$60}{$e8}{CBM-D}{$60}H IhI{$60}{CBM-POUND}H{CBM-N} P){CBM-I}x ,l{CBM--}+ Lg{$ef}
{$60}P{CBM-I}P Gl,{CBM-Z}h s)H{$60}{SHIFT-POUND}b{CBM-I} {SHIFT-*},{SHIFT-POUND}
{CBM-I}\ {CBM-U},{SHIFT-POUND}
{CBM-I}X89{SHIFT-POUND}{$e8}{CBM-I}cd
 L${$fa}

 x&E{CBM-G}{$fc}jjjE  {$fa} x {$fa} {$7e} j%{CBM-G}{$fd}


c{SHIFT-POUND}
*d G% % G% %{SHIFT-POUND}P{CBM-I} ig{CBM-G}b)Xb G%{SHIFT-POUND}@Err{SHIFT-POUND}Ess{SHIFT-POUND}(Ell{$e6}m{$ee}F{$fe}P{CBM-H}{CBM-Z} ?@{CBM-Z}{CBM-I}{$fe}8{$e9}{$e8}{$e8}{CBM-A}{$fa}I

{CBM-I}   ig{CBM-D}{CBM-O}${CBM-N}{CBM-O}$ ig{CBM-G}ra{CBM-G}sb{SHIFT-POUND}?g{CBM-S}{$f0}{SHIFT-POUND}{$7f}f{$60}{CBM-S}{CBM-X}$M?{CBM-X}$I
@{CBM-I}p{CBM-Z}  ig{CBM-G}la{CBM-G}mb{CBM-G}{$fd}c{SHIFT-POUND}
d{SHIFT-POUND}PB,{CBM-I}? a {$de}%{CBM-G}{CBM-D}k/ V&l'8,) {$f9}/ %:{CBM-A}{$fb} ; O; <{SHIFT-POUND} ub < O{$e5}{CBM-G}jh ;Hjjj{$60} **{SHIFT-POUND}#lO$l{$fa}1l2

p
t16m~datas0320s0640taadepth
l~databil0lJ1

<

~brushdirflaA~itrightr
{CBM-F}~edbottomb {$7c}1 +1{CBM-N}
 {CBM-A}{CBM-E}?
JH{$e8}P{$f3}1 {$f4}0 {$e2}0Fd  L
{$60}
D{CBM-G}1I{CBM-A} E0 _h{CBM-G}{$60}i d3 , , {CBM-I}{CBM-O}{CBM-*}hJ{$f7}{$60}{SHIFT-POUND}c{CBM-X}"6{SHIFT-POUND}
7 Ci{CBM-N}{CBM-X}"6{SHIFT-POUND}
7 <i{CBM-N}FcP{CBM--}{CBM-G}4{CBM-+}5{$60}{CBM-N}M((M)){$60}{CBM-I} $7i~{CBM-N}i~I{$e8} {$60}{CBM-I}
{CBM-X}$
{CBM-POUND}{SHIFT-POUND}
*{$60}{SHIFT-POUND}
*l92{SHIFT-POUND} ub O {$ef}L{$fc}~l+{CBM-I}
,{CBM-I},{CBM-I}({CBM-G}   O$l+{SHIFT-POUND}
{$f0}{$f4}{SHIFT-POUND}jP{$f0}{CBM-G} 8{$e9}{CBM-A}{SHIFT-POUND}
ls7{SHIFT-POUND} 0&ls7 7 l : $,0 {CBM-I}{CBM-O}${CBM-S}7{CBM-O}${CBM-L}7J{$f0}: C7{CBM-Z},
W{SHIFT-@}7 FMjj{CBM-I}( ?@{SHIFT-POUND}
{CBM-I} ig{CBM-@}{CBM-G}{CBM-I}P 2{CBM-I}  ig 0.{CBM-E}?I {$f0}{$f7}h{CBM-E}? 4{$f5}H{CBM-POUND}H{$f0}I){CBM-I}  w{SHIFT-POUND}
{CBM-I}
lW8{$60}{SHIFT-POUND}
1 =){CBM-A}PE1P{$f5}{$60} :) =) {CBM-U}{$60}h${CBM-G}IH{SHIFT-POUND}{$60}H{$60}{SHIFT-POUND}s{CBM-D}){SHIFT-POUND}
 {CBM-S}'{CBM-I}   & cl){SHIFT-POUND}8 ' #'%I?{$f0} {$e1}'l{$f2}' @{CBM-I} -{SHIFT-POUND} {CBM-C}& yP{$ed} 2 s) &8{$60} &{$60}{SHIFT-POUND}{CBM-I}P{SHIFT-POUND}
{CBM-I}{CBM--}{$e2}!i{$e9}!l+{SHIFT-POUND}{CBM-I} {$e4}) {CBM-I} -{SHIFT-POUND}(

3 O4l{$e9}3 {CBM-W}4{$60} O4{CBM-Z}U2{CBM-Z}W3,0h$*p{$ee}{CBM-Z}-T{$f0}<
{CBM-Z},$)0{CBM-E}l)1E2{$f0})P$,0{CBM-E}l)E2{$f0}{CBM-N}{CBM-E}n)E2{$f0}{$e4}1{$f0}E1P{CBM-I},{CBM-I},{CBM-I},{CBM-I}
{CBM-G}*){$fc}***{CBM-POUND}{CBM-+}p$)P
{CBM-O}P5=L5q{CBM-X}L5P{CBM-O}{$60}5=D5q{CBM-X}D5
,{CBM-G}qqrr{$60}i~1rqr{CBM-Z}02{CBM-G}*0.)$)P){CBM-N}{$f0}# {CBM-A}{CBM-E}l {$f0})3p){$f0}2l{$60}IP{CBM-N}{CBM-U}p{$e5}{CBM-G}2n{$60}){$f0}{$fb}{CBM-N} P{$f6}{CBM-E}l)l{$60}{CBM-G}j{CBM-@}DcPFd{$60}{CBM-Z}P =){CBM-A}{$f5}8P{$f1}{CBM-E}8 {CBM-B}'HP{CBM-*}{$e6}9P{SHIFT-+}{$60}rpf r.r.
enter filename ?
disk command ?
file exists. replace it (y/n) ?
status:device not presentload:
save:
disk command:
print:
execute:
font
pattern
brush
shape
page
monochrome screen
hires screen
medres s
f{CBM-+}ggfl{$e5}{SHIFT-POUND}1{CBM-J}
h{CBM-O}


H

{$e8}HF1{$ee}{$60}{CBM-G},"{CBM-G} 8{$e9}{CBM-A}{SHIFT-POUND}
 &{$ee} , O${CBM-G}0I
{$f0}{$60}HH{SHIFT-POUND}
Gl+{CBM-G},{$f5}{SHIFT-POUND} 0& &{$f2}E Ij{SHIFT-POUND}j{$60}{CBM-G}8{$e9}{CBM-A}{SHIFT-POUND}

&{$f2}{CBM-G}II({SHIFT-POUND}(
&{$f0}{CBM-I}{$fa}{CBM-J}j{CBM-J}
Jjj{$60}{CBM-N} {CBM-X} .J{$f6}{$60}
{CBM-S}{CBM--}{SHIFT-POUND}{$7f}lnjj
h{CBM-POUND}{CBM-O}{$ee}-{CBM-N}{CBM-O}{$ef}-{CBM-POUND}H{$60} #' {CBM-B}0
 {CBM-I}  {CBM-I}y ?@
{CBM-E}?{$f0} eHP{$f6}{$60}{SHIFT-POUND}h H{CBM-I}{$f5} ,1  &c{CBM-I} '  & O{CBM-A}0 ?1{SHIFT-POUND}{CBM-Z}Mn/,m/0{SHIFT-POUND}
 {CBM-B}',l/{SHIFT-POUND}
l{CBM-B}'{$60}{CBM-G}?I?51{$e6}@{$ee}61{$60} {CBM-I} 1 {CBM-B}'{$f3}{$60}h
J,p/Jl1*J{$f0}{CBM-N}HI{CBM-A},p/j,i~{$60}{CBM-S}
 {CBM-A}
{CBM-X}
D
JH{$e8}P{$f2}{$60} {$7c}1{CBM-Z}I{$60} +1{SHIFT-POUND}
,{SHIFT-POUND}~
JH{SHIFT-*}{$f8} {$f4}0 {$e2}0Fd{$e2}{$60} ?1{CBM-A} E0{CBM-I}Q /{CBM-Z}P/l0/{CBM-Z}dMn/{CBM-A}I'{$f0}{CBM-I}{$7e} /{CBM-Z}{$7d}/l{CBM-G}1{CBM-I}H /{CBM-Z}G/l{CBM-G}1{CBM-I}_ /{CBM-Z}^/ 0/{SHIFT-POUND}
?51{SHIFT-POUND}{$60}@{SHIFT-POUND}D61{$60}l{$fa}1>
 F-
{CBM-@}:PL  :{$60}{SHIFT-POUND}?{SHIFT-*}
{$f0}{SHIFT-POUND}{$7f}fg{$60}{CBM-Z}!P)dJ!P$,0B8D8 L^8I

 {$f1}8
\
\{$e8}l+ [ {$7e}{SHIFT-POUND}
1{SHIFT-POUND}(Ell{$e6}m {CBM-I}{CBM-G}1lHJ{$f8}{SHIFT-POUND}E11 {CBM-G}[{CBM-@}]I{$f0}IhP
{SHIFT-*}8P{CBM-S}Uld8I{$f0}{$60}{CBM-Z}!P){CBM-N}{$e8}


E]j{SHIFT-POUND}7{SHIFT-POUND}${CBM-I}
  l{$ec}{SHIFT-*}
{$f0}
{SHIFT-*}{$f0}

{CBM-G}l{CBM-+}m{$ea}8{$ec}8{$eb}8{$ed}8{$60}{SHIFT-POUND}{$e8}{CBM-I}{$ee}8{$ef}8{$60} :{SHIFT-POUND} {CBM-I} 8 $,0 {CBM-I}{CBM-O}${$ea}8{$ec}8J{$f3}: C7 {CBM-C}&{$f0}
 {CBM-S}'{CBM-I}0  G)l{$de}'jj{CBM-POUND}{CBM-O}{$e3}-h  n{SHIFT-POUND}
{CBM-S}{CBM-X}q-{$f0} e{$e8}P{$f5}H{CBM-N}{CBM-X}{$7f}-{$f0} e{$e8}P{$f5} {CBM-J}
X{$e8}
 {CBM-B}p(
@ L8-(
N ;l33{SHIFT-POUND}#h{CBM-I}$P{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}h{CBM-I}
 {$de})Hh *({CBM-A}9 Q&Hhjj
{CBM-POUND}{CBM-O}.{CBM-N}{CBM-O}.{CBM-POUND}{SHIFT-*}nPl+HhI{$f0} ' U)HI#{$f0}^I{$f0}6I{$f0}5I{$f0}:I{$f0}tl{$f2}'89 ' U) {CBM-K}' {CBM-+}, P: =)h 2 {$7c}H!P
lb  2 Mlbk <e{CBM-A}{CBM-G}h{CBM-@}il+e {CBM-B}h


{$60} C4{CBM-G}h-{CBM-T}p$)h&i v{CBM-G}j)Err{$e6}s {$7c}$)(FiFh{$60}
{$60}@AB{SHIFT-*}C
E@FG{SHIFT-*}H
J@KL{SHIFT-*}M
O@PQ{SHIFT-*}R
T@UV{SHIFT-*}W
Y@Z{$7b}{SHIFT-*}{$7c}
{$7e}
\(\p\X\ \H\{$f0}\]@]H]]{CBM-U}] ]^0^x^^{CBM-POUND}^P^{$f8}^ _h_P__{SHIFT-*}_
~

@ {SHIFT-*}0
u{CBM-N}~ P; {CBM-H}9 ]b{CBM-G}Ah{CBM-G}]A ; -7HhE]{$f0}{$e6}]P{$e6}^ ;{CBM-G}j{CBM-+}k 60{$e8}H]A ; -7{$f0}K P; {CBM-H}creen
utility
rectangle
screen


0=ks]{$f6}n
{$60}
{$60}
{$60}+
{$60}
\{$fe}_{$7f}[D{$f4}B

mN@{$7f}@{$7f}
{$f6}n{$fa}{$f7}
{$60}+
{$60}
\{$fe}_
Lrpf.rpp.rpb.rps.rp0.rpo.rph.rpm.rpu.     ;l+,o/0{$f8} {$f9}/{SHIFT-POUND}'h Bb VcI
{$f0}{$e5}h,o/p


/{SHIFT-POUND}
*/jjj{$f0}Mh ;{CBM-I}] z&E {CBM-+}[{CBM-G}\ VcE{CBM-N}H{CBM-POUND}H8{$e9}lS.{SHIFT-POUND}h $, C I/{CBM-A}E Pl+{CBM-POUND}{SHIFT-POUND}o{CBM-I}
{$f0}{SHIFT-POUND}h
7
{SHIFT-POUND}

~{SHIFT-POUND}
{CBM-I}
 H~{CBM-I}{SHIFT-POUND}

 {SHIFT-@}~{CBM-I}* {SHIFT-POUND} {CBM-X}~{CBM-I}
 {SHIFT-POUND}
 U~l
0:ob.rp








7


run paint










































































































































































92:  216,255: {$fe} 15: {$fe}"ob.boot rp",p(Q("0c00")): {$f9} 1,G(133): {$f9} 3,G(134): {$f9} 5,G(135):  Q("0c00")
p
 a{CBM-R}1 {CBM-M} a{CBM-R}2: "0:ob.rp",8,1
z
 4352
















































































































{CBM-I}
 {CBM-Z}{$fc}~I{$e2}{$f0}{CBM-I} ,V!{SHIFT-POUND}
 {CBM-Y}{SHIFT-POUND}+P{SHIFT-POUND} {$60}{SHIFT-POUND} {$60} a {CBM-B}
x
 L

X{CBM-Z}{CBM-Z}{SHIFT-POUND}*{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}x{SHIFT-POUND}, 7{CBM-Z},!P 2 T =?,{CBM-Z} {SHIFT-POUND}
 O$ {$ef}{CBM-Z}U P {CBM-X}l IP {CBM-A}IP {CBM-L}P{$ed},
{CBM-Z}
0 G{SHIFT-POUND}
 2 T =?,0{SHIFT-POUND}P,
 {CBM-V}${CBM-Z} {$f0} de O$l{$f9}, {$ee}; R$ al

DcPFd{SHIFT-POUND}
~l{$ef}{CBM-+}f
~{CBM-E}?{CBM-+}g
~aHP{CBM-*}{$e6}@{$e6}bPY{$f0}{CBM-*}$,0{CBM-E}?{$60}{SHIFT-POUND}?{CBM-N}{CBM-+}fl{CBM-I}$,0a{$60}{CBM-I}a{CBM-O}{CBM-+}gl{CBM-P}H;H<H=H>h{CBM-E}=
JP{$f8}H{CBM-POUND}E={CBM-N}{SHIFT-POUND}
E>hh{CBM-G}<h{CBM-G};h{$60}h{SHIFT-POUND}h{SHIFT-POUND}2Ph{SHIFT-POUND}>h{SHIFT-POUND}5Ph{SHIFT-POUND}?h{SHIFT-POUND}0$,0XH
~H{$60} {CBM-B}
{$60}@
{CBM-Z},!P{CBM-W}
W{CBM-Q} {CBM-B}
\{$e8}
 {CBM-J}
X{$e8}
{$60}{SHIFT-POUND}>g RlF{SHIFT-POUND}?g Z {CBM-I}e @{CBM-G}elVab{CBM-I}a{CBM-O}
DcPFd0
 /HP{$f2}{$e6}bP










{$f8}~

{$f0}~




$0:yte
N

~and2byte
$,{CBM-Z}P){$7f}P{SHIFT-POUND}~P{CBM-Z}PP$"0oF" {$f2} W F{SHIFT-POUND}P Z{SHIFT-POUND} {CBM-R}X{CBM-I}~hh{SHIFT-POUND}2hhhh$,{SHIFT-POUND}h{CBM-G}$
0F!P{SHIFT-POUND}!{$ee}'P{CBM-Z}'P) {SHIFT-POUND}+{SHIFT-POUND}
"l1{$ea}'P(P)P*P{$60} {CBM-A}l+ {CBM-L}l+ {$f2}{SHIFT-POUND}P {CBM-U}{SHIFT-POUND}Xhix{$60}






~~

~~
~~


{$fd}{$fd}

{$fd}{$fd}
{$fd}{$fd} $E0#{CBM-@}7H


Ehh{$e6}i{CBM-+}H8{$e9}{CBM-W}{CBM-G}i{$e9}
{CBM-H}{$e8}{$e8}HFFPK q{SHIFT-POUND}!{CBM-I}# "  {$ec} yB{$60}{CBM-+}x{CBM-@}y{SHIFT-POUND}
G{$f0}1{CBM-+}z{CBM-G}x{CBM-Q}{CBM-G}y{CBM-D}{$e8}{$e8}zG{CBM-+}1xy{SHIFT-POUND}
#{CBM-+}z{CBM-X}{CBM-T}{CBM-D},P6 {SHIFT-POUND} $EpP {$fa}7lU Ye{CBM-G}G{$f0}{CBM-G}]I>{CBM-POUND} K$E! A$E{CBM-G}Ej{CBM-G}jIE{CBM-A} A{CBM-G}){$f8}jl /{CBM-G}EB{CBM-A}E]{CBM-G}E[{CBM-G}{$e5}\
{CBM-G}E{$60}{CBM-G}{$e5}Al?  {CBM-O}{SHIFT-POUND}c A{SHIFT-POUND} ubFcP{$f4}$E {CBM-A}MW{$f3}{$fa}
H${$e3}{$f7}f
P${$e4}{$e7}f
{$60}
Cg
{SHIFT-*}g
{CBM-N}g{CBM-M}
{CBM-Z}g{CBM-S}
{CBM-A}g{CBM-J}
{CBM-W}g
p
zg
tg
{$60}g
(PQg










?
bb

bf
ck
'bp
{CBM-L}dx
{CBM-C}d{$60}
{CBM-A}dE
{CBM-N}d



? w!/ {SHIFT-POUND}!; R!e
Z7q
W7[ !{$60}
47D !J
(Q
!(
p{$f0}
{CBM-B}."
.{CBM-C}
n.{CBM-H}
K9{CBM-O}
u9{CBM-B}
i9E c!
S
9V
9{SHIFT-+}
9
({CBM-R} K!{CBM-Y}
?9{CBM-T}
Q9
8P69
8
g7
j7
m7
[7
_7
C7{CBM-M}
O7
{$60}Y
{CBM-@}
{CBM-N}
0PP7


{CBM-A}
{CBM-A}!d"{CBM-H}!V"{CBM-U}!
{CBM-C} {CBM-X}{CBM-I}
z{$e8}G{CBM-Z}U P{CBM-I}{SHIFT-@} "lk$,H
~H{CBM-POUND}H{CBM-N}H@{SHIFT-POUND} {$f7}{CBM-I}?P{SHIFT-POUND}#{SHIFT-POUND}Q ${CBM-I}P
{SHIFT-POUND}
#{SHIFT-POUND}y ${CBM-I}_{$60}C {CBM-B}[

 Ly${SHIFT-*}[
 LE$[
 {CBM-B}{$f8}_
N{$ee}{$f8}_{SHIFT-POUND}
{$fe}_{SHIFT-POUND}{$60}~_{$60}{CBM-Y}











w-{$fe}




@H
@



{CBM-Y}














;~{CBM-N}{CBM-N}H
X{CBM-N}{CBM-N}


 O{$fb}{$60} %:{SHIFT-POUND}{$fe},{SHIFT-POUND}-E
PX {$ec}{SHIFT-POUND}
x{$60}{SHIFT-POUND} ${$f0}$08{$60}{$60}{$ee}h{SHIFT-POUND}
~$,0{SHIFT-POUND}6Hx{$60}{CBM-S}Pl{CBM-I}
P{$60}J54{SHIFT-POUND}
{CBM-I}PE5JF4JP{$f6}{CBM-N}{CBM-G}4{$60}{SHIFT-POUND}J0
l*{$60}456{SHIFT-POUND}
7{SHIFT-POUND}
9 4&5*&9hE6{CBM-G}9{$e5}79H{$e5}6h{$e6}4HP{$e4}8{CBM-G}4{$60}{SHIFT-POUND}
9 f9JF5F4E6h{CBM-G}7E99HP{$e9}8{CBM-G}5{CBM-@}4{$60}h{CBM-G}^7HIh{CBM-@}7JHIP{$fa}{$60};<
{CBM-E};){$7f}JH({$f4}{$60}{SHIFT-POUND}${CBM-I}%
 $Ep0*{CBM-G}CIC{$e6}D{CBM-E}C{CBM-N}H{CBM-E}C  $E07{SHIFT-POUND}%J{CBM-G}hE[{$f0}F7 ;{CBM-Z}
{CBM--}M
{CBM--}P{$f8}){CBM-POUND}{CBM-O}{CBM-V}P{CBM-POUND}{CBM-G}I{CBM-A}{$e6}{SHIFT-POUND}NOPO{$f0}{$60}I#{CBM-A}{$e6}{CBM-V}N{CBM-O}Ol2{CBM-V} {CBM-O}{$e1}$${$60}E
I{CBM-A}{SHIFT-POUND}{$fe}{CBM-@}E{CBM-@}E{$f0}
E{SHIFT-POUND}
${SHIFT-POUND}~E{CBM-+}{CBM-@}{$e4}{$e5}{CBM-A}{CBM-+}{CBM-@}{$e4}{$e5}{CBM-A}{CBM-G}8{$e9}$#){$f8}{CBM-G}{$e9}
{CBM-G}I
P{CBM-Z}P){$fe}P{CBM-G}
8{$e9}2$#){$f8}I2P{$60} {CBM-Z}
{CBM--})?
{CBM--}{CBM-I}F{$ea}{$ea}{$ea}JP{$fa}{CBM-Z}T{CBM-D}{SHIFT-+} {$f0}{SHIFT-+}i~Ih{CBM-Z}T{CBM-D}Z {$f0}Z{CBM-N}Hl2 {CBM-I}
{$e4}H{CBM-A}n{CBM-G}{SHIFT--}{CBM-W}{CBM-G}{$fd}{CBM-H}{$e8}{$e8}{CBM-A}{$ee}j1P{CBM-G}j8{$e5}]jjj1$EP&

E1I{CBM-POUND}{CBM-E}xH{CBM-E}x{CBM-N}H{CBM-E}x({$f0}{CBM-POUND}l578{CBM-+}1{CBM-N}l {SHIFT-POUND}
{$f0}{SHIFT--}{CBM-+}z{$f0}$Ep G {CBM-T}${CBM-+}z{CBM-C}{CBM-N}{CBM-X}{SHIFT-POUND}JJz{CBM-N}{SHIFT-POUND}
Glk O$lF{CBM-Z}!P)M,{$f0}h 8H {$7f}{$60}{CBM-Z}!P),!P



V{$60}


























@
[{CBM-@}{CBM-POUND}{CBM-Z}
l:{CBM-J}
{$ee}9{SHIFT-@}
{CBM-G}9{CBM-V}gC
b:IXM
{CBM-P}5T
T5U
o9h
x{$f6}
*:{$fb}
*:
*:h
 {$ec}J{$f0}Qp
0P?lp
8PMlh
HW
h{CBM--}
h{$e1}
-h{$e8}
{$fb}gh
0P1:h
8P_=










H
{$f3}{CBM-T} {CBM-POUND}
"m){CBM-B}!{$ef}!


{CBM-U}
@{$e2}!
{CBM-@}){$e9}!
{CBM-N})




{CBM-U}
({$fe}!
@*"
i*"
f*"
c*"
l*"
7*$"
=*0"
:*="
0*{CBM-U}
0{$fe}!
{$7b}+"
{CBM-I}+"
+"
+"
N+"
{CBM-N}+$"
{CBM-M}+0"
{CBM-Z}+
{CBM-+}{CBM-M}


%
{CBM-T}"{CBM-C}"L{CBM-+}"{CBM-N}"F{CBM-S}"{$e4} {CBM-R}"X{SHIFT-POUND} ${$f0}{$f7}$0{$f1}{$f1} {CBM-B}
?

 Ly$

{SHIFT-POUND}${$f8}{SHIFT-POUND} e{SHIFT-POUND} e{SHIFT-POUND}
 P!P{CBM-Z}
{SHIFT--}
{SHIFT--}{SHIFT-POUND}P{SHIFT-POUND}P{SHIFT-POUND}HP$,{CBM-G}){$fb}{$60}{CBM-Z}
{SHIFT--}){$fc}
{SHIFT--}X {CBM-O}{CBM-Q}I{CBM-N}{$f0}
P{$f3}x{$60}{SHIFT-POUND}
{CBM-Z} Pi P q{CBM-Z}, {$7f}$)0!{SHIFT-POUND}   P{CBM-Z}P){$ef}P{SHIFT-POUND}@)+$,{CBM-G}{$60}{SHIFT-POUND}{$e5}  P{CBM-Z}PP{SHIFT-POUND}P{SHIFT--} L

{$60}
l{$7f}YZ L {CBM-K}
{$60}?{$f9}
{$fd}H{SHIFT-POUND}
{$e6}7 {$7c}{CBM-@}7{CBM-G}6l{SHIFT-POUND}
M,P{SHIFT-POUND}n{$ee} v ~d{$e6}d{CBM-@}dD7{$f0}{$60}{CBM-O}I{CBM-POUND}{SHIFT-POUND}{$f1}{CBM-I}"u{CBM-I} {CBM-E} {CBM-E}t$)i{CBM-N}r{$f3} el LJI'
{$60}{SHIFT-POUND}Err{$e6}s{$60}{CBM-G}[h{CBM-G}\i{SHIFT-POUND}Ejj{$60}{SHIFT-POUND} $EP
 {CBM-A} v{CBM-+}^J{$60} e {CBM-E}ri~r{$f7}0{$ec}{CBM-G}j8{$e9}E]IEB{CBM-A}{$60}8{$60}{CBM-G}xC{CBM-G}yD {CBM-E}x[
h
{$f5}{CBM-G}^ I{$e8}E[{$60}E\A{CBM-G}_E)_F{SHIFT-POUND}
H{SHIFT-POUND}{CBM-I}    {$ec} qP$E q {CBM-W}8{$e5}){$7f}I@{CBM-A}jj{$f0}P
{SHIFT-*}I~{$f0}8J8J{CBM-@}{$60}{SHIFT-POUND}
{$60}{CBM-Z}
{CBM--})MY{$f0}Y


{CBM-G} {$60}{SHIFT-POUND}
,{SHIFT-POUND}{$60}){$7f}I@I {CBM-A}@{$60})~){$7f}@{$60}I{$60})_{$60})?{$60} h{CBM-O}

){$f8}r{CBM-O}
s{CBM-O}
jj){$fe}{CBM-POUND}{CBM-O}{$fc}4Err{CBM-G}sY{$fd}4s{$60} h{CBM-O}
j{CBM-O}

Jjjh{CBM-O}
jj){$fe}{CBM-POUND}HY.5l{CBM-O}/5I
m{CBM-G}m)Xo{CBM-G}ln{$60}u{CBM-S}t EttEuu{$60} {CBM-I}d @l{$e5}{SHIFT-POUND}?gf , {CBM-I}d @ Zl{$e5} R +{CBM-O}{$f3}
{$f7}
















ow_JRZ














++++{CBM-Q}

""""{CBM-I}

,,,,{CBM-D}

(((({CBM-POUND}

)))){SHIFT-POUND}

*
*
{CBM-N}

78c
gl
gG
{$e7}g
UgB$w
{CBM-R};
"m
"m"
"m'
"mP
(
{CBM-S}
>m{SHIFT-@}
>mB
>mP
0{CBM--}
{$ee}l{$e4}
{$ee}l{$ec}
{$ee}lP
8{$f7}
m~
m
m












I!{CBM-L}"
:&{CBM-Y}"
{$f5}%{CBM-U}"
"&{CBM-O}"
h&








??3?

00?33?


?000?

?33?


?3?0?

?


?33??
00?333





?
003<33




3??33


?3333


?333?


?33?00

?33?

?3000


?0??

?


3333?


3333


333?3


3??3


333?<

?0?


3?3

??~{$de}{SHIFT-POUND}{$60} {$ea}{SHIFT-POUND}{$e4}{CBM-I}~$,0
 {$ef}  L
 M{CBM-G}h{CBM-+}{CBM-G}({$60} {$ea}{SHIFT-POUND}L{CBM-I}~PV ){SHIFT-POUND}{$7f} {$ea}{SHIFT-POUND}C{CBM-I}~PH c{SHIFT-POUND}
 {$ea}{SHIFT-POUND}R{CBM-I}~P{SHIFT-@} {$ea}{SHIFT-POUND}{SHIFT-@}{CBM-I}~P{CBM-E} {$ea}{SHIFT-POUND}{CBM-X}{CBM-I}~P{CBM-POUND}{CBM-N}  n{SHIFT-POUND}
 w ) {$ea}{SHIFT-POUND}{SHIFT-*}{CBM-I}~P$,0{$60} {$ea}{SHIFT-POUND}H{CBM-I}~P
{CBM-I} {$ea}{SHIFT-POUND}{$f0}{CBM-I}~P{$f0} {$ea}{SHIFT-POUND}I{CBM-I}~P{$e7} {$ea}{SHIFT-POUND}F{CBM-I}~P{$de} {$ea}{SHIFT-POUND}U{CBM-I}~PU {$ea}{SHIFT-POUND}X{CBM-I}~PL {$ea}{SHIFT-POUND}{CBM-I}~PC

~n
P
X















P






(1023):(c6){CBM-M}ml{CBM-R}4864
*,{$ec}mo{CBM-R}B(1021):da{CBM-R}B(1022):pd{CBM-R}4:ps{CBM-R}7:pt{CBM-R}5:j${CBM-R}G(13):60
9,{$f6}2350:710
w,
480:(e0){CBM-A}(a${CBM-W}{CBM-E}"y"){CBM-M}1300
M,
2490:2650:2690
Y, 8:710
{CBM-N},"fill out form:":2280:2490:2650:2690
R,("print a blank form":2630:2690
{$f3},2120:"3 = sum3"j$"4 = total1"j$"5 = total2"j$"6 = total3"j$"7 = grand ";
k7>"total"j$"8 = keyboard"j$"9 = date":100:a{CBM-R}E(a$):a{CBM-E}9{CBM-M}a{CBM-R}0
K7hft%(ff){CBM-R}a:a:a{CBM-W}4{CBM-M}np%{CBM-R}np%{CBM-N}1
S7rff
7\np%{CBM-R}0:x{CBM-R}0{CBM-@}nf%:ft%(x){CBM-W}4{CBM-M}np%{CBM-R}np%{CBM-N}1
{CBM-K}7Fx
{CBM-B}7Pff{CBM-R}0{CBM-@}nf%:ft%(ff){CBM-E}3{CBM-M}2200
{$fe}7Z"){CBM-R}G(14):f$(1){CBM-R}"expanded"
0q$(2){CBM-R}G(15):f$(2){CBM-R}"condensed"
>0"q$(3){CBM-R}e${CBM-N}G(83){CBM-N}G(0):f$(3){CBM-R}"superscript"
H0,q$(4){CBM-R}e${CBM-N}G(83){CBM-N}G(1):f$(4){CBM-R}"subscript"
06q$(5){CBM-R}e${CBM-N}G(52):f$(5){CBM-R}"italics"
{CBM-O}0@q$(6){CBM-R}q$(1){CBM-N}q$(5):f$(6){CBM-R}"expanded italic"
{$e8}0jq$(7){CBM-R}q$(2){CBM-N}q$(5):f$(7){CBM-R}){CBM-M}1040
{$fe}:T"ok"j$"deleting: "{CBM-N}in$:15,"s0:"{CBM-N}in$:280:1040
4;{$7e}"edit a document":480:(e0){CBM-A}(a${CBM-W}{CBM-E}"y"){CBM-M}1040
I;ni${CBM-R}in$:2280:tf${CBM-R}"w":in${CBM-R}ni$:15,"s0:"{CBM-N}in$:280
{$7f};400:(e0{CBM-R}0){CBM-M}560
; 8:1040
A;{CBM-+}"view a document"a${CBM-R}"y":480:a${CBM-W}{CBM-E}"n"{CBM-M}104
them now? y/n":100:((a${CBM-R}"y"){CBM-N}2)2020,950
"4n"save a form":1990:in${CBM-R}""{CBM-M}950
_4x(c6){CBM-M} {$fe}(in$),b0,u(du%),p39936{CBM-@}p45056:{$fe}15:950: c-128
M4B350:950
4L1940:in${CBM-W}{CBM-E}""{CBM-M}710
4V610
{CBM-@}41940:in${CBM-W}{CBM-E}""{CBM-M}950
{CBM-Z}4610
S4"load a form":1990:in$f%:a{CBM-R}C(ff$(x)):b{CBM-R}fl%(x)
{$f8}=N
(a{CBM-W}b){CBM-M}ff$(x){CBM-R}ff$(x){CBM-N}I(a$,(b{CBM-Q}a))

>X
:
)>
(ml{CBM-N}9):ff{CBM-R}0{CBM-@}nf%:in${CBM-R}ff$(ff):320:
?>
4,pd,ps:5,pd,pt
A>
"print to line#: ";:il{CBM-R}2
>
190:l{CBM-R}E(in$):(l{CBM-W}1) {CBM-A} (l{CBM-E}49){CBM-M}l{CBM-R}49
{CBM-Q}>{CBM-N}
x{CBM-R}0{CBM-@}l:4,j$;:5,q$(0){CBM-N}fc$(x);
I>{CBM-H}
255,(x):":"
-<"     :    :
8-f"     :    :    set printer
p-p"    {CBM-Q}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-W}
J-z"    {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
{CBM-+}-Dp$"< 1 >  =  erase all codes"p$"< 2 >  =  enter codes
{CBM--}-Np$"< 3 >  =  load codes"p$"< 4 >  =  save codes
ask for "{CBM-N}nf$(ff){CBM-N}j${CBM-N}"in what order (1 -"{CBM-N}D(np%){CBM-N}"): "
"8il{CBM-R}3:190:a{CBM-R}E(in$):(a{CBM-E}np%){CBM-M}a{CBM-R}0
08np%(a){CBM-R}ff
88ff
L8{CBM-I}"name for database: ":il{CBM-R}15:190:in${CBM-R}""{CBM-M}950
 8{CBM-D}db${CBM-R}in$:"insert disk to receive database";:90
S8{CBM-L} 8:8,du%,8,"/"{CBM-N}db${CBM-N}",s,w":280:"condenced italic"
1tq$(8){CBM-R}q$(3){CBM-N}q$(5):f$(8){CBM-R}"superscript italic
g1^q$(9){CBM-R}q$(4){CBM-N}q$(5):f$(9){CBM-R}"subscript italic"
S1H"select font changes for each line."
{$7d}1Ra${CBM-R}""
{SHIFT-*}1{$7c}"line # 1-50 <cr=exit> ";a$:a{CBM-R}E(a$):(a{CBM-W}1){CBM-A}(a{CBM-E}50){CBM-M}1330
J1a{CBM-R}a{CBM-Q}1
{$eb}1:x{CBM-R}0
K;{CBM-A}2470
{$e7};{SHIFT-@}t1{CBM-R}0:t2{CBM-R}0:t3{CBM-R}0:x{CBM-R}0{CBM-@}nf%
<Dft%(x){CBM-R}1{CBM-M}t1{CBM-R}t1{CBM-N}E(ff$(x))
#<Nft%(x){CBM-R}2{CBM-M}t2{CBM-R}t2{CBM-N}E(ff$(x))
a<Xft%(x){CBM-R}3{CBM-M}t3{CBM-R}t3{CBM-N}E(ff$(x))
h<{$e2}x
u<{$ec}y{CBM-R}0{CBM-@}nf%
P<{$f6}ft%(y){CBM-R}4{CBM-M}ff$(y){CBM-R}D(t1)
<

ft%(y){CBM-R}5{CBM-M}ff$(y){CBM-R}D(t2)
{CBM-+}<

ft%(y){CBM-R}6{CBM-M}ff$(y){CBM-R}D(t3)
G<
ft%(y){CBM-R}7{CBM-M}ff$(y){CBM-R}D({CBM-R}""{CBM-M}
{$fc}4 8:8,du%,8,in${CBM-N}",p,r":280: 8:e0{CBM-M}
5{CBM-POUND}nf%{CBM-R}0:(c6){CBM-M} 580
+5{CBM-R}787,234:(in$),du%,1
95{CBM-C}590:610
D5F"form name: ";:il{CBM-R}16:190:in${CBM-R}""{CBM-M}
{$7d}5Pin${CBM-R}"$"{CBM-M}1720:1990
5Z
5{$e4}430
 5{$ee}np%{CBM-R}0:ff{CBM-R}0{CBM-@}nf%
Y5{$f8}li{CBM-R}B(sc{CBM-N}ff):co{CBM-R}B(sc{CBM-N}256{CBM-N}ff):fl%(ff){CBM-R}(B(
l(ml{CBM-N}12):: 4: 5
{$f6}>{CBM-V}
"print again  n ";a$:a${CBM-R}"y"{CBM-M}2700
~>H
710


(y){CBM-R}9{CBM-M}ff$(y){CBM-R}D(mo){CBM-N}" /"{CBM-N}D(da)
*=2
y
0=<

]=f
a${CBM-R}"....................":a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
=p
x{CBM-R}0{CBM-@}nf%:ff$(x){CBM-R}H(a$,(fl%(x)))::
{CBM-E}=z
a${CBM-R}"                    ":a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
S=D
x{CBM-R}0{CBM-@}n
.X100:(E(a$)) 1420,1490,1440,1460
.710
.1430:1330
6.x{CBM-R}0{CBM-@}49:fc$(x){CBM-R}""::
q. tf${CBM-R}"r":370:e0 {CBM-M}1480
.{CBM-N}8,pd:8,ps:8,pt:x{CBM-R}1{CBM-@}50:8,pc$(x)::1480
.{CBM-H}tf${CBM-R}"w":370:e0 {CBM-M}1480
L.{CBM-V}8,pd:8,ps:8,pt:x{CBM-R}1{CBM-@}50:8,G(34){CBM-N}pc$(x):
Y.H 8:1330
e0{CBM-M}410:2220
{$e5}8{SHIFT-*}8,nf%:8,np%
9Jx{CBM-R}0{CBM-@}nf%:8,nf$(x):8,ft%(x):8,fl%(x):8,np%(x)
$9Tx: 8
-9{$de}950
c9{$e8}x{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x)
s9{$f2}il{CBM-R}fl%(y):
9{$fc}""{CBM-N}nf$(y){CBM-N}": ";:il{CBM-R}fl%(y):190:in${CBM-W}{CBM-E}""{CBM-M}ff$(y){CBM-R}in$
{CBM-M}9 ff$(y){CBM-R}""{CBM-M}ff$(y){CBM-R}" "
{CBM-A}9x:
{CBM-L}9:
F9$2350:100{CBM-@}9:D(x){CBM-N}" = "{CBM-N}f$(x):
%2"font # <cr = normal> ";a$:b{CBM-R}E(a$):b{CBM-W}1{CBM-A}b{CBM-E}9{CBM-M}b{CBM-R}0
<2{CBM-@}fc$(a){CBM-R}q$(b):1650
k2{CBM-S}1720:860
2{CBM-U}"directory": 1:1,du%,0,"$0":280:e0{CBM-M}1740
2B(ml{CBM-N}21)
2L 1:90
M2V"disk command: ";:il{CBM-R}32:190:in${CBM-R}""{CBM-M}860
{$f2}2 t1{CBM-N}t2{CBM-N}t3)
{$fd}<
ft%(y){CBM-R}8{CBM-M}nf$(y){CBM-N}": ";:il{CBM-R}fl%(y):190:ff$(y){CBM-R}in$
#=(
ft%(y){CBM-R}9{CBM-M}ff$(y){CBM-R}D(mo){CBM-N}" /"{CBM-N}D(da)
*=2
y
0=<

]=f
a${CBM-R}"....................":a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
=p
x{CBM-R}0{CBM-@}nf%:ff$(x){CBM-R}H(a$,(fl%(x)))::
{CBM-E}=z
a${CBM-R}"                    ":a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
S=D
x{CBM-R}0{CBM-@}nsc{CBM-N}512{CBM-N}ff)){CBM-N}1
6"field #"{CBM-N}D(ff){CBM-N}j${CBM-N}"at line: "{CBM-N}D(li){CBM-N}" & column: "{CBM-N}D(co)
:6"field length:"{CBM-N}D(fl%(ff))
K6"name for field: ":il{CBM-R}16:190:in${CBM-R}""{CBM-M}950
{$7b}6 nf$(ff){CBM-R}in$
C6*"select field type:"j$"0 = alphanumeric"j$"1 = sum1"j$"2 = sum2"
74"

 dsave"@run paint"
;
 boot program for run paint.

 a{CBM-R}0 {CBM-M} a{CBM-R}1: "0:sys.stuff.h",8,1:  load hires brushes, patterns.
{CBM-+}(
c64{CBM-R}{CBM-Q}1:  B(65532){CBM-W}{CBM-E}226 {CBM-M} c64{CBM-R}0
{CBM-J}2
 c64 {CBM-M} 80
{$ec}<
 L(.){CBM-R}5 {CBM-M} ""G(15)"enable 40 column monitor":
{$60}f
{$de} 0:  2564,1/Rpd{CBM-R}4:ps{CBM-R}5:"printer device #: 4 ";a$:a{CBM-R}E(a$):(a){CBM-M}pd{CBM-R}a
t/{CBM--}"secondary address: 7 ";a$:a{CBM-R}E(a$):(a){CBM-M}ps{CBM-R}a
/{$e6}"transparent secondary: 5 ";a$:a{CBM-R}E(a$):(a){CBM-M}pt{CBM-R}a
/{$f0}1430
{CBM-POUND}/{$fa}e${CBM-R}G(27)
O/q$(0){CBM-R}e${CBM-N}G(64):f$(0){CBM-R}"normal font"
{$f0}/q$(140
{$fb}9."name of database: ";:il{CBM-R}15:190:in${CBM-R}""{CBM-M}
:8H(in$,1){CBM-R}"/"{CBM-M}in${CBM-R}I(in$,(b{CBM-Q}1))
7:bin${CBM-R}"$"{CBM-M}1720:2350
h:ldb${CBM-R}in$:500
:v"add a document":2280:tf${CBM-R}"w":550:(e0{CBM-R}0){CBM-M}560
:{$60} 8:1040
H:J"delete a document":480:(e0){CBM-A}(a${CBM-W}{CBM-E}"y"a{CBM-R}E(in$):(a{CBM-E}7){CBM-M} du%{CBM-R}a:240:860
3{$ea}240:15,in$
3{$f4}280:(e0{CBM-R}0){CBM-M}410
"3{$fe}860
<380:"";:(ml):1820
r380:"";:(ml{CBM-N}3)
L3nf%{CBM-R}B(255):nf%{CBM-W}1{CBM-M}950
Z3&nf%{CBM-R}nf%{CBM-Q}1
30(sc{CBM-N}1023),123
B3:db${CBM-R}"":"you have created"{CBM-N}D(nf%{CBM-N}1){CBM-N}" fields"
{$fa}3d"define
.
53281,1:53280,1:B(787){CBM-R}123{CBM-M}1250:610
x
B(787){CBM-R}234{CBM-M}787,123:c6{CBM-R}B(1023):1980
{$7d}(
1023,c6:(c6{CBM-R}0){CBM-M}55,0:56,154:
2
1180
{CBM-+}<
 72,69,76,76,79,0,0,0,0,0
Gf
:x{CBM-R}0{CBM-@}9:a:(ml{CBM-N}25{CBM-N}x),a::
{$ef}p
x{CBM-R}B(53281):53281,0:"":53281,x:
z
:"hit a
{$60}{CBM-S}'P{$60}N+N'{$60}8 {$f0}~
{$f0}{SHIFT-POUND} R~N)l{CBM-S})PlN,N)l {$ec}{CBM-Z}) {$e7}{CBM-D}'H{SHIFT-*}p{$f0}{CBM-E}{$fb}{$fb}HP{$f3}{SHIFT-POUND} {$fb}l{CBM-Z}'IoPl{CBM-Z}) {$e7} o{CBM-E}{$fb}H{$fb}L'P{$f4}{SHIFT-POUND} {$fb}l8 {$f0}~
 {$f0}~{SHIFT-POUND}
'+8 {$f0}~ {$f0}{SHIFT-POUND} R~{$ee})l{CBM-S}) 1Pl{$ee},{$ee})l ~8H{$e9}
{CBM-A}{$fb}I
I0hI0{CBM-POUND}H{$60} {$e4}~{$f0}{$fb}{$60}{CBM-G}SIP3 .
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND} {$fb}HP{$fb}{$e6}{$fc}{CBM-+}{$fc} {CBM-A}P{$f3}{CBM-Z}!Ph{SHIFT-POUND}!P{SHIFT-POUND} R~H!P
{CBM-R}N
(in$):310:254,hi:253,lo:4870:
* ^255,du%
a Ha${CBM-R}in$:49170:280
v R"filename:";
T {$7c}il{CBM-R}16:190:in${CBM-R}""{CBM-M}e0{CBM-R}1:
 in${CBM-R}"$"{CBM-M}1720:370
{CBM-D} 8,du%,8,in${CBM-N}",s,"{CBM-N}tf$:280
{$eb} j$"disk error: "{CBM-N}D(e0){CBM-N}", "{CBM-N}e1${CBM-N}", "{CBM-N}D(e2){CBM-N}", "{CBM-N}D(e3):90
{$f5} {CBM-@} 440

{SHIFT-POUND}
XV{SHIFT-POUND}pU {CBM-Z}W{$fb}{CBM-Z}X{$fc}{$60}

I^P{$f3}{CBM-+}~
{$e8}{$f0}~{$60}HH{CBM-G}~l6 .
{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{CBM-A}{$fe}{CBM-E}{$fb}{$fd}HP{$f9}{$e6}{$fc}{$e6}{$fe}{CBM-G}{$fc}I{CBM-A}P{$ef}l6 .{CBM-G}~ {SHIFT-+}{CBM-I} I~
{CBM-E}{$fb}I_{$f0} R~H{SHIFT-*}pP{$f2} L~l6
X
{CBM-O}{$f0} R~HP{$f5}{CBM-D}XlM
){$60}P{SHIFT-POUND} {$60}{CBM-Z}0){$60}I{$60}{$f0}*.JNn{CBM-Z}{$60}{CBM-Z})_{$60} .{CBM-+}~{CBM-X}
h{CBM-X}
 {SHIFT-+}HE{$fb}{$e6}{$fc}{$fb} {$ed}
{CBM-I}{SHIFT-POUND}{$fd} T~{$fb}HD{CBM-W}{$f2}l6
{CBM-I}{SHIFT-POUND}{$fd} T~

 brown"
0$p$"< 1 >  =  form editor"p$"< 2 >  =  data base
C$p$"< 3 >  =  printer"p$"< 4 >  =  disk drive
${CBM-POUND}ff{CBM-R}0:100:(E(a$)) 950,1040,710,860
${CBM-R}610
${CBM-C}
{CBM-F}$F120:"":"
S$P"     :    :

%Z"     :    :
   JK     disk drive menu
%'Z"       {CBM-K}{CBM-K}
>'"       {CBM-C}{CBM-V}   "
W'p$"< 1 >  =  directory "p$"< 2 >  =  dos commands"
'p$"< 3 >  =  error channel"
{SHIFT-@}'{CBM-I}100:(E(a$)) 1710,1750,1780
C'{CBM-D}610
{$e3}'{CBM-L}120:"":"     {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
{$f9}'{SHIFT-*}
ny key to continue"
$D
{CBM-K}a$:a${CBM-R}""{CBM-M}100
*N

{$60}X
""{CBM-N}G(142)"    U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I

"    {SHIFT--}        {SHIFT--} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--}
{CBM-V}
"    {SHIFT--}        {SHIFT--}{CBM-A}{CBM-X}                 {CBM-Z}{CBM-S}{SHIFT--}
{$ef}
"    {SHIFT--}        {SHIFT--}{SHIFT--}                   {SHIFT--}{SHIFT--}

"    {SHIFT--}

.{SHIFT-POUND}{SHIFT-*}{$f8}{SHIFT-POUND} R~{SHIFT-POUND}
')+, ' {CBM-Z}) {$e7}  Ah HIPl{CBM-POUND}I{$f0}{$f9}I
PlTIPlGIPl
IP lIPlIPl{SHIFT-*}IPl
IPl{$e6}IPl.IPlo l{SHIFT-*}{CBM-D}'{$fb}{$60}
{SHIFT-POUND}{CBM-G}SI{$f0} FNP{$f8}{$60} {$ec}NP{$f8}{$60} .{SHIFT-POUND}
{$f8} {$7d}~

Wait a moment.
Reading screen...


{SHIFT-POUND}
~ {$e7}
{CBM-E}{$fb}I^P ~H{SHIFT-*}p{$f2}{$e6}{CBM-G}M%
7!{CBM-S}a{CBM-R}nf%{CBM-N}1: ff$(a),nf$(a),ft%(a),fl%(a),np%(a),fc$(51),q$(51):
w!{CBM-U}(c6){CBM-M}51,B(49):52,B(50):
Q!B49,B(47):50,B(48):
Z!L570
{CBM-N}!Vx{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x): nf$(y){CBM-N}" :"{CBM-N}ff$(y):x:
E! tf${CBM-R}"r":550:(e0){CBM-M}540
{$f2}!{$ea}:460: 8:"is this it? n ";a$:
&
ata base"p$"< 2 >  =  add a record"
i*{$60}p$"< 3 >  =  delete a record"p$"< 4 >  =  change a record"
J*Jp$"< 5 >  =  view a record"
*T100:(E(a$)) 2340,2390,2410,2430,2470
*{$7e}610
{CBM-J}*2350:db${CBM-R}""{CBM-M}610
{CBM-B}*1040
{CBM-*}*il{CBM-R}2:"month (1-12): ";
+
  printer  menu
%{$e4}"    {CBM-Q}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-W}
1%{$ee}"    {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
a%{$f8}db${CBM-R}""{CBM-M}840
[%260:(qx%{CBM-W}{CBM-E}123){CBM-M}1900
Y%"current dbase: "{CBM-N}db$
{CBM-F}%p$"< 1 >  =  change data base"p$"< 2 >  =  load a form
& p$"< 3 >  =  fill from data base"p$"<
"     {SHIFT--}   {CBM-Q}{CBM-S}
)(J"     {SHIFT--}   {SHIFT--}{SHIFT--}  form/field editor "
?(T"     {CBM-Z}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-X}{SHIFT--}
x({$de}"      {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} "
({$e8}p$"< 1 >  =  create new form"p$"< 2 >  =  edit old form"
P({$f2}p$"< 3 >  =  load a form"p$"< 4 >  =  save a form"
{$fc}({$fc}fl{CBM-R}1:100:(E(a$)
       {SHIFT--}{CBM-Z}{CBM-S}                 {CBM-A}{CBM-X}{SHIFT--}
m{CBM-N}
"    {SHIFT--}        {SHIFT--} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {SHIFT--}
{$7c}{CBM-H}
"    J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K":
{CBM-V}
in${CBM-R}""
{CBM-L}H
"{CBM-I}";:100:a{CBM-R}F(a$):b{CBM-R}C(in$):a{CBM-R}13{CBM-M}" ":
{CBM-*}R
a{CBM-R}20{CBM-M}b{CBM-M}" ";:in${CBM-R}H(in$,b{CBM-Q}1):200
{$fb}{CBM--}
(a {CBM-P}127){CBM-W}32{CBM-A}(b{CBM-E}il){CBM-M}20
{$e4}{CBM-G}~l6{CBM-G}{CBM-+}~

{CBM-I}
{$e8}H{SHIFT-*}p{$60}{CBM-E}{$fb}I^P{$f3}{CBM-+}~
{$e8}{$f0}~{$60}HH{CBM-G}~l6 .
{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{CBM-A}{$fe}{CBM-E}{$fb}{$fd}HP{$f9}{$e6}{$fc}{$e6}{$fe}{CBM-G}{$fc}I{CBM-A}P{$ef}l6 .{CBM-G}~ {SHIFT-+}{CBM-I} I~
{CBM-E}{$fb}I_{$f0} R~H{SHIFT-*}pP{$f2} L~l6
X
{CBM-O}{$f0} R~HP{$f5}{CBM-D}XlM
){$60}P{SHIFT-POUND} {$60}{CBM-Z}0){$60}I{$60}{$f0}*.JNn{CBM-Z}{$60}{CBM-Z})_{$60} .{CBM-+}~{CBM-X}
h{CBM-X}
 {SHIFT-+}HE{$fb}{$e6}{$fc}{$fb} {$ed}
{CBM-I}{SHIFT-POUND}{$fd} T~{$fb}HD{CBM-W}{$f2}l6
{CBM-I}{SHIFT-POUND}{$fd} T~
"{$f4} 8:8,du%,8,"/"{CBM-N}db${CBM-N}",s,r":280:e0{CBM-M}db${CBM-R}"":540
="{$fe}8,nf%:8,np%:430
R"x{CBM-R}0{CBM-@}nf%:8,nf$(x):8,ft%(x):8,fl%(x):8,np%(x)
Y"x
" 8:
{CBM-G}"&"document name: ";:380
P"0x{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x):8,G(34){CBM-N}ff$(y):x:
{$f5}":x{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x):8,ff$(y):
{CBM-+}190:mo{CBM-R}E(in$):mo{CBM-W}1{CBM-A}mo{CBM-E}12{CBM-M}mo{CBM-R}1
:+{CBM-A}"day (1-31): ";:190:da{CBM-R}E(in$):da{CBM-W}1{CBM-A}da{CBM-E}31{CBM-M}da{CBM-R}1
[+{SHIFT-@}1021,mo:1022,da:du%{CBM-R}B(186)
H+D787,123
 +N(c6){CBM-M}{$fe}"editor.128 ml",u(du%):{$fe}15:20: c128 only
{SHIFT-@}+X"editor.64 ml",du%,1
{$f4}+{$e2}du%{CBM-R}B(186):ml{CBM-R}49152:sc{CBM-R}39936:c6{CBM-R}B
4 >  =  fill from keyboard
o&*p$"< 5 >  =  print a blank form"p$"< 6 >  =  set printer codes
&4100:(E(a$)) 1270,1900,1280,1310,1320,1330
&>610
&h2350:db${CBM-R}""{CBM-M}610
{CBM-POUND}&r710
H&\120:"":"           {CBM-D}
{$de}&F"       UI

'P"
) 1800,1810,1920,1870
)610
%)120:"":"    {CBM-A}{SHIFT-*}{CBM-S}
;)"    {SHIFT--} {CBM-Q}{CBM-S} {CBM-A}{SHIFT-*}{CBM-S}
J)$"    {CBM-Z}{CBM-R}{CBM-X}{SHIFT--}_{SHIFT--}W{SHIFT--}   data base menu
)."     {CBM-Z}{SHIFT-*}{CBM-X} {CBM-Z}{CBM-E}{CBM-X}
)8"
{SHIFT-POUND})bdb${CBM-R}""{CBM-M}1160
G)l"current dbase: "{CBM-N}db$
*vp$"< 1 >  =  open a d
0
{$e6}
a$;:in${CBM-R}in${CBM-N}a$:200
%{$f0}
du%{CBM-W}7{CBM-M}du%{CBM-R}8
8{$fa}
 15:15,du%,15
{$60}(c6){CBM-M}{$fe}0:270:{$fe}15:: c-128 only!
Uqx%{CBM-R}B(sc{CBM-N}1023):
300:(e0){CBM-M}410
"
{CBM-G},15,e0,e1$,e2,e3:
G6hi{CBM-R}{CBM-J}(qr{CBM-Z}256):lo{CBM-R}qr{CBM-Q}(hi{CBM-D}256):
{SHIFT--}@255,ff:(c6){CBM-M}340
{$f1}ja${CBM-R}in$:49158:
 tqr
{CBM-W}H{CBM-I}{SHIFT-POUND}{$fd} T~hH{CBM-I}{SHIFT-POUND}{$fd} T~{$fe}H{$fd}{$60}{SHIFT-POUND}
'
{$60}{SHIFT-POUND}~'
{$60}
{SHIFT-POUND}
{$fb}{SHIFT-POUND}{CBM-A}{$fc}l/{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{CBM-D},{$f0}{CBM-G}{$fb}M${$fb}{$e6}{$fc}P{$f1}{CBM-Z}+E{$fb}{$fb}{SHIFT-POUND}
E{$fc}{$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND} '{CBM-E}{$fb} {$fd}{$f6}{CBM-G}{$fb}M${$fb}{SHIFT-POUND}
E{$fc}{$fc}{CBM-G}{$fd}I({$fd}{$e6}{$fe}NV{$60} l{CBM-B}{SHIFT-POUND}
YZ{CBM-I}NZNYNVNU{CBM-Z}WMYY{CBM-Z}XMZZJP{CBM--}{$60}{CBM-Z}UMSW{CBM-Z}VMTX{$60}







{CBM-I}
S{CBM-I}{CBM-A}TP
{CBM-I}
S{CBM-I} TW
x:
$#d{$fe}(in$),b0,u(du%),p39936:{$fe}15: c-128 only
m#n(ml{CBM-N}15):nf%{CBM-R}B(255):(nf%){CBM-M}nf%{CBM-R}nf%{CBM-Q}1
s#x
#Bp${CBM-R}G(13){CBM-N}"        ":240:120:"":"      form
{CBM-I}#L"     writer
K#V"                main menu
{$e1}#"       by
{$fa}#"    t.f File Padding? Y/N
(Default is YES, Stripping on)

 {CBM-B}{CBM-I}
InP{CBM-I}/4{$60}
 {$60}


Change Parity:
Current setting:
{CBM-Z}P None
l'I P
 Odd
l'I{$60}P Even
l'I P Mark
l'I P Space
l' ????

SELECT:

< 0 > = None
< 1 > = Odd
< 2 > = Even
< 3 > = oad!

 {CBM-*}{SHIFT-POUND} C~lT w {$60}{CBM-A}lT  {SHIFT-POUND} C~{SHIFT-POUND} C~ q L~ {$f2}{CBM-S}%{CBM-D}$ {$f0}~
 TRANSFER COMPLETE!
 CBM DISK BLOCKS:
n,4N+4{CBM-Z},4{CBM-S}+4 M{CBM-X}
 NUMBER OF ERRORS:
{CBM-Z}.4{CBM-S}-4 M{CBM-X}{SHIFT-POUND}
 R~l( l{$ef} .
4l{$ef}
cw ^ {$fd}


Upload a file TO someone!
-------------------------

SEisk Directory
< 2 > = Change Disk Drives
< 3 > = Read Error Channel
< 4 > = Send Disk Command



 {CBM-B}I1P
{SHIFT-POUND}$
{SHIFT-POUND}d)l{CBM-B})I3Pl+I2PlS+I4{$f0}{$60}


Enter Disk Command:
{SHIFT-POUND}c) e){CBM-Z}
I$Pl{CBM-B}){$ea}{SHIFT-POUND}{CBM-S}{CBM-V})  {SHIFT-@}~ {SHIFT-*}~{CBM-A}r{CBM-I} I~{CBM-A}k ~{CBM-Z}
I@{$f0}H{CBM-O}
{$f0} R~{$f5}{CBM-Z}{CBM-V}){SHIFT-@} {CBM-H}~{SHIFT-POUND}O ~
 {CBM-G}~
HI
P{$f5}{SHIFT-POUND}

s On / Off
< 0 > = Delete Key Value


 {CBM-B}I0I:{CBM-A}8{$e9}0{CBM-N}{CBM-X}$h{CBM-X}$h{$60}($$%&&''(({CBM--}XA%{$f2}{$7c}O



CHANGE SCREEN COLORS!

Press < 1 > to change FOREGROUND
and < 2 > to change BACKGROUND
colors. Any other key exits!


 {CBM-B}I1{$f0}I2{$f0}{$60}{$ee}${CBM-S}$ {CBM-I}
$ N$l${$ee}${CBM-S}$ {CBM-I}

3 > = Set REU Write Pointer
< 4 > = Load REU Buffer from Disk
< 5 > = Save/Send REU Buffer
==============================
Current REU Write Pointer:
BANK:
{CBM-S}3.{SHIFT-POUND}
 M{CBM-X}
ADDRESS:
{CBM-S}{SHIFT-*}1{CBM-Z}5. M{CBM-X}


 {CBM-B}I1I6{CBM-A}8{$e9}1{CBM-N}{CBM-X}/h{CBM-X}/h{$60}///00J{SHIFT--}g{CBM-O}

Position the REU  {CBM-G}{$60}{CBM-I} I~ 2{SHIFT-POUND}lC~{SHIFT-*}1{$60}
{CBM-S}?{$f0}{$f9}{CBM-S}{SHIFT-*}1
N{$e8}P{$ed}{SHIFT-*}1X{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}N{CBM-*}{CBM-Z}4.{CBM-*}{CBM-Z}5.{CBM-*}{CBM-Z}3.){CBM-*}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{CBM-Z}6.
{CBM-*}{SHIFT-POUND}

7.{CBM-*}{CBM-Z}{CBM-*}4.{CBM-Z}{CBM-*}5.{CBM-Z}{CBM-*})3.x{$60} 2
{CBM-O}
N R~ {$e4}2HP{$f4} {$e1}~{$f0}{CBM-S}'{$e8}{$f0}{$ec}){$f0}'l2 L~l{CBM-G} 2
 L~{CBM-O}
Nh R~{CBM-I} I~H R~ {$e4}2HP{$e7} {$e1}~{$f0}{CBM-S}'{$e8}{$f0}{$ec}){$f0}'ll2{$60}{CBM-Z}8.){CBM-*}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{CBM-Z}6.
{CBM-*}{CBM-Z}&{CBM-*}{CBM-Z}'{CBM-*}{SHIFT-POUND}
Mark
< 4 > = Space


 {CBM-B}I0I5{CBM-A}
8{$e9}0{CBM-N}{CBM-X}'{$60}




{$60}@
{CBM-Z}{CBM-I}){$60}{SHIFT--}{$ea}'{$f0}{$e8} {$f6}5


Change Word Length:

Current Length:
{CBM-S}5{SHIFT-POUND}
 M{CBM-X}
Number of DATA bits (5-8):

 {CBM-B}I5I9{CBM-A}8{$e9}0{CBM-N}{CBM-X}{$ea}'{$ea}'{CBM-Z})
{$ea}'{$60}


Change Stop Bits:

SELECT < 0 > or < 1 > STOP BIT:

 {CBM-B}I0P
LECT:
< 1 > = Punter
< 2 > = Xmodem Checksum
< 3 > = Xmodem CRC


 {CBM-B}I1{CBM-A}lTI4{CBM-A}{$f9}8{$e9}1{$f0}
{CBM-N}{CBM-X} 4lYl3 ^ {$fd}


Download a file FROM someone!
-------------------------

SELECT:
< 1 > = Punter
< 2 > = Xmodem Checksum
< 3 > = Xmodem CRC
< 4 > = WXmodem


 {CBM-B} {CBM-Q}~ L~
{CBM-O}
{$f0} R~HP{$f5}{SHIFT-POUND} C~lK*


Change Drive in use.

Current Device:
{CBM-S}{CBM-V}){SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}c)

Enter new drive (8-11):
 e){$f0} h%{SHIFT-*}{SHIFT-*}{CBM-A}{CBM-V})l*
{$ea} {$f8}, -{CBM-Z}!{SHIFT-POUND}
T {CBM-Y}~)P%{CBM-I} F~ {$e4}~){$7f}{CBM-N}{CBM-X}{$ef}{$f0}h A1H{CBM-S}0{$f0}h 3H R~lj, {$e1}~P{SHIFT-POUND}<{$60} L~ {$e4}~{$f0}{CBM-H}I
P J,ld,IPl{CBM-O},I{$f0}{$f2}{CBM-S}b,
{$e8} p{$f0}{$e4}b$ U$l$!{$60}!P{$60}


Change Punter Block Size.

Current Block size:
{CBM-S}={SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}c)

Enter new Size:
 e){$f0} h%{SHIFT-*}({CBM-A} ~={$60}


{SHIFT-POUND}{$fc}{SHIFT-POUND}
{$fb}
{CBM-S}d){SHIFT-POUND}
g%{SHIFT-POUND}
e%f%Pl{SHIFT-@}%{CBM-D}g%{CBM-E}{$fb}{CBM-D}g%{CBM-E}{$fb}I00dI:@he%.f%{CBM-Z}e%{CBM-D}f%e%.f%e%.f%Me%e%Mf%f%H8{$e9}0Me%e%{$ee}f%{$ee}g%JP{CBM-L}8{CBM-Z}f%{CBM-D}e%{$60} Write Pointer

 {$ec}/3.{SHIFT-*}15.{$60}{CBM-Z}?P
{SHIFT-POUND}
4. 2{SHIFT-POUND}?{$60}{CBM-Z}?{$f0} R1{SHIFT-POUND}
?{$60}
Which REU Bank (0-7)?
 {CBM-B}h R~{SHIFT-POUND}
 R~H8{$e9}0IHH{$60}h

REU Start Address?
{SHIFT-POUND}c) e){$f0}Y h%{CBM-N}H{$60}

Append SEQ file to REU Buffer


 vP{$60}{SHIFT-POUND}s r Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~

Load Error!

 L~
L{CBM-*}{SHIFT-POUND}N{CBM-*}{SHIFT-POUND}
7.{CBM-*}{$60}
{CBM-I} F~ {$e4}~h{CBM-G}{CBM-U}2 L~Hh R~ {$e4}2H F1 {$e1}~{$f0}{CBM-Z}{CBM-U}2Pl{CBM-O}2{$60}{SHIFT-POUND}
T{CBM-Z}!{$60}configure,s,r{SHIFT-POUND}
{CBM-I}{$ef} 2 {CBM-X}~{SHIFT-POUND}{CBM-N}{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~${SHIFT-POUND} C~{SHIFT-POUND}
1032{$f9}?{SHIFT-POUND}{SHIFT-POUND}{$60}{CBM-I} F~ {$e4}~ {$e4}~ {$e4}~1 {$e4}~0 {$e4}~3 {$e4}~2 {$e4}~{$f9} {$e4}~? L~{SHIFT-POUND}lC~
Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~

Save Error!

 L~{CBM-Z}{$60}{CBM-Z}){$7f}{$60}{CBM-I}
{CBM-Z}{$f9}{$f0}{CBM-I}
{$f9}{$60}


Change Delete Key value.

Current Value:
{CBM-S}{SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}c)

Enter new Value:
 e){$f0} h%{SHIFT-POUND}{$ef}{$60}

{SHIFT-POUND}
d) L~ W
 {$e4}~{$f0}{$fb}
I
P R~{CBM-S}d){SHIFT-POUND}

{CBM-S}d){$60}IP {CBM-Z})lm)IP
 {CBM-Z}){CBM-Z}d)P{$f8}{$f0}J{CBM-D}d)Lc)P{SHIFT-POUND} R~lm){CBM-POUND}){$7f}I {CBM-A}lm){CBM-S}d)
 R~{$ee}d)lm){CBM-S}d){$f0}Nd){SHIFT-POUND} R~ I1{CBM-A}lTI5{CBM-A}{$f9}8{$e9}1{$f0}
{CBM-N}{CBM-X} 4l{SHIFT-@}l{CBM-N}{CBM-I}{CBM-Z}0{$f0}J0{$60}{CBM-I}{CBM-Z}2{$f0}J2{$60}{CBM-I}{CBM-Z}3{$f0}J3{$60}{CBM-I}{CBM-Z}1{$f0}J1 "{$60}{$f0}${SHIFT-POUND}{SHIFT-POUND}t
K{SHIFT-POUND}K{SHIFT-POUND}7{SHIFT-POUND}{SHIFT-POUND}f{SHIFT-POUND}{$60}{SHIFT-POUND}{SHIFT-POUND}q
K{SHIFT-POUND}
K{SHIFT-POUND}q{SHIFT-POUND}
{SHIFT-POUND}d{SHIFT-POUND}{$60}
{CBM-Z}G"P{SHIFT-POUND}G"{SHIFT-POUND} {SHIFT--}{SHIFT-POUND}
{SHIFT--}l"{SHIFT-POUND}
G"{SHIFT-POUND}
{SHIFT--}{SHIFT-POUND} {SHIFT--}{CBM-I} I~{CBM-I} $ {SHIFT-POUND}+ R~P{$f8}{CBM-I} $ {CBM-O}{CBM-J}" R~P{$f7}lL~

hta {$fd}


RUNTE,lg,{CBM-S}b,{$f0}Nb,J{SHIFT-POUND}
lg,{CBM-I} I~{CBM-S}b,{$f0}
{CBM-O}
{CBM-N}{CBM-X}{$ef} R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}IP{$fa}HLb,P{$e6}{SHIFT-POUND}
 R~lL~ p{SHIFT-POUND}
{$fa}{CBM-I}
b,{$60}
{CBM-O}
 F-(H{SHIFT-*}pP{$f0}{$60}



{CBM-Z}-{CBM-I}-{$fb}{CBM-Z}-{$fc}{SHIFT-POUND}p{CBM-R}{CBM-Z}-{CBM-W}
-{CBM-E}{$fb}{CBM-S}-I
P{SHIFT-POUND}
Hl\- F-
HL,P{CBM-*}H~{CBM-O}
{CBM-R}{$f8}{CBM-@}~E{$fb}{$fb}{CBM-G}{$fc}I
I{CBM-B}P{SHIFT-POUND}p{$fc} P-L,{$f0}{SHIFT-POUND} {CBM-R}Hl-{SHIFT-POUND} {CBM-R}{CBM-G}{CBM-R}M,{CBM-R}{$e6}{CBM-W}{$e8} {$f0}l7- {CBM-E}-{CBM-Z}-{CBM-S}-{$60}




Change Xmodem Defaults:

Ascii Translate on?  Y/N
(Default is NO TRANSLATION)

 {CBM-B}{CBM-I}
IyP{CBM-I}4{$60}


Change Xmodem Defaults:

Use DLE Masking (for PC Pursuit)? Y/N
(Default is NO DLE MASKING)

 {CBM-B}{CBM-I}
IyP{CBM-I}4{$60}


Change Xmodem Defaults:

Strip End o {CBM-G}{$60} {CBM-O}2{SHIFT-POUND} C~{$60}{SHIFT-POUND}W


Save REU Buffer

 {$ec}/8.&'

REU End Address?
{SHIFT-POUND}c) e)P{$60} h%(){CBM-Z}'M){$60}

Send To:
< 1 > = Printer
< 2 > = Screen
< 3 > = Disk

 {CBM-B}I1P
 "{CBM-A} l2{SHIFT-POUND}lC~I2Pl2 vP{$60}{SHIFT-POUND}s w Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~

Save Error!

 L~

lMl{$f9}l{CBM-V}l,lul{CBM-POUND}l-l>











p2






{$60}h{SHIFT-POUND}
~H{$60}h{SHIFT-POUND}

~H{$60}{CBM-I} F~ {$e4}~ {$e4}~{CBM-G}SP{$fc} Y{$f0}{SHIFT-POUND}
 R~ {$e4}~{CBM-N} {$e4}~ 2{SHIFT-POUND}  R~ {$e4}~{$f0}{$de} R~P{$f6}{SHIFT-POUND} C~ L~{$60} {$e4}~~ {$e4}~~{$60}{CBM-Z}) {CBM-D}{CBM-R}{CBM-W}{CBM-Z}' {CBM-D}{CBM-X}{CBM-V}
{CBM-O}{CBM-D}{$f0}{SHIFT-*}HP{$f3}{$60}: 00
: 00
 Fl8 {$f0}~{SHIFT-*}'{$f0}{SHIFT-POUND} R~{$ee}'{$60}{CBM-S}' oP{$60}{$ee}+{$ee}'{$60} {$ec}l8 {$f0}~{SHIFT-*}
{$f0}{SHIFT-POUND} R~N'
{$60}

Disk Directory:
SHIFT KEY to pause, STOP to abort


{CBM-I}
 {CBM-Z}d) {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V})
 {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~lO+{CBM-I} F~{SHIFT-POUND}
 R~ C O~{$60}{CBM-G}P: O~A{CBM-G}P1FCP{$ea}{CBM-G}A{CBM-+}{$60} M{CBM-X}{SHIFT-POUND}  R~{CBM-Z}P{$fb} {$e1}~{$f0} O~{$f0}{CBM-+}P R~{$e8}{SHIFT-POUND}
 R~ P{CBM-F} L~{SHIFT-POUND}8 C~ {CBM-G}l* {$fd}{CBM-I}{$60}{SHIFT-POUND}
B{CBM-Y}{CBM-N}

DISK DRIVE MENU:
---------------

< 1 > = DRM 3.0 DEFAULTS:
---------------------

< 1 > = Set Colors
< 2 > = Punter Blocksize
< 3 > = Xmodem Translate
< 4 > = Xmodem DLE Screen
< 5 > = Xmodem Pad Stripping
< 6 > = Change Parity
< 7 > = Change Word Length
< 8 > = Change Stop Bits
< 9 > = Linefeed{CBM-Z}!
X
Y
Z
{SHIFT-+}HP{$f1}{$60}h)j~H)?~{$60}{CBM-Z}-M--{CBM-Z}-I
I{CBM-B}P{SHIFT-POUND}
-{SHIFT-POUND}p-l-{CBM-Z}-{$fb}{CBM-Z}-{$fc} . .{CBM-A}
{CBM-E}{$fb}I
P{$f3}{CBM-G}{$fb}-{CBM-G}{$fc}-l-{CBM-G}{$fb}PF{$fc}{CBM-G}{$fc}Ip{CBM-A}
{SHIFT-POUND}p{$fc}{SHIFT-POUND}
{$fb}8{$60}F{$fb}{$60}




 {$fd}


RAM EXPANSION UNIT (REU) MENU:
------------------------------

< 1 > = REU Buffer ON
< 2 > = REU Buffer OFF
<  vP{$60}{SHIFT-POUND}s r Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~

Load Error!

 L~ {CBM-G}{$60} {SHIFT-POUND} C~{$60}

{SHIFT-POUND}
{$fb}{SHIFT-POUND}p{$fc} L~
{CBM-Z}P1{CBM-E}{$fb}h R~{CBM-S}W I~H,X{CBM-N}{CBM-X}{$ef} R~{CBM-G}P{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}M8L{CBM-G}{$fb}M7E{$60} {$fd} [
{SHIFT-POUND}WX

Save Buffer

SAVE: <1>=To Buffer End
      <2>=To Write Pointer


 {CBM-B}I1{$f0}I2{$f0}{$60}{SHIFT-POUND}{CBM-B}8{SHIFT-POUND}
7l#

ENTER REDIAL DELAY (cr = 20 secs):
 "{SHIFT-POUND}c) e){$f0} h%"

AUTODIALER MENU

SELECT:
< 1 > = Enter Number to Dial
< 2 > = Dial From Phone Book
< 3 > = Load a Phone Book
< 4 > = Save a Phone Book
< 5 > = Edit a Phone Book


 {CBM-B}I1I6{CBM-A}8{$e9}1{CBM-N}{CBM-X}{$de}h{CBM-X}{$e3}BUFFER POINTER:
{CBM-G}{CBM-E}8{$e9}p{CBM-+}{CBM-A} M{CBM-X}  (END=28416)

 8 {$f0}~%${SHIFT-POUND}
<{$60}{$ea} {$f2}
{CBM-G}KIP{$60}IPL{CBM-I}{SHIFT--}L{$f0}J{$f8}Ll9{SHIFT-POUND}h{SHIFT-POUND}8h{CBM-X}h{CBM-X}h{$60}

*
.168;"!,!"" !*""
(.G{$e8}b.

GJF{$7c}:{$f4}CY{CBM-O}-v\O8{$60}{$60}{$60}
{CBM-I} {CBM-Z}{SHIFT--})Ma{$f0}{CBM-I}t{CBM-Z}{CBM-H}{$f0}{SHIFT-POUND}
{CBM-H} '{CBM-O}<
{$f5}l1{$ea}{SHIFT-POUND}{CBM-H}{CBM-Z}{CBM--}{CBM-N})I0x{CBM-I} {$f0}{CBM-Z}
{SHIFT-POUND}0
{CBM-Z}




8{CBM-Z}
88{$60}I0I:{CBM-A}8{$e9}0{$60}HHHH{$60}






{CBM-Z}{CBM--}M{CBM--}{$f0}{$fb}JP{$f5}{$60}{CBM-POUND}{CBM-Z}{SHIFT--} q{CBM-Z}{SHIFT--} \P{$eb}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I({$fa}{$60}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{$fa}{$60}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}IP{$fa}{$60}{CBM-Z}{$f0}l1{$ee}#{SHIFT-POUND}
!{CBM-Z}{SHIFT--}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}ID{$fa}
{CBM-O}
{$f0}$I*P l{CBM-N}I0I:{CBM-A}
8{$e9}0P{SHIFT-POUND}
 0{$ee}!{CBM-D}!PW {$f8}{CBM-D}"{CBM-Z}{SHIFT--})MaP{CBM-Z}{$f0}{$60} P{$ea} {$e4}{CBM-Z}{SHIFT--}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{CBM-H}{$fa}





 !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_





























































































abcdefghijklmnopqrstuvwxyz

{$7e}


abcdefghijklmnopqrstuvwxyz

{$7e}



Load the Phonebook

{SHIFT-POUND}
 @ {$f0}lF{CBM-I}{CBM-X}
i{SHIFT--}PJ{$f5}l-

Creating New Phonebook...

 {$e4}HHlF{$60}{CBM-Z}c{$fb}{CBM-Z}?P{$60}{$fc}{CBM-I} I~
{CBM-E}{$fb}{$f0}
{CBM-N}{CBM-X}{$ef} R~ &HP{$ef} L~{$60}{CBM-Z}dl1{CBM-Z}el1{$fc}{$fb}
{CBM-E}{$fb}{$f0} R~HP{$f6}{$60} q{$60}i0
{CBM-I} C~{SHIFT-POUND}
 {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~ {$60} L~{CBM-G}{SHIFT-@} {CBM-H}~{SHIFT-POUND}O{CBM-O} ~ {CBM-G}~R {CBM-G}~S {CBM-G}~I
P{$f9} {CBM-Q}~{CBM-Z}RI0{$f0}

Disk Error:
{$f5}{CBM-G}{CBM-E}8{CBM-G}{CBM-A}7

Send To:
< 1 > = Printer
< 2 > = Modem
< 3 > = Disk

 {CBM-B}I1P "{CBM-A} 9{SHIFT-POUND} C~lB
I2P{SHIFT-POUND}W{SHIFT-POUND}~X 9lB
 vP{$60}{SHIFT-POUND}s w Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~ {SHIFT-POUND} C~

Save Error!

 L~ {CBM-G}lB
 9{SHIFT-POUND} C~lB
{CBM-I} F~ {$e4}~h{CBM-G}X L~H Y {$e1}~{$f0}{CBM-Z}X{$f0}{$e1} L~{SHIFT-POUND} C~{SHIFT-POUND} C~{$60}

h{CBM-S}WPHlR~ P
h{$60}{$e7}PL


Enter # to dial:
{SHIFT-POUND}c) e){$f0}4

Dialing...

Hold down Shift key to abort!


 G{$60}


.>n{SHIFT-POUND}
?@


Select Number (1-9):

 {CBM-B}I1I:{CBM-A}
8{$e9}1{CBM-N}@@?{$60}{SHIFT-POUND}
{$60}{SHIFT-POUND}~@{$ee}@{CBM-Z}@I{$f0}hI1 R~  =
H@? {CBM-J}{SHIFT-POUND}
 R~l{$60}{CBM-Z}b{CBM-D}?lC{CBM-Z}a{CBM-D}?lC{CBM-Z}c{CBM-D}?lC{CBM-Z}d{CBM-D}?lC{CBM-I}B{CBM-I} ){$f0}{CBM-I}1w{CBM-Z}
{CBM--}{CBM-N})I0[jjjjI0z{CBM-Z}{CBM--}{CBM-N})I0^jjjjI0]{CBM-Z}{CBM--}I0{$60}{SHIFT-POUND}:y\{SHIFT-POUND}._{SHIFT-POUND}
Cl1{$ea}X{SHIFT-POUND}{CBM-J}{SHIFT-POUND}x{$60}X{SHIFT-POUND}1{SHIFT-POUND}{$ea}x{$60}0300
1200
 {CBM-Z}1P{CBM-O}K<{$f7}0{CBM-O}P<{$f7}{CBM-I} {CBM-Z}0{$f0}{CBM-I}b{CBM-I} {CBM-Z}3{$f0}{CBM-I}d{CBM-I} {CBM-Z}2{$f0}{CBM-I}f{CBM-I} {CBM-Z}{$f9}{$f0}{CBM-I}
h{CBM-I} {CBM-Z}4{CBM-I}j{CBM-I} {CBM-Z}4{CBM-I}k{CBM-I} {CBM-Z}/40{CBM-I}l{CBM-I} {CBM-Z}?{$f0}{CBM-I}n{$60}
{SHIFT-POUND}lO
Redialing...
{$60}
Number of tries:
{SHIFT-POUND}
{CBM-S}# M{CBM-X}{SHIFT-POUND}
lR~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I<{$fa}{$60}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{$fa}{$60}{$ee}# L~{CBM-I} I~{SHIFT-POUND}a R~ &{SHIFT-POUND}t R~ &{SHIFT-POUND}
 R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}Iz{$fa}
{CBM-O}{$f0} R~ &HP{$f2}
{CBM-O}
{$f0} R~ &HP{$f2}{SHIFT-POUND}
 R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}Iz{$fa} L~ {$f8}{CBM-D}"{CBM-Z}{SHIFT--})MaP{CBM-Z}{$f0}{$60} P{$ea}{CBM-I} I~{SHIFT-POUND}a R~{SHIFT-POUND}
 R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{CBM-H}{$fa} {$e4}l1 {$fd}


RUNTERM 3.0





 !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
abcdefghijklmnopqrstuvwxyz


{SHIFT--}








 !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
abcdefghijklmnopqrstuvwxyz




8{$60}{$60}

ppsp vP8{$60}

SELECT: <P>rogram <S>equential

 {CBM-B}h R~{SHIFT-POUND}
 R~HIsP
{CBM-I}YZ{$60}{SHIFT-POUND}p{CBM-I}
Y{$e8}Z{$60} {$7b}


Punter Upload!

 {CBM-*}{SHIFT-POUND} C~lT{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-D}Y {SHIFT-@}~ {SHIFT-*}~ {SHIFT-POUND} C~{SHIFT-POUND} C~lT {CBM-A}{$ee} {SHIFT-*}{CBM-Z}ZH {SHIFT-*}{CBM-Z}
I{$f0}{SHIFT-+} {SHIFT-*}{CBM-Z}=H {SHIFT-*}lV {$7b}


Punter Download!

 {CBM-*}{SHIFT-POUND} C~lT I~Hh R~ L~HlR~{CBM-I} I~Hh{CBM-N}{CBM-X}{$ef} R~ L~HlR~ {$fd}


Read SEQ File to:

< 1 > = Screen

< 2 > = Printer

< 3 > = Modem


 {CBM-B}I1PlOI2PlWI3{$f0}{$60}{SHIFT-POUND}
Wl "l{SHIFT-POUND}W

Use <NO SCROLL> to pause
and <STOP> to abort read

 vP{$60}{SHIFT-POUND}s r Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{CBM-A}l{CBM-N}{SHIFT-POUND}{CBM-Z}e{CBM-D}?lC{$60}{$60}{SHIFT-POUND}
{$fb}{SHIFT-POUND}@{$fc}{SHIFT-POUND}
{CBM-POUND}{$fb}HP{$fb}{$e6}{$fc}{CBM-+}{$fc} jP{$f3} {CBM-O}
i{$f7}{$60}tfb



Dial From Phonebook

 {$f5}  fPlF

Now Dialing:
 {CBM-J}{SHIFT-POUND}
 R~
{CBM-Z}?{$fc}{CBM-Z}a{$fb}{CBM-E}{$fb}{$f0}
HP{$f6}
 G{$60}


Save the Phonebook

 {$f5}{SHIFT-POUND}
){SHIFT-POUND}j*{SHIFT-POUND}
 @ +lF


Edit the Phonebook

 {$f5} fPlF

BBS Name:
 {CBM-J}{SHIFT-POUND}P{SHIFT-POUND}{$60}{SHIFT-POUND}<{SHIFT-POUND} R~{SHIFT-POUND}{$f6}P{$60} {$fd} [
 - {CBM-B}IP R-l
IP {$f2}-l
IP &l
I+P{$ee}-{CBM-Z}-I{CBM-B}N{$f0}{$ea}I-P
N-{CBM-Z}-Ip{CBM-A}{CBM-V}l1
lB
{CBM-G}){$fe}{$60}{CBM-G}{$60} U{CBM-Z}!{SHIFT-POUND}
T{$60}h{SHIFT-POUND}{CBM-I} R~{SHIFT-POUND} R~H{$60}h{SHIFT-POUND} P{$f1}{CBM-S}<{$f0}{CBM-I}
<{SHIFT-POUND} R~{SHIFT-POUND} R~{SHIFT-POUND} R~l{CBM-P}
{CBM-S}%{CBM-D}$ {$f0}~ I
 {CBM-Y}~)P%{CBM-I} F~ {$e4}~){$7f}{CBM-N}{CBM-X}{$ef}{$f0}{$e9}h A1H{CBM-S}0{$f0}h 3H R~l{CBM-P}
 L~ W
 {$e4}~
{$f0}C{CBM-S} PAUTODIALER
----------------------


SELECT:
< 1 > = 1650 Dialer
< 2 > = 1660 Dialer
< 3 > = 1670/Hayes Dialer

 {CBM-B}I1{$f0}I2{$f0}%I3{$f0}a{$60}
1650 Modem

{SHIFT-POUND} {SHIFT-POUND}
lF
1660 Modem

{SHIFT-POUND} {SHIFT-POUND}
lF
1670/Hayes Modem

{SHIFT-POUND} {SHIFT-POUND}
{SHIFT-POUND}l{SHIFT-+}{SHIFT-POUND} {SHIFT--}{CBM-Z}{SHIFT--}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}ID{$fa}{SHIFT-POUND}

{SHIFT--}
{$60} v{$f0}{$fa}{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}
{CBM-S}{CBM-V}) ~ {SHIFT-@}~{SHIFT-POUND}
 U~

Load Error!

 L~ {CBM-G}{$60}

 v{$f0}!{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}
{CBM-S}{CBM-V})
 {SHIFT-@}~{SHIFT-POUND}{CBM-S}){CBM-D}* X~{CBM-A}{CBM-F}{$60}

Enter Filename:
{SHIFT-POUND}c) e){$60},s,r
VX
{CBM-S}d){CBM-O}U{$f0}
H{$e8}P{$f4}{SHIFT-POUND}

d){$60}{SHIFT-POUND}
2{SHIFT-POUND}0{CBM-I} F~ {$e4}~h{CBM-G}PH 3{CBM-Z}0P{$ef}{SHIFT-POUND}
0{$60}H{SHIFT-POUND}
0{$60} {$fd}

Append SEQ file to Buffer


 {SHIFT-*} {SHIFT-*}{CBM-Z}
I{$f0}'{CBM-Z}H{CBM-N}{CBM-X}{SHIFT-+} w Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~ {SHIFT-*}~ {SHIFT-POUND} C~{SHIFT-POUND} C~lT {CBM-A}{$ee}{CBM-I} $ {$7e}{$ef} {SHIFT-*} {SHIFT-*}{CBM-I} $l {CBM-E}- Transfer:
{SHIFT-POUND}
  C{SHIFT-POUND}
lR~ Z{CBM-Z}d){CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}{CBM-V}){CBM-POUND} {SHIFT-@}~l{SHIFT-*}~ {$7b}


Xmodem Upload!

 {CBM-*}{SHIFT-POUND} C~lT r {$60} l{$ef} {CBM-A}{$f8} . 4l{SHIFT-POUND} {$7b}


Xmodem Downl C~{SHIFT-POUND} C~

Load Error!

 L~ {CBM-G}{$60} L~

Printer Error!

l{$e4}{SHIFT-POUND}W{CBM-S}{CBM-D} {SHIFT-@}~{SHIFT-POUND}
 {CBM-X}~l{SHIFT-*}~


 {$fd}


< A >m or < P >m?


 {CBM-B}{CBM-I}
Ia{$f0}{CBM-I}Ip{$f0}{CBM-I}{SHIFT-POUND}
{CBM--}J{$fa}{$60}9

What is the Hour? (1-12):
 L~ Y{CBM-Z}8
9{CBM--}

What is the Minute? (0-59):
 Y{CBM-Z}8
{CBM--}{SHIFT-POUND}
{CBM--}{CBM--}{$60}{SHIFT-POUND}c) e){$f0}7c)

BBS Name:
 e){$f0}{CBM-Z}b {CBM-F}
Phone #:
 {CBM-V}{SHIFT-POUND}c)

Phone #:
 e){$f0}{CBM-Z}a {CBM-F}
String #1:
 G{SHIFT-POUND}c)

String #1:
 e){$f0}{CBM-Z}c {CBM-F}
String #2:
 P

String #2:
 e){$f0}{CBM-Z}d {CBM-F}
String #3:
 Y

String #3:
 e){$f0}{CBM-Z}e {CBM-F}lF{$fb}{CBM-Z}?{$fc}
{CBM-O}
{$f0}{$fb}HP{$f6}{$fb}{$60}
8 {$f0}~%${$60}IP $l{CBM-P}
{CBM-S}3{$f0}h R~H{CBM-N}{CBM-X}{$ef}h{CBM-I} I~H R~ L~l{CBM-P}
{SHIFT-POUND}p-{SHIFT-POUND}
-l-
{CBM-A}{$e6}{CBM-A}P{$e6}{CBM-E}{CBM-+}{CBM-E} {CBM-B}{CBM-S}2P{CBM-I}{CBM-V}{CBM-E}{CBM-I}~{CBM-A}{CBM-I}
0lU{CBM-E}{$60}{CBM-I}p{CBM-E}{CBM-I}
{CBM-A}{$60}{$ea}{SHIFT-POUND}p{$fc}{SHIFT-POUND}
{$fb}
{SHIFT-POUND}
{$fb}HP{$fb}{$e6}{$fc}{CBM-+}{$fc} {CBM-B}P{$f3}{SHIFT-POUND}p{CBM-E}{SHIFT-POUND}
{CBM-A}{$60}HCHDP R~
{$e6}CP{$e6}D{CBM-E}CP{$f1}{CBM-G}Dh{CBM-G}Ch{$60}

Any key to continue

 L~ {$e4}~{$f0}{$fb}{$60}
{SHIFT-POUND}{CBM-I}H  {CBM-X}~{SHIFT-POUND}{CBM-I}
 {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND}
{$f7}{$f9}{CBM-I}L{$f8}{$e8}{$fa}l
"

If the computer (C-64 only) stops while ";
 Bt"printing reports, wait 15-40 sec until  printing resumes. ";
 C^"This is normal and is called Garbage Collection.":400:
sCH"When you prepare or revise the budget,  ";
CR"estimated income shou
180:f${CBM-R}nb$:5040
{CBM-E}[{CBM-+}bal{CBM-R}E(inc$(mo)):3180:f${CBM-R}nb$
M[{CBM-A}bal{CBM-R}dep: r{CBM-R}2 {CBM-M} bal{CBM-R}cum
{$de}[{SHIFT-@}3180:g${CBM-R}nb$
~[Dbal{CBM-R}E(g$){CBM-Q}E(f$):3180:i${CBM-R}nb$
2\N"Income ";f$;"     ";g$;"    ";: c{CBM-R}1 {CBM-M} " ";
f\X i$;: c{CBM-R}1 {CBM-M}
G\{$e2}bal{CBM-R}E(f$){CBM-Q}E(c$):3180:j${CBM-R}nb$
\{$ec}bal{CBM-R}E(g$){CBM-Q}E(b$):3

0{SHIFT-POUND}
,{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}{$ea}l0l{CBM-K}5l6D{SHIFT-@}8{SHIFT-POUND}3ED10{SHIFT-POUND}0I
20l90lw0l4lV3lT4l5l{CBM-A}5l6goobadacks/bsyn8{SHIFT-POUND}

888{SHIFT-POUND}
88 6 {$f8}0{CBM-G}Px{CBM-Z}8
8{CBM-Z}88{CBM-Z}
8{SHIFT-POUND}
8{SHIFT-POUND}8{CBM-Z}8,8{$f0}{CBM-D}8{CBM-I}
{CBM-X}
8Yh0PH{$e8} P{$f2}lD08{CBM-Z}8I8IPRlE0{SHIFT-POUND}~88lM0{$ee}8P{$ee}8{CBM-Z}8
8{$f0}{CBM-Z}8I{CBM-Z}8I{SHIFT-POUND}lD5{SHIFT-POUND}
{$60}{$ea}h{CBM-Z}
example: 1087 or 0188 ":400:
{SHIFT-*}_{CBM-V}"If you are starting a new disk, ";
{$fa}_H"use old disk until balances are loaded into com-";
+{$60}R"puter. The new disk can then be used.";:
]{$60}{CBM--}cd{CBM-R}14:1410::"Type P for previous record."
{$60}{$e6}"You can add a ne

F J3 {SHIFT-POUND}
FHF {CBM-R}1{$f0}{$fb}{SHIFT-POUND}

{$60}{SHIFT-POUND}8{SHIFT-POUND}
8
88998{SHIFT-POUND}9{SHIFT-POUND}
 @1{CBM-Z}
8PR 4P< L~{CBM-Z}8I{$f0}{CBM-I} I~ {CBM-O}
9 R~HL8P{$f4} L~{CBM-Z}9I~P{SHIFT-POUND}
8{SHIFT-POUND}*,{SHIFT-POUND}- R~ {CBM-K}5{SHIFT-POUND}
l.4 L~{SHIFT-POUND}: R~{CBM-Z}89{SHIFT-POUND}l.4{CBM-Z}
98{CBM-Z}98{CBM-Z}98{CBM-Z}98 J3{CBM-Z}88 3{CBM-Z}
9M8P{CBM-Z}9M8P{CBM-Z}9M8P{CBM-Z}9M8P{SHIFT-POUND}
{$60}{SHIFT-POUND}{$60}{SHIFT-POUND}
88
888{SHIFT-POUND}I9{SHIFT-POUND}
 @1{CBM-Z}

t{CBM-N}{CBM-G}{SHIFT-POUND}
{$60} 7l{$ec}6 7{CBM-D}
HL
{$f0}{$f4}
{CBM-G}J{CBM-Z}
j{CBM-A}{SHIFT-POUND}{SHIFT--}{CBM-Z}
;{SHIFT--}{CBM-Z};{SHIFT--}{SHIFT-POUND} {$7f}{$e6} j{$e6}{SHIFT-POUND}{SHIFT--}{$60}






3

{SHIFT-POUND}~FHF {CBM-Z}8F{SHIFT-POUND}8 {CBM-R}1{$f0}{$fb}{SHIFT-POUND}

{$60}{$ee}8{CBM-Z}8I{SHIFT-POUND}
8{CBM-Z}8{$f0}P{CBM-Z}8{$f0}{CBM-I}

HP{$fd}{$e8} XP{$f6}{$60}h{CBM-Z}8
8{$f0}
{CBM-Z}8PH R~hH{$60} B{$e6}{CBM-Z}
I{$f0}{$f6}I{$f0}{$f2}{$60} M6 {$f7}0{CBM-G}P{CBM-Z}
){$7f}
I{$f0}I
{$f0}I l6IA
I{$7b}{CBM-A}8{$e9}
l{$f0}5Ia
I[{CBM-A}I
I
ld be the estimateddeposits to your ";
{CBM-Y}C{$7c}"checking account.":400:
{$e1}C "Jan","Feb","Mar","Apr","May","Jun"
D "Jul","Aug","Sep","Oct","Nov","Dec"
iD hou,uti,tel,ins,sav,cha,cas,gro,aut,gas,ent,res,clo,don
{$7f}D{CBM-@} med,equ,xxx,xxx,xxx,xxx,xxx,xx

180:k${CBM-R}nb$
{SHIFT-POUND}\{$f6}bal{CBM-R}E(k$){CBM-Q}E(j$):3180:l${CBM-R}nb$
{$de}\
 {CBM-+}8)"-------      -------      ";: c{CBM-R}1 {CBM-M} " ";
{$f7}\
"------";: c{CBM-R}1 {CBM-M}
*]"Balance";j$;"     ";k$;"    ";: c{CBM-R}1 {CBM-M} " ";
>] l$;: c{CBM-R}1 {CBM-M}
s]( x${CBM-R}"p" {CBM-M} 4: 4
D]2 r{CBM-R}2 5210
]<"Print Year-to-da

M
{$f0}{CBM-D}
{CBM-E}Hh{$ee}
{SHIFT-POUND}
H
H{CBM-POUND}l#1{SHIFT-POUND}{SHIFT-POUND}

H{CBM-POUND}h{SHIFT-POUND}{SHIFT-@}H{$60}{CBM-I} I~{CBM-I}
{CBM-O}h0 R~H{$e8} P{$f4}lL~8{SHIFT-POUND}
8{SHIFT-POUND}D{CBM-D}8 *1{SHIFT-POUND} w0{CBM-G}{$f0}FDP{$f3}lh1  *1{CBM-Z}
8{$f0}{CBM-Z}8{$f0}{CBM-Z}988 2{CBM-G}I{$f0}I{$f0}{SHIFT-+}I{$f0}I{$f0}S{$60}{SHIFT-POUND} w0{CBM-G}PI{SHIFT-POUND}
8  *1{SHIFT-POUND} w0{CBM-G}{$f0}N8P{$ed}{$60}{SHIFT-POUND}8{CBM-Z}8{$f0}
 *1{SHIFT-POUND} w0{CBM-G}P{$ed}{SHIFT-POUND}
8{CBM-Z}8I
P5{CBM-Z}
8PH{$ee}8P{$ee}8 J3 H{CBM-E}FI~P{SHIFT-POUND}
8{CBM-Z}8i
w Category Code by ent-"
Q{$60}{$f0}"ering the new code in the Category Code":"field and by ";
A{$fa}"following the on-screen   ":"prompts.": sp$;""
A400:
zA"Type S to split check amount to two or ":"more Category ";
A"Codes. This will p
8P  4P{CBM-Z}98{SHIFT-POUND}
8{SHIFT-POUND}
l{$ef}4{CBM-Z}89{SHIFT-POUND}l{$ef}4{SHIFT-POUND}

{$60}{SHIFT-POUND}

88{SHIFT-POUND}88{SHIFT-POUND}~88 W3 {SHIFT-POUND}IF J3 {SHIFT-POUND}~FHF {CBM-Z}8F{SHIFT-POUND}8 {CBM-R}1{$f0}{$fb}{SHIFT-POUND}

{$60}{$ee}8{CBM-Z}8I{SHIFT-POUND}
8{CBM-Z}8{$f0}P{CBM-Z}8{$f0}{CBM-I}

HP{$fd}{$e8} XP{$f6}{$60}h{CBM-Z}8
8{$f0}
{CBM-Z}8PH R~hH{$60} B{$e6}{CBM-Z}
I{$f0}{$f6}I{$f0}{$f2}{$60} M6 {$f7}0{CBM-G}P{CBM-Z}
){$7f}
I{$f0}I
{$f0}I l6IA
I{$7b}{CBM-A}8{$e9}
l{$f0}5Ia
I[{CBM-A}I
I


2061


lHb99atd











~~











atdp




lb {CBM-X}~{SHIFT-POUND}{CBM-S}@  {SHIFT-@}~{SHIFT-POUND}
lU~term.c1wxmodem.64{CBM-G}{SHIFT-@}@{CBM-Z}{SHIFT--})a{SHIFT-POUND}
{SHIFT-POUND}(,{SHIFT-POUND}<- ({SHIFT-POUND} <{$fa}{CBM-I}w {SHIFT-POUND} e{CBM-I}^ {SHIFT-POUND}
 e {$fc}2{SHIFT-POUND} R~{CBM-Z}!{CBM-Z}!P!P{SHIFT-POUND}~={SHIFT-POUND}
{CBM--}{SHIFT--}/4 {$f2}{SHIFT-POUND}
{CBM-A}{SHIFT-POUND}p{CBM-E} & {SHIFT-*} J q

RUN Term 64 - Version 3.0
By
Yx,xxx,xxx,mis,end
D{CBM-S}: {CBM-T}8)"Are you sure?(y/n)
{CBM-L}D{CBM-U}440: a${CBM-R}"n" {CBM-M}1430
UDB  15:  5: cr{CBM-R}128 {CBM-M} "":
 DL 2048




his is normal and is called Garbage Collection.":400:
sCH"When you prepare or revise the budget,  ";
CR"estimated income shou
te budget report?(y/n)";:440
{CBM-O}]f a${CBM-R}"y" {CBM-M} r{CBM-R}2:2840:4620
{CBM-B}]p
P]z x${CBM-R}"p" {CBM-M}
{SHIFT-+}]D400:

^N"Help messages are available throughout"
;^X"the program by pressing the H key. Use"
W^"lowercase (unshifted) for this and":"other prompts."
{CBM-U}^
8 J3 j3l2 3{SHIFT-POUND}-,{SHIFT-POUND}: 5  *1{SHIFT-POUND} w0{CBM-G}P{$ea} J3 {CBM-E}F8 W3{CBM-I} I~
{CBM-E}F R~HL8P{$f5} L~{SHIFT-POUND}
{$60}{SHIFT-POUND}* 5  *1{SHIFT-POUND} w0{CBM-G}P{$ed}{SHIFT-POUND}
8  *1{SHIFT-POUND} w0{CBM-G}{$f0}N8P{$ed}{SHIFT-POUND}8  *1{SHIFT-POUND}
 w0N8P{$f1}{SHIFT-POUND}{$60}
{SHIFT-POUND}
88 6 {$f8}0{CBM-G}P<{CBM-Z}

9{SHIFT-*}{CBM-A}
8{SHIFT-*}P{CBM-Z}
8IaP{CBM-Z}8IcP{CBM-Z}8Ik{$f0}HL8PB{SHIFT-POUND}{$60}{SHIFT-POUND}~88l2{$ee}8P{$ee}8{CBM-Z}8
8{$f0}{CBM-Z}8I{CBM-Z}8IP{SHIFT-POUND}{SHIFT-*}
{$f0}

lace   ":"the same check #, date, and ";
TA""description":"into the next transaction.";:
B,cd{CBM-R}16:1410:"Enter the transaction # you wish to    "
nB6"view or change. This # is on the Check ":"Register."
EB@ sp$:"";:400:
Bj"
P{SHIFT-POUND}
I"P
 R~{SHIFT-POUND} R~{SHIFT-POUND}"{CBM-Z}
I
P{SHIFT-POUND}  R~{SHIFT-POUND}
 R~ M6 {$e4}~{$f0}
I{$f0}eIa
I[{CBM-A}I
li6{CBM-Z}
IA
I{SHIFT-+}{CBM-A}8{$e9}
IP{SHIFT-POUND}
IP{SHIFT-POUND}
{CBM-I} I~{CBM-Z}
 R~ L~l{CBM-A}5{$60}{SHIFT-POUND} R~{SHIFT-POUND}{CBM-U} R~{SHIFT-POUND} R~{SHIFT-POUND} R~{$ea}{CBM-G}SIPH{SHIFT-@}{$ec}8P{$f9}{SHIFT-POUND}
{$60}{CBM-Z}&I{SHIFT-@}P{CBM-Z}'I6{$f0}{CBM-Z}&;{CBM-Z}';{SHIFT-POUND}{SHIFT-@}&{SHIFT-POUND}6'{$60}h{CBM-G}IPHL;HL;jHhh# {CBM-V}{$e9}P {$ea}{CBM-A}{SHIFT-POUND}
{CBM-R}H{CBM-+}{CBM-G}{CBM-R}H{CBM-POUND}H

Tom Brown

 ; {$f2} $l9 '{SHIFT-POUND}{SHIFT-*} R~P{$f8}{SHIFT-POUND}
lR~

         RUN TERM - COMMANDS
Hold down LOGO key with the following:

  A = Autodial        {SHIFT--} S = Send Buffer
B = Buffer Toggle   {SHIFT--} T = Time Set
C = Conference Term {SHIFT--} U = Upload
D = Download        {SHIFT--} V = View Buffer

 E = Echo (Duplex)   {SHIFT--} W = Buffer Wrap
F = File Reader     {SHIFT--} Z = Zero Buffer
H = On/Off Hook     {SHIFT--} @ = Disk Command
J = Linefeed Toggle {SHIFT--} * = Defaults
L = Load Buffer     {SHIFT--} ^ = Baud Rate
R = Ram Expander    {SHIFT--}


"For your convenience, dollar amounts":"can be entered ";
{$fb}^"with or without a dec-":"imal point. If none is used the ";
6_ "program":"will properly insert the decimal.":400:
P_{CBM-N}cd{CBM-R}16:1410:"Enter month and year as 4 digits, for"
_{CBM-H}"
{SHIFT-POUND}lD5{SHIFT-POUND}{$60}{CBM-Z}8i8 J3 {CBM-Z}8IFH{CBM-Z}8I
F{CBM-I} F~  O~FH {CBM-Y}~P
L8P{$f0}hlk3h H{SHIFT-POUND}~Flk3h L~ {CBM-K}5 {$7f}5 {CBM-K}5 {CBM-E}F8 W3H F 3{$60}{SHIFT-POUND}
F{CBM-Z}8I9G{$60}{SHIFT-POUND}
F{CBM-Z}8iI9G{$60}{SHIFT-POUND}
8888 {CBM-Z}8QF8{$ee}8{CBM-Z}8qF8{CBM-Z}8*.8.8HL8PZ
{CBM-Z}8FH{CBM-Z}8FH{CBM-Z}8FH{CBM-Z}8F{$60}{SHIFT-POUND}

888{SHIFT-POUND}8{SHIFT-POUND}~88 W3 {SHIFT-POUND}Dmf E(x$) 3930,3930,4610,460,110,5550
Omp3780
Xmz""
{$fb}mD x${CBM-R}"2" {CBM-A} bm{CBM-R}1 {CBM-M} xx{CBM-R}bm:3970
/nN"List budget for previous month?(y/n)":440
lnXxx{CBM-R}bm: a${CBM-R}"y" {CBM-M} xx{CBM-R}bm{CBM-Q}1
Bn"":cd{CBM-R}24:1410
n x${CBM-R}"1" {CBM-M} "Enter amount or press return";:4000
3)):le{CBM-R}9:3180:e${CBM-R}nb$
{$f8}fh
x{CBM-R}E(cat$(s,3)){CBM-Z}ytd:x{CBM-R}{CBM-J}(x{CBM-D}100{CBM-N}.5):f${CBM-R}I("    "{CBM-N}D(x),4)
%gr
bal{CBM-R}E(cat$(s,3)){CBM-Z}count:le{CBM-R}9:3180:g${CBM-R}nb$
7g\
ave{CBM-R}ave{CBM-N}E(g$)
SgF
 x${CBM-R}"p" {CBM-A} cc{CBM-R}0 {CBM-M}  b$;" ";c$;d$;" ";e$;f$;" ";g$:3330
gP
 b$;c$;d$;e$;f$;g$;
{CBM-G}gZ
lc{CBM-R}lc{CBM-Q}1: lc{CBM-E}7 {CBM-M}3330
{CBM-H}g{CBM-@}4170
{CBM-F}q{CBM-S}bal{CBM-R}ttal:3180: c{CBM-R}1 {CBM-M}4340
Qq{CBM-U}"":cd{CBM-R}18:1410
rB {CBM-T}30);"--------": {CBM-T}18);"Total       ";nb$
.rL {CBM-T}30);inc$(xx): {CBM-T}18):"Est income";e$
GrV2170:e${CBM-R}I("        "{CBM-N}e$,8):"";{CBM-T}30);e$:inc$(bm){CBM-R}e$
r bal{CBM-R}E(e$){CBM-Q}ttal:3180: {CBM-T}30);"--------" file.....
{$f5}jv i{CBM-R}1{CBM-@}tn:td$(i){CBM-R}"":ct$(i){CBM-R}"":de$(i){CBM-R}"":cn$(i){CBM-R}"":ch$(i){CBM-R}"":da$(i){CBM-R}""
{$fb}j{$60}
*kJbm{CBM-R}mo:le{CBM-R}8: 5:5,8,5,"budget"{CBM-N}year${CBM-N}",s,r"
hkT2420: en{CBM-R}62 {CBM-M}   5:3780
zk{$7e} en{CBM-E}1 {CBM-M}3660
Tk i{CBM-R}1{CBM-@}12:5,inc$(i):
k i{CBM-R}1{CBM-@}12:s{CBM-R}0
ks{CBM-R}s{CBM-N}1
k{CBM-+}5,bu$(s,i)

u{$e4}5,bu$(s,i){CBM-N}" "
{CBM-C}u{$ee} cat$(s,1){CBM-W}{CBM-E}"end" {CBM-M}4570
Hu{$f8}:  5:
{$e3}ur{CBM-R}0:2770: x${CBM-R}"q" {CBM-M}
vs{CBM-R}0:ttal{CBM-R}0:bu{CBM-R}0:z{CBM-R}0:c{CBM-R}0: x${CBM-R}"p" {CBM-A} cc{CBM-R}0 {CBM-M} c{CBM-R}1
vs{CBM-R}s{CBM-N}1
bv  cat$(s,1){CBM-R}"end" {CBM-M} s{CBM-R}0:4680
v* r{CBM-R}2 {CBM-M} i{CBM-R}1{CBM-@} mo:bu{CBM-R}bu{CBM-N}E(bu$(s,i))::ttal{CBM-R}ttal{CBM-N}E(cat$(s,3))
{CBM-U}v4 r r{CBM-R}0 {CBM-M} bal{CBM-R}E(bu$(s,mo)):3180:b${CBM-R}nb$
XxJbal{CBM-R}E(cat$(s,2)): r{CBM-R}2 {CBM-M} bal{CBM-R}E(cat$(s,3))
{$e9}xT3180:n${CBM-R}nb$
y{$de} E(n$){CBM-R}0 {CBM-P} E(b$){CBM-R}0 {CBM-M}4760
)y{$e8}bal{CBM-R}E(n$){CBM-Q}E(b$):3180:e${CBM-R}nb$
ey{$f2} bu{CBM-R}0 {CBM-M} y${CBM-R}" 0":4880
Ty{$fc}x{CBM-R}E(b$){CBM-Z}bu:x{CBM-R}{CBM-J}(x{CBM-D}100{CBM-N}.5):y${CBM-R}I("  "{CBM-N}D(x),2)
y ttat{CBM-R}0 {CBM-M} {SHIFT-*}n "Enter changes or press return";
Yn s{CBM-R}0:x{CBM-R}0:ttal{CBM-R}0:c{CBM-R}0:
{$fb}n{CBM-N} i{CBM-R}1{CBM-@}12: a$: i{CBM-R}bm {CBM-M} bm${CBM-R}a$
o{CBM-H}
3o{CBM-V}"Enter estimated payments for: ";bm$;year:
=oHs{CBM-R}s{CBM-N}1
zoR cat$(s,1){CBM-R}"end" {CBM-M}4140
o{CBM--}cat$(s,1){CBM-R}H(cat$(s,1){CBM-N}"       ",7)
{CBM-T}o{$e6} H(cat$(s,1),3){CBM-R}"

400:"";
Dg
3580:3330
{$e3}g
bal{CBM-R}ttal:le{CBM-R}9:3180:b${CBM-R}nb$
h{CBM-I}
bal{CBM-R}ytd:le{CBM-R}9:3180:c${CBM-R}nb$
 h{CBM-D}
bal{CBM-R}ave:le{CBM-R}10:3180:d${CBM-R}nb$
;h{CBM-L}
 x${CBM-R}"s" {CBM-P} cc{CBM-R}40 {CBM-M}3540
Ih{SHIFT-*}
 {CBM-T}7)"--------"{CBM-+}6)"--------"{CBM-+}6)"--------"
hJ
"Totals";b$;{CBM-+}5);c$;{CBM-+}4);d$:3560
{CBM-V}hT
 {CBM-+}6)"--------"{CBM-+}5)
{CBM-Y}r{$ea} {CBM-T}18);"Balance     ";nb$:4370
{CBM--}r{$f4} {CBM-T}8);"--------":"Total   ";nb$
s{$fe}"Income  ";inc$(xx): {CBM-T}8);"--------"
1sbal{CBM-R}E(e$){CBM-Q}ttal:3180:"Balance ";nb$:
_s"Any changes?(y/n)            ";:440
{$7b}s a${CBM-R}"y" {CBM-M} xx{CBM-R}bm:3970
{CBM-H}s&"Print budg{CBM-X}k{CBM-A} cat$(s,1){CBM-W}{CBM-E}"end" {CBM-M}3740
Fk{SHIFT-@}: 5
{CBM--}kD"File: ";file$
lN"            EZ Budget Menu              "
1lX: {CBM-T}9);"1 = Prepare Budget
ql{$e2} {CBM-T}9);"2 = Revise Budget
Sl{$ec} {CBM-T}9);"3 = Budget Analysis
l{$f6} {CBM-T}9);"4 = New Month"
{CBM-Y}l
 {CBM-T}9);"{CBM-R}0 {CBM-M} bu{CBM-R}bu{CBM-N}E(bu$(s,mo)):ttal{CBM-R}ttal{CBM-N}E(cat$(s,2))
Cv>4630
{$de}vh x${CBM-R}"s" {CBM-M} "";:lc{CBM-R}24
{$ef}vr r{CBM-R}0 {CBM-M}4710
,w\"BUDGET ANALYSIS - "mo$;year;" - Year to Date"::4720
pwF"BUDGET ANALYSIS - "mo$;year:
wP"CODE     BUDGET   %   ACTUAL   %   ";: c{CBM-R}1 {CBM-M} " p${CBM-R}" 0":4890
Cyx{CBM-R}E(n$){CBM-Z}ttal:x{CBM-R}{CBM-J}(x{CBM-D}100{CBM-N}.5):p${CBM-R}I("  "{CBM-N}D(x),2)
{$ec}y cat$(s,1);b$;"  ";: b${CBM-R}"" {CBM-M}  {CBM-+}7)
z$ y$;" ";n$;"  ";p$;: c{CBM-R}1 {CBM-M} " ";
'z. e$;: c{CBM-R}1 {CBM-M}
;z8 x${CBM-R}"p" {CBM-M}4760
uzblc{CBM-R}lc{CBM-Q}1: lc{CBM-E}8 {CBM-M}4760
Dzl400:4680
zvbal{CBM-R}ttal:3180:b${CBM-R}nb$:balxxx" {CBM-M}4120
{CBM-H}o{$f0} c{CBM-R}1 {CBM-M}4110
Wo{$fa}e${CBM-R}bu$(s,xx):370:bu$(s,xx){CBM-R}e$
{$eb}o s{CBM-E}21 {CBM-M}  {CBM-T}22)
p"  ";cat$(s,1);bu$(s,xx)
!p s{CBM-R}21 {CBM-P} c{CBM-R}0 {CBM-M}4140
,p"4040
=p, c{CBM-R}1 {CBM-M}4270
\p6 s{CBM-E}21 {CBM-M} s{CBM-R}21:"":4170
Jp@s{CBM-R}0:""
Zpjs{CBM-R}s{CBM-N}1:e${CBM-R}""
pt cat$(s,1){CBM-R}"end" {CBM-M}4270"--------"{CBM-+}5)"--------";
{SHIFT--}h{$de}
"Total";b$;{CBM-+}4);c$;{CBM-+}3);d$;
{$f4}h{$e8}
 x${CBM-R}"p" {CBM-M} 4: 4:
~h{$f2}
400:
bi{$fc}
"PAYMENT ANALYSIS - ";mo$;year: x${CBM-R}"s" {CBM-M} lc{CBM-R}24: cc{CBM-R}40 {CBM-M}3620
Di: {CBM-T}22);"YEAR";{CBM-+}10);"MONTHLY
i"CODE     AMOUNT   %   TO DATE   %   AVERAGE"
Li"----  et on printer?(y/n)";:440: {CBM-T}30);a$
Hs0 a${CBM-R}"n" {CBM-M}4450
{$e1}s:3650: a${CBM-R}"n" {CBM-M}4390
{$fa}sd"Printing....."
)tns{CBM-R}0:c{CBM-R}1: 4,4,7:4:"BUDGET - ";bm$;year:
9tx4040:4: 4
stBbm{CBM-R}bm{CBM-N}1: bm{CBM-R}13 {CBM-M}4510
tL x${CBM-R}"1" {CBM-M} "Prepare budget for next month?(y/n)"
5 = Return to Main Menu"
Nl
 {CBM-T}9);"6 = Quit
mbm{CBM-R}mo:"":cd{CBM-R}23:1410:"Press H for help messages";
8m"":cd{CBM-R}16:1410: {CBM-T}9);"Enter Selection -"
xm({CBM-K} x$: x${CBM-R}"h" {CBM-M} 5480:3780
{$7f}m2 cr{CBM-R}128 {CBM-P} x${CBM-R}"5" {CBM-M} "":540:640
m< x${CBM-W}"1" {CBM-A} x${CBM-E}"6" {CBM-M}3880
";
{CBM-I}wZ" DIFF";: c{CBM-R}1 {CBM-M}
{SHIFT-+}w"----    -------  --  -------  --  ";: c{CBM-R}1 {CBM-M} " ";
{$f4}w"------";: c{CBM-R}1 {CBM-M}
xs{CBM-R}s{CBM-N}1:y{CBM-R}0
x{CBM-I} cat$(s,1){CBM-R}"end" {CBM-M}4950
fx{CBM-D}cat$(s,1){CBM-R}H(cat$(s,1){CBM-N}"       ",7)
x{CBM-L} r{CBM-R}2 {CBM-M} i{CBM-R}1{CBM-@} mo:y{CBM-R}y{CBM-N}E(bu$(s,i))::bal{CBM-R}y:3180:b${CBM-R}nb$
{CBM-N}x{SHIFT-*}
{CBM-R}bu:3180:c${CBM-R}nb$
{CBM-W}z{$60}bal{CBM-R}E(b$){CBM-Q}E(c$):3180:d${CBM-R}nb$
{$e8}zJ {CBM-+}8)"-------      -------      ";: c{CBM-R}1 {CBM-M} " ";
[T"------";: c{CBM-R}1 {CBM-M}
4[{$7e}"Total  ";c$;"     ";b$;"    ";: c{CBM-R}1 {CBM-M} " ";
h[ d$;: c{CBM-R}1 {CBM-M}
y[ r{CBM-R}0 {CBM-M}5030
[i{CBM-R}1{CBM-@} mo:z{CBM-R}z{CBM-N}E(inc$(i))::bal{CBM-R}z:3
{CBM-O}p^ H(cat$(s,1),3){CBM-R}"xxx" {CBM-M}4250
{$e9}pH {CBM-T}8):y{CBM-R}{CBM-Q}7:cl{CBM-R}14: s{CBM-E}21 {CBM-M}  {CBM-T}30):y{CBM-R}15:cl{CBM-R}36

qR200: flag{CBM-R}0 {CBM-M} e${CBM-R}bu$(s,xx)
4q{$7c} e${CBM-W}{CBM-E}"" {CBM-M} 2170:e${CBM-R}I("       "{CBM-N}e$,7)
nq {CBM-T}8): s{CBM-E}21 {CBM-M}  {CBM-T}30)
Wq"";e$:bu$(s,bm){CBM-R}e$:ttal{CBM-R}ttal{CBM-N}E(e$)
q s{CBM-R}21 {CBM-M} "":4040
q --------  --  --------  --  --------":
{$ef}i$: {CBM-T}20);"YEAR";{CBM-+}9);"MONTHLY";
 j."CODE    AMOUNT   %  TO DATE   %  AVERAGE";
sj8"----   -------  --  -------  --  -------";:
jb"Is your printer connected?(y/n)":440:
{CBM-D}jl"Reading the Budget;:4480
FtV"Change budget for next month?(y/n)";
Pt440
{$de}t {CBM-T}36);a$
{$f2}t a${CBM-R}"y" {CBM-M}3940
u 5:5,8,5,"@0:budget"{CBM-N}year${CBM-N}",s,w"
0u{CBM-POUND}2420: en{CBM-E}1 {CBM-M}4470
mu{CBM-R}:"Saving budget....."
zu{CBM-C} i{CBM-R}1{CBM-@}12
OuF5,inc$(i){CBM-N}" ":
uP i{CBM-R}1{CBM-@}12:s{CBM-R}0
uZs{CBM-R}s{CBM-N}1

X8{CBM-I}:a${CBM-R}I(e$,2)
{$f2}8{CBM-D}e${CBM-R}H(e$,x{CBM-Q}2){CBM-N}"."{CBM-N}a$:
{$fc}8{CBM-L}s{CBM-R}s{CBM-N}1
9{SHIFT-*} cat$(s,1){CBM-R}ct$(tc) {CBM-M}2270
89J cat$(s,1){CBM-R}"end" {CBM-M}2310
c9T2230
S9{$de}cat$(s,2){CBM-R}D(E(cat$(s,2)){CBM-N}E(ch$(tc)){CBM-Q}change)
{CBM-T}9{$e8}cat$(s,3){CBM-R}D(E(cat$(s,3)){CBM-N}E(ch$(tc)){CBM-Q}change)
I9{$f2}bal${CBM-R}D(E(bal$){CBM-Q}E(ch$(tc)){CBM-N}ch{CBM-U}f{CBM-R}0:cd{CBM-R}20:1410: sp$: c{CBM-R}0 {CBM-M}  sp$;
2B""
#2Ls{CBM-R}0:cl{CBM-R}18:: {CBM-T}15);:200
D2V c{CBM-R}1 {CBM-P} ct$(tc){CBM-W}{CBM-E}""{CBM-M} change{CBM-R}E(ch$(tc)){CBM-N}E(ch$(tc)):x{CBM-R}1:2230
2 x{CBM-R}0: flag{CBM-R}1 {CBM-M} ct$(tc){CBM-R}e$
{CBM-E}2{$ea}cl{CBM-R}37:: {CBM-T}15);:200: flag{CBM-R}1 {CBM-M} de$(tc){CBM-R}e$
V2{$f4} c{CBM-R}1 {CBM-A} tc{CBM-W}2 {CBM-A} x${CBM-R}"s" {CBM-M} :1";line$;: cc{CBM-R}0 {CBM-M}
{$f2}<

"  prev, next, exit"
=

"Enter changes or press return";
C=
 x${CBM-R}"s" {CBM-M} td$(tc){CBM-R}td$(tc{CBM-Q}1):de$(tc){CBM-R}de$(tc{CBM-Q}1):cn$(tc){CBM-R}cn$(tc{CBM-Q}1):x${CBM-R}""
{$7d}=
"";{CBM-T}16);ct$(tc)
=(
: {CBM-T}16);de$(tc)
{CBM-M}=2
: {CBM-T}16);cn$(tc)
{CBM-C}=<
: {CBM-T}16);ch$(tc)o.";G(7)
{$eb}5{CBM-R} i{CBM-R}1{CBM-@}2000::2540
6{CBM-C}x{CBM-R}0:fc{CBM-R}1:: "Any changes?(y/n)"
n6F edit{CBM-R}0 {CBM-P} fp{CBM-R}0 {CBM-P} ch$(tc){CBM-W}{CBM-E}""{CBM-M} x{CBM-R}1:1400:"         "
{$7d}6P{CBM-K} x$: x{CBM-R}1 {CBM-P} x${CBM-R}"s" {CBM-M} tn{CBM-R}tn{CBM-N}1:tc{CBM-R}tn:2540
6Z x{CBM-R}1 {CBM-P} x${CBM-R}"h" {CBM-M} 5390:2000
{CBM-X}6{$e4} x${CBM-W}{CBM-E}"y" {CBM-P} x${CBM-W}{CBM-E}"n" {CBM-M}2000
Q6{$ee} x${CBM-R}"y"
: 4,4,7:4:
N@@3090
{SHIFT--}@j i{CBM-R}0 {CBM-@} tn
{$fd}@tbal{CBM-R}bal{CBM-Q}E(ch$(i)){CBM-N}E(da$(i))

a^le{CBM-R}8:3180
2aHh${CBM-R}H(D(i){CBM-N}".     ",6):h${CBM-R}I(h$,5)
GaR i{CBM-R}0 {CBM-M}  {CBM-+}21);"Balance Forward";{CBM-+}35);nb$:2970
{CBM-+}a{$7c} h$;mo$;" ";H(td$(i){CBM-N}" ",2);year;" ";H(ct$(i){CBM-N}"     ",5);
Ta H(de$(i      CK#   CK AMOUNT  ";
{$e1}c:"DEPOSIT  BALANCE"
dd x${CBM-R}"s" {CBM-P} cc{CBM-R}40 {CBM-M}  line$;:3170
odn"--   ---------  ---  -----------------------  ----  ---------  ";
Gdx"-------  -------"
MdB
dLnb${CBM-R}D({CBM-J}(bal{CBM-D}100{CBM-N}.5){CBM-Z}100)
{CBM-K}dVx{CBM-R}C(nb$): j{CBM-R}1 {CBM-@} x
{CBM-X}d J(nb$,ange)
X9{$fc}change{CBM-R}0:
{$ef}9 x{CBM-R}1 {CBM-M} change{CBM-R}0:
::"Is this a new Category Code?(y/n)";G(7)
9:440:s{CBM-R}0: a${CBM-R}"n" {CBM-M}
c:$s{CBM-R}s{CBM-N}1
:. cat$(s,1){CBM-R}"end" {CBM-M} "All codes have been reviewed":a${CBM-R}"n":
:8 cat$(s,3){CBM-R}"" {CBM-M}2380
{CBM-N}:b2340
B:l"";sp$:i{CBM-R}1{CBM-@}300:
820
3{$fe} E(cn$(tc{CBM-Q}1{CBM-N}nc)){CBM-R}0 {CBM-M} nc{CBM-R}nc{CBM-Q}1: tc{CBM-Q}1{CBM-N}nc{CBM-W}{CBM-E}0 {CBM-M}1790
g3cn$(tc){CBM-R}D(E(cn$(tc{CBM-Q}1{CBM-N}nc)){CBM-N}1):: {CBM-T}15);cn$(tc);"";
K3cn$(tc){CBM-R}I(cn$(tc),C(cn$(tc)){CBM-Q}1)
3cl{CBM-R}20:nc{CBM-R}0:;{CBM-T}15);:200: flag{CBM-R}1 {CBM-M} cn$(tc){CBM-R}e$
{CBM-C}3&cl{CBM-R}22:: {CBM-T}15);:200:2170
{$e8}30 flag{CBM-R}1 {CBM-M} ch$(
X=f
: {CBM-T}16);da$(tc):1630
{$fa}=p
dep{CBM-R}dep{CBM-N}inc:cum{CBM-R}cum{CBM-N}inc:inc{CBM-R}0
/>z
cr${CBM-R}G(13):"Saving transactions, please wait"
o>D
 5:5,8,5,"@0:"{CBM-N}file${CBM-N}",s,w
F>N
2420: en{CBM-E}1 {CBM-M}2640
>X
s{CBM-R}o:5,count;cr$;bal$;cr$;dep;cr$;cum
>
s{CBM-R}s{CBM-N}1
G>
5,cat$(s,1);cr$;cat$(s,2); {CBM-M}2540
{$e5}6{$f8} edit{CBM-R}1 {CBM-M}2450
7 fp{CBM-R}1 {CBM-P} ch$(tn){CBM-R}"" {CBM-P} da$(tn){CBM-R}"" {CBM-M} tn{CBM-R}tn{CBM-Q}1
$7fp{CBM-R}0:1550
o7f{CBM-R}1:"Re-enter a valid Category Code"
F7  i{CBM-R}1{CBM-@}1500::2540
7*bal{CBM-R}E(bal$):le{CBM-R}0:3180:bal${CBM-R}nb$
{CBM-C}74"Transaction No:";tc;: {CBM-T}24);"Bal: $";bal$
{SHIFT-+}7>:"Da){CBM-N}sp$,25);H(cn$(i){CBM-N}"       ",7);
b I("        "{CBM-N}ch$(i),8);" ";I("        "{CBM-N}da$(i),8);" ";nb$
3blc{CBM-R}lc{CBM-Q}1: x${CBM-R}"s" {CBM-M} lc{CBM-R}lc{CBM-Q}1
ib{CBM-@} lc{CBM-E}4 {CBM-M} :3070
]b{CBM-S} x${CBM-R}"p" {CBM-M}3050
b{CBM-U}"Press Return or Q to Quit";
bB{CBM-K} a$: a${CBM-W}{CBM-E}"" {CBM-M}3010
CbL{CBM-K} a$: a${CBM-W}{CBM-E}G(13)j,1){CBM-R}"." {CBM-M}3230
Cd
{CBM--}dnb${CBM-R}nb${CBM-N}".00":3240
{$fc}d j{CBM-R}x{CBM-Q}1 {CBM-M} nb${CBM-R}nb${CBM-N}"0":j{CBM-R}x:
$e{CBM-POUND} le{CBM-E}0 {CBM-M} nb${CBM-R}I("          "{CBM-N}nb$,le)
*e{CBM-R}
ee{CBM-C}ttal{CBM-R}0:ytd{CBM-R}0:ave{CBM-R}0:s{CBM-R}0
\eF2770: x${CBM-R}"q" {CBM-M}
GeP3580
QeZs{CBM-R}s{CBM-N}1
{CBM-K}e{$e4}ttal{CBM-R}ttal{CBM-N}E(cat$(s,2)):ytd{CBM-R}ytd{CBM-N}E(cat$(s,3))
{CBM-B}e{$ee} cat$
;v"Replace unused code ";cat$(s,1);" with ";ct$(tc);"?(y/n)
6;{$60}440: a${CBM-R}"y" {CBM-M} cat$(s,1){CBM-R}ct$(tc):s{CBM-R}0:2230
a;J2340
H;T15,en,em$,x,x: en{CBM-W}20 {CBM-A} en{CBM-R}62 {CBM-M}
Y;{$7e}: en;em$:
;400:
;edit{CBM-R}1:c{CBM-R}1:x${CBM-R}""
R;"":cd{CBM-R}22:1410:"Type end to stc){CBM-R}e$:"";{CBM-T}15);ch$(tc)
4: ch$(tc){CBM-R}"" {CBM-A} ct$(tc){CBM-W}{CBM-E}"" {CBM-M}1880
j4df{CBM-R}1:"No Category Code. Re-enter transaction.";G(7)
A4n i{CBM-R}1{CBM-@}2000::2540
4x ch$(tc){CBM-W}{CBM-E}"" {CBM-P} c{CBM-R}0 {CBM-A} x${CBM-R}"s"{CBM-M} ::1940
{CBM-Z}4Bcl{CBM-R}22:: {CBM-T}15);:200:2170
{$e7}4L c{CBM-R}1 {CBM-M} bal${CBM-R}D(E(bal$){CBM-Q}E(da$cr$;cat$(s,3)
{$e5}>
 cat$(s,1){CBM-W}{CBM-E}"end" {CBM-M}2690
{$f4}>
 i{CBM-R}0 {CBM-@} tn
9?{CBM-N}
5,td$(i);cr$;ct$(i);cr$;de$(i);cr$;cn$(i);cr$;ch$(i);cr$;da$(i)
d?{CBM-H}
: 5:
[?{CBM-V}
2770: x${CBM-R}"q" {CBM-M}
F?H
2880
?R
"":1400:bal{CBM-R}0:""
{CBM-M}?{CBM--}
 {CBM-T}10);"S = Screen Display"
M?{$e6}
: {CBM-T}10);"P
te.......... ";mo$
{$f4}7h:"Category Code."

8r:"Description..."
&8\:"Check No......"
?8F:"Check Amount.."
z8P:"Deposit Amount":
T8Z e${CBM-R}"" {CBM-A} C(e$){CBM-R}1 {CBM-M}
8 I(e$,1){CBM-R}"." {CBM-M} e${CBM-R}e${CBM-N}"00":
{SHIFT-POUND}8x{CBM-R}C(e$): i{CBM-R}1{CBM-@}x
G8 J(e$,i,1){CBM-R}"." {CBM-M} i{CBM-R}x:: {CBM-P} a${CBM-W}{CBM-E}"q" {CBM-M}3020
TbV a${CBM-R}"q" {CBM-M}
{$e5}b "";:3060
{$fd}b{$ea} j{CBM-R}1 {CBM-@} 5: G(13):
c{$f4}3090:
 c{$fe} x${CBM-R}"p" {CBM-M} 4: 4:
+c400:
mclc{CBM-R}22:x${CBM-R}"p" {CBM-M} lc{CBM-R}55: {CBM-T}33);
Ic x${CBM-R}"s" {CBM-P} cc{CBM-R}0 {CBM-M} lc{CBM-R}42
c&"CHECK REGISTER":
Ic0"#    DATE       CAT  DESCRIPTION        (s,1){CBM-W}{CBM-E}"end" {CBM-M}3290
Ge{$f8}s{CBM-R}0
Qe
s{CBM-R}s{CBM-N}1
{$ee}e
 cat$(s,1){CBM-R}"end" {CBM-M}3480
f
 cat$(s,3){CBM-R}"" {CBM-A} cat$(s,3){CBM-R}"0" {CBM-M}3330
7f
b${CBM-R}H(cat$(s,1){CBM-N}"      ",6)
^f*
bal{CBM-R}E(cat$(s,2)):le{CBM-R}8:3180:c${CBM-R}nb$
f4
x{CBM-R}E(cat$(s,2)){CBM-Z}ttal:x{CBM-R}{CBM-J}(x{CBM-D}100{CBM-N}.5):d${CBM-R}I("    "{CBM-N}D(x),4)
{CBM-B}f>
bal{CBM-R}E(cat$(s,ave transactions";
{SHIFT--};{CBM-+}1400

<{CBM-A}"":"Enter Transaction Number";: x$
%<{SHIFT-@} x${CBM-R}"h" {CBM-M} 5420:2450
f<D x${CBM-W}{CBM-E}"e" {CBM-P} x${CBM-W}{CBM-E}"end" {CBM-M}2530
_<N fc{CBM-R}1 {CBM-M} fc{CBM-R}0:2640
E<X
<{$e2}tc{CBM-R}E(x$): tc{CBM-R}0 {CBM-A} tc{CBM-W}0 {CBM-A} tc{CBM-E}tn {CBM-M}2480
{CBM-L}<{$ec}c{CBM-R}1:2090:cd{CBM-R}11:1410: f{CBM-R}1 {CBM-M} 2570
R<{$f6}"(tc))):inc{CBM-R}inc{CBM-Q}E(da$(tc))
5V flag{CBM-R}1 {CBM-M} da$(tc){CBM-R}e$:"";{CBM-T}15);da$(tc)
25bal${CBM-R}D(E(bal$){CBM-N}E(da$(tc)))
i5inc{CBM-R}inc{CBM-N}E(da$(tc))
V5 ct$(tc){CBM-W}{CBM-E}"" {CBM-M} s{CBM-R}0:2230: a${CBM-R}"n" {CBM-M}2070
5 cn$(tc){CBM-R}"" {CBM-A} ch$(tc){CBM-W}{CBM-E}"" {CBM-M}1980
T5{CBM-POUND}f{CBM-R}1:"Enter check amount or delete check n = Print on printer"
{$f7}?{$f0}
: {CBM-T}10);"Q = Quit, return to menu"
@{$fa}
 {CBM-T}10);"Enter Selection -"
8@{CBM-K} x$: x${CBM-R}"h" {CBM-M} 5450:2770
{$60}@ x${CBM-W}{CBM-E}"s" {CBM-P} x${CBM-W}{CBM-E}"p" {CBM-P} x${CBM-W}{CBM-E}"q" {CBM-M}2820
J@"";
{$7c}@" x${CBM-W}{CBM-E}"p" {CBM-M}
@, r{CBM-R}0 {CBM-M} 3650: a${CBM-R}"n" {CBM-M}2770
C@6"Printing....."0
 6 B(j){CBM-R}15{CBM-N}y {CBM-M}280
. @e${CBM-R}H(e$,C(e$){CBM-Q}1):a$;:220
l j B(j){CBM-E}cl {CBM-M}  G(7);:280
 t a${CBM-R}G(17) {CBM-A} a${CBM-R}G(145) {CBM-A} a${CBM-R}G(157) {CBM-A} a${CBM-R}G(29) {CBM-M}280
{CBM-F} ^ a${CBM-R}G(34) {CBM-A} a${CBM-R}G(44) {CBM-A} a${CBM-R}G(19) {CBM-A} a${CBM-R}G(147) {CBM-M}280
Z Hflag{CBM-R}1: a$;:e${CBM-R}e${CBM-N}a$:220
~ R H(e$,1){CBM-R}" " {CBM-M} e${CBM-R}J(e$n"
{$f2}*{CBM-+}s{CBM-R}0:"";
{$fc}*{CBM-A}s{CBM-R}s{CBM-N}1
+{SHIFT-@} cat$(s,1){CBM-R}"end" {CBM-M}1280
,+D s{CBM-R}24 {CBM-M} "";
\+N {CBM-T}1):y{CBM-R}{CBM-Q}14:cl{CBM-R}4: s{CBM-E}23 {CBM-M}  {CBM-T}11):y{CBM-R}{CBM-Q}4:cl{CBM-R}14
W+X200:""{CBM-T}cl{CBM-N}1);G(148)
+{$e2}380
+{$ec} flag{CBM-R}1 {CBM-M} cat$(s,1){CBM-R}e$
{CBM-+}+{$f6}1200
W+
 {CBM-T}9);"Any changes?(y/n)            ":440
{$eb}+
 a${CBM-R}0 {CBM-M}640
$ 5:1430
$${CBM-POUND}cd{CBM-R}19:1410: sp$;""
n${CBM-R}:"Is this a new month?(y/n)";:440
\${CBM-C} {CBM-T}26);a$
O$F a${CBM-R}"n" {CBM-M}800
$Px{CBM-R}mo{CBM-Q}1: x{CBM-R}0 {CBM-M} x{CBM-R}12
{CBM-@}$Zy{CBM-R}year: x{CBM-R}12 {CBM-M} y{CBM-R}year{CBM-Q}1
I${$e4}x${CBM-R}I(D(100{CBM-N}x),2):x${CBM-R}x${CBM-N}I(D(y),2)
{$e2}${$ee} 5:5,8,5,{CBM-N}x${CBM-N}",s,r"
%{$f8}2420:ss Return to continue or"
@p
"      Press H for help messages";
Dz
{CBM-K} a$: a${CBM-W}{CBM-E}"h" {CBM-P} a${CBM-W}{CBM-E}G(13) {CBM-M}90
{$7d}D
 a${CBM-R}"h" {CBM-M} 5230:10
{CBM-J}N
 53280,8:53281,8::"":a${CBM-R}"":e${CBM-R}"":cl{CBM-R}0:x{CBM-R}0:y{CBM-R}0
{SHIFT-+}X
cr{CBM-R}128: {CBM-U}(0){CBM-R}{CBM-U}(1) {CBM-M} cr{CBM-R}64: G(8)
{$f2}
 cr{CBM-R}128 {CBM-M}  G(11)
~
tran{CBM-R}
e first 3 letters ";
a({$de}"(unshifted) of each":"category (hou=housing, cas=cash, etc),"
({$e8}"and will be listed for your review.":"Any code up to 4 ";
F({$f2}"characters can be":"established.":"xxx = codes not yet ";
){$fc}"assigned, and can":"be c7" {CBM-M}1530
/ E(a$) 1550,2450,2750,3260,3660,110,5550:1430
1/"":tn{CBM-W}{CBM-E}tran {CBM-M}1590
O/:"Maximum transactions of";tran;"have been":"entered."
{CBM-F}/""Save your entries (opt 2), and increase TRAN in line 140 of program."
F/,400:
{$e9}/6tn{CBM-R}tn{CBM-N}1:tc{CBM-R}tn,2):370
.!{$7c}x{CBM-R}C(e$): I(e$,1){CBM-R}" " {CBM-M} e${CBM-R}H(e$,x{CBM-Q}1):380
4!
\!"Press Return to continue    ";
T!{CBM-K} a$: a${CBM-W}{CBM-E}"" {CBM-M}410
!{CBM-@}{CBM-K} a$: a${CBM-W}{CBM-E}G(13) {CBM-M}420
!{CBM-S}
{CBM-U}!{CBM-U}{CBM-K} a$: a${CBM-W}{CBM-E}"y" {CBM-P} a${CBM-W}{CBM-E}"n" {CBM-M}440
{CBM-V}!B
N!L"":1400
~!V"":"Enter month and year (m
{CBM-R}"y" {CBM-M}1050
, {CBM-T}9);"Print codes on printer?(y/n)";
.,440: a${CBM-R}"n" {CBM-M}1350
n,(3650: a${CBM-R}"n" {CBM-M} "":1300
G,2"Printing....."
,<s{CBM-R}0:4,4,7:4:c{CBM-R}1:"Codes for";year:1060:4: 4
{CBM-Q},f2640:1430
{CBM-X},pcount{CBM-R}count{CBM-N}1
G,zs{CBM-R}s{CBM-N}1
{$f2},Dcat$(s,2){CBM-R}"": cat en{CBM-W}20 {CBM-M} 590:  5:930
% en{CBM-W}{CBM-E}62 {CBM-M}460
l%:"Is this first input to program?(y/n)";:440
I% {CBM-T}37);a$: a${CBM-R}"y" {CBM-M}850
% :"Insert Data Disk or enter proper date"
I%*"Press Return to continue";:1400:""
{$ee}%4{CBM-K} a$: a${CBM-W}{CBM-E}G(13) {CBM-P} a${CBM-W}{CBM-E}"h" {CBM-M}82150
a
 td$(tran),ct$(tran),de$(tran),cn$(tran),ch$(tran),da$(tran)
F
 cat$(39,3),bu$(39,12),inc$(12)
{CBM-N}
i{CBM-R}1{CBM-@}39:sp${CBM-R}sp${CBM-N}" ":: cr{CBM-R}64 {CBM-A} B(215){CBM-R}0 {CBM-M} cc{CBM-R}40
F{CBM-H}
 i{CBM-R}1{CBM-@}40:line${CBM-R}line${CBM-N}"{CBM-@}":: cc{CBM-R}0 {CBM-M} {$fe}%
T{CBM-V}
460:640
{$f3}H
flag{CBM-R}0:{CBM-K} e$: e${CBM-W}{CBM-E}"" {CBM-M}200

R
j{CBM-R}hanged now or retained and changed"
#)"later in the year."
-)400
;)"";:s{CBM-R}0
e)$s{CBM-R}s{CBM-N}1
B). cat$(s,1){CBM-R}"end" {CBM-M}1110
{$7b})8 s{CBM-R}24 {CBM-P} c{CBM-R}0 {CBM-M} "";
)b s{CBM-E}23 {CBM-P} c{CBM-R}0 {CBM-M}  {CBM-T}10)
{CBM-A})l"  ";cat$(s,1):1060
{CBM-V})v c{CBM-R}1 {CBM-M}
W){$60} s{CBM-E}38 {CBM-M} "":1180
*J {CBM-T}9);":edit{CBM-R}0:c{CBM-R}0:x${CBM-R}""
#0@2090:cd{CBM-R}10:1410:"Type end to save transactions";
.0j1400
m0t tc{CBM-E}1 {CBM-M} td$(tc){CBM-R}td$(tc{CBM-Q}1)
N0^y{CBM-R}4:"";{CBM-T}20);td$(tc);year
{CBM-G}0Ha${CBM-R}"":cl{CBM-R}21:"";{CBM-T}19);:200: a${CBM-R}"h" {CBM-M} 5340:1600
E0R tc{CBM-R}tn {CBM-P} de$(tn){CBM-W}{CBM-E}"" {CBM-M}1670
1{$7c} a${CBM-R}"n"{CBM-P} tcmyy)";file$
"  file${CBM-R}"h" {CBM-M} 5290
9"{$ea}file${CBM-R}I(D(10000{CBM-N}E(file$)),4)
M"{$f4}mo{CBM-R}E(H(file$,2)):year${CBM-R}I(file$,2):year{CBM-R}E(year$)
"{$fe} mo{CBM-W}1 {CBM-A} mo{CBM-E}12 {CBM-M}460
{SHIFT-POUND}": i{CBM-R}1{CBM-@}12: a$: i{CBM-R}mo {CBM-M} mo${CBM-R}a$
{CBM-P}"
{$de}"s{CBM-R}0: 15: 15,8,15: 5: 5,8,5,{CBM-N}file${CBM-N}",s,r"
{$f5}"&2420: en{CBM-R}62 {CBM-M}$(s,1){CBM-W}{CBM-E}"end" {CBM-M}1370
-Ndep{CBM-R}0:1430
2-X"":cd{CBM-R}23:1410:"Press H key for help";:
h- i{CBM-R}1{CBM-@}cd: G(17);
p-:
X-"File: ";file$;{CBM-+}14);"Bal: $";bal$
{CBM-Q}- :"          Money Manager Menu            "
Q-{CBM-N}:: {CBM-T}8);"1 = Add Transactions
{$fe}-{CBM-H}: {CBM-T}80
&> a${CBM-R}"h"{CBM-M} 5310:820
&h460
(&r{CBM-K} a$: a${CBM-W}{CBM-E}""{CBM-M}850
j&\cd{CBM-R}15:1410: sp$;""
&F:"Checkbook balance (xxxx.xx) ";e$:2170:bal${CBM-R}e$
{CBM-+}&P e${CBM-R}"h" {CBM-A} e${CBM-R}"H" {CBM-M} "";:870
B&Zda$(0){CBM-R}bal$:td$(0){CBM-R}"01"
L&s{CBM-R}s{CBM-N}1
{$f4}& cat$(s,1): cat$(s,1){CBM-R}"
236: cr{CBM-R}64 {CBM-M} j{CBM-R}211
{CBM--}
"<";
1{$e6}
 y{CBM-W}{CBM-E}4 {CBM-A} f{CBM-R}1 {CBM-M}280
h{$f0}
 a${CBM-R}"h" {CBM-P} c{CBM-R}0 {CBM-M}
M{$fa}
 a${CBM-R}"p" {CBM-P} tc{CBM-E}1 {CBM-M} tc{CBM-R}tc{CBM-Q}1:fp{CBM-R}1:
 a${CBM-R}"n" {CBM-P} c{CBM-R}1 {CBM-P} tc{CBM-W}{CBM-R}tn {CBM-M} tc{CBM-R}tc{CBM-N}1:
{CBM-D} a${CBM-R}"e" {CBM-P} c{CBM-R}1 {CBM-M}
C{CBM-K} a$: a${CBM-R}"" {CBM-M}280
{$e4}" a${CBM-R}G(13) {CBM-M} " ";G(20):370
{$f9}, a${CBM-W}{CBM-E}G(20) {CBM-M}33Do you want more codes?(y/n)":440: a${CBM-R}"n" {CBM-M}1180
r*T {CBM-T}9);"How many more (up to"39{CBM-Q}s;")";: x: x{CBM-R}0 {CBM-M}1050
F*{$7e} s{CBM-N}x{CBM-E}39 {CBM-M}1140
*cat$(s{CBM-N}x{CBM-Q}1,1){CBM-R}"mis":cat$(s{CBM-N}x,1){CBM-R}"end"
{CBM-O}* i{CBM-R}1{CBM-@}x:cat$(s{CBM-Q}2{CBM-N}i,1){CBM-R}"xxx"::1050
{$e4}* {CBM-T}9);"Enter changes or press retur{CBM-E}{CBM-R}tn {CBM-M} " Last Transaction":i{CBM-R}1{CBM-@}900::a${CBM-R}"e"
!1 a${CBM-R}"p" {CBM-A} a${CBM-R}"n" {CBM-M}2540
>1 a${CBM-R}"e" {CBM-M} x${CBM-R}"n":2040
S1 flag{CBM-R}1 {CBM-M} td$(tc){CBM-R}e$:"";{CBM-T}19);td$(tc);year" "
{CBM-T}1{CBM-@} c{CBM-R}0 {CBM-P} e${CBM-R}"e" {CBM-A} e${CBM-R}"end" {CBM-M} tn{CBM-R}tn{CBM-Q}1:2640:
Q1{CBM-S}y{CBM-R}0: E(td$(tc)){CBM-W}1 {CBM-A} E(td$(tc)){CBM-E}31 {CBM-M}1630
{$fa}1680
#0 en {CBM-E}1 {CBM-M}460
#:580:
8#dtn{CBM-R}{CBM-Q}1:: "Reading the file....."
r#n5,count,bal$,dep,cum
\#xs{CBM-R}s{CBM-N}1
#B5,cat$(s,1),cat$(s,2),cat$(s,3)
#L cat$(s,1){CBM-W}{CBM-E}"end" {CBM-M}600
{CBM-@}#V
{CBM-A}#tn{CBM-R}tn{CBM-N}1
{$e7}#5,td$(tn),ct$(tn),de$(tn),cn$(tn),ch$(tn),da$(tn)
{$f8}# st);"2 = View/Change Transactions"
'.{CBM-V}: {CBM-T}8);"3 = Print Check Register"
l.H: {CBM-T}8);"4 = Payment Analysis"
J.R: {CBM-T}8);"5 = EZ Budget"
.{CBM--}: {CBM-T}8);"6 = New Month"
{CBM-K}.{$e6}: {CBM-T}8);"7 = Quit"
A.{$f0} {CBM-T}8);"Enter Selection -"
{$e2}.{$fa}{CBM-K} a$: a${CBM-W}"1" {CBM-A} a${CBM-E}"end" {CBM-M}970
{$fd}&900
'{CBM-I}da$(0){CBM-R}bal$:td$(0){CBM-R}"01"
0'{CBM-D}s{CBM-R}0: mo{CBM-W}{CBM-E}1 {CBM-M}1360
:'{CBM-L}s{CBM-R}s{CBM-N}1
Q'{SHIFT-*}cat$(s,2){CBM-R}"":cat$(s,3){CBM-R}"": cat$(s,1){CBM-W}{CBM-E}"end" {CBM-M}950
{CBM-H}'Jcount{CBM-R}1:dep{CBM-R}0:cum{CBM-R}0:"Category Codes for the next year must"
{$fc}'T"now be established. Suggested codes are":"th

 new rerun c128 menu
-
 lou wallace
@
 run magazine
v(
53280,0:53281,0
T2
dr{CBM-R}B(186):v{CBM-R}54273:G(142)
<
ch${CBM-R}"abcdefghijklmnopqrstuvwxyz"
{CBM-J}f
dr${CBM-R}I(D(dr),C(D(dr)){CBM-Q}1)
Zp
 n$(255),d$(255):cx{CBM-R}54272: ""
{$e2}z
 f
_
 400:nl{CBM-R}14:s1{CBM-R}0:s2{CBM-R}0:
1oot
'v run paint,run
'{$60} graph maker,run


;: 590
c%0 i{CBM-R}1 {CBM-@} 19: pr$;: 590:
^%: wm{CBM-W}{CBM-E} 80 {CBM-M}  53265,27
D%d
{$7d}%n sound routine here
%xZ 1,1000,1
%B
{CBM-I}%{$e8} file list
{SHIFT-+}%{$f2} first entry is the number of programs on this disk
{$fb}%{$fc} followed b{CBM-E}5 {CBM-M} 285
z a$"  note: form writer 128 & run paint 128 operate in 40-col. mode only."
C {CBM-K}{$f9}m$
{$7e} "m${CBM-W}"a"{CBM-A}m${CBM-E}G(64{CBM-N}f){CBM-M}285
 ,p{CBM-R}F(m$){CBM-Q}64:""
{CBM-P} 6 d$(p){CBM-W}{CBM-E}"run" {CBM-M} 340
V @C(n$(p)){CBM-E}16{CBM-M}n$(p){CBM-R}H(n$(p),15){CBM-N}"*"
{$ea} j (n$(p)),u(dr)
!tC(n$(p

 new rerun c64 automenu
0
 lou wallace
n(
53280,0:53281,0:G(142)
D2
dr{CBM-R}B(186):v{CBM-R}54273
<
ch${CBM-R}"abcdefghijklmnopqrstuvwxyz"
{CBM-G}f
dr${CBM-R}I(D(dr),C(D(dr)){CBM-Q}1)
Jp
 n$(255),d$(255):cx{CBM-R}54272: ""
Rz
 f
{$ee}D
 i{CBM-R}1 {CBM-@} f: n$(i),d$(i)
N
 C(n$(i)){CBM-E}
 B{CBM-M}Q"
r${$e5}bt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q"
${$e6}hd${CBM-R}"   run works disk"
{CBM-@}${$ea}"";
{CBM-J}${$f4} tp$;: 590
R${$fe} i{CBM-R}1 {CBM-@} 2: md$;: 590:
{$f1}$"";hd$;:  tC(n$(p)){CBM-E}15{CBM-M}n$(p){CBM-R}H(n$(p),16){CBM-N}"*"
h^"load"G(34)n$(p)G(34)","dr$",1"
uHa${CBM-R}d$(p)
ERa${CBM-R}a${CBM-N}G(13)
{$7c}631,13:b{CBM-R}1{CBM-@}C(a$):631{CBM-N}b,F(J(a$,b,1))::198,10
 {CBM-I}
{CBM-U} 53280,0: 53281,0
Hov{CBM-R}B(53265)
{$e2}{CBM-@} 53265,B(53265){CBM-P} 247
~{CBM-S} 53265,(B(53265) wm{CBM-R}80 {CBM-M} s1{CBM-R}15:s2{CBM-R}25:nl{CBM-R}16
4D
 i{CBM-R}1 {CBM-@} f: n$(i),d$(i)
{$60}N
 C(n$(i)){CBM-E}nl {CBM-M} n$(i){CBM-R}H(n$(i),nl{CBM-Q}1){CBM-N}"*"
FX


 - print first column of names -

d${CBM-R}""
{CBM-Z}
 i{CBM-R}1 {CBM-@} f{CBM-Z}2
{CBM-Y}{CBM-N}
 d$;
Z{CBM-H}
{CBM-+}s1)""J(ch$,i,1)" "n$(i)
{$ee}{CBM-V}
 590:d${CBM-R}d${CBM-N}""
{$f4}H

R
 -
15: v{CBM-N}4,9: v{CBM-N}5,0: v,1: v{CBM-N}3,32: v{CBM-N}3,33
$"B
4"{$e8} file list
M"{$f2} first entry is the number of programs on this disk
"{$fc} followed by each filename
{CBM-Y}" second data item is run or sysxxxxx
{$e6}" run if file is basic and sys xxxxx if ml
{$ee}" 8
#$)){CBM-E}16{CBM-M}n$(p){CBM-R}H(n$(p),15){CBM-N}"*"
7!u d$(p){CBM-R}"boot" {CBM-M} {$fe} (n$(p)),u(dr)
\!v{$fe} (n$(p)),b0,u(dr): (E(d$(p)))
T! 53280,0: 53281,0
!wm{CBM-R}N(2): wm{CBM-R}80 {CBM-M} {$fe}%: 482
{CBM-@}!ov{CBM-R}B(53265)
{CBM-V}!{CBM-@} 53265,B(53265){CBM-P} 247
{SHIFT-+}!{CBM-S} 53265,(B(53265){CBM-P}248){CBM-N}7
{$e5}!{CBM-P} 440
"{CBM-U}pr${CBM-R}"Q{CBM-G} 13 {CBM-M} n$(i){CBM-R}H(n$(i),13){CBM-N}"*"
X

(
 400
n
 - print first column of names -
_
d${CBM-R}""
O
 i{CBM-R}1 {CBM-@} f{CBM-Z}2
Y{CBM-N}
 d$;
{CBM-H}
""J(ch$,i,1)" "n$(i)
{CBM-D}{CBM-V}
 590:d${CBM-R}d${CBM-N}""
{CBM-R}H

XR
 -- then 2nd column of names ---
{$e9}{CBM--}
d${CBM-R}""

{$e6}
 i{CBM-R}(f{CBM-Z}2{CBM-N}1) {CBM-@} 590
{$f7}$
% i{CBM-R}1 {CBM-@} 1: md$;: 590:
%%& bt$;: 590
c%0 i{CBM-R}1 {CBM-@} 19: pr$;: 590:
^%: wm{CBM-W}{CBM-E} 80 {CBM-M}  53265,27
D%d
{$7d}%n sound routine here
%xZ 1,1000,1
%B
{CBM-I}%{$e8} file list
{SHIFT-+}%{$f2} first entry is the number of programs on this disk
{$fb}%{$fc} followed b{CBM-P}248){CBM-N}7
4 {CBM-U}pr${CBM-R}"Q{CBM-G}                                    {CBM-M}Q"
I Btp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q"
 Lmd${CBM-R}"Q{CBM-G}B                                  B{CBM-M}Q"
S Vbt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q"
{$f4}  hd${CBM-R}"run works - 1988 rerun"
- then 2nd column of names ---
+{CBM--}
d${CBM-R}""
b{$e6}
 i{CBM-R}(f{CBM-Z}2{CBM-N}1) {CBM-@} f{CBM-N}.5
l{$f0}
 d$;
S{$fa}
{CBM-+}s2){CBM-+}19)""J(ch$,i,1)" "n$(i)
 590:d${CBM-R}d${CBM-N}""
{CBM-I}:a${CBM-R}""
Na$ "note: run shell will not load from
{$f9}a$"this menu if you are using a 1541

{CBM-Y} money manager,run
#. label base,run
0#8 runterm 64,run
j#= change defaults,run
B#b form writer64,run
{$7b}#l run shell,sys 4864
#v run paint,run
{CBM-G}#{$60} graph maker,run


 pr$;: 590:
I!: 53265,27
O!d
{$e8}!n sound routine here
"x v{CBM-N}23,                                   {CBM-M}Q"
o"Btp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q"
"Lmd${CBM-R}"Q{CBM-G}B                                  B{CBM-M}Q"
{CBM-O}"Vbt${CBM-R}"Q{CBM-G}JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK{CBM-M}Q"
T" hd${CBM-R}"   run works disk
{$de}"{$e1} 490
;#{$e2}pr${CBM-R}"Q{CBM-G}      f{CBM-N}.5

{$f0}
 d$;
-{$fa}
{CBM-+}19)""J(ch$,i,1)" "n$(i)
a 590:d${CBM-R}d${CBM-N}""
g
[{CBM-K}m$:m${CBM-R}""{CBM-M} 280
V"m${CBM-W}"a"{CBM-A}m${CBM-E}G(64{CBM-N}f){CBM-M}280
,p{CBM-R}F(m$){CBM-Q}64:""
{CBM-M}6 d$(p){CBM-W}{CBM-E}"run" {CBM-M} 340
N@C(n$(p)){CBM-E}12{CBM-M}n$(p){CBM-R}H(n$(p),12){CBM-N}"*"
{$f9}j"load"G(34)n$(p)G(34)","dr$"":360
y each filename
%& second data item is run or sysxxxxx
u& run if file is basic,boot or  xxxxx if ml
]& 8
U&$ money manager,run
&. label base,run
{CBM-@}&8 boot.runterm128,run
{CBM-V}&= change defaults,run
X&b form writer 128,run
{$ed}&l run shell,b!{$ea}"";
'!{$f4} tp$;: 590
d!{$fe} i{CBM-R}1 {CBM-@} 2: md$;: 590:
B!"";hd$;: 590
N!:"";
! i{CBM-R}1 {CBM-@} 1: md$;: 590:
!& bt$;: 590
{SHIFT-@}!0 i{CBM-R}1 {CBM-@} 19: pr$;: 590:
I!: 53265,27
O!d
{$e8}!n sound routine here
"x v{CBM-N}23,"a$"or an older 1571 in 1541 mode.
pa$"if it does not load from the menu,
{$7f}a$"load it in direct mode as follows:
a$""
Ka$"bload"G(34)"run shell"G(34)",b0,p4864 <return>
{$ec}a$"sys 4864 <return>

  L(.){CBM-W}2

 "money manager with ez budget - by rex day
y
 53280,0: 53281,0: G(14);G(147)

cd{CBM-R}6:1410: {CBM-T}12);"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
{CBM-I}(
 {CBM-T}12);"{CBM-K}Money Manager{CBM-L}"
{CBM-B}2
 {CBM-T}12);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
{$e3}<
 {CBM-T}17)"with": {CBM-T}15)"EZ Budget"
f
cd{CBM-R}9:1410:"      Pre                                                                      {CBM-M}Q"
#{$e3}tp${CBM-R}"Q{CBM-G}UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI{CBM-M}Q"
{$f5}#{$e4}md${CBM-R}"Q{CBM-G}B                                                                         a
{$fc}~































































L{$fb}
































































{$e3}<run works         88 2a





















































































menu 128











menu 64











money manager








j



label base












boot.runterm128











runterm 128








0


wxmodem.128












punter.128









kk
runterm 64








,



wxmodem.64











configure











term.c1











change defaults











form writer 128








$


editor.128 ml













form writer64








$
kk
editor.64 ml











run shell








7


run paint












ob.boot rp











ob.rp








?


sys.stuff.h











graph maker








2



employ.work









kk
~employ.age











sal.pd











rpm.still.life








(



rpm.photon.eye








(


!
rpm.coaster








(



1209









































































kkkkkkkk

 label base 64/128
.
 by bob kodadek
4
:
J(
ps{CBM-R}0:ll{CBM-R}3:q{CBM-R}250:c{CBM-R}40:mo{CBM-R}64:ml{CBM-R}828:yr{CBM-R}782: G(142)
{CBM-G}2
 B(40960){CBM-R}0 {CBM-M} mo{CBM-R}128:ml{CBM-R}4864:828,183: B(215) {CBM-M} c{CBM-R}80
R<
sp${CBM-R}G(32):m${CBM-R}G(44): mo{CBM-R}128 {CBM-M} yr{CBM-R}8:q{CBM-R}350
f
 c{CBM-R}80 {CBM-M} 53265,B(53265) {CBM-P} 239: 53296,r::"sorting";
&Zy{CBM-R}{CBM-J}(y{CBM-Z}2):y{CBM-R}0{CBM-M}
&j{CBM-R}1:k{CBM-R}nr{CBM-Q}y
'&i{CBM-R}j
v&l{CBM-R}i{CBM-N}y:".";: r$(k(i),0){CBM-W}{CBM-R}r$(k(l),0) {CBM-M} 940
&{CBM-I}t{CBM-R}k(i):k(i){CBM-R}k(l):k(l){CBM-R}t:i{CBM-R}i{CBM-Q}y: i{CBM-E}0 {CBM-M} 920
&{CBM-D}j{CBM-R}j{CBM-N}1: j{CBM-E}k {CBM-M} 890
{CBM-T}&{CBM-L}910
{SHIFT-POUND}&{SHIFT-*}:
{CBM-Y}&J - entry
L&Tt{CBM-R}nr{CBM-N}1: t{CBM-E}q {CBM-M}
{$f9}&{$de}rn{CBM-R}t:nr{CBM-R}t:flag{CBM-R}1: i{CBM-R}0 {CBM-@}  n{CBM-R}0 {CBM-@} 6: r$(k(i),n){CBM-R}"" {CBM-M} r$(k(i),n){CBM-R}sp$
:#L5,r$(k(i),n): n: i:350
@#V:
y# - select records -
H#1080:310
{$7b}# a${CBM-R}G(13) {CBM-M}
# a${CBM-R}"f"{CBM-M}  nr {CBM-M} rn{CBM-R}1
{SHIFT-POUND}#{CBM-POUND} a${CBM-R}"l"{CBM-M} rn{CBM-R}nr
G#{CBM-R} a${CBM-R}"r"{CBM-P} nr {CBM-M} 1500:650
{$e4}#{CBM-C} a${CBM-R}"p"{CBM-P} rn{CBM-E}1 {CBM-M} rn{CBM-R}rn{CBM-Q}1
$F a${CBM-R}"n{CBM-R}1:280:"select - f, n, p, l, k, a, d, r, e, ?"
)T
"){$7e}:
9) - edit record  -
C)300:x{CBM-R}4:y{CBM-R}5:280:"record #"rn"of"nr
{$7e})x{CBM-R}8:y{CBM-R}0:280: i{CBM-R}0 {CBM-@} 6
{CBM-Y}){CBM-+} r$(k(rn),i){CBM-R}"" {CBM-A} r$(k(rn),i){CBM-R}sp$ {CBM-M} r$(k(rn),i){CBM-R}"*"
{$e1}){CBM-A} {CBM-+}8{CBM-Q}C(fd$(i))) fd$(i)": "r$(k(rn),i)
*
mo"- file: "fs$: {CBM-+}1) l$:
/ 6a${CBM-R}"":{CBM-K} a$: a${CBM-R}"" {CBM-M} 310
5 @
o jf${CBM-R}"": f$:le{CBM-R}C(f$):
S t15,en$,em$,et$,es$:en{CBM-R}E(en$):
 ^270:x{CBM-R}19:y{CBM-R}0:280
 H  5:  15
P R b$ "drive status:" o${CBM-N}sp${CBM-N}en${CBM-N}m${CBM-N}em${CBM-N}m${CBM-N}et${CBM-N}m${CBM-N}es$
{$e6} {$7c}:"press return"
~ 310:a${CBM-W}{CBM-E}G{$ee}+Na$;:1380
{$f7}+X360
{$fd}+:
, - key string -
$,270:y{CBM-R}6:280
<, "enter key -";:k$
k,{CBM-N} i{CBM-R}1 {CBM-@} nr
Q,{CBM-H} k${CBM-R}H(r$(k(i),0),C(k$)) {CBM-M} rn{CBM-R}i:
Y,{CBM-V}:
{$7f},H:
,R - replace record
I,{CBM--}270:y{CBM-R}5:280:"replace this record? (y or n)"
 ,{$e6}310: a${CBM-W}{CBM-E}"y" {CBM-M}1: fast mode
cp
b${CBM-R}G(13){CBM-N}G(18):o${CBM-R}G(146): i{CBM-R}0 {CBM-@} 6: fd$(i),l%(i):
Vz
 i{CBM-R}3 {CBM-@} c:l${CBM-R}l${CBM-N}G(163)::i{CBM-R}0 {CBM-@} 39:e${CBM-R}e${CBM-N}sp$:
{CBM-S}D
 i{CBM-R}0 {CBM-@} 89: by: ml{CBM-N}i,by:ck{CBM-R}ck{CBM-N}by:: ps {CBM-M}  G(14)
PN
 ck{CBM-W}{CBM-E}14598 {CBM-M} "data error":
{$f5}X
 r$(q,7),k(q):i{CBM-R}1 {CBM-@} q:k(i){CBM-R}i:
{$fb}
:

6:r$(rn,i){CBM-R}"":
('{$e8}1080: i{CBM-R}0 {CBM-@} 6:x{CBM-R}8{CBM-N}i:y{CBM-R}11:280: yr,l%(i)
v'{$f2} ml:c1{CBM-R}B(yr): c1{CBM-R}0 {CBM-M} r$(rn,i){CBM-R}sp$:1030
'{$fc} s{CBM-R}1 {CBM-@} c1:r$(rn,i){CBM-R}r$(rn,i){CBM-N}G(B(255{CBM-N}s)): s
E' i:k(rn){CBM-R}rn:270:y{CBM-R}6:280:"press space bar for another"
{CBM--}'310:a${CBM-R}sp$ {CBM-M} 980
{$e9}'flag{CBM-R}0:"{CBM-P} rn{CBM-W}nr {CBM-M} rn{CBM-R}rn{CBM-N}1
$P a${CBM-R}"k"{CBM-M} 1430
>$Z a${CBM-R}"d"{CBM-P} nr {CBM-M} 1260:rn{CBM-E}nr{CBM-M}rn{CBM-R}rn{CBM-Q}1
q${$e4} a${CBM-R}"a"{CBM-M} 980
J${$ee} a${CBM-R}"e"{CBM-P} nr {CBM-M} 1160
${$f8} a${CBM-R}G(16) {CBM-M} 1690
$ a${CBM-R}"?"{CBM-M} 790
 $ 4:650
E$300:x{CBM-R}5:y{CBM-R}8:280:"help menu":
{$f8}$  {CBM-+}8)"f - first record": {CBM-+}8)"n - ne{SHIFT-@} G(145) {CBM-T}10);:1,0:1,r$(k(rn),i)
/*D r$(k(rn),i){CBM-R}"*" {CBM-M} r$(k(rn),i){CBM-R}""
<*N: 1::
b*X:
z*{$e2} - delete record -
*{$ec}270:y{CBM-R}5:280:"delete this record? (y or n)"
{CBM-T}*{$f6}310: a${CBM-W}{CBM-E}"y" {CBM-M}
T*
 n{CBM-R}0 {CBM-@} 6:r$(k(rn),n){CBM-R}r$(nr,n):r$(nr,n){CBM-R}"":
+
 i{CBM-R}1 {CBM-@} n(13){CBM-M} 390
!
!:
!{CBM-@} - load file -
>!{CBM-S}:"load which file";:330
m!{CBM-U} le{CBM-W}1 {CBM-M}
Q!B f${CBM-R}"new" {CBM-M} nr{CBM-R}0:rn{CBM-R}0:fs${CBM-R}"":
!L 15,8,15: 5,8,5,"lb."{CBM-N}f${CBM-N}",s,r"
{CBM-S}!V340: en{CBM-W}{CBM-E}0 {CBM-M} 350
I! :"reading " f$;:rn{CBM-R}1
{$ed}!{$ea} i{CBM-R}rn {CBM-@} q: n{CBM-R}0 {CBM-@} 6:5,r$(i,n)
{$fe}!{$f4}
~,{$f0} i{CBM-R}0 {CBM-@} 6:r$(k(rn),i){CBM-R}"":
.-{$fa}1080: i{CBM-R}0 {CBM-@} 6:x{CBM-R}8{CBM-N}i:y{CBM-R}11:280: yr,l%(i)
^-ml:c1{CBM-R}B(yr): c1{CBM-R}0 {CBM-M} r$(k(rn),i){CBM-R}sp$:1560
- s{CBM-R}1 {CBM-@} c1:r$(k(rn),i){CBM-R}r$(k(rn),i){CBM-N}G(B(255{CBM-N}s)): s
- i:
{CBM-G}-":
{SHIFT-@}-, - print menu -
G-6300::
{$f4}-@ b$ {CBM-+}5)"f1" o$"
 - menu 1 -
!
 1: 5: 15:300:
c
 b$ {CBM-+}5)"f1" o$" - load file"
E{CBM-N}
 b$ {CBM-+}5)"f3" o$" - save file"
{CBM-H}
 b$ {CBM-+}5)"f5" o$" - select records"
{CBM-P}{CBM-V}
 b$ {CBM-+}5)"f7" o$" - directory "
RH
 b$ {CBM-+}5)"f2" o$" - enter data"
{$f6}R
 b$ {CBM-+}5)"f4" o$" - alphabetize"
{CBM--}
{$ef}'$:
(. - display record -
2(8300:x{CBM-R}4:y{CBM-R}5:280:"record #"rn"of"nr
^(bx{CBM-R}8:y{CBM-R}0:280: i{CBM-R}0 {CBM-@} 6:ld{CBM-R}36{CBM-Q}(24{CBM-Q}l%(i))
(l {CBM-+}8{CBM-Q}C(fd$(i))) fd$(i)" < "r$(k(rn),i) {CBM-T}ld)">":
{CBM-I}(v flag {CBM-M}
{SHIFT-+}({$60} flag{CBM-R}0 {CBM-M} x{CBM-R}18:y{CBM-R}8:280: "(press ctrl-p to print)"
)Jx{CBM-R}20:yxt record"
.%* {CBM-+}8)"p - previous record": {CBM-+}8)"l - last record"
D%4 {CBM-+}8)"k - key field match": {CBM-+}8)"a - add records"
%> {CBM-+}8)"d - delete record": {CBM-+}8)"r - replace record"
{CBM-V}%h {CBM-+}8)"e - edit current record"
I%r380:
O%\:
{$e4}%F - sort records
{$fb}%Py{CBM-R}nr:k(i){CBM-R}nr {CBM-M} k(i){CBM-R}k(nr):k(nr){CBM-R}0:nr{CBM-R}nr{CBM-Q}1:
+:
+:
0+( - read directory
=+2300::
K+<15,8,15:1,8,0,"$0:lb.*":340:en{CBM-W}{CBM-E}0{CBM-M}350
+fn${CBM-R}G(0):{CBM-K}#1,a$,a$
+p{CBM-K}#1,a$,a$: a${CBM-R}""{CBM-M} 1400
D+z{CBM-K}#1,a$,c$: F(a${CBM-N}n$){CBM-N}F(c${CBM-N}n$){CBM-D}256;
{CBM-*}+D{CBM-K}#1,a$:a${CBM-R}""{CBM-M} :1360
st{CBM-R}64 {CBM-M}520

"{$fe} n: i
&"nr{CBM-R}i: i{CBM-R}1 {CBM-@} q:k(i){CBM-R}i:
6"fs${CBM-R}f$:350
<":
p"& - save file -
P"0:"save to filename";:330
{$7f}": le{CBM-W}1 {CBM-M}
"d 15,8,15:15,"s0:lb."{CBM-N}f$
{CBM-V}"n 5,8,5,"lb."{CBM-N}f${CBM-N}",s,w":340
{$e1}"x:"writing " f$;: en{CBM-W}{CBM-E}0 {CBM-M}350
#B i{CBM-R}1 {CBM-@} nr: - print current record"
.j b$ {CBM-+}5)"f3" o$" - print all records"
g.t b$ {CBM-+}5)"f5" o$" - print phone list"
_.^310: a${CBM-R}G(13) {CBM-M}
.Hkp{CBM-R}F(a$){CBM-Q}132: kp{CBM-W}1 {CBM-A} kp{CBM-E}3  {CBM-M} 1630
.R kp 1690,1800,1850
{CBM-D}.{$7c} 4:1590
{CBM-R}.:
I. - print record -
{$ec}.cn{CBM-R}1:4,4,ps
 b$ {CBM-+}5)"f6" o$" - print menu"
c{$e6}
310:kp{CBM-R}F(a$){CBM-Q}132: kp{CBM-W}1 {CBM-A} kp{CBM-E}7 {CBM-M} 230
K{$f0}
 kp 430,560,650,1330,980,880,1590
T{$fa}
150
Z:
x{CBM-R}20:y{CBM-R}0:280: e$:
{CBM-B} mo{CBM-R}64 {CBM-M} 781,x: yr,y:783,0:65520:
{SHIFT--}"7,x: yr,y:5,0:65520:
 , G(147)" label base"
2+

 46,80::20480,0:{$fe}0:"runterm 128"
















money manager








j



label base









































































































































,132,251,240,49,32,228,255,240,251,164,251,201,13
h2F 208,6,169,32,32,210,255,96,201,20,240,40,196,252,240,231,201
2P 32,144,227,201,34,240,223,201,161,176,4,201,128,176,215,153,0
Q2Z 1,230,251,32,210,255,169,161,32,210,255,169,157,32,210,255,208
pp

22000









~~ {$ea}[ {$7d}~


RAM EXPANSION UNIT (REU) MENU:
------------------------------

< 1 > = REU Buffer ON
< 2 > = REU Buffer OFF
< 3 > = Set REU Write Pointer
< 4 > = Load REU Buffer from Disk
< 5 > = Save/Send REU Buffer
==================: 4:ss{CBM-R}st: ss {CBM-M}
/{CBM-@}:"how many labels? 1";:"";cn
+/{CBM-S}4,4,ps: cn {CBM-W}1 {CBM-M}
:/{CBM-U} i{CBM-R}1 {CBM-@} cn
_/B4,r$(k(rn),1) G(32) r$(k(rn),0)
R/L4,r$(k(rn),2)
 /V4,r$(k(rn),3)","G(32) r$(k(rn),4) G(32);
{CBM-W}/ 4,r$(k(rn),5)
O/{$ea} s{CBM-R}1 {CBM-@} ll:4: s: i:
U/{$f4}:
{$f1}/
p{$60} {$7d}~

Send To:
< 1 > = Printer
< 2 > = Screen
< 3 > = Disk

  ]I1P
 {$f7}D{CBM-A} gt{SHIFT-POUND}lC~I2Plt *AP{$60}{SHIFT-POUND}s w nA{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~ {$7d}~

Save Error!

 L~ F]{$60}{CBM-I} I~ t{SHIFT-POUND}lC~{CBM-S}s{$60}
{CBM-S}v{$f0}{$f9}{CBM-S}{CBM-S}s
{$e8}P{$ed}{CBM-S}sX{CBM-Z}0Ph{SHIFT-POUND}
0P{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{CBM-Z}p{CBM-*}{CBM-Z}p{CBM-*}{CBM-Z}p){CBM-*}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{CBM-Z}p
!vyyatd





















atdp





l!vh{CBM-I}{CBM-Z}v LM{$e8}{CBM-Z}v LMH JM{CBM-I}{SHIFT-POUND}
lLM{SHIFT-POUND}
~ bz{SHIFT-POUND}

~lE{$fa}


h{SHIFT-POUND}

~H {$e2}u{SHIFT-POUND}
~{$60} {CBM-O}?vN
{$f7} {CBM-O}rv
&{$f7} {CBM-Y}J{SHIFT-POUND}~{$fd}{SHIFT-POUND}

v{SHIFT-POUND}(v{SHIFT-POUND}<v{SHIFT-POUND}v.Z {$60}{CBM-Z}{SHIFT--}) v p{SHIFT-POUND}
{$fa}{CBM-G}W
{SHIFT-POUND}pv
v{SHIFT-POUND}v u
{SHIFT-POUND}
<
=
>
?HP{$f1}{SHIFT-POUND} R~{CBM-G}{$f1}v{CBM-Z}v!P{SHIFT-POUND}~v{SHIFT-POUND}
{CBM--}{SHIFT--}K = Function Keys   {SHIFT--} * = Defaults
L = Load Buffer     {SHIFT--} ^ = Baud Rate
R = Ram Expander    {SHIFT--}

 {$7d}w {$7d}~BUFFER POINTER:
{CBM-G}{CBM-E}8{$e9}{CBM-+}{CBM-A} 2 {$7d}~ (END=60160)

 {$7d}w{CBM-G}{$eb}v{CBM-G}{$ec}v{SHIFT-POUND}
v{$60}{$ea}{CBM-Z}
v{$f0} !z {CBM-H}[ {CBM-R}\ 1zIP{$60}IPL{$f7}u{CBM-I}{SHIFT--}{SHIFT-+}y{$f0}J{$f8}L{$f9}uly{SHIFT-POUND}yh{SHIFT-POUND}h{CBM-X}{$f2}yh{CBM-X}zh{$60}abcdefhklstuwz@*
D3{$e4} 195,192,0,240,240,198,251,169,32,32,210,255,169,157,32,210,255
/3{$ee} 32,210,255,208,223




 lc{CBM-W}60 {CBM-M} 1930
C1 lc{CBM-R}0 {CBM-@} lf:4: lc:lc{CBM-R}0
M1 i:
S1:
1 last,15,first,18,street,24
{SHIFT-@}1{CBM-POUND} city,24,state,2,zip,12,phone,12
{SHIFT-*}1{CBM-R}:
2{CBM-C} 132,252,160,0============
Current REU Write Pointer:
BANK:
{CBM-S}p{SHIFT-POUND}
 2 {$7d}~
ADDRESS:
{CBM-S}{CBM-S}s{CBM-Z}p 2 {$7d}~


  ]I1I6{CBM-A}8{$e9}1{CBM-N}{CBM-X}Mqh{CBM-X}Rqh{$60}qqqrr{SHIFT-POUND}{CBM-C}V& {$7d}~

Position the REU Write Pointer

 Kqp{CBM-S}sp{$60}{CBM-Z}vP
{SHIFT-POUND}
p {$7c}t{SHIFT-POUND}v{$60}{CBM-Z}v{$f0} {SHIFT-*}s{SHIFT-POUND}
v{$60} {$7d}~
Which REU Bank (0-7)?
  ]h R~{SHIFT-POUND}
 R~H8{$e9}0IH{$fe} - print all records -
0t{CBM-R}rn:rn{CBM-R}1:1690: cn{CBM-W}1 {CBM-A} ss {CBM-M}
60rn{CBM-R}rn{CBM-N}1:1720: rn{CBM-W}nr {CBM-M} 1810
a0rn{CBM-R}t:
g0&:
B00 - print phone list -
0:lc{CBM-R}0:lf{CBM-R}5:4,4,ps: 4: st {CBM-M}
 0d4,4,ps: i{CBM-R}1 {CBM-@} nr:ns{CBM-R}0
C0n n{CBM-R}0 {CBM-@} 2:4,r$(k(i),n) G(32);
{$e1}0xns{CBM-R}ns{CBM-N}C(r$(k(i{CBM-*}{SHIFT-POUND}

p{CBM-*}{CBM-Z}{CBM-*}p{CBM-Z}{CBM-*}p{CBM-Z}{CBM-*})pH0Px{$60} {$7c}t
{CBM-O}
 R~ {$ec}tHP{$f4} {$e1}~{$f0}{CBM-S}p{$e8}{$f0}{$ec}p{$f0}plt L~lF] {$7c}t
 L~{CBM-O}
h R~{CBM-I} I~H R~ {$ec}tHP{$e7} {$e1}~{$f0}{CBM-S}p{$e8}{$f0}{$ec}p{$f0}plgt{$60}{CBM-Z}p){CBM-*}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{CBM-Z}p
{CBM-*}{CBM-Z}p{CBM-*}{CBM-Z}p{CBM-*}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{CBM-Z}0Ph{SHIFT-POUND}
0P{SHIFT-POUND}
p{CBM-*}H0P{$60}
{CBM-I} F~ {$e4}~h{CBM-G}{SHIFT-*}t L~Hh R~ {$ec}tH {CBM-H}s {$e1}~{$f0}{CBM-Z}{SHIFT-*}tPlAt{$60}{SHIFT-POUND}
{$f4}{CBM-Z}v{$f1}/( {CBM-H}[ {$7d}~
{SHIFT-POUND}{$e5}v{SHIFT-POUND}
{CBM-A}{SHIFT-POUND}{CBM-E} z] 0 {$eb}] {$ec}z{SHIFT-POUND}{$fa}{SHIFT-POUND}v{$fb}{SHIFT-POUND}
{$fc}{SHIFT-POUND}{$fa}{CBM-I}
  E~{SHIFT-POUND}{$fa}{SHIFT-POUND}v{$fb}{SHIFT-POUND}
{$fc}{SHIFT-POUND}{$fa}{CBM-I}  E~ {$7d}~

RUN Term 128 - Version 2.0
By
Tom Brown

 E {CBM-H}[ wly '{SHIFT-POUND}{SHIFT-*} R~P{$f8}{SHIFT-POUND}
lR~ {$7d}~

         RUN TERM - COMMANDS
Hold down ALT key with the following:

 {$7d}w {$7d}~A = Autod^v123jrG{$7c}QQ{$7c}C{$7d}{$60}ABEP{$7c}]ZR{$7c}\MMMYp{CBM-C}MTY;ctLH{$f1}{$f4} #ag?{$60}h{CBM-S}P)OP{SHIFT-POUND}0PH{$60}h{SHIFT-POUND}
0P{CBM-Z}PPH{$60}
{CBM-I} {CBM-Z}{SHIFT--})M v{$f0}{CBM-I}@{CBM-Z}az{$f0}%{SHIFT-POUND}
az{CBM-Z}
vP {CBM-O}@{$f5} {CBM-O}

{$f5}{$60}{SHIFT-POUND}az{CBM-Z}{CBM--}{CBM-N})I0d{CBM-I}{CBM-I}n{CBM-I} ){$f0}{CBM-I}1c{CBM-Z}
{CBM--}{CBM-N})I0gjjjjI0f{CBM-Z}{CBM--}{CBM-N})I0jjjjjI0i{CBM-Z}{CBM--}I0l{SHIFT-POUND}:eh{SHIFT-POUND}.k{SHIFT-POUND}

.
{$60}{SHIFT-POUND}{CBM-W}[{SHIFT-POUND}
{$e5}{SHIFT-POUND}<;
{SHIFT-POUND}/
{SHIFT-POUND}.
{SHIFT-POUND} R~{SHIFT-POUND}{$f6},
P{CBM-I}{SHIFT-POUND} LM{CBM-I}{SHIFT-POUND} LM{CBM-I}{SHIFT-POUND}lLM {$ea}[{CBM-Z}
v{$f0} !z {$7d}  ]IP {$7e}l2\IP {CBM-F}{$7e}l2\IP z]l2\I+P{$ee}{$7d}{CBM-Z}{$7d}I{$ef}N{$f0}{$ea}I-P
N{$7d}{CBM-Z}{$7d}I{CBM-A}{CBM-V}lm\ 1z{$60}N{CBM-E}\{CBM-Z}{CBM-E}\P{SHIFT-POUND}{CBM-E}\l7[IPl[IP{CBM-Z}v{$e5}{$60}{CBM-Z}v{$f1}{$60}h{SHIFT-POUND}{CBM-I} R~{SHIFT-POUND} R~H{$60}h{SHIFT-POUND} P{$f1}{SHIFT-POUND}{CBM-E}\{CBM-S}v{$f0}!{CBM-I}
v{SHIFT-POUND} R~l \{CBM-S}v{$eb}{$e8}{CBM-S}v{$ec}{$e9} \AlwM I\ X\ {CBM-Y}H{$60}h {$7d}~

REU Start Address?
{SHIFT-POUND}{CBM-W}Y {CBM-J}Y{$f0}Y {CBM-U}U{CBM-N}H{$60} {$7d}~

Append SEQ file to REU Buffer


 *AP{$60}{SHIFT-POUND}s r nA{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~ {$7d}~

Load Error!

 L~ F]{$60} At{SHIFT-POUND} C~{$60}{SHIFT-POUND}{CBM-+}C{CBM-M}C {$7d}~


Save REU Buffer

 Kqppp {$7d}~

REU End Address?
{SHIFT-POUND}{CBM-W}Y {CBM-J}YP{$60} {CBM-U}Upp{CBM-Z}pM),n)){CBM-N}1: n
1Bns{CBM-R}ns{CBM-N}C(r$(k(i),6)):nd{CBM-R}79{CBM-Q}ns
1L d{CBM-R}1 {CBM-@} nd:4,"-";: d
f1V4,r$(k(i),6):lc{CBM-R}lc{CBM-N}1: lc{CBM-W}60 {CBM-M} 1930
C1 lc{CBM-R}0 {CBM-@} lf:4: lc:lc{CBM-R}0
M1 i:
S1:
1 last,15,first,18,street,24
{SHIFT-@}1{CBM-POUND} city,24,state,2,zip,12,phone,12
{SHIFT-*}1{CBM-R}:
2{CBM-C} 132,252,160,0{$60}configure,s,r{SHIFT-POUND}
{CBM-N} H~{SHIFT-POUND}
{CBM-I}{$f6} t {CBM-X}~{SHIFT-POUND}{CBM-N}{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~${SHIFT-POUND} C~{SHIFT-POUND}
vvvv_v{SHIFT-POUND}{$f4}u{SHIFT-POUND}{$f3}u{$60}{CBM-I} F~ {$e4}~{$f3}u {$e4}~{$f4}u {$e4}~v {$e4}~v {$e4}~v {$e4}~v {$e4}~_ {$e4}~v L~{SHIFT-POUND}lC~


































































































l
&










lBvial        {SHIFT--} S = Send Buffer
B = Buffer Toggle   {SHIFT--} T = Time Set
C = Conference Term {SHIFT--} U = Upload
D = Download        {SHIFT--} V = View Buffer

 {$7d}~E = Echo (Duplex)   {SHIFT--} W = Buffer Wrap
F = File Reader     {SHIFT--} Z = Zero Buffer
H = On/Off Hook     {SHIFT--} @ = Disk Command

o{$60}X{SHIFT-POUND}N{SHIFT-POUND}
x{$60}X{SHIFT-POUND}E{SHIFT-POUND}{$fa}x{$60}{CBM-Z}
vP{$60} o{SHIFT-POUND}
v{CBM-O}
v $v{SHIFT-POUND}v{CBM-Z}v $v{$e2}{$60}0300
1200
 {CBM-Z}vP{CBM-O}-[
{$f7}0{CBM-O}2[
{$f7}{CBM-I} {CBM-Z}v{$f0}{CBM-I}{CBM-I} {CBM-Z}v{$f0}{CBM-I}{CBM-I} {CBM-Z}v{$f0}{CBM-I}
{CBM-I} {CBM-Z}_{$f0}{CBM-I}
{CBM-I} {CBM-Z}({CBM-I}{CBM-I} {CBM-Z}({CBM-I}{CBM-I} {CBM-Z}/(0{CBM-I}{CBM-I} {CBM-Z}v{$f0}{CBM-I}{$60}
{SHIFT-POUND}
{CBM-W}[{SHIFT-POUND}{$e5}{SHIFT-POUND}P,
{SHIFT-POUND};
{CBM-I}{SHIFT-POUND} LM{CBM-I}{SHIFT-POUND}
 LM{CBM-I}{SHIFT-POUND}
 LM{SHIFT-POUND}/
{SHIFT-POUND}
~)P){CBM-I} F~ {$e4}~){$7f}{CBM-N}{CBM-X}_{$f0}{$e9}h {CBM-P}sH{CBM-S}v{$f0}h G]H R~{SHIFT-POUND}
{$f4}l \ L~ \ {$e4}~ {CBM-D}\{$f0}{CBM-B}{CBM-+}S P{CBM-+}{$eb}v{CBM-+}{$ec}v{$60}IP wl \{CBM-S}v{$f0}h R~H{CBM-N}{CBM-X}^h{CBM-I} I~H R~ L~l \{SHIFT-POUND}{$7d}{SHIFT-POUND}
{$7d}l{$7d}{CBM-I}{CBM-A}{CBM-O}{CBM-I}
 W~{$e6}{CBM-A}P{$e6}{CBM-E}{CBM-+}{CBM-E} {$ef}{CBM-S}vP{CBM-I}{$ee}{CBM-E}{CBM-I}~{CBM-A}{CBM-I}
vl7[{CBM-E}{$60}{CBM-I}{CBM-E}{CBM-I}
{CBM-A}{$60}{$ea}{SHIFT-POUND}
v{SHIFT-POUND}v{SHIFT-POUND}{CBM-E}{SHIFT-POUND}
{CBM-A}{SHIFT-POUND}
 G]{CBM-Z}vP{$f6}{SHIFT-POUND}{CBM-E}{SHIFT-POUND}
{CBM-A}{$60} {$7d}~

Any key to continue

 L~
Number of tries:
{SHIFT-POUND}
{CBM-S}{$fd}E 2{SHIFT-POUND}
lR~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I<{$fa}{$60}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{$fa}{$60}{$ee}{$fd}E L~{CBM-I} I~{SHIFT-POUND}a R~ {$fc}F{SHIFT-POUND}t R~ {$fc}F{SHIFT-POUND}
 R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}Iz{$fa}
{CBM-O}{$fb}u{$f0} R~ {$fc}FHP{$f2}
{CBM-O}
{$f0} R~ {$fc}FHP{$f2}{SHIFT-POUND}
 R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}Iz{$fa} L~ NF{CBM-D}{$fc}E{CBM-Z}{SHIFT--})M vP{CBM-G}S{$f0}{$60} {$f1}FP{$eb}{CBM-I} I~{SHIFT-POUND}a R~{SHIFT-POUND}
 R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{CBM-H}{$fa} {SHIFT-@}FlG {$ea}[ {$7d}~


RUNTERM-128 AUTODIALER
-----------------lR~ {$ea}[ {$7d}~


Read SEQ File to:

< 1 > = Screen

< 2 > = Printer

< 3 > = Modem


  ]I1Pl>DI2PlfDI3{$f0}{$60}{SHIFT-POUND}
{CBM-+}ClsD {$f7}Dl{CBM--}D{SHIFT-POUND}{CBM-+}C {$7d}~

Use <NO SCROLL> to pause
and <STOP> to abort read

 *AP{$60}{SHIFT-POUND}s r nA{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{CBM-A}lYC{SHIFT-POUND} C~{SHIFT-POUND} C~ {$7d}~

Load Error!

o dial:
{SHIFT-POUND}{CBM-W}Y {CBM-J}Y{$f0}4 {$7d}~

Dialing...

Hold down Shift key to abort!


 aF{$60}


.>n{SHIFT-POUND}
JJ {$7d}~


Select Number (1-9):

  ]I1I:{CBM-A}
8{$e9}1{CBM-N}J@J{$60}{SHIFT-POUND}
{$60}{SHIFT-POUND}~J{$ee}J{CBM-Z}JI{$f0}hI1 R~ {$7d}~ =
H@J J{SHIFT-POUND}
 R~l_J{$60}{CBM-Z}J{CBM-D}JlnM{CBM-Z}J{CBM-D}JlnM{CBM-Z}J{CBM-D}JlnM{CBM-Z}J{CBM-D}JlnM{CBM-Z}J{CBM-D}JlnM{$60}{SHIFT-POUND}
~{$60}{SHIFT-POUND}
{$fa}{SHIFT-POUND}@{$fb}{SHIFT-POUND}
{CBM-POUND}
ve F-Keys

{SHIFT-POUND}
{$f7}{$60} {$f8}{$60} {$f9}{$60}{$60}

 *A{$f0}'{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}
{CBM-S}.Z
 {SHIFT-@}~{SHIFT-POUND}{CBM-S}{$f7}{$60}{CBM-D}{$f8}{$60} X~{CBM-A}{$60} {$7d}~

Enter Filename:
{SHIFT-POUND}{CBM-W}Y {CBM-J}Y{$60},s,r
jAlA
{CBM-S}{CBM-H}Y{CBM-O}iA{$f0}
H{$e8}P{$f4}{SHIFT-POUND}

{CBM-H}Y{$60}{SHIFT-POUND}
v{SHIFT-POUND}v{CBM-I} F~ {$e4}~h{CBM-G}PH G]{CBM-Z}vP{$ef}{SHIFT-POUND}
v{$60}H{SHIFT-POUND}
v{$60} {$ea}[ {$7d}~

Append SEQ file to Buffer


 *AP{$60}{SHIFT-POUND}s r nA{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}Phonebook

 {CBM-Y}J{SHIFT-POUND}
 @ {$60} {CBM-L}JlH{CBM-I}{CBM-X}
i{SHIFT--}{$e1}JPJ{$f5}lM {$7d}~

Creating New Phonebook...

 {CBM-X}JHHlH{$60}{CBM-Z}J{$fa}{CBM-Z}JP{$60}{$fb}{CBM-I} I~
{CBM-E}{$fa}{$f0}
{CBM-N}{CBM-X}^ R~ {$fc}FHP{$ef} L~{$60}{CBM-Z}JlM{CBM-Z}JlM{$fb}{$fa}
{CBM-E}{$fa}{$f0} R~HP{$f6}{$60} {$ec}z{$60}i0
{CBM-I} C~{SHIFT-POUND}
 {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~ M{$60} L~{CBM-G}{SHIFT-@} {CBM-H}~{SHIFT-POUND}O{CBM-O} ~ {CBM-G}~{CBM-X}M {CBM-G}~{CBM-V}M {CBM-G}~I
P{$f9} {CBM-Q}~{CBM-Z}{CBM-X}MI0{$f0} {$7d}~

Disk Error:


8{$60} {$e4}~{$f0}{$fb}{$60}
{SHIFT-POUND}{CBM-I}{$e9} ] {CBM-X}~{CBM-I}
 H~{SHIFT-POUND}{CBM-I}
 {SHIFT-@}~ {SHIFT-*}~l{$e1}{$7c}





 !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_





























































































abcdefghijklmnopqrstuvwx
-----


SELECT:
< 1 > = 1650 Dialer
< 2 > = 1660 Dialer
< 3 > = 1670/Hayes Dialer

  ]I1{$f0}I2{$f0}%I3{$f0}a{$60} {$7d}~
1650 Modem

{SHIFT-POUND} {$f8}E{SHIFT-POUND}
{$f7}E{$f9}ElH {$7d}~
1660 Modem

{SHIFT-POUND} {$f7}E{SHIFT-POUND}
{$f8}E{$f9}ElH {$7d}~
1670/Hayes Modem

{SHIFT-POUND} {$f8}E{SHIFT-POUND}
{$f7}E{SHIFT-POUND}{$f9}El{CBM-P}H{SHIFT-POUND} {SHIFT--}{CBM-Z}{$f7}E{SHIFT--}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}ID{$fa}{SHIFT-POUND}
{$fd}E {$7d}~

ENTER REDIAL DELAY ( L~ F]{$60} L~ {$7d}~

Printer Error!

l{CBM-O}D{SHIFT-POUND}{CBM-+}C{CBM-S}{$f4}u{CBM-D}{$f3}u {SHIFT-@}~{SHIFT-POUND}
 H~{SHIFT-POUND}
 {CBM-X}~l{SHIFT-*}~


 {$ea}[ {$7d}~


< A >m or < P >m?


  ]{CBM-I}
Ia{$f0}{CBM-I}Ip{$f0}{CBM-I}{SHIFT-POUND}
{CBM--}J{$fa}{$60}E {$7d}~

What is the Hour? (1-12):
 L~ {CBM-W}E{CBM-Z}E
E{CBM--} {$7d}~

What is the Minute? (0-59):
 {CBM-W}E{CBM-Z}E
{CBM--}{SHIFT-POUND}
{CBM--}{CBM--}{$60}{SHIFT-POUND}{CBM-W}Y {CBM-J}Y{$f0}7 {$f0}{CBM-Z}
{SHIFT-POUND}0
{CBM-Z}
 {$e6}E
{$fa}HP{$fb}{$e6}{$fb}{CBM-+}{$fb} jP{$f3} {CBM-O}{$e1}J
i{$f7}{$60}tfb
 {$7d}~


Dial From Phonebook

  L zJ JPlH {$7d}~

Now Dialing:
 J{SHIFT-POUND}
 R~ {CBM-Y}J
{CBM-Z}J{$fb}{CBM-Z}J{$fa}{CBM-E}{$fa}{$f0}
HP{$f6}
 {CBM-L}J aF{$60} {$7d}~


Save the Phonebook

  L {CBM-Y}J{SHIFT-POUND}
{$f7}{$60}{SHIFT-POUND}j{$f8}{$60}{SHIFT-POUND}
 @ {$f9}{$60} {CBM-L}JlH {$7d}~


Edit the Phonebook

  L JPlH {$7d}~

BBS Name:
 J{SHIFT-POUND}{CBM-W}Y {$7d}~

BB~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~ {$7d}~

Load Error!

 L~ F]{$60} NA{SHIFT-POUND} C~{$60}

 !z{SHIFT-POUND}
{$fa}{SHIFT-POUND}{$fb}{CBM-S}{CBM-+}C I~
{CBM-G}SP' {$7e},{CBM-M}C{CBM-N}{CBM-X}^ R~{CBM-G}P{$e6}{$fa}P{$e6}{$fb}{CBM-G}{$fb}MBZ{CBM-G}{$fa}MBS 1z{$60} {$ea}[{SHIFT-POUND}{CBM-+}C{CBM-M}C {$7d}~

Save Buffer

SAVE: <1>=To Buffer End
      <2>=To Write Pointer


  ]I1{$f0}I2{$f0}{$60}{SHIFT-POUND}{$ef}B{SHIFT-POUND}
BlJB{CBM-G}{CBM-E}B{CBM-G}{CBM-A}B {$7d}~

Send To:
<{$60}

ppsp *AP8{$60} {$7d}~

SELECT: <P>rogram <S>equential

  ]h R~{SHIFT-POUND}
 R~HIsP
{CBM-I}DMEM{$60}{SHIFT-POUND}p{CBM-I}
DM{$e8}EM{$60} FM {$7d}~


Punter Upload!

 JM{SHIFT-POUND} C~l_M{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-D}DM {SHIFT-@}~ {SHIFT-*}~ M{SHIFT-POUND} C~{SHIFT-POUND} C~l_M M{CBM-A}{$ee} 0{CBM-Z}EM8 0{CBM-Z}
I{$f0}{SHIFT-+} 0{CBM-Z}v8 0lAN FM {$7d}~


Punter Download!

 JM{SHIFT-POUND} C~l_M 0 yz

{$7e}


abcdefghijklmnopqrstuvwxyz

{$7e}







 !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
abcdefghijklmnopqrstuvwxyz


{SHIFT--}








 !'#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVcr = 20 secs):
 {$fc}E{SHIFT-POUND}{CBM-W}Y {CBM-J}Y{$f0} {CBM-U}U{$fc}E {$7d}~

AUTODIALER MENU

SELECT:
< 1 > = Enter Number to Dial
< 2 > = Dial From Phone Book
< 3 > = Load a Phone Book
< 4 > = Save a Phone Book
< 5 > = Edit a Phone Book


  ]I1I6{CBM-A}8{$e9}1{CBM-N}{CBM-X}{CBM-R}Ih{CBM-X}{CBM-Y}Ih{$60}IJLKK{CBM-F}{$e4}{CBM-J}k {$7d}~


Enter # t


E{CBM-Z} {$e6}E
EE{$60}I0I:{CBM-A}8{$e9}0{$60}HHHH{$60}






{CBM-Z}{CBM--}M{CBM--}{$f0}{$fb}JP{$f5}{$60}{CBM-POUND}{CBM-Z}{$f7}E{SHIFT--} +F{CBM-Z}{$f8}E{SHIFT--} 6FP{$eb}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I({$fa}{$60}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{$fa}{$60}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}IP{$fa}{$60}{CBM-Z}{$f9}E{$f0}lG{$ee}{$fd}E{SHIFT-POUND}
{$fb}E{CBM-Z}{$f8}E{SHIFT--}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}ID{$fa}
{CBM-O}
{$f0}$I*P {$f1}FlFI0I:{CBM-A}
8{$e9}0P{SHIFT-POUND}

F{$ee}{$fb}E{CBM-D}{$fb}EPW NF{CBM-D}{$fc}E{CBM-Z}{SHIFT--}){$f0}{CBM-G}S{$f0}{$60} {$f1}FP{$ee} {SHIFT-@}F{CBM-Z}{$f7}E{SHIFT--}{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}I{CBM-H}{$fa}liF {$7d}~
Redialing...
{$60} {$7d}~S Name:
 {CBM-J}Y{$f0}{CBM-Z}J  L {$7d}~
Phone #:
 J{SHIFT-POUND}{CBM-W}Y {$7d}~

Phone #:
 {CBM-J}Y{$f0}{CBM-Z}J  L {$7d}~
String #1:
 J{SHIFT-POUND}{CBM-W}Y {$7d}~

String #1:
 {CBM-J}Y{$f0}{CBM-Z}J  L {$7d}~
String #2:
 {CBM-@}J {$7d}~

String #2:
 {CBM-J}Y{$f0}{CBM-Z}J  L {$7d}~
String #3:
 {CBM-Z}J {$7d}~

String #3:
 {CBM-J}Y{$f0}{CBM-Z}J  LlH{$fa}{CBM-Z}J{$fb}
{CBM-O}
{$f0}{$fa}HP{$f6}{$fa}{$60} {$7d}~


Load the  1 > = Printer
< 2 > = Modem
< 3 > = Disk

  ]I1P
 {$f7}D{CBM-A} B{SHIFT-POUND}lC~I2P
{SHIFT-POUND}{CBM-+}C{SHIFT-POUND}~{CBM-M}ClB *A{$f0}{SHIFT-POUND}s w nA{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{SHIFT-POUND} C~ {$7d}~

Save Error!

 L~ F]{$60} B{SHIFT-POUND}lC~{CBM-I} F~ {$e4}~h{CBM-G}{CBM-M}C L~H {CBM-POUND}C {$e1}~{$f0}{CBM-Z}{CBM-M}C{$f0}{$e1} L~{SHIFT-POUND} C~{SHIFT-POUND} C~{$60}

h{CBM-S}{CBM-+}CPHlR~ P I~Hh R~ L~HlR~{CBM-I} I~Hh{CBM-N}{CBM-X}^ R~ L~H0{CBM-Z}
I{$f0}'{CBM-Z}8{CBM-N}{CBM-X}FM w nA{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~ M{SHIFT-POUND} C~{SHIFT-POUND} C~l_M M{CBM-A}{$ee}{CBM-I} {$fe}E B{$e6} 0 0{CBM-I} {$fe}El{$f1}N t{$7e} {$7d}~Transfer:
{SHIFT-POUND}
  nM{SHIFT-POUND}
lR~ nA{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}{CBM-S}.Z{CBM-POUND} {SHIFT-@}~l{SHIFT-*}~ FM {$7d}~


Xmodem Upload!

 JM{SHIFT-POUND} C~l_M r kO MlZO M{CBM-A}{$f8} O (lO FM {$7d}~


Xmodem Download!
WXYZ[\]^_
abcdefghijklmnopqrstuvwxyz


{SHIFT--}
{CBM-I}/ {$60}{SHIFT-POUND}
 {$60}{CBM-I}9 {$60}{SHIFT-POUND} {CBM-X}~{SHIFT-POUND}
{CBM-N} H~{SHIFT-POUND}{CBM-S}v  {SHIFT-@}~{SHIFT-POUND}
lU~punter.128wxmodem.128 {$ea}[ {$7d}~


Function Keys:

< S >ave  < L >oad

  ]IsPlV{$60}Il{$f0}{$60} {$7d}~

Load F-Keys

 {$60}{$60} *A{$f0}{$e4}{SHIFT-POUND}
{CBM-N} H~{CBM-Z}{CBM-H}Y{CBM-I}
  {CBM-X}~{SHIFT-POUND}
{CBM-S}.Z ~ {SHIFT-@}~{SHIFT-POUND}
 U~C {$7d}~

Load Error!

 L~ F]{$60} {$7d}~

Sav{$60}


{SHIFT-POUND}{$fb}{SHIFT-POUND}
{$fa}
{CBM-S}{CBM-H}Y{SHIFT-POUND}
{CBM-Y}U{SHIFT-POUND}
{CBM-J}U{CBM-L}UPl*V{CBM-D}{CBM-Y}U{CBM-E}{$fa}{CBM-D}{CBM-Y}U{CBM-E}{$fa}I00dI:@h{CBM-J}U.{CBM-L}U{CBM-Z}{CBM-J}U{CBM-D}{CBM-L}U{CBM-J}U.{CBM-L}U{CBM-J}U.{CBM-L}UM{CBM-J}U{CBM-J}UM{CBM-L}U{CBM-L}UH8{$e9}0M{CBM-J}U{CBM-J}U{$ee}{CBM-L}U{$ee}{CBM-Y}UJP{CBM-L}8{CBM-Z}{CBM-L}U{CBM-D}{CBM-J}U{$60} {$7d}~


Change Xmodem Defaults:

Ascii Translate on?  Y/N
(Default is NO TRANSLATION)

  ]{CBM-I}
IyP{CBM-I}({$60} {$7d}~


Change Xmodem DefaultH{SHIFT-*}pP{$f0}{$60}h{CBM-I}{SHIFT-POUND}
 LM{$e8} LM{CBM-I}H LM{CBM-I}{SHIFT-POUND}
 LM{CBM-I}{SHIFT-POUND} LM{$e8} LM{CBM-I}{CBM-Z}v LM{CBM-I}{SHIFT-POUND}
lLM {$ea}[ {$7d}~


RUNTERM-128 DEFAULTS:
---------------------

< 1 > = Set Colors
< 2 > = Punter Blocksize
< 3 > = Xmodem Translate
< 4 > = Xmodem DLE Screen
< 5 > = Xmodem Pad Stripping
< 6 > = Change
 {CBM-J}Y{$f0} {CBM-U}U{SHIFT-*}{SHIFT-*}{CBM-A}.Zl
{$7b}{CBM-I}{CBM-Z}v{$f0}Jv{$60}{CBM-I}{CBM-Z}v{$f0}Jv{$60}{CBM-I}{CBM-Z}v{$f0}Jv{$60}{CBM-I}{CBM-Z}v{$f0}Jv {$f0}{$7c}{$60}{$f0}${SHIFT-POUND}
{SHIFT-POUND}t
;{SHIFT-POUND};{SHIFT-POUND}7
{SHIFT-POUND}
{SHIFT-POUND}f
{SHIFT-POUND}
{$60}{SHIFT-POUND}
{SHIFT-POUND}q
;{SHIFT-POUND}
;{SHIFT-POUND}q
{SHIFT-POUND}

{SHIFT-POUND}d
{SHIFT-POUND}
{$60}
{CBM-Z};{$7d}P{SHIFT-POUND};{$7d}{SHIFT-POUND} {SHIFT--}{SHIFT-POUND}
{SHIFT--}lB{$7d}{SHIFT-POUND}
;{$7d}{SHIFT-POUND}
{SHIFT--}{SHIFT-POUND} {SHIFT--}{CBM-I} I~{CBM-I} {$fe}E {SHIFT-POUND}+ R~P{$f8}{CBM-I} {$fe}E {CBM-O}{$7d} R~P{$f7}lL~

hta



{CBM-Z}{$7d}{CBM-I}{$7d}{$fa}{CBM-Z}{$7d}{$fb}{SHIFT-POUND}p
 JM{SHIFT-POUND} C~l_M w kO{CBM-A}lxP M{SHIFT-POUND} C~{SHIFT-POUND} C~ {$ec}z L~ {CBM-H}[ I\ {$7d}~
 TRANSFER COMPLETE!
 CBM DISK BLOCKS:
n,(N+({CBM-Z},({CBM-S}+( 2 {$7d}~
 NUMBER OF ERRORS:
{CBM-Z}.({CBM-S}-( 2{SHIFT-POUND}
 R~ly MlZO O
(lZO
cw {$f9}z {$ea}[ {$7d}~


Upload a file TO someone!
-------------------------

SELECT:
< 1 >
^{SHIFT-POUND}_{$60}

{SHIFT-POUND}
{CBM-H}Y L~ \ {$e4}~{$f0}{$fb} {CBM-D}\I
P R~{CBM-S}{CBM-H}Y{SHIFT-POUND}

{CBM-S}{CBM-H}Y{$60}IP Zl{CBM-X}YIP
 Z{CBM-Z}{CBM-H}YP{$f8}{$f0}J{CBM-D}{CBM-H}YL{CBM-W}YP{SHIFT-POUND} R~l{CBM-X}Y{CBM-POUND}){$7f}I {CBM-A}l{CBM-X}Y{CBM-S}{CBM-H}Y
 R~{$ee}{CBM-H}Yl{CBM-X}Y{CBM-S}{CBM-H}Y{$f0}N{CBM-H}Y{SHIFT-POUND} R~ {CBM-D}\{$60}{SHIFT-POUND}{CBM-N}lH~ {$7d}~

Disk Directory:
SHIFT KEY to pause, STOP to abort


{CBM-I}
 {CBM-Z}{CBM-H}Y {CBM-X}~{SHIFT-POUND}{CBM-S}.Z
 {SHIFT-@}~ /Z {SHIFT-*}~{SHIFT-POUND} C~l{$e7}{$7b}{CBM-I} F~{SHIFT-POUND}
 R~ C O~{$60}{CBM-G}P
(l0(l{$ed}*



@











cc3
















{SHIFT-POUND}
((( (+(,(-(.((*( L.  -{SHIFT-POUND}({SHIFT-POUND}
((( {$e8}) {$e1}~Pl{CBM-R}*{CBM-Z}(P8{CBM-Z}(IPl)IP {CBM-Y}*IPl[(IPT{SHIFT-POUND}%({CBM-Z}(P{CBM-Z})(Iu{$f0} S-{SHIFT-POUND}u)({CBM-Z}( {SHIFT-@},M(P{CBM-A}{CBM-Z}<M<I~{$f0} o*l[({$ee}({CBM-Z}<M({$f0}N( o*l[({CBM-Z}(I{$f0}
 2. i.I
P{$e6}l{$fd}({CBM-Z}(8{$ed}<M<Ps:

Use DLE Masking (for PC Pursuit)? Y/N
(Default is NO DLE MASKING)

  ]{CBM-I}
IyP{CBM-I}({$60} {$7d}~


Change Xmodem Defaults:

Strip End of File Padding? Y/N
(Default is YES, Stripping on)

  ]{CBM-I}
InP{CBM-I}/({$60}
 {$60}   {$7d}~


Change Parity:
Current setting:
{CBM-Z}
P {$7d}~None
l{$f4}
Parity
< 7 > = Change Word Length
< 8 > = Change Stop Bits
< 9 > = Linefeeds On / Off
< 0 > = Delete Key Value


  ]I0I:{CBM-A}8{$e9}0{CBM-N}{CBM-X}@Th{CBM-X}jTh{$60}YTUVVWWXXYluh1XB{$ec}?
 {$7d}~


CHANGE SCREEN COLORS!

Press < 1 > to change FOREGROUND
and < 2 > to change BACKGROUND
c{CBM-R}{CBM-Z}v{CBM-W}
{$7d} {$7e}{CBM-S}{$7d}I
P{SHIFT-POUND}
HlP{$7d} {$7e}
HLvP{$de}H{$fe}{CBM-O}
{CBM-R}{$f8}{CBM-@}{$fe}E{$fa}{$fa}{CBM-G}{$fb}I
I{$ef}P{SHIFT-POUND}{$fb} P{$7d}Lv{$f0}{SHIFT-POUND} {CBM-R}Hl{$f6}{$7d}{SHIFT-POUND} {CBM-R}{CBM-G}{CBM-R}Mv{CBM-R}{$e6}{CBM-W}{$e8} {$f0}l{CBM-N}{$7d}{CBM-Z}
vPl{$7e}{SHIFT-POUND}{CBM-I} LM{$e8}{SHIFT-POUND}
 LM
{CBM-R}{SHIFT-POUND}{CBM-W} p{CBM-E}{CBM-R} JMHP{$f8}{$e6}{CBM-W}{CBM-G}{CBM-W}IP{$f0}{CBM-E}{CBM-R} JMH{SHIFT-*} P{$f6}{SHIFT-POUND}{CBM-I} LM{$e8}{SHIFT-POUND}
 LM{SHIFT-POUND}{CBM-W}{CBM-Z}v JMHP{$f7}{$e6}{CBM-W}{CBM-G}{CBM-W}IP{$ef}{CBM-Z}v JMH{SHIFT-*} P{$f5}{CBM-Z}{$7d}{CBM-S}{$7d}{$60}h)j{$fe}H)?{$fe}{$60}{SHIFT-POUND}{$fa}{CBM-I}lT~{CBM-Z}{$7d}M= Punter
< 2 > = Xmodem Checksum
< 3 > = Xmodem CRC


  ]I1{CBM-A}l_MI4{CBM-A}{$f9}8{$e9}1{$f0}
{CBM-N}{CBM-X}IP(lDOlN {$f9}z {$ea}[ {$7d}~


Download a file FROM someone!
-------------------------

SELECT:
< 1 > = Punter
< 2 > = Xmodem Checksum
< 3 > = Xmodem CRC
< 4 > = WXmodem


  ]I1{CBM-A}l_MI5{CBM-A}{$f9}9 O~A{CBM-G}P0FCP{$ea}{CBM-G}A{CBM-+}{$60} 2{SHIFT-POUND}  R~{CBM-G}SP{$fc} {$e1}~{$f0} O~{$f0}{CBM-+}P R~{$e9}{SHIFT-POUND}
 R~ P{CBM-C} L~{SHIFT-POUND}8 C~ F]l
{$7b} {$ea}[{CBM-I}{$60}{SHIFT-POUND}
B{CBM-Y}{CBM-N} {$7d}~

DISK DRIVE MENU:
---------------

< 1 > = Disk Directory
< 2 > = Change Disk Drives
< 3 > = Read Error Channel
< 4 > = Send Disk Command



  ]I1P
{SHIFT-POUND}$
{SHIFT-POUND}{CBM-H}Yl5ZIV{CBM-Z}(IwP: {$f5}.{CBM-Z}
(I@{$f0}I{$f0}  *l){SHIFT-POUND}
 S-{$ee}*({CBM-Z}*(IP{CBM-Z}
(IP{SHIFT-POUND} S-{SHIFT-POUND}
*( >/l[({CBM-Z}({$f0}b
{CBM-I}{CBM-X}<{SHIFT--}(PJ{$f5}
({CBM-I} I~{CBM-S}
({CBM-X}<,( N) R~ {CBM-Y}~P'{$ee}
({CBM-Z}(M
(P{CBM-*},(lH*{CBM-I}
{CBM-X}<<{$e8}{$f7}( *l[( {CBM-R}*{SHIFT-POUND}({CBM-I}{$7f}{CBM-Z}/(P{CBM-X}<(I{$f0}I
{$f0}lG){CBM-X}<M(PJ{$f5}lH*{$e8}(lc)){$7f}IaI[{CBM-A} l{$e7})IAI{$7b}{CBM-A}){CBM-*}{$60} {$7c}, {$e1}~{$f0}\ G,P*{CBM-Z}(IWI P
 {$7d}~Odd
l{$f4}WI{$60}P {$7d}~Even
l{$f4}WI P {$7d}~Mark
l{$f4}WI P {$7d}~Space
l{$f4}W {$7d}~????
 {$7d}~
SELECT:

< 0 > = None
< 1 > = Odd
< 2 > = Even
< 3 > = Mark
< 4 > = Space


  ]I0I5{CBM-A}
8{$e9}0{CBM-N}{CBM-X}TW
{$60}




{$60}@
{CBM-Z}
{CBM-I}){$60}{SHIFT--}zX{$f0}{$e8} {$f6}v {$7d}~


Change Word Length:

Current Length:
{CBM-S}v{SHIFT-POUND}
 2 {$7d}
olors. Any other key exits!


  ]I1{$f0}I2{$f0}{$60}{$ee}tT{CBM-S}tT {CBM-I}
tT UlvT{$ee}uT{CBM-S}uT {CBM-I}
uT UlvT$W{CBM-G}{$f1}){$f0}9U{CBM-N}{$f1}v{$60}$W{SHIFT-POUND}
V,
V{$fb}{CBM-Z}V){$f0}9UV{$60}!P{$60}


 {$7d}~


Change Punter Block Size.

Current Block size:
{CBM-S}v{SHIFT-POUND}
 2{SHIFT-POUND}{CBM-W}Y {$7d}~

Enter new Size:
 {CBM-J}Y{$f0} {CBM-U}U{SHIFT-*}({CBM-A} ~
C{$7d}{$7d}{CBM-Z}{$7d}I
I{$ef}P{SHIFT-POUND}
{$7d}{SHIFT-POUND}{$7d}l{$7d}{CBM-Z}{$7d}{$fa}{CBM-Z}{$7d}{$fb} {$e3}{$7e} {$e3}{$7e}{CBM-A}
 {$7e}I
P{$f2}{CBM-G}{$fa}{$7d}{CBM-G}{$fb}{$7d}l{$7d}F{$fa}{SHIFT-POUND}~E{$fa}PF{$fb}{CBM-G}{$fb}I{CBM-A}
{SHIFT-POUND}{$fb}{SHIFT-POUND}
{$fa}8{$60}{$fb}{$60}

{SHIFT-POUND}
{SHIFT-POUND}f
{SHIFT-POUND}
{$60}{SHIFT-POUND}
{SHIFT-POUND}q
;{SHIFT-POUND}
;{SHIFT-POUND}q
{SHIFT-POUND}

{SHIFT-POUND}d
{SHIFT-POUND}
{$60}
{CBM-Z};{$7d}P{SHIFT-POUND};{$7d}{SHIFT-POUND} {SHIFT--}{SHIFT-POUND}
{SHIFT--}lB{$7d}{SHIFT-POUND}
;{$7d}{SHIFT-POUND}
{SHIFT--}{SHIFT-POUND} {SHIFT--}{CBM-I} I~{CBM-I} {$fe}E {SHIFT-POUND}+ R~P{$f8}{CBM-I} {$fe}E {CBM-O}{$7d} R~P{$f7}lL~

hta



{CBM-Z}{$7d}{CBM-I}{$7d}{$fa}{CBM-Z}{$7d}{$fb}{SHIFT-POUND}p8{$e9}1{$f0}
{CBM-N}{CBM-X}IP(l{CBM-G}OlN
{SHIFT-POUND}{$e5} R R{CBM-Z}v{$f1}{SHIFT-POUND}
{$f4} {CBM-Y}~)P%{CBM-I} F~ {$e4}~){$7f}{CBM-N}{CBM-X}_{$f0}h {CBM-P}sH{CBM-S}v{$f0}h G]H R~lXQ {$e1}~P{SHIFT-POUND}v{$60} L~ {$e4}~{$f0}{CBM-J}I
P wRlRQIPlfRI{$f0}{$f2}{CBM-S}MQ
{$e8} p{$f0}{$e4}MQlUQ{CBM-S}MQ{$f0}NMQJ{SHIFT-POUND}
lUQ{CBM-I} I~{CBM-S}MQ{$f0}
{CBM-O}
{CBM-N}{CBM-X}^ R~{SHIFT-POUND}
{CBM-I}{CBM-G}{CBM-I}IP{$fa}HLMQP{$e6}{SHIFT-POUND}
 R~lL~ p{SHIFT-POUND}
{$fa}{CBM-I}
MQ{$60}{CBM-Z}
v{$f0}
{CBM-O}
 {$7e} {SHIFT-*}RH{SHIFT-*}pP{$f0}{$60}
{CBM-O}
 {$7e}(3Pl{$7c}I2Pln{$7c}I4{$f0}{$60} {$7d}~


Enter Disk Command:
{SHIFT-POUND}{CBM-W}Y {CBM-J}Y{CBM-Z}
I$Pl5Z{$ea}{SHIFT-POUND}{CBM-S}.Z  {SHIFT-@}~ /Z {SHIFT-*}~{CBM-A}r{CBM-I} I~{CBM-A}k ~{CBM-Z}
I@{$f0}H{CBM-O}
{$f0} R~{$f5}{CBM-Z}.Z{SHIFT-@} {CBM-H}~{SHIFT-POUND}O ~
 {CBM-G}~
HI
P{$f5}{SHIFT-POUND}

 {CBM-Q}~ L~
{CBM-O}
{$f0} R~HP{$f5}{SHIFT-POUND} C~l{$e3}Z {$7d}~


Change Drive in use.

Current Device:
{CBM-S}.Z{SHIFT-POUND}
 2{SHIFT-POUND}{CBM-W}Y {$7d}~

Enter new drive (8-11):{$f0}{CBM-Z}(IwP{CBM-Z}(IP {$e8}){CBM-Z}(i@({$60}I{$f0}NI{$f0}J{$60} V,G{CBM-Z}(IwP{SHIFT-POUND} ,{SHIFT-POUND} , >/{SHIFT-POUND} ,{SHIFT-POUND} ,HHl{$e3}*HHls(l{CBM-R}*{$ee}({SHIFT-POUND}
M({$f0}y{CBM-Z}
(I@P {$7c}*lK*{SHIFT-POUND} S-{CBM-Z}(IwP /{$60}{SHIFT-POUND} ,{$60}{$ee}-(P{$ee}.( J/{$60}{CBM-Z}
(I@P  *l*{SHIFT-POUND}
 S-{SHIFT-POUND} ,{$60}{$ee}+(P{$ee},( J/{$60}{SHIFT-POUND} ,{$60}{SHIFT-POUND} ,{SHIFT-POUND} {$e5}* -HH{$60}) ,{$60}{SHIFT-POUND} ,{CBM-Z}(IwP {$e8})IP{$f9}{SHIFT-POUND} , {SHIFT-@}.{SHIFT-POUND} S-{SHIFT-POUND}lC~ {$e1}~P {CBM-Y}*{CBM-Z}
~
Number of DATA bits (5-8):

  ]I5I9{CBM-A}8{$e9}0{CBM-N}{CBM-X}zXzX{CBM-Z}
)
zX
{$60} {$7d}~


Change Stop Bits:

SELECT < 0 > or < 1 > STOP BIT:

  ]I0P{CBM-Z}

{$60}{CBM-Z}
){$7f}
{$60}{CBM-I}
{CBM-Z}_{$f0}{CBM-I}
_{$60} {$7d}~


Change Delete Key value.

Current Value:
{CBM-S}^{SHIFT-POUND}
 2{SHIFT-POUND}{CBM-W}Y {$7d}~

Enter new Value:
 {CBM-J}Y{$f0} {CBM-U}U
4l04l{$ed}6



@











cc3
















{SHIFT-POUND}
444 4+4,4-4.44*4 L:  9{SHIFT-POUND}4{SHIFT-POUND}
444 {$e8}5 {$e1}~Pl{CBM-R}6{CBM-Z}4P8{CBM-Z}4IPl5IP {CBM-Y}6IPl[4IPT{SHIFT-POUND}%4{CBM-Z}4P{CBM-Z})4Iu{$f0} S9{SHIFT-POUND}u)4{CBM-Z}4 {SHIFT-@}8M4P{CBM-A}{CBM-Z}<M<I~{$f0} o6l[4{$ee}4{CBM-Z}<M4{$f0}N4 o6l[4{CBM-Z}4I{$f0}
 2: i:I
P{$e6}l{$fd}4{CBM-Z}48{$ed}<M<P'(IP9{SHIFT-POUND}
'({CBM-Z}(IwP{SHIFT-POUND})({SHIFT-POUND}c({SHIFT-POUND}%({$60}IcP{SHIFT-POUND})({SHIFT-POUND}({SHIFT-POUND}%({SHIFT-POUND}({SHIFT-POUND}({$60} {CBM-M}-{CBM-I}
{CBM-X}<'( {SHIFT-@}-{CBM-S}'({$e8} P{$ef}{$60}{CBM-Z}"(M<P{CBM-Z}!(M<P{SHIFT-POUND}
{$60}{SHIFT-POUND}{$60}{CBM-Z}!(<{CBM-Z}"(<{$60} {CBM-N}.{SHIFT-POUND}
'({SHIFT-POUND}({SHIFT-POUND}({SHIFT-POUND}%({CBM-Z}(IwP{SHIFT-POUND})({$60}IcP{SHIFT-POUND})({$60}{SHIFT-POUND})({SHIFT-POUND}({SHIFT-POUND}({$60}{SHIFT-POUND}{SHIFT-POUND}<{$60}{$e6}P{$e6}{$60}{CBM-G}IP{CBM-G}I<P{$60}{CBM-G}
({CBM-G}({CBM-I} I~ {CBM-N}.
{CBM-E} R~ {CBM-W}.{CBM-G}M
(P{$ef}{CBM-G}M(P
{CBM-@}{$e8} {CBM-N}:{$60}
{CBM-O}<,4 N5{CBM-I}
 {CBM-W}:H{SHIFT-*}P{$e9}{$60} {CBM-N}:{SHIFT-POUND}%4 {$7c}8 G8{$f0}{$fb} V8{$f6}{SHIFT-POUND}%4{CBM-Z}48{$ed}*44{SHIFT-POUND} 8{SHIFT-POUND} B6{$60} {SHIFT-@}:{SHIFT-POUND} 8{SHIFT-POUND}
 B6{SHIFT-POUND} 8{SHIFT-POUND} B6{SHIFT-POUND} 8{SHIFT-POUND} B6{SHIFT-POUND} 8{SHIFT-POUND}
 B6{$60}{SHIFT-POUND} S9{CBM-I}{CBM-S}+4{CBM-Z},4 M{CBM-X}{SHIFT-POUND} S9{CBM-S}-4{CBM-Z}.4 M{CBM-X}{SHIFT-POUND}
 S9{$60}

 R~H{SHIFT-*}
P{$f2}{$60} {$7c}8${CBM-I}{$fc}{$60}{SHIFT-POUND}
!4"4{SHIFT-POUND}#4{SHIFT-POUND}!$4{$60}{CBM-I}m!4!4"4.!4{CBM-Z}#4m!4!4{CBM-Z}$4m"4"4JP{$e3}{$60}{CBM-Z}4{$f0}ly6{CBM-Z}4 8{$ee}'4{CBM-Z}
{SHIFT-POUND}
( (+(,(-(.({SHIFT-POUND}
<<i~< {$e1}~P {CBM-D}* {CBM-Y}* G,P{$f0}{CBM-Z}(IP {CBM-Y}*Ic{$f0}IP{$de}( L.{CBM-Z})( S-{SHIFT-POUND}({CBM-I}
(( {$e1}~Pl", L~{CBM-I} F~ {$e4}~h L~H,( N)( {CBM-Y}~)C(P{CBM-Z}( {SHIFT-@},IPI{$f0}*{CBM-Z}( {SHIFT-@},M({$f0}{SHIFT-POUND}({CBM-Z}(IP{SHIFT-POUND}
({CBM-Z}(( {SHIFT-@},M(P{$f8}{CBM-Z}(I{$f0} 2. _.lP+{CBM-Z}(<{SHIFT-POUND}

( {$e1}~{$f0}h{CBM-S}
({CBM-X}
< ,{$ee}
({CBM-Z}(M
(P{$e7} {$7c}, G,{$f0}
 {$e1}~{$f0}' V8{$f1}{CBM-A}{CBM-U}{CBM-Z}4IP{CBM-Z}
4I@P {$7c}6l{SHIFT-@}7{SHIFT-POUND} S9l{SHIFT-@}7IP {CBM-Y}6IPH{CBM-Z}
4I@P  6l;8{SHIFT-POUND}
 S9{CBM-Z}4{$f0} {CBM-D}6 {$7c}8{CBM-G}{CBM-K}0 G8P{$f7}{CBM-Z}4)@{$f0}Ll{$e3}6{$ee}<{SHIFT-POUND}~m<<lj7{CBM-I} F~ {$e4}~4 {CBM-Y}~{$60}{CBM-G}{CBM-K}M%4{$60}{SHIFT-POUND}
{CBM-K}{CBM-I}{$60}h{CBM-I} I~{CBM-Z}{CBM-K})P{$f9}H{CBM-POUND}{CBM-Z}4IPI{$f0}I{$f0}I{$f0}I{$f0}l{CBM-J}8i@{CBM-POUND}{SHIFT-POUND} R~ R~{$60}{CBM-Z}4{CBM-S}4
<{CBM-POUND}{CBM-Z}4IPM44{$ee}4{$e8}{$60}{$ef}8{$f3}8{$f5}8
9949i9{$f1}8^9F9O9-
+
:








f64








,



wxmodem.64









































































































































































































V{CBM-Z}4IwP: {$f5}:{CBM-Z}
4I@{$f0}I{$f0}  6l5{SHIFT-POUND}
 S9{$ee}*4{CBM-Z}*4IP{CBM-Z}
4IP{SHIFT-POUND} S9{SHIFT-POUND}
*4 >;l[4{CBM-Z}4{$f0}b
{CBM-I}{CBM-X}<{SHIFT--}4PJ{$f5}
4{CBM-I} I~{CBM-S}
4{CBM-X}<,4 N5 R~ {CBM-Y}~P'{$ee}
4{CBM-Z}4M
4P{CBM-*},4lH6{CBM-I}
{CBM-X}<<{$e8}{$f7}4 6l[4 {CBM-R}6{SHIFT-POUND}4{CBM-I}{$7f}{CBM-Z}/4P{CBM-X}<4I{$f0}I
{$f0}lG5{CBM-X}<M4PJ{$f5}lH6{$e8}4lc5){$7f}IaI[{CBM-A} l{$e7}5IAI{$7b}{CBM-A}){CBM-*}{$60} {$7c}8 {$e1}~{$f0}\ G8P*{CBM-Z}4I
{CBM-@}{$e8} {CBM-N}.{$60}
{CBM-O}<,( N){CBM-I}
 {CBM-W}.H{SHIFT-*}P{$e9}{$60} {CBM-N}.{SHIFT-POUND}%( {$7c}, G,{$f0}{$fb} V,{$f6}{SHIFT-POUND}%({CBM-Z}(8{$ed}*(({SHIFT-POUND} ,{SHIFT-POUND} B*{$60} {SHIFT-@}.{SHIFT-POUND} ,{SHIFT-POUND}
 B*{SHIFT-POUND} ,{SHIFT-POUND} B*{SHIFT-POUND} ,{SHIFT-POUND} B*{SHIFT-POUND} ,{SHIFT-POUND}
 B*{$60}{SHIFT-POUND} S-{CBM-I}{CBM-S}+({CBM-Z},( 2{SHIFT-POUND} S-{CBM-S}-({CBM-Z}.( 2{SHIFT-POUND}
 S-{$60}

 R~H{SHIFT-*}
P{$f2}{$60} {$7c},${CBM-I}{$fc}{$60}{SHIFT-POUND}
!("({SHIFT-POUND}#({SHIFT-POUND}!$({$60}{CBM-I}m!(!("(.!({CBM-Z}#(m!(!({CBM-Z}$(m"("(JP{$e3}{$60}{CBM-Z}({$f0}ly*{CBM-Z}( ,{$ee}'({CBM-Z}
{SHIFT-*}{SHIFT-POUND}
,{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}{$ea}l{SHIFT-*}l{CBM-K}ElFB{SHIFT-@}H{SHIFT-POUND}3EB1{SHIFT-*}{SHIFT-POUND}{SHIFT-*}I
2{SHIFT-*}l3{SHIFT-*}lw{SHIFT-*}lDlVClTDlEl{CBM-A}ElFgoobadacks/bsynH{SHIFT-POUND}

HHH{SHIFT-POUND}
HH F {$f8}{SHIFT-*}{CBM-G}Px{CBM-Z}H
H{CBM-Z}HH{CBM-Z}
H{SHIFT-POUND}
H{SHIFT-POUND}H{CBM-Z}H,H{$f0}{CBM-D}H{CBM-I}
{CBM-X}
HYh{SHIFT-*}PH{$e8} P{$f2}lD{SHIFT-*}H{CBM-Z}HIHIPRlE{SHIFT-*}{SHIFT-POUND}~HHlM{SHIFT-*}{$ee}HP{$ee}H{CBM-Z}H
H{$f0}{CBM-Z}HI{CBM-Z}HI{SHIFT-POUND}lDE{SHIFT-POUND}
{$60}{$ea}h{CBM-Z} {$e1}~{$f0}' V,{$f1}{CBM-A}{CBM-U}{CBM-Z}(IP{CBM-Z}
(I@P {$7c}*l{SHIFT-@}+{SHIFT-POUND} S-l{SHIFT-@}+IP {CBM-Y}*IPH{CBM-Z}
(I@P  *l;,{SHIFT-POUND}
 S-{CBM-Z}({$f0} {CBM-D}* {$7c},{CBM-G}{CBM-K}0 G,P{$f7}{CBM-Z}()@{$f0}Ll{$e3}*{$ee}<{SHIFT-POUND}~m<<lj+{CBM-I} F~ {$e4}~( {CBM-Y}~{$60}{CBM-G}{CBM-K}M%({$60}{SHIFT-POUND}
{CBM-K}{CBM-I}{$60}h{CBM-I} I~{CBM-Z}
)P{$f9}H{CBM-POUND}{CBM-Z}(IPI{$f0}I{$f0}I{$f0}I{$f0}l{CBM-J},i@{CBM-POUND}{SHIFT-POUND} R~ R~{$60}{CBM-Z}({CBM-S}(
<{CBM-POUND}{CBM-Z}(IPM(({$ee}({$e8}{$60}{$ef},{$f3},{$f5},
--4-i-{$f1},^-F-O--
+
:
wxmodem protocol

transfer complete

transfer aborted

xmodem protocol

crc protocol

blocks
 errors


h{CBM-Z}4{$f0}H{$60}{CBM-I} I~H
{CBM-N}{CBM-X}Y8C{$e8}{CBM-X}Y8D
{CBM-E}CI
{$f0} R~H{SHIFT-*}
P{$f2}{$60} {$7c}8${CBM-I}{$fc}{$60}{SHIFT-POUND}
!4"4{SHIFT-POUND}#4{SHIFT-POUND}!$4{$60}{CBM-I}m!4!4"4.!4{CBM-Z}#4m!4!4{CBM-Z}$4m"4"4JP{$e3}{$60}{CBM-Z}4{$f0}ly6{CBM-Z}4 8{$ee}'4{CBM-Z}H JC jClB C{SHIFT-POUND}-,{SHIFT-POUND}: E  *A{SHIFT-POUND} w{SHIFT-*}{CBM-G}P{$ea} JC {CBM-E}DH WC{CBM-I} I~
{CBM-E}D R~HLHP{$f5} L~{SHIFT-POUND}
{$60}{SHIFT-POUND}* E  *A{SHIFT-POUND} w{SHIFT-*}{CBM-G}P{$ed}{SHIFT-POUND}
H  *A{SHIFT-POUND} w{SHIFT-*}{CBM-G}{$f0}NHP{$ed}{SHIFT-POUND}H  *A{SHIFT-POUND}
 w{SHIFT-*}NHP{$f1}{SHIFT-POUND}{$60}
{SHIFT-POUND}
HH F {$f8}{SHIFT-*}{CBM-G}P<{CBM-Z}

I{SHIFT-*}{CBM-A}
H{SHIFT-*}P{CBM-Z}
HIaP{CBM-Z}HIcP{CBM-Z}HIk{$f0}HLHPB{SHIFT-POUND}{$60}{SHIFT-POUND}~HHlB{$ee}HP{$ee}H{CBM-Z}H
H{$f0}{CBM-Z}HI{CBM-Z}HIP{SHIFT-POUND}{SHIFT-*}
{$f0}{$f0}{CBM-Z}4IwP{CBM-Z}4IP {$e8}5{CBM-Z}4i@4{$60}I{$f0}NI{$f0}J{$60} V8G{CBM-Z}4IwP{SHIFT-POUND} 8{SHIFT-POUND} 8 >;{SHIFT-POUND} 8{SHIFT-POUND} 8HHl{$e3}6HHls4l{CBM-R}6{$ee}4{SHIFT-POUND}
M4{$f0}y{CBM-Z}
4I@P {$7c}6lK6{SHIFT-POUND} S9{CBM-Z}4IwP ;{$60}{SHIFT-POUND} 8{$60}{$ee}-4P{$ee}.4 J;{$60}{CBM-Z}
4I@P  6l6{SHIFT-POUND}
 S9{SHIFT-POUND} 8{$60}{$ee}+4P{$ee},4 J;{$60}{SHIFT-POUND} 8{$60}{SHIFT-POUND} 8{SHIFT-POUND} {$e5}6 9HH{$60}) 8{$60}{SHIFT-POUND} 8{CBM-Z}4IwP {$e8}5IP{$f9}{SHIFT-POUND} 8 {SHIFT-@}:{SHIFT-POUND} S9{SHIFT-POUND}lC~ {$e1}~P {CBM-Y}6{CBM-Z}
D JC {SHIFT-POUND}
DHD {CBM-R}A{$f0}{$fb}{SHIFT-POUND}

{$60}{SHIFT-POUND}H{SHIFT-POUND}
H
HHIIH{SHIFT-POUND}I{SHIFT-POUND}
 @A{CBM-Z}
HPR DP< L~{CBM-Z}HI{$f0}{CBM-I} I~ {CBM-O}
I R~HLHP{$f4} L~{CBM-Z}II~P{SHIFT-POUND}
H{SHIFT-POUND}*,{SHIFT-POUND}- R~ {CBM-K}E{SHIFT-POUND}
l.D L~{SHIFT-POUND}: R~{CBM-Z}HI{SHIFT-POUND}l.D{CBM-Z}
IH{CBM-Z}IH{CBM-Z}IH{CBM-Z}IH JC{CBM-Z}HH C{CBM-Z}
IMHP{CBM-Z}IMHP{CBM-Z}IMHP{CBM-Z}IMHP{SHIFT-POUND}
{$60}{SHIFT-POUND}{$60}{SHIFT-POUND}
HH
HHH{SHIFT-POUND}II{SHIFT-POUND}
 @A{CBM-Z}
M{$f0}{CBM-D}{CBM-E}{$f7}h{$ee}{SHIFT-POUND}
H
H{CBM-POUND}l#A{SHIFT-POUND}{SHIFT-POUND}

H{CBM-POUND}h{SHIFT-POUND}{SHIFT-@}H{$60}{CBM-I} I~{CBM-I}
{CBM-O}h{SHIFT-*} R~H{$e8} P{$f4}lL~H{SHIFT-POUND}
H{SHIFT-POUND}B{CBM-D}H *A{SHIFT-POUND} w{SHIFT-*}{CBM-G}{$f0}FBP{$f3}lhA  *A{CBM-Z}
H{$f0}{CBM-Z}H{$f0}{CBM-Z}IHH B{CBM-G}I{$f0}I{$f0}{SHIFT-+}I{$f0}I{$f0}S{$60}{SHIFT-POUND} w{SHIFT-*}{CBM-G}PI{SHIFT-POUND}
H  *A{SHIFT-POUND} w{SHIFT-*}{CBM-G}{$f0}NHP{$ed}{$60}{SHIFT-POUND}H{CBM-Z}H{$f0}
 *A{SHIFT-POUND} w{SHIFT-*}{CBM-G}P{$ed}{SHIFT-POUND}
H{CBM-Z}HI
P5{CBM-Z}
HPH{$ee}HP{$ee}H JC H{CBM-E}DI~P{SHIFT-POUND}
H{CBM-Z}Hi
wxmodem protocol

transfer complete

transfer aborted

xmodem protocol

crc protocol

blocks
 errors


h{CBM-Z}({$f0}H{$60}{CBM-I} I~H
{CBM-N}{CBM-X}Y,C{$e8}{CBM-X}Y,D
{CBM-E}CI
{$f0} R~H{SHIFT-*}
P{$f2}{$60} {$7c},${CBM-I}{$fc}{$60}{SHIFT-POUND}
!("({SHIFT-POUND}#({SHIFT-POUND}!$({$60}{CBM-I}m!(!("(.!({CBM-Z}#(m!(!({CBM-Z}$(m"("(JP{$e3}{$60}{CBM-Z}({$f0}ly*{CBM-Z}( ,{$ee}'({CBM-Z}'4IP9{SHIFT-POUND}
'4{CBM-Z}4IwP{SHIFT-POUND})4{SHIFT-POUND}c4{SHIFT-POUND}%4{$60}IcP{SHIFT-POUND})4{SHIFT-POUND}4{SHIFT-POUND}%4{SHIFT-POUND}4{SHIFT-POUND}4{$60} {CBM-M}9{CBM-I}
{CBM-X}<'4 {SHIFT-@}9{CBM-S}'4{$e8} P{$ef}{$60}{CBM-Z}"4M<P{CBM-Z}!4M<P{SHIFT-POUND}
{$60}{SHIFT-POUND}{$60}{CBM-Z}!4<{CBM-Z}"4<{$60} {CBM-N}:{SHIFT-POUND}
'4{SHIFT-POUND}4{SHIFT-POUND}4{SHIFT-POUND}%4{CBM-Z}4IwP{SHIFT-POUND})4{$60}IcP{SHIFT-POUND})4{$60}{SHIFT-POUND})4{SHIFT-POUND}4{SHIFT-POUND}4{$60}{SHIFT-POUND}{SHIFT-POUND}<{$60}{$e6}P{$e6}{$60}{CBM-G}IP{CBM-G}I<P{$60}{CBM-G}
4{CBM-G}4{CBM-I} I~ {CBM-N}:
{CBM-E} R~ {CBM-W}:{CBM-G}M
4P{$ef}{CBM-G}M4P
{SHIFT-POUND}lDE{SHIFT-POUND}{$60}{CBM-Z}HiH JC {CBM-Z}HIDH{CBM-Z}HI
D{CBM-I} F~  O~DH {CBM-Y}~P
LHP{$f0}hlkCh H{SHIFT-POUND}~DlkCh L~ {CBM-K}E {$7f}E {CBM-K}E {CBM-E}DH WCH D C{$60}{SHIFT-POUND}
D{CBM-Z}HIIE{$60}{SHIFT-POUND}
D{CBM-Z}HiIIE{$60}{SHIFT-POUND}
HHHH {CBM-Z}HQDH{$ee}H{CBM-Z}HqDH{CBM-Z}H*.H.HHLHPZ
{CBM-Z}HDH{CBM-Z}HDH{CBM-Z}HDH{CBM-Z}HD{$60}{SHIFT-POUND}

HHH{SHIFT-POUND}H{SHIFT-POUND}~HH WC {SHIFT-POUND}{SHIFT-POUND}
4 4+4,4-4.4{SHIFT-POUND}
<<i~< {$e1}~P {CBM-D}6 {CBM-Y}6 G8P{$f0}{CBM-Z}4IP {CBM-Y}6Ic{$f0}IP{$de}4 L:{CBM-Z})4 S9{SHIFT-POUND}4{CBM-I}
44 {$e1}~Pl"8 L~{CBM-I} F~ {$e4}~h L~H,4 N54 {CBM-Y}~)C4P{CBM-Z}4 {SHIFT-@}8IPI{$f0}*{CBM-Z}4 {SHIFT-@}8M4{$f0}{SHIFT-POUND}4{CBM-Z}4IP{SHIFT-POUND}
4{CBM-Z}44 {SHIFT-@}8M4P{$f8}{CBM-Z}4I{$f0} 2: _:lP7{CBM-Z}4<{SHIFT-POUND}

4 {$e1}~{$f0}h{CBM-S}
4{CBM-X}
< 8{$ee}
4{CBM-Z}4M
4P{$e7} {$7c}8 G8{$f0}HP  DP{CBM-Z}IH{SHIFT-POUND}
H{SHIFT-POUND}
l{$ef}D{CBM-Z}HI{SHIFT-POUND}l{$ef}D{SHIFT-POUND}

{$60}{SHIFT-POUND}

HH{SHIFT-POUND}HH{SHIFT-POUND}~HH WC {SHIFT-POUND}ID JC {SHIFT-POUND}~DHD {CBM-Z}HD{SHIFT-POUND}H {CBM-R}A{$f0}{$fb}{SHIFT-POUND}

{$60}{$ee}H{CBM-Z}HI{SHIFT-POUND}
H{CBM-Z}H{$f0}P{CBM-Z}H{$f0}{CBM-I}

HP{$fd}{$e8} XP{$f6}{$60}h{CBM-Z}H
H{$f0}
{CBM-Z}HPH R~hH{$60} {$7e}{$ef}{CBM-Z}{CBM-K}I{$f0}{$f6}I{$f0}{$f2}{$60} MF {$f7}{SHIFT-*}{CBM-G}P{CBM-Z}
){$7f}
I{$f0}I
{$f0}I lFIA
I{$7b}{CBM-A}8{$e9}
l{$f0}EIa
I[{CBM-A}I
I
n${CBM-R}"configure"
>
"create run term default file"
o
 15:15,8,15
C

x{CBM-R}1{CBM-@}8:a$(x):
{CBM-N}
8,8,8,n${CBM-N}",s,r":200:e0{CBM-M} 8:"no 'configure' file on disk":90
{$e2}
x{CBM-R}1{CBM-@}8:{CBM-K}#8,a$:a(x){CBM-R}F(a${CBM-N}G(0)):x: 8:a(7){CBM-R}10{CBM-M}a(7){CBM-R}1

x{CBM-R}1{CBM-@}8:a$(x){CBM-N}"  "{CBM-N}D(a(
, "r.e.u. buffer on (1) or off (0)   "




le? (y/n) ";:a$:a${CBM-W}{CBM-E}"y"{CBM-M}100
y-
a(7){CBM-R}1{CBM-M}a(7){CBM-R}10
O2
15,"s0:"{CBM-N}n$:200
<
8,8,8,n${CBM-N}",s,w":200:e0{CBM-M} 8:90
{CBM-E}f
x{CBM-R}1{CBM-@}8:8,G(a(x));:x: 8
Cp
"done!"
{CBM--}z
 "";e0,e1$,e2,e3
{$e6}D
 15:
{$fd}H
15,e0,e1$,e2,e3:

{$fe}15:c6{CBM-R}1: c128 only
h
53281,1:53280,1:B(787){CBM-R}123{CBM-M}1250:610
R
B(787){CBM-R}234{CBM-M}787,123:c6{CBM-R}B(1023):1980
(
1023,c6:(c6{CBM-R}0){CBM-M}55,0:56,154:
{CBM-K}2
1180
{SHIFT-*}<
 72,69,76,76,79,0,0,0,0,0
{$e1}f
:x{CBM-R}0{CBM-@}9:a:(ml{CBM-N}25{CBM-N}x),a::
p
x{CBM-R}B(53281):53281,0:""
{CBM--}
(a {CBM-P}127){CBM-W}32{CBM-A}(b{CBM-E}il){CBM-M}200
.{$e6}
a$;:in${CBM-R}in${CBM-N}a$:200
?{$f0}
du%{CBM-W}7{CBM-M}du%{CBM-R}8
r{$fa}
 15:15,du%,15
Z(c6){CBM-M}{$fe}0:270:{$fe}15:: c-128 only!
qx%{CBM-R}B(sc{CBM-N}1023):
{CBM-I}300:(e0){CBM-M}410
{CBM-POUND}"
{CBM-B},15,e0,e1$,e2,e3:
{$e1}6hi{CBM-R}{CBM-J}(qr{CBM-Z}256):lo{CBM-R}qr{CBM-Q}(hi{CBM-D}256):
{$f7}@255,ff:(c6){CBM-M}340
s this it? n ";a$:
@"{$f4} 8:8,du%,8,"/"{CBM-N}db${CBM-N}",s,r":280:e0{CBM-M}db${CBM-R}"":540
w"{$fe}8,nf%:8,np%:430
"x{CBM-R}0{CBM-@}nf%:8,nf$(x):8,ft%(x):8,fl%(x):8,np%(x)
"x
" 8:
{CBM-B}"&"document name: ";:380
{$ea}"0x{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x):8,G(34){CBM-N}ff$(y):x:
#:x{CBM-R}P{SHIFT-POUND}
I"P
 R~{SHIFT-POUND} R~{SHIFT-POUND}"{CBM-Z}
I
P{SHIFT-POUND}  R~{SHIFT-POUND}
 R~ MF {$e4}~{$f0}
I{$f0}eIa
I[{CBM-A}I
liF{CBM-Z}
IA
I{SHIFT-+}{CBM-A}8{$e9}
IP{SHIFT-POUND}
IP{SHIFT-POUND}
{CBM-I} I~{CBM-Z}
 R~ L~l{CBM-A}E{$60}{SHIFT-POUND} R~{SHIFT-POUND}  R~{SHIFT-POUND} R~{SHIFT-POUND} R~{CBM-Z}IPH{SHIFT-@}{$ec}HP{$f9}{SHIFT-POUND}
{$60}{CBM-Z}&I{SHIFT-@}P{CBM-Z}'IF{$f0}{CBM-Z}&K{CBM-Z}'K{SHIFT-POUND}{SHIFT-@}&{SHIFT-POUND}F'{$60}h{CBM-G}IPHLKHLKjHhh#
{$f8}P D{$f8}{CBM-A}{SHIFT-POUND}
{CBM-R}H{CBM-+}{CBM-G}{CBM-R}H{CBM-POUND}H
x)){CBM-N}"";:a(x):x
e(
"ok to save file? (y/n) ";:a$:a${CBM-W}{CBM-E}"y"{CBM-M}100
y-
a(7){CBM-R}1{CBM-M}a(7){CBM-R}10
O2
15,"s0:"{CBM-N}n$:200
<
8,8,8,n${CBM-N}",s,w":200:e0{CBM-M} 8:90
{CBM-E}f
x{CBM-R}1{CBM-@}8:8,G(a(x));:x: 8
Cp
"done!"
{CBM--}z
 "";e0,e1$,e2,e3
{$e6}D
 15:
{$fd}H
15,e0,e1$,e2,e3:%Z"     :    :   printer  menu
2%{$e4}"    {CBM-Q}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-W}
k%{$ee}"    {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
[%{$f8}db${CBM-R}""{CBM-M}840
U%260:(qx%{CBM-W}{CBM-E}123){CBM-M}1900
%"current dbase: "{CBM-N}db$
U%p$"< 1 >  =  change data base"p$"< 2 >  =  load a form
 & p$"< 3 >  =  fi:53281,x:
+z
:"hit any key to continue"
>D
{CBM-K}a$:a${CBM-R}""{CBM-M}100
dN

ZX
""{CBM-N}G(142)"    U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I
{CBM-M}
"    {SHIFT--}        {SHIFT--} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--}
X
"    {SHIFT--}        {SHIFT--}{CBM-A}{CBM-X}                 {CBM-Z}{CBM-S}{SHIFT--}

"    {SHIFT--}        {SHIFT--}{SHIFT--}            ja${CBM-R}in$:49158:
7 tqr{CBM-R}N
(in$):310:254,hi:253,lo:4870:
d ^255,du%
[ Ha${CBM-R}in$:49170:280
P R"filename:";
 {$7c}il{CBM-R}16:190:in${CBM-R}""{CBM-M}e0{CBM-R}1:
{CBM-+} in${CBM-R}"$"{CBM-M}1720:370
F 8,du%,8,in${CBM-N}",s,"{CBM-N}tf$:280
!j$"disk error: "{CBM-N}D(e0){CBM-N}", "{CBM-N}e1${CBM-N}", "{CBM-N}D(e2)1{CBM-@}np%:y{CBM-R}np%(x):8,ff$(y):x:
>#d{$fe}(in$),b0,u(du%),p39936:{$fe}15: c-128 only
G#n(ml{CBM-N}15):nf%{CBM-R}B(255):(nf%){CBM-M}nf%{CBM-R}nf%{CBM-Q}1
M#x
{CBM-+}#Bp${CBM-R}G(13){CBM-N}"        ":240:120:"":"      form
{CBM-C}#L"     writer
{$e5}#V"                main menu
{$fb}#"
{CBM-N}{CBM-G}{SHIFT-POUND}
{$60} Gl{$ec}F G{CBM-D}HL{$f0}{$f4}{CBM-G}{$f9}{CBM-Z}{CBM-K}j{CBM-A}{SHIFT-POUND}{SHIFT--}{CBM-Z}
K{SHIFT--}{CBM-Z}K{SHIFT--}{SHIFT-POUND} ;{$ef} {$ef}{SHIFT-POUND}{SHIFT--}{$60}


P{$fd}{$e8} XP{$f6}{$60}h{CBM-Z}H
H{$f0}
{CBM-Z}HPH R~hH{$60} {$7e}{$ef}{CBM-Z}{CBM-K}I{$f0}{$f6}I{$f0}{$f2}{$60} MF {$f7}{SHIFT-*}{CBM-G}P{CBM-Z}
){$7f}
I{$f0}I
{$f0}I lFIA
I{$7b}{CBM-A}8{$e9}
l{$f0}EIa
I[{CBM-A}I
I
6, "printer secondary adr   ","printer device num   "
_1 "1200 baud (0) or 300 baud (1)   "
6 "buffer on (1) or off (0)  "
{CBM-@}@ "echo on (1) or off (0)   "
Mj "buffer wrap on (1) or off (0)   "
{$f4}t "linefeeds on (1) or off (0)   "
^ll from data base"p$"< 4 >  =  fill from keyboard
I&*p$"< 5 >  =  print a blank form"p$"< 6 >  =  set printer codes
&4100:(E(a$)) 1270,1900,1280,1310,1320,1330
{CBM-T}&>610
{CBM-O}&h2350:db${CBM-R}""{CBM-M}610
B&r710
{$e2}&\120:"":"           {CBM-D}
{$f8}&F"         {SHIFT--}{SHIFT--}
:
"    {SHIFT--}        {SHIFT--}{CBM-Z}{CBM-S}                 {CBM-A}{CBM-X}{SHIFT--}
G{CBM-N}
"    {SHIFT--}        {SHIFT--} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {SHIFT--}
{CBM-H}
"    J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K":
{CBM-K}{CBM-V}
in${CBM-R}""
PH
"{CBM-I}";:100:a{CBM-R}F(a$):b{CBM-R}C(in$):a{CBM-R}13{CBM-M}" ":
{$f9}R
a{CBM-R}20{CBM-M}b{CBM-M}" ";:in${CBM-R}H(in$,b{CBM-Q}1):200
{CBM-N}", "{CBM-N}D(e3):90
!{CBM-@} 440
q!{CBM-S}a{CBM-R}nf%{CBM-N}1: ff$(a),nf$(a),ft%(a),fl%(a),np%(a),fc$(51),q$(51):
Q!{CBM-U}(c6){CBM-M}51,B(49):52,B(50):
!B49,B(47):50,B(48):
!L570
D!Vx{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x): nf$(y){CBM-N}" :"{CBM-N}ff$(y):x:
{CBM-*}! tf${CBM-R}"r":550:(e0){CBM-M}540
"{$ea}:460: 8:"i   by
$"    t. brown"
j$p$"< 1 >  =  form editor"p$"< 2 >  =  data base
{$7d}$p$"< 3 >  =  printer"p$"< 4 >  =  disk drive
{CBM-+}${CBM-POUND}ff{CBM-R}0:100:(E(a$)) 950,1040,710,860
{CBM-P}${CBM-R}610
{CBM-J}${CBM-C}
U$F120:"":"
{$ed}$P"     :    :
      UI
''P"       JK     disk drive menu
?'Z"       {CBM-K}{CBM-K}
x'"       {CBM-C}{CBM-V}   "
'p$"< 1 >  =  directory "p$"< 2 >  =  dos commands"
{CBM-R}'p$"< 3 >  =  error channel"
T'{CBM-I}100:(E(a$)) 1710,1750,1780
{SHIFT--}'{CBM-D}610
{$fd}'{CBM-L}120:= sum1"j$"2 = sum2"
&74"3 = sum3"j$"4 = total1"j$"5 = total2"j$"6 = total3"j$"7 = grand ";
E7>"total"j$"8 = keyboard"j$"9 = date":100:a{CBM-R}E(a$):a{CBM-E}9{CBM-M}a{CBM-R}0
7hft%(ff){CBM-R}a:a:a{CBM-W}4{CBM-M}np%{CBM-R}np%{CBM-N}1
7rff
{CBM-H}7\np%{CBM-R}0:x{CBM-R}0{CBM-@}nf%:ft%(x){CBM-W}4{CBM-M}np%{CBM-R}np%{CBM-N}1
{CBM-F}7Fx
Y7Pff{CBM-R}0{CBM-@}nf1){CBM-N}" fields"
4d"define them now? y/n":100:((a${CBM-R}"y"){CBM-N}2)2020,950
<4n"save a form":1990:in${CBM-R}""{CBM-M}950
Y4x(c6){CBM-M} {$fe}(in$),b0,u(du%),p39936{CBM-@}p45056:{$fe}15:950: c-128
4B350:950
4L1940:in${CBM-W}{CBM-E}""{CBM-M}710
{CBM-M}4V610
{CBM-V}41940:in${CBM-W}{CBM-E}""{CBM-M}950
G4610
{$ed}4"jq$(7){CBM-R}q$(2){CBM-N}q$(5):f$(7){CBM-R}"condenced italic"
21tq$(8){CBM-R}q$(3){CBM-N}q$(5):f$(8){CBM-R}"superscript italic
A1^q$(9){CBM-R}q$(4){CBM-N}q$(5):f$(9){CBM-R}"subscript italic"
1H"select font changes for each line."
1Ra${CBM-R}""
Z1{$7c}"line # 1-50 <cr=exit> ";a$:a{CBM-R}E(a$):(a{CBM-W}1){CBM-A}(a{CBM-E}50s"p$"< 4 >  =  save codes
.X100:(E(a$)) 1420,1490,1440,1460
&.710
6.1430:1330
p.x{CBM-R}0{CBM-@}49:fc$(x){CBM-R}""::
K. tf${CBM-R}"r":370:e0 {CBM-M}1480
.{CBM-N}8,pd:8,ps:8,pt:x{CBM-R}1{CBM-@}50:8,pc$(x)::1480
{CBM-L}.{CBM-H}tf${CBM-R}"w":370:e0 {CBM-M}1480
{$e6}.{CBM-V}8,pd:8,ps:8,pt:x{CBM-R}1{CBM-@}50:8,G(
:"month (1-12): ";
+{CBM-+}190:mo{CBM-R}E(in$):mo{CBM-W}1{CBM-A}mo{CBM-E}12{CBM-M}mo{CBM-R}1
t+{CBM-A}"day (1-31): ";:190:da{CBM-R}E(in$):da{CBM-W}1{CBM-A}da{CBM-E}31{CBM-M}da{CBM-R}1
U+{SHIFT-@}1021,mo:1022,da:du%{CBM-R}B(186)
+D787,123
{SHIFT-@}+N(c6){CBM-M}{$fe}"editor.128 ml",u(du%):{$fe}15:20: c128 only
T+X"editor.64 ml",du%,1
,{$e2}du%{CBM-R}B(1"":"     {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
({SHIFT-*}"     {SHIFT--}   {CBM-Q}{CBM-S}
c(J"     {SHIFT--}   {SHIFT--}{SHIFT--}  form/field editor "
y(T"     {CBM-Z}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-X}{SHIFT--}
R({$de}"      {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} "
{CBM-E}({$e8}p$"< 1 >  =  create new form"p$"< 2 >  =  edit old form"
{$ea}({$f2}p$"< 3 >  =  load a form"p$"< 4 >  =  save a f%:ft%(ff){CBM-E}3{CBM-M}2200
8Z"ask for "{CBM-N}nf$(ff){CBM-N}j${CBM-N}"in what order (1 -"{CBM-N}D(np%){CBM-N}"): "
<8il{CBM-R}3:190:a{CBM-R}E(in$):(a{CBM-E}np%){CBM-M}a{CBM-R}0
j8np%(a){CBM-R}ff
r8ff
8{CBM-I}"name for database: ":il{CBM-R}15:190:in${CBM-R}""{CBM-M}950
{SHIFT-@}8{CBM-D}db${CBM-R}in$:"insert disk to receive database";:90
{$ed}8{CBM-L} 8:8,d
load a form":1990:in${CBM-R}""{CBM-M}
5 8:8,du%,8,in${CBM-N}",p,r":280: 8:e0{CBM-M}
+5{CBM-POUND}nf%{CBM-R}0:(c6){CBM-M} 580
e5{CBM-R}787,234:(in$),du%,1
s5{CBM-C}590:610
{$7e}5F"form name: ";:il{CBM-R}16:190:in${CBM-R}""{CBM-M}
5Pin${CBM-R}"$"{CBM-M}1720:1990
5Z
{CBM-+}5{$e4}430
{SHIFT-@}5{$ee}np%{CBM-R}0:ff{CBM-R}0{CBM-@}nf%
{$f3}5{$f8}li{CBM-R}B(sc{CBM-N}ff):c){CBM-M}1330
{$e4}1a{CBM-R}a{CBM-Q}1
2:x{CBM-R}0{CBM-@}9:D(x){CBM-N}" = "{CBM-N}f$(x):
?2"font # <cr = normal> ";a$:b{CBM-R}E(a$):b{CBM-W}1{CBM-A}b{CBM-E}9{CBM-M}b{CBM-R}0
v2{CBM-@}fc$(a){CBM-R}q$(b):1650
E2{CBM-S}1720:860
2{CBM-U}"directory": 1:1,du%,0,"$0":280:e0{CBM-M}1740
{SHIFT-POUND}2B(ml{CBM-N}21)
{CBM-H}2L 1:90
{$e7}2V"disk command: ";:i34){CBM-N}pc$(x):
{$f3}.H 8:1330
5/Rpd{CBM-R}4:ps{CBM-R}5:"printer device #: 4 ";a$:a{CBM-R}E(a$):(a){CBM-M}pd{CBM-R}a
N/{CBM--}"secondary address: 7 ";a$:a{CBM-R}E(a$):(a){CBM-M}ps{CBM-R}a
{CBM-Q}/{$e6}"transparent secondary: 5 ";a$:a{CBM-R}E(a$):(a){CBM-M}pt{CBM-R}a
{CBM-J}/{$f0}1430
B/{$fa}e${CBM-R}G(27)
{$e9}/q$(0){CBM-R}e${CBM-N}G(64):f$86):ml{CBM-R}49152:sc{CBM-R}39936:c6{CBM-R}B(1023):(c6){CBM-M}ml{CBM-R}4864
d,{$ec}mo{CBM-R}B(1021):da{CBM-R}B(1022):pd{CBM-R}4:ps{CBM-R}7:pt{CBM-R}5:j${CBM-R}G(13):60
s,{$f6}2350:710
Q,
480:(e0){CBM-A}(a${CBM-W}{CBM-E}"y"){CBM-M}1300
,
2490:2650:2690
, 8:710
D,"fill out form:":2280:2490:2650:2690
{$ec},("print a blank fororm"
){$fc}fl{CBM-R}1:100:(E(a$)) 1800,1810,1920,1870
)610
?)120:"":"    {CBM-A}{SHIFT-*}{CBM-S}
u)"    {SHIFT--} {CBM-Q}{CBM-S} {CBM-A}{SHIFT-*}{CBM-S}
)$"    {CBM-Z}{CBM-R}{CBM-X}{SHIFT--}_{SHIFT--}W{SHIFT--}   data base menu
)."     {CBM-Z}{SHIFT-*}{CBM-X} {CBM-Z}{CBM-E}{CBM-X}
{CBM-R})8"
C)bdb${CBM-R}""{CBM-M}1160
{$e1})l"current dbase: "{CBM-N}db$
"*
u%,8,"/"{CBM-N}db${CBM-N}",s,w":280:e0{CBM-M}410:2220
~8{SHIFT-*}8,nf%:8,np%
49Jx{CBM-R}0{CBM-@}nf%:8,nf$(x):8,ft%(x):8,fl%(x):8,np%(x)
>9Tx: 8
g9{$de}950
]9{$e8}x{CBM-R}1{CBM-@}np%:y{CBM-R}np%(x)
M9{$f2}il{CBM-R}fl%(y):
{CBM-+}9{$fc}""{CBM-N}nf$(y){CBM-N}": ";:il{CBM-R}fl%(y):190:in${CBM-W}{CBM-E}""{CBM-M}ff$(y){CBM-R}in$
A9 ff$(y){CBM-R}""{CBM-M}ff$(y){CBM-R}" "
J9
o{CBM-R}B(sc{CBM-N}256{CBM-N}ff):fl%(ff){CBM-R}(B(sc{CBM-N}512{CBM-N}ff)){CBM-N}1
46"field #"{CBM-N}D(ff){CBM-N}j${CBM-N}"at line: "{CBM-N}D(li){CBM-N}" & column: "{CBM-N}D(co)
t6"field length:"{CBM-N}D(fl%(ff))
6"name for field: ":il{CBM-R}16:190:in${CBM-R}""{CBM-M}950
6 nf$(ff){CBM-R}in$
{SHIFT--}6*"select field type:"j$"0 = alphanumeric"j$"1 l{CBM-R}32:190:in${CBM-R}""{CBM-M}860
3 a{CBM-R}E(in$):(a{CBM-E}7){CBM-M} du%{CBM-R}a:240:860
3{$ea}240:15,in$
33{$f4}280:(e0{CBM-R}0){CBM-M}410
<3{$fe}860
v380:"";:(ml):1820
L380:"";:(ml{CBM-N}3)
3nf%{CBM-R}B(255):nf%{CBM-W}1{CBM-M}950
3&nf%{CBM-R}nf%{CBM-Q}1
{CBM-M}30(sc{CBM-N}1023),123
{CBM--}3:db${CBM-R}"":"you have created"{CBM-N}D(nf%{CBM-N}(0){CBM-R}"normal font"

0q$(1){CBM-R}G(14):f$(1){CBM-R}"expanded"
,0q$(2){CBM-R}G(15):f$(2){CBM-R}"condensed"
x0"q$(3){CBM-R}e${CBM-N}G(83){CBM-N}G(0):f$(3){CBM-R}"superscript"
0,q$(4){CBM-R}e${CBM-N}G(83){CBM-N}G(1):f$(4){CBM-R}"subscript"
{CBM-G}06q$(5){CBM-R}e${CBM-N}G(52):f$(5){CBM-R}"italics"
S0@q$(6){CBM-R}q$(1){CBM-N}q$(5):f$(6){CBM-R}"expanded italic"
1m":2630:2690

-2120:"":"
%-<"     :    :
r-f"     :    :    set printer
J-p"    {CBM-Q}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-W}
-z"    {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
{SHIFT-*}-Dp$"< 1 >  =  erase all codes"p$"< 2 >  =  enter codes
{$f6}-Np$"< 3 >  =  load codevp$"< 1 >  =  open a data base"p$"< 2 >  =  add a record"
C*{$60}p$"< 3 >  =  delete a record"p$"< 4 >  =  change a record"
*Jp$"< 5 >  =  view a record"
{CBM-A}*T100:(E(a$)) 2340,2390,2410,2430,2470
{CBM-O}*{$7e}610
O*2350:db${CBM-R}""{CBM-M}610
Y*1040
{$f9}*il{CBM-R}2x:
P9:
 9$2350:1040
:."name of database: ";:il{CBM-R}15:190:in${CBM-R}""{CBM-M}
8:8H(in$,1){CBM-R}"/"{CBM-M}in${CBM-R}I(in$,(b{CBM-Q}1))
q:bin${CBM-R}"$"{CBM-M}1720:2350
B:ldb${CBM-R}in$:500
:v"add a document":2280:tf${CBM-R}"w":550:(e0{CBM-R}0){CBM-M}560
{CBM-N}:{$60} 8:1040
{$e2}:J"delete a docum3)
{$e1}<
ft%(y){CBM-R}7{CBM-M}ff$(y){CBM-R}D(t1{CBM-N}t2{CBM-N}t3)
=
ft%(y){CBM-R}8{CBM-M}nf$(y){CBM-N}": ";:il{CBM-R}fl%(y):190:ff$(y){CBM-R}in$
==(
ft%(y){CBM-R}9{CBM-M}ff$(y){CBM-R}D(mo){CBM-N}" /"{CBM-N}D(da)
d=2
y
j=<

W=f
a${CBM-R}"....................":a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
=p
x{CBM-R}0{CBM-@}nf%:ff$(x){CBM-R}H(a$,(fl%(x)))::
K=z
a${CBM-R}"                    "
{SHIFT-*}l{$f8}Al$Bl{$ea}ClxClClTBl-{SHIFT-*}lG{SHIFT-*}











p2






{CBM-G}~h {$60}{SHIFT-*} D{SHIFT-POUND}{$fc}{SHIFT-POUND}
{$fb}H{CBM-N}{SHIFT-POUND}
 {SHIFT-@}~{CBM-G}{CBM-W}{CBM-+}{$fd}{CBM-@}{$fe} {CBM-X}~{SHIFT-POUND}{$fb}{CBM-I}
 {CBM-A} X~{CBM-G}{$60}{CBM-G}){$fe}{$60}{CBM-I} F~ {$e4}~ {$e4}~{CBM-Z}P{$fb} {CBM-T}{SHIFT-*}{$f0}{SHIFT-POUND}
 R~ {$e4}~{CBM-N} {$e4}~ M{CBM-X}{SHIFT-POUND}  R~ {$e4}~{$f0}{SHIFT--} R~P{$f6}{SHIFT-POUND} C~ L~{$60} {$e4}~~ {$e4}~~{$60}{CBM-Z}){SHIFT-*} VA{CBM--}{SHIFT-*}{SHIFT--}{SHIFT-*}{CBM-Z}'{SHIFT-*} VA{$e7}{SHIFT-*}{$e8}{SHIFT-*}
{CBM-O}V{SHIFT-*}{$f0}{SHIFT-*}HP{$f3}{$60}: 00
: 00
 {$f0}{SHIFT-*}l>B8 {$f0}~{SHIFT-*}'{$f0}{SHIFT-POUND} Rscreen...


{SHIFT-POUND}
~ {$fa}D
{CBM-E}{$fb}I^P +CH{SHIFT-*}p{$f2}{$e6}{CBM-G}M%{SHIFT-*}{$e4}{CBM-+}~ly{SHIFT-*}{CBM-G}{CBM-+}~

{CBM-I}
{$e8}H{SHIFT-*}p{$60}{CBM-E}{$fb}I^P{$f3}{CBM-+}~
{$e8}{$f0}~{$60}HH{CBM-G}~ly{SHIFT-*} {$60}{SHIFT-*}
{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{CBM-A}{$fe}{CBM-E}{$fb}{$fd}HP{$f9}{$e6}{$fc}{$e6}{$fe}{CBM-G}{$fc}I{CBM-A}P{$ef}ly{SHIFT-*} {$60}{SHIFT-*}{CBM-G}~ {$ee}D{CBM-I} I~
{CBM-E}{$fb}I_{$f0} R~H{SHIFT-*}pP{$f2} L~ly{SHIFT-*}
{CBM-@}C
{CBM-O}{SHIFT-*}{$f0} R~HP{$f5}{CBM-D}{CBM-@}ClC
{CBM-F}C){$60}P{SHIFT-POUND} {$60}{CBM-Z}{CBM-F}C0){$60}I{$60}{$f0}{CBM-F}C*.{CBM-F}CJN{CBM-F}Cn{CBM-F}C{CBM-Z}{CBM-F}C{$60}{CBM-Z}{CBM-F}C)_{$60} {$60}{SHIFT-*}{CBM-+}~{CBM-X}
h{CBM-X}


lcl


















































#1$0:z-\=u{CBM-I}n8o8r8s8{CBM-I}
p8q8{CBM-D}8{CBM-Z}
 {$f0}! {$e4}{SHIFT-POUND}
;8 {CBM-G} {$f9}{SHIFT-POUND}
+{SHIFT-POUND}p,{SHIFT-POUND}

p b{CBM-+}l  {$e4}{SHIFT-POUND};8  {$f9}{SHIFT-POUND}
-{SHIFT-POUND}p.{SHIFT-POUND}

p YqX ~x S2 {$e7}~{SHIFT-POUND}{CBM-Y}<{CBM-Z};8P{SHIFT-POUND}lJ{CBM-G}W0+ {$f9} DW {$e4}{SHIFT-POUND}U{SHIFT-POUND}8{SHIFT-POUND}
28{SHIFT-POUND}(48{SHIFT-POUND}!P{SHIFT-POUND} P +l {$f9} {CBM-W}W {$e4}{SHIFT-POUND}A{SHIFT-POUND}8{CBM-Z}?88{$e9}>8 + +{CBM-Z}?8  +{CBM-Z}>8 {$60}<8
{CBM-POUND}{CBM-E}{CBM-N}H{CBM-E}{CBM-POUND} 6l{$f0}{SHIFT-POUND}{$e9}{SHIFT-POUND}8 5 + + I{CBM-Z}48Ip{$f0}{SHIFT-POUND}{CBM-I}
  lE{SHIFT-POUND}{CBM-I}
  {SHIFT-POUND}{CBM-I}
 )  + +{SHIFT-POUND}
>8?8 {$60}
V,
V{$fb}V{$60}
V,
V{$fb}{CBM-Z}V{$60}{SHIFT-POUND}{$fa}{SHIFT-POUND}9{$fb}{SHIFT-POUND}{$fc}{SHIFT-POUND}{$fa} {CBM-I} E~{$60}X{SHIFT-POUND}{CBM-R}{SHIFT-POUND}x{$60}{CBM-Z}I{$f0}{CBM-G}KIPX ~HHHxl l1{$ea} {$f9}L {CBM-Z}48Ip{$f0}{CBM-I}
 {SHIFT-POUND} {$60}{CBM-Z};8{$f0}{SHIFT-POUND}U~{$60}{CBM-G}){$fe}ent":480:(e0){CBM-A}(a${CBM-W}{CBM-E}"y"){CBM-M}1040
;T"ok"j$"deleting: "{CBM-N}in$:15,"s0:"{CBM-N}in$:280:1040
n;{$7e}"edit a document":480:(e0){CBM-A}(a${CBM-W}{CBM-E}"y"){CBM-M}1040
;ni${CBM-R}in$:2280:tf${CBM-R}"w":in${CBM-R}ni$:15,"s0:"{CBM-N}in$:280
;400:(e0{CBM-R}0){CBM-M}560
{CBM-+}; 8:1040
{SHIFT-+};{CBM-+}"view a document
:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
{$ed}=D
x{CBM-R}0{CBM-@}nf%:a{CBM-R}C(ff$(x)):b{CBM-R}fl%(x)
>N
(a{CBM-W}b){CBM-M}ff$(x){CBM-R}ff$(x){CBM-N}I(a$,(b{CBM-Q}a))
>X
:
c>
(ml{CBM-N}9):ff{CBM-R}0{CBM-@}nf%:in${CBM-R}ff$(ff):320:
y>
4,pd,ps:5,pd,pt
{$7b}>
"print to line#: ";:il{CBM-R}2
{CBM-I}>
190:l{CBM-R}E(in$):(l{CBM-W}1) {CBM-A} (l{CBM-E}49){CBM-M}l{CBM-R}49
E>{CBM-N}
x{CBM-R}0{CBM-@}l:4,j$;:5,q$~{$ee}'{SHIFT-*}{$60}{CBM-S}'{SHIFT-*} oP{$60}{$ee}+{SHIFT-*}{$ee}'{SHIFT-*}{$60} Al>B8 {$f0}~{SHIFT-*}
{$f0}{SHIFT-POUND} R~N'{SHIFT-*}{$60}{CBM-S}'{SHIFT-*}P{$60}N+{SHIFT-*}N'{SHIFT-*}{$60}8 {$f0}~
{$f0}{SHIFT-POUND} R~N){SHIFT-*}l>B{CBM-S}){SHIFT-*}Pl>BN,{SHIFT-*}N){SHIFT-*}l>B A{CBM-Z}){SHIFT-*} {$fa}D{CBM-D}'{SHIFT-*}H{SHIFT-*}p{$f0}{CBM-E}{$fb}{$fb}HP{$f3}{SHIFT-POUND} {$fb}l>B{CBM-Z}'{SHIFT-*}IoPl>B{CBM-Z}){SHIFT-*} {$fa}D o{CBM-E}{$fb}H{$fb}L'{SHIFT-*}P{$f4}{SHIFT-POUND} {$fb}l>B8 {$f0}~
 {$f0}~{SHIFT-POUND}
'{SHIFT-*}+{SHIFT-*}8 {$f0}~ {$f0}{SHIFT-POUND} R~{$ee}){SHIFT-*}l>B{CBM-S}){SHIFT-*} 1Pl>B{$ee},{SHIFT-*}{$ee}){SHIFT-*}l>B ~8H{$e9}
{CBM-A}{$fb}I
I0hI0{CBM-POUND}H{$60} {$e4}~{$f0}{$fb}{$60}{CBM-Z}IP3 {$60} {$ee}DHE{$fb}{$e6}{$fc}{$fb} D{CBM-@}{CBM-W}{CBM-E}{$fd}{$fb}{$f9}ly{SHIFT-*}
{CBM-E}g{CBM-W}H{CBM-E}g{$fd}H{CBM-E}g{$fe}{$60}{SHIFT-POUND}
L{$60}{SHIFT-POUND}~L{$60}
{SHIFT-POUND}
{$fb}{SHIFT-POUND}{CBM-A}{$fc}lbD{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{CBM-D},{SHIFT-*}{$f0}{CBM-G}{$fb}M${SHIFT-*}{$fb}{$e6}{$fc}P{$f1}{CBM-Z}+{SHIFT-*}E{$fb}{$fb}{SHIFT-POUND}
E{$fc}{$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND}.D '{CBM-E}{$fb} {CBM-C}C{$fd}{$f6}{CBM-G}{$fb}M${SHIFT-*}{$fb}{SHIFT-POUND}
E{$fc}{$fc}{CBM-G}{$fd}I({$fd}{$e6}{$fe}N.DV{$60} {CBM-I}DlRD{SHIFT-POUND}
{$ec}D{$ed}D{CBM-I}N{$ed}DN{$ec}DN{$e9}DN{$e8}D{CBM-Z}{$ea}DM{$ec}D{$ec}D{CBM-Z}{$eb}DM{$ed}D{$ed}DJP{CBM--}{$60}{CBM-Z}{$e8}DM{$e6}D{$ea}D{CBM-Z}{$e9}DM{$e7}D{$eb}D{$60}







{CBM-I}
{$e6}D{CBM-I}{SHIFT-POUND}28{SHIFT-POUND}p48{SHIFT-POUND}{CBM-I} W{CBM-Z}2838{SHIFT-POUND}
{$60}8m8C8t8H8K8G8L8N8O8P8U8X88{CBM-S}8{SHIFT-@}88{CBM-N}
j{$e8}P{$fa} ,{CBM-Z}V8{$f0} + +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND} {CBM-Z}{CBM-D}8Pl{$e5}{CBM-Z}{CBM-*}h{CBM-Z}{CBM-*}h{CBM-Z}{CBM-*}h - z({SHIFT-POUND}
{CBM-D}8H{CBM-*}H{CBM-*}H{CBM-*}l{$e5}{CBM-Z};8P"{CBM-G}KI{$f0}{$fa}{SHIFT-POUND}
F{SHIFT-POUND} R~{SHIFT-POUND}!P +{SHIFT-POUND} {CBM-G}lM{SHIFT-POUND}{CBM-Z}< {$f9}X v  {$e1}
{SHIFT-*}x Za @{CBM-I} K~
~L

 {$e1}~P{CBM-Z}V8{$f0}  {SHIFT-POUND}
V8 .{$60}{CBM-Z};8{$f0}{CBM-I} K~U~{$60}{CBM-G}{$60} {$e1}~P{CBM-Z}3828HHHH{$ee}t88{$60} {$e4}~{$f0}{$e7}I P{$60}{CBM-S}j8{$f0}I{$f0}IPT{CBM-Z}>8{$f0}OlN{CBM-Z}R8l[{CBM-S}k8{$f0}AI{$f0}IP{CBM-O}{CBM-Z}l8M>8{$f0}{CBM-E} .{$ee}>8l{CBM-Z}>8{$f0}{CBM-T}{$ee}m8 .N>8l {$e1}~P8{$60} {$e4}~{$60}{CBM-S};8{CBM-X}O9({$60}{CBM-S};8{CBM-X}Q9({$60}{CBM-I}K8G8{SHIFT-@}8Jt8{CBM-I}{CBM-F}8J{$fa} '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}n8r8{CBM-X}p8IPl{CBM-U} {$f0}- S ]{CBM-Z}t8{$f0}l{CBM-U} {CBM-R}2{CBM-S}>8 {CBM-V} 3{CBM-Z}t8{$f0}lN2"a${CBM-R}"y":480:a${CBM-W}{CBM-E}"n"{CBM-M}1040
{$e5};{CBM-A}2470
<{SHIFT-@}t1{CBM-R}0:t2{CBM-R}0:t3{CBM-R}0:x{CBM-R}0{CBM-@}nf%
<Dft%(x){CBM-R}1{CBM-M}t1{CBM-R}t1{CBM-N}E(ff$(x))
=<Nft%(x){CBM-R}2{CBM-M}t2{CBM-R}t2{CBM-N}E(ff$(x))
[<Xft%(x){CBM-R}3{CBM-M}t3{CBM-R}t3{CBM-N}E(ff$(x))
B<{$e2}x
O<{$ec}y{CBM-R}0{CBM-@}nf%
<{$f6}ft%(y){CBM-R}4{CBM-M}ff$(y){CBM-R}D(t1)
{CBM-G}<

ft%(y){CBM-R}5{CBM-M}ff$(y){CBM-R}D(t2)
{SHIFT-*}<

ft%(y){CBM-R}6{CBM-M}ff$(y){CBM-R}D(t
G(0){CBM-N}fc$(x);
{$e3}>{CBM-H}
255,(x):(ml{CBM-N}12):: 4: 5
?{CBM-V}
"print again  n ";a$:a${CBM-R}"y"{CBM-M}2700
?H
710


(

{CBM-R}9{CBM-M}ff$(y){CBM-R}D(mo){CBM-N}" /"{CBM-N}D(da)
d=2
y
j=<

W=f
a${CBM-R}"....................":a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a$
=p
x{CBM-R}0{CBM-@}nf%:ff$(x){CBM-R}H(a$,(fl%(x)))::
K=z
a${CBM-R}"                    "{SHIFT-*}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND} {$fb}HP{$fb}{$e6}{$fc}{CBM-+}{$fc} {CBM-A}P{$f3}{CBM-Z}!Ph{SHIFT-POUND}!P{SHIFT-POUND} R~H!P {$60}{SHIFT-*}{SHIFT-POUND}{SHIFT-*}{$f8}{SHIFT-POUND} R~{SHIFT-POUND}
'{SHIFT-*}){SHIFT-*}+{SHIFT-*},{SHIFT-*} :D {CBM-S}{SHIFT-*}{CBM-Z}){SHIFT-*} {$fa}D $D {$eb}Ah )DHIPlWBI{$f0}{$f9}I
PlAIPl{$f1}AIPl+BIP {CBM-L}Bl>BIPl{CBM-A}AIPl{$ea}{SHIFT-*}IPl4AIPlAIPlxAIPlYA {CBM-P}Bl{$ea}{SHIFT-*}{CBM-D}'{SHIFT-*}{$fb}{$60}
{SHIFT-POUND}{CBM-J}B{CBM-Z}I{$f0} {$f0}{SHIFT-*}N{CBM-J}BP{$f8}{$60} AN{CBM-J}BP{$f8}{$60} {$60}{SHIFT-*}{SHIFT-POUND}
{$f8} "E

Wait a moment.
Reading
\{CBM-A}{$e7}DP
{CBM-I}
{$e6}D{CBM-I} {$e7}D{$ea}D{SHIFT-POUND}
{$eb}D{$e9}D{SHIFT-POUND}p{$e8}D D{CBM-Z}{$ea}D{$fb}{CBM-Z}{$eb}D{$fc}{$60}hhh
{SHIFT-@}{$fe}P{$fe}{CBM-X}C{CBM-X}D{CBM-E}C{$f0} R~{$e4}H{CBM-POUND}H{CBM-N}H{$60}~

H{CBM-G}~ly{SHIFT-*} {$60}{SHIFT-*}
{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{CBM-A}{$fe}{CBM-E}{$fb}{$fd}HP{$f9}{$e6}{$fc}{$e6}{$fe}{CBM-G}{$fc}I{CBM-A}P{$ef}ly{SHIFT-*} {$60}{SHIFT-*}{CBM-G}~ {$ee}D{CBM-I} I~
{CBM-E}{$fb}I_{$f0} R~H{SHIFT-*}pP{$f2} L~ly{SHIFT-*}
{CBM-@}C
{CBM-O}{SHIFT-*}{$f0} R~HP{$f5}{CBM-D}{CBM-@}ClC
{CBM-F}C){$60}P{SHIFT-POUND} {$60}{CBM-Z}{CBM-F}C0){$60}I{$60}{$f0}{CBM-F}C*.{CBM-F}CJN{CBM-F}Cn{CBM-F}C{CBM-Z}{CBM-F}C{$60}{CBM-Z}{CBM-F}C)_{$60} {$60}{SHIFT-*}{CBM-+}~{CBM-X}
h{CBM-X}
 L~ {$e4}~{$f0}{$e3}I{$f0}I {$f0} Xl{$e5}{CBM-Z}>8P 1-l IP gl IP 0+l IP 6l IP k6l IP {$f4}6l IP 7/l IP &l IP {CBM-M}?l IP l l{$e5} Y{$7b}9{$f0}{$f8}{$60}P{CBM-Z}>8{$f0}?8N>8lIP{CBM-Z}>8I{$f0}V?8{$ee}>8l{$60}IP-{CBM-Z}48Ip{$f0}{CBM-Z}>8I{CBM-A}{SHIFT-@}?8I>8l{CBM-Z}>8I{CBM-A}Z?8I>8l{CBM-Z}48Ip{$f0}{CBM-Z}>8I{SHIFT-*}?88{$e9}>8l{CBM-Z}>8I{CBM-I} F~
{CBM-Z}{$7b}8IsP{SHIFT-POUND}
{CBM-F}8{CBM-C}8l O~{CBM-F}8 O~{CBM-C}8 O~ {CBM-Y}~P{$ee}{CBM-X}8P{$f3}{$ee}{CBM-V}8l L~ 3 N2{CBM-Z}t8{$f0}l{CBM-U}{CBM-Z}{CBM-F}8M{CBM-X}8{CBM-B}8{CBM-Z}{CBM-C}8M{CBM-V}8{SHIFT-*}8 + .{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}3 {CBM-Z}{CBM-F}8u8{CBM-Z}{CBM-C}8v8 2 {CBM-P}{SHIFT-POUND}4=8 {CBM-Z}{CBM-B}8u8{CBM-Z}{SHIFT-*}8v8 2 {CBM-P}{SHIFT-POUND}5=8 {CBM-Z}{CBM-X}8u8{CBM-Z}{CBM-V}8v8 2 Z{$fb}l{CBM-U}{SHIFT-POUND}  R~ R~{$60}{SHIFT-POUND}
{SHIFT-@}8{$60} N8M8  hH{CBM-E}{$7b}8{$e8}{$e8}{$e8}{$e8}H{CBM-N}{SHIFT-POUND},
{$e8}{CBM-Z}{$7b}8
{$e8}{SHIFT-POUND},
{$e8}{SHIFT-POUND}r

  {CBM-X}~{SHIFT-POUND}{CBM-S}r8  {SHIFT-@}~ {SHIFT-*}~{$60} '3{CBM-A}{CBM-I}
>8{CBM-X}n8s8J8l%{CBM-Z}>88i{CBM-N}{CBM-X}n8s8{CBM-S}>8{CBM-X}n8r8{$60} . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}' {CBM-Z}8{SHIFT-POUND}
>8lg%{CBM-Z}8i>8{CBM-S}>8{CBM-X}9 R~ 2 .{$60}{SHIFT-POUND}
a{SHIFT-POUND}Bb{$60} w%
{CBM-E}aM8{$f0}
 J {CBM-E}aP{$f9} J lE%{CBM-I}
{CBM-Z}{CBM-R}8P J l%HHH{CBM-E}aI~{$f0}
H{$e8}l%{SHIFT-POUND},
{$e8}H{CBM-E}a
{$e8}{SHIFT-POUND},
{$e8}{SHIFT-POUND}w
{$e8}{$60}{CBM-Z}s8r8 + p2{CBM-Z}>8{$f0} m+{CBM-S}8{CBM-X}n8r8{$60}{CBM-Z};8
{CBM-N}{CBM-X}${CBM-Z};8
{CBM-N}{CBM-X}E?{CBM-H}{$7f}8{$e8}{CBM-X}E?{CBM-J}8{SHIFT-POUND}{CBM-H}{CBM-O}{$ee}{$7c}8 '$8{CBM-Z}{$e9}
{CBM-Z}{$7c}8a8 J {CBM-Z}8{$f0}l1"{CBM-Z}{$7d}8a J {CBM-Z}{$7e}8a J {CBM-I}
{CBM-X}
a J {$e8}NP{$f2}{SHIFT-POUND}~a J {CBM-S}{$7c}8{CBM-Z}{$7b}8
R{SHIFT-POUND}Y8{CBM-I}
{CBM-X}W?M{$7b}8PlE"{CBM-I}{CBM-X}W?a J {$e8}NY8P{$f2}{SHIFT-POUND}
a J {CBM-Z}8{$f0}l"{$60}{CBM-Z}{$7c}8
{CBM-N}8{CBM-G}{CBM-H}{$ed}{$7f}8
N{$e8}{CBM-G}{CBM-J}{$ed}8
N8{CBM-Z}8{$ed}{$7d}88{CBM-Z}8{$ed}{$7e}88{CBM-Z}8{$f0}{$60}{CBM-S}{$7c}8{CBM-Z}{CBM-*})
T
{CBM-N}{CBM-Z}{CBM-*}T{$e8}{CBM-Z}{CBM-*}TJ{CBM-Z}{$7f}8{CBM-*}{CBM-Z}8{CBM-*}{CBM-X}
a8 6{CBM-D}z8{CBM-E}{$f0} R~Hl{$ee}{$60}{SHIFT-POUND} R~{SHIFT-POUND} R~{CBM-S}A8{CBM-D}B8 6{CBM-I}
{CBM-X}9{$f0} R~{$e8}ll+{CBM-S}A8{CBM-D}B8 6{CBM-I}{SHIFT-POUND}  R~J{$fa}{$60} + + .{CBM-S}28{CBM-X}{$7f}?{CBM-POUND}{CBM-I}{SHIFT-POUND}   d, {CBM-I}
{CBM-Z}>8G8K8{$f0} {$f0}- S +{$60}{CBM-S}>8{CBM-X}
j{$f0}8{$60}{$ee}H8{$fe}
j{SHIFT-POUND}
m8{CBM-Z}28{$f0}{SHIFT-POUND}
{$fa}{$fb}{SHIFT-POUND}p58l{SHIFT-POUND}
  3.{SHIFT-POUND}(58{CBM-Z}A8I8 {CBM-O}.NI8P{$f8}{CBM-Z}B8I58 {CBM-O}.{CBM-Z}28{$f0}{CBM-G}{$fa}{CBM-@}{$fb} 3. f8 {$f4}. . /{$60}{CBM-Z}8P{$fa}{CBM-Z}{SHIFT-@}8P{$f5}  {$e8}{$e8}{$e8}{$60}8{CBM-Z}28{$f0}{CBM-Z}B8i(B8{$ee}>8 {$fa}{$60}l{CBM-F}{CBM-Z}>8I{$f0}{$f6}{CBM-Z}A8IP
{CBM-Z}28{$f0}{CBM-Z}B8Pll {CBM-Z}28{$f0}{CBM-Z}B8P{SHIFT-POUND}(l={SHIFT-POUND}
B8lc{SHIFT-POUND}
B8NA8 {$fa}N>8l{CBM-F} {$ee}{$60}8 ={CBM-Z}28{$f0}N>8N>8N>8 +{SHIFT-POUND}a8 b8{CBM-Z}>8_8 {$fb}{SHIFT-POUND}
{$60}8{CBM-Z}28{$f0}{CBM-Z}B8i(B8{CBM-Z}28{$f0}{$ee}>8 {$fa}{$ee}>8l{CBM-F}{CBM-S}F8{CBM-X}p8IP2{CBM-Z}8]8{SHIFT-POUND}
8{SHIFT-POUND}B8{CBM-Z}{CBM-*}h{CBM-Z}{CBM-*}h{CBM-Z}{CBM-*}h - Y(H{CBM-*}H{CBM-*}H{CBM-*}{$ee}{CBM-D}8{$60}  {CBM-R}2{SHIFT-POUND}{SHIFT-POUND}$
{SHIFT-POUND}0
 $ 3{$60}{CBM-Z};8{$f0}l{SHIFT-POUND}{CBM-U}{$fa}{$fc}{SHIFT-POUND}{$fb}{SHIFT-POUND}Y{$fd} {CBM-I}
 {CBM-E}{$fa}h{CBM-E}{$fc}h {CBM-H}H{$fc}H{$fa} H{SHIFT-*}(P{$e9} JP{$e1}{CBM-I}
 6l~{$e9}{CBM-Z};8{$f0}l{SHIFT-POUND}(58{SHIFT-POUND}{SHIFT-*}{$fa}{$fc}{SHIFT-POUND}{$fb}{SHIFT-POUND}{SHIFT-+}{$fd} {CBM-H}{CBM-I}
 {CBM-E}{$fa}h{CBM-E}{$fc}h H{$fc}H{$fa} {CBM-H}H{SHIFT-*}(P{$e9} {CBM-H}JP{$e1}{CBM-I}
 6l~{$e9}{CBM-I}
 6l{CBM--}C{CBM-I}
 6 =J{CBM-I}lK{CBM-G}{$fa}I({$fa}{$fc}{CBM-G}{$fb}I
{$fb}IT{$fd}{$60}8{CBM-G}{$fa}{$e9}({$fa}{$fc}{CBM-G}{$fb}{$e9}
{$fb}IT{$fd}{$60}{SHIFT-POUND}
<878{CBM-D}78{CBM-E}{CBM-N}H{CBM-E}H78{CBM-POUND} 6 {$f0}{$ee}<8{CBM-Z}<8I
{$e2}{$60}?{CBM-Z}{CBM-O}8a{CBM-Z}{SHIFT-@}8b{$60}
{CBM-I} I~{CBM-Z};8{$f0}
{CBM-I}{SHIFT-POUND}{CBM-H} T~l{$f8}'{CBM-E}{CBM-H} R~ {CBM-W}$N8{$f0}l{$e7}'N8{CBM-Z}8I~PW{$60} +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND},l +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}+l + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}& {CBM-S}8{CBM-X}9 R~ 2 .{$60}  ({CBM-Z}{CBM-*}){$fc}{CBM-*}{CBM-Z}{CBM-*}){CBM-*}{CBM-*}{CBM-Z}{CBM-*}{CBM-*} ({$60}  ({CBM-Z}{CBM-*}{CBM-*}{CBM-Z}{CBM-*}{CBM-*} ({$60}{CBM-Z}28P{$60} {$f9} {CBM-W}W {$e4}{$60}{CBM-Z}28P{$60} {$f9} DW {$e4}{$60}{SHIFT-POUND} R~{CBM-Z};8
{CBM-N}{CBM-X}I?({$e8}{CBM-P}8{CBM-X}I?){CBM-A}8{SHIFT-POUND}
{CBM-E}8{CBM-Z}S?8{CBM-X}A?E?{$e8}{CBM-X}S?8{CBM-X}A?E?{$60}{CBM-Z}8
{CBM-N}{CBM-X}
^{CBM-H}8{CBM-X}
{$60}{$fd}
^8{$e8}{CBM-X}
{$60}{$fd}
^8{CBM-X}
^{CBM-J}{$60} {$ee}${CBM-S}>88{CBM-X}p8IP{$60} 3({SHIFT-POUND}K8O8 z{CBM-Z}8{$ee}8le& % {CBM-H}% q&{CBM-Z}>88P"{$60}  + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}*  M6 {$60} . '{CBM-Z}80 . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}- {CBM-S}8{CBM-X}9 R~{SHIFT-POUND}
8{$7c}88 w% R%{CBM-Z}80l{CBM-L}& "( ]!{CBM-Z}t8{$f0}lY'{CBM-Z}{$7c}88
{CBM-N}{CBM-Z}{$7f}8
^{CBM-G}{CBM-H}
{$60}{$e8}
N{CBM-*}{$e8}{CBM-X}
N{CBM-*}{CBM-Z};8{$f0}{CBM-Z}U@U z({CBM-Z};8{$f0}{CBM-Z}U){CBM-B}U{$ee}{CBM-D}8l]! + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}) l2{SHIFT-POUND}K88G8 '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}p8I{$f0}{$60}{CBM-X}n8r8 r#lv# z{$60}{CBM-Z}t8{$f0}{$60}{CBM-I}
8 ${$60}M8{CBM-X}
RIp{$f0}l#{CBM-X}
T{CBM-*}
{CBM-N}8{CBM-X}
P{$e9}{CBM-*}{$e8}{CBM-X}
P{$e9}
{CBM-*}l{CBM-POUND}#{CBM-X}
T{CBM-*}
{CBM-N}{CBM-X}
P{CBM-*}{$e8}{CBM-X}
P{CBM-*}J{CBM-X}T{CBM-*}{$e8}{CBM-X}T{CBM-*}J{CBM-X}
N{CBM-*}{$e8}{CBM-X}
N{CBM-*}{CBM-Z};8{$f0}{CBM-S}M8{CBM-X}
RIp{$f0}{CBM-Z}U@U {SHIFT-POUND}/{CBM-I}0 : 7 3 3 S2{CBM-Z}t8{$f0}{$60}{CBM-Z}IP{SHIFT-POUND}
V8{$60}{$ee}V8{$60}{SHIFT-POUND}/{SHIFT-POUND}l{$ef}{SHIFT-POUND}N8{CBM-Z}M8 g{SHIFT-POUND}
N8{CBM-Z}P8{$f0}{CBM-S}Q8l9 {CBM-I}
{CBM-E}I~{$f0}
H{$e8}l9 {$60}{SHIFT-POUND}Y8{SHIFT-POUND}Z8{CBM-S}Y8
 6{CBM-S}48J .{$ee}Y8NZ8P{$e9}{$60}{CBM-G}aIa{CBM-G}bI
b{$60} '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}p8I{$f0}{$60} .{CBM-X}n8 Sr8 + {$f0}- +{SHIFT-POUND}a8{CBM-S}28{CBM-X}?b8{SHIFT-POUND}#98{CBM-S}a8{CBM-D}b8{CBM-Z}98 {$ee}98{$ee}a8{CBM-Z}98I&P{$e7}{CBM-I}
k8{$e8}j8{CBM-I}f8{CBM-Z}4858{SHIFT-POUND}
w8{SHIFT-POUND} {$fe}{SHIFT-POUND}m~ Y2  3{CBM-Z}t8{$f0} S2{$60} S2{CBM-I}
]8{$e8}\8 <{CBM-E}{$fe}P{$60}{SHIFT-POUND}
8{SHIFT-POUND}m88{CBM-Z}x8{$e9} x8{CBM-Z}y8{$e9}
y8 r5
{CBM-Z}\8Hz8 {$60}5
{CBM-E}{$fe}H{CBM-E}{$fe}Hz8{CBM-E}{$fe}HI"P{$f9}{CBM-E}{$fe}I"{$f0}[8{CBM-D}z8Hz8{CBM-D}[8HlEH[8{CBM-D}z8{SHIFT-POUND}~{$ee}z8{CBM-D}[8{CBM-E}{$fe}I PHl{CBM-I}{CBM-E}{$fe}[8{CBM-D}z8{$ee}z8{$ee}[8{CBM-D}[8JP{$ea}{CBM-D}z8{SHIFT-POUND}
{$ee}z8 r5 {$60}58{CBM-Z}x8{$e5}{$fe}@8{CBM-Z}y8{$e5}~
@8{$f0}{$ee}\8{$ee}]8la{$ee}]8{$60}{SHIFT-POUND}
a8
{CBM-E}M<8{$f0}Hl{$f2}H{CBM-E}{$f0} R~Hl{$fe}{$60}{$e6}{CBM-M}P{$e6}{CBM-POUND}{$60}=8 6{SHIFT-POUND}{CBM-Q}{CBM-M}{SHIFT-POUND}9{CBM-POUND}l% 6
{CBM-E}{CBM-M}M=8{$f0}

{CBM-E}{CBM-M}P{$f9}
l%H{CBM-E}{CBM-M}{$f0} R~l;{$60} '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}n8r8 . 4{CBM-Z}t8{$f0}{$60}{CBM-Z}O8P{CBM-S}F8{CBM-X}p8IP{CBM-Z}{SHIFT-@}8P 2{CBM-Z}O8{$f0} S + {$f0}- + {$f3}4 {CBM-Z}t8P!{CBM-Z}]8{$f0} {$e3}{SHIFT-POUND}A8{CBM-I}
B8{$e8}>8{CBM-Z}X8P {$fa} {CBM-F}{$60}{CBM-Z}X8{$f0}{$60} {$ea}~ {$e1}~P{CBM-Z}{SHIFT-@}8{$f0}{$ee}t8{$60}HH{$ee}t8{$60} {$e4}~=8{$f0}{SHIFT-+}I P7{CBM-Z}G8P{CBM-Z}O8P{CBM-*}x8{CBM-Z}{CBM-*}y8 [) ) Z{SHIFT-POUND} R~{$60}I{$f0}IP{$ed} {$7f}){SHIFT-POUND}
{CBM-E}8l{CBM--}({CBM-Z}{CBM-E}8P{SHIFT--}l{CBM--}({SHIFT-POUND}J8{SHIFT-POUND}
I8{CBM-D}I8{CBM-S}J8 6
 ){$f0}5I
{$f0}+ R~HL48P{$ee}l3)H@8{CBM-G}(M@8({CBM-G})I
){$ee}J8{CBM-Z}J8I{$f0}l) R~l2){$ee}{CBM-E}8{$60}{CBM-I}I8{SHIFT-POUND}
J8{CBM-S}I8{CBM-D}J8 6{CBM-S}48 .{$ee}I8{CBM-Z}I8IP{$e7}{$60}{CBM-I}{CBM-Z}{CBM-P}8({CBM-Z}{CBM-A}8){$60}{CBM-Z};8P{CBM-E}({$60}{SHIFT-POUND}({CBM-I} T~{$60} N2 '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}p8I{$f0}{$60}i{CBM-N}{CBM-X}n8r8{SHIFT-POUND}~8 ' + p2{CBM-Z}>8{$f0}{CBM-Z}8
^{CBM-G}{CBM-J}
{$60} {CBM-W}${CBM-Z};8
{CBM-N}{CBM-G}{CBM-H}E?{$e8}{CBM-G}{CBM-J}E?({CBM-A}{CBM-Z}H8{$f0}l{CBM-Q}&{CBM-Z}{$7c}8{$f0}Ul'{CBM-Z}80{CBM-Z}s8r8l.'{CBM-Z}8{$f0}{SHIFT-POUND}
8 % {CBM-H}% .l.' %{SHIFT-POUND}8{CBM-Z}8 ( {$60}% {$f1}% $  ' 3 N2{CBM-Z}t8{$f0}lY'{$ee}8N{$7c}8PV{CBM-Z}8{$f0}{CBM-Z}80{CBM-S}8{CBM-X}n8r8lV' 3(l& {CBM-E}'{SHIFT-POUND}
8{$60}{CBM-Z}{$7c}8{CBM-W}8{CBM-Z}8{CBM-H}8{CBM-Z}8{CBM-J}8{CBM-Z}8{CBM-L}8{CBM-Z}E?{CBM-Y}8{CBM-Z}F?{CBM-U}8{CBM-G}a{CBM-O}8{CBM-G}b{SHIFT-@}8{$60}{CBM-Z}{CBM-W}8{$7c}8{CBM-Z}{CBM-H}88{CBM-Z}{CBM-J}88{CBM-Z}{CBM-L}88{CBM-Z}{CBM-Y}8E?{CBM-Z}{CBM-U}8F
Y({CBM-Z}{CBM-*}{CBM-H}{CBM-Z}{CBM-*}{CBM-J}{SHIFT-POUND}
{CBM-POUND}{CBM-H}{CBM-Z};8{$f0}{CBM-Z}U){CBM-B}U{CBM-S}M8{CBM-X}
RIsP {CBM-A}({$ee}{CBM-D}8{$60}{CBM-X}
jP{$e8}P{$f8}8{$60}{$60} L~ {CBM-R}2 V$ 3 L~{$60}{CBM-I} F~
{CBM-Z}8Po{CBM-Z}{$7b}8IsP {CBM-Z};8
{CBM-N}{$e8}{CBM-X}I?hJ{CBM-X}I?h{CBM-Z}{$7c}8
{CBM-N}H
P{$e8}H
Pl${CBM-Z}{$7c}8
{CBM-POUND} O~
PH8
 {CBM-B}$ {CBM-W}${CBM-D}8 O~
P
 {CBM-B}$ {CBM-W}$ {SHIFT-@}$ {CBM-Y}~P {CBM-W}$l$ {CBM-W}${CBM-Z};8{$f0}
{CBM-I}{SHIFT-POUND}
 W~l{CBM-+}${SHIFT-POUND}
{CBM-H} {CBM-W}$ L~ 3 N2{$60}{$e6}{CBM-H}P{$e6}{CBM-J}{$60}
 O~88{CBM-Z};8{$f0}{CBM-I}{CBM-Z}88 W~{$60}{CBM-Z}88{CBM-H}{$60}{CBM-Z}{CBM-I}{SHIFT-POUND}R8{CBM-Z}28
{CBM-N}{CBM-X}u?h{$e8}{CBM-X}u?{CBM-POUND}H "/ h {CBM-Z}>8{$f0}I{$f0}l)l!l&#{CBM-I}O8K8J8 '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}p8IP{$60}{CBM-X}n8r8 z + . +{CBM-D}28{CBM-O}?{CBM-POUND}{CBM-I}{SHIFT-POUND}( {SHIFT-POUND}l8 Q2{CBM-Z}>8P{$60}{CBM-I}
{CBM-X}
jP{$e8}P{$f8}{SHIFT-POUND}
8{$60} N8M8  h {CBM-E}{$7d}8H{CBM-E}{$7e}8H{CBM-POUND}8{CBM-Z}8{$ed}{$7d}8Y8{CBM-Z}8{$ed}{$7e}8
Y8{$f0}{CBM-A}
{CBM-Z}8{$f0}8{$60}l#h{CBM-S}M8{SHIFT-POUND}

jNH8H{CBM-E}{$7b}8H{CBM-N}{$e8}{$e8}{$e8}{$e8}{CBM-N}{SHIFT-POUND},
{$e8}{CBM-Z}{$7b}8
{$e8}{SHIFT-POUND},
{$e8}{SHIFT-POUND}r
 {SHIFT-POUND}
_8 + +{$ee}a8 b8{CBM-S}a8{$ee}_8 6{CBM-Z}_8 g{CBM-Z}_8M]8{CBM-A}4{CBM-Z}28{$f0}#{CBM-Z}{$60}8P{CBM-Z}_8I{CBM-A}#{CBM-Z}b8I/{CBM-Z}{$60}8Pl{$f3} /b8l{$fb}{CBM-Z}{$60}8P{CBM-Z}_8IP{CBM-Z}{$60}{CBM-Z}8{CBM-Z}8
{CBM-E}M{$f0} HHH{CBM-E}{$f0}Hl{$60}H=8{CBM-G}M=8{CBM-G}I
lt{CBM-Z}N8{$f0}HHH{$60}H{CBM-E}u8H{CBM-E}v8Hz8 2{CBM-S}{CBM-X}
j{$f0} +{CBM-Z}b8Ib8{CBM-POUND}{CBM-S}a8 6{CBM-D}z8{CBM-I}
{CBM-E}I~{$f0} R~H{$e8}l{CBM-O} {CBM-A}{SHIFT-POUND}  R~{$e8}lG +Hz8{CBM-Z}b8Ib8{CBM-POUND}{CBM-S}lD{CBM-Z}>8M8 I{CBM-A}{CBM-Z}O8P{CBM-I}
G8{$e8}L8{CBM-Z}P8{$f0} {$f4}. {CBM-M}7 /l{CBM-F}{CBM-Z}K8{$f0}d{CBM-Z}H8{$f0}?{CBM-Z}=8IP#{CBM-S}>8{CBM-X}
j{$f0}0{SHIFT-POUND}

j{SHIFT-POUND}
L8NH8 Y{CBM-Z}O8P{$ee}G8l{CBM-F}{CBM-Z}=8IP{CBM-Z}L8{$f0}lS{CBM-Z}O8{$f0}{$60}{CBM-Z}=8I{$f0}
IPll{CBM-F}{CBM-Z}>8M]8{CBM-A}{$f5}{CBM-Z}A8I{CBM-Z}28{$f0}{CBM-Z}B8{$f0} KlR {CBM-Z}A8I{CBM-A}{$ee}>8{CBM-Z}28{$f0}{CBM-Z}B8{$f0}{$ee}A8{CBM-Z}28{$f0}
{CBM-Z}B8P{SHIFT-POUND}(l{CBM-B}{SHIFT-POUND}
B8 {$fa}l{CBM-F}l{CBM-F}{$ee}{$60}8  {$f9} +{SHIFT-POUND}a8 b8{CBM-Z}>8_8 {$fb}{SHIFT-POUND}
 m+lZ) %{SHIFT-POUND}X8 z q&{SHIFT-POUND}
X8{CBM-Z}>8P{$60}{SHIFT-POUND}{CBM-R}8 + . ({SHIFT-POUND}8 {$60}%{CBM-S}8{CBM-X}
T{CBM-*}
{CBM-N}{CBM-X}
N8{CBM-*}{CBM-X}T{CBM-*}{$e8}{CBM-X}
N8{CBM-*}{CBM-X}T{CBM-*}{CBM-Z};8
{CBM-N}{CBM-X}E?{CBM-H}{CBM-*}{$e8}{CBM-X}E?{CBM-J}{CBM-*}{CBM-Z};8{$f0}{CBM-Z}U@U Y({CBM-Z};8{$f0}{CBM-Z}U){CBM-B}U $ {CBM-R}2  ' 3 N2{CBM-Z}t8{$f0}l*{$ee}8N{$7c}8P {CBM-E}'{SHIFT-POUND}
8{CBM-R}8 N2{$60}
E8{CBM-Z}W8{$f0}{SHIFT-POUND}
W8{CBM-Z}c8l{CBM-E}* {$e1}~P8{$60} {$e4}~{CBM-I}{SHIFT--}?{$f0}{CBM-*}J{$f8}{CBM-D}E8IP.{SHIFT-*}
{$f0}NE8{CBM-Z}a8M{SHIFT-POUND}0{SHIFT-POUND}: 3 3 S2l6{CBM-I}58f8{CBM-I}k8l8Jj8{CBM-Z}28
{CBM-N}{CBM-X}i?h{$e8}{CBM-X}i?{CBM-POUND}H "/{$60} {$f9}7{CBM-A}4{CBM-I}P8K8O8 z{CBM-Z}t8P! + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}  M6{CBM-A}{CBM-Z}>8P{$60}{CBM-I}
{CBM-X}
jP{$e8} ~P{$f6}{$60} 7{SHIFT-POUND}

jM8 {$f0} 7JP{$fa}
{CBM-E}{SHIFT-POUND}{$f0}
Hlr7{SHIFT-POUND}=
HQ8  {$e8}{$e8}{$e8}{SHIFT-POUND}r{CBM-I}0 : 7 3 3 S2l.7{$60}{CBM-Z}x8{SHIFT-POUND}{CBM-Z}y8{CBM-N}{$60}{CBM-G}{SHIFT-POUND}I{SHIFT-POUND}{CBM-G}{CBM-N}I
{CBM-N}{$60} + + .{CBM-S}28{CBM-X} 6{CBM-Z}t8 R~ O~I
{$f0} R~lE3{SHIFT-POUND}t8 L~{CBM-Z}U8P 2 4 .{$60} O~I
{$f0}l{$e9}3{SHIFT-POUND}
t8 L~{$60}{SHIFT-POUND} C~{SHIFT-POUND} C~{$60}{$60}{CBM-S}F8{CBM-X}p8IPlO5 {CBM-R}2{SHIFT-POUND}{CBM-S}r8
 {SHIFT-@}~{CBM-Z};8{$f0}{SHIFT-POUND}{CBM-N} H~{SHIFT-POUND}{CBM-I};  {CBM-X}~ {SHIFT-*}~ 3{CBM-Z}t8{$f0} N2{$60}{CBM-I} F~{CBM-I} O~J{$fa}
 O~I"P{$f9} O~{$f0}
Hl[4
 O~ O~ O~u8 O~v8 3{CBM-Z}t8{$f0} N2{$60} N2 L~{CBM-I}{CBM-Z}28{$f0} l4 {SHIFT-POUND} {CBM-S}F8{CBM-X}9 R~{CBM-I}{CBM-Z}28{$f0} !l{SHIFT-@}4
+{$f0}lN0{CBM-Z}l8I{$f0}Nl8 (2lN0 :2{CBM-Z}l8MT8{$f0}{$ee}l8 2lN0 + .{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}  Q2{CBM-Z}>8P{$60} +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}!  + .{CBM-S}28{CBM-X}?{CBM-POUND}a8{CBM-I}{SHIFT-POUND}  +{CBM-Z}a8Ia8{CBM-I}{CBM-D}a8 6 *{$60}h{CBM-I} E2H{CBM-POUND}{SHIFT-POUND},
H{CBM-Z}S8
H{SHIFT-POUND}

H{CBM-Z}u8
H{CBM-Z}v8
H{SHIFT-POUND},
H{SHIFT-POUND}c
HHHH{SHIFT-POUND}/{CBM-I}0 : 7 3 3 S2{CBM-Z}t8{$f0}{$60}8{CBM-Z}{$e9} 3 3 S2{CBM-Z}t8{$f0}{$60} +{CBM-S}28{CBM-X}?{CBM-POUND}H "/{CBM-Z}>8{CBM-D}b8p8{$ee}b8{CBM-Z}28I{CBM-A}{$ee}28{$ee}28l-{CBM-Z}3828{$60} .{CBM-I}{CBM-Z}28{$f0} l. {SHIFT-POUND}l{CBM-I}
 6{CBM-S}48J{SHIFT-POUND}  R~JP{$f8}{$60} {$f4}. . / {CBM-O}. 3. {$f4}. . /{$60}{CBM-N}{CBM-Z}48I({$f0}{CBM-I}{$fa} WJ{$fb} W{$60}{$fa}{$fc}{$fb}IT{$fd}{$60}{CBM-S}48 ({$f0}{CBM-I} d8J e8{$60}{CBM-S}48{$f0}{CBM-I}{CBM-Z}d8 WJ{CBM-Z}e8 W{$60}{CBM-D}f8{CBM-S}48 ({$f0} y.{CBM-I} h P.Hi{CBM-I} WP{$e9}{$60}a8
{CBM-E}{$fa}i{$fa}HNa8P{$f4}{$60}{CBM-Z}m8P{CBM-G}{$fa}M58{$fa}
E8{CBM-POUND}{CBM-I}@8 {$f0}~{SHIFT-POUND}  R~{CBM-D}@8{CBM-I} {$f0}~{CBM-D}E8l*I
{$f0}L{CBM-+}?{$f0}
H R~I
P{SHIFT-POUND}

{$60}{SHIFT-POUND}lR~{SHIFT-POUND}lR~{SHIFT-POUND}lR~{SHIFT-POUND}lR~ + +{CBM-I}{SHIFT-POUND}  R~J{$fa}{$60} '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}n8r8{CBM-X}p8IPl, . S + +{CBM-I}{CBM-Z}28P a8lM+ a8{SHIFT-POUND}  2 .{$ee}U8 4 + +{CBM-I}{CBM-D}a8{SHIFT-POUND}  +{CBM-I}{CBM-Z}a8Ia8{CBM-POUND} 6{CBM-Z}t8{$f0}l{$ef}+
{CBM-O}
{$f0} R~Hl{CBM-N}+{SHIFT-POUND},
 R~H{CBM-I}{CBM-X}
 R~
H{$e8}ve cursor then press space to select
press f5 to un-select / stop to cancel
device a:
device b:
 08  09  10  11
 1541  1571  1581  ram
move cursor then press space to select
using which drive:  a  b
drive:

free
size
file nam?{CBM-POUND}Ia8{CBM-I}{SHIFT-POUND}  "+{CBM-I}{CBM-D}a8 6 * 7{CBM-S}>8 {$f0} 7JP{$fa}
{CBM-O}
{SHIFT-POUND}{$f0}Hl{$e4}7 + . {$f0}-{$60} '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}>8{CBM-X}p8I{$f0}{CBM-X}n8r8{$60}8{$60} +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND} {CBM-S}F8{CBM-X}9 R~{$60}
































































































































 6
{CBM-O}
{$f0} R~Hl{CBM-B}4{CBM-I}{CBM-Z}28{$f0} 2lY4  6 2{CBM-I}{CBM-Z}28{$f0} 7l{$ed}4 #{SHIFT-POUND}
 {$60}{SHIFT-POUND} R~{CBM-I}

 6{CBM-S}48{SHIFT-POUND}  R~JP{$fa}{SHIFT-POUND}_8{SHIFT-POUND}
a8{CBM-I}
{SHIFT-POUND}Ma8{CBM-POUND}{SHIFT-POUND} {CBM-I}
{SHIFT-POUND}Ma8{CBM-POUND}{SHIFT-POUND} {CBM-I}
{SHIFT-POUND}Ma8{CBM-POUND}{SHIFT-POUND}
 {CBM-Z}28{$f0}
N_8{$f0}{SHIFT-POUND}(a8l5{$60}{$60}{CBM-G}{$fe}I {$fe}{CBM-G}~I
~{$60}{CBM-G}Mz8{CBM-G}I
{$60}{CBM-I}{CBM-X}9
J{$f7}{CBM-Z}8u8{CBM-Z}8v8 +l4{SHIFT-POUND} R~{SHIFT-POUND} R~ +{CBM-I}

 6{SHIFT-POUND}  6 +{CBM-I}78{CBM-S}78
 6{CBM-I}
{SHIFT-POUND}{CBM-POUND}{CBM-I}{SHIFT-POUND}"  + .{CBM-S}28{CBM-X}?{CBM-I}{CBM-POUND}a8{SHIFT-POUND}  +{CBM-I}{CBM-Z}a8Ia8{CBM-POUND} 6 *{$ee}V8l,{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-S}a8{CBM-Z}=8  2{SHIFT-POUND}  R~{$60}{CBM-Z}u8I(u8{CBM-Z}v8I
v8{$60}8{CBM-Z}u8{$e9}(u8{CBM-Z}v8{$e9}
v8{$60}{CBM-Z}S8I({CBM-A}{SHIFT-POUND}(lh2{SHIFT-POUND}p8{$ed}S8T8{$60} .{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}  M6{$60}
 6{CBM-S}48Jl.{SHIFT-POUND}f858{CBM-I}k8{CBM-Z}28
{CBM-N}{CBM-X}q?h{$e8}{CBM-X}q?{CBM-POUND}Hl"/ {$e4}~I P{$f9}{$60} {$f9}{CBM-S}u8{CBM-Z}v8{CBM-D};8{$f0} 2l{$e4} M{CBM-X}l{$e4}{SHIFT-POUND}
 {CBM-X}~{CBM-Z};8{$f0}{CBM-I}{$fc}{CBM-G}{$fb}I
{$fb}l{$e6}.{SHIFT-POUND}
m88{CBM-G}{$fa}{$ed}58{$fa}{$fc}{CBM-G}{$fb}{$e9}
{$fb}{CBM-G}{$fb}IT{$fd}{CBM-G}{$fa}{CBM-@}{$fb}{CBM-+}{$fd}{$60}{CBM-S}48 ({$f0}{CBM-I} g8J h8{$60}{CBM-S}48 ({$f0}{$f8}{CBM-I}{CBM-Z}g8 WJ{CBM-Z}h8 W{$60}{CBM-I}
>8 3. {$f4}. . / {$60} + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND} {CBM-I}
j8{$e8}k8l8{SHIFT-POUND}f8{SHIFT-POUND}58{CBM-Z}28
{CBM-POUND}{CBM-O}m?hH{CBM-O}m?{CBM-POUND}H "/{CBM-Z}>8{$f0}lX  . '3{CBM-A}{SHIFT-POUND}
>8{CBM-S}F8{CBM-X}p8IP{$60}I{$f0} + + .{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND} l2{CBM-X}n8r8 .{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-X}
 R~
 {$e1}~P{$60} Z{$f0}{$f5}{CBM-A}{$f8}I
P{$ee}l,c8{$ee}W8 +{CBM-I}{CBM-D}a8 6 +{CBM-D}a8{CBM-I} 6 *{CBM-A}J K, d,{CBM-Z}>8P{$60}{CBM-D}HHH{SHIFT-POUND}n{SHIFT-POUND}0{SHIFT-POUND}: 3 {CBM-R}2 3 S2{$60}{CBM-I}
j8{$e8}k8l8{SHIFT-POUND}f858{CBM-Z}28
{CBM-N}{CBM-X}e?h{$e8}{CBM-X}e?{CBM-POUND}H "/{$60} + . +{CBM-S}28{CBM-X}{$7f}?{CBM-POUND}{CBM-I}{SHIFT-POUND} {$60}{CBM-S}F8>8{$ee}X8{$ee}{CBM-Z}8 z K, d,{CBM-Z}>8P{$60} + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}6 {SHIFT-POUND}f8k8{SHIFT-POUND}58{SHIFT-POUND}l8{CBM-Z}28e

type
insert a blank disk and press space
enter disk name:
okay to format disk  n  y
open sub-directory?  n  y
disk cleanup working on drive:
okay to delete file-list?  n  y
enter new name:
okay to rename file-list?  n  y
create directory














--->
disk setup
rename a file
scratch a file
format a disk
cleanup a disk
copy file
copy disk
create dir/ram
disklog
directory


{$ef}D{$ed}N



{SHIFT-*}{SHIFT-*}>
bank15:sys4867
abram directory
    rn
mo
  R~{$e8}{$ec}48P{$f5}{$ee}78{CBM-Z}78IP{$e1} +{SHIFT-POUND}
 R~{CBM-I}
 6{SHIFT-POUND}{CBM-U} 6{SHIFT-POUND} R~{CBM-I}
 6{SHIFT-POUND}{CBM-O} 6 +{CBM-I}
 6{CBM-I}
{SHIFT-POUND}  R~{$e8}{$ec}48P{$f5}{$60} {$f0}~{$60} R~HL48P{$f7}{$60} + . '3{CBM-S}>8{CBM-X}p8IP{$60}{CBM-X}n8r8 8{SHIFT-POUND}{SHIFT-POUND}v{SHIFT-POUND}0 3 3{$60} '3{CBM-A}{CBM-I}
>8{CBM-S}>8{CBM-X}p8I{$f0}{CBM-X}n8r8{SHIFT-POUND}K8O8 z + + . {$7d}6{$60}{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}  M6{CBM-Z}>8P{$60}{CBM-I}
{CBM-X}
jI{$f0}{$e8}P{$f6}{$60}{SHIFT-POUND}

jM8  {$e8}{$e8}{$e8}{SHIFT-POUND}s H~{SHIFT-POUND}{CBM-S}r8{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{$60}{SHIFT-POUND} C~{SHIFT-POUND} C~{$60}{SHIFT-POUND}
 ~{SHIFT-POUND}
{CBM-S}r8{CBM-D}w8 {SHIFT-@}~{SHIFT-POUND}
{CBM-N}{SHIFT-POUND}{CBM-POUND}{CBM-Z} {CBM-X}~{CBM-Z};8{$f0}{SHIFT-POUND}
{CBM-N} H~{SHIFT-POUND}
{CBM-+}{$fe}{CBM-@}~ U~x8y8{$60}{CBM-Z}{CBM-I}  {CBM-X}~{SHIFT-POUND}{CBM-S}r8{CBM-POUND} {SHIFT-@}~ {SHIFT-*}~{$60}  .{SHIFT-POUND}
F8{CBM-Z}o8P {$60}Mn8{$f0}{$f6}{CBM-I}{CBM-D}28P lo3 {SHIFT-POUND} {CBM-I}
j8{$e8}k8l8{SHIFT-POUND}f858{CBM-Z}28
{CBM-N}{CBM-X}a?h{$e8}{CBM-X}a?{CBM-POUND}H "/{CBM-Z}>8F8 8{$60}{SHIFT-POUND}
t8 L~{CBM-I} F~ O~I2p{CBM-S}U8
{$f0}lR3t8{SHIFT-POUND} R~ .{SHIFT-POUND} R~{CBM-S}28{CBM-X}{$7d}?{CBM-POUND}{CBM-I}{CBM-I}{SHIFT-POUND}  2 p2{CBM-Z}>8Pl{CBM--}/ m+ + . S + +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND} {SHIFT-POUND}l8u8{SHIFT-POUND}
v8{SHIFT-POUND}mR8 +{SHIFT-POUND}=8{SHIFT-POUND}a8 {$fd}1 Z{$60}I {$f0}9I+P{CBM-Z}u8MR8{CBM-A}{SHIFT--}I%P{SHIFT-POUND}(u8{$ee}u8l0I-PJ{CBM-Z}u8Ml8{$f0}B{CBM-Z}u8I)P{SHIFT-POUND}&u8Nu8l0{CBM-Z}u8S8{SHIFT-POUND}l8{SHIFT-POUND}Xu8{SHIFT-POUND}a8{SHIFT-POUND}=8 {$fd}1{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}
{SHIFT-POUND}  {CBM-Z}u8h{CBM-Z}v8h{CBM-Z}l8MS8u8{SHIFT-POUND}
v8Nu8 2{SHIFT-POUND}  R~Hv8Hu8 Z{$60}I {$f0}/I-{$f0}I
{CBM-N}{CBM-X}]?h{$e8}{CBM-X}]?{CBM-POUND}H "/{CBM-Z}>88{SHIFT-POUND}
8{CBM-Z}8
{CBM-N}{CBM-X}M?8{$e8}{CBM-X}M?8{SHIFT-POUND}
{$7c}8{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}
a{SHIFT-POUND}Bb{$60}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}B{CBM-*}{SHIFT-POUND}
{CBM-*}{CBM-*}{CBM-*}{SHIFT-POUND}
{CBM-*}{SHIFT-POUND}{CBM-*}{$60} {$f0}- S{SHIFT-POUND}{CBM-I}  {SHIFT-POUND}{CBM-I}{CBM-POUND} {SHIFT-POUND}
a8b8{CBM-Z}2838{SHIFT-POUND}Ma8{CBM-N} {SHIFT-POUND} {CBM-Z}a8I{CBM-N} {SHIFT-POUND} {CBM-Z}a8I{$f0}{SHIFT-POUND}a8lv- 58f8k8l8{SHIFT-POUND}
j8{CBM-Z}28
{CBM-N}{CBM-X}1?h{$e8}{CBM-X}1?{CBM-POUND}H "/{CBM-S}>8{CBM-X}W9{CBM-D}b8n8{SHIFT-POUND}f858{CBM-Z}28
{CBM-N}{CBM-X}9?h{$e8}{CBM-X}9?  access ram cart
error - selected device is not a 1581
format destination disk?   n  y
use + -  keys to select track/blocks
starting track:
block size:
okay to create directory?  n  y
partition name:
directory name:
press <stop> to access root
u34,035,036,037,038,039,040


ua:3,0,


,




ub:3,0,


,




b-p:3 0

ua:3 0 41 0

,009,010,011,012,013,014,015,016,017,018,019,020,021,022,023,024,025,026,027,028,029,030,031,032,033,034,035,036,037,038,039,040,041,042,043,044,045,046,047,048,049,050,058{$60}
 O~{CBM-S};8
{$f0}X
{CBM-I} W~xl{CBM-L}e
{$fe}{$e6}{$fe}P{$e2}{$e6}~ L~N80l/e{SHIFT-POUND} C~{SHIFT-POUND} C~ L~{SHIFT-POUND}
8{$60}{SHIFT-POUND}{CBM-S}r8  {SHIFT-@}~{SHIFT-POUND}{CBM-I}9  {CBM-X}~ {SHIFT-*}~{$60}{CBM-S}8J8 {CBM-R}2 Ze 4 {CBM-R}2{CBM-I} I~le {CBM-Y}f L~{CBM-Z}8
{CBM-Z}h{CBM-Z}{CBM-Z}hM{CBM-Z}h{CBM-N}{CBM-X}FfFh{$e8}{CBM-X}FfGh{$e8}{CBM-X}FfHh{CBM-Z}8
{CBM-Z}h{CBM-Z}{CBM-Z}hM{CBM-Z}h{CBM-N}{CBM-X}hJh{$e8}{CBM-X}hKh{$e8}{CBM-X}hLh{CBM-I} I~{SHIFT-POUND}8{$60}
{CBM-Z};8{$f0}X{CBM-I}{SHIFT-POUND}{$fe} T~xl{$7c}f{CBM-E}{$fe} R~HP{$e7}{$e6}~ L~{CBM-I} I~{SHIFT-POUND}8{$60}{CBM-I}R~Hlb Ge{SHIFT-POUND}${CBM-K}8{$60} Ge{CBM-Z}3P{$ef}{SHIFT-POUND}g{CBM-K}8{$60}{CBM-S}8{CBM-X}p8IP{SHIFT-POUND}(8{$60}{CBM-Z}{CBM-I}8I${CBM-A}I{CBM-A}{SHIFT-POUND}{$60}I{CBM-A}{SHIFT-POUND}{$60}I{CBM-A}{SHIFT-POUND}{$60}{SHIFT-POUND}{$60}8{$e9}#lRb{SHIFT-POUND}1{SHIFT-POUND}8lc{SHIFT-POUND}
{CBM-S}8{$f0}1{CBM-Z}
~h{SHIFT-POUND}
~ 8d{CBM-Z}82{CBM-Z}83{CBM-Z}84{SHIFT-POUND}8 d
8X,
{CBM--} wd{CBM-S}8 {$60}d{CBM-Z}{CBM--}8)I{CBM-A}* wd {$60}d wd 8{CBM-I}{CBM-Z}{CBM--} W~{CBM-S} 8
88HP{$e3}{$e6}~JP{$de}N4PDxH
~{$60}{SHIFT-POUND}1{SHIFT-POUND}8lc{SHIFT-POUND}{CBM-S}8{$f0}1{CBM-Z}
~h{SHIFT-POUND} S2 {$e7}~{CBM-I}8{CBM-+}8J{CBM-POUND}88{SHIFT-POUND}{$fe}{CBM-O} {$ee}${CBM-Z}>88 {SHIFT-*}d 3({CBM-Z}80l{$f5}?{SHIFT-POUND}
{CBM-G}8{SHIFT-POUND}u{SHIFT-POUND}i{SHIFT-POUND} 3 S2l@{SHIFT-POUND}{CBM-G}8 %{CBM-Z}{CBM-POUND}8P {CBM-H}% + . +{CBM-S}28{CBM-X}{$7f}?{CBM-POUND}{CBM-I}{SHIFT-POUND}.  d,{CBM-Z}>8P{$60}{CBM-Z}{SHIFT-POUND}8{$f0}<{SHIFT-POUND}8{CBM-Z}r88 d N2{CBM-Z}r8 C~{CBM-Z}s8 C~{$60}{CBM-Z}8I~{$f0}u{CBM-Z}s8r88 d {CBM-R}2 3{$60}{CBM-Z}{SHIFT-POUND}8Pl@{CBM-S}8{CBM-X}n8r88 Hd{CBM-Z}s88 Hd + . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}1 {CBM-S}8{CBM-X}
 directory
 ending track:
!example: partition name <return>
"example: name, <2-letter id> <return>
# disk to expansion ram
$ expansion to system ram
% expansion ram to disk
&insert source disk into drive:
'insert target disk into drive:
(okay to l{$f7}~

~

~

~

~

~

~

~
















































@

































































@





@















@

{$60}

{$f0}

{$f0}

{$60}




















































dd{$e8}{$e8}{$f1}{$f1}{$e2}{$e2}dd..dd{$e8}{$e8}{$f1}{$f1}{$e2}{$e2}dd..{CBM-N}{CBM-N}~~uu~~{CBM-N}{CBM-N}~~uu~~{CBM-N}{CBM-N}~~uu~~{CBM-N}{CBM-N}~~uu~~~~LL~~33~~LL~~33~~LL~~33~~LL~~33""dd""dd""dd""dd{CBM-H}{CBM-H}kkRR--$R{SHIFT-+}-j{CBM-H}{CBM-J}k--RR{CBM-H}{CBM-H}kkkk{CBM-H}{CBM-H}--RR{CBM-K}cB{CBM-+}E88E{CBM-+}BcD#Bf5{CBM-D}8{CBM-+}EcB{CBM-K},4zz{CBM-E}AAa!{$f8}{$f8}!aAA{CBM-E}zz,4ii""aaaa""ii""""ii@@
 I~{CBM-A}{$f3}
{CBM-O}{CBM-B}h{$f0} R~Hlf L~N80lflGe
{CBM-O}Oh{$f0} R~Hl{CBM-O}f{$60}000,001,002,003,004,005,006,007,008,009,010,011,012,013,014,015,016,017,018,019,020,021,022,023,024,025,026,027,028,029,030,031,032,033,034,035,036,037,038,039,040,041,042,043,044,045,046,047,048,049,050,05
~ 8d{CBM-Z}82{CBM-Z}83{CBM-Z}84{SHIFT-POUND}8 d{SHIFT-POUND}@8
X{CBM-S}88 g~{CBM-Z}
{SHIFT--}m8)@{$f0}{$f6}m88 8{CBM-I}{SHIFT-POUND}{$fe} T~{CBM--}{CBM-S} 8 {$60}dHPZ{$e6}~JPU g~,
{CBM--} cd {$60}d{CBM-Z}{CBM--}8h ndH)I{CBM-A}N4P{CBM-Q}xH
~{$60}{CBM-S}8 I~{CBM-I}
{CBM-D}8{CBM-X}/ R~{$e8}P{$f6} L~{$60}{SHIFT-POUND}u/{SHIFT-POUND}00{$60}h{CBM-Z}
{SHIFT--}
{SHIFT--}H{$60}{CBM-Z}
{SHIFT--}){$ef}
{SHIFT--}{$60}{CBM-Z}
{SHIFT--}i
{SHIFT--}{$60}{SHIFT-POUND},
{CBM--}{$f0}{$f9}{$60}{CBM-Z}{SHIFT-POUND}8P{$60} 8d{SHIFT-POUND}1{CBM-S}8{$f0}{SHIFT-POUND}8 dX,
{CBM--} wd {$60}d{CBM-Z}{CBM--}8x{$60}{CBM-Z}89 R~ Kb{SHIFT-POUND}{CBM-I}8{SHIFT-POUND}
{CBM-@}8{CBM-Z}{CBM-@}8Pg ub{CBM-Z}{CBM-M}8{CBM-@}8{CBM-Z}{CBM-G}8P9{CBM-Z}{CBM-+}8P 3({SHIFT-POUND}
{CBM-+}8{CBM-S}8{CBM-X}n8r88 Hd . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}/ {CBM-S}8{CBM-X}9 R~{CBM-S}8{CBM-X}n8r88 {CBM-F}b8{CBM-Z}{CBM-I}88{SHIFT-POUND}
8{CBM-Z}{SHIFT-POUND}8P el5a{CBM-Z}{CBM-POUND}8{$f0} {$f0}bl5a {$fd}b{CBM-Z}8)I
{CBM-S}{CBM-K}8J{CBM-I}8 Hd{$ee}{CBM-I}8N{CBM-@}8{$f0}{CBM-Z}{CBM-I}8M{CBM-K}8{CBM-A}l~@ ub8{CBM-Z}{CBM-M}8{$ed}{CBM-@}8{CBM-@}88{CBM-Z}{CBM-I}8{$ed}{CBM-@}8{CBM-I}8{CBM-Z}88 %{CBM-Z}{CBM-POUND}8P
{CBM-Z}8{$f0}{SHIFT-POUND}
8 {CBM-H}% Hd . +{CBM-S}28{CBM-X}?{CBM-POUND}{CBM-I}{SHIFT-POUND}0oad disk files?   n  y
)ram disk full
*okay to copy file-list?    n  y
+reading from source disk
,writing to destination disk
-file copy working from drive:
.okay to copy disk?   n  y
/reading from disk:
0writing to disk:
1disk copy working from driv

?
{$7f}{SHIFT-*}
~
~
~
{$7f}{SHIFT-*}
?







































<
~~ ~{$f0}~{$f8}?~{$fc}?~{$fc}{$7f}~{$fe}{$7f}~{$fe}~~~~~~~~~{$7f}~{$fe}{$7f}~{$fe}?~{$fc}?~{$fc}~{$f8}~{$f0}~ ~
<
{$f0}





























































~{$f0}




























































~

@@@@



  @@@@99dddd99dddd{$fe}{$fe}{$fe}{$fe}BBBBBBBB{$fe}{$fe}

{$ef}{$ef}{$ef}{$ef},,,,,,,,{$ef}{$ef}

































~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~00{$fc}
?
{SHIFT-*}{SHIFT-*}
?
{$fc}00{$fc}
?
{SHIFT-*}{SHIFT-*}
?
{$fc}{SHIFT-*}{SHIFT-*}3333{SHIFT-*}{SHIFT-*}3333{SHIFT-*}{SHIFT-*}3333{SHIFT-*}{SHIFT-*}3333GG99{$7d}{$7d}~~{$7c}{$7c}88WW~~
1,052,053,054,055,056,057,058,059,060,061,062,063,064,065,066,067,068,069,070,071,072,073,074,075,076,077,078,079,080000,001,002,003,004,005,006,007,008,009,010,011,012,013,014,015,016,017,018,019,020,021,022,023,024,025,026,027,028,029,030,031,032,033,0{CBM-S}r8  {SHIFT-@}~{SHIFT-POUND}{CBM-I} ? {CBM-X}~ {SHIFT-*}~{$60}{SHIFT-POUND}i{SHIFT-POUND} 3 S2{$60}{CBM-X}8{CBM-X}p8{$f0}bI{$f0}I{$f0}!HH{$60}{CBM-Z};8{$f0}{SHIFT-POUND}{CBM-M}8{SHIFT-POUND}{SHIFT-POUND}8{CBM-POUND}8{$60}{SHIFT-POUND}{CBM-M}8{SHIFT-POUND}
{SHIFT-POUND}8{$60}{CBM-Z};8{$f0}{$ee}{SHIFT-POUND}8{SHIFT-POUND}
{CBM-M}8{$60}{SHIFT-POUND}
{SHIFT-POUND}8{SHIFT-POUND}{CBM-M}8{$60}{SHIFT-POUND}
{SHIFT-POUND}8{CBM-Z};8P{$e5}le {CBM-R}2 Ze 4 {CBM-R}2{CBM-S}8J8{SHIFT-POUND}{CBM-D}h{CBM-Z}8
{CBM-Z}h{CBM-Z}{CBM-Z}hM{CBM-Z}h{CBM-N}{CBM-X}Ff{CBM-L}h{$e8}{CBM-X}Ff{CBM-Y}h{$e8}{CBM-X}Ff{CBM-U}h{CBM-Z}8
{CBM-Z}h{CBM-Z}{CBM-Z}hM{CBM-Z}h{CBM-N}{CBM-X}h{SHIFT-@}h{$e8}{CBM-X}h{CBM-F}h{$e8}{CBM-X}h{CBM-C}h{CBM-I} I~{CBM-A}
{CBM-O}{CBM-P}h{$f0} R~Hl{$7e}e L~{CBM-I} F~{SHIFT-POUND} {CBM-S}8{CBM-X}9 R~l{CBM-J}a{CBM-Z}s88{CBM-Z}{CBM-I}88 {CBM-F}b8{SHIFT-POUND}
8{CBM-Z}{SHIFT-POUND}8P{CBM-Z}s8r8 {$f1}el{$f4}a{CBM-Z}{CBM-POUND}8{$f0} {$7d}cl{$e5}a c{CBM-Z}8)I HdlbN{CBM-@}8{CBM-S}{CBM-I}8{$e8}{CBM-I}8{$ec}{CBM-K}8{CBM-A}{CBM-Z}{CBM-@}8P{CBM-Z}l{CBM-W}@{CBM-Z}s8r8 {CBM-P}d + . +{CBM-D}28{CBM-O}?{CBM-POUND}{CBM-I}{SHIFT-POUND}7 {SHIFT-POUND}l8 Q2{CBM-Z}>8Pl:@ . 8{SHIFT-POUND}v{SHIFT-POUND} 3l:@
p
{CBM-Z};8
{CBM-N}{CBM-X}qb{$fe}{$e8}{CBM-X}qb~{SHIFT-POUND}{$fe}{CBM-O}{$60}{CBM-S}8{CBM-X}p8{$f0}
I{$f0}{SHIFT-POUND}q{CBM-K}8{$60}{SHIFT-POUND}${CBM-K}8{$60} {CBM-R}2 Ze 4 {CBM-R}2{CBM-I} I~{CBM-A}
{CBM-O}Xh{$f0} e:
21541/64 mode not installed-press space
3start:
4end:
5bytes:
6select ex-mod type: 1764   1700   1750
7okay to clean-up disk?     n  y
{$f2}R>N{$de}{CBM-S}2^3_6Bf7C{CBM-B}j-y
U

U

U
{$ec}{$ec}{$ec}[
{CBM-J}
seqprg

! #

~

~

~

~

~

~

~








































~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~
~~














@
































































@










































99uu88dd~~~~~~~~~~~~~~~~dd{$e8}{$e8}{$f1}{$f1}{$e2}{$e2}dd..dd{$e8}{$e8}{$f1}{$f1}{$e2}{$e2}dd..{CBM-E}{CBM-E}00XX{SHIFT-*}{SHIFT-*}{CBM-E}{CBM-E}00XX{SHIFT-*}{SHIFT-*}~~~~~~~~{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}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu~~

~~

~~

~~

~~

~~

~~

~~

 5,27,64,27,65,7
;
 **** store printer codes ****
J
B(215){CBM-W}{CBM-E}0{CBM-P}B(215){CBM-W}{CBM-E}128{CBM-M}55,0:56,158::50
{$7e}(
57,0:58,158:
{CBM-G}2
z:40579,z:i{CBM-R}1{CBM-@}z:k:40579{CBM-N}i,k:
D<
40576,0:40577,7:40578,0
{$e9}f
 "****************************"
p
 "****  GRAPHMAh in Memory? (y/n)"
*{$e6}
 **** wait for y/n ****
h{$f0}
{CBM-K}a$:a${CBM-W}{CBM-E}"y"{CBM-M}a${CBM-W}{CBM-E}"n"{CBM-M}240
n{$fa}

ml{CBM-R}25:140:cl${CBM-+}ta)"press any key to continue";
{CBM-K}a$:a${CBM-R}""{CBM-M}270
{CBM-Y} **** display lowercase ****
{$de}"i{CBM-R}1{CBM-@}C(a$):G(F(J(a$,i,1)){CBM-P}127);:
{$e4},
 6 **** declare i{CBM-R}2{CBM-@}rn
"rv(i){CBM-R}0{CBM-M}560
#"rv(i){CBM-E}ma{CBM-M}ma{CBM-R}rv(i)
:"&rv(i){CBM-W}mi{CBM-M}mi{CBM-R}rv(i)
@"0
E":ma{CBM-R}mi{CBM-M}mi{CBM-R}ma{CBM-Q}14:mi{CBM-W}0{CBM-M}mi{CBM-R}1:ma{CBM-R}15
"dra{CBM-R}ma{CBM-Q}mi:nc{CBM-R}{CBM-J}(ra{CBM-Z}14):nc{CBM-W}{CBM-E}ra{CBM-Z}14{CBM-M}nc{CBM-R}nc{CBM-N}1
{CBM-N}"nrv$(1){CBM-R}D(mi):i{CBM-R}2{CBM-@}15
I"xrv$(i){CBM-R}D(E(rv$(i{CBM-Q}1)){CBM-N}nc):
{$f4}"Bi{CBM-R}1{CBM-@}rn:sv(i){CBM-R}{CBM-J}(((rv(i){CBM-Q}mi){CBM-Z}nc){CBM-N}1.5)
aph":
%{CBM-+}ta)"3.  Edit Graph":
,% {CBM-+}ta)"4.  Save Graph":
h%*{CBM-+}ta)"5.  Load Graph":
E%4{CBM-+}ta)"6.  Print Graph":
%>{CBM-+}ta)"7.  Printer Setup":
%h{CBM-+}ta)"8.  End Program"
R%rml{CBM-R}28:140:cl${CBM-+}ta)"Enter Selection (1-8)   ";
{$e4}%\mo{CBM-R}64{CBM-M}198,0
{$f7}%Fmo$le${CBM-R}"_"{CBM-M}::320:740
?(."Number of Ranges (1-12):        ";:1,rn$:rn{CBM-R}E(rn$)
t(8rn{CBM-E}0{CBM-P}rn{CBM-W}13{CBM-M}1100
F(b:"";:1070
{CBM-T}(l"":"Keyboard or Disk Input? (k/d)      ";:1,a$:
G(va${CBM-W}{CBM-E}"k"{CBM-P}a${CBM-W}{CBM-E}"d"{CBM-M}:"";:1100
X({$60}a${CBM-R}"d"{CBM-M}2950
{$de}(J
)Ti{CBM-R}

LL33LL33LL33LL33LL33LL33LL33LL33" a{SHIFT-*}" a{SHIFT-*}LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLWW{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}WWWW{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}WW

tt{SHIFT-@}{SHIFT-@}





@





  {CBM-POUND}{CBM-POUND}PP



ee

dd""dd""dd""dd""33~{$f3}
3~{$f3}33{$f3}~3
{$f3}~33~{$f3}
3~{$f3}33{$f3}~
KER 64/128 ****"
3z
 "****  by Robin Franzel  ****"
xD
 "****     June, 1988     ****"
{$7d}N
 "****************************"
X
640
{CBM-T}
 **** compute tabs ****
{CBM-C}
ta{CBM-R}{CBM-L}({CBM-J}((co{CBM-Q}ml){CBM-Z}2)):
{SHIFT--}
 **** special messages ****

ml{CBM-R}10:140:""{CBM-+}ta)"Editvariables ****
 @ 1:1,0
1 jmo{CBM-R}128:m{CBM-R}B(215):m{CBM-R}128{CBM-M}370
a tm{CBM-W}{CBM-E}0{CBM-M}mo{CBM-R}64
p ^co{CBM-R}40:ra{CBM-R}6
y H380
I Rco{CBM-R}80:ra{CBM-R}12
 {$7c}rv(12),rv$(15),rn$(12),sv(12),ra(12,2)
{CBM-L} tt${CBM-R}"":le${CBM-R}"":rn{CBM-R}0:g{CBM-R}0:pw{CBM-R}40
Z cl${CBM-R}""

{$fb} {CBM-@} **** open files:
{$fa}"L
#V **** start program ****
0#53281,12:53280,11
d#G(14)G(8):320
W#ml{CBM-R}18:140:""{CBM-+}ta)"GRAPHMAKER 64/128"
#ml{CBM-R}2:140::{CBM-+}ta)"by"
{CBM-Y}#{CBM-POUND}ml{CBM-R}14:140::{CBM-+}ta)"Robin Franzel"
{$ea}#{CBM-R}ml{CBM-R}32:140:""{CBM-+}ta)"Running in C-";

${CBM-C}{CBM-R}128{CBM-M}208,0
&Pg{CBM-M}"   2";a$:900
#&Z"   1";a$
y&E(a$)980,1390,1220,2380,2570,1770,2770,920:740
U& **** end program ****
&g{CBM-R}0{CBM-M}950
{SHIFT-@}&{CBM-I}ml{CBM-R}20:140:""H(cl$,12){CBM-+}ta)"Are you sure?  (y/n)"
P&{CBM-D}240:a${CBM-W}{CBM-E}"y"{CBM-M}740

'{CBM-L}ml{CBM-R}13:140:""H(cl$,1{CBM-@}rn:"Label for Range"i":  ";:1,rn$(i)::
){$7e}170
))i{CBM-R}1{CBM-@}rn
y)"Enter Max Value for Range"i":  ";:1,rv$
N)rv(i){CBM-R}E(rv$)::
W){CBM-+}510
){CBM-A}g{CBM-R}1:740
){SHIFT-@} **** edit graph ****
{CBM-R})Dg{CBM-R}0{CBM-M}200:740
{CBM-F})N160
{$ed})X"Title:  "tt$;:i{CBM-R}1{CBM-@}C(tt$):"";:
3
{$f3}~{$fa}{CBM-P}
{CBM-POUND}{$fa}{CBM-P}
{CBM-POUND}~~{CBM-POUND}
{CBM-P}{$fa}{CBM-POUND}
{CBM-P}{$fa}{CBM-POUND}
{CBM-P}{$fa}{CBM-POUND}
~~
{CBM-POUND}{$fa}{CBM-P}
{CBM-POUND}{CBM-POUND}{CBM-POUND}dd##ee{CBM-I}{CBM-I}dd**tt22~{$e3}"""{$fe}?" " " {$e3}~"""?{$fe} " " "~~@@@@~~~~@@@@~~~~
~
~
~
~
~
~
{$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}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu{CBM-N}{CBM-N}uu~~

~~

~~

~~

~~

~~

~~

~~ Graph":
3{CBM-N}
ml{CBM-R}12:140:""{CBM-+}ta)"Create Graph":
]{CBM-H}
ml{CBM-R}10:140:""{CBM-+}ta)"SAVE GRAPH":
{CBM-V}
ml{CBM-R}10:140:""{CBM-+}ta)"LOAD GRAPH":
{CBM-C}H
ml{CBM-R}18:140:""H(cl$,12){CBM-+}ta)"No Graph in Memory"
NR
i{CBM-R}1{CBM-@}1500::

{CBM--}
ml{CBM-R}28:140:""H(cl$,12){CBM-+}ta)"Erase Grap ****
!{CBM-S} 4: 5:4,4,s1:5,4,s2
!{CBM-U}
3!B 15:15,8,15,"i0":
q!L15,n1,n2$,n3,n4:n1{CBM-W}20{CBM-M}
!Vml{CBM-R}10:140:""H(cl$,12){CBM-+}ta)"DISK ERROR"
{CBM-K}! ml{CBM-R}25:140:{CBM-+}ta)n1;n2$;n3;n4
{CBM-D}!{$ea}260:
R!{$f4} **** create label/symbolic ****
{$ef}!{$fe}ma{CBM-R}rv(1):mi{CBM-R}ma:rn{CBM-R}1{CBM-M}570
{$fb}!I(D(mo),C(D(mo)){CBM-Q}1);" - ";
*$FI(D(co),2);" Column Mode";
:$Pi{CBM-R}1{CBM-@}1750:
t$Z **** main menu ****
${$e4}ml{CBM-R}17:140:""{CBM-+}ta)"GRAPHMAKER 64/128"
{CBM-@}${$ee}ml{CBM-R}9:140:""{CBM-+}ta)"MAIN MENU"
{SHIFT-@}${$f8}ml{CBM-R}18:140:"";
X${CBM-+}ta)"1.  Create Graph":
{$f4}${CBM-+}ta)"2.  View Gr12){CBM-+}ta)"Program ended"
'{SHIFT-*}G(9):
)'J **** create graph ****
7'Tg{CBM-R}0{CBM-M}1010
l'{$de}220:a${CBM-R}"n"{CBM-M}740
w'{$e8}:320
{$60}'{$f2}170
'{$fc}ml{CBM-R}16:140:{CBM-+}ta)"Press _ for MENU"
{SHIFT-POUND}'"Enter Title:  ";:1,tt$:
C'tt${CBM-R}"_"{CBM-M}::320:740
{$e5}'"Enter Legend:  ";:1,le$:
~':1,tt$:
 *{$e2}"Legend:  "le$;:i{CBM-R}1{CBM-@}C(le$):"";::1,le$:
w*{$ec}"Number of Ranges (1-12):  "I(D(rn),C(D(rn)){CBM-Q}1);
*{$f6}i{CBM-R}1{CBM-@}C(D(rn)){CBM-Q}1:"";::1,rn$:rn{CBM-R}E(rn$)
*
rn{CBM-E}0{CBM-P}rn{CBM-W}13{CBM-M}1300
{CBM-Q}*
:"";:1260
{CBM-W}*:
{$e2}*i{CBM-R}1{CBM-@}rn:"Label for Range"i":  ";rn$(i);{CBM-@}ub:i{CBM-E}sv(k){CBM-P}i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:1570
-{$fa}i{CBM-E}sv(k){CBM-M}"   ";:1570
k-i{CBM-R}sv(k){CBM-M}""G(169)G(32)G(110)"";:1570
V-sv(k){CBM-R}i{CBM-N}1{CBM-M}""G(183)G(112)" ";:1570
-" "G(167)" ";
{CBM-E}-"i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}s{CBM-R}1{CBM-@}sp:"{SHIFT-*}";::1590
E-,s{CBM-R}1{CBM-@}sp:" ";:
R-6:"{CBM-W}":
{$fe}-@I(" PRINT GRAPH"
{$fc}/{$fe}"Title:  "tt$:
0"Legend: "le$:
00"Range Name","Max Value"
p0i{CBM-R}1{CBM-@}rn:" "rn$(i),,rv(i):
B0&mo{CBM-R}128 {CBM-M} {$fe}0
00s1{CBM-R}B(40577):s2{CBM-R}B(40578):tp{CBM-R}co:co{CBM-R}40:rn{CBM-E}6{CBM-M}co{CBM-R}80
0:430
{CBM-U}0di{CBM-R}B(40579):i{CBM-R}0{CBM-M}1880
{$de}0nk{CBM-R}1{CBM-@}i:p{CBM-R}B(40579{CBM-N}k):4,G(s{CBM-R}1{CBM-@}sp:5,"{SHIFT-*}";::2050
{$fe}2{$f8}s{CBM-R}1{CBM-@}sp:5," ";:

3:5,"{CBM-W}":
;35,I("     "{CBM-N}I(rv$(1),C(rv$(1)){CBM-Q}1),5)"{CBM-Q}";
h35,"  ";
M3 k{CBM-R}1{CBM-@}rn:sv(k){CBM-W}1{CBM-M}5,"   ";:2120
3*sv(k){CBM-R}1{CBM-M}5,""G(169)G(32)G(110)"";:2120
L34sv(k){CBM-R}2{CBM-M}5,""G(183)G(112)""G(169);:2120
{$e8}3>   ";:2310
{$ef}5{$fc}i{CBM-W}{CBM-R}sv(k){CBM-M}5,":::";
6i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}s{CBM-R}1{CBM-@}sp:5,"-";::2330
-6s{CBM-R}1{CBM-@}sp:5," ";:
<6:5,"!":
o6$5,"    0...";
6.i{CBM-R}1{CBM-@}rn:5,"...";:s{CBM-R}1{CBM-@}sp:5,".";:::5,"!"
685:2160
{CBM-POUND}6b **** save graph ****
{CBM-F}6lg{CBM-R}0{CBM-M}200:740
D6v180
{$f4}6{$60}m
."
{$ed}8{$ec}2,rv(i)G(13);:2,rn$(i)G(13);:
{$fd}8{$f6} 2: 15:740
9

 **** load graph ****
49

g{CBM-W}{CBM-E}0{CBM-M}220:a${CBM-W}{CBM-E}"y"{CBM-M}740
?9
:320
h9
190
X9(
ml{CBM-R}24:140:{CBM-+}ta)"Enter Filename for LOAD,"
 92
ml{CBM-R}13:140:{CBM-+}ta)"Or _ for menu"
{CBM-X}9<
ml{CBM-R}16:140:{CBM-+}ta);:1,fi$
N9f
f
+(k{CBM-R}1{CBM-@}C(rn$(i)):"";::1,rn$(i)::
+2160
g+<i{CBM-R}1{CBM-@}rn:"Max Value for Range"i":  "D(rv(i));
M+fk{CBM-R}1{CBM-@}C(D(rv(i))){CBM-Q}1:"";::1,rv$
+prv(i){CBM-R}E(rv$)::
+z510:740
{CBM-Q}+D **** view graph ****
{CBM-V}+Ng{CBM-R}0{CBM-M}200:740
M+X""G(142)
{$f3}+ml{CBM-R}10:140:"    "{CBM-N}I(rv$(1),C(rv$(1)){CBM-Q}1),5)"{CBM-Q}";
.j"  ";
,.tk{CBM-R}1{CBM-@}ub:sv(k){CBM-W}1{CBM-M}"   ";:1660
y.^sv(k){CBM-R}1{CBM-M}""G(169)G(32)G(110)"";:1660
.Hsv(k){CBM-R}2{CBM-M}""G(183)G(112)""G(169);:1660
{CBM-K}.R" "G(167)""G(169);
{CBM-J}.{$7c}s{CBM-R}1{CBM-@}sp:" ";:
{SHIFT-*}.:"{CBM-W}"
Q."    0{CBM-E}{CBM-E}{CBM-E}";
{$fc}.i{CBM-R}1
p);::4
{$f1}0xml{CBM-R}C(tt$):140
1B4,{CBM-+}ta)tt$:4:4:4
01Lsp{CBM-R}{CBM-J}(30{CBM-Z}rn){CBM-Q}3:co{CBM-R}80{CBM-M}sp{CBM-R}{CBM-J}(60{CBM-Z}rn){CBM-Q}3
f1VB(40576){CBM-W}{CBM-E}0{CBM-M}2230
u1i{CBM-R}15{CBM-@}2{SHIFT-POUND}{CBM-Q}1
X1i{CBM-Z}2{CBM-R}{CBM-J}(i{CBM-Z}2){CBM-M}5,"     {CBM-Q}";:1950
{CBM-+}15,I("     "{CBM-N}I(rv$(i),C(rv$(i)){CBM-Q}1),5)"{CBM-Q}";
E1i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}5,"{SHIFT-*}{SHIFT-*}";:1970
R1{CBM-POUND}5,"  ";
5," "G(167)""G(169);
{$fe}3hs{CBM-R}1{CBM-@}sp:5," ";:
4r:5,"{CBM-W}"
4\5,"    0{CBM-E}{CBM-E}{CBM-E}";
o4Fi{CBM-R}1{CBM-@}rn:5,"{CBM-E}{CBM-E}{CBM-E}";:s{CBM-R}1{CBM-@}sp:5,"{CBM-E}";:::5,"{CBM-E}"
I4P5,"       ";:i{CBM-R}1{CBM-@}rn
4Z5,H(rn$(i){CBM-N}"                   ",sp{CBM-N}2);" ";:
{SHIFT-POUND}45:5:5
M4ml{CBM-R}C(le$):140:4,{CBM-+}ta)le$:4:4
l{CBM-R}24:140:{CBM-+}ta)"Enter Filename for SAVE,"
7Jml{CBM-R}13:140:{CBM-+}ta)"Or _ for menu"
97Tml{CBM-R}16:140:{CBM-+}ta);:1,fi$
j7{$7e}fi${CBM-R}"_"{CBM-M}740
G7C(fi$){CBM-E}16{CBM-M}fi${CBM-R}H(fi$,16)
P7180
 7ml{CBM-R}28:140:H(cl$,12){CBM-+}ta)"Saving Graph "fi$
T7{CBM-+}450:2,8,2,"0:"{CBM-N}fi${CBM-N}",s,w":460:ni${CBM-R}"_"{CBM-M}740
{$eb}9p
C(fi$){CBM-E}16{CBM-M}fi${CBM-R}H(fi$,16)
{$f4}9z
190
%:D
ml{CBM-R}29:140:H(cl$,12){CBM-+}ta)"Loading Graph "fi$
y:N
450:2,8,2,"0:"{CBM-N}fi${CBM-N}",s,r":460:n1{CBM-E}20{CBM-M} 2:740
X:X
i{CBM-R}0{CBM-@}3:2,tp:40576{CBM-N}i,tp:
{CBM-I}:
tp{CBM-E}0{CBM-M}k{CBM-R}tp:i{CBM-R}1{CBM-@}k:2,tp:40579{CBM-N}i,tp:
{SHIFT-@}:
2,tt$:2,le$:2,rn
O:
tt
"{CBM-+}ta)"view graph"
{$fd}+ub{CBM-R}rn
,co{CBM-R}80{CBM-M}sp{CBM-R}{CBM-J}(60{CBM-Z}ub){CBM-Q}3:1460
2, co{CBM-R}40{CBM-M}rn{CBM-E}6{CBM-M}ub{CBM-R}6
d,{CBM-N}sp{CBM-R}{CBM-J}(30{CBM-Z}ub){CBM-Q}3
^,{CBM-H}ml{CBM-R}C(tt$):140:a${CBM-R}tt$
R,{CBM-V}{CBM-+}ta);:290::
,Hi{CBM-R}15{CBM-@}2{SHIFT-POUND}{CBM-Q}1
{CBM-Z},RI("     "{CBM-N}I(rv$(i),C(rv$(i)){CBM-Q}1),5)"{CBM-Q}";
J,{CBM--}i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}"{SHIFT-*}{SHIFT-*}";:1520
U,{$e6}"  ";
-{$f0}k{CBM-R}1{CBM-@}ub:"{CBM-E}{CBM-E}{CBM-E}";:s{CBM-R}1{CBM-@}sp:"{CBM-E}";:::"{CBM-E}"
/{CBM-@}"       ";:i{CBM-R}1{CBM-@}ub
e/{CBM-S}H(rn$(i){CBM-N}"                   ",sp{CBM-N}2);" ";:
m/{CBM-U}:
S/Bml{CBM-R}C(le$):140:{CBM-+}ta);:a${CBM-R}le$:290
{$7c}/L260
/V"";G(14):740
{CBM-D}/  **** print graph ****
{CBM-B}/{$ea}g{CBM-R}0{CBM-M}200:740
{$e7}/{$f4}ml{CBM-R}11:140:""{CBM-+}ta)"2{CBM-R}k{CBM-R}1{CBM-@}rn:i{CBM-E}sv(k){CBM-P}i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}5,"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:2030
2{CBM-C}i{CBM-E}sv(k){CBM-M}5,"   ";:2030
n2Fi{CBM-R}sv(k){CBM-M}5,""G(169)G(32)G(110)"";:2030
{$7b}2Psv(k){CBM-R}i{CBM-N}1{CBM-M}5,""G(183)G(112)" ";:2030
{SHIFT-POUND}2Zsv(k){CBM-R}2{CBM-M}""G(183)G(112)G(169)"";:2030
{SHIFT-*}2{$e4}5," "G(167)" ";
{$e8}2{$ee}i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M} 4mo{CBM-R}128 {CBM-M} {$fe}15
{$f0}4{CBM-I}co{CBM-R}tp: 4: 5
{$fe}4{CBM-D}"":740

5{CBM-L}i{CBM-R}15{CBM-@}1{SHIFT-POUND}{CBM-Q}1
05{SHIFT-*}i{CBM-Z}2{CBM-R}{CBM-J}(i{CBM-Z}2){CBM-M}5,"     !";:2260
^5J5,I("     "{CBM-N}I(rv$(i),C(rv$(i)){CBM-Q}1),5)"!";
{$7d}5Ti{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}5,"--";:2280
5{$de}5,"  ";
{SHIFT-@}5{$e8}k{CBM-R}1{CBM-@}rn:i{CBM-E}sv(k){CBM-P}i{CBM-Z}3{CBM-R}{CBM-J}(i{CBM-Z}3){CBM-M}5,"---";:2310
W5{$f2}i{CBM-E}sv(k){CBM-M}5,"1{CBM-E}20{CBM-M} 2:740
{$e7}7{CBM-Q} mo{CBM-R}128 {CBM-M} {$fe}0
8{CBM-A}i{CBM-R}0{CBM-@}3:tp{CBM-R}B(40576{CBM-N}i):2,tpG(13);:
@8{SHIFT-@}tp{CBM-E}0{CBM-M}k{CBM-R}tp:i{CBM-R}1{CBM-@}k:tp{CBM-R}B(40579{CBM-N}i):2,tpG(13);:
t8{CBM-B} mo{CBM-R}128 {CBM-M} {$fe}15
H8Dtt${CBM-R}""{CBM-M}tt${CBM-R}"."
{$7c}8Nle${CBM-R}""{CBM-M}le${CBM-R}"."
{CBM-+}8X2,tt$G(13);:2,le$G(13);:2,rnG(13);
H8{$e2}i{CBM-R}1{CBM-@}rn:rn$(i){CBM-R}""{CBM-M}rn$(i){CBM-R}" ${CBM-R}"."{CBM-M}tt${CBM-R}" "
{$e4}:
le${CBM-R}"."{CBM-M}le${CBM-R}" "
;{CBM-N}
i{CBM-R}1{CBM-@}rn:2,rv(i):2,rn$(i):rn$(i){CBM-R}"."{CBM-M}rn$(i){CBM-R}" "
 ;{CBM-H}

9;{CBM-V}
510: 2: 15:g{CBM-R}1:740
w;H
 **** printer setup ****
;R
ml{CBM-R}10:140:""{CBM-+}ta)"PRINTER SETUP"
;{CBM--}
mo{CBM-R}128 {CBM-M} {$fe}0
{CBM-L};{$e6}
a${CBM-R}"yes":B(40576){CBM-W}{CBM-E}0{CBM-M}a${CBM-R}"no "
{$e4};{$f0}
"CBM {CBM-+}ta)"number of fields to skip,  or  "G(34)"_"G(34)"  to"
an{CBM-+}ta)"return to the MAIN MENU."
eax"Enter number fields to skip";:"   ";a$
uaBa${CBM-R}"_"{CBM-M}740
DaLsk{CBM-R}E(a$):
{CBM-K}aVml{CBM-R}38:140:{CBM-+}ta)"The Ranges specified below must be the"
Sa{CBM-+}ta)"informat sum  a"
{$e9}c
{CBM-+}ta)"particular  field.   First  enter  the"
d
{CBM-+}ta)"displacement or field  number  of  the"
md
{CBM-+}ta)"data you wish to sum.  Then  enter the"
{$7f}d*
{CBM-+}ta)"field number of the field  of  ranges."
{CBM-W}d4
{CBM-+}ta)"Finally enter the Ranges as requeste ile:  "fi$
{$e9}f{$e8}
450:2,8,2,"0:"{CBM-N}fi${CBM-N}",s,r":460:n1{CBM-E}20{CBM-M} 2:3520
g{$f2}
:"Skipping info data":i{CBM-R}1{CBM-@}sk:2,a$
qg{$fc}
st {CBM-P} 64 {CBM-M}"Skip fields not specified correctly":n1{CBM-R}22:
_g:"":
Yg170:3060:170:3190
{CBM-P}gi{CBM-R}1{CBM-@}rn:"Label for Range"i":  ";:1,rn$ iN:ra(i,1){CBM-W}{CBM-R}ra(i,2){CBM-M}3810
{$fd}iXml{CBM-R}30:140:{CBM-+}ta)"ERROR:  High Value < Low Value":3770
#j{$e2}r1${CBM-R}I(D(ra(i,1)),C(D(ra(i,1))){CBM-Q}1)
^j{$ec}r2${CBM-R}I(D(ra(i,2)),C(D(ra(i,2))){CBM-Q}1):rn$(i){CBM-R}r1${CBM-N}"-"{CBM-N}r2$:
j{$f6}3520:n1{CBM-R}22{CBM-M}i{CBM-R}1{CBM-@}1500::3740
j
"Reading data:"
j
r{CBM-R}1
{CBM-N}j
 Dot Matrix Printer  "a$"";:a$

<{$fa}
a${CBM-R}"no"{CBM-M}40576,1:2830

<40576,0
5<s1{CBM-R}B(40577):s2{CBM-R}B(40578):cd{CBM-R}B(40579)
E<:"Text Secondary Address:  "s1"";:s1
<":"Graphic Secondary Address:  "s2"";:s2
G<,:"Printer Control Codes:  "cd" r selection (1-4)";
{$e1}> {CBM-K}a$:a${CBM-R}""{CBM-M}3040
?{$ea}d{CBM-R}E(a$):d3600,3740,3950,740:3040
f?{$f4}ml{CBM-R}38:140:{CBM-+}ta)"Some  database/file  manager  programs"
X?{$fe}{CBM-+}ta)"place data used by the program such as"
{CBM-N}?{CBM-+}ta)"number of  fields,  names  of  fields,"
{CBM--}?{CBM-+}ta)"num ion you wish to  tally  within"
b{CBM-+}ta)"a particular field.  First  enter  the"
7b{CBM-+}ta)"displacement or field  number  of  the"
Ib{CBM-+}ta)"data you wish to tally. Then enter the"
b{CBM-POUND}{CBM-+}ta)"Ranges as requested."
Db{CBM-R}{CBM-+}ta)"Field number of data";:"
d."
{$ec}d>
{CBM-+}ta)"Field number of data";:"   ";a$:dr{CBM-R}E(a$):
{$fc}dh
a${CBM-R}"_"{CBM-M}740
er
dr{CBM-R}0{CBM-M}3390
ge\
{CBM-+}ta)"Field number for Ranges";:"   ";a$:dd{CBM-R}E(a$):
weF
a${CBM-R}"_"{CBM-M}740
FeP
dd{CBM-R}0{CBM-M}3420
eZ
{CBM-+}ta)"Is Range Alpha or Numeric (a/n)";:"   ";a$
{SHIFT-@}e
 a${CBM-W}{CBM-E}"a (i)::
Rg$3520:n1{CBM-R}22{CBM-M}i{CBM-R}1{CBM-@}1500::3600
{$e7}g."Reading data:"
{$ef}g8r{CBM-R}1
{$fb}gbf{CBM-R}1{CBM-@}nf
hl"Record"r"Field"f"... ";
)hv2,a$:rs{CBM-R}st
=h{$60}a$:f{CBM-W}{CBM-E}dd{CBM-M}3710
BhJi{CBM-R}1{CBM-@}rn:a${CBM-R}rn$(i){CBM-M}rv(i){CBM-R}rv(i){CBM-N}1
HhT
h{$7e}rs {CBM-P} 64 {CBM-M}"Finished reading data":3730
{CBM-POUND}h:r{CBM-R}r{CBM-N}1:36 f{CBM-R}1{CBM-@}nf
Hj"Record"r"Field"f"... ";
Xj(2,a$:rs{CBM-R}st
{$ec}j2a$:f{CBM-W}{CBM-E}dd{CBM-M}3920
%k<i{CBM-R}1{CBM-@}rn:E(a$){CBM-E}{CBM-R}ra(i,1){CBM-P}E(a$){CBM-W}{CBM-R}ra(i,2){CBM-M}rv(i){CBM-R}rv(i){CBM-N}1
+kf
[kprs {CBM-P} 64 {CBM-M}:"Finished reading data":3940
Mkz:r{CBM-R}r{CBM-N}1:3860
kD 2:510:g{CBM-R}1:i{CBM-R}1{CBM-@}1000::740
{CBM-POUND}kN170:3060:1 ";:cd
{$e9}<640577,s1:40578,s2:40579,cd
{$f8}<@cd{CBM-R}0{CBM-M}2930
=ji{CBM-R}1{CBM-@}cd:ct{CBM-R}B(40579{CBM-N}i)
>=t"   Code"i": ";H(D(ct){CBM-N}"   ",3)"";
t=^ct:40579{CBM-N}i,ct:
G=Hmo{CBM-R}128 {CBM-M} {$fe}15
P=R740
={$7c} **** create graph disk ****
=170:
K=ml{CBM-R}28:140:{CBM-+}ta)"1.  User
ber of records, etc in front of the"
@{CBM-+}ta)"actual data. You can usually determine"
l@&{CBM-+}ta)"how many of these "G(34)"control"G(34)" fields you"
{$7e}@0{CBM-+}ta)"will need  to  skip  by  loading  your"
{CBM-A}@:{CBM-+}ta)"file into a word processor.  Enter the"
{$ee}@d ";a$:dd{CBM-R}E(a$):
Tb{CBM-C}a${CBM-R}"_"{CBM-M}740
{$e3}bFdd{CBM-R}0{CBM-M}3250
#cP{CBM-+}ta)"Number of fields per record";:"   ";a$:nf{CBM-R}E(a$):
3cZa${CBM-R}"_"{CBM-M}740
bc{$e4}nf{CBM-R}0{CBM-M}3280
hc{$ee}
c{$f8}ml{CBM-R}38:140:{CBM-+}ta)"The Ranges specified below must define"
{CBM-Y}c
{CBM-+}ta)"the records in which you  will   "{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}3450
Ee
na${CBM-R}a$
f
{CBM-+}ta)"Number of fields per record";:"   ";a$:nf{CBM-R}E(a$):
f{CBM-I}
a${CBM-R}"_"{CBM-M}740
$f{CBM-D}
nf{CBM-R}0{CBM-M}3480
*f{CBM-L}

Jf{SHIFT-*}
170:"Enter filename or":"  _ for MAIN MENU:  ";:1,fi$
{$7b}fJ
fi${CBM-R}"_"{CBM-M}740
fT
C(fi$){CBM-E}16{CBM-M}fi${CBM-R}H(fi$)
{CBM-H}f{$de}
"":"Opening f 50
Ih 2:510:g{CBM-R}1:i{CBM-R}1{CBM-@}1000::740
{$e3}h170:3060:170:3190
"i{CBM-+}ml{CBM-R}37:140:{CBM-+}ta)"The following entries must be NUMERIC"
.i{CBM-A}i{CBM-R}1{CBM-@}rn
Hi{SHIFT-@}"Low value for Range"i":  ";:1,a$:ra(i,1){CBM-R}E(a$):
{CBM-I}iD"High value for Range"i": ";:1,a$:ra(i,2){CBM-R}E(a$):
{CBM-B}!70:3320
{$de}kXi{CBM-R}1{CBM-@}rn:"Label for Range"i":  ";:1,rn$(i)::
l3520:n1{CBM-R}22{CBM-M}i{CBM-R}1{CBM-@}1500::3950
l"Reading data:"
lr{CBM-R}1
*l f{CBM-R}1{CBM-@}nf
hl{CBM-N}"Record"r"Field"f"... ";
yl{CBM-H}2,a$:rs{CBM-R}st:
Nl{CBM-V}a$:f{CBM-R}dd{CBM-M}td${CBM-R}a$
lHf{CBM-R}dr{CBM-M}td{CBM-R}E(a$)
{CBM-E}lRrs {CBM-P} 64 {CBM-M}:"Finished  defined ranges"
{$f6}={CBM-+}ta{CBM-N}4)"Tally field (Alpha/Numeric)":
>{CBM-@}{CBM-+}ta)"2.  User defined ranges"
>>{CBM-S}{CBM-+}ta{CBM-N}4)"Tally field (Numeric)":
A>{CBM-U}{CBM-+}ta)"3.  File defined ranges"
Z>B{CBM-+}ta{CBM-N}4)"Sum field":
>L{CBM-+}ta)"4.  Return to Main Menu"
M>Vml{CBM-R}21:140:cl${CBM-+}ta)"Ente!
{$60}{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u!3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
"






"






"






"






"






"






"




!{$f8}{CBM-S}'I2



 {CBM-U}{CBM-U}


















































































































































































-{CBM-H}S##3{$fc}{$f3}L"






























{CBM-N}
{$e9}reading data":4070
{CBM-Y}l{CBM--}
Cl{$e6}i{CBM-R}1{CBM-@}rn
{$eb}l{$f0}na${CBM-R}"a"{CBM-M}td${CBM-R}rn$(i){CBM-M}rv(i){CBM-R}rv(i){CBM-N}td
m{$fa}na${CBM-R}"n"{CBM-M}E(td$){CBM-R}E(rn$(i)){CBM-M}rv(i){CBM-R}rv(i){CBM-N}td
m
omrs {CBM-P} 64 {CBM-M}:"Finished reading data":4130
_mr{CBM-R}r{CBM-N}1:4000
m" 2:510:g{CBM-R}1:i{CBM-R}1{CBM-@}1000::740




:740
{CBM-POUND}kN170:3060:1!






































































jjRdeyv"{CBM-P}{CBM-C}{CBM-S}B{$ea}{$f0}J*{CBM-N}{CBM-N}{CBM-N}{CBM-POUND}{CBM-POUND}{CBM-N}{CBM-POUND}







(


*+{CBM-N}


*{CBM-V}{$ea} {CBM-N}+{CBM-V}{$ea}{CBM-N}
{$fa}{$ea}{CBM-N}
@{CBM-N}{CBM-S}q

< {CBM-N}{SHIFT-*}0



B














{CBM-T}**



{$e2}{$f8}{$fe}{CBM-B}{CBM-V}{CBM-S}{SHIFT-POUND}{CBM-M}{CBM-Q} {CBM-S}{CBM-+}{SHIFT-@}X{$e8}{CBM-T}{CBM-U}{CBM-U}({$60}{$60}{$60}

































!


{CBM-N}{$fc}{CBM-POUND}{CBM-N}



*{$f7}{CBM-N}{CBM-N}
?{$f0}{CBM-N}u{CBM-N}{CBM-N}
{$f3}

{CBM-N}]{CBM-N}{CBM-N}


*{$f2}{CBM-N}


{CBM-POUND}{$f2}{CBM-N}

*{CBM-T}{$fa}{CBM-N}{CBM-POUND}
{$ea}{CBM-POUND}
 {CBM-POUND}{CBM-POUND}{CBM-N}{CBM-N}*({CBM-N}


(( {CBM-T}0;K{$e3}#{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}































































































































































!{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}u{SHIFT--}W{SHIFT--}u{SHIFT--}u{SHIFT--}uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu!


"






"






"






"






"






"






"






"






"






"






"






"




{CBM-P}{$f6}"

{CBM-Q}{$f2}"

{CBM-P}J{$60}{$fc}"{CBM-POUND}{$fc}z
~L"{CBM-N}{$fd}{CBM-N}
~3L"{CBM-I}u
~3L"{CBM-N}_{CBM-N}
~3L" J){SHIFT-*}?L"
{CBM-N}{$f0}H{$fc}O"

 {$fa}C{$f0}"


{$e8}{$7e}'"




{$e8}"






"






"






"






"






"






"






"






"


!





*





{CBM-N}~





{CBM-N}{$fc}






{CBM-N}






















""
"

2L0L3O3LG1
    (





































































































































































!
































































xL















7=

L{$f3}{$fc}{$fc}{$7c}{$7f}C0

<
C

{SHIFT-*}{SHIFT-*}*{$f0}?({CBM-P}{CBM-T}{CBM-N}{CBM-N}B~~{$fd}~?{CBM-POUND}{CBM-N}{$fc}~U{$7f}~~5*~uU~Wu~{CBM-N}~uu~~_~{CBM-N}~]{$7f}{$f0}B~{CBM-N}{CBM-P}{$f5}{$7c}{$f0}(?{$fa}{CBM-N}~?
?{$ea} ~{$fc}?{$fc}{$f3}?{$f7}{CBM-*}~?{$fc}{$f0}{$f0}{SHIFT-*}B
(*{CBM-POUND}{CBM-N}<L<L<L<L































!






































































































































{$fe};O~O{$7c}{$fc}{$fc}{CBM-H}!({CBM-N}{CBM-N}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-N}{CBM-N}j< {CBM-N}

{CBM-N}B{CBM-POUND}
?~{$fc}{CBM-D}
{CBM-N}





{SHIFT-*}


*{CBM-N}*{CBM-N}(
{$fe}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-POUND}{$fc}{CBM-N}{CBM-N}{CBM-N}
~
 {CBM-N}{CBM-POUND}*
B{$e8}{CBM-I}. ( {CBM-N}{$fe}~{CBM-POUND}

 {CBM-POUND}






(!



















=?<?????/B0L3L{$f3}
JB
B


{CBM-D}{CBM-POUND}
(



H{$f2}?




 * JB2{$f0}{$fc}0<


{CBM-N}{CBM-V}{CBM-B}{CBM-N}
{CBM-N}

{CBM-N}{$f8}


(

{SHIFT-*}


*
?<C?{$f0}J#{$f2}*{CBM-I}J({CBM-T}?{$fa}{CBM-N}{CBM-POUND} >{$e8}{CBM-T}?8{$e3}3LCH={$fd}={$fd}?O?L

































































































!uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
3~3L3L3
!



"




































































































































.{CBM-H}P/{CBM-L}P0{SHIFT-*}"P
{CBM-I}


@{CBM-N}




"












































"






*




A{$fc}3


{$7e}{SHIFT-*}3

 !

SOOOOO   "



/{CBM-C}

+{CBM-B}~{$fa}{$ea}
*{CBM-B}~{$f4}{CBM-POUND}{CBM-POUND}~{$f5}w

{CBM-N}{CBM-B}~{CBM-N}
{CBM-N}

{CBM-B}~{$ea}{CBM-N}

~{CBM-N}
{CBM-Q}{CBM-P}{CBM-V}~{CBM-B}*
 {$ea}{CBM-U}{CBM-N}~{CBM-N}*


J_




*{$7c}





 {$fa}?





 {$e8}{$fe}""   {CBM-Q}+{CBM-POUND}+{CBM-POUND}{CBM-U}Xhd{CBM-@}{CBM-@}



































































































"





















































































































[C{CBM-A}{CBM-A}{SHIFT-*}{SHIFT-*}


*





{CBM-N}





*
+ww{SHIFT-*}0{SHIFT-*}{$f0}L{$f0}L{$f0}?

 (B{SHIFT-*}{$f0}0{$f7}{CBM-*}W{$f5}{CBM-B}*

~W~P~{CBM-W}L3~~U~O0{SHIFT-*}
~U_{$fd}


~?{$f0}_{$f5}

~{$fc}
~_u{$f5}{SHIFT-*}
~{$fd}u_{$f0}
{$fd}{$f7}\{$f0}
={CBM-*}P*{CBM-N}!
*){CBM-I}

{CBM-N}Z{$e8} {CBM-POUND}{CBM-POUND}*7{$f7}{$f7}~7?  {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}















































































































































































{$f3}{$f1}{$f9}{$f9}{$f2}R{CBM--}{$f4}***JHX{CBM-A}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-POUND}({CBM-POUND}{CBM-N}{CBM-N}


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


{CBM-POUND}{CBM-POUND}J{CBM-N}{CBM-N}"

kj<0{$eb}{$ea}{CBM-N}{CBM-N}{$ea}{$fa}{$fe}?{$fa}~{CBM-P}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ea}{CBM-B}{$fe}{$ea}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-P}{CBM-P}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-P}{CBM-B}{$fc}{$fc}











J{SHIFT-*}{$f0}

0B

0{$f0}{SHIFT-*}
















>{$f0}{$f8}{$f8}{$f8}{$f8}{$f8}{$fc}{$fe}


0



{$f0}





*""
{CBM-G}{SHIFT-POUND}{CBM-N}V{$fd}~/ {CBM-I}{$fd}c{$f0}~{CBM-B}/!{$f1}{SHIFT-*}~~{CBM-B}
uu~u~~{$ea}{$e1}tc{$fc}
~~{CBM-N}ub{$f8}~{$fe}{CBM-POUND}p ~{$fa} @{$fd}Taeu*{CBM-N}*{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}H{$60}{$60}xxv{CBM-+}
















00"






















ZZZJ6662{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}S{$7e}J{CBM-N}

z{CBM-N}{CBM-N}{CBM-N}{CBM-N}JJ{CBM-N}{CBM-N}{CBM-N}{CBM-N}Euuuut{$fa}{CBM-G}uuup?{$ea}{CBM-N}Ivvp?{$ea}{CBM-N}{CBM-N}{CBM-N}{CBM-N}v{CBM-N}{CBM-N}{CBM-Q}~{CBM-POUND}
~J{CBM-P}~~C{CBM-T}{CBM-T}{CBM-B}~~{$fa}
{CBM-P}~~~~{$ea}z{CBM-Q}~~{$fe}{CBM-POUND}

{CBM-P}~~{$fa}


{CBM-N}{CBM-N}{CBM-B}{SHIFT-*}



{CBM-D}{$f0}











































































































"



















{$f3}

k##330000{CBM-A}000

{SHIFT-*}{SHIFT-*}















































































































































{CBM-N}






















































" {$fc}

 {CBM-I}" (
*""{CBM-I}0{$f0}0{$f0}0{$f0}0{$f0}












































































































































{$60}B 0{SHIFT-*}   {$f8}{$f8}{$f8}{$f8}{$f8}







UUU55555wwwwwuuu{$fc}{$f0}{$fc}{$f3}{CBM--}{$f3}{CBM--}~
BB{$f0}{$f0}{$f0}00  {$fc}O{$f0}{$f0}"







_{$7f}{CBM-*}W


p{$f5}~~{$7f}




@@P

0























{$ea}{$fa}{$fa}::::>{SHIFT-*}




uuuUUUUU{$7b}{$7b}XRR{$7c}{$7e}{SHIFT-*}{$f0}L{$f3}{$fc}0B
{$fc}{$f0}{SHIFT-*}{$f7}={CBM-T}H
{CBM-I}
{SHIFT-*}{$f2}0{$fc}O{$f3}<

{$fd}
C{SHIFT-*}HJ
?U
*
{SHIFT-*}P{SHIFT-*}
( ?, {CBM-A}{$fc}{SHIFT-*}
?{$fc}{$f0}3<{$fc}L<{$fc}{$f0}


{$f2}>{$f3}CC




   H8













"({CBM-N}J{$f0}? *b{$fd}?{$f0}~ *W{$fd}~=_~? O{$f0}{$7f}_U~?~~{$f5}Uuu~~~uuuu{$7d}~~~~wu{$7f}~~Btquuuuu{$ea}~~~{$fc}{$f2}*{CBM-T}{SHIFT-*}J* {SHIFT-*}{SHIFT-*}~{CBM-N}vb{$fa}{$ea}H {CBM-POUND} {CBM-P}{CBM-U}













H82




























































;::::::>Z{$fa}Z{$fa}{CBM-V}{CBM-N}{SHIFT-@}{CBM-F}~~~~~u{CBM-N}FFNJJ{$fa}{$fa}{CBM-Q}{CBM-Y}{CBM-V}{CBM-L}{CBM-V}~{$f8}{$f8}{$ec}







{CBM-POUND}{CBM-V}





{CBM-POUND}*



"
   882

























































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



{CBM-N}{CBM-N}{CBM-N}{CBM-POUND}


*


{CBM-N}


<{SHIFT-*}*
({$f0}{SHIFT-*}













?{SHIFT-*}



{CBM-N}({$f0}0





{$fe}{$fe}{$fe}{$fe}{CBM-B}{CBM-B}{CBM-B}{CBM-B}





<0

~




 {SHIFT-*}{SHIFT-*}



!!
DEEYYY)l_\\wwww{CBM-N}*"



00Xn~0duuB"










































>{$f8}{$f8}{$f8}{$fa}{$fa}{$fe}{$fe}~



 {CBM-POUND}{CBM-N}


















2

){SHIFT-POUND}{SHIFT-POUND}{CBM-G}{CBM-G}u{CBM-N}{CBM-N}{CBM-N}{CBM-T}{$7e}JJJ{CBM-N}{CBM-POUND}z{CBM-N}{CBM-N}{CBM-Q}~ J{CBM-N}{CBM-N}{CBM-P}~~v{CBM-N}{CBM-N}{CBM-N}{CBM-B}~~{$ea}{CBM-N}{CBM-N}{CBM-Q}~~{$fe}{CBM-POUND}
{CBM-N}{CBM-P}~~{$fa}

{CBM-B}~~{$fa}


{CBM-N}{CBM-N}{CBM-B}{SHIFT-*}



{CBM-Q}{$fc}


















































{SHIFT-*}{SHIFT-*}@
{$fc}

















"

















































































0L

0
*



.




 0
<{SHIFT-*}

0
(










{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}







































"00




~?0  {CBM-POUND}
  (

>>

{$fc}{$f0}{$ec}L
{$f2}0
.0
{CBM-C}{CBM-C}0#88{SHIFT-*}{SHIFT-*}{$f0}{$f0}  {$e8}H{$f8}{$f0}3{$f3}*

03<<?<?{$fc}L0{$f0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}



































































































































8 8{SHIFT-*}



"





























































W]UUUUu{SHIFT--}Wuuuuuu{CBM-*}{$7f}{CBM-*}W]W]wQ{$f5}{$f4}{$f4}{$fd}{$7d}{$fd}{$7d}



































>  {$f8}{$f8}{$f8}{$f8}{$f8}{$fc}







000055

____wJ2 {$eb}XZ  #{SHIFT-*}<(00L?*
{SHIFT-*}{$f0}?{$f0}{$7f}btq{CBM-POUND}{CBM-N}{$fe} {$fc}C?
{CBM-I}

J&{$f0}<{CBM-POUND}{CBM-N}{CBM-V}{$e8}

* ?{$fc}~
 <{$f0}?{SHIFT-*}"



















{$ea}{$fa}::::::{SHIFT-*}







UUU{$f5}=

{CBM-B}OKzz{CBM-POUND}"!J{$f2}{CBM-C}{CBM-P}{CBM-Q}{CBM-N}{SHIFT-POUND}@
(
{$f2}{$fc}@t
:{CBM-N}{CBM-POUND}**{$ea}{CBM-POUND}{CBM-N}* tu{CBM-N}{CBM-N}

~
uu{CBM-N}{CBM-N}<~Cuz{CBM-N}{CBM-N}
{$f0}~uz**{CBM-N}
<{CBM-I}{CBM-POUND}{CBM-POUND}{CBM-POUND} ?{$fa}J{CBM-R}/x{CBM-T}x{CBM-U}{$e3}:{$f8}{$e2}8{$ea}{CBM-POUND}{CBM-I}{CBM-I}{CBM-I}


















0  882

















































  ""{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}{$60}{$60}{$60}xx









{CBM-B}{CBM-P}O  {$60}JzzH<
*{CBM-N}{CBM-N}{CBM-G}
{CBM-N}{CBM-N}{SHIFT-POUND}v































































{CBM-POUND}














































































{$ea}{$ea}{$fa}:::::{SHIFT-*}     {$f0}*(





"

















































































































{CBM-N}{$ea}{$fa}>

{$ea}{$fa}{$fe}~~{CBM-B}{CBM-P}+{CBM-N}{CBM-N}{CBM-N}{$ea}~~~j**+?~{$fe}{CBM-POUND}{CBM-P}{CBM-P}~~{$fa}
~~~{$eb}


~~~{$ea}


{CBM-N}{CBM-Q}{$fc}




{CBM-P}{$f0}






































































#{CBM-F}{CBM-F}{CBM-F}{CBM-B}{CBM-A}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{$f0}{CBM-F}{CBM-F}{CBM-B}{CBM-F}{CBM-F}{$fb}{$fb}{CBM-F}{CBM-F}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-F}{$fb}{CBM-F}{CBM-F}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}"


{$f8}{$fe}{$fe}{CBM-V}{CBM-V}{CBM-V}{CBM-V}{CBM-B}












{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM--}W{$f4}{$f7}~{$fd}{$7f}{$7f}LLL
C3"""H

99:2N
{CBM-POUND}{SHIFT-@}* {CBM-POUND}{CBM-N}{CBM-N}{CBM-POUND}x{CBM-POUND}{$fa}2+(2



{$f3}{$fe}?
{CBM-N}C<{$f0}{SHIFT-*} 0
{SHIFT-*}
{$f3}(,{CBM-POUND}{CBM-U}{CBM-A}{$e2}~~{CBM-*}{$f7}{$f7}{$f7}{CBM-*}{$7c}



L??{SHIFT-*}   H82























































































"


<{$f0}
*

({CBM-POUND}{CBM-POUND} *"  .>>{CBM-S}{SHIFT--}my



2




































































?{$7f}~{$7f}~{$7e}{$fe}Z{$fa}~~{$ea}{CBM-N}Uuu~~{CBM-P}{CBM-Q}vzJFWWWW{$f7}W{CBM-Y}











































{$fe}{$fe}{$fe}{CBM-V}{CBM-V}{CBM-B}{CBM-B}{CBM-B}








wwwwuuuuvAAx{$e6}{CBM-N}{CBM-U} kk#{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-B}{CBM-B}{CBM-B}{CBM-F}{CBM-F}K{$7b}KKKKKK{$7b}{$7b}{CBM-F}KKKKKKK{$7b}
{CBM-F}KKKKKOKOKKKKKK{CBM-F}{CBM-F}{CBM-F}{CBM-F}KKOOOKOKK{CBM-F}{CBM-A}{CBM-A}{CBM-A}{CBM-A}
{CBM-F}{CBM-F}KOKKKKKOK{CBM-F}{CBM-F}#??{CBM-D}<, {$7c}{$7c},<,{CBM-D}<;</<L{$fc},?,{$7c},<<<
 ??!<???
,{$7c},<!{CBM-D}<,/{CBM-P}
B

;<,<;;L,,




,
,,{CBM-D}0O
{$ec}~?<,{$fc}{CBM-D}W,
+1+/?/<L+
/,{CBM-D}kkk#
{CBM-A}{CBM-A}{CBM-A}{CBM-A}
{CBM-F}+++KK{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-F}+{CBM-F}{CBM-F}{CBM-F}
p  p{CBM-F}{CBM-F}{CBM-F}+++++{$fb}{CBM-F}++{CBM-F}{CBM-F}{CBM-F}
p{CBM-A}p
{CBM-F}+++++{CBM-F}{$fb}{$fb}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{$fb}




{CBM-F}{CBM-F}{CBM-F}{$fb}{$fb}{$fb}{$fb}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{$fb}{CBM-F}{CBM-F}{CBM-F}{$fb}
{CBM-F}{CBM-F}{$fb}{CBM-F}{CBM-F}{CBM-F}{$fb}{$fb}{$fb}{CBM-F}{$fb}{CBM-F}

#,<,{$ec}{CBM-D}<<{$ef}?<<<</O,<
O
{$ec}~?<,{$fc}{CBM-D}W,
+1+/?/<L+
/,{CBM-D}kkkk#
{CBM-F}{CBM-F}{CBM-F}{$fb}{$fb}{$fb}{CBM-F}{CBM-F}{CBM-F}

{CBM-F}{$f0}{CBM-F}
{CBM-F}{CBM-F}{$fb}{CBM-F}{CBM-F}{CBM-F}

{CBM-F}{$fb}{CBM-F}{CBM-F}
0





0





0












0


0













;;K;;;[,{$7c},<#
?A\,{$fc}<
{CBM-P}?
?,){$7c}

{$7f}

0<<!+/0/

P


L{$fc}<,/

??
L{$7c}L,,{CBM-Q}
0



;;?0
k