Transactor

home *** CD-ROM | disk | FTP | other *** search

/ Transactor / Transactor_05_1985_Transactor_Publishing.d64 < prev next >

Wrap

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

{SHIFT-POUND}{SHIFT-POUND}{$60}{$eb}$ {CBM-G}${SHIFT-POUND}l{$eb}$P {SHIFT-POUND}{$60}i {SHIFT-POUND}li{SHIFT-POUND} R~{SHIFT-POUND} LlrX{CBM-I} {CBM-X}XW{$e8}{$e4}FP{$f5}FFx{$60}{CBM-S}{CBM-@}S{SHIFT-*}{$f0}{CBM-G}NP{CBM-E}Q)? {$ea}{CBM-I} O{CBM-I}M{CBM-I}L{$60}{SHIFT-POUND}~{SHIFT-POUND} Z{$fb}{SHIFT-POUND}({$fd}{$f3}{SHIFT-POUND}{$fc}{$fe}{SHIFT-POUND}X{$7b}{$f4} '{CBM-E}{$fd}{$fb}{CBM-E}{$f3}Z{$f5}{CBM-G}{$fe}{$fc})X{$7b}{CBM-G}{$fd}{$fb}ZI({$e6}{$fe}{$e6}{$f4}{$fd}{$f3}F~PR Q*{$60}{SHIFT-POUND}~{SHIFT-POUND}{$fc}{$fe}{SHIFT-POUND}{SHIFT-+}{$7b}{$f4}{SHIFT-POUND}{$fd}{$f3}{SHIFT-POUND}{SHIFT-*}{$fb}Z '{CBM-E}{$fd}{$fb}{CBM-E}{$f3}Z{$f5}{CBM-G}{$fe}{$fc})X{$7b}{CBM-G}{$fd}{$fb}Z8{$e9}({CBM-A}F{$fe}F{$f4}{$fd}{$f3}F~PR Q*{CBM-S}{$e4}{CBM-X}{CBM-I}-UH{SHIFT-POUND} UH{SHIFT-POUND}UH{CBM-Z}N-UH{CBM-Z}O-US {$fd}' &lr Y&{CBM-I} {CBM-X}U R~{$e8}{$ec}S{$f4}{$f0}{$f2} A&lL~{$fb}{$fc} {CBM-E}{$fb}{$f0}UHP{$f6}{$60}U{SHIFT-POUND} HUS {$fd}' I& {$e4}~h L~H{$60} D({CBM-I} -lu# D( Y& L~ I& {$e4}~ R~I P{$f6}{$f0}/{SHIFT-POUND}{CBM-POUND}{CBM-S}M- {SHIFT-@}~{SHIFT-POUND} {CBM-POUND}{CBM-N} {CBM-X}~ {SHIFT-*}~I{$f0}{CBM-G})PlL~{CBM-I} {CBM-X}{SHIFT-POUND}-{$f0} R~{$e8}P{$f5} & & L~lr{SHIFT-POUND} {CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O}{$f0} {CBM-O}{$ed}{CBM-G}0Sl{$f6}{$f3}{SHIFT-POUND}{CBM-POUND}{CBM-S}M- {SHIFT-@}~{SHIFT-POUND}{CBM-I}H (lQ(#00 8 the transactor volume 5 issue 06 page 73 z save"@0:filcomp pet.dat",8 {CBM-K}D ** rte/84 - data to create 'file compare 4.0' on diskette as prg KN "drive #, new program name ";dr$,fl$ {$f7}X 15,8,15: 5,8,5,(dr$){CBM-N}":"{CBM-N}fl${CBM-N}",p,w" # 1 P{$f5}JS D( {$fd}'lo({CBM-I}{$7f} - D# {$fd}' ' F& {$e4}~I {$f0}&h {$e4}~~ L~H ?&{$de}{CBM-*}{CBM-G}~ ?&{$e1}{$e2} A& {$e1}~PJ L~ & & A&lrX{$f8}{CBM-POUND}{SHIFT-POUND} {SHIFT-*} {$f0}IP{$fb}Xx{$60}h R~ R~ x&HI -&l{SHIFT-POUND} ,{SHIFT-POUND},,{SHIFT-POUND},{SHIFT-POUND} lR~{CBM-I},{CBM-I} F~{CBM-G}l({$60}{CBM-I},{CBM-I} I~{CBM-G}0{$f0}{$60}{SHIFT-POUND},{SHIFT-POUND}lC~ {CBM-V}&{CBM-A}<{CBM-I}{$7f} - D# {$fd}' F&{SHIFT-POUND} ~ {$e4}~ {CBM-E}{CBM-@}~{$fd} Z{$e6}~P{$ef} L~ & &lr {CBM-Z}{$fd}{CBM-Z}{$fe}{$60}l{$ef} 2, 42 /H 42, 32, 70, 73, 76, 69, 32, 67 \R 79, 77, 80, 65, 82, 69, 32, 52 {CBM--} 46, 48, 32, 42, 42, 0, 0, 0 {CBM-L}{$e6} 160, 5, 169, 71, 32, 29, 187, 32 {$e3}{$f0} 207, 255, 56, 233, 48, 133, 90, 201 {$fa} 3, 48, 244, 2{$fd}HHHH{SHIFT-POUND} {$e4}lD( {CBM-F}# B$~{CBM-@}~{CBM-G}{$fd}UH{CBM-G}{$fe}UH{SHIFT-POUND}UHS {CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-E}{CBM-E}{$fb} Z{$ee}P{$ee}P{$ee}{$e4}{$e6}{$fd}P{$e6}{$fe}{CBM-D}SU {$fd}'{CBM-Z}{$e4}P {$e1}~{$f0}{CBM-Z}M{CBM-M}{$f0}{CBM-A} {CBM-Z}M{$f0}l{$e8}${CBM-I}P -l({SHIFT-POUND} o {CBM-A}{$7b}{CBM-Z}h{CBM-Z}h HHl{CBM-G}${CBM-Z}{CBM-Z}HH D({SHIFT-POUND} {$e4} m{SHIFT-POUND}$ R~{SHIFT-POUND}: R~ ! {$f1}${CBM-Z}o{$f0} {$7e} {$e1}~{$f0}{CBM-Z}{$e4}P{CBM-Z}160, 5, 169, 97, 32, 11, 5, 165 k@ 155, 201, 239, 208, 3, 76, 246, 4 Xj 162, 5, 32, 198, 255, 32, 207, 255 {CBM-G}t 133, 89, 32, 204, 255, 162, 6, 32 R^ 198, 255, 32, 207, 255, 72, 165, 150 ~H 133, 91, 32, 204, 255, 104,, 165, 89, 32, 49, 5 : {CBM-S} 165, 89, 32, 61, 5, 169, 32, 32 G {CBM-U} 210, 255, 169, 36, 32, 210, 255, 104 B 72, 32, 49, 5, 104, 32, 61, 5 A L 169, 13, 32, 210, 255, 32, 204, 255 {$ee} V 230, 87, 165, 87, 208, 2, 230, 88 {CBM-H}T{CBM-H}(NT{$f4}LjR{$f2}{CBM-@} {CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R} " &&RRHDJ&hdd{CBM-I}Hslgrmx:;d,antfhciqbkp*/!I{$e4}{$fa}@Q{$ed}zK {$f4}Tfo{CBM-P}!"Y"{$f0}!{CBM-E}"rwgpv:>tfdcasebip#R#Y#{$ef}#H$k%D% %&N&&'a(k(J({$f2}({$f9}( m-w m-r u2: 3 u1: 3 b-p: 3 0 b-a: m-e b-e: 3 2W mon device not present auth32, 208, 248 ) 134, 209, 169, 0, 133, 218, 169, 2 v& 133, 219, 169, 8, 133, 212, 32, 99 0 245, 96, 74, 74, 74, 74, 170, 189 {CBM-A}: 112, 5, 32, 210, 255, 96, 41, 15 {SHIFT--}d 170, 189, 112, 5, 32, 210, 255, 96 n 51, 41, '{SHIFT-*}P{$fa}{$60} '{SHIFT-POUND} {$fb}{$fb}{$60}h {CBM-E}{$fb}I.P{$7d}H{CBM-E}{$fb}I:{$f0}HI,{$f0}VI$PNH{CBM-E}{$fb}I:PG,{CBM-I} H{CBM-E}{$fb}I{CBM-A}I@ I{CBM-A}q{$e8} P{$e7} j{CBM-Z},P{CBM-Z},0h{CBM-Z}I{$ee}ld+{CBM-Z},0t{CBM-Z}8{$e9}{CBM-A}N{CBM-Z}H{CBM-N}{$60}H{CBM-E}{$fb}I P{SHIFT-POUND} ,{$f0}H{CBM-N}8{$60}{SHIFT-POUND},HP{SHIFT-POUND}{$60}{$e2} l{SHIFT-POUND}x{$e2}{$ee}{$e2}{CBM-Z}{$e2}M{$ee}ld+{CBM-Z}D {CBM-Z}E {SHIFT-POUND}F {CBM-Z}E {CBM-Z}D 8{$ed}F {CBM-A}N{SHIFT-POUND}{$60}{$e2} l{SHIFT-POUND}x{$e2}{$ee}{$e2} {CBM-A} {CBM-I} - ({CBM-Z}UH{CBM-Z}US D( {$fd}'l{$e8}$l{$ef}{CBM-I} -lu#{SHIFT-POUND}olN${SHIFT-POUND})h{SHIFT-POUND}hhhhLJ{CBM-G}F{$f0}I{CBM-Z}WI{$f0}I{$f0}P\l{$7f}){CBM-+}V Psh *H{CBM-N}J0b{CBM-X}{$f0}{$ec}{$fb}{CBM-J}Y){$fc}{SHIFT-POUND} , {SHIFT-+}*{CBM-A}{$e8} -* , {$f7}){SHIFT-POUND} R~ R~ A&{SHIFT-POUND} L{CBM-Z},0 Pl{SHIFT--}{SHIFT-POUND}l{CBM-G}$l {$f7}){SHIFT-POUND} Ll{$7e}{$ea}{CBM-+}VP{$f9}h *H{CBM-N}J{$e8} {CBM-A}{$e5}{CBM-X}{$f0}{$ec}{$fb}{CBM-J}Y){$fc}, {SHIFT-+}*{CBM-A}{$e8} {$7b}* , {$f7}) A&{SHIFT-POUND} R~{CBM-Z},0%P{SHIFT-POUND}{$60} {SHIFT--}{SHIFT-POUND}lP!5,e,e$,b,c: e {CBM-M} 15: e,e$,b,c: x j{CBM-R} 1025 {CBM-@} 1409 : x: 5,G(x);: ch{CBM-R}ch{CBM-N}x: : 5 ch{CBM-W}{CBM-E} 39775 {CBM-M} "checksum error": {CBM-I} "** program complete **": {CBM-POUND}{CBM-N} : U{CBM-H} 1, 4, 37, 4, 10, 0, 158, 32 {CBM-V} 49, 48, 54, 51, 32, 58, 3{CBM-V}&{CBM-A}= D( {CBM-L}( '{CBM-I}X - (S ^ V&{SHIFT-POUND} ~{CBM-@}~ {CBM-E}{CBM-E}{$fd} Z R~{$e6}~P{$ef} L~ {$fd}' & &lrl{$ef} Y&{CBM-I} {CBM-X}-{$f0} R~{$e8}P{$f5}lL~ S I0{$f0}{$f9}m I{CBM-A}fIbJ-I K-{CBM-Z}J-I@L- S I0{$f0}{$f9}' I{CBM-A} IM-I N-{CBM-Z}M-I@O- S I*Pl{$fa}'l{$ef}{CBM-Z}M-h{CBM-Z}J-M- D(HM-{SHIFT-POUND}~{$e4} e%{$ee}{$e4}{CBM-S}{$e4}{CBM-X}{CBM-I}-{$f0}Y '(MK-P{$ea} e%h{CBM-S}{$e4}{CBM-C}{CBM-I}-HH{CBM-N}h{CBM-POUND}H '(ML-PO{CBM-I}P - (33, 5, 176, 240, 169 = 13, 32, 210, 255, 169, 0, 133, 209 J 169, 1, 133, 210, 165, 90, 133, 212 169, 255, 133, 211, 32, 99, 245, 169 D" 0, 133, 87, 133, 88, 162, 5, 160 {$f1}, 5, 169, 97, 32, 11, 5, 162, 6 6 MS{$f0}{CBM-A} {CBM-Z}MG{$f0}E &lrl{$ef}{SHIFT-POUND} e%~ x& %{CBM-D}o{$f0}{$f5}{$ee}o NP{$e7}lA&{CBM-@}~{CBM-Z}UH{CBM-Z}US {$fd}' I& {$e4}~h L~{$ee}P{$ee}P{$ee}{$e4}H{$60}{CBM-I}T -l( {CBM-A}Q{CBM-Z}{$fd}{CBM-Z}{$fe} D({SHIFT-POUND}{$e4}{SHIFT-POUND} B$~ {CBM-A}p{CBM-@}~{CBM-G}{$fd}UH{CBM-G}{$fe}UH{SHIFT-POUND}UH{CBM-Z}UH{CBM-S}{$f6}{$e8}{CBM-Z}U{$f6}{$e8}S {$fd}'{CBM-G}{$fd}I{$e6}{$fe}{$fd}N{$e4}P{CBM-L}{CBM-Z}o{$f0} {$7e}l{$e8}$l{$ef} {CBM-I} {CBM-E}Z{$f0}UH{$e8} 197, 89 ,R 240, 78, 72, 162, 1, 32, 201, 255 y{$7c} 169, 36, 32, 210, 255, 165, 88, 32 49, 5, 165, 88, 32, 61, 5, 165 {CBM-W} 87, 32, 49, 5, 165, 87, 32, 61 5, 169, 32, 32, 210, 255, 169, 36 {CBM-@} 32, 210, 255 165, 91, 208, 3, 76, 110, 4, 169 h{$ea} 1, 32, 226, 242, 169, 5, 32, 226 U{$f4} 242, 169, 6, 32, 226, 242, 32, 204 {CBM-I}{$fe} 255, 76, 255, 179, 134, 210, 134, 211 O 32, 29, 187, 32, 226, 180, 162, 0 {$fc} 189, 0, 2, 240, 3, 2 or: mike forani{CBM-Z}ME {$f0}W{CBM-A} {CBM-Z}MD {$f0}KNF P{CBM-S}{CBM-Z}8{$ed}{$e2}{CBM-A}Nld+H{$fb}H{$fc}{CBM-I}HJ{$fc}{CBM-G}{$fc}h{CBM-G}{$fb}h{$60} @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@"d3P@BX{SHIFT-POUND} ! ymj,),#($y x$$ #]{CBM-K}#{CBM-K} ){CBM-S}I{CBM-POUND}#$s#$s{CBM-K} [[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z}) {$7c} M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}# 32, 83, 67, 82, 69, 69 7 x 78, 32, 79, 82, 32, 52, 41, 32 D B 80, 82, 73, 78, 84, 69, 82, 32 L 58, 0, 68, 82, 35, 58, 70, 73 {CBM-V} V 76, 69, 78, 65, 77, 69, 32, 62 {$eb} 0, 48, 49, 50, 51, 52, 53, 54 {CBM-Z}{$e2}M{$ee}{CBM-Z}ME {$f0}W{CBM-A} {CBM-Z}MD {$f0}KNF P{CBM-S}{CBM-Z}8{$ed}{$e2}{CBM-A}Nld+H{$fb}H{$fc}{CBM-I}HJ{$fc}{CBM-G}{$fc}h{CBM-G}{$fb}h{$60} @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@"d3P@BX{SHIFT-POUND} ! ymj,),#($y x$$ #]{CBM-K}#{CBM-K} ){CBM-S}I{CBM-POUND}#$s#$s{CBM-K} [[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z}) {$7c} M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8} Z {$e4} {SHIFT-POUND}{$fe}{SHIFT-POUND}{SHIFT-POUND}L{SHIFT-POUND}{SHIFT-POUND} {SHIFT-POUND}X {$f8} {$ed}x{SHIFT-POUND}M-{CBM-I} {CBM-X}h{$f0} R~{$e8}P{$f5}{CBM-I}~ disk/extra monitor.64 ~{CBM-Z}P {CBM-E}Z{$f0}QY{CBM-+}-PLH{SHIFT-*}P{$f2}{CBM-E}ZPC {CBM-E}Z{$f0}YHI {$f0}{$f7}I.{$f0}{$f3}I{$f0}{$ef}I{$f0}{$eb}I${$f0}{CBM-I}{SHIFT--}{$f5},P {CBM-N}{$e8}{CBM-X}-hJ{CBM-X}-hl{CBM-*}J{$e8}l{$ef}{CBM-E}Z{CBM-I}{SHIFT--}:-P {CBM-N}{$e8}{CBM-X}j-hJ{CBM-X}j-hl{CBM-*}J{$e8}0EZ{$e6}{$7b}Z{$60}{CBM-G}~l{$7c}{CBM-G} & &{SHIFT-POUND} R~{SHIFT-POUND}{$e8} {$f7} ) {SHIFT-POUND}i{CBM--}{SHIFT-POUND} {CBM--}{SHIFT-POUND}{CBM--} {CBM-E}H{CBM-POUND}H{CBM-N}H@ {$ea}~ {$ea} {$e1}~P{CBM-S}{CBM-I} {CBM-X}{$7d}h{$e8} {$f7}l{$fe}{CBM-G}EI<{$f0}{SHIFT--}I${$f0}I'{$f0} {CBM-I} HP{$fd}{$e8}P{$fa}{$60}{CBM-I}{CBM-X}x)?I {$f0}{$fd}{CBM-Z}{$fd}W{$e8}P{$eb}{$60}h{CBM-Z} {CBM-+}~)?({CBM-Z}(X{$e8})?({CBM-Z}(X{$e8}~H{CBM-N}{$60}{$ea}{CBM-Z}K y{CBM-Z}J y {SHIFT-POUND}{$60}{$60}h{CBM-+}~{SHIFT-POUND} ({CBM-Z}(X{$e6}~H{CBM-N}{$60}h{CBM-Z} {CBM--}hh{SHIFT-@}{SHIFT-POUND}{$60}{$e2} Z{SHIFT-POUND}x{$e2}{CBM-X}){$f0}Ll {CBM-A}{CBM-Z}h{CBM-Z}h H Zlrl{$ef} {CBM-A}9{CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-A}*{CBM-Z}h{CBM-Z}h S {$f0}I'P S S {$f0}4{CBM-D}SU{$ee}S{SHIFT-*} {$ee}{CBM-A}%l{$ef}FZ o S {CBM-A}{CBM-Z}{CBM-D}SU{$ee}S{SHIFT-*} {$eb} rHH {$e4} {CBM-E}{CBM-I} {CBM-X}UQ{$fb}P{$e8} {CBM-A}{CBM-G}{$fb}{$fd}{CBM-G}{$fc}{$fe}{$ec}S{CBM-A};{CBM-I} {CBM-Z}{$f0}!P {$e1}~{$f0}${CBM-Z}{$e4}P{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{CBM-G}{$fc}MB{$f0}{CBM-A}{CBM-G}{$fb}M{CBM-Y}{$f0}{CBM-J} Z A&lr Z{CBM-G}{$fe} {CBM-G}{$fd} x& {CBM-E} {$f0}{CBM-A} {CBM-F}# &{CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-E} {$e8} x&J{$fa}8{CBM-Z}{$ed}{$e2}{CBM-A}NH{$60}{CBM-POUND}{CBM-I}{CBM-O}U,{$e4}{CBM-O}{CBM-J},{$e5}{SHIFT-POUND} {$e5}.{$e4}*P{$f6}I? R~JP{$ea}{CBM-Z}{$e9}{$f0} x&{SHIFT-POUND}a R~lx& {SHIFT-@}{CBM-I} P{CBM-D}{$e2}{$f0}{CBM-Z}{$e3}I{$e8}~ X{CBM-@}~({CBM-A}#~ {CBM-@}~P{$e6}{$e3}{CBM-X}H, R~{CBM-X}N,{$f0} R~JPGlA& lA&h{CBM-Z}{$e4}{CBM-Z}{$e5}H0M{$e4}{$ee}{$e5}{CBM-N}{CBM-D}{$e5}{$60}~{SHIFT-POUND}~8{$e5}~~{$e6}~{CBM-Z}{$e4}8{$e5}~{CBM-A}N{$e5}{CBM-N}{CBM-D}{$e5}{$60}{CBM-S}{$e2}{$f0}~ \{CBM-@}~hJP{$f5}{$e8}H{$f6}{$e8}{$ec}{$e2}P{$f6}{$60}{CBM-D}{$e8}{CBM-O}{$f6}{$ee}{$e8}{$60}x{SHIFT-POUND} lT{CBM-@} {CBM-A}>{CBM-Z}{$fb}{CBM-Z}{$fc} {$e4} {CBM-A}* {CBM-E}{CBM-Z}{CBM-D}{$e4}{$fb}{$f6}H{CBM-Z}{$fb}{$f6} ZH{SHIFT-*}Y{CBM-Z}o{$f0} {$7e}lrl{$ef} {CBM-A}w{CBM-Z}{$7e}{CBM-Z}{$7d} {CBM-A}fX{CBM-Z}J{CBM-Z}Kx {CBM-A}3{CBM-Z}{CBM-Z}{$7f} {CBM-A}"{CBM-Z}{CBM-Z} o r({CBM-A}{CBM-Z}lrl{$ef} {CBM-F}# &{CBM-Z}{$fb}{CBM-Z}{$fc}{CBM-G}{$fe}E{$fc}{$f0}{CBM-A}a{CBM-G}{$fd}E{$fb}{$f0}{CBM-A}9 {CBM-E} {CBM-E}{$fb}{$fd}{CBM-Z}{$e4}P%{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}M{CBM-*}{$f0}{CBM-A}{CBM-G}{$fb}{CBM-X}{CBM-J}, d {CBM-X}U, d {CBM-I} P{CBM-D}{$e2}{$f0}{CBM-Z}{$e3}I{$e8}{SHIFT-POUND}0{CBM-A} a P{$f1}{$e3}{CBM-X}H, d {CBM-X}N,{$f0} d JPR{$f0} a a {CBM-Z}G MF {$f0}lq {CBM-D}{$e2}{$f0}!{CBM-Z}H IP {CBM-*} {CBM-E}{CBM-Z}I {$fb}{CBM-O}D H{$fb}L{$e2}P{$f5}{CBM-A} {CBM-E}{CBM-Z}I {$fb} Z ^& ^& A& m [&{CBM-I}{SHIFT-POUND} R~J{$fa} l {CBM-W} {$fd} 2 A& ^& m{SHIFT-POUND}a R~{CBM-I} {SHIFT-POUND} R~{$e8} {CBM-Z} R~{$e8} R~{$e8} {CBM-Z} R~{$e8} {$e8} R~ {SHIFT-POUND} R~{$e8} B{CBM-G}l{CBM-@}l{$ef}{SHIFT-POUND}H V{SHIFT-POUND}({CBM-Z}L{CBM-S} VLI:)(I{$60}{SHIFT-POUND} S {$f0}nI0jI:IabIg{CBM-A}> I{CBM-A}7{CBM-S}{$ee} W{CBM-I} >P{$fa}{CBM-X}{$e8} {$f0}{$e8}P{$e8}{CBM-Z}{CBM-Z}$8{$60}{CBM-Z}{CBM-POUND}{CBM-Z}{CBM-N}{CBM-Z}{$7f}h{CBM-Z}({$60} {CBM-S}{CBM-I} {CBM-X}{$7d}h{$e8} {$f7}le{SHIFT-POUND} o l{$ef}{CBM-Z}h{CBM-Z}h HHl{SHIFT--}{CBM-Z}{CBM-Z}HH{SHIFT-POUND} {$e4} m ! ;{CBM-Z}o{$f0} \5{CBM-S} 50, 49, 49, 44, 48, 58 {$e8}5{CBM-U} 151, 50, 49, 51, 44, 50 {$fc}5B 53, 53, 0 72, 13, 20, 12, 48, 49 d4@ 50, 51, 52, 53, 54, 55 G4j 56, 57, 13, 20, 18, 48 4t 49, 50, 51, 52, 53, 54 {CBM-Z}4^ 55, 56, 57, 65, {SHIFT-POUND}1J{SHIFT-POUND}{$ea}K{$60}X{SHIFT-POUND}7{SHIFT-POUND}P{SHIFT-POUND}HP{SHIFT-POUND}P{CBM-Z}{SHIFT--}{SHIFT--}{CBM-Z} {SHIFT--} {SHIFT--}x{$60} {CBM-O} {CBM-O} HP{$f1}{$60} {CBM-O} {CBM-O} HP{$f1}{$60}{SHIFT-POUND}.lR~{CBM-I}~l{$7b}{CBM-@}b* pc irq sr ac xr yr sp .; S I0P S II{CBM-A} T MP l{$ef}{CBM-Z}h{CBM-Z}h MP{$f0} {CBM-A}{$eb} kH{$fe}H{$fd}{CBM-S}{CBM-D}{CBM-S}{CBM-P}{CBM-G}{$fd}A{CBM-G}{$fe}B{SHIFT-POUND}A{CBM-O} ({CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O} {CBM-O}{$ed} {$fb}{CBM-G}{CBM-D} {SHIFT--}{$ed}r{CBM-@}~P l{CBM-N}{CBM-X}U,{$f0}a{CBM-D}{$e2}{SHIFT-*}P$ \ _!{SHIFT-POUND}{$60}P \E{$fb} ;! \E{$fc} ;!{SHIFT-POUND}{$ee}Pl{CBM-X} HM{$ee}P{$ee}{$e4}l{CBM-X} {CBM-Z}{CBM-Z}lh{CBM-Z}{$fd}{CBM-Z}{$fe} {CBM-E} H{$fd} Z{$ee}P{$ee}P{$ee}{$e4}{$60}{CBM-Z}{$fd}{CBM-Z}{$fe} {CBM-M}!ME {$f0}{CBM-A} {CBM-M}!MD {$f0}${CBM-A}HH l! {CBM-M}!MG {$f0}{CBM-A}{$eb} {CBM-M}!MF {$f0}{CBM-A}{$de}{$60} {CBM-E}{CBM-E}{$fd} Z{$60} S Ib{$f0}IkP{CBM-I},{CBM-I} S Io{$f0}Ii{$f0}l{$ef} S IuP{$f6} S It R~{SHIFT-POUND}? R~ A&lr{CBM-Z}{$f0} ml{CBM-@} {CBM-I} {CBM-E}ZHI"{$f0}I {$f0}{$f5}P{CBM-E}ZI"{$f0}U{$e8}H {$f1}l{$ef}EZ{$e6}{$7b}Z MP{$ee}S{$60}{SHIFT-POUND}{CBM-POUND}{CBM-S}T {SHIFT-@}~{CBM-Z}S{CBM-I}U l{CBM-X}~{SHIFT-POUND}{$e4} N{$e4}{$f8}NS S {$f0} I( S J({$60}{SHIFT-POUND}0I({SHIFT-POUND}1J({$60} S {$f0}{CBM-POUND} I{CBM-A}{CBM-K}h S {$f0} I{$f0}~H{CBM-I}*JP{$fb}~I -& {CBM-S}SU{$e8}U{$e8}{SHIFT-POUND} U{$e8}S{$60} S I,{$60} Hll{$ef}{CBM-Z}{CBM-Z}HH{SHIFT-POUND} {$e4} m [& x& ! l {CBM-W} {$fd} 2 {$e1}~{$f0}{CBM-Z}{$e4}P{CBM-Z}MV{$f0}{CBM-A} {CBM-Z}MJ{$f0}Hlr{SHIFT-POUND}{$60}P{SHIFT-POUND} {$e9} \h Y{$ea}{$f0}{$f8}0{$e9}{SHIFT-POUND}{$ee}PH{CBM-POUND}jj{CBM-A})j{CBM-N}{CBM-X},{CBM-A}jjjj)P {SHIFT-POUND} {CBM-N}{CBM-X}[,{$e3}){$e2}){CBM-N} {$f0}jjj P{$fa}HP{$f2}{$60}h{CBM-S}{$e2} x& \ J{$f4}{CBM-Z}{$e2}M{$e2}~{SHIFT-POUND}{$e5}~{CBM-N}{CBM-Z}{$e2}i~)~E~{CBM-N}{CBM-Z}{$e2}IP{CBM-E}{$fb}Q{$fd}P={CBM-Z}{$f0}!P {$e1}~{$f0}*{CBM-Z}{$e4}P%{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}MS{$f0}{CBM-A}{CBM-G}{$fb}MH{$f0}F Z A&lr Z{CBM-G}{$fc} {CBM-G}{$fb} x& {CBM-E} {$f0}{CBM-D}l{$ef}{SHIFT-POUND}ol{CBM-T} {SHIFT-POUND}Q{SHIFT-POUND}{$60}{SHIFT-+} J{SHIFT-POUND} {SHIFT-+}{CBM-S} VxhX{SHIFT-POUND}{CBM--}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-S}{$fe}~{SHIFT-POUND}~~{SHIFT-POUND}?{CBM--}{SHIFT-POUND} {CBM--}{SHIFT-POUND}{CBM--} {CBM-E}H(L{CBM-Z} {CBM--}{CBM-G}EI'{$f0}j ;{SHIFT-POUND}~{SHIFT-POUND}{$ea} a {CBM-I}H{$7d}J{$f9}{SHIFT-@}{CBM-I} {CBM-X}{$7d} y{$e8}{CBM-X}{$7d} y {$ef}{CBM-S}{CBM-I} {CBM-X}{$7d}h *jJ {CBM-Z}{$fb}{$fd}{CBM-Z}{$fc}{$fe} o {CBM-G}ZI(l(({CBM-A}6 {CBM-E} {CBM-Z}{$fb} Z{$e6}{$fb}P{$de}{$e6}{$fc}PZ r{CBM-G}{$fd}{CBM-G}{$fe}{SHIFT-POUND} R~ R~ A&l rl{$ef}{SHIFT-POUND},{SHIFT-POUND}{$60}g{$60} l{$ef}{CBM-I} V{CBM-Z}{$e4}{$fb}{CBM-Z}{$e5}{$fc} S Plr{$f6}{$e8} P{$f0}J0{CBM-X}{$f6}8{$e9}? jNVNUP{$f6}{$f0}{$e9}{CBM-I} S {$f0} 8 {CBM-A} # {CBM-D}D E D {SHIFT-POUND}0U{$e8}U{$e8}P{$de}G {CBM-I} I {$e9}{CBM-I} F {CBM-Z}I y{CBM-S}{$e3}H {CBM-N}MT{$f0}R Zlr{CBM-G}{$fb}h{CBM-G}{$fc}h{CBM-Z}{$fb}{CBM-Z}{$fc}HH{CBM-G}{$fb}8{$ed}~{CBM-A}{CBM-@}{$fc}{$f0}B,{CBM-G}{$fc}8{$ed}wh{CBM-G}~E{$fd}{$e6}{$fe}{$f0}k{$fd}HE{$fe}{CBM-A}c{$fe} {CBM-E} {CBM-E}{$fb}{$fd}F{$fb}{CBM-G}{$fb}I~PF{$fc}{CBM-G}{$fc}I~{$f0}"F{$fd}{CBM-G}{$fd}I~PF{$fe}{CBM-G}{$fe}I~{$f0}{CBM-G}{$fc}M{$f0}{CBM-A}Q{CBM-G}{$fb}M{CBM-A}J Zlrl{$ef} {CBM-A}G{CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-A}x S {$f0} h S {$f0}j ~H{CBM-I}*JP{$fb}~,{SHIFT-POUND} ~ {$e4} {CBM-E}{CBM-G}~{$fb}{CBM-Z}{$e4}P{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{CBM-G}{$fc}M{$e5}{$f0}{CBM-A}{CBM-G}{$fb}MZ{$f0}X{CBM-Z}D {CBM-D}E 8{$ed}{$e4}K {$ed}{$e5}{CBM-POUND} K ~{CBM-Z}E M{$e5}{$f0}{CBM-A}{CBM-Z}D M{$e4}{$f0}{CBM-A}{CBM-D}K GD {$60}{CBM-@}~0{CBM-X}D {$60} J S J 8{$60}I0Ig{$60}8{$60} d K {CBM-S}F {SHIFT--}U{$f0} HH{$ee}I {$f0}lNl{$ef}{$e8}F {CBM-S}K {$60} {SHIFT-POUND} ~ {CBM-F}# &{CBM-I}{CBM-X}hJ{$f9} {CBM-A}j{CBM-Z}D {CBM-Z}E {CBM-A}9{CBM-Z}F {CBM-Z}G {CBM-I} H{$e8} {$f7}{CBM-G}{$fd}{$fb}{CBM-G}{$fe}{$fc} S IwP{$e6}~{CBM-Z}{$e4}P{CBM-Z}M{$f0}{CBM-A} l{$ef}{CBM-Z}M{$f0}l {$7e} {$e1}~{$f0}{CBM-Z}{$e4}P{CBM-Z}MZ{$f0}{CBM-A} {CBM-Z}MN{$f0}Llr{SHIFT-POUND}: R~lx&{CBM-Z} R~ R~{CBM-Z} R~lR~{SHIFT-POUND} x& \{CBM-D}o{$f0}{$f5}{$ee}o NP{$e7}lA&{CBM-Z}{$fd}{CBM-Z}{$fe} {CBM-E} {CBM-E}{$fd} Z{$ee}P{$ee}P{$ee}{$e4}{$60}{CBM-G}R{$fc})X{$7b}{CBM-G}Q8{$e9}({CBM-A}F{$fc}F{$7b}{$fb}Z {CBM-I} {CBM-X}{$f6}{$fb}{CBM-Z}ZH{$e8} {$f0}{SHIFT-POUND}o{$60}h{CBM-Z}{$ef}!{$f0}{CBM-G}){$fe}P{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-Z}{$f0}!{$f0}X{CBM-G}){$fd}P{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}H{$60}h{CBM-G}Hx{$60} X{CBM-Z}J{CBM-Z}KU{CBM-Y}{SHIFT-POUND}U{CBM-F}{SHIFT-POUND}{CBM-C}{CBM-Z}M-{SHIFT-@}{SHIFT-POUND}{$60}{CBM-O} ({CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O} G{$ed}{SHIFT-POUND} ~ {$ee}{$fb} {$ee}{$fc}{CBM-@}P7{CBM-@}~P{$eb}{CBM-+}{$fb}{CBM-G}{$fc} M{CBM-X} x& {$ee}{CBM-+}P!I {$f0} R~ {$e1}~{$f0} {$e4}~I P{$e6} {$e4}~{$f0}{$fb}P{CBM-*} A& P{CBM-O} b{$f6} A&lr{CBM-I}{$7f} - D# {$fd}' & &lr (S ^ D(l{CBM-L}({CBM-I}X -lu# {CBM-F}# e%~ % {CBM-E}{$fd} Z{$e6}{$fd}P{$e6}{$fe}{CBM-Z}{$e4}P {$e1}~{$f0}{CBM-Z}M{SHIFT-+}{$f0}{CBM-A} {CBM-Z}MO{$f0}Ml{$e8}$l{$ef}{SHIFT-POUND} {CBM-A}{$f3}{CBM-Z}h{CBM-Z}hNP{$ee}H{$fe}H{CBM-G}{CBM-Z} {SHIFT--}{$ed} Q{$fc} {CBM-E} {CBM-E}{CBM-D} Z {SHIFT--}{$ed} {$e1}~{$f0}({CBM-A} {SHIFT-+}{$fc}P{$e2} {$fe}{$ed} b{$f6}lr S I0Pp S IfI{CBM-A}bT{SHIFT-POUND} ~ MP {CBM-A}1{CBM-Z}{$fb}{CBM-Z}{$fc}{$e6}~ k{SHIFT-POUND} {SHIFT-POUND}{$60}{CBM-O} ({CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O} G{$ed}{CBM-G}~{$f0} {$ee} {$ee}ll{$ef} {$ee}{$fb}{CBM-G}jj{CBM-A}/ {$ee}{$fc}{SHIFT-POUND}{$fd}% {$e1}~{$f0} {$ee}{CBM-N}{CBM-G}jj{CBM-A}{$eb} {CBM-E} {$fb} Z{$e6}{$fb}P{$e6}{$fc}$pV {$ef}{$ed} b{$f6}{CBM-+}{$fb}{CBM-@}{$fc}-.lr {CBM-Z}{$7d}{CBM-Z}{$7e} {CBM-E}{CBM-Z}{$f0}!{$f0}$ {CBM-E}{SHIFT-POUND}{$fe}{$fe}~{SHIFT-POUND}~~{CBM-S}P{$ef}{SHIFT-POUND}P S InP{$e4}{SHIFT-POUND} {$ef}!lr S {$f0}FI${$f0}E{CBM-I} {$f6}{$f7} Y {CBM-A}9{$e9}/~{CBM-Z}{$f7}"{CBM-Z}{$f6} &" &"M{$f6}{$f6}{CBM-G}"M{$f7}{$f7}{$f6}.{$f7}{CBM-Z}{$f6}E~{$f6}{$ee}{$f7} S l" x&{SHIFT-POUND}$ R~{CBM-I}{CBM-X}{$f6}J{$f7} ! A&lrl{$ef} {CBM-A}{$f8}{CBM-Z}C{CBM-Z}B x& Q{CBM-X} A&lr S Pl{$e2}{$fc}l{$ef}X{SHIFT-POUND}{$7c}{SHIFT-POUND}{CBM-G}{SHIFT-POUND}F{SHIFT-POUND}{$fe}{SHIFT-POUND}{SHIFT-POUND}{CBM-@}{SHIFT-POUND}1{SHIFT-POUND}{$ea}xlT{CBM-@} SH S {$f0}I"{$f0}UH{SHIFT-*}{$ef}l{$ef}{CBM-Z}SP{$ee}SP{$e2}{SHIFT-POUND}$ hX {$ed}x{CBM-G}hH){$f0}Hlhh{CBM-Z}P X {$f8}x{SHIFT-POUND} {$e4}{CBM-Z}Q{$f0}X{SHIFT-POUND}{CBM--}{SHIFT-POUND}b{CBM--}{SHIFT-POUND}{CBM--}x{SHIFT-POUND} Q ; ql_{CBM-I} {CBM-X}x{$f0} R~{$e8}P{$f5}{$60}{SHIFT-POUND}{$ea}L{CBM-I}H{$7d}J{$f9}{SHIFT-@}{CBM-I} {CBM-X}{$7d} {$e8}{CBM-X}{$7d} x& L {$ef} A&lr R~lR~ JNH{SHIFT-*}P{$f6}NP{$f9}0I:I{CBM-POUND}{CBM-Z}0I:I{CBM-D}{$60}{$ea}{CBM-Z}K {CBM-Z}J {SHIFT-POUND} R~{SHIFT-POUND}{$60}L{$60}{SHIFT-POUND} {$ef}!{$f0}!{$60}{SHIFT-POUND}{SHIFT-POUND}){$60} , 140, 169 {$eb}( 133, 133, 139, 177, 139, 240 ) 10, 32, 232, 104, 200, 238 1) 244, 2, 76, 121, 106, 169 t) 1, 141, 237, 2, 76, 24 W)* 103, 173, 237, 2, 208, 5 )4 169, 34, 32, 232, 104, 169 {CBM-X})> 0, 32, 232, 104, 32, 21255, 165, 247, 32, 54, 106 'V 32, 210, 255, 96, 74, 74 $' 74, 74, 24, 105, 48, 201 g' 58, 176, 1, 96, 24, 105 J' 7, 96, 10, 10, 10, 10 ' 32, 38, 106, 96, 32, 125 {CBM-A}'{CBM-POUND} 105, 32, 142, 105, 169, 153 S'{CBM-R} 32, 232,N1 29, 29, 29, 29, 29, 29 {$f1}1 29, 67, 82, 69, 65, 84 2 73, 78, 71, 32, 80, 82 72{CBM-N} 73, 78, 84, 32, 83, 84 z2{CBM-H} 65, 84, 69, 77, 69, 78 {$7d}2{CBM-V} 84, 13, 13, 29, 29, 29 2H 29, 29, 29, 29, 29, 29 C2R 29 9, 240, 7 {$f4}$ 32, 232, 104, 200, 76, 196 %{$ea} 105, 169, 0, 32, 232, 104 :%{$f4} 32, 216, 105, 96, 173, 240 ]%{$fe} 2, 133, 141, 173, 241, 2 % 133, 142, 162, 0, 165, 113 {CBM-T}% 129, 141, 230, 141, 165, 114 F% 129, 141, 96, 169, 0, 184, 65, 84, 69 {$e4}/ 77, 69, 78, 84, 13, 40 0 18, 82, 69, 84, 85, 82 *0 78, 146, 32, 70, 79, 82 m0 32, 49, 48, 48, 48, 48 P0( 41, 63, 32, 0, 13, 13 02 76, 73, 78, 69, 32, 78 {CBM-L}0< 85, 77, 66, 69, 156, 108, 141, 156, 108, 76 #t 70, 105, 24, 105, 48, 141 -#^ 158, 108, 96, 165, 113, 141 p#H 240, 2, 165, 114, 141, 241 S#R 2, 32, 232, 104, 32, 232 #{$7c} 104, 96, 173, 242, 2, 32 {CBM-O}# 232, 104, 173, 243, 2, 32 {CBM--}# 232, 104 W-J 40, 72, 47, 68, 41, 63 {$fa}-T 0, 13, 13, 83, 84, 65 .{$7e} 82, 84, 73, 78, 71, 32 @. 77, 76, 32, 76, 79, 67 C. 65, 84, 73, 79, 78, 63 . 32, 0, 13, 13, 69, 78 {SHIFT-POUND}.{CBM-+} 68, 73, 78, 71, 32, 77 L.{CBM-A} 758, 240, 6 {$fd} {CBM-V} 141, 166, 108, 76, 1, 105 !H 169, 48, 141, 166, 108, 169 c!R 1, 24, 109, 165, 108, 141 F!{CBM--} 165, 108, 76, 1, 105, 24 !{$e6} 105, 48, 141, 167, 108, 96 {CBM-D}!{$f0} 169, 48, 141, 156, 108, 141 O!{$fa} 157, 108, 141, 158, 108, 84, 69, 82, 34 {$ed}+{$de} 32, 13, 13, 32, 32, 32 ,{$e8} 32, 32, 32, 32, 32, 18 3,{$f2} 32, 40, 67, 41, 32, 49 v,{$fc} 57, 56, 52, 32, 66, 89 Y, 32, 78, 79, 69, 76, 32 , 78, 89, 77, 65, 78, 32 {CBM-B}, 13, 13, 13, 31,9, 29, 29, 29 {SHIFT-+}3" 29, 29, 29, 29, 29, 29 {$fe}3, 29, 29, 32, 0, 4, 68 !46 72, 13, 20, 12, 48, 49 d4@ 50, 51, 52, 53, 54, 55 G4j 56, 57, 13, 20, 18, 48 4t 49, 50, 51, 52, 53, 54 {CBM-Z}4^ 55, 56, 57, 65, 6 )h 105, 169, 0, 32, 232, 104 *r 169, 0, 32, 232, 104, 96 &*\ 173, 237, 2, 208, 5, 169 i*F 34, 32, 232, 104, 169, 0 L*P 141, 236, 2, 32, 232, 104 *Z 32, 216, 105, 96, 169, 34 {CBM-R}* 32, 232, 104, 169, 59, 32 U* 2 104, 169, 34, 32 {$f6}'{CBM-C} 232, 104, 96, 32, 194, 106 (F 32, 62, 106, 165, 254, 10 <(P 144, 15, 169, 18, 32, 232 _(Z 104, 169, 34, 32, 232, 104 ({$e4} 169, 34, 32, 232, 104, 198 {CBM-G}({$ee} 113, 208, 2, 198, 114, 160 H({$f8} 1, 169, 108, 133, 29, 70, 82, 79, 77 {$e6}2{CBM--} 32, 65, 68, 68, 82, 69 3{$e6} 83, 83, 32, 32, 32, 32 ,3{$f0} 32, 32, 0, 19, 17, 17 o3{$fa} 17, 17, 17, 17, 17, 17 R3 17, 17, 17, 29, 29, 29 3 29, 29, 29, 29, 29, 29 {CBM-U}3 29, 29, 241 {$e9}%& 245, 2, 141, 244, 2, 141 &0 237, 2, 169, 108, 133, 140 /&: 169, 59, 133, 139, 32, 137 r&d 103, 165, 248, 32, 38, 106 U&n 32, 210, 255, 165, 248, 32 &x 54, 106, 32, 210, 255, 165 {CBM-F}&B 247, 32, 38, 106, 32, 210 {$de}&L 82, 32 Y0f 73, 78, 67, 82, 69, 77 {$fc}0p 69, 78, 84, 32, 13, 40 1z 18, 82, 69, 84, 85, 82 b1D 78, 146, 32, 70, 79, 82 E1N 32, 49, 48, 41, 63, 32 1X 0, 147, 17, 17, 17, 17 {CBM-Q}1 17, 17, 17, 17, 17, 29 , 24, 173, 246, 2 ~# 109, 242, 2, 141, 242, 2 "${CBM-@} 173, 247, 2, 109, 243, 2 e${CBM-S} 141, 243, 2, 96, 32, 243 H${CBM-U} 104, 32, 56, 105, 32, 125 $B 105, 32, 142, 105, 160, 0 {CBM-S}$L 169, 108, 133, 140, 169, 151 Q$V 133, 139, 177, 136, 32, 76, 79, 67, 65 {$ef}.{SHIFT-@} 84, 73, 79, 78, 63, 32 /D 0, 13, 13, 76, 73, 78 5/N 69, 32, 78, 85, 77, 66 x/X 69, 82, 32, 70, 79, 82 {$7b}/{$e2} 32, 70, 73, 82, 83, 84 /{$ec} 32, 80, 82, 73, 78, 84 A/{$f6} 32, 83, 166 {$f2}! 247, 232, 169, 0, 202, 240 " 43, 24, 105, 1, 201, 10 8" 240, 3, 76, 72, 105, 169 ["" 1, 24, 109, 157, 108, 201 {$7e}", 58, 240, 6, 141, 157, 108 {CBM-K}"6 76, 70, 105, 169, 48, 141 D"@ 157, 108, 169, 1, 24, 109 {$e7}"j 87, 73 {$e2},$ 76, 76, 32, 89, 79, 85 -. 32, 69, 78, 84, 69, 82 (-8 32, 76, 79, 67, 65, 84 k-b 73, 79, 78, 83, 13, 32 N-l 73, 78, 32, 72, 69, 88 -v 32, 79, 82, 32, 68, 69 {CBM-H}-{$60} 67, 73, 77, 65, 76, 3266, 67 P4H 68, 69, 70, 13, 20, 34 {$f3}4R 199, 40, 51, 52, 41, 199 5{$7c} 40, 51, 52, 41, 199, 40 95 50, 48, 41, 34, 0, 151 \5 50, 48, 57, 44, 48, 54 {$7f}5 48, 58, 151, 50, 49, 48 {CBM-I}5{CBM-@} 44, 48, 48, 51, 58, 151 E32, 104, 169, 0, 32, 232 {$f8}* 104, 32, 216, 105, 96, 147 +{CBM-I} 32, 32, 142, 32, 32, 32 >+{CBM-D} 32, 151, 18, 32, 77, 65 A+{CBM-L} 67, 72, 73, 78, 69, 32 +{SHIFT-*} 76, 65, 78, 71, 85, 65 {CBM-M}+J 71, 69, 32, 34, 80, 82 J+T 73, 78, , 169, 108, 133, 140, 32 ,{$f0} 151, 103, 173, 192, 2, 208 o{$fa} 21, 169, 49, 141, 192, 2 R 32, 210, 255, 169, 48, 141 193, 2, 32, 210, 255, 169 {CBM-U} 2, 141, 168, 2, 32, 24 {SHIFT-+}" 104, 173, 171, 2, 141, 246 {$fe}, 2, 173, 17 145, 141, 136, 16, 251, 96 173, 168, 2, 170, 169, 0 ? 141, 170, 2, 141, 171, 2 B$ 141, 172, 2, 169, 192, 133 . 141, 169, 2, 133, 142, 172 {CBM-POUND}8 170, 2, 177, 141, 72, 14 Kb 171, 2, 46, 172, 2, 173 {$ee}l 171, 133, 140 z 169, 5, 141, 167, 2, 32 bD 151, 103, 173, 192, 2, 208 EN 39, 169, 49, 141, 192, 2 X 32, 210, 255, 169, 48, 32 {CBM-Q} 210, 255, 141, 193, 2, 32 N 210, 255, 141, 194, 2, 32 {$f1} 210, 255, 141, 195, 2, 32 76, 180, 103 Z 201, 20, 240, 54, 201, 13 2 208, 15, 168, 165, 197, 201 u 64, 208, 250, 162, 0, 202 X 138, 208, 252, 152, 96, 172 {CBM-I} 168, 2, 170, 173, 167, 2 {CBM-V}{CBM-D} 205, 168, 2, 240, 195, 138 {$e1}{CBM-L} 32, 210, 255, 145, 1410, 133, 139, 169, 107, 133 5N 140, 32, 137, 103, 173, 254 xX 2, 208, 22, 169, 114, 133 {$7b}{$e2} 139, 169, 108, 133, 140, 169 {$ec} 4, 141, 167, 2, 32, 151 A{$f6} 103, 32, 114, 104, 76, 188 {$e4} 101, 169, 101, 133, 139, 169 108, 133, 1{$e4} 114, 133, 46, 133, 48, 133 %{$ee} 50, 169, 0, 133, 51, 133 h{$f8} 53, 133, 54, 133, 55, 169 K 128, 133, 56, 133, 52, 169 1, 133, 43, 169, 8, 133 {CBM-E} 44, 169, 147, 32, 210, 255 T 96, 160, 0, 177, 139, 240 {$f7}* 7, , 165, 254, 24 x 105, 128, 32, 232, 104, 238 ;B 244, 2, 238, 236, 2, 230 ^L 247, 208, 2, 230, 248, 173 V 250, 2, 197, 247, 173, 251 {CBM-@} 2, 229, 248, 176, 6, 32 G 143, 106, 76, 91, 103, 173 {$ea} 236, 2, 201, 255, 20172, 2, 238 170, 2, 202, 208, 190, 96 ){CBM-+} 173, 195, 2, 208, 26, 173 l{CBM-A} 194, 2, 141, 195, 2, 173 O{SHIFT-@} 193, 2, 141, 194, 2, 173 D 192, 2, 141, 193, 2, 169 {CBM-J}N 48, 141, 192, 2, 76, 114 XX 104, 169, 0, 141, 170,B 21, 173, 245, 2, 201, 1 .L 208, 32, 169, 146, 32, 232 qV 104, 206, 245, 2, 238, 244 T 2, 76, 222, 102, 173, 245 {$ea} 2, 201, 1, 240, 11, 169 {SHIFT-@}{$f4} 18, 32, 232, 104, 238, 245 {SHIFT--}{$fe} 2, 238, 244, 2, 165, 254 10, 10, 13, 173, 2, 168, 173 2 170, 2, 201, 3, 240, 13 6< 152, 141, 172, 2, 238, 170 yf 2, 172, 170, 2, 76, 160 {$7c}p 104, 152, 141, 171, 2, 96 z 56, 233, 48, 201, 16, 144 BD 2, 233, 7, 96, 162, 0 {$e5}N 129, 112, 2, 141, 247 !6 2, 32, 6, 104, 169, 8 d@ 133, 114, 169, 1, 133, 113 Gj 169, 0, 141, 0, 8, 141 t 244, 2, 141, 245, 2, 141 {CBM-Z}^ 237, 2, 141, 236, 2, 173 PH 253, 2, 133, 248, 173, 252 {$f3}R 2, 133, 247, 173, 2 2, 172, 172, 2, 14 v 171, 2, 46, 172, 2, 14 4{$60} 171, 2, 46, 172, 2, 24 wJ 109, 171, 2, 141, 171, 2 ZT 152, 109, 172, 2, 141, 172 {$7e} 2, 104, 56, 233, 48, 24 {SHIFT-*} 109, 171, 2, 141, 171, 2 {$e3} 144, 3, 238, 210, 255, 141, 196, 2, 169 7{CBM-N} 5, 141, 168, 2, 32, 24 z{CBM-H} 104, 173, 171, 2, 141, 248 {$7d}{CBM-V} 2, 173, 172, 2, 141, 249 H 2, 32, 6, 104, 169, 196 CR 133, 139, 169, 107, 133, 140 {$e6}{CBM--} 32, 137, 103, 169, 101, 133 {$e6} 139, 238 {SHIFT-*} 168, 2, 165, 197, 201, 64 'J 240, 250, 160, 0, 136, 208 jT 253, 76, 164, 103, 172, 168 M{$de} 2, 240, 167, 206, 168, 2 {$e8} 32, 210, 255, 76, 234, 103 {CBM-W}{$f2} 160, 15, 169, 2, 133, 142 V{$fc} 169, 192, 133, 141, 169, 0 {$f9}40, 169, 5, 141 * 167, 2, 32, 151, 103, 32 m 24, 104, 173, 171, 2, 141 P ( 250, 2, 173, 172, 2, 141 2 251, 2, 32, 6, 104, 169 {CBM-L} < 133, 133, 139, 169, 107, 133 Y f 140, 32, 137, 103, 169, 101 {$fc} p 133, 139, 169, 108, 32, 210, 255, 200, 76 4 139, 103, 96, 169, 0, 141 => 168, 2, 169, 192, 133, 141 {$60}h 169, 2, 133, 142, 160, 0 r 177, 139, 141, 169, 2, 32 {CBM-+}\ 159, 255, 32, 228, 255, 172 IF 169, 2, 209, 139, 240, 6 {$ec}P 136, 240, 233,8, 6 32, 172, 106, 76, 149, 102 0{CBM-POUND} 173, 244, 2, 201, 57, 144 s{CBM-R} 11, 32, 194, 106, 32, 62 V{CBM-C} 106, 169, 0, 141, 244, 2 F 76, 169, 102, 230, 113, 208 {CBM-C}P 2, 230, 114, 165, 113, 133 {CBM-*}Z 45, 133, 47, 133, 49, 165 2 {$fb}{$e2} 169, 192, 133, 141, 169, 2 {$ec} 133, 142, 160, 0, 177, 141 a{$f6} 141, 174, 2, 238, 170, 2 D 172, 170, 2, 177, 141, 168 173, 174, 2, 72, 152, 32 {CBM-N} 222, 104, 141, 173, 2, 104 M 32, 222, 104, 10, 10, 10 {$f0}( 74, 201, 34, 208, 6 # 76, 79, 106, 76, 24, 103 f 133, 254, 10, 10, 176, 16 I& 10, 144, 5, 165, 254, 76 0 18, 103, 165, 254, 24, 105 {CBM-P}: 64, 76, 18, 103, 10, 144 Rd 8, 165, 254, 24, 105, 64 {$f5}n 76, 18, 1033, 230, 113, 208, 2 X 230, 114, 96, 169, 48, 141 + 165, 108, 141, 166, 108, 141 n 167, 108, 166, 248, 232, 169 Q 0, 202, 240, 43, 24, 105 1, 201, 10, 240, 3, 76 {CBM-Y} {CBM-N} 3, 105, 169, 1, 24, 109 Z {CBM-H} 166, 108, 201, 49, 2 {$7c} 141, 243, 2, 173, 248, 2 9 141, 242, 2, 169, 107, 133 \ 140, 169, 241, 133, 139, 32 {$7f} 137, 103, 32, 174, 105, 32 {CBM-I}{CBM-@} 239, 105, 32, 62, 106, 169 E{CBM-S} 0, 141, 237, 2, 168, 177 {$e8}{CBM-U} 247, 133, 254, 201, 128, 176 9 the transactor volume 5 issue 06 page 56 x ********************** W *** quote killer *** *** by *** {CBM-J} *** gary gunderson *** T ********************** {$f4} i{CBM-R}903{CBM-@}998:a:cs{CBM-R}cs{CBM-N}a: i,a {$fc} i 59 the transactor volume 5 issue 06 page 57 v save"0:gap fill.bas",8 D ** rte/84 - gap filler for spaces left in your directory {SHIFT-*}N "** directory gap filler - rte/84 **" TX "drive type :" "1) 1541/2031/4040 or 2) 8050/8250 "rack and first sector to use 2H ctr{CBM-R}0: lnk{CBM-R}0: z${CBM-R}G(0) UR rp${CBM-R}"": x {CBM-R} 0 {CBM-@} 29: rp${CBM-R}rp${CBM-N}G(0): : ** replacement string {$7b}{CBM--} : {CBM-R}{$e6} 5,8,5,"#": 15,8,15: buffer + command channel {$eb}{$f0} 15,"u1:";5;dr;trk;sec: read dir entry into buffer {$f1}{$fa} : x 1 3, 96, 17, 145, 24, 0 -{CBM-POUND} 12, 139, 227, 0, 23, 173 p{CBM-R} 215, 224, 137, 97, 0, 24 S{CBM-C} 0, 0, 65, 65, 65, 65 , 176, 26, 152 {CBM-D}: 24, 101, 209, 133, 122, 165 Od 210, 105, 0, 133, 123, 32 {$f2}n 121, 0, 142, >>": dir$(ctr){CBM-R}"": 330 $@ a$: ctr{CBM-R}ctr{CBM-N}1 ,j x 2t: w^tl$(lnk){CBM-R}G(trk): sl$(lnk){CBM-R}G(sec) H trk {CBM-M} lnk{CBM-R}lnk{CBM-N}1: 240: ok - go for more R: L{$7c} ** directory completely loaded in - now time to pack ** {$e7}trk{CBM-R}mtrk: sec{CBM-R}1: fin{CBM-R}0 x {CBM-R} 0 {CBM-@} 0, 139, 2, 96, 32 240, 233, 160, 255, 200, 177 c 209, 192, 39, 240, 38, 201 F& 32, 240, 245, 201, 48, 144 0 30, 201, 58, 176, 26, 152 {CBM-D}: 24, 101, 209, 133, 122, 165 Od 210, 105, 0, 133, 123, 32 {$f2}n 121, 0, 142, bhen write Ltrk{CBM-R}F(tl$(x)): sec{CBM-R}F(sl$(x)) 2 V x: 5: 15: $(lnk){CBM-R}G(trk): sl$(lnk){CBM-R}G(sec) H trk {CBM-M} lnk{CBM-R}lnk{CBM-N}1: 240: ok - go for more R: L{$7c} ** directory completely loaded in - now time to pack ** {$e7}trk{CBM-R}mtrk: sec{CBM-R}1: fin{CBM-R}0 x {CBM-R} 0 {CBM-@} 169 {$7c} 0, 141, 146, 2, 76, 159 6 202, 104, 104, 104, 104, 76 y 128, 202, 230, 198, 76, 133 {$7c} 202, 160, 0, 185, 69, 203 {CBM-@} 72, 200, 192, 6, 208, 247 B{CBM-S} 169, 0, 141, 67, 203, 76 {$e5}{CBM-U} 129, 234, 174, 135, 2, 165 B41,249, 3,120,169 . 167,141,143, 2,169, 3,141 p 144, 2, 88, 96,165,203,201 R 57,208, 55,173,141, 2,201 $ 1,240, 22,201, 2,240, 25 {CBM-L}. 201, 4,240, 28,169, 0,133 X8 212,133,216,133,199,141,138 {$fa}b 2, 76,224, 3,169, 1,17 the transactor volume 5 issue 06 page 60 [ * data loader for "print ml" * D cs{CBM-R}0 i{CBM-R} 25856 {CBM-@} 27832: a: i,a ( cs{CBM-R}cs{CBM-N}a: i 2 : U< cs{CBM-W}{CBM-E}203777 {CBM-M}"**** error in data statments ****": {$e1}f 25856 {$e7}p {$ed}D : {$e8} 160, 6, cs{CBM-W}{CBM-E}11893 {CBM-M} "** error in data statements!! **": \( 903:"quote killer activated.": X2 " _ - kills quote mode < " - kills insert mode {CBM-J}f " - kills repeat mode": {CBM-C}p " {$e1}z "shifted _ -enables quote mode D "commdore _ -one char;dt: dt{CBM-W}1 {CBM-A} dt{CBM-E}2 {CBM-M} 130 v mtrk{CBM-R}18: dt{CBM-R}2 {CBM-M} mtrk{CBM-R}39: assign correct directory track W "drive # ";dr: dr{CBM-E}1 {CBM-M} 150 {$7d} : {SHIFT-POUND}{CBM-N} dir$(223): ** max directory entries Y{CBM-H} tl$(27), sl$(27): ** track/sector links {CBM-V} trk{CBM-R}mtrk: sec{CBM-R}1: directory t{CBM-R} 0 {CBM-@} 255 {SHIFT-POUND} 32 6{CBM-K}#5,t$,s$: x {CBM-M} 290: get correct links Atrk{CBM-R}F(t${CBM-N}z$): sec{CBM-R}F(s${CBM-N}z$): link t/s " y {CBM-R} 2 {CBM-@} 31: {CBM-K}#5,a$:dir$(ctr){CBM-R}dir$(ctr){CBM-N}G(F(a${CBM-N}z$)): y {$e2},a${CBM-R}J(dir$(ctr),4,16): F(dir$(ctr)) {CBM-M} 320: if not scratched 6 a$ {CBM-T}17)"<< gap 141, 254 ( 8 2, 76, 55, 101, 141, 254 k b 2, 32, 6, 104, 169, 85 N l 133, 139, 169, 107, 133, 140 v 32, 137, 103, 173, 254, 2 {CBM-H} {$60} 24, 105, 4, 141, 167, 2 W J 201, 5, 240, 7, 169, 114 {$fa} T 133, 139, 76, 93, 101, 169lnk: 15,"b-p:"5;0 2ts${CBM-R}tl$(x){CBM-N}sl$(x): dd${CBM-R}"": link t/s E{CBM-@} y {CBM-R} 0 {CBM-@} 7: a${CBM-R}dir$(fin): fin{CBM-R}{CBM-E}ctr {CBM-M} a${CBM-R}rp$ {CBM-M}{CBM-S}dd${CBM-R}dd${CBM-N}a$: y{CBM-W}7 {CBM-M} dd${CBM-R}dd${CBM-N}G(0){CBM-N}G(0): wasted 2 bytes/entry {SHIFT-@}{CBM-U}fin{CBM-R}fin{CBM-N}1: y {$fd}B5,ts$;dd$;: 15,"u2:";5;dr;trk;sec;: fill buffer t68, 203, 32 x 107, 169, 174, 68, 203, 56 8B 36, 24, 96, 160, 1, 185 [L 0, 3, 153, 65, 203, 136 {$7e}V 16, 247, 169, 117, 141, 0 {CBM-K} 3, 169, 202, 141, 1, 3 D 96, 173, 65, 203, 141, 0 {$e7} 3, 173, 66, 203, 141, {$7e} 101, 133, 139, 169, 108, 133 @ 140, 32, 151, 103, 173, 254 C 2, 201, 1, 208, 6, 32 24, 104, 76, 116, 101, 32 {SHIFT-POUND}{CBM-+} 114, 104, 173, 171, 2, 141 L{CBM-A} 252, 2, 173, 172, 2, 141 {$ef}{SHIFT-@} 253, 2, 32, 6, 104, 169 D 11 206, 32, 19, 234, 96, 165 +L 214, 141, 75, 203, 165, 211 nV 141, 76, 203, 169, 0, 133 Q 211, 96, 174, 75, 203, 134 {$ea} 214, 173, 76, 203, 133, 211 {CBM-Y}{$f4} 32, 108, 229, 160, 0, 132 Z{$fe} 207, 140, 140, 2, 200, 132 {$fd} 205, 14 33 l 212, 76,224, 3,169, 1,133 >v 216, 76,224, 3,169,128,141 {$60}{$60} 138, 2,234,234,234,169, 64 ZJ 133,203,108,248, 3 ate "sys903 to reactivate" {CBM-+}{CBM-N} : H{$e8} 173,144, 2,201, 3,240, 86 {$ea}{$f2} 173,143, 2,141,248, 3,173 {$fc} 144, 2,1 140, 32, 208, 200 3{$f2} 140, 33, 208, 169, 213, 133 v{$fc} 139, 169, 106, 133, 140, 32 Y 137, 103, 169, 108, 133, 140 169, 96, 133, 139, 169, 1 {CBM-B} 141, 167, 2, 32, 151, 103 {$e2}$ 173, 192, 2, 56, 233, 72 . 240, 8, 169, 1, ins mode %N " for delete": iX "ctrl _ -enable repeat for all _ " keys": "run-stop/restore to deactivate "sys903 to reactivate" {CBM-+}{CBM-N} : H{$e8} 173,144, 2,201, 3,240, 86 {$ea}{$f2} 173,143, 2,141,248, 3,173 {$fc} 144, 2,1 8 the transactor volume 5 issue 06 page 51 BD * simple sprite designer * I * run300 to create data statements * {CBM-+}N sp{CBM-R}13 : sprite page DX s{CBM-R}sp{CBM-D}64: sprite position Q 2040,sp {$f3} v{CBM-R}53248:v{CBM-N}21,1: display mob v{CBM-N}39,8 the transactor volume 5 issue 06 page 51 \D * >> easy sprite editor << * N * -use normal editor to draw.* {CBM-@}X * -use "*" to plot points. * H * -press return over "cont:" * {$ec} * to print sprite values. * * aug84 ": i ,"cont:" 0649152: * enable sprite draw 6@ [j* "cont" executes the following {$7e}t49165: * disable sprite draw ^"" {CBM-@}H* print sprite values * {CBM-B}Ri{CBM-R}832{CBM-@}895:B(i)",",: E{$7c} {$e8}{$e8} 120, 169, 37, 141, 20, 3 {$f2} 169, 192, 1 0 : set increment for 160 point plot =.pf{CBM-R}2 : initialize plotting flag V8 pf=0 ... last point calculated was plotted o.k. {CBM-P}b pf=1 ... last point calculated was out of range {$e5}l pf=2 ... last point calculated was undefined vx{CBM-R}xi 32, 101 #b 192, 173, 34, 192, 157, 64 fl 3, 169, 8, 141, 36, 192 Iv 206, 35, 192, 208, 10, 169 {$60} 3, 141, 35, 192, 169, 24 {CBM-P}J 141, 36, 192, 165, 251, 24 RT 109, 36, 192, 133, 251, 144 {$f5}{$7e} 2, 230, 252, 232, 224, 64 7 the transactor volume 5 issue 06 page 52 [ * data loader for "scroller" * D cs{CBM-R}0 i{CBM-R}51456 {CBM-@} 52049: a: i,a ( cs{CBM-R}cs{CBM-N}a: i 2 : R< cs{CBM-W}{CBM-E}73817{CBM-M}"**** error in data statments ****": {$de}f 51456 {$e4}p {$ea}D : {$e8} 120, 173, 205, 141 % 8 67, 203, 160, 5, 104, 153 h b 69, 203, 136, 16, 249, 160 K l 73, 169, 201, 72, 152, 72 v 8, 72, 72, 72, 76, 49 {CBM-E} {$60} 234, 164, 198, 240, 13, 185 T J 118, 2, 162, 1, 221, 60 {$f7} T 203, 240, 6, 202, 16, 248 11, 181, 217, 16, 247 2N 32, 229, 202, 144, 242, 176 uX 6, 169, 255, 133, 20, 133 X{$e2} 21, 32, 19, 166, 164, 95 {$ec} 228, 44, 208, 7, 196, 43 {CBM-V}{$f6} 208, 3, 76, 156, 202, 202 {$e1} 228, 44, 176, 5, 166, 44 164, 43, 136,, 24 z 181, 217, 48, 5, 162, 23 ?D 32, 255, 233, 162, 0, 32 BN 104, 233, 165, 217, 9, 128 X 133, 217, 169, 39, 133, 213 {CBM-POUND} 162, 1, 142, 146, 2, 202 K 134, 214, 32, 240, 233, 76 {$ee} 85, 202, 162, 25, 202, 48 20, 208, 2, 230, 21 ){$f0} 32, 19, 166, 165, 218, 48 l{$fa} 9, 9, 128, 133, 218, 162 O 1, 32, 255, 233, 162, 24 134, 214, 32, 240, 233, 104 {CBM-J} 48, 3, 32, 210, 255, 160 X" 1, 177, 95, 240, 37, 141 {$fb}, 64, 203, 169, 1:v,25:v{CBM-N}1,51 % i{CBM-R}0{CBM-@}7:e(7{CBM-Q}i){CBM-R}2{CBM-S}i: f{CBM-G} 650,128: repeat all keys l{CBM-N} : F{CBM-H} i{CBM-R}1{CBM-@}21:a$:j{CBM-R}1{CBM-@}24{SHIFT-POUND}8 {CBM-V} v{CBM-R}0:k{CBM-R}0{CBM-@}7:J(a$,j{CBM-N}k,1){CBM-W}{CBM-E}"." {CBM-M} v{CBM-R}v{CBM-N}e(k) {CBM-D}H k: s,v:s{CBM-R}s{CBM-N}1:j,i {CBM-R}R {CBM-U}{CBM--} : I,a{CBM-E}20{CBM-M}1000{CBM-Q} 6""1000{CBM-N}a"data"G(34)"........................ --cz-- * : 3{CBM-N} i{CBM-R}49152{CBM-@}49278:a:i,a: 9R : ^{CBM--} * display sprite #13 (at 832) * L{$e6} v{CBM-R}13{CBM-D}4096 Y{$f0} 2040,13 {$fa} v,30: v{CBM-N}1,100: v{CBM-N}16,1 {CBM-S} v{CBM-N}21,1: v{CBM-N}39,1 {CBM-H}: O* print design grid * """;:i{CBM-R}1{CBM-@}21:"........................41, 21, 3, 88 .{$fc} 96, 120, 169, 49, 141, 20 q 3, 169, 234, 141, 21, 3 T 88, 96, 128, 64, 32, 16 8, 4, 2, 1, 0, 0 {SHIFT-@}$ 3, 169, 0, 133, 251, 169 {SHIFT--}. 4, 133, 252, 162, 0, 169 8 3, 141, 35, 192, tn {CBM-Q} dx : initialize x {$60} hires,1,0,1,0,1 4J dmode,1: selpc,1 >T 200 inimum value for y {$7d}yax{CBM-R} 3.0 : maximum value for y {CBM-D}sx{CBM-R}160{CBM-Z}(xax{CBM-Q}xin) : scale in x direction {SHIFT-+}sy{CBM-R}200{CBM-Z}(yax{CBM-Q}yin) : scale in y direction $dx{CBM-R} (xax{CBM-Q}xin){CBM-Z}16 {CBM-C} 208, 210, 76, 49, 234, 169 ; 0, 141, 34, 192, 160, 7 ^ 177, 251, 201, 42, 208, 9 {CBM-+} 185, 26, 192, 13, 34, 192 {CBM-@}{CBM-A} 141, 34, 192, 136, 16, 238 {CBM-S}{SHIFT-@} 96 , 169 {SHIFT--}. 4, 133, 252, 162, 0, 169 8 3, 141, 35, 192, , 3, 141, 43 0{$f2} 201, 173, 21, 3, 141, 44 s{$fc} 201, 169, 201, 141, 21, 3 V 169, 30, 141, 20, 3, 169 0, 141, 67, 203, 88, 96 {CBM-C} 44, 67, 203, 16, 3, 76 {CBM-*}$ 126, 234, 165, 157, 48, 3 . 76, 49, 234, 169, 25{$7e} 76, 159, 202, 165, 214, 221 = 62, 203, 240, 3, 76, 159 {$60} 202, 142, 77, 203, 32, 178 202, 32, 25, 203, 32, 187 {CBM-+}{CBM-+} 202, 198, 198, 174, 77, 203 I{CBM-A} 224, 0, 208, 3, 76, 4 {$ec}{SHIFT-@} 202, 162, 255, 232, 224, 25 D 240, 134, 64, 132 ' 63, 160, 0, 177, 63, 240 j 6, 200, 208, 249, 76, 156 M ( 202, 200, 177, 63, 197, 95 2 208, 243, 200, 177, 63, 197 {CBM-W} < 96, 208, 236, 136, 152, 24 V f 101, 63, 133, 95, 165, 64 {$f9} p 105, 0, 133, 96, 162 11, 181, 217, 16, 249, 32 4{CBM-N} 229, 202, 144, 244, 176, 9 w{CBM-H} 169, 255, 133, 20, 133, 21 Z{CBM-V} 72, 208, 21, 224, 24, 208 H 4, 169, 13, 208, 245, 224 {SHIFT-*}R 23, 208, 5, 232, 181, 217 {$e3}{CBM--} 16, 243, 169, 255, 208, 232 {$e6} 230, 0, 145, 95 6 132, 15, 165, 95, 133, 63 a@ 165, 96, 133, 64, 169, 255 Dj 133, 20, 133, 21, 76, 215 t 166, 224, 11, 240, 26, 173 {CBM-N}^ 64, 203, 160, 1, 145, 63 MH 169, 13, 32, 210, 255, 32 {$f0}R 202, 202, 32, 47, 203, j"G(34) @a{CBM-R}a{CBM-N}1:"a="a":goto300" bj198,3:631,19:632,13:633,13: rite designer * I * run300 to create data statements * {CBM-+}N sp{CBM-R}13 : sprite page DX s{CBM-R}sp{CBM-D}64: sprite position Q 2040,sp {$f3} v{CBM-R}53248:v{CBM-N}21,1: display mob v{CBM-N}39, "": 53280,5: 53281,1 a B(49152){CBM-W}{CBM-E}76 {CBM-M} "hires",8,1 gA : BB initialize variables HC : {CBM-S}D hires{CBM-R}12{CBM-D}4096:draw{CBM-R}hi{CBM-N}3:plot{CBM-R}dr{CBM-N}3:move{CBM-R}pl{CBM-N}3:clscr{CBM-R}mo{CBM-N}3:dmode{CBM-R}cl{CBM-N}3 {$fb}N selpc{CBM-R}dm{CBM-N}3:colour{CBM-R}se{CBM-N}3:box{CBM-R}co{CBM-N}3:text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3:chset{CBM-R}pr{CBM-N}3:trap{CBM-R}ch{CBM-N}3 "": 53280,5: 53281,0 a B(49152){CBM-W}{CBM-E}76 {CBM-M} "hires",8,1 gA : BB initialize variables HC : {CBM-S}D hires{CBM-R}12{CBM-D}4096:draw{CBM-R}hi{CBM-N}3:plot{CBM-R}dr{CBM-N}3:move{CBM-R}pl{CBM-N}3:clscr{CBM-R}mo{CBM-N}3:dmode{CBM-R}cl{CBM-N}3 {$fb}N selpc{CBM-R}dm{CBM-N}3:colour{CBM-R}se{CBM-N}3:box{CBM-R}co{CBM-N}3:text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3:chset{CBM-R}pr{CBM-N}3:trap{CBM-R}ch{CBM-N}3 colour,1,c,6 6 i{CBM-R}0 {CBM-@} 8 & @s{CBM-R}43{CBM-N}k{CBM-D}16{CBM-N}i a j draw,s,88 {CBM-@} s,y(k),2 i t i q ^ k B H move,34,88 P R k{CBM-R}0 {CBM-@} 5 {$7e} {$7c}s{CBM-R}47{CBM-N}k{CBM-D}16 draw,s,y(k),3 k {CBM-Z} colour,1,0,1 W {CBM-@} prnt,11,15,"79 80 81 82 83 84" {$eb} {CBM-S}a${CBM-R}"10 8 6 4 2" {CBM-U} i{CBM-R}1 {CBM-@} C( nnt,2,22,"i n m u l t i - c o l o r m o d e" b&{CBM-K} a$: a${CBM-W}{CBM-E}G(13) {CBM-M} 550 q ^ k B H move,34,88 P R k{CBM-R}0 {CBM-@} 5 {$7e} {$7c}s{CBM-R}47{CBM-N}k{CBM-D}16 draw,s,y(k),3 k {CBM-Z} colour,1,0,1 W {CBM-@} prnt,11,15,"79 80 81 82 83 84" {$eb} {CBM-S}a${CBM-R}"10 8 6 4 2" {CBM-U} i{CBM-R}1 {CBM-@} C( "": 53280,5: 53281,0 a B(49152){CBM-W}{CBM-E}76 {CBM-M} "hires",8,1 gA : BB initialize variables HC : {CBM-S}D hires{CBM-R}12{CBM-D}4096:draw{CBM-R}hi{CBM-N}3:plot{CBM-R}dr{CBM-N}3:move{CBM-R}pl{CBM-N}3:clscr{CBM-R}mo{CBM-N}3:dmode{CBM-R}cl{CBM-N}3 {$fb}N selpc{CBM-R}dm{CBM-N}3:colour{CBM-R}se{CBM-N}3:box{CBM-R}co{CBM-N}3:text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3:chset{CBM-R}pr{CBM-N}3:trap{CBM-R}ch{CBM-N}3 3{CBM-G}){$fb}{$60}{CBM-G}{CBM-Z}{CBM--}{CBM--}{$60} Y {$f0} N{SHIFT-*} YA{$f5}{SHIFT-*}{$f9}{SHIFT-*}{SHIFT-POUND},{SHIFT-POUND} l{SHIFT-*}{$60} {$fc}{CBM-G}{$fc}I {$fc} {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N} {$e8}JP{$60}{CBM-E}" iFHl<FWhh{CBM-G}W0I I{$60}){CBM-*}P)?lNG){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lLGIP {SHIFT-+}Gl GIP{CBM-I}( gGJP{$fa}l GIP{SHIFT-POUND}k{SHIFT-*}l GIP gGl G{CBM-I},{CBM-I}{SHIFT--}MF{$f0}J{$f8}l G{CBM-X}{SHIFT--}F >{SHIFT-*},5{SHIFT-*}0 ={SHIFT-*}>{SHIFT-*} 3El G IP){CBM-D}sx : x-coordinate for plot h {$fa} yp{CBM-R}(y{CBM-Q}yin){CBM-D}sy : y-coordinate for plot [ pf 290,310 A : {CBM-D} last point was plotted ok, so draw from last point to current point {CBM-R} : C draw,xp,yp M 200 S : last point was out of range, so({$fb}{$e6}{$fc}JP{$f2}{CBM-Z}i{SHIFT-*}E{$fb}{$fb}{$fd}{SHIFT-POUND} E{$fc}{$fc}hIX{$fe}HIL{$fb}&{$fc}{$fb}&{$fc}{$fb}&{$fc}{CBM-G}{$fc}I {$fc} {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N} {$e8}JP{$60}{CBM-E}" iFHl<FWhh{CBM-G}W0I I{$60}){CBM-*}P)?lNG){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lLGIP {SHIFT-+}Gl GIP{CBM-I}( gGJP{$fa}l GIP{SHIFT-POUND}k{SHIFT-*}l GIP gGl G{CBM-I},{CBM-I}{SHIFT--}MF{$f0}J{$f8}l G{CBM-X}{SHIFT--}F >{SHIFT-*},5{SHIFT-*}0 ={SHIFT-*}>{SHIFT-*} 3El G IPsy "{CBM-N}G(142){CBM-N}"{SHIFT--}" nR prnt,0,2,"{CBM-Z}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-X}" I{$7c}{CBM-K} a$: a${CBM-W}{CBM-E}G(13) {CBM-M} 380 O U{$f1}: {$f2} draw arc {$f3}: {CBM-W}{$f4}z1{CBM-R}sa{CBM-D}~{CBM-Z}180:z2{CBM-R}ea{CBM-D}~{CBM-Z}180:z3{CBM-R}inc{CBM-D}~{CBM-Z}180 S{$fe}x{CBM-R}xc{CBM-N}xr{CBM-D}{CBM-V}(z1):y{CBM-R}yc{CBM-N}yr{CBM-D}{CBM-B}(z1) {$e2} move,x,y {$f7} i{CBM-R}z1 {CBM-@} z2 {SHIFT-POUND} z3 : err{CBM-R}B(781):pf{CBM-R}2 = err{CBM-R}14 {CBM-M} 200 : illegal quantity error L{CBM-@} err{CBM-R}20 {CBM-M} 200 : division by zero error {CBM-S} err{CBM-R}16 {CBM-M} 200 : overflow error Z{CBM-U} err{CBM-R}11 {CBM-M} prnt,3,23,"syntax error in function definition": 510 {CBM-X} prnt,4,23,"oops! i foE : F begin the show G : .H hires,0,1,6 ER xc{CBM-R}159:yc{CBM-R}100:xr{CBM-R}70:yr{CBM-R}50:inc{CBM-R}10:sa{CBM-R}45:ea{CBM-R}75: 600 {$7c}{CBM--} sa{CBM-R}75:ea{CBM-R}160: 600 {$e6} sa{CBM-R}160:ea{CBM-R}240: 600 {CBM-D}{$f0} sa{CBM-R}240:ea{CBM-R}325: 600 {CBM-F}{$fa} colour,7 Yxc{CBM-R}175:sa{CBM-R}{CBM-Q}35:ea{CBM-R}45: 600 {$e8} colour,9 box,6,170,307E : F begin the show G : 2H hires,1,0,1,2,6 jR dmode,1: selpc,1 M{CBM--} draw,33,168 {CBM-@} 33,87 {CBM-@} 133,87 {$e6} draw,33,86 {CBM-@} 133,86 {$f0} k{CBM-R}1 {CBM-@} 5 {CBM-N}{$fa} j{CBM-R}37 {CBM-@} 133 {SHIFT-POUND} 4 {CBM-B} plot,j,84{CBM-N}16{CBM-D}k Hj,k V k{CBM-R}0 {CBM-@} 5 {$f5}"y(k){CBM-R}{CBM-F}(1){CBM-D}80{CBM-N}88:c{CBM-R}{CBM-F}(1){CBM-D}8{CBM-N}1 , a$) {SHIFT-POUND} 2 B prnt,6,3{CBM-N}i,J(a$,i,2) "L 5V colour,2,0,2 t prnt,14,2,"annual sales" G{$ea} colour,0,0,6 {$f4} prnt,9,17,"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}" {CBM-O}{$fe} prnt,9,18," b a r g r a p h s " L colour,5,7,7 {$ef} prnt,12,20,"a r e n i c e" ' prundary{CBM-R}0 : point is below bottom of screen d pf{CBM-R}0 {CBM-M} draw,xp{CBM-Q}dx,boundary s{$ea}pf{CBM-R}1: 200 y{$f1}: Y{$f2} end by pressing <return> {$7f}{$f3}: {CBM-I}{$f4} prnt,13,23,"graph completed" {CBM-V}{$fe}{CBM-K} a$: a${CBM-W}{CBM-E} G(13) {CBM-M} 510 D J{$e5}: {CBM-*}{$e6} begin the show {$e5}{$e7}: {$e8}xin{CBM-R}{CBM-Q}2{CBM-D}~X 1000 E : !F plot the graph 'G : @H x{CBM-R}x{CBM-N}dx: x{CBM-E}xax {CBM-M} 500 {$7e}R trap,400 : catch any errors in function calculations {CBM-C}{CBM--} y{CBM-R}{CBM-B}(2{CBM-D}x) {CBM-N} {CBM-V}(3{CBM-D}x) : insert function to be graphed here {$ee}{$e6} trap,450 : now catch any plotting errors {$f0} xp{CBM-R}(x{CBM-Q}xin : minimum value for x 1{$f2}xax{CBM-R} 2{CBM-D}~ : maximum value for x w{$fc}yin{CBM-R}{CBM-Q}3.0 : minimum value for y {$7d}yax{CBM-R} 3.0 : maximum value for y {CBM-D}sx{CBM-R}160{CBM-Z}(xax{CBM-Q}xin) : scale in x direction {SHIFT-+}sy{CBM-R}200{CBM-Z}(yax{CBM-Q}yin) : scale in y direction $dx{CBM-R} (xax{CBM-Q}xin){CBM-Z}16 draw from boundary to current point $!: c" draw,xp,boundary {CBM-@} xp,yp r,pf{CBM-R}0: 200 x3: 4 last point was not defined, so just plot the current point 5: {CBM-E}6 plot,xp,yp {SHIFT-*}@pf{CBM-R}0: 200 F: {$f4} something went wrong with the function {$fa} XGl GIP{CBM-I}( GJP{$fa}l GIP{SHIFT-POUND} k{SHIFT-*}l GIP Gl G{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-G}PFF8{CBM-G}{$fb}{$e9}{$fb}{CBM-G}{$fc}{$e9} {$fc}{CBM-G}{$fb}I {CBM-G}{$fc}{$e9} {CBM-A} gG{$60}{$e6}{$fd}P{$e6}{$fe}{$e6}P{$e6}{SHIFT-POUND}E{$fb}{$fb}{$e6}{$fc}{CBM-G}{$fb}I@{CBM-G}{$fc}{$e9}~ G{$60}@{CBM-S}k{SHIFT-*}{$f0} {CBM-G}G {$e6}G{CBM-E}{$fb}{$f9} {$f5}GH{CBM-Z}={SHIFT-*},5{SHIFT-*}{CBM-Z}@{SHIFT-*}{$fd}{CBM-Z}?{SHIFT-*} >{SHIFT-*} gGH{CBM-POUND}H{CBM-N}{$60}{SHIFT-POUND} &&&{CBM-Z}g{SHIFT-*}E{CBM-Z}h{SHIFT-*}E{$60} {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}P{CBM-G}P{CBM-I}P,{CBM-I}Xh{SHIFT-*}{CBM-I} g{SHIFT-*}{$60}{CBM-Z}{CBM--}){$fe}{CBM--} {CBM-L}x{CBM-R}xc{CBM-N}xr{CBM-D}{CBM-V}(i):y{CBM-R}yc{CBM-N}yr{CBM-D}{CBM-B}(i) $& draw,x,y *0 m: draw,xc{CBM-N}xr{CBM-D}{CBM-V}(z2),yc{CBM-N}yr{CBM-D}{CBM-B}(z2) sd yu: Hv draw pie Nw: Xx 500 {CBM-N}B draw,xc,yc: draw,xc{CBM-N}xr{CBM-D}{CBM-V}(z1),yc{CBM-N}yr{CBM-D}{CBM-B}(z1): CCCCCCCCCCCCCCCCCCCCCCCC{CBM-S}" H prnt,0,1,"{SHIFT--} PIE CHARTS are Ea rgot about error #"{CBM-N}D(err): 510 {CBM-V}: x {CBM-B} tried to plot out of range. x-coord. should be o.k. {SHIFT-*} therefore, just test the y-coord. A: {CBM-+} Berr{CBM-R}B(781): err{CBM-W}{CBM-E}14 {CBM-M} 445 {$e4} L yp{CBM-E}199 {CBM-M} boundary{CBM-R}199 : point is above top of screen !V yp{CBM-W}0 {CBM-M} bo,165 " box,3,172,313,169 & , chset,1 ? 6 prnt,15,9,"Rent" x @ prnt,13,13,"Food" T j prnt,18,16,"Clothes" t prnt,24,12,"Travel" K ^ prnt,0,0,"{CBM-A}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-S}" H prnt,0,1,"{SHIFT--} PIE CHARTS are Ea ,133,245,152,74,74,74,168,185,197,164,133 .{CBM-F}246,96,141,41,165,160,0,32,10,169,208,251,162,255,96,173,26 ^.{CBM-C}165,141,41,165,173,25,165,32,207,168,160,0,76,27,169,32,10 {CBM-T}.{CBM-X}169,208,248,162,255,108,38,165,177,245,201,141,208,2,169,13,170 {$e6}.{CBM-V}32,58,1630,208,249,230,252,230,254,228 ,{CBM-W}252,208,241,44,42,165,48,10,169,0,141,1,192,32,50,170,208 t,{CBM-H}3,32,64,170,169,128,77,42,165,141,42,165,162,141,96,36,157 ,{CBM-J}16,14,172,43,165,136,16,2,160,15,140,43,165,140,33,208,96 R,{CBM-L}36,157,16,14,172,45,165,136,1 {SHIFT-*}lBAl{$f7}ClBClNBlBlVDl{$e4}DlElcEl{SHIFT-POUND}{SHIFT-*}lNElGGlH ~ {$f8} {$f0}{$f0} P {CBM-Z}:{SHIFT-*}P{CBM-Z} {SHIFT--}9{SHIFT-*}{CBM-Z}P:{SHIFT-*}{CBM-Z}P;{SHIFT-*}{CBM-Z}P<{SHIFT-*} N{SHIFT-*}{$60}{CBM-Z} I{$e7}P{CBM-Z}I{SHIFT-*}{$f0},{CBM-Z} {$ea}{SHIFT-*}{CBM-Z}{$eb}{SHIFT-*}{SHIFT-POUND}{$e7} {SHIFT-POUND}{SHIFT-*}{CBM-Z})A{CBM-Z}*A{SHIFT-POUND}{SHIFT-POUND}A{$60}{CBM-Z}:{SHIFT-*}{$f0}P{CBM-Z}9{SHIFT-*} {SHIFT--}{CBM-Z};{SHIFT-*}P{CBM-Z}<{SHIFT-*}P{SHIFT-POUND} :{SHIFT-*}{$60}h{SHIFT-POUND}{$7f} {CBM--}{CBM-G}8{SHIFT-*}){$fd}H{$60}h{CBM-Z}8{SHIFT-*}{SHIFT-POUND} {CBM--}H{$60}l{$e3} ,l{SHIFT-*}{$f5}{SHIFT-POUND} {SHIFT-POUND} ,9,13,22,165,141 *{CBM-Q}22,165,76,223,167,13,21,165,141,21,165,192,4,240,3,76,58 l*{CBM-D}163,32,58,163,76,92,166,76,248,165,32,114,169,32,188,169,174 *{CBM-Z}24,165,36,157,16,3,108,25,165,96,36,157,16,18,169,1,45 G*{CBM-S}37,161,240,11,224,20,208,8,162,29,32,58,163,{CBM-Z}PP{SHIFT-POUND}P {CBM-Z}P){$ef}P{SHIFT-POUND}6{SHIFT-*}i~7{SHIFT-*}{SHIFT-POUND}~3{SHIFT-*}{$60}{SHIFT-POUND}a{SHIFT-*}{CBM-Z}c{SHIFT-*}b{SHIFT-*}{SHIFT-POUND}4{SHIFT-*} A{CBM-Z}-{SHIFT-*} >{SHIFT-*}f{SHIFT-*}{CBM-Z}+{SHIFT-*})={SHIFT-*},5{SHIFT-*}0 >{SHIFT-*}>{SHIFT-*}f{SHIFT-*}lkA!P YA)?{SHIFT-*} YA@{SHIFT-*}{CBM-Z}>{SHIFT-*}lkA A{CBM-I}{CBM-X}+{SHIFT-*}'{SHIFT-*}J{$f7}{$60}8{SHIFT-POUND}G{$ed}){SHIFT-*}hjjj{$fc} {$fb}jF{$fb}jF{$fb}E{$fc}{$fc}{CBM-Z}'{SHIFT-*}{CBM-S}({SHIFT-*}-7{SHIFT-*},5{SHIFT-*} h*{CBM-N}HE{$fb}{$fb}E{$fc}{$fc}H)E{$fb}{$fb}{$fd}{$e6}{$fc}{CBM-G}{$fc}jF{$fd}jF{$fd}jF{$fd}{$fe},5{SHIFT-*}0{SHIFT-POUND} E{$fd}{$fd}{SHIFT-POUND}LE{$fe}{$fe}l{$f9}B{CBM-Z}a{SHIFT-*}I{$ea}{SHIFT-POUND} E{$fd}{$fd}{SHIFT-POUND}XE{$fe}169,32,133,169 ({CBM-T}32,188,169,32,152,169,224,227,240,8,142,20,165,169,227,141,19 r({CBM-@}165,169,0,141,21,165,141,22,165,174,20,165,224,255,208,3,32 ({CBM-G}8,170,32,58,163,169,0,141,41,165,169,131,141,143,2,169,167 S({CBM-+}141,144,2,162,61,76,58,163,224,254,2406,169,235,133,245,169,164,133,246,169,7,32,226,168 3N96,169,242,133,245,169,164,133,246,169,5,32,226,168,96,169,5 B3O133,245,169,165,133,246,169,7,32,226,168,96,169,12,133,245,169 {CBM-T}3P165,133,246,169,7,32,226,168,96,173,138,2,141,40,165,169,64 G3Q5 &174,20,165,224,255,208,3,32,8,170,32,58,163,169,220,141,143 h&2,169,166,141,144,2,162,61,76,58,163,224,254,240,249,224,227 &144,3,76,248,165,32,114,169,32,188,169,224,225,240,7,173,26 I&165,201,226,208,3,174,24,165,224,13,208,8,169,0,1413,23,165 {$f9}0F141,19,165,173,24,165,141,20,165,173,25,165,141,21,165,173,26 =1G165,141,22,165,96,173,28,165,133,245,173,29,165,133,246,96,173 1H31,165,133,245,173,32,165,133,246,173,30,165,168,177,245,141,23 I1I165,200,177,245,141,24,165,200,177,2{$60} A Y {$f0},I{CBM-@}P QB S A Y I,P {$e4}D Y I,P VD +D Y I{CBM-@}{$f0}{CBM--}{$60} I{SHIFT-*}{CBM-I} C{CBM-I} C{CBM-G}BED{CBM-G}C{$e5}E> {CBM-O}C$K QB8{SHIFT-POUND} {$e5}LL {$7d}B C{$e6}HP{$e6}I{$f0}F{$ee}'{SHIFT-*}P{$ee}({SHIFT-*} QC{CBM-Z}){SHIFT-*}EL){SHIFT-*} {$7d}B Cl[D{CBM-I}{CBM-J}B{CBM-H}DDBJ{$f5} {CBM-O}C$K QB8{SHIFT-POUND} {$e5}LL {$7d}B C{$e6}H{$f0}{CBM-Z}){SHIFT-*}EL){SHIFT-*} QC{$ee}'{SHIFT-*}P{$ee}({SHIFT-*} {$7d}B Cl{CBM-+}D$K C QBlZ{SHIFT-*} YA)iJJJ4{SHIFT-*}{$60} YA){$f0},5{SHIFT-*}a{SHIFT-*}{CBM-N},200,206,41,165,96,165,198,205,137,2,144,222,165,245 )/{CBM-B}141,34,165,165,246,141,35,165,140,33,165,173,143,2,141,36,165 J/{SHIFT-*}173,144,2,141,37,165,169,77,141,143,2,169,169,141,144,2,162 {CBM-P}/A255,142,38,161,76,58,163,165,198,208,244,173,34,165,133,245,173 6,2,160,15,140,45,165,140,32 -{CBM-Y}208,96,36,157,16,42,172,44,165,136,16,2,160,15,140,44,165 t-{CBM-U}140,134,2,152,160,216,132,246,160,0,132,245,145,245,200,208,4 -{CBM-O}230,246,208,247,192,232,208,243,166,246,224,219,208,237,162,255,96 {SHIFT--}-{SHIFT-@}168,10,10,10,10,10{CBM-I}{$fa}{SHIFT-POUND}{CBM-M}h{SHIFT-POUND}{$e9}hl{CBM-T}{CBM-POUND} {SHIFT-POUND}{SHIFT-*}{CBM-Z}{$ea}{SHIFT-*} {CBM-Z}{$eb}{SHIFT-*}{CBM-Z})A{CBM-Z}*A{SHIFT-POUND} l{SHIFT-*}l{CBM-@}{CBM-@}{$fe}{$f0} {$fb}HP{$fb}{$e6}{$fc}F{$fe}P{$f3}{CBM-@}{$fd}{$f0} {$f0}{$fb}P{$fb}{$fb}{$60} I{SHIFT-*} {$fb} L{$fc} {$e8}{$fd} {$fe} +A{SHIFT-POUND} {$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}@{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND} +AlZ{SHIFT-*} {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}{CBM-G}{$60} {$fd}{CBM-S} {$7c}A+{SHIFT-*},{SHIFT-*} YA-{SHIFT-*}.{SHIFT-*}{SHIFT-POUND}?{CBM-I},5{SHIFT-*}{SHIFT-POUND}{CBM-I} M+{SHIFT-*}{$ed},{SHIFT-*}{CBM-A}lh{CBM-R}{SHIFT-POUND}GM-{SHIFT-*}{SHIFT-POUND} {$ed}.{SHIFT-*}{$f1}{$60} m{SHIFT-*} YA{$f0}{SHIFT-POUND}5{SHIFT-*} Y {$f0} B{CBM-Z} {SHIFT--}i {SHIFT--}{CBM-Z}P)0P{CBM-Z}P P,5{SHIFT-*}162,20,96,224 +{CBM-P}32,144,19,224,128,144,4,224,160,144,11,142,20,165,162,148,32 k+{CBM-A}58,163,174,20,165,96,36,157,16,72,169,183,160,224,162,192,44 +{CBM-E}42,165,48,6,169,161,160,0,162,171,133,252,132,251,169,192,133 U+{CBM-R}254,160,0,132,253,177,251,145,253,20{$fe}{CBM-G}{$fb}I {$fb}{CBM-G}{$fc}I {$fc}{CBM-Z}'{SHIFT-*}-6{SHIFT-*}{CBM-N}{$60}{SHIFT-POUND} {CBM-POUND},4{SHIFT-*}Pp$0{SHIFT-POUND}~$K0{$60}{CBM-E}{$fb}m3{SHIFT-*},5{SHIFT-*}0 =vCA{CBM-X}vCP=^CA{CBM-X}^Ci~1{$fb}A{$fb}{CBM-E}{$fd}-b{SHIFT-*} f{SHIFT-*}{$fd}{$60}@ {SHIFT-*}0 NB Y {$f0} {$e4}D Y {$f0} VD I{SHIFT-*} {$7d}B ClZ{SHIFT-*}{SHIFT-POUND}J{SHIFT-POUND} K8{CBM-X}+{SHIFT-*}{$fd}'{SHIFT-*}B{CBM-X},{SHIFT-*}{$fd}({SHIFT-*}C{SHIFT-POUND}~JK8{SHIFT-POUND} {$f5}BB{SHIFT-POUND} {$f5}CC{$60}BPJK{$60}{CBM-G}CjG{CBM-G}BJF{SHIFT-POUND} {$e5}BH{SHIFT-POUND} {$e5}CI{$60}{CBM-G}FEDF{CBM-N}{CBM-G}GEEGECP{$e4}B 8{$e5}BF{CBM-G}G{$e5}CG8,249,224,228,144,3,76 ){CBM-M}248,165,224,225,144,9,32,114,169,32,188,169,174,24,165,224,13 u){CBM-POUND}208,3,76,81,166,138,201,48,144,65,201,64,240,61,144,7,201 ){SHIFT-POUND}71,176,55,24,105,9,41,15,238,41,165,172,41,165,192,4,240 L){CBM-N}8,192,2,240,4,10,10,10,10,192,3,176 #141,138,2,96,1,255,1,255,1,255 26,165,96,173,28,165,133,245,173,29,165,133,246,173,27,165,168 s2K173,19,165,145,245,200,173,20,165,145,245,200,173,21,165,145,245 2L200,173,22,165,145,245,96,169,247,133,245,169,164,133,246,169,8 {CBM--}2M32,226,168,9,22,165 '76,81,166,142,19,165,32,58,163,76,92,166,169,42,141,143,2 l' 169,167,141,144,2,169,219,133,245,169,164,133,246,169,7,32,226 '{CBM-K}168,76,78,170,224,254,240,82,176,18,224,224,144,7,224,227,240 N'{CBM-I}10,76,248,165,224,13,208,3,76,2,166,32,114,45,141,25,165,200,177,245,141 2J26,165,96,173,28,165,133,245,173,29,165,133,246,173,27,165,168 s2K173,19,165,145,245,200,173,20,165,145,245,200,173,21,165,145,245 2L200,173,22,165,145,245,96,169,247,133,245,169,164,133,246,169,8 {CBM--}2M32,226,168,9{CBM-X}={SHIFT-*}f{SHIFT-*}{CBM-X}b{SHIFT-*}b{SHIFT-*}{CBM-X}E3{SHIFT-*}{$60} u{CBM-N}~ YA >{SHIFT-*},5{SHIFT-*}0 ={SHIFT-*}>{SHIFT-*}l3E YA)?{SHIFT-*} YA)@{SHIFT-*}{CBM-S}a{SHIFT-*}{CBM-X}={SHIFT-*}f{SHIFT-*}{CBM-X}b{SHIFT-*}b{SHIFT-*}{$60} NB A{CBM-I}{CBM-X}+{SHIFT-*}/{SHIFT-*}J{$f7} Y {$f0} {$e4}D Y {$f0} VD{CBM-Z}'{SHIFT-*}M/{SHIFT-*}+{SHIFT-*}{CBM-Z}({SHIFT-*}M0{SHIFT-*},{SHIFT-*}{CBM-Z}){SHIFT-*}-{SHIFT-*}{CBM-Z}*{SHIFT-*}.{SHIFT-*} A +D8{CBM-Z}-{SHIFT-*}{$ed}1{SHIFT-*}-{SHIFT-*}{CBM-Z}.{SHIFT-*}{$ed}2{SHIFT-*}.{SHIFT-*} {CBM-J}A +D8{CBM-Z}+{SHIFT-*}{$ed}/{SHIFT-*}+{SHIFT-*}{CBM-Z},{SHIFT-*}{$ed}0{SHIFT-*},{SHIFT-*} +D{CBM-Z}-{SHIFT-*}M1{SHIFT-*}-{SHIFT-*}{CBM-Z}.{SHIFT-*}M2{SHIFT-*}.{SHIFT-*}l+D{SHIFT-POUND} {$fb}{$fc} {$f1}{CBM-Y} (lh{CBM-R}i{SHIFT-*} {$f1}{CBM-Y}j{SHIFT-*}{$f0} {CBM-A}{$ed}{CBM-G}{$fb}I{$f2}/B35,165,133,246,172,33,165,173,36,165,141,143,2,173,37,165,141 /0C144,2,169,0,141,38,161,76,0,169,173,36,161,10,10,141,30 S0D165,165,245,141,31,165,165,246,141,32,165,96,173,30,165,141,27 {CBM-L}0E165,173,31,165,141,28,165,173,32,165,141,29,165,96,17 112,75,173,140,2,240,5,206,140,2,208 di65,206,139,2,208,60,169,4,141,139,2,169,2,141,35,161,206 j35,161,48,45,174,35,161,189,28,161,201,64,240,241,141,36,161 Dk32,76,163,44,138,2,48,18,41,127,201,20,240,12,201,32,240 l8,201,29,240,4,201,17,38,2,141,138,2,76,185,161,173,141,2,41,1 ma240,31,77,37,161,141,37,161,76,185,161,173,141,2,41,3,201 b3,208,13,173,145,2,48,8,173,24,208,73,2,141,24,208,76 Lc185,161,173,34,161,240,29,196,197,208,6,169,64,133,203,133,197 d152,160,2,136,48,11,31,10,168,185 & L131,164,141,195,164,185,132,164,141,196,164,108,195,164,96,32,114 I M169,32,188,169,174,24,165,36,157,16,242,169,78,141,38,165,169 {CBM-D} N165,141,39,165,76,239,168,169,131,141,143,2,169,165,141,144,2 {$f0} O169,201,133,245,169,164,133, 19,161,45,33,161,141,34,161,240,15,206,30 s9161,173,33,161,93,19,161,29,19,161,76,7,162,173,30,161,205 :2,161,176,199,173,141,2,41,3,201,3,240,190,238,30,161,173 Q;33,161,93,19,161,61,19,161,157,19,161,173,31,161,10,10,10 <168,173,33,161,16,78,165,78,165,78,165,78,165,78,165,78,165,78,165,78 hD165,78,165,78,165,78,165,78,165,78,165,0,0,188,189,190,191 E83,84,82,73,78,71,32,63,157,67,79,78,71,73,71,32,63 {CBM-F}F157,85,83,69,82,32,63,157,32,65,76,76,32,85,83,69,68 {$f3}G32,85,78,68,79,781,141,37,161,141,38,161,169 l164,133,203,133,197,141,28,161,141,29,161,169,255,162,7,157,19 2161,202,16,250,32,110,163,173,38,161,208,17,173,30,161,208,20 N3169,0,141,0,220,173,1,220,201,255,208,8,162,254,32,55,163 476,150,161,169,8,141,31,133,246,32,117 +\164,189,64,160,145,245,136,136,136,136,202,16,244,169,0,133,245 S]169,186,133,246,32,117,164,189,128,160,145,245,136,136,136,136,202 {CBM-U}^16,244,169,0,133,245,169,187,133,246,32,117,164,189,192,160,145 {$fe}_245,136,136,136,136,202,,169,9,32,226,168,76,98,166,185,224,183,201,255,240 e"T230,141,21,165,142,20,165,169,255,153,224,183,169,225,141,19,165 "U32,226,169,174,20,165,224,255,208,3,32,8,170,32,58,163,169 D"V18,141,143,2,169,166,141,144,2,162,61,76,58,163,162,63,32 {$ee}"W2,208,8,165,192,208,6,165,1,41,31,133,1,96 hu173,0,161,208,44,162,63,189,129,235,157,0,160,202,16,247,162 v63,189,194,235,157,64,160,202,16,247,162,63,189,3,236,157,128 Ow160,202,16,247,162,63,189,120,236,157,192,160,202,16,247,173,0 x161,15,192,32,240,3,76,58,163,32,58,163,173,22,165,208 <$18,173,21,165,168,153,224,183,173,20,165,141,19,165,32,22,170 {$7c}$208,3,32,36,170,32,226,169,173,40,165,141,138,2,169,46,141 {CBM-X}$143,2,169,165,141,144,2,162,141,76,58,163,169,145,141,143,2 %169208,212,32,48,163,76,253,162,96,173 hm36,161,133,203,133,197,108,143,2,224,224,176,13,138,166,198,236 n137,2,176,5,157,119,2,230,198,96,173,36,161,10,10,168,173 Co141,2,10,201,8,144,2,169,6,170,189,3,161,133,245,189,4 p161,133,246,177,245,1 0,217,28,161,208,248,169,64,153,28,161,76 pe185,161,32,76,163,169,64,172,27,161,173,36,161,153,28,161,152 f73,1,141,27,161,169,16,141,140,2,169,4,141,139,2,32,48 Kg163,76,185,161,173,30,161,240,91,173,141,2,41,3,201,3,240 h82,44,138,2,48,2,246,169,9,32,226,168,76,78,170,224 4!P254,240,110,176,8,224,227,176,107,224,13,240,113,32,114,169,32 W!Q133,169,32,188,169,173,26,165,201,226,240,87,32,152,169,169,0 {CBM-F}!R141,22,165,224,225,240,47,160,32,136,16,16,169,226,133,245,169 ~!S164,133,2462,255,142,36,161,238,36,161,74,144,250,152,77 v=36,161,141,36,161,10,10,168,173,3,161,133,245,173,4,161,133 >246,177,245,170,172,36,161,224,5,176,76,224,3,240,72,77,141 Q?2,141,141,2,141,142,2,41,4,240,34,173,141,2,41,2,240 @11,169,128,77,1,69,32,79,46,75,46,78,85,76,76,32 +H75,69,89,32,65,66,79,82,84,83,65,86,69,32,80,71,83 II65,86,69,32,84,66,157,95,254,226,157,255,1,255,228,0,184 J8,0,185,30,224,191,46,165,78,165,0,0,0,0,0,0,32 {CBM-*}K52,165,76,58,163,138,224,224,176,2,169,224,4161,32,156,161,32,207,162,169,127,141 n50,220,96,206,31,161,16,1,96,174,31,161,189,11,161,141,0 6220,173,1,220,205,1,220,208,248,93,19,161,141,32,161,172,32 R7161,240,222,174,31,161,136,152,45,32,161,168,77,32,161,141,33 8161,140,32,161,93,16,244,162,31,138,157,224,183,202,16,249 a{$60}96,160,255,169,0,145,245,136,16,251,162,63,160,252,96,252,167 A79,165,78,165,235,167,105,165,119,166,16,167,43,168,120,168,158 HB168,139,168,78,165,78,165,78,165,78,165,78,165,78,165,78,165 C78,16558,163,162,157,76,58,163,169,255,133 1#245,169,164,133,246,169,6,32,226,168,76,98,166,224,254,240,41 U#224,227,176,222,224,225,208,9,32,114,169,32,188,169,174,24,165 {CBM-O}#224,13,240,26,173,21,165,32,207,168,172,22,165,138,145,245,200 {$f9}#238,22,166,3,76,116,164,162,228,142,199,160,232,142,194,160,232,142 ]y255,160,232,142,252,160,232,142,192,160,232,142,193,160,232,142,243 {CBM-K}z160,169,0,133,245,169,184,133,246,32,117,164,189,0,160,145,245 {$e6}[136,136,136,136,202,16,244,169,0,133,245,169,185,,166,141,144,2,169,210,133,245,169,164,133,246,169,9,32,226 b%168,76,78,170,224,254,240,68,176,7,224,225,144,3,76,248,165 %224,13,208,3,76,2,166,32,114,169,32,133,169,32,188,169,32 E%152,169,173,22,165,201,226,240,8,142,20,165,169,226,141,22,1670,172,36,161,96,32,234,255,165,204,208,41 lq198,205,208,37,169,20,133,205,164,211,70,207,174,135,2,177,209 r176,17,230,207,133,206,32,36,234,177,243,141,135,2,174,134,2 Ms165,206,73,128,32,28,234,165,1,41,16,240,10,160,0,132,192 t165,1,9,3 , 255, 201, 34, 208, 233 $ 238, 11, 192, 173, 11, 192 g 41, 1, 141, 11, 192, 16 J& 220, 174, 11, 192, 240, 6 0 32, 210, 255, 76, 207, 193 {CBM-A}: 201, 255, 240, 246, 32, 11 Sd 194, 76, 207, 193, 76, 67 {$f6}n 193, 160, 1 the transactor volume 5 issue 06 page 29 x ******************************** {$7f} ** an amazing keyboard driver ** {CBM-+} **** for your commodore 64 **** M *** aubrey stanley dec 1984 *** {$f4} ******************************** {$fd} ** 193, 32 {$7c} 207, 255, 32, 207, 255, 169 : 0, 141, 11, 192, 169, 13 ] 32, 210, 255, 32, 207, 255 32, 207, 255, 32, 207, 255 {CBM-T}{CBM-@} 133, 253, 32, 207, 255, 133 F{CBM-S} 254, 32, 183, 255, 240, 3 {$e9}{CBM-U} 76, 67, 193, 165, 254, 164 : ft{CBM-R}1 {CBM-M} 62: *program file loaded from disk* P < ft{CBM-R}1: pg${CBM-W}{CBM-E}"kprg" {CBM-M} pg{CBM-R}1: "0:"{CBM-N}pg$,8,1: *load program file* {CBM-J} > ft{CBM-R}2: tb${CBM-W}{CBM-E}"kernel" {CBM-M} tb{CBM-R}128: "0:"{CBM-N}tb$,8,1: *load table file* {CBM-B} @ 100 {$e6} a ******************************** f *save program 0, 14, 201, 44, 240, 10 -{$f0} 201, 58, 240, 6, 32, 115 p{$fa} 0, 76, 48, 193, 96, 32 S 204, 255, 169, 127, 76, 195 255, 32, 135, 192, 32, 189 {CBM-O} 255, 164, 253, 169, 127, 174 {CBM--}" 9, 192, 32, 186, 255, 32 ~, 192, 255, 1 e name* nt ad{CBM-R}47072:bd{CBM-R}49152:n{CBM-R}2080: *table address, saved from address, byte count* Kv 2,8,2,"@0:"{CBM-N}tb${CBM-N}",p,w" x 2,G(ad{CBM-Q}{CBM-J}(ad{CBM-Z}256){CBM-D}256); z 2,G(ad{CBM-Z}256); {SHIFT-POUND}\ i{CBM-R}0 {CBM-@} n{CBM-Q}1 {CBM-C}^ 2,G(B(bd{CBM-N}i)); D{$60} i NB 2: {$f5}C ******************************** 83, 240 z 3, 108, 3, 192, 32, 45 c D 193, 76, 116, 194, 201, 75 F N 208, 40, 32, 45, 193, 173 X 3, 192, 141, 0, 3, 173 {CBM-D} 4, 192, 141, 1, 3, 173 O 7, 192, 141, 50, 3, 173 {$f2} 8, 192, 141, 51, 3, 173 1, 192, 145, 98 Z 200, 202, 208, 247, 96 , 32, 183, 255, 240 i{$f8} 245, 76, 171, 255, 173, 9 L 192, 32, 180, 255, 169, 111 32, 150, 255, 169, 0, 133 {CBM-R} 144, 168, 32, 165, 255, 153 U 12, 192, 200, 32, 183, 255 {$f8}* 208, {$e4} 133, 144, 32, 165, 255, 32 &{$ee} 210, 255, 32, 183, 255, 240 i{$f8} 245, 76, 171, 255, 173, 9 L 192, 32, 180, 255, 169, 111 32, 150, 255, 169, 0, 133 {CBM-R} 144, 168, 32, 165, 255, 153 U 12, 192, 200, 32, 183, 255 {$f8}* 208, ded from disk* 4T 41218,nk: *tells program the n-key factor* TV 56334,B(56334){CBM-P}254: *disable keyboard (timer) interrupt* {CBM-L}X 788,(i{CBM-Q}{CBM-J}(i{CBM-Z}256){CBM-D}256): *set up irq vector address low byte* {$e8}Z 789,(i{CBM-Z}256): *set up irq vector high byte* ${$7c} 563 0, 56, 233, 128 x 240, 15, 170, 169, 255, 200 <B 185, 158, 160, 48, 2, 208 _L 248, 202, 208, 245, 200, 185 V 158, 160, 48, 6, 32, 210 {CBM-G} 255, 200, 208, 245, 56, 233 H 128, 76, 210, 255, 169, 2 {$eb} 133, 253, 32, 75, 1 ;2 tb${CBM-R}"kernel":pg${CBM-R}"kprg": *tells loader how to load kwiz* S4 i{CBM-R}53216:nk{CBM-R}2: *irq address & n-key rollover count* {CBM-C}6 tb${CBM-R}"kernel" {CBM-P} pg${CBM-R}"kprg" {CBM-M} 100: *use kernel tables & data lines* {$fa}8 ft{CBM-E}1 {CBM-M} 100: *program and table files loaded from disk* , B 253, 32, 145, 179, 32, 221 /L 189, 160, 1, 185, 0, 1 rV 240, 6, 32, 210, 255, 200 U 208, 245, 169, 32, 32, 210 {$ea} 255, 32, 225, 255, 240, 52 {CBM-F}{$f4} 201, 239, 240, 247, 32, 207 {$de}{$fe} 255, 240, 180, 48, 20, 32 210 , type - run 70* /h pg${CBM-R}"kwiz": *program file name* {$7d}j ad{CBM-R}41216:bd{CBM-R}49152:n{CBM-R}2400: *prog address, saved from address, byte count* l 2,8,2,"@0:"{CBM-N}pg${CBM-N}",p,w" {CBM-T}n 88 {CBM-L}o ************ Yp *save tables, type - run 80* ~r tb${CBM-R}"kwiz.tb": *table fil 62, 127, 76, 198 " 6 255, 173, 9, 192, 32, 177 e @ 255, 169, 111, 32, 147, 255 H j 32, 135, 192, 134, 253, 132 t 254, 170, 160, 0, 177, 253 {CBM-S} ^ 32, 168, 255, 200, 202, 208 Q H 247, 76, 174, 255, 169, 0 {$f4} R 133, 253, 32, 75, # D n{CBM-R}0 {CBM-@} 23: *poke irq vector code block* 5 F a: i{CBM-N}n,a: {$7b} H pg{CBM-R}1 {CBM-M} 112: *bypass program pokes if program loaded from disk* {CBM-Z} J j{CBM-R}41216 {CBM-@} 43615: *poke program code block* {CBM-X} L a: j,a: P 41216,tb: *tells program whether tables are loa 5, 192, 141, 48, 3, 173 8{CBM-N} 6, 192, 141, 49, 3, 96 [{CBM-H} 201, 155, 208, 6, 32, 45 {$7e}{CBM-V} 193, 76, 132, 193, 201, 153 {CBM-K}H 208, 6, 32, 45, 193, 76 DR 50, 194, 162, 11, 108, 3 {$e7}{CBM--} 192, 32, 121, 0, 201, 0 {$e6} 24,0,186,0,187,254,253,251,247,239,223 o-191,127,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0 .0,0,0,0,0,44,1,161,48,62,32,185,163,169,128,141,1 H/161,169,46,160,165,141,143,2,140,144,2,169,0,133,198,141,141 02,141,142,2,141,27,161,141,30,16 4, 192, 40, 208, 240 4 32, 171, 255, 136, 152, 72 >> 72, 32, 115, 0, 32, 139 Ah 176, 133, 73, 132, 74, 32 r 163, 182, 104, 32, 117, 180 {CBM-M}\ 160, 2, 185, 97, 0, 145 JF 73, 136, 16, 248, 200, 104 {$ed}P 170, 185, 12 34,B(56334){CBM-A}1: *enable keyboard (timer) interrupt 9{$7e} : *of loading* _ ******************************* H 32,35,234,165,1,41,254,133,1,32,39,161,165,1,9,1,133 {CBM-W}I 1,76,126,234,0,90,32 Y{$fa} ******************************* ,0,0,2,0,184,0,185 93, 32 207, 255, 170, 32, 183, 255 1{CBM-POUND} 240, 3, 76, 67, 193, 138 t{CBM-R} 32, 210, 255, 32, 225, 255 W{CBM-C} 208, 3, 76, 67, 193, 201 F 239, 208, 228, 240, 242, 173 {CBM-X}P 9, 192, 32, 180, 255, 169 Z 111, 32, 150, 255, 169, 0 8 the transactor volume 5 issue 06 page 10 _D ; {CBM-D}{CBM-D} irq driven display routine {CBM-D}{CBM-D} EI ; {CBM-I}N {CBM-D}{CBM-R}828 ; start address can be anywhere you find cvenient {CBM-POUND}S ; NX irqvec {CBM-R} $0314 ; irq vec{CBM-@}r in ram {$f3}{$7d} screen {CBM-R} 1024 ; start of screen {$f9} ; 8 the transactor volume 5 issue 06 page 10 Y,; {CBM-D}{CBM-D} routine {CBM-@} clear all but the {CBM-@}p 3 lines of the screen {CBM-D}{CBM-D} {$7f}1; {CBM-C}6{CBM-D}{CBM-R}828 ; start address can be anywhere you find cvenient B;; {$f5}@screen {CBM-R} 1144 ; {CBM-I} screen start address clear {$fb}e; w{CBM-@}m ,inx: cpx #112 ; balance of screen {CBM-@} clear :bne final brts h; o. but the {CBM-@}p 3 lines of the screen {CBM-D}{CBM-D} {$7f}1; {CBM-C}6{CBM-D}{CBM-R}828 ; start address can be anywhere you find cvenient B;; {$f5}@screen {CBM-R} 1144 ; {CBM-I} screen start address clear {$fb}e; , "Article related programs start here m "note: this file is only a L "directory placemarker - ( "scratch it if you wish. art address can be anywhere you find cvenient B;; {$f5}@screen {CBM-R} 1144 ; {CBM-I} screen start address clear {$fb}e; 8 the transactor volume 5 issue 06 page 12 [ * data loader for "verigen" * M runs on c64 V cs{CBM-R}0 i{CBM-R}49152 {CBM-@} 49410: a: i,a {CBM-+}( cs{CBM-R}cs{CBM-N}a: i {CBM-D}2 : {SHIFT-+}< cs{CBM-W}{CBM-E}36235 {CBM-M} "***** data error *****": {$eb}f sys 49152 {$f1}p {$f7}D : ){$e8} 192, 255, 32, 183, 255, 240, 1, 96 u$ 165, 43, 133, 254, 165, 44, 133, 255, 160 . 0, 162, 1, 32, 198, 255, 32, 228, 255 {CBM-O}8 32, 228, 255, 177, 254, 208, 12, 200, 208 {$eb}b 2, 230, 255, 177, 254, 208, 8, 76, 214 l 192, 2008, 253, 16, 249, 200, 208, 2 i 230, 255, 138, 208, 226, 162, 2, 32, 201 {$7b} 255, 165, 251, 41, 15, 24, 105, 193, 32 {CBM-Z} 210, 255, 165, 251, 74, 74, 74, 74, 24 {CBM-*}{CBM-+} 105, 193, 32, 210, 255, 169, 32, 32, 210 {CBM-A} 255, 162, 1, {CBM-M} 24, 101, 251, 133, 251 = {$ec} 96, 48, 58, 73, 78, 70, 73, 76, 44 O {$f6} 83, 44, 82, 64, 48, 58, 79, 85, 84 70, 73, 76, 44, 83, 44, 87 , 74, 74, 24 {CBM-*}{CBM-+} 105, 193, 32, 210, 255, 169, 32, 32, 210 {CBM-A} 255, 162, 1, )splay lines from here on {$fa} ; ~ . ain old irq vec{CBM-@}r v lda irqvec{CBM-N}1: sta oldirq{CBM-N}1 lda #{CBM-W}start: sta irqvec ; po{CBM-J} {CBM-I} irq vec{CBM-@}r at code {CBM-Z} lda #{CBM-E}start: sta irqvec{CBM-N}1 {SHIFT-@} cli: rts {SHIFT-*}{CBM-G} ; N{CBM-N} start {CBM-R} {CBM-D} T{CBM-P} ; {CBM-*}{CBM-H} ldx #0 {$e5}{CBM-O} ; {$f2}{CBM-V} loop {CBM-R} {CBM-D} {$f8}H ; M8 the transactor volume 5 issue 06 page 23 _ * data loader for "error wedge" * H cs{CBM-R}0 i{CBM-R}49152 {CBM-@} 49858: a: i,a ( cs{CBM-R}cs{CBM-N}a: i 2 : V< cs{CBM-W}{CBM-E}86280{CBM-M}"**** error in data statments ****": {$e2}f 49152 {$e8}p {$ee}z : {$e8} 76, 52,sei 7 lda irqvec: sta oldirq ; retain old irq vec{CBM-@}r v lda irqvec{CBM-N}1: sta oldirq{CBM-N}1 lda #{CBM-W}start: sta irqvec ; po{CBM-J} {CBM-I} irq vec{CBM-@}r at code {CBM-Z} lda #{CBM-E}start: sta irqvec{CBM-N}1 {SHIFT-@} cli: rts {SHIFT-*}{CBM-G} ; N{CBM-N} start {CBM-R} {CBM-D} T{CBM-P} ; {CBM-*}{CBM-H} ldx #0 {$e5}{CBM-O} ; {$f2}{CBM-V} loop {CBM-R} {CBM-D} {$f8}H ; Mjldx #0: lda #32 ; (space) o; Gtloop {CBM-R} {CBM-D} ; loop {CBM-@} clear 3 pages of screen mem{CBM-A}y past the {CBM-@}p 3 lines My; {CBM-I}^sta screen,x: sta screen{CBM-N}256,x: sta screen{CBM-N}512,x {CBM-H}Minx: bne loop {SHIFT-@}R; HWfinal {CBM-R} {CBM-D} N{$7c}; {$fe}sta screen{CBM-N}768,x ; final clear of the bot , 0, 0 )8 0, 0, 0, 0, 173, 0 lb 3, 141, 3, 192, 173, 1 Ol 3, 141, 4, 192, 169, 144 v 141, 0, 3, 169, 192, 141 {CBM-J}{$60} 1, 3, 173, 50, 3, 141 XJ 7, 192, 173, 51, 3, 141 {$fb}T 8, 192, 169, 119, 141, 50 {$7e} 3, 169, 192, 141, 51, 3 a 173, 48, 3, 141, 5, 192 D 173, 49, 3, 141, 6, 192 169, 127, 141, 48, 3, 169 {CBM-N}{CBM-+} 192, 141, 49, 3, 96, 174 M{CBM-A} 9, 192, 134, 186, 108, 7 {$f0}{SHIFT-@} 192, 174, 9, 192, 134, 186 D 1169, 1, 162, 8, 160, 12, 32, 186, 255 [{$f2} 169, 11, 162, 235, 160, 192, 32, 189, 255 {$fc} 32, 192, 255, 32, 183, 255, 240, 1, 96 {CBM-B} 169, 2, 162, 8, 160, 13, 32, 186, 255 {$f1} 169, 13, 162, 246, 160, 192, 32, 189, 255 # 32,, 208, 2, 230, 255, 200, 208, 2 ov 230, 255, 177, 254, 133, 251, 200, 208, 2 {$60} 230, 255, 200, 208, 2, 230, 255, 169, 0 {CBM-W}J 133, 252, 177, 254, 170, 201, 32, 240, 15 {$e5}T 230, 252, 165, 252, 41, 3, 133, 253, 32 {$7e} 228, 192, 1932, 198, 255, 32, 228, 255 c{SHIFT-@} 72, 32, 183, 255, 201, 0, 208, 16, 162 UD 2, 32, 201, 255, 104, 32, 210, 255, 201 {CBM-M}N 13, 208, 227, 76, 75, 192, 104, 32, 204 YX 255, 169, 1, 32, 195, 255, 169, 2, 32 {$e2} 195, 255, 96, 138, 08, 5, 192, 32, 115, 0 6N 32, 158, 173, 76, 163, 182 yX 224, 11, 240, 3, 108, 3 {$7c}{$e2} 192, 32, 121, 0, 205, 10 {$ec} 192, 240, 3, 108, 3, 192 B{$f6} 104, 104, 32, 170, 192, 76 {$e5} 6, 169, 32, 115, 0, 201 0, 240, 6, 201, 58, 240 + 2, 208, 6, 32, 45, 193 n 76, 87, 194, 201, 68, 208 Q( 39, 32, 115, 0, 72, 32 2 45, 193, 104, 201, 69, 208 {CBM-Y}< 7, 32, 241, 183, 142, 9 Zf 192, 96, 201, 79, 208, 3 {$fd}p 76, 99, 193, 201, 192, 139, 227, 165 4{$f2} 244, 237, 245, 8, 64, 0 w{$fc} 0, 0, 0, 0, 0, 0 Z 0, 0, 0, 0, 0, 0 0, 0, 0, 0, 0, 0 {SHIFT-*} 0, 0, 0, 0, 0, 0 {$e3}$ 0, 0, 0, 0, 0, 0 . 0, 0, 0, 0 lda ,x ; get the display data gR sta screen,x ; s{CBM-@}re it the screen {$7c}W inx: cpx #120 ; ly allow 3 lines (3 x 40 {CBM-R} 120) {CBM--} bne loop {$e1} jmp (oldirq) {$e6} ; {SHIFT-+}{$eb} oldirq .w{CBM-A} 0 ; two bytes s{CBM-@}rage of the old irq vec{CBM-@}r {$e1}{$f0} ; {$f5} = * ; store the di ) keywords (aug 25/84) : / : o 1 statement, 0 functions u : R keyword characters: 8 X : keyword routine line ser # G keywords kwrds 4940 059 M : {$f4} ================================ {$fa} : T # "'BITS' programs start here d "note: this file is only a C "directory placemarker - ( "scratch it if you wish. kwr3 Rkwr4 jmp $aad7 T; keywords kwrds 4940 059 M : {$f4} ================================ {$fa} : T8 the transactor volume 5 issue 06 page 6 ^ * print a wordpro file to screen * 40 column version for 4032/c64 D "filename";f$ {CBM-R}N 1,8,12,"0:"{CBM-N}f${CBM-N}",p,r" {CBM-X}X b{CBM-R}1984 T b=33728 for 4032 {$fb} cc{CBM-R}B(646): c{CBM-R}54272: * only for 64 cic1 {$f1} clc {$fe} bcc cic2 cic1 cmp #$41 cic2 rts # ; 1Fpdown rts 7H; eJ#m{CBM-A}vec {CBM-R} {CBM-D} mZ#rts \{$de}#kilvec {CBM-R} {CBM-D} D{$ee}#rts J{$f0}#; la {$7f}Djsr $79 Fjmp ex1 P; {CBM-+}Relsrtn jsr $a8f8 {CBM-R}Tjsr $79 {CBM-X}Vcmp #0 JXbne els1 RZrts {$e3}{CBM--}els1 jsr $73 {$f0}7 the transactor volume 5 issue 06 page 6 E * restore a program after reset or new * {$7c} ad{CBM-R}49152: i{CBM-R}0{CBM-@}21 d: ad{CBM-N}i,d: i {CBM-H} 169,8,141,2,8,32,51,165,24 V( 165,134,105,2,133,45,165,35 {$ec}2 105,0,133,46,96 < "to execute 79 {$f7}{CBM-S}cmp #$89 {CBM-A}beq 1 {CBM-R}lda #$a7 {CBM-H}jsr $aeff ,{CBM-L}1 jsr $79 8{CBM-U}ldx $61 g{SHIFT-@}beq elsrtn r{CBM-C}bcs 2 {$60}{CBM-V}jmp $a8a0 K{SHIFT-*}2 pla SBpla {$7f}Djsr $79 Fjmp ex1 P; {CBM-+}Relsrtn jsr $a8f8 {CBM-R}Tjsr $79 {CBM-X}Vcmp #0 JXbne els1 RZrts {$e3}{CBM--}els1 jsr $73 {$f0}7 the transactor volume 5 issue 06 page 6 E a{CBM-R}49152 {CBM-@} 49169: b: a,b: c{CBM-R}c{CBM-N}b: a c{CBM-W}{CBM-E}1779 {CBM-M}"data error!": 49152 {SHIFT-@}( "basic warm start flasher activated" {SHIFT--}2 169,11,141,2,3,169,192,141,3 < 3,96,238,32,208,76,131,1647 jmp $af08 {$fd}z; \ex8 jsr ex9 ^jmp $a7ae !{$60}; 6Bex9 lda #{CBM-E}rtn{CBM-Q}1 >Dpha oFlda #{CBM-W}rtn{CBM-Q}1 wHpha CJjmp $73 IL; YNfun jsr $73 Pcmp #$5f Rbeq fu2 Tlda $7a {CBM-N}Vbne fu1 {CBM-L}Xdec $7b FZfu1 dec $7a U{$7c}jmp (fvec) {SHIFT-+}{$7e}; {$ea}fu2 lda #07 the transactor volume 5 issue 06 page 6 y ** directory double width ** {$7b} ** by brian dobbs ** ** timmins, ontario ** {CBM-P}( k{CBM-R}3:r{CBM-R}1: k,k {CBM-B}2 dr{CBM-R}0: 140 Fp 3 {$e3}z "another (y/n)";an$ {$f5}D an${CBM-W}{CBM-E}"y"{CBM-M} N "in k,{CBM-T}40);:160 {CBM--} 1 {$e6} 5 issue 06 page 6 y ** directory double width ** {$7b} ** by brian dobbs ** ** timmins, ontario ** {CBM-P}( k{CBM-R}3:r{CBM-R}1: k,k {CBM-B}2 dr{CBM-R}0: 140 Fp 3 {$e3}z "another (y/n)";an$ {$f5}D an${CBM-W}{CBM-E}"y"{CBM-M} N "in .F "keywordS \.w{CBM-A}d kwrds{CBM-Q}1 1lkwrds jsr $aad7 fnldy #0 [pkwr1 ldx #0 Prkwr2 lda skw,y tbeq kwr4 vphp {CBM-Z}x{CBM-P} #$7f Bzjsr $ab47 W\iny {$ec}^inx {$60}plp 7 the transactor volume 5 issue 06 page 6 aN a{CBM-R}828 yX b:c{CBM-R}c{CBM-N}b:b{CBM-R}256{CBM-M}140 M a,b:a{CBM-R}a{CBM-N}1:120 c{CBM-W}{CBM-E}8574 {CBM-M} "data error": {CBM-F} "sys828 returns the current disk status" {$fc} 169,0,32,189,255,169,15,162,8,160,15,32,186,255,32,192,255 ; R "" 3{CBM-G} 25 cursor downs a{CBM-N} {CBM-K}#1,a$,b$ t{CBM-P} - main loop - E{CBM-H} i{CBM-R}b {CBM-@} b{CBM-N}39 {CBM-V} {CBM-K}#1,a$: i,F(a${CBM-N}G(0)) R c{CBM-N}i,cc: * only for 64 {CBM-D}{CBM--} st {CBM-M} 250 {CBM-X}{$e6} i: : 180 C{$f0} : L{$fa} 1: C{CBM-N} 162,15,32,198,255,169,0,141,19,3,32,228,255,172,19,3,238 {$7c}{CBM-H} 19,3,153,127,3,201,13,208,240,32,204,255,169,15,32,195,255 {CBM-X}{CBM-V} 160,0,185,127,3,170,200,32,210,255,224,13,208,244,96,0,256 +this program, use:" %f " sys"ad":clr" ursor downs a{CBM-N} {CBM-K}#1,a$,b$ t{CBM-P} - main loop - E{CBM-H} i{CBM-R}b {CBM-@} b{CBM-N}39 {CBM-V} {CBM-K}#1,a$: i,F(a${CBM-N}G(0)) R c{CBM-N}i,cc: * only for 64 {CBM-D}{CBM--} st {CBM-M} 250 {CBM-X}{$e6} i: : 180 C{$f0} : L{$fa} 1: {$de}cmp #$5f ~ bne elsrtn {$e2}jsr $73 {$e4}cmp #$40 '{$e6}bne elsrtn 3{$e8}jsr $73 >{$ea}jmp 2 d{$ec}; s{$ee}ext ldx #7 G{$f0}ext1 lda tvec,x V{$f2}sta $304,x {$7e}{$f4}dex {$f6}bpl ext1 {$f8}lda #$a2 {CBM-+}{$fa}sta start {CBM-J}{$fb}jsr kilvec C{$fc}jmp pdown I{$fe}; {CBM--} cchr cmp #$5b {$e9} bcc ,0 program, use:" %f " sys"ad":clr" ursor downs a{CBM-N} {CBM-K}#1,a$,b$ t{CBM-P} - main loop - E{CBM-H} i{CBM-R}b {CBM-@} b{CBM-N}39 {CBM-V} {CBM-K}#1,a$: i,F(a${CBM-N}G(0)) R c{CBM-N}i,cc: * only for 64 {CBM-D}{CBM--} st {CBM-M} 250 {CBM-X}{$e6} i: : 180 C{$f0} : L{$fa} 1: {$f6}sta $0d jsr $73 sec sbc #$40 $cmp #$1e 0bcc fu3 ;sbc #1 gfu3 sec tsbc xtra {$60}bcc ex7 Ocmp xtra{CBM-N}1 {$7b}bcs ex7 asl tay lda {CBM-G}cs{CBM-N}1,y {CBM-T} pha {CBM-E}{CBM-I}lda {CBM-G}cs,y {CBM-O}{CBM-@}pha E{CBM-+}jmp $73 K{CBM-POUND}; {$de}{CBM-N}rtn jsr $ad9e {$ea}{CBM-D}jsr $sert another disk, press any key" 3X {CBM-K}a$:a${CBM-W}{CBM-E}""{CBM-M}120 ; 40 C n${CBM-R}G(0):h{CBM-R}256:1,8,0,"$"{CBM-N}J(D(dr),2) Q {CBM-K}#1,a$,a$ {CBM-K}#1,a$,a$,a$,a1$: st {CBM-M} 220 {CBM-H}{CBM-N} d{CBM-R}F(a${CBM-N}n$){CBM-N}F(a1${CBM-N}n$){CBM-D}h: k,d; S{CBM-H} {CBM-K}#1,a$:a${CBM-W}{CBM-E}""{CBM-M}k,a$;:180 {$ef}{CBM-V} r{CBM-R}r{CBM-N}1:r{CBM-R}2{CBM-M}r{CBM-R}0:k :160 H d${CBM-R}D(d): M7 the transactor volume 5 issue 06 page 7 I 3,3:4,4:"";:i{CBM-R}1{CBM-@}80:{CBM-K}#3,a$:4,a$;:: 3: 4 {CBM-POUND} Bbpl kwr2 + Dkwr3 cpx #$0a @ Fbeq kwr1 u Hcpx #$14 B Jbeq kwr1 P Ljsr $ab3f X Ninx Pbne kwr3 Rkwr4 jmp $aad7 T; keywords kwrds 4940 059 M : {$f4} ================================ {$fa} : T e 04 (feature: amiga transactor announced) ------------------------------------------------------------------------------- ** note ** prepayment required. purchase orders accepted with prepayment only . ... cheque/m.o. enclosed cheque # ....... dated .. issue 05 (hardware and software interfacing) ... volume 6 issue 06 (real life applications) ... volume 7 issue 01 (rom routines kernel routines) ... volume 7 issue 02 (games from the inside out) ... volume 7 issue 03 (programming the chips) ... volume 7 ) transbasic kernel (sept 29/84) : / : o 2 statements, 0 functions u : R keyword characters: 8 X : keyword routine line ser # G s/else elsrtn 2514 001 {$ee} s/exit ext 2542 002 {$f4} : uti sactor magazine back-issues $4.50* each ... volume 4 issue 01 ... volume 4 issue 02 ... volume 4 issue 03 ... volume 5 issue 01 (sound and graphics) ... volume 5 issue 02 (the transition to machine code) ... volume 5 issue 05 (hardware and peripherals) start ] jmp ext ^ ; 7 _ xtra .byte 2,0 ; stmts,funcs = {$60} ; i A .byte 0 o B ; z C skw {CBM-R}{CBM-D} L D .F "elsEexiT" R v; {$7d} wfkw {CBM-R}{CBM-D} h; i.byte 0 j; ks {CBM-R}{CBM-D} {CBM-H} l.w{CBM-A}d $a93a,ext{CBM-Q}1 {SHIFT-@} >; E ?{CBM-G}cs {CBM-R}{CBM-D} K 3; {CBM--} 4start ldx #7 {$f0} 6stt1 lda $304,x ~ 8sta t out) ... disk14 volume 7 issue 03 (programming the chips) ... disk15 volume 7 issue 04 (gadgets & gizmos) ... disk16 volume 7 issue 05 (more languages) ... disk17 volume 7 issue 06 (simulations & modelling) ... disk18 volume 8 issue 01 (math) ... di {$fd}z; \nuvecs .w{CBM-A}d {CBM-@}k,lis,exc,fun "^; 0{$60}{CBM-@}k ldx #0 ;Bldy #0 nDtk1 lda $200,x [Fcmp #$22 GHbeq tk9 UJjsr cchr Lbcc tk4 Nsty $71 Pstx t3 {CBM-T}Rldy #0 {CBM-P}Tsty $0b {CBM-Y}Vdey {CBM-B}Xdex KZtk2 iny S{$7c}inx {$e6}{$7e}tk3 lda $200,x {$ee}sec {$fc}sbc 5 volume 5 issue 06 (programming aids and utilities) ... disk 6 volume 6 issue 01 (more aids and utilities) ... disk 7 volume 6 issue 02 (networking and communications) ... disk 8 volume 6 issue 03 (languages) ... disk 9 volume 6 issue 04 (implement e {CBM-D}beq tk6 {CBM-S}tk7 iny {CBM-A}lda skw{CBM-Q}1,y ){CBM-R}bpl tk7 7{CBM-H}lda skw,y c{CBM-L}bne tk3 o{CBM-U}ldy $71 ^{SHIFT-@}lda $200,x J{CBM-C}bpl tk4 P{CBM-V}; {SHIFT-*}tk8 lda $200,x Bbeq tk4 Dcmp #$22 {CBM-POUND}Fbeq tk4 {CBM-F}Htk9 sta $200,y CJiny KLinx WNbne tk8 {SHIFT--}P; {$ee}Rlis cmp #$5f {$f9}T bpl l4 {$fe}dex bne l4 ; l5 lda skw,y ( php 3{CBM-P} #$7f ajsr $ab47 iiny qplp \bpl l5 Gldy t3 Xl6 jmp $a700 {$7e}; exc jsr $73 ex1 cmp #$8b {CBM-Q} beq ex8 {CBM-U}"cmp #$5f D$bne ex5 P&jsr $73 {CBM--}(jsr ex2 {$ea}*jmp $a7ae {$f0}, ./.../... amount .......... . ... visa ... mastercard acct. # ............................ expires .../... ------------------------------------------------------------------------------- * ontario residents - please add 7% provincial sales tax on dis issue 04 (gadgets & gizmos) ... volume 7 issue 05 (more languages) ... volume 7 issue 06 (simulations & modelling) ... volume 8 issue 01 (math) ... volume 8 issue 02 (operating systems) ... volume 8 issue 03 (feature: surge protection) ... volume 8 issu lity: cifchr (2560/003) : ? kernel also includes modified E 'if' statement (ifrtn/2474/000) K : B(773){CBM-W}192 29 : _a : 700 {CBM-Q} {CBM-D}{CBM-R} $c000 {CBM-E} ; {CBM-C}! t2 {CBM-R} 2 G" t3 {CBM-R} 3 R# t4 {CBM-R} 4 {SHIFT--}$ t5 {CBM-R} 5 {$e8}% t6 {CBM-R} 6 {$ee}& ; {$f4}[ ; \ jmp ... volume 5 issue 06 (programming aids and utilities) ... volume 6 issue 01 (more aids and utilities) ... volume 6 issue 02 (networking and communications) ... volume 6 issue 03 (languages) ... volume 6 issue 04 (implementing the sciences) ... volume 6 vec,x :lda nuvecs,x <sta $304,x '>dex 4@bpl stt1 ablda xtra idclc xfadc xtra{CBM-N}1 Ghsta xtra{CBM-N}2 Tjlda #$60 lsta start mjsr m{CBM-A}vec nrts p; {CBM-M}q.pad {CBM-F}rtvec .w{CBM-A}d $a57c Otlvec .w{CBM-A}d $a71a {$e3}vevec .w{CBM-A}d $a7e4 {$f7}xfvec .w{CBM-A}d $ae86 sk19 volume 8 issue 02 (operating systems) ... disk20 volume 8 issue 03 (feature: surge protection) ... disk21 volume 8 issue 04 (feature: amiga transactor announced) ------------------------------------------------------------------------------- tran skw,y beq tk2 cmp #$80 ! bne tk5 . lda #$5f : ldy $71 i sta $200,y q iny ] lda $0b J adc #$3f V tk4 inx sta $200,y iny lda $200,y {CBM-POUND} bne tk1 {CBM-Y} jmp (tvec) {CBM-X} {CBM-I}; L {CBM-@}tk5 ldx t3 {CBM--} {CBM-+}tk6 inc $0b {$e8} {CBM-POUND}lda $0b {$f5} {CBM-N}cmp #$1 ing the sciences) ... disk10 volume 6 issue 05 (hardware and software interfacing) ... disk11 volume 6 issue 06 (real life applications) ... disk12 volume 7 issue 01 (rom routines kernel routines) ... disk13 volume 7 issue 02 (games from the inside bne l2 Viny Xlda ($5f),y Zsbc #$40 +{CBM--}cmp #$1e 6{$de}bcc l1 a sbc #1 s{$e2}l1 cmp xtra{CBM-N}2 ^{$e4}bcc l3 F{$e6}dey V{$e8}lda ($5f),y {$ea}l2 tax {$ec}jmp (lvec) {$ee}; {CBM-@}{$f0}l3 sty t3 {CBM-P}{$f2}ldy #0 {CBM-Y}{$f4}tax B{$f6}beq l5 S{$f8}l4 lda skw,y {SHIFT-+}{$fa}php {$e3}{$fc}iny {$eb}{$fe}plp {$f6} ; {$fc}.ex2 sec 0sbc #$40 2cmp #$1e "4bcc ex3 -6sbc #1 >8ex3 cmp xtra j:bcs ex7 r<asl z>tay I@lda s{CBM-N}1,y Qbpha {$7e}dlda s,y fpha hjmp $73 j; {CBM-POUND}lex5 lda $7a {CBM-H}nbne ex6 {SHIFT-*}pdec $7b Prex6 dec $7a {CBM-*}tjmp (evec) {$e5}v; {$f7}xex {CBM-D}kettes and ** the transactor 85 west wilmot st. #10 richmond hill ont. canada l4b 1k7 ** ------------------------------------------------------------------------------- accepted with prepayment only . ... cheque/m.o. enclosed cheque # ....... dated .. 8 the transactor volume 5 issue 06 page 12 ] * data loader for "verifizer" * R vic/64 version {$7b} cs{CBM-R}0 i{CBM-R}828 {CBM-@} 958: a: i,a {CBM-M}( cs{CBM-R}cs{CBM-N}a: i {CBM-Z}2 : {CBM--}< cs{CBM-W}{CBM-E}14755 {CBM-M} "***** data error *****": {$ea}f sys 828 {$f0}p {$f6}D : ({$e8} 0 the transactor volume 7 issue 01 page 11 y{$e8} * data loader for "verifizer c128" X{$f2} * commodore c128 version {$fc} * use in 40 column mode only! {CBM-G}cs{CBM-R}0 Q j{CBM-R}3072 {CBM-@} 3214: x: j,x: ch{CBM-R}ch{CBM-N}x: {$f9} ch{CBM-W}{CBM-E}17860 {CBM-M} "checksum error": $ 169, 12, 141, 3, 3, 96, 165, 22 rT 133, 250, 162, 0, 160, 0, 189, 0 {$7f}{$7e} 2, 201, 48, 144, 7, 201, 58, 176 {CBM-D} 3, 232, 208, 242, 189, 0, 2, 240 Y 22, 201, 32, 240, 15, 133, 252, 200 152, 41, 3, 133, 251, U255, 169, 146, 32, 210, 255 a {$e2} 24, 32, 240, 255, 108, 253, 0, 165 I {$ec} 252, 24, 101, 250, 133, 250, 96 , 201, 58, 176 {CBM-D} 3, 232, 208, 242, 189, 0, 2, 240 Y 22, 201, 32, 240, 15, 133, 252, 200 152, 41, 3, 133, 251, D save"0:RUN ME!",8 pI ** transactor subscription form print program ** ON "";: dv{CBM-R}4: 15,8,15 {CBM-I}S 8,8,8,"RUN ME TEXT,s,r": 15,e: e {CBM-M} 8: KX x{CBM-R}0 {CBM-@} 1: 8,d$: d$: x{CBM-R}st: : 8 {$fa}{$7d} "your choice (y/n) ";yn$: yn${CBM-W}{CBM-E}"y" {CBM-M} 2** The Transactor Magazine ** . The programs contained on this diskette are just a brief glimmering of what can be expected from each issue of our magazine. If you have not already decided to subscribe let us help you on your way. {$f7}he Transactor can be found on the newsstands or because you do not know who we are then it's time to learn. Allow your printer to produce our form; fill it in then mail it to us. It will be a decision that you will never regret. . our way.** the transactor magazine - subscription form ** . ** please send me 6 consecutive transactors starting with the next issue ** . canada $19 ... usa $15 us ... foreign $21 us ... air mail overseas $40 us ... . ... rene +z$ to add lost mkr {$fd}{CBM-A}2,a$; ={SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$) : update start addr hD 1130 pN 1 X mc{CBM-N}21, 13 : input delim back to cr {CBM-V}{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic {$fe}{$ec} 450 Z 15, 24, 105, 97, 32, 210, 255 nv 165, 89, 74, 74, 74, 74, 24, 105, 97 {$60} 32, 210, 255, 169, 146, 32, 210, 255, 24 {CBM-R}J 32, 240, 255, 108, 251, 0, 165, 91, 24 PT 101, 89, 133, 89, 96 , 254, 1, 133, 89, 162 " 0, 76, 74, 3, 165, 251, 141, 2, 3, 165 z{$f2} 252, 141, 3, 3, 96, 173, 3, 3, 201 {$fc} 3, 240, 17, 133, 252, 173, 2, 3, 133 {CBM-V} 251, 169, 99, 141, 2, 3, 169, 3, 141 {$f0} 3, 3, 96, 173, 254, 1, 133, 89, 162 " 0, "sys 3072,1: rem to enable" >. "sys 3072,0: rem to disable" d8 Qb 208, 11, 165, 253, 141, 2, 3, 165 l 254, 141, 3, 3, 96, 173, 3, 3 Kv 201, 12, 240, 17, 133, 254, 173, 2 {$f8}{$60} 3, 133, 253, 169, 38, 141, 2, 3 %J32, 135, 12 3{CBM-+} 198, 251, 16, 249, 232, 208, 229, 56 {$60}{CBM-A} 32, 240, 255, 169, 19, 32, 210, 255 {SHIFT-@} 169, 18, 32, 210, 255, 165, 250, 41 {SHIFT-@}D 15, 24, 105, 193, 32, 210, 255, 165 {$e7}N 250, 74, 74, 74, 74, 24, 105, 193 X 32, 210, ............ . ............................................................................... . ............................................................................... ----------------------------------------------------------------------------- J 4,(dv): 8,8,8,"RUN ME FORM,s,r":15,e: e {CBM-M} 8: D x{CBM-R}0 {CBM-@} 1: 8,d$: x{CBM-R}st: 4,d$: : 4: 8: By allowing this program to complete its predetermined course you will find yourself with one freshly printed subscription form. . Unless you already have a subscription why would you not subscribe? If you abstain merely because T-- the transactor diskettes (1541/4040/msd/indus format) ... send me 6 consecutive disks to correspond with my magazine sub. $45.00 US., $55.00* Cdn. ------------------------------------------------------------------------------- please send me the follo wal (please include your sub. number from mailing lable) .............. . ... new subscription (y/n) ? . name and address please include your postal/zip code (new address? ...) . ................................................................... k : alter next line num {$f6} 1, cd, 8, cn${CBM-N}",s,r" # 550 : get line number Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) {CBM-D} mc{CBM-N}21, 0 : input delim now $00 {CBM-J} mc {$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$ : wing diskettes at $8.95 US., $9.95* Cdn. each . ... disk 1 all programs from volume 4 ... disk 2 programs from volume 5 issues 1-3 ... disk 3 volume 5 issue 04 (business and education) ... disk 4 volume 5 issue 05 (hardware and peripherals) ... disk 160, 0, 189, 0, 2, 240, 22, 201 t$ 32, 240, 15, 133, 91, 200, 152, 41, 3 . 133, 90, 32, 183, 3, 198, 90, 16, 249 {CBM-U}8 232, 208, 229, 56, 32, 240, 255, 169, 19 {$ea}b 32, 210, 255, 169, 18, 32, 210, 255, 165 l 89, 41, #1,x$ {CBM-K}#1,x$ {CBM-K}#1,x$ x{CBM-R}F(x${CBM-N}G(0)) 4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0)) :{CBM-D} {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d {CBM-G} {CBM-E}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E} {CBM-E}I*{$f0} I?{$f0}QPH{SHIFT-*}P{$ed}{$60} {CBM-G}P{$f6} {CBM-G} {$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~ {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI cXx{CBM-I}{CBM-X}bhjjjj0 0 **************************************** _ * convert cbm assembler source file to * ( * file to pal assembler source file * {CBM-X}2 * k.j.h. hildon 03/83 * {$ec}< * ======= palvert64 1.0 ========= * f * wor ",21); ${CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%) p{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780 Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730 {CBM-Q}P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w" PZl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780 {$e5}{$e4}t%{CBM-R}4{CBM-M}4462:760 {$ef}{$ee}4443 ffer a X mc{CBM-R}896 : mach code start addr Z *** string input routine -- by jim butterfield *** E 160, 2, 177, 45, 153, 137, 0, 200, 192, 6, 208, 246, 162, 1 32, 198, 255, 32, 228, 255, 201, 13, 240, : start addr c64 zR sl{CBM-R}100 : starting line # {CBM--} ic{CBM-R}10 : increment {$e6} 270 L{$f0} : "append to existing pal file (y/n)";yn$ {$fa} yn${CBM-R}"y" {CBM-M} 900 {$fa} 360 : 450 : w pal filename";pn$ R {CBM-T}20)cn"" 6{$7c} " destination drive";pn f {CBM-T}20)pd"" E "destination device#";pd pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$ {CBM-N}{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd : 700 : 2 T{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M} "file exists" : : 360 {$de}{CBM-U} : {$f9}Ba{CBM-R}sl : : {CBM-T}2 output file start addr ($0801) k& mc : sx{CBM-R}st : input line from cbm source file _0a${CBM-R}H(i$,B(142)) {CBM-+}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5 : start addr + line len + 5 for link,line,mkr {$e1}da{CBM-R}sa : 660 : output line link - hex lo, hex hi na{CBM-R}sl : hex bytes {CBM-D}{CBM-D} 2, G(a {CBM-P} 255); "2, G({CBM-J}(a{CBM-Z}256)); ({CBM-POUND} 9{CBM-R}{CBM-D}{CBM-D} err{CBM-A} {CBM-D}{CBM-D} j{CBM-C} 15, ed, 15 AF15, e, e$, et, es Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es) Z 15 {$e4} A{$ee} ** add more cbm source modules ** G{$f8} {$ea} "(DO NOT exit with <RETURN>)ew cbm file name 9r 450 : alter next line number, increment m\ 1, cd, 8, cn$ FF 2, pd, 6, pn${CBM-N}",a" P 550 : go add file EZ ** append cbm source to existing pal file ** {$e9} : " old pal filename";pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) : 1080 -{$f2} {CBM-T}20)cn"" l{$fc} " destination drive";pn \ {CBM-T}20)pd"" {$7b} "destination device#";pd pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$ {SHIFT-*}$ 2, pd, 6, pn$ : ed{CBM-R}pd : 700 : 2 {$ec}. e{CBM-W}{CBM-E}62 {CBM-M} " file exists" : SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~ {CBM-I} e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0} {$f0} de L~{CBM-I} I~ {CBM-I} {CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND} bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND} @abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P K{CBM-G}{$f0}{CBM-V}{$60} {$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*" {$ea}P {$f5}Z{CBM-K}ks on c64 with disk * jp * absolutely no copyright restrictions * Yz **************************************** {CBM-X}D i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" : i$ must be 1st var used N i${CBM-R}i${CBM-N}i${CBM-N}i$ : establish input bu {$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780 "" 2 4: 3: 15: 14 9j C x{CBM-R}{CBM-U}(0):"another input disk ready";z$ U*F(z$){CBM-R}89230 {$7b}4 >"drive 0";d hd{CBM-D}d{CBM-W}{CBM-E}d830 {CBM-E}rd${CBM-R}G(d{CBM-N}48): D\15,e,e$,e1,e2 {$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*" {$ea}P {$f5}Z{CBM-K}15, 164, 142, 145, 140 [ 200, 132, 142, 196, 139, 240, 4, 165, 144, 240, 234, 76, 204, 255 {CBM-N} : j{CBM-R}mc {CBM-@} mc{CBM-N}41 : x : j, x : t{CBM-R}t{CBM-N}x : {CBM-E}{CBM-H} t{CBM-W}{CBM-E}6120 {CBM-M} "typo in data" : {$e3}{CBM-V} z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0 : G(14) H sa{CBM-R}2049 520 : "cbm source filename";cn$ . {CBM-T}20)cn"" m " " source drive";cn ] , {CBM-T}20)cd"" {$7c} 6 " source device#";cd @cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$ A j 1, cd, 8, cn$ : ed{CBM-R}cd : 700 : 1 {SHIFT--} t e {CBM-M} ee$ : : 270 {$e3} ^ H : " ne0)sl"" L " starting line #";sl hV sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a : 450 x {CBM-T}20)ic"" W{$ea} " line increment";ic {$f4} : {SHIFT-POUND}{$fe} ** open input and output files ** {CBM-X} 1, cd, 8, cn$ X 2, pd, 6, pn${CBM-N}",p,w" a{CBM-R}sa : 660 : 660 : output line # - hex lo, hex hi sxsl;a$ : ===== remove for better speed ====== Bsl{CBM-R}sl{CBM-N}ic : increment line number {CBM-J}L2, a$z$; : output line, chr$ zero FV sx{CBM-R}0 {CBM-M} 550 {CBM--} 2 : 1 : 760 {$f9}{CBM-D}{CBM-D} output 2 "Append another file n";yn$ % yn${CBM-R}"y" {CBM-M} 840 > 2, pd, 6, pn${CBM-N}",a" {$7b} 2, z$z$; : add end file marker ($00, $00) * 2 : 15 {CBM-X}4 "load";G(34);pn$;G(34);","J(D(pd),2)"" C> {$f8}h 270 : for nop$ {$f9} {CBM-T}20)cn"" " drive";op ({CBM-I} {CBM-T}20)od"" g{CBM-D} " device#";od Q{CBM-L} 1, od, 8, op$ : ed{CBM-R}od : 700 : 1 {SHIFT-*} e {CBM-M} ee$ : : 900 {CBM-G}J : {CBM-T}21)"@"op$"" ET " new pal filename";pn$ {$de} H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010 {$e8} : 970 #8 : "creating new file from ";op$;" stand by..." >b 1, od, 8, op${CBM-N}",p,r" yl 2, pd, 6, pn${CBM-N}",p,w" v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$)); : file start address {CBM-S}{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$)); {$e6}J{CBM-K}#1, b$, c$ : st{CBM-R}64 {CBM-M} 1230 : get line link Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) e{$7e}{CBM-K}#1, b$, c$ : get line number Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) {CBM-D} mc{CBM-N}21, 0 : input delim now $00 {CBM-J} mc {$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$ : )D "supermon+pet jim butterfield" cN (B(40){CBM-N}256{CBM-D}B(41){CBM-N}71) {CBM-G}*{CBM-G}+ {CBM-G}4!{CBM-G}5" {CBM-G}PF F{CBM-E}I/P/{CBM-G}PF F{CBM-E}I/{$f0}0#{CBM-G}PF F{CBM-E}E!{CBM-N}{CBM-G}#E"h{CBM-G}4PF5F4H4h{CBM-G}4PF5F4H4{CBM-R}{CBM-G}40{CBM-G}51L4 // M{$fe}/{CBM-Z}{$fe}~/I{CBM-Z}~~/J I{$fc}/{SHIFT-POUND} {CBM-I} {$fd}/ {$fb}/{CBM-Z}{$fc}~/{CBM-Z}{$fd}~/ {CBM-I}H<J{$f9}X{SHIFT-@}bx z{$fe}/{SHIFT-POUND} RJ{CBM-G}P>NcP{$e5} I{$fc}/{SHIFT-POUND} {CBM-I} {$fd}/{SHIFT-POUND} R~ p{$f5}/{$f0} {CBM-+}P R~{$ef} {$fb}/{CBM-G}I{$ef}{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{SHIFT-POUND} p{$f5}/H p{$f5}/{SHIFT-POUND} p{$f5}/ p{$f5}/l{$f6}{$f4}/ {$fb}/l]{$fe}/ M{$fe}/ ({SHIFT-POUND} R~{SHIFT-POUND} R~P{$f3}{$60}{CBM-O}{$7b}{$fe}/){$7f} {$fb}/H({$f3}{$60} pc sr ac xr yr sp v1.0{CBM-B}..sys : erroRa @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@ .{$f1}N{$f1}{$f1}{$7e}{$f1}{$fe}{CBM-W}u{$f3}*{$f9}{$e2}{$f6}b{$f1}{$f1}T{$f0}Q{$f0}{CBM-B}{$f1}{$f1}{CBM-U}{$f1}{CBM-Z}{$f1} {CBM-Z}{$f4}/{$f4}/{$ef} {$fb}/{CBM-G}I{$ef}{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{SHIFT-POUND} p{$f5}/H p{$f5}/{SHIFT-POUND} p{$f5}/ p{$f5}/l{$f6}{$f4}/ {$fb}/l]{$fe}/ M{$fe}/ ({SHIFT-POUND} R~{SHIFT-POUND} R~P{$f3}{$60}{CBM-O}{$7b}{$fe}/){$7f} {$fb}/H({$f3}{$60} pc sr ac xr yr sp v1.0{CBM-B}..sys : erroRa @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@ {CBM-Z}c{$e9}c{CBM-Z}d{$e9} d{$60}{SHIFT-POUND}E{$fb}{$fb}{$e6}{$fc}{$60}8{CBM-G}{$fb}{$e9}{$fb}{CBM-G}{$fc}{$e9} {$fc}{$60}{CBM-A} {CBM-G}I{CBM-@}J=<{$60}{CBM-A}# {$f3}{$fb}/ {SHIFT-@}{$fa}/{CBM-A}{CBM-G}I{CBM-G}J {$fc}{$fb}/{CBM-G}Ic{CBM-G}Jd$8{$60} {CBM-Y}{$fa}/ {CBM-+}{$fb}/{SHIFT-POUND}$ R~{CBM-G}I{CBM-+}J {$fb}/ {CBM-+}{$fb}/{SHIFT-POUND}+ R~ I{$fc}/{SHIFT-POUND} {CBM-I} {$fd}/ {CBM-+}{$fb}/{SHIFT-POUND}& R~{SHIFT-POUND} {CBM-I} {$f2}{$fc}/ {CBM-+}{$fb}/{SHIFT-POUND}% R~{SHIFT-POUND} {CBM-I} {$f2}{$fc}/l{$f6}{$f4}/ {$f3}{$fb}/{SHIFT-POUND} {CBM-I} J{$fa} X{$f8}{$fb}&{$fc}{CBM-I}{CBM-X} {$7d} J{$f4}P{$eb}({$60}h{CBM-G}I{CBM-G}J{SHIFT-POUND} H {CBM-D} {SHIFT-POUND} D~ J~ J~ P{SHIFT-POUND}~CB0 J~ EP J~ EP Q{SHIFT--}{SHIFT-POUND} lR~ J~ {CBM-Y}~ {$f0}R {CBM-I}~ {$e6} ${$fe} {$e6}-P{$e6}.{$60} {CBM-I}~ F {$fe} {CBM-G}-PF.F-{$60} {$f0}{$fd} {$60}{CBM-G}5C{CBM-G}6BlF{CBM-G}CE3C{CBM-G}BE4B J~ P{$fb}{$60} {$e6}ZP{$e6}{$7b}{CBM-E}Z{$60}{CBM-M}changEdeletEfinDkilLnumbeR {CBM-G}{$fc} a{$fc} {CBM-G}{$fc} F{$fb} {$fe} {CBM-D}{$fb} %F$l${$fe} {CBM-G} M{SHIFT--}{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} {$7c}{$fe} H{CBM-E}P{$e8}l{$fb}/{CBM-+}{$fc}{CBM-POUND}JE{$fb}{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{CBM-S}{$fe}/{CBM-A}jjjj)P {SHIFT-POUND} {CBM-N}{CBM-X}{$f2}{$fe}/ )){CBM-N} {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}~/c{CBM-O}l~/d{SHIFT-POUND} d.c*P{$f6}I? R~JP{$ea}l{$fb}/Ne {$e2}{$fa}/{CBM-A} V{$fb}/P Ne{CBM-Z}P{$f0} I {$f0}I,{$f0}HHl'{$f5}/8${CBM-Z}{$60}{SHIFT-POUND} IJhh Y{$fb}/{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}~/{$f0}J{$f8}{$e8}Ne{CBM-C}{$f4}~/{CBM-X}{$f8}~/ Y{$fb}/{$f0}C8{$e9}0^I {$e9}I{CBM-A}tLP{$f9}Ne Y{$fb}/{$f0}I {$f0}E {$e8} {CBM-X}{CBM-A}{CBM-L}c{CBM-I} {CBM-I} g{CBM-Z} i{$fa}/{CBM-S} d{CBM-N}{CBM-X}l~/ O{$f9}/{CBM-X}~/ O{$f9}/{CBM-I} P{CBM-D}{$f0}{CBM-Z} I{$e8}{SHIFT-POUND}0{CBM-A} L{$f9}/P{$f1} {CBM-X}~{$fe}/ O{$f9}/{CBM-X}~/{$f0} O{$f9}/JPR{$f0} L{$f9}/ L{$f9}/{CBM-Z}cMg{$f0}l{$7c}{$f9}/{CBM-D}{$f0}2{CBM-Z}dIP#{CBM-G}I{$e5}{$fb}{CBM-N}{CBM-G}J{$e5}{$fc}PF {CBM-A}B{CBM-POUND}HP\ xJJ{CBM-D}P{CBM-O}H {$fb}P{$f8}{CBM-Z}{$fb} {$fb}/{SHIFT-POUND} R~ . z{$fe}/ K{$f9}/{$ee}{CBM-Z} 2{$fc}/{SHIFT-POUND}aO{SHIFT-POUND} PU{CBM-G}{$fc} A{$fb}/Q-D " disk copy-all jim butterfield" FN a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$ PX p${CBM-R}"" l2(232),l1%(232),n$(232),t%(232),t$(4) {CBM-Y} xxx,seq,prg,usr,rel L j{CBM-R}0{CBM-@}4:t$(j):j {$e5} "from unit 8";f {$ee}{CBM-N} 830 {$f8}{CBM-H} f${CBM-R}d$ {CBM-V} / {CBM-G}I{$ef}{$f0}1{CBM-E}{$fb},fIQI{$f0} {$fb}/,0{$e6}IP{$e6}JPl'{$f5}/ {$fc}/ <{$fc}/lM{$f6}/ 0{$fc}/ {$fc}/{CBM-A}Il{$f6}{$f4}/ w{$fc}/{CBM-A}z Y{$fb}/I'P Y{$fb}/I {$f0}jH Y{$fb}/{$f0}{SHIFT-*}P{$f3}{$f0} {CBM-Y}{$fa}/{CBM-G}IH {SHIFT-@}{$fa}/{CBM-A}{SHIFT-*}P{$f1}f {$fb}/ {CBM-E}{$fb}YPHLfP{$f3} {$fb}/{CBM-G}I{$ef}{$f0} 0{$fc}/ {$fc}/{CBM-A} l{$f6}{$f4}/l'{$f5}/ TSQ{SHIFT-POUND}{SHIFT-+}{SHIFT-POUND}Z Y{$fb}/{$f0}uI {$f0}{$f7}I"P{CBM-S}e{CBM-X} {$f0}e{$e8}I"{$f0}Z{$e6}QH{SHIFT-*}{$ed}l'{$f5}/e Y{$fb}/{$f0}, {SHIFT-@}{$fa}/{CBM-A}'{CBM-G}" " 1,f,3,"$"{CBM-N}f$ # ,860:e{CBM-M}:230 - 64156 = @r{CBM-R}255: 340 g j4245 K tj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j {$7c} ^n${CBM-R}J(a$,4,j) Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470 {CBM-A} Rl1%{CBM-R}F(J(a$,22)) S {$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256 {$ee} J(a$,4,16);" ";t$(t9) {$fd} p{CBM-R}B(203~{CBM-@}F{SHIFT-POUND} R~ I({CBM-A} h{SHIFT-POUND}; R~{SHIFT-POUND} R~{CBM-Z}< {CBM-E}{$fb}/ {CBM-O}< {$fb}/H{SHIFT-*}{$f5} {$fb}/{CBM-I} e O~ {$e8} ;{SHIFT-POUND} I P{$ef}{SHIFT-POUND} ~ Y{$fb}/{$f0}{SHIFT--}I {$f0}{$f7}{CBM-I}{SHIFT--}~/{$f0}J{$f8} M{$fe}/l{$f6}{$f4}/ {CBM-A} {CBM-A} {CBM-N}{CBM-X}{CBM-M}~/h{CBM-X}{CBM-+}~/hl{SHIFT-@}{$fa}/fl7{$f7}/l{$7e}{$fc}/ {CBM-N}{CBM-Z}CIf{$f0}I{CBM-POUND}{CBM-O}E~/h{CBM-O}D~/h{$60}{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{SHIFT-POUND}IP {$fc}{$fb}/"{CBM-Z}hjfJFIjP{$f9}{CBM-G}I{$ef}{$f0} {$f6}/{CBM-Z}h 2{$fc}/ {$fc}/{CBM-A}{$ec}l{$f6}{$f4}/l'{$f5}/ j{$fc}/ {SHIFT-@}{$fa}/{CBM-A} "d3P@BX{SHIFT-POUND} ! ymj,),#($y x$$ #]{CBM-K}#{CBM-K} ){CBM-S}I{CBM-POUND}#$s#$s{CBM-K} [[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z}) {$7c} M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8} {CBM-H}T{CBM-H}(NT{$f4}LjR{$f2}{CBM-@} {CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R} " &&RRHDJ&hdd{CBM-I}H acdfghjmrtx@.>;$+&%lsv{$fd}{$f7}/o{$f6}/{$f9}/W{$f7}/X{$f5}/T{$f6}/{$f6}{$f5}/F{$f5}/{CBM-F}{$f4}/r{$f6}/m{$f5}/2{$fd}/{$fd}{$f7}/{CBM-Y}{$f5}/ {$f5}/C!{$f3}{$e5}{$f8}{CBM-T}{$f6}'{$f1}C{$f1}{CBM-O}{$f0}{CBM-J}{$f0}rams *": 800 {$ea}j{CBM-R}1{CBM-@}n 0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670 ={$fe}q{CBM-R}0550 y"*** output disk full" Y"do you have a new one";z$ F(z$){CBM-W}{CBM-E}89{CBM-M} C& 15:15,t,15:"want to new the output disk n";z$ V0F(z$){CBM-W}{CBM-E}89600 {$f0}:"disk name,id";x$,y$ d.. *{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}I I {CBM-A}EI{SHIFT-POUND} Q Y{$fb}/{$f0}-NeI${$f0}t{CBM-G}I p{$f5}/{SHIFT-POUND}O p{$f5}/{CBM-S}e{$ee}e{CBM-X} {$f0} p{$f5}/lD{$fd}/ p{$f5}/ {$fb}/{CBM-G}I p{$f5}/{SHIFT-POUND}O p{$f5}/ p{$f5}/ R~I {$f0}{CBM-G}){CBM-B}{$f0}{$ee} p{$f5}/l{$f6}{$f4}/l'{$f5}/{CBM-G}I p{$f5}/{SHIFT-POUND}{$f0} p{$f5}/{CBM-S}e{CBM-X} {$f0} p{$f5}/{$ee}eP{$ee} p{$f5}/ {$fb}/{CBM-G}Ih p{$f5}/{SHIFT-POUND}{$60} p{$f5}/ c p{$f5}/I{CBM-G}Pi p{$f5}/15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$ n860:e{CBM-M}:550 f x15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&" y B860:e{CBM-M}:550 M L890:890:q{CBM-R}q{CBM-N}1 V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630 890 {CBM-R} l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )" B 1: 15:500 X 14,f,15:15,t,15 {CBM-POUND}H(n$(j){CBM-N}" j{$f0}h{$ee}{SHIFT-*} P {CBM-I}{CBM-J}IJ{$f8}{CBM-S} I&J{CBM-A}.JP{$f7}{SHIFT-*} P.{CBM-A}{CBM-Z}EII{CBM-Z}EJJ{CBM-A}{CBM-Z}EIIEJJ8$ H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}{$fb}{CBM-+}{$fc}h {CBM-E}{$fb}/H {CBM-E}{$fb}/{SHIFT-POUND} PI P{SHIFT-POUND} $ R~{SHIFT-POUND} lR~ {$fb}/{SHIFT-POUND} R~l]{$fe}/ A{$fb}/ R~{CBM-S}lR~h K{$fb}/{CBM-N}Hjjjj)I II0{$60}Ne{CBM-S}e{CBM-X} {$f0}I:{$f0}I?{$ee}e{CBM-S}({$60}{CBM-G}I{$fb}{CBM-G}J{$fc}{$60}8{CBM-G}I{$e5}{$fb}I{CBM-G}J{$e5}{$fc}J{$60}{SHIFT-POUND}8{CBM-G}I{$ed}I{CBM-G}J{$e9} J{$60}8R{CBM-G}{$fb} A{$fb}/ST{SHIFT-POUND}l{$f6}{$f4}/l'{$f5}/ O{$f9}/{CBM-S}g{SHIFT--} {$f0} HH{$ee}{$f0}{$e8}l{$f8}/{$ee}g{CBM-S}{$60}{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{SHIFT-POUND}IP {$fc}{$fb}/ t{$fe}/{CBM-G}I{$ef}{$f0} C{$f9}/{$ee}{CBM-Z} 2{$fc}/{CBM-Z} {$fc}/{CBM-A}{$e3}l{$f6}{$f4}/l'{$f5}/{SHIFT-POUND}. R~ {$fb}/ {$fb}/ {$fb}/ {CBM-E}{$fb} i{$fa}/h{CBM-S}{$e8}Jf 0 M{$fe}/{CBM-D}fl{$f3}{$f9}/{CBM-E}{$fb} {$fb}/H{SHIFT-*}{$e5}H{CBM-I} {$fa}/{CBM-I} P{CBM-D}{$f0}{CBM-Z} I{$e8}{CBM-E}{$fb}({CBM-A} {CBM-E}{$fb}/P{$ef} {CBM-X}~{$fe}/ R~{CBM-X}~/{$f0} R~JPP{$60} ={$fa}/I"to unit 9";t H 830 "R t${CBM-R}d$ 4{CBM--} f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M} x{$e6} n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$ N{$f0} 860: e {CBM-M} :230 {$fa} z{CBM-R}90:"pattern *";p$ {CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}" ",16) {SHIFT--}"hold down 'y' or 'n' key to select" {$fd}"programs to be copied...IT {SHIFT-@}{$fa}/{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{CBM-A}@ {$fb}/{CBM-Z}fIsPU{SHIFT-POUND} S p{$f5}/l{$f6}{$f4}/{CBM-Z}fIv{$f0}IlP{CBM-V}{SHIFT-POUND} p{$f5}/ p{$f5}/{CBM-G}){$f0} {CBM-Z}f{$f0}{CBM-M} ( M{$fe}/l{$f6}{$f4}/{CBM-+}{$fb}{CBM-@}{$fc}{SHIFT-POUND} S{$f0}L w{$fc}/{CBM-A}z {SHIFT-@}{$fa}/{CBM-A}u Y{$fb}/Pp {CBM-G}I{$fb}{CBM-G}I{$ef}{$f0} 0{$fc}/ {$fc}/{CBM-A}{$ee}l{$f6}{$f4}/{CBM-A}7 {$f3}{$fb}/{CBM-I} Y{$fb}/P {$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN P{$f6}{$f0}{$e9}l'{$f5}/{CBM-I}{CBM-Z}P- {$e2}{$fa}/{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$ {$e8} {CBM-Z} IL{$f0}{CBM-G}JP {SHIFT-POUND}0 {$e8}){CBM-P}r {CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}064450 <{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450 s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450 \{CBM-U}410 Bz{CBM-W}80{CBM-M}" ":470 {CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1% JVst{CBM-R}0{CBM-P}n{CBM-W}232330 {$e3} 1: 15:" * * * * *" {$e5}n{CBM-R}0{CBM-M}"* no prog{CBM-G}I>H{SHIFT-*}{$f1}l{$f6}{$f4}/{CBM-A} {$f3}{$fb}/ {SHIFT-@}{$fa}/{CBM-A} {CBM-G}I{$fb}HLh{$f1}{SHIFT-POUND} R~ {$f6}/l{$f6}{$f4}/{CBM-S}b j{$fc}/X{CBM-Z}<h{CBM-Z}=h{CBM-Z}>h{CBM-Z}?{CBM-S}@{CBM-D}a@{CBM-S}b {SHIFT--}{$f5}/a@?H>l{CBM-C}{$f4}/ {$fb}/{SHIFT-POUND}> R~ {$fb}/ {$f0} {$fb}/{CBM-E}{$fb} {CBM-E}{$fb}/HLh{$f2} & M{$fe}/ {CBM-E}{$fb}{CBM-N}){CBM-B}I"{$f0}){$7f}I {CBM-A}{SHIFT-POUND}. R~HLh{$e4}{$60}{SHIFT-POUND} ,{SHIFT-POUND}f{SHIFT-POUND} w{$fc}/{CBM-A} {SHIFT-@}{$fa}/l'{$f5}/,f'{CBM-G}{$fb}EI{CBM-G}{$fc}{$e5}J{CBM-A}{CBM-Z}cEII{CBM-Z}dEJJ{CBM-I}{CBM-X}{$fb}J{$f8}{SHIFT-POUND} {$fb} D save"0:load & run",8 ,N ** rte/87 qX ** a load and run introduction V ** for all commodore machines. {$7c} : dv{CBM-R}8: disk device # {CBM-W} pd{CBM-R}4: printer device # O{CBM-N} cls${CBM-R}G(147): txt${CBM-R}G(14) {CBM-H} cls$;txt$; {CBM-V} "Transactor Publishing $ "utility programs start here e "note: this file is only a D "directory placemarker - ( "scratch it if you wish. ""{CBM-T}14)"c64 tiny aid e "adapted for c64 by: david a. hook P "from 'tiny aid' by: jim butterfield "and 'basic aid' by: bill seiler {CBM-L} ""{CBM-T}12)"sample commands: Q "change /?/print#4,/ {$eb} "find .gosub., 200- "delete 130- {$7e}l@{$fc} {$f0}l{$eb}~ {SHIFT-POUND}I{$7c}{SHIFT-POUND}:{$7d}{SHIFT-POUND}{CBM-A}{$7e}{$60}{SHIFT-@}{CBM-X}M{$fc}~ {$f0}P{CBM-@}{CBM-+}{CBM-G}I:{CBM-A}l {$60}{CBM-X}M{$fd}~ P{$ec}{CBM-G}{$e6}Z{CBM-I} {CBM-G}J{$e8}{CBM-@}Z{CBM-O} 8{$fd}{CBM-+}~ {$f0}I{$f0}{$e6}{CBM-G}{$e8}{CBM-X}{CBM-G}~ {$fa}{CBM-X}{CBM-+}~ P{$e4}{$f0}{CBM-V}{$e8}HP Z{CBM-G}{CBM-G} {CBM-N}{CBM-X}H~ h{CBM-X}G~ h {$fb} lS C{$fd} {CBM-G}_{CBM-+}{$60}$% Y~ {CBM-G}_{CBM-+}{$60} {CBM-E}_{$f0}{CBM-N}{CBM-E}_Z{$7b}{CBM-G}$8{$e5}Z{CBM-N}{CBM-G}%{$e5}{$7b}{CBM-POUND}{CBM-A}E--E.. {CBM-E}Z$HP{$f9}{$e6}{$7b}{$e6}%{CBM-G}.E%{CBM-A}{$ef} S~ {CBM-G}"{CBM-+}#I-{$e8}. {CBM--}~ L V~ S {$f0}E{$f0}{$f6}2HP{$f2}Z{$60}I{CBM-Q}{$f0}I-P{$60}l{$eb}~ {$f0} w{$fd} {$e2}~ Y~ Y {$f0} w{$fd} S {$e2}~ P {CBM-G}P{SHIFT-POUND}~{$60} {$7d}~ c {$7d}~ d8{CBM-G}{$e5}c{CBM-G}{$e5}d{$60}{CBM-G}Z"{CBM-G}{$7b}#{CBM-G}-${CBM-G}.%{$60}{CBM-G}"E$P{CBM-G}#E%{$60}{CBM-@}H{CBM-E}"{CBM-@}H" {CBM-R}{$fd} P{$60}{$e6}"P{$ec}{$e6}#P{$e8}{CBM-@}{CBM-E}${CBM-@}$ {CBM-R}{$fd} P{$60}{CBM-G}$PF%F$lU{$fd} {CBM-G} {$ee}~ {SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} -{$fe} H{CBM-E}{CBM-S}0V R~P{$f6} {$e5}~ 8{$60}{CBM-D}{$fa}~ {CBM-S}P{SHIFT-POUND}~CB0 {$7d}~ EP {$7d}~ EP {$f1}~ {SHIFT-POUND} lR~ {$7d}~ J~ {$f0}R u~ {$e6} U{$fd} {$e6}-P{$e6}.{$60} u~ F {CBM-X}{$fd} {CBM-G}-PF.F-{$60} {CBM-K}{$fd} {$60}{CBM-G}5C{CBM-G}6Bl{CBM-*}~ {CBM-G}CE3C{CBM-G}BE4B {$7d}~ P{$fb}{$60} {$e6}ZP{$e6}{$7b}{CBM-E}Z{$60}{SHIFT-POUND} {$f4}~ 8{CBM-G}-{$e9}{CBM-N}{CBM-G}.{$e9} {CBM-POUND}{CBM-G} U~l{$f7}~ {CBM-M}changEdeletEfinDkilLnumbeRappenD v{$fc} {$f2}{$fb} v{$fc} W{$fb} k{$fe} ~ l3{CBM-G}l{$7c}{CBM-G}l{CBM-+}ly{CBM-+}l{CBM-+}lK{SHIFT-POUND}lW{CBM-N}l{$fd}{CBM-S}l{CBM-P}lM{CBM-X}l ] ** bye ** V cls$ - "Thank you for supporting" i "Transactor Magazine" o 400 _B: {$7c}L 8,dv,8,"0:RUN ME TEXT" {CBM-@}V x{CBM-R}0 {CBM-@} 1: 8,a$: a$: x{CBM-R}st: : 8 {CBM-N} : {CBM-B}{$ea} ** sub form ** E{$f4} {$e9}{$fe} "Would you like to print out" "a subsc " vic tiny aid " : " adapted for vic by: s " david a. hook P " from 'tiny aid' by: " jim butterfield {CBM-M} " and 'basic aid' by: {CBM-B} " bill seiler Y "sample commands: {$f4} "change /?/print#4,/ "finnow more" 0{CBM-@} "about Transactor Magazine (y/n) ";yn$ d{CBM-S} yn${CBM-R}"n" {CBM-M} 500 y{CBM-U} yn${CBM-W}{CBM-E}"y" {CBM-M} 400 _B: {$7c}L 8,dv,8,"0:RUN ME TEXT" {CBM-@}V x{CBM-R}0 {CBM-@} 1: 8,a$: a$: x{CBM-R}st: : 8 {CBM-N} : {CBM-B}{$ea} ** sub form ** E{$f4} {$e9}{$fe} "Would you like to print out" "a subsc{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-*}{CBM-Z}{$fe}~ 7{CBM-Z}~~ 8{SHIFT-POUND}l{$7c}{CBM-Z}Y{$fb} {$7d}{CBM-Z}Z{$fb} {$7e}l{$fc} {$f0}lO{SHIFT-POUND}I{$7c}{SHIFT-POUND}:{$7d}{SHIFT-POUND}{CBM-A}{$7e}{$60}{SHIFT-+}{$fb} {SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-+}{CBM-G}I:{CBM-A}l {$60}{CBM-X}IDP{$ed}{CBM-G}{$e6}Z{CBM-I} {CBM-G}J{$e8}{CBM-@}Z{CBM-O} 8{$fd}Y~ {$f0}I{$f0}{$e6}{CBM-G}{$e8}{CBM-X}X~ {$fa}{CBM-X}Y~ P{$e4}{$f0}{CBM-B}{$e8}HP Z{CBM-G}{CBM-G} {CBM-N}{CBM-X}{$f5}~ h{CBM-X}{$f4}~ h {$e9}{$fb} lS {CBM-R}{$fd} {CBM-G}_{CBM-+}{$60}$% F{CBM-G}_{CBM-+}{$60} {CBM-E}_{$f0}{CBM-N}{CBM-E}_Z{$7b}{CBM-G}$8{$e5}Z{CBM-N}{CBM-G}%{$e5}{$7b}{CBM-POUND}{CBM-A}E--E.. {CBM-E}Z$HP{$f9}{$e6}{$7b}{$e6}%{CBM-G}.E%{CBM-A}{$ef} 3EInc." &H "85 West Wilmot Street, #10" eR "Richmond Hill, Ontario" ]{CBM--} "CANADA L4B 1K7" {$7e}{$e6} "telephone (416) 764-5273" {$f0} {CBM-M}{$fa} "Insert your favourite boot" {CBM-X} "program here." C {$e5} "View Directory (y/n) ";vd$ {$f9}" vd${CBM-R}"n" {CBM-M} 400 {$e1}~{SHIFT-POUND} F{CBM-@}l{$f2}{$fc} {CBM-@}ZH1{SHIFT-POUND} 2{CBM-O} {$f0}E{$f0}{$f6}2HP{$f2}Z{$60}I{CBM-Q}{$f0}I-P{$60}lO{$f0} {CBM-+}{$fd} KI F Y {$f0} {CBM-+}{$fd} S KIP {CBM-G}P{SHIFT-POUND}~{$60} J~ c J~ d8{CBM-G}{$e5}c{CBM-G}{$e5}d{$60}{CBM-G}Z"{CBM-G}{$7b}#{CBM-G}-${CBM-G}.%{$60}{CBM-G}"E$P{CBM-G}#E%{$60}{CBM-@}H{CBM-E}"{CBM-@}H" {$fe} P{$60}{$e6}"P{$ec}{$e6}#P{$e8}{CBM-@}{CBM-E}${CBM-@}$ {$fe} P{$60}{CBM-G}$PF%F$l${$fe} {CBM-G} M{SHIFT--}{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} {$7c}{$fe} H{CBM-E}625 "number 100,5 b "append "G(34)"name"G(34)", [device #] n "kill I (B(43){CBM-N}B(44){CBM-D}256{CBM-N}383) {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8% {CBM-G}"PF#F"{CBM-E}"P<{CBM-G}"PF#F"{CBM-E}"{$f0}!&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-L}I{CBM-B}P{$ed}{CBM-G}73{CBM-G}84L7 {CBM-N}{CBM-N}{CBM-B}{SHIFT-POUND}l{$7c}{CBM-Z}{$fe}~ {$7d}{CBM-Z}~~ {CBM-I} i ={$fd} {CBM-G}{CBM-G}I P{CBM-I}i ={$fd} S {$f0} {$e8}~ C{$fd} {CBM-G}_{CBM-+}{$60}Z{$7b} {$e5}~ PHEZZ{$e6}{$7b} {$7d}~ {$f0} {$fd} {CBM-A}l@{$fc} u{$e6}u{CBM-@}u{CBM-+}1{CBM-G}2{CBM-E}Z{$f0}X{SHIFT--} P{$ed}{$e8}HFP{$f1}{CBM-G}i{$f0}[ {CBM-K}{$fd} {CBM-G}48{$e5}2{CBM-M}{$f0}(H{$f0}J{CBM-E}ZP{$f9}E{CBM-M}I@Ik{CBM-A}<{CBM-G}{CBM-M}FE{CBM-A} U{$fd} {$f0} {CBM-X}{$fd} {CBM-G}8{$e5}4{CBM-POUND}H{CBM-G}4{$f0}{CBM-+}3{CBM-X} Z{$e8}HFP{$f5}{CBM-G}-E{CBM-M}-{CBM-G}.E.{CBM-G}Z{CBM-+}{$7b}_{$60}{CBM-+}c{CBM-G}d {$ee}{$fd} {$e1}~{SHIFT-POUND} F{CBM-@}l{CBM-T}{$fc} {CBM-@}ZH1{SHIFT-POUND} 2{CBM-O}{CBM-D}{$fb}~ {CBM-P}8{$e9}{$7f}{CBM-N} J{$f0}{$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~ {CBM-G}5{CBM-G}6 {$e8}~ {$e2}~ {CBM-G}3{CBM-G}4 {CBM-*}~ {$7d}~ {$7d}~ P! _~ {$7d}~ {$7d}~ Pl@{$fc} {$7d}~ {CBM-G}CZ {$7d}~ {CBM-G}BZ J~ {$f0}{$e2} {$7d}~ {$7d}~ {$7d}~ I"P {$7d}~ {$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~ {$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S {CBM-A}S {$e2}~ ~ {CBM-G}<{$7b}{CBM-G};Z {CBM-I} {CBM-X} I0h S 5~ H Z{$e8}P{$e8} S {CBM-A} d~ Y {$f8}I,{$f0}{CBM-U}P _~ {$7d}~ {$7d}~ Q{CBM-X}lT{$e1}l{$e1} {CBM-@}{$fb} {$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~ {CBM-G}5{CBM-G}6 {$e8}~ {$e2}~ {CBM-G}3{CBM-G}4 {CBM-*}~ {$7d}~ {$7d}~ P! _~ {$7d}~ {$7d}~ Pl@{$fc} {$7d}~ {CBM-G}CZ {$7d}~ {CBM-G}BZ J~ {$f0}{$e2} {$7d}~ {$7d}~ {$7d}~ I"P {$7d}~ {$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~ {$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S {CBM-A}S {$e2}~ ~ {CBM-G}<{$7b}{CBM-G};Z {CBM-I} {CBM-X} I0h S 5~ H Z{$e8}P{$e8} S {CBM-A} d~ Y {$f8}I,{$f0}{CBM-U}P _~ {$7d}~ {$7d}~ {CBM-S}0V R~P{$f6} WJ8{$60} {CBM-S} {SHIFT-*}{CBM-P}8{$e9}{$7f}{CBM-N} J{$f0}{$ee}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} KI{CBM-G}5{CBM-G}6 {$fd}N KI{CBM-G}3{CBM-G}4 F J~ J~ P! {CBM-D}~ J~ J~ Pl{$fc} J~ {CBM-G}CZ J~ {CBM-G}BZ {CBM-Y}~ {$f0}{$e2} J~ J~ J~ I"P J~ {$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}T~ {$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S {CBM-A}S KI q~ {CBM-G}<{$7b}{CBM-G};Z {CBM-I} {CBM-X} I0h S ~ H Z{$e8}P{$e8} S {CBM-A} ~ Y {$f8}I,{$f0}{CBM-U}P {CBM-D}d .gosub., 200- " "delete 130-625 5 "number 100,5 q "kill (vic aid) L (B(43){CBM-N}B(44){CBM-D}256{CBM-N}383) {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8% {CBM-G}"PF#F"{CBM-E}"P<{CBM-G}"PF#F"{CBM-E}"{$f0}!&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-L}I{CBM-*}P{$ed}{CBM-G}73{CBM-G}84L7 {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}ription form (y/n) ";yn$ $ yn${CBM-R}"n" {CBM-M} 630 9 yn${CBM-W}{CBM-E}"y" {CBM-M} 500 ?&: G0 "* Ready Printer & Press A Key *" {$7f}:{CBM-K} a$: a${CBM-R}"" {CBM-M} 570 {CBM-K}d 4,pd: pd=printer device # {CBM-V}n 8,dv,8,"0:RUN ME FORM" {$eb}x x{CBM-R}0 {CBM-@} 1: 8,a$: x{CBM-R}st: 4,a$: : 8: 4 {$f1}B: L{CBM-G}"{CBM-+}#I-{$e8}. yFlG{$e4} {$7c}E S {CBM-I} i {$fd} {CBM-G}{CBM-G}I P{CBM-I}i {$fd} S {$f0} {$fd}N {CBM-R}{$fd} {CBM-G}_{CBM-+}{$60}Z{$7b} WJPHEZZ{$e6}{$7b} J~ {$f0} {CBM--}{$fd} {CBM-A}l{$fc} u{$e6}u{CBM-@}u{CBM-+}1{CBM-G}2{CBM-E}Z{$f0}X{SHIFT--} P{$ed}{$e8}HFP{$f1}{CBM-G}i{$f0}[ {$f0}{$fd} {CBM-G}48{$e5}2{CBM-M}{$f0}(H{$f0}J{CBM-E}ZP{$f9}E{CBM-M}I@Ik{CBM-A}<{CBM-G}{CBM-M}FE{CBM-A} ${$fe} {$f0} {$fe} {CBM-G}8{$e5}4{CBM-POUND}H{CBM-G}4{$f0}{CBM-+}3{CBM-X} Z{$e8}HFP{$f5}{CBM-G}-E{CBM-M}-{CBM-G}.E.{CBM-G}Z{CBM-+}{$7b}_{$60}{CBM-+}c{CBM-G}d ={$fe} , vd${CBM-W}{CBM-E}"y" {CBM-M} 280 6: &@ 8,dv,0,"$0" cj{CBM-K}#8,a$,a$: trash bytes Jt{CBM-K}#8,a$,a$,a$,a1$: st {CBM-M} 8: 400 ^ F(a${CBM-N}G(0)){CBM-N}256{CBM-D}F(a1${CBM-N}G(0)); {CBM-A}H{CBM-K}#8,a$: a${CBM-W}{CBM-E}"" {CBM-M} a$;: 360 {CBM-X}R: 340 C{$7c}: Y ** more info ** {CBM-*} "Would you like to ka hZ transactor disk5 d5 2a blocks free. aids&utils V5I06 utilities....... c64 tiny aid ldr vic tiny aid ldr aid4 supermon+64 supermon+pet copy-all64 linked lists ! hires hires listing 2 hires listing 3 hires listing 4 vicparms bigprint sprite ed1 copy file64 copy-all change unit addr palvert 1.0 palvert64 1.0 stp sys49152 stp sys828 verifizer.vic/64 sprite ed2 list scroll stp.bas stp.pal quote killer gap fill print ml.c64 / print ml.vic1 verifizer.c128 RUN ME! RUN ME TEXT RUN ME FORM transbasic...... tb sampler.run tb/use.obj symass 3.13 ~print ml.vic2 super cat ! numeric keypad !disk/exmon @8000 disk/exmon @1000 "drive peeker file compare.pet # file compare.c64 tb/kernel doke & deek bit twiddlers check & await keywords bits............ wordprodump regain border flasher double directory c64 disk status cbm scrn dump 80 cbm scrn dump 40 phone speller keyword pet.bas keyword c64.bas keyword vic.bas irq display.pal line clear.pal articles........ verigen c64 error wedge.bas error wedge.pal ) keywiz 64 - D " tiny aid4 " ?N "adapted by jim butterfield from AX " bill seiler's 'basic aid' Z "sample commands: {CBM-N} "break (to monitor); kill (aid program) J "number 100,10 (renumber) {CBM-*} "delete 130-250 {$f2}{CBM-N} "find /gosub/ {CBM-H} "chang {$fa}{CBM-Z}{SHIFT-POUND};{SHIFT-POUND} {CBM-G}4!{CBM-G}5" 8P 8{$f0}# 8E4{CBM-N}{CBM-G}#E5 c c p{SHIFT-+}{$60}{$ea}{$ea}{CBM-G}PF F{CBM-E}{$60}h{CBM-G}!PF"F!H!{$60}{SHIFT-POUND}E{SHIFT-POUND}{$e5} {$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$fe}~ 4{CBM-Z}~~ 5{SHIFT-POUND}lY{CBM-Z}T{$fb} Z{CBM-Z}U{$fb} {$7b}l{$fc} {$f0}l {CBM-B}{SHIFT-POUND}IY{SHIFT-POUND}:Z{SHIFT-POUND}{CBM-A}{$7b}{$60}V{$fb} {CBM-J}{CBM-Z}{SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-L}{CBM-+}{CBM-Z}{CBM-G}{CBM-J}I:{CBM-A}l{$7d} {$60}{CBM-X}I{CBM-H}P{$ed}{CBM-G}{CBM-J}{$e6}W{CBM-L}{CBM-I} {SHIFT-@}J{$e8}{CBM-@}W{CBM-O} 8{$fd}R~ {$f0}I{$f0}{$ed}{$e8}HF{CBM-J}P{$f1}{CBM-Z}{CBM-G}f{$f0}[ {$ee}{$fd} {CBM-G}18{$e5}/{CBM-H}{$f0}(H{$f0}J{CBM-E}WP{$f9}E{CBM-H}I@Ik{CBM-A}<{CBM-G}{CBM-H}F{CBM-J}E{CBM-Z}{CBM-A} "{$fe} {$f0} {$fe} {CBM-G}{CBM-Z}8{$e5}1{CBM-POUND}H{CBM-G}1{$f0}{CBM-L}{CBM-+}0{CBM-X} W{$e8}HF{CBM-L}P{$f5}{CBM-G}*E{CBM-H}*{CBM-G}+E{CBM-J}+{CBM-G}W{CBM-+}X\]{CBM-+}@{CBM-G}a ;{$fe} {$e1}~{SHIFT-POUND} {CBM-@}{CBM-Z}l{$ed}{$fc} {CBM-@}WH.{SHIFT-POUND} /{CBM-O} {$f0}E{CBM-J}{$f0}{$f6}/HP{$f2}W{$60}lRTI{CBM-Q}{$f0}I-P{$60}l {CBM-B}{$f0} {CBM-@}{$fd} {$f6}{CBM-U} {CBM-T}{CBM-J} V {$f0} {CBM-@}{$fd} P {$f6}{CBM-U}P {CBM-G}P{SHIFT-POUND}~{$60} C~ @ C~ a8{CBM-G}{$e5}@{CBM-G}{$e5}a{$60}{CBM-G} ~ C~ C~ I"P C~ {$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}M~ {$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}W8{CBM-G}X9 P {CBM-A}S {$f6}{CBM-U} o~ {CBM-G}9X{CBM-G}8W {CBM-I} {CBM-X}I0h P {$7b}~ H W{$e8}P{$e8} P {CBM-A} ~ V {$f8}I,{$f0}{CBM-U}P {CBM-G}~ C~ C~ P{SHIFT-POUND}~{$60}_0 C~ EP C~ EPlO C~ {CBM-A}~ {$f0}W ~ {$e6}{CBM-Z} "{$fe} {$e6}*P{$e6}+{$60} ~ F{CBM-Z} {$fe} {CBM-G}*PF+F*{$60} {$ee}{$fd} {CBM-Z}{$60}{CBM-G}2{$60}{CBM-G}3_l"{CBM-L}{CBM-G}{$60}E0{$60}{CBM-G}_E1_ C~)D "supermon+64 jim butterfield" cN (B(43){CBM-N}256{CBM-D}B(44){CBM-N}71) {CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8% {CBM-G}"PF#F"{CBM-E}"I6P/{CBM-G}"PF#F"{CBM-E}"I6{$f0}0&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-R}{CBM-G}73{CBM-G}84L7 66 {$fe}6{CBM-Z}{$fe}~6A{CBM-Z}~~6B '{$fd}6{SHIFT-POUND} {CBM-I} A{$fd}6 {$f6}{$fb}6{CBM-Z}{$fc}~6{CBM-Z}{$fd}~6{SHIFT-POUND} ~ {CBM-I}H(J{$f9}X{SHIFT-@}.x Z{$f5}6{CBM-S}. {CBM-POUND}{$fc}6X{CBM-Z}(h{CBM-Z})h{CBM-Z}*h{CBM-Z}+{CBM-S},{CBM-D}-@{CBM-S}. d{$f6}6-,+H*lx{$f5}6 {$f6}{$fb}6{SHIFT-POUND}> R~ {$e1}{$fb}6 {$f0} {$ee}{$fb}6{CBM-E}C {$fc}6H{SHIFT-*}{$f3} & {$fe}6 {CBM-E}C{CBM-N}){CBM-B}I"{$f0}){$7f}I {CBM-A}{SHIFT-POUND}. R~H{SHIFT-*}{$e5}{$60}{SHIFT-POUND} ,{SHIFT-POUND}2{SHIFT-POUND} {CBM-J}{$fc}6{CBM-A} {$fb}6l{SHIFT-POUND}{$f5}6,2'{CBM-G}CEA{CBM-G}D{$e5}B{CBM-A}{CBM-Z}/EAA{CBM-Z}0EBB{CBM-I}{CBM-X}CJ{$f8}{SHIFT-POUND} {$f6}{$fb}6 {$e1}~{$f0}1{CBM-E}C,2AQA{$f0} {$e1}{$fb}6,0{$e6}AP{$e6}BPl{SHIFT-POUND}{$f5}6 H{$fc}6 {$fc}6{$f0}IlP{SHIFT-@}{SHIFT-POUND} U~{CBM-G}){$f0}{$e7}{CBM-Z}2{$f0}{CBM-N} ( {$fe}6lZ{$f5}6{CBM-+}C{CBM-@}D{SHIFT-POUND} {CBM-O}{$f0}S {CBM-J}{$fc}6{CBM-A}y {$fb}6{CBM-A}t 7{$fc}6Po {CBM-G}AC {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$ef}lZ{$f5}6{CBM-A}7 q{$fc}6{CBM-I} 7{$fc}6P {$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN P{$f6}{$f0}{$e9}l{SHIFT-POUND}{$f5}6{CBM-I}{CBM-Z}P- @{$fb}6{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$ {$e8} {CBM-Z} IL{$f0}{CBM-G}BP {SHIFT-POUND}0 {$e8}P{$f9}N1 7{$fc}6{$f0}I {$f0}E {$e8} {CBM-X}{CBM-A}{CBM-L}/{CBM-I} {CBM-I} 3{CBM-Z} {CBM-M}{$fa}6{CBM-S} 0{CBM-N}{CBM-X}{$7c}~6 N{$60}{CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6 {$fe}6 {$e1}~{$f0} !{$fa}6{$ee}{CBM-Z} {$fc}6{CBM-Z} J{$fc}6{CBM-A}{$e4}lZ{$f5}6l{SHIFT-POUND}{$f5}6{SHIFT-POUND}. R~ {$ee}{$fb}6 {$e1}{$fb}6 {$ee}{$fb}6 {CBM-E}C {CBM-M}{$fa}6h{CBM-S}{$e8}J2 0 {$fe}6{CBM-D}2lq{$fa}6{CBM-E}C {$eb}{$fb}6H{SHIFT-*}{$e5}H{CBM-I} {$ef}{$fa}6{CBM-I} P{CBM-D}{$f0}{CBM-Z} I{$e8}{CBM-E}C({CBM-A} {$fc}6P{$ef} {CBM-X}/~6 R~{CBM-X}5~6{$f0} R~JPP{$60} {$fa}6IP{$e8}l{$e5}{$fb}6{CBM-+}D{CBM-POUND}JEC{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{$de}{$fe}6{CBM-A}jjjj)P {SHIFT-POUND} {CBM-N}{CBM-X}"~6B{CBM-A}{CBM-Z}EAAEBB8$ H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}C{CBM-+}Dh {$fc}6H {$fc}6{SHIFT-POUND} PI P{SHIFT-POUND} $ R~{SHIFT-POUND} lR~ {$f6}{$fb}6{SHIFT-POUND} R~l{$fe}6 {$fc}6 R~{CBM-S}lR~h ){$fc}6{CBM-N}Hjjjj)I II0{$60}N1{CBM-S}1{CBM-X} {$f0}I:{$f0}I?{$ee}1{CBM-S}({$60}{CBM-G}AC{CBM-G}BD{$60}8{CBM-G}A{$e5}CA{CBM-G}B{$e5}DB{$60}{SHIFT-POUND}8{CBM-G}A{$ed}A{CBM-G}B{$e9} B{$60}8{CBM-Z}/{$e9}/{CBM-Z}0{$e9} 0{$60}{SHIFT-POUND}ECC{$e6}D{$60}8{CBM-G}C{$e9}C{CBM-G}D{$e9} D{$60}{CBM-A} {CBM-G}A{CBM-@}B)({$60}{CBM-A}# q 7{$fc}6{$f0}$N1I${$f0}c{CBM-G}A {CBM-E}~{SHIFT-POUND}O ~{CBM-S}1{$ee}1{CBM-X} {$f0} {CBM-POUND}~{$f0} {CBM-S}~ {$f6}{$fb}6{CBM-G}A {CBM-H}~{SHIFT-POUND}O ~ {CBM-G}~ R~I {$f0}{CBM-G}){CBM-B}{$f0}{$f0} {CBM-Q}~lZ{$f5}6l{SHIFT-POUND}{$f5}6{CBM-G}A {CBM-E}~{SHIFT-POUND}{$f0} ~{CBM-S}1{CBM-X} {$f0} {CBM-POUND}~{$e8}P{$f5} {CBM-S}~ {$f6}{$fb}6{CBM-G}Ah {CBM-H}~{SHIFT-POUND}{$60} ~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND} {CBM-I} A{$fd}6{SHIFT-POUND} R~ {CBM-G}~{$f0} {CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND} ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND} R~{SHIFT-POUND} R~e /gosub/goto/,300-400 @{CBM-V} l{CBM-R}B(52){CBM-N}B(53){CBM-D}256:1536:m{CBM-R}B(33):n{CBM-R}B(34) FH 52,m:53,n:48,m:49,n:n{CBM-R}m{CBM-N}n{CBM-D}256 MR n n";G(34);",01";:x{CBM-R}n{CBM-Z}4096:250 {CBM-K}{$f0} x{CBM-R}l{CBM-Z}4096:250: Q{$fa} ",";:j{CBM-R}1{CBM-@}4:x%{CBM-R}x:x{CBM-R}(x{CBM-Q}x%){CBM-D}16:x%{CBM-E}9{CBM-M}x%{CBM-R}x%{CBM-N}7 {$e5}G(x%{CBM-N}48);:j: {CBM-Z}~{$fd} {$fb} ~~ 5{CBM-Z}~{$fc}{$e6}{SHIFT-@}{$e8}{CBM-X}Q~ {$fa}{CBM-X}R~ P{$e4}{$f0}{CBM-B}{$e8}HP W{CBM-G}{SHIFT-@} {CBM-N}{CBM-X}{$f3}~ h{CBM-X}{$f2}~ h {$e4}{$fb} lP {CBM-A}{$fd} {CBM-G}\{CBM-+}]!" {CBM-T}{CBM-J}{CBM-G}\{CBM-+}] {CBM-E}\{$f0}{CBM-N}{CBM-E}\WX{CBM-G}!8{$e5}W{CBM-N}{CBM-G}"{$e5}X{CBM-POUND}{CBM-A}E**E++ {CBM-E}W!HP{$f9}{$e6}X{$e6}"{CBM-G}+E"{CBM-A}{$ef} {CBM-L}{CBM-H}{CBM-G}{CBM-+} I*{$e8}+ {$e9}{CBM-J}l~{CBM-W} {$fb}{CBM-H} P {CBM-J}{CBM-I} f {$fd} {CBM-G}{SHIFT-@}IP{CBM-I}f {$fd} P {$f0} {$f5}{CBM-V} {CBM-A}{$fd} {CBM-G}\{CBM-+}]WX {CBM-*}{SHIFT-@}PHEWW{$e6}X C~ {$f0} Z{$fd} {CBM-A}l{$fc} r{$e6}r{CBM-@}r{CBM-+}.{CBM-G}/{CBM-J}{CBM-E}W{$f0}X{SHIFT--} PW{CBM-G}X {CBM-G}*!{CBM-G}+"{$60}{CBM-G}E!P{CBM-G} E"{$60}{CBM-@}H{CBM-E}{CBM-@}{CBM-Z}H ~{$fd} P{$60}{$e6}P{$ec}{$e6} P{$e8}{CBM-@}{CBM-E}!{CBM-@}{CBM-Z}! ~{$fd} P{$60}{CBM-G}!PF"F!l"{$fe} {SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe} H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N} J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~ C~ P! {CBM-G}~ C~ C~ Pl{$fc} C~ {CBM-G}{$60}W C~ {CBM-G}_W {CBM-A}~ {$f0}{$e2} C k P{$fb}{$60} {$e6}WP{$e6}X{CBM-E}W{$60}{CBM-M}breaKchangEdeletEfinDkilLnumbeR {$fd} {$fc} <{$fc} {$fc} A{$fb} {$fe} {CBM-M}{$fb} !l"{$fe} {SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe} H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N} J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~ C~ P! {CBM-G}~ C~ C~ Pl{$fc} C~ {CBM-G}{$60}W C~ {CBM-G}_W {CBM-A}~ {$f0}{$e2} C{$fe}6{SHIFT-POUND}; R~{SHIFT-POUND} R~{CBM-Z}( {$fc}6 {CBM-O}( {$eb}{$fb}6H{SHIFT-*}{$f5} {$f6}{$fb}6{CBM-I} 1 O~ {$e8} ({CBM-A}I P{$f1}{SHIFT-POUND} ~ 7{$fc}6{$f0}{CBM-*}I {$f0}{$f7}{CBM-I}{SHIFT--}{SHIFT-*}~6{$f0}J{$f8} {$fe}6lZ{$f5}6 {CBM-A} {CBM-A} {CBM-N}{CBM-X}W~6h{CBM-X}V~6hl{$fb}62l{$f7}6l{CBM--}{$fc}6L {CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6{CBM-I}fBFAJP{$f9} {$e1}~{$f0} V{$f6}6{SHIFT-POUND} {$fc}6 H{$fc}6{CBM-A}{$ee}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {CBM-POUND}{$fc}6 {$fb}6{CBM-A} {CBM-G}A*H{SHIFT-*}{$f1}lZ{$f5}6{CBM-A} q{$fc}6 {$fb}6{CBM-A}{CBM-G}ACH{SHIFT-*}{$f2}{SHIFT-POUND} R~ V{$f6}6ll1{$f7}6 {$fc}6 {$7c}{$fc}6{CBM-A}JlZ{$f5}6 {CBM-J}{$fc}6{CBM-A}y 7{$fc}6I'P 7{$fc}6I {$f0}iH 7{$fc}6{$f0}{SHIFT-*}P{$f3}{$f0} {$fb}6{CBM-G}AH {$fb}6{CBM-A}{SHIFT-*}P{$f1}2 {$f6}{$fb}6 {CBM-E}CYPHL2P{$f3} {$e1}{$fb}6 {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$e1}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {SHIFT-@}{CBM-O}{CBM-Y}{SHIFT-POUND}{CBM-C}{SHIFT-POUND}{CBM-F} 7{$fc}6{$f0}yI {$f0}{$f7}I"P{CBM-S}1{CBM-X} {$f0}i{$e8}I"{$f0}{CBM-F}{$e6}{CBM-Y}H{SHIFT-*}{$ed}l{SHIFT-POUND}{$f5}61 7{$fc}6{$f0}0 {$fb}6{CBM-A}+{CBM-G}A{SHIFT-@} {$fb}6{CBM-A}" q{$fc}6 {$fb}6{CBM-A}= {$f6}{$fb}6{CBM-+}A{CBM-@}B{CBM-Z}2IsPQ{SHIFT-POUND} {CBM-O}{SHIFT-POUND}C X~lZ{$f5}6{CBM-Z}2Iv{$f9}6{CBM-X}<~6 N{$f9}6{CBM-I} P{CBM-D}{$f0}{CBM-Z} I{$e8}{SHIFT-POUND}0{CBM-A} K{$f9}6P{$f1} {CBM-X}/~6 N{$f9}6{CBM-X}5~6{$f0} N{$f9}6JPR{$f0} K{$f9}6 K{$f9}6{CBM-Z}/M3{$f0}l{SHIFT-+}{$f9}6{CBM-D}{$f0}2{CBM-Z}0IP#{CBM-G}A{$e5}C{CBM-N}{CBM-G}B{$e5}DPF {CBM-A}B{CBM-POUND}HP\ xJJ{CBM-D}P{CBM-O}{SHIFT-*} CP{$f8}{CBM-Z}C {$f6}{$fb}6{SHIFT-POUND} R~ . {$fe}6 ){$fa}6{$ee}{CBM-Z} {$fc}6{SHIFT-POUND}aW{SHIFT-POUND} X{$7d}{CBM-G}D {$fc}6YZ{CBM-G}C {$fc}6{$7b}{$7c}{SHIFT-POUND}FlZ{$f5}6l{SHIFT-POUND}{$f5}6 N{$f9}6{CBM-S}3{SHIFT--} {$f0} HH{$ee}{$f0}{$e8}l{$e8}{$f8}6{$ee}3{CBM-S} )){CBM-N} {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}<~6/{CBM-O}{$7c}~60{SHIFT-POUND} 0./*P{$f6}I? R~JP{$ea}l{$ee}{$fb}6N1 @{$fb}6{CBM-A} 4{$fc}6P N1{CBM-Z}P{$f0} I {$f0}I,{$f0}HHl{SHIFT-POUND}{$f5}68${CBM-Z}{$60}{SHIFT-POUND} ABhh 7{$fc}6{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}O~6{$f0}J{$f8}{$e8}N1{CBM-C}{$f4}~6{CBM-X}{$f8}~6 7{$fc}6{$f0}C8{$e9}0^I {$e9}I{CBM-A}tLj{$f0}h{$ee}{SHIFT-*} P {CBM-I}{CBM-J}AJ{$f8}{CBM-S} A&B{CBM-A}.JP{$f7}{SHIFT-*} P.{CBM-A}{CBM-Z}EAA{CBM-Z}EB{$fc}6 {$fb}6{CBM-A}{CBM-G}A{CBM-G}B z{$fc}6{CBM-G}A/{CBM-G}B0$8{$60} {$fb}6 {$fc}6{SHIFT-POUND}$ R~{CBM-G}A{CBM-+}B {$e5}{$fb}6 {$fc}6{SHIFT-POUND}+ R~ '{$fd}6{SHIFT-POUND} {CBM-I} A{$fd}6 {$fc}6{SHIFT-POUND}& R~{SHIFT-POUND} {CBM-I} p{$fd}6 {$fc}6{SHIFT-POUND}% R~{SHIFT-POUND} {CBM-I} p{$fd}6lZ{$f5}6 q{$fc}6{SHIFT-POUND} {CBM-I} J{$fa} X{$f8}C&D{CBM-I}{CBM-X} {$7d} J{$f4}P{$eb}({$60}h{CBM-G}A{CBM-G}B{SHIFT-POUND} H {CBM-D} {SHIFT-POUND} .. *{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}A x {CBM-A}tA{SHIFT-POUND} {CBM-Y} P{$f3}{$60}{CBM-O}{CBM-Q}{$fe}6){$7f} {$f2}{$fb}6H({$f3}{$60} pc sr ac xr yr sp v1.2{CBM-B}..sys : erroRa @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@"d3P@BX{SHIFT-POUND} ! ymj,),#($y x$$ #]{CBM-K}#{CBM-K} ){CBM-S}I{CBM-POUND}#$s#$s{CBM-K} [[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z}) {$7c} M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8} {CBM-H}T{CBM-H}(NT{$f4}p 51,84:52,9 7z "file type s";t$:"file";x$ kD 1,8,2,x$:2223 BI st{CBM-W}{CBM-E}64{CBM-M}"no go": X 1:"other disk ready";a$ {CBM-Q} C(a$){CBM-M} 1,8,2,x${CBM-N}","{CBM-N}t${CBM-N}",w":2267: 1 {CBM-I} F~ {$e4}~ {$fb}{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}IP{$f0}{CBM-G}{$f0}{$e9}{CBM-G}{$fb}@{CBM-G}{$fc}alL~ {CBM-I} I~ {CBM-E}{$fb} R~{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fb}M@{CBM-G}{$fc}{$ed}a{$e7}{SHIFT-POUND}-D " disk copy-all jim butterfield" FN a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$ PX p${CBM-R}"" l2(232),l1%(232),n$(232),t%(232),t$(4) {CBM-Y} xxx,seq,prg,usr,rel L j{CBM-R}0{CBM-@}4:t$(j):j {$e5} "from unit 8";f {$ee}{CBM-N} 830 {$f8}{CBM-H} f${CBM-R}d$ {CBM-V} " " 1,f,3,"$"{CBM-N}f$ #,860:e{CBM-M}:230 -63132 =@r{CBM-R}255: 340 gj3221 Ktj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j {$7c}^n${CBM-R}J(a$,4,j) Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470 {CBM-A}Rl1%{CBM-R}F(J(a$,22)) S{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256 {$ee}J(a$,4,16);" ";t$(t9) {$fd}p{CBM-R}B(151rams *": 800 {$ea}j{CBM-R}1{CBM-@}n 0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670 ={$fe}q{CBM-R}0550 y"*** output disk full" Y"do you have a new one";z$ F(z$){CBM-W}{CBM-E}89{CBM-M} C& 15:15,t,15:"want to new the output disk n";z$ V0F(z$){CBM-W}{CBM-E}89600 {$f0}:"disk name,id";x$,y$ d ",21); $ {CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%) p {CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780 Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730 {CBM-Q} P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w" P Zl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780 {$e5} {$e4}t%{CBM-R}4{CBM-M}3438:760 {$ef} {$ee}3419 #1,x$ {CBM-K}#1,x$ {CBM-K}#1,x$ x{CBM-R}F(x${CBM-N}G(0)) 4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0)) :{CBM-D} {CBM-E}*{CBM-X}{CBM-E}*{CBM-C}{CBM-E}*f {CBM-E}*{CBM-F}{CBM-E}*{SHIFT-@}{SHIFT-POUND}d {CBM-G} {CBM-E}{SHIFT-@}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E}{SHIFT-@} {CBM-E}{CBM-C}I*{$f0} I?{$f0}Q{SHIFT-@}PH{SHIFT-*}P{$ed}{$60} {SHIFT-@}{CBM-G}P{$f6} {CBM-G} {$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~ {$e4}~{SHIFT-@}HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI cXx{CBM-I}{CBM-X}bhjjjj0 D save"0:cua (change)",8 iN ** jim butterfield - september 1981 X ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250 {CBM-Y} "old device number 8";: do P do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130 {$f8} "new device number 9";: dn p0 ' {CBM--} 15,"m-w"G(a)G(0)G(2)G(dn{CBM-N}32)G(dn{CBM-N}64) / {$e6} 15 h {$f0} 12, 50, 119, 0 ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250 {CBM-Y} "old device number 8";: do P do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130 {$f8} "new device number 9";: dn 0 **************************************** _ * convert cbm assembler source file to * * file to pal assembler source file * {CBM-X}( * k.j.h. hildon 03/83 * {$ec}2 * ======== palvert 1.0 ========= * < * work {$7c}LjR{$f2}{CBM-@} {CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R} " &&RRHDJ&hdd{CBM-I}H acdfghjmrtx@.>;$+&%lsv\{$f8}6{CBM-H}{$f6}6{$e9}{$f9}67{$f8}6?{$f6}68{$f7}6]{$f6}6R{$f5}6w{$f5}6{CBM-Y}{$f6}6O{$f5}6{$fd}6\{$f8}6{$f6}6{$f6}6 i{$f5}6{$f5}6~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND} {CBM-I} A{$fd}6{SHIFT-POUND} R~ {CBM-G}~{$f0} {CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND} ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND} R~{SHIFT-POUND} R~ 7lL~{SHIFT-POUND}6{SHIFT-POUND}{$fc}{SHIFT-POUND}t{$fb}{$60}~J{$fa}{CBM-I} F~ {CBM-I} e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0} {$f0} de L~{CBM-I} I~ {CBM-I} {CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND} bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND} @abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P K{CBM-G}{$f0}{CBM-V}{$60} {$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*" {$ea}P {$f5}Z{CBM-K}"to unit 9";t H 830 "R t${CBM-R}d$ 4{CBM--} f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M} x{$e6} n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$ N{$f0} 860: e {CBM-M} :230 {$fa} z{CBM-R}90:"pattern *";p$ {CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}" ",16) {SHIFT--}"hold down 'y' or 'n' key to select" {$fd}"programs to be copied...){CBM-P}r {CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}255450 <{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450 s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450 \{CBM-U}410 Bz{CBM-W}80{CBM-M}" ":470 {CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1% JVst{CBM-R}0{CBM-P}n{CBM-W}232330 {$e3} 1: 15:" * * * * *" {$e5}n{CBM-R}0{CBM-M}"* no prog15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$ n860:e{CBM-M}:550 fx15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&" yB860:e{CBM-M}:550 ML890:890:q{CBM-R}q{CBM-N}1 V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630 890 {CBM-R}l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )" B 1: 15:500 X14,f,15:15,t,15 {CBM-POUND}H(n$(j){CBM-N}" {$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780 "" 2 4: 3: 15: 14 9j C x{CBM-R}{CBM-U}(0):"another input disk ready";z$ U*F(z$){CBM-R}89230 {$7b}4 >"drive 0";d hd{CBM-D}d{CBM-W}{CBM-E}d830 {CBM-E}rd${CBM-R}G(d{CBM-N}48): D\15,e,e$,e1,e2 {$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*" {$ea}P {$f5}Z{CBM-K} SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~ {CBM-I} e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}{SHIFT-@}H{SHIFT-*}{$fe}{$f0} {$f0} de L~{CBM-I} I~ {CBM-I} {CBM-E}{SHIFT-@}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND} bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND} @abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-N} L~ 0P K{CBM-G}{$f0}{CBM-V}{$60} {$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*" {$ea}P {$f5}Z{CBM-K} dn{CBM-W}8 {CBM-A} dn{CBM-E}15 {CBM-M} 150 3{CBM-N} 15,do,15: command channel K{CBM-H} a${CBM-R}G(do{CBM-N}32): b${CBM-R}G(do{CBM-N}64): talk and listen current {CBM-V} a: a{CBM-R}0 {CBM-M} "disk not recognized!";: 230 LH 15,"m-r"G(a)G(0): {CBM-K}#15,x$: x${CBM-W}{CBM-E}a$ {CBM-M} 190 {$fd}R 15,"m-r"G(a{CBM-N}1)G(0): {CBM-K}#15,x$: x${CBM-W}{CBM-E}b$ {CBM-M} 19s on pet/cbm with disk * jf * absolutely no copyright restrictions * Yp * won't work on basic 1.0 or dos 1.0 * {CBM-POUND}z **************************************** {$ec}D i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" : i$ must be 1st var used /N i${CBM-R}i${CBM-N}i${CBM-N}i$ 360 : 450 : 520 3 : "cbm source filename";cn$ c {CBM-T}20)cn"" B" " source drive";cn R, {CBM-T}20)cd"" 6 " source device#";cd {CBM-D}@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$ Vj 1, cd, 8, cn$ : ed{CBM-R}cd : 700 : 1 {$f2}t e {CBM-M} ee$ : : 270 {$f8} Ba{CBM-R}sl : : {CBM-T}20)sl"" -L " starting line #";sl ]V sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a : 450 M {CBM-T}20)ic"" {$ea} " line increment";ic {$f4} : {CBM-V}{$fe} ** open input and output files ** R 1, cd, 8, cn$ {$ed} 2, pd, 6, pn${CBM-N}",p,w" %, hex hi 1 na{CBM-R}sl : 660 : output line # - hex lo, hex hi O xsl;a$ : ===== remove for better speed ====== {CBM-I} Bsl{CBM-R}sl{CBM-N}ic : increment line number S L2,a$z$; : output line (+chr$ zero) {$e4} V sx{CBM-R}0 {CBM-M} 550 {$fa} 2 "(DO NOT exit with <RETURN>) Append another file n";yn$ ? yn${CBM-R}"y" {CBM-M} 840 x 2, pd, 6, pn${CBM-N}",a" 2, z$z$; : add end file marker ($00, $00) {CBM-@}* 2 : 15 W4 "load";G(34);pn$;G(34);","J(D(pd),2)"" {SHIFT--}> h 270 : " old pal filename";op$ {CBM-T}20)cn"" 2 " drive";op b{CBM-I} {CBM-T}20)od"" A{CBM-D} " device#";od {CBM-L} 1, od, 8, op$ : ed{CBM-R}od : 700 : 1 {CBM-M}{SHIFT-*} e {CBM-M} ee$ : : 900 {CBM-B}J : {CBM-T}21)"@"op$"" {CBM-*}T " new pal filename";pn$ {$fa}{$de}{CBM-W}{CBM-E}62 {CBM-M} " file exists" : : 970 =8 : "creating new file from ";op$;" stand by..." xb 1, od, 8, op${CBM-N}",p,r" Sl 2, pd, 6, pn${CBM-N}",p,w" {CBM-N}v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$)); : file start address H{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$)); J{CBM-K}#1, b$, c$ : st{CBM-R},B(189)){CBM-N}z$ : +z$ to add lost mkr {CBM-A}2,a$; w{SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$) : update start addr BD 1130 JN 1 {CBM-S}X mc{CBM-N}21, 13 : input delim back to cr X{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic {$ec} I {SHIFT-*} {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L} {CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}^{SHIFT-POUND}{SHIFT-*}{SHIFT-POUND}w,{SHIFT-POUND}{SHIFT-*}-{SHIFT-POUND}{$7f}{CBM-I} {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}{CBM-I}{$7f} F~ {$e4}~ R~I {$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L\{SHIFT-*}{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND} X{CBM-G}EI?{$f0}Kl{SHIFT-*}ave"0:directories",8 {CBM-I} {CBM-X}{SHIFT-*}{$e8} $00 {CBM-J} mc {$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$ : : establish input buffer PX mc{CBM-R}896 : mach code start addr {SHIFT-POUND} *** string input routine -- by jim butterfield *** {$ef} 160, 2, 177, 42, 153, 184, 0, 200, 192, 6, 208, 246, 162 5 1, sa{CBM-R}1025 : start addr pet/cbm OR sl{CBM-R}100 : starting line # {CBM-G}{CBM--} ic{CBM-R}10 : increment {CBM-P}{$e6} 270 {$e1}{$f0} : "append to existing pal file (y/n)";yn$ {$f5}{$fa} yn${CBM-R}"y" {CBM-M} 900 ^ H : " new pal filename";pn$ , R {CBM-T}20)cn"" k {$7c} " destination drive";pn [ {CBM-T}20)pd"" Z "destination device#";pd pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$ {CBM-B} {CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd : 700 : 2 {$e9} {CBM-S} e{CBM-W}{CBM-E}62 {CBM-M} "file exists" : : 360 {$f3} {CBM-U} : a{CBM-R}sa : 660 : output file start addr ($0401) {$60}& mc : sx{CBM-R}st : input line from cbm source file T0a${CBM-R}H(i$,B(189)) {CBM-F}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5 : start addr + line len + 5 for link,line,mkr {$f6}da{CBM-R}sa : 660 : output line link - hex lo : 1 : 760 {CBM-D}{CBM-D} output 2 hex bytes {CBM-D}{CBM-D} +2, G(a {CBM-P} 255); @2, G({CBM-J}(a{CBM-Z}256)); f{CBM-POUND} w{CBM-R}{CBM-D}{CBM-D} err{CBM-A} {CBM-D}{CBM-D} H{CBM-C} 15, ed, 15 {$7f}F15, e, e$, et, es {CBM-POUND}Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es) {CBM-E}Z 15 {CBM-Y}{$e4} {CBM-*}{$ee} ** add more cbm source modules ** {$e5}{$f8} + : for new cbm file name sr 450 : alter next line number, increment G\ 1, cd, 8, cn$ F 2, pd, 6, pn${CBM-N}",a" {CBM-D}P 550 : go add file {CBM-*}Z ** append cbm source to existing pal file ** H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010 7{$e8}pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) : 1080 g{$f2} {CBM-T}20)cn"" F{$fc} " destination drive";pn V {CBM-T}20)pd"" "destination device#";pd {CBM-A}pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$ Z$ 2, pd, 6, pn$ : ed{CBM-R}pd : 700 : 2 . e64 {CBM-M} 1230 : get line link !Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) _{$7e}{CBM-K}#1, b$, c$ : get line number a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) F mc{CBM-N}21, 0 : input delim now $00 O mc {CBM-+}a${CBM-R}a${CBM-N}H(i$ E 450 : alter next line num 3{$f6} 1, cd, 8, cn${CBM-N}",s,r" = 550 : get line number a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) F mc{CBM-N}21, 0 : input delim now $00 O mc {CBM-+}a${CBM-R}a${CBM-N}H(i$ {CBM-Z}< {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L} {CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}{CBM-Z}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND},{SHIFT-POUND}-{SHIFT-POUND}{$7f}{CBM-I} {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3} {CBM-I}{$7f} F~ {$e4}~ R~I {$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}{CBM-Z}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND} X{CBM-G}EI?{$f0}KlIave"0:directories",8 {CBM-I} {CBM-X}{SHIFT-*}{$e8} $00 {CBM-J} mc {$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$ : 32, 198, 255, 32, 228, 255, 201, 13, 240, 11, 164, 189 V 145, 187, 200, 132, 189, 196, 186, 208, 238, 76, 204, 255 {CBM-POUND}{CBM-N} : j{CBM-R}mc {CBM-@} mc{CBM-N}37 : x : j, x : t{CBM-R}t{CBM-N}x : L{CBM-H} t{CBM-W}{CBM-E}5767 {CBM-M} "typo in data" : {$f4}{CBM-V} z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0 3H {$f1}' "TransBASIC programs start here g "load and run the program J "'tb sampler.run' for a demo "of the TransBASIC II system. {CBM-P} "note: this file is only a N "directory placemarker - {$ed}( "scratch it if you wish. D b 160 %N q${CBM-R}G(34): G(14); qX b{CBM-R}1: "Instructions (y/n) y";yn$ E yn${CBM-R}"y" 300 {$7c} B(773){CBM-W}192 160 _a {CBM-@} d${CBM-R}J(D(B(186)),2): a 180 {CBM--}{CBM-N} a{CBM-R}1: "loading 'use' code" : "tb/use.obj",E(d$),1 {$e8}{CBM-H} 49152 {CBM-V} b${CBM-R}q${CBM-N}"symass 3.1633: j,13: " j{CBM-R}634{CBM-@}638: j,17: ( " d , "TransBASIC Sampler j 6 S @ "This Transactor Disk contains the {CBM-K} j "TransBASIC modules that were published H t "in the corresponding Transactor {$f3} ^ "Magazine. Most modules contain more H "enter 'RUN' and the commands will be j{CBM-S} "added to BASIC. You can then include X{CBM-U} "the new commands as part of your BASIC {CBM-T}B "programs. For more details, see the RL "TransBASIC II Manual (see order card in {$e9}V "any Transactor) {$ef} {$ea} {SHIFT-*}l{SHIFT-*}lEA elsEexiTusE :{SHIFT-POUND}DA{$e5}A{CBM-I}{CBM-X}@{SHIFT-*}{CBM-X}h{SHIFT-*}J{$f1}{CBM-Z}{SHIFT-*}M{SHIFT-*}{SHIFT-*}{SHIFT-POUND}{$60}{SHIFT-*} F{$60} {$7c}{CBM-G}{CBM-M}{$e4}{CBM-M}{CBM-S}p{SHIFT-*}{CBM-V}{SHIFT-*}{$fd}{SHIFT-*}iA{CBM-I} {CBM-X} I"{$f0}\ {SHIFT-+}A%Q JH{$e8}{CBM-X} 8{$f9}{SHIFT-*}{$f0}{$f5}IP{SHIFT-POUND}_{CBM-@}Q H{CBM-G}I?{$e8} H{CBM-O} PEL@{SHIFT-*}{CBM-+}{$e6}{CBM-G}I{$f0}{$f8}H{CBM-O}{SHIFT-*}{$fa}{CBM-O}{SHIFT-*}PE{CBM-@}Q{CBM-X} W{CBM-X} {$f0}RI"{$f0}N H{$e8}P{$f0}I_PH{CBM-E}_{$e9}@I{$e9}M{SHIFT-*}{CBM-E}_{CBM-N}Lb{SHIFT-*} {CBM-N}{$f0}{CBM-O}{SHIFT-*}H({$f8}JP{$f5}{CBM-O}{SHIFT-*}){$7f} g{CBM-Q}H({$f3}{CBM-@}l l{CBM-P}{SHIFT-POUND},3H{SHIFT-POUND}p3Hh{CBM-G}3h{CBM-G}4h Y {$f0} {$fd}{CBM-S} {CBM-Y}l B{CBM-S}FF{SHIFT-POUND}B L{$e1}{SHIFT-POUND} {CBM-X}~{SHIFT-POUND}B{CBM-+} {SHIFT-@}~ A{$e1}{CBM-G} {CBM-E}~ {CBM-S}~{CBM-G}{$f0}{CBM-I}L 2C{SHIFT-POUND}C L{$e1}H{CBM-POUND}H{CBM-N}H {CBM-X}~{SHIFT-POUND}C{CBM-+}{CBM-POUND} {SHIFT-@}~ A{$e1} 2C L~{CBM-I}C {$e1} \C \C{CBM-G}+{CBM-@},{SHIFT-POUND} {$7b}C{$7c}C{$7d}C+E,E {CBM-P}C8{CBM-G}7{$e5}{CBM-G}8{$e5}{$e9}{CBM-A}3{CBM-Z}YC{$f0} pElB CBl5{CBM-@}{CBM-Z}YC{$f0} pE KD CBlT{CBM-@} L~{SHIFT-POUND}B L{$e1} {$e7}~ 3{CBM-G}ly{CBM-+} {$7e}C{CBM-Z}{$7b}CPV D {SHIFT-+}C" LCYC(P{CBM-+}{CBM-Z}{$7c}CP {CBM-G}{CBM-@}{CBM-E}{$f0}HP{$f9}lHC8E{CBM-G}I {$60} {CBM-E}IP*H{CBM-E}P%{CBM-G}{CBM-@}IZH{$7b} S IP mD{CBM-A}+EI,{$f0} S P{$f7}{$60} mD{CBM-A}{$fa},E{$ee}{$7d}C{$60} S {CBM-A}){CBM-POUND} S {CBM-A})" "{CBM-POUND} S {$60}{CBM-Z}{$7d}C{$f0}{$fa}{SHIFT-POUND}_ {$7d}C 3{CBM-G} {CBM-+}{$e7}{CBM-G}_{CBM-@}{$60} E{$e1}EIZH{$7b} S IxPI S {$f0}D{CBM-A}{$f9}{CBM-G}ZPF{$7b}FZ{CBM-Z}+E${CBM-Z},E% /D{CBM-Z}{$7d}C{$f0}{CBM-POUND}X{$f8}{CBM-Z}+EE$+E{CBM-A}{CBM-Z},EE%,EXx{CBM-A} {CBM-P}C {CBM-O}-EH{SHIFT-*}P{$f6}{CBM-Z}+E E{SHIFT-POUND}, {CBM-N}"{CBM-Z}F${CBM-Z}FMFoP{CBM-Z}FMFe{CBM-Z}FMF>P{CBM-G}$E"{$f0}54{CBM-Z}F8{$ed}F{CBM-POUND}{CBM-Z}F{$ed}FhMF#HMF%{CBM-E}"${SHIFT-*}~P{$f7}{CBM-G}#MF{$f0}F#F%l9F{$60}{CBM-Z}F#{CBM-Z}F%{CBM-Z}F8{$ed}F{$e6}{CBM-Z}F{$ed}F {CBM-N}{$f0}{CBM-E}"$HP{$f9}{$e6}#{$e6}%JP{$f2}{CBM-E}"$HDP{$f7}{$60} {CBM-+}:{$e8}P{$60}l{CBM-P}{$60}{$60}PI S {$f0}D{CBM-A}{$f9}{CBM-G}ZPF{$7b}FZ{CBM-Z}+E${CBM-Z},E% /D{CBM-Z}{$7d}C{$f0}{CBM-POUND}X{$f8}{CBM-Z}+EE$+E{CBM-A}{CBM-Z},EE%,EXx{CBM-A} {CBM-P}C {CBM-O}-EH{SHIFT-*}P{$f6}{CBM-Z}+E E{SHIFT-POUND}, 2061 {CBM-G}7({CBM-G}8){CBM-G}-&{CBM-G}.' {CBM-G}&PF'F&{CBM-E}&I{CBM-A}oh{CBM-G}&PF'F&{CBM-E}&I2{CBM-N}{CBM-G}&PF'F&{CBM-E}&E7*E8{CBM-N}HP{CBM-G}(PF)F(({CBM-G}* IP{CBM-G}*h{CBM-G}(PF)F(H({CBM-T}I{$7f}P{$ed}{SHIFT-POUND}l{CBM-C}{CBM-G}({CBM-X}7{CBM-G}){CBM-V}8 C{CBM-+}{SHIFT-POUND}~:l{CBM-C}{$7f}{SHIFT-POUND} {CBM-I}:~ :~ {$f9} {CBM-+}:{$e8}PlT{CBM-@}{CBM-I}^~ ^~ {$f9} {CBM-G}7w{CBM-G}8x{$e6}ZP{$e6}{$7b}{CBM-G}Zpn{CBM-G}{$7b}qo x{$f9} PlI{$f5} &{$fb} PI{CBM-R}P;ln{$f6} {CBM-I} {CBM-K}ZI {$f9} s{$f7} rHrl{CBM-D}{$f5} {CBM-G}w8{$e9} w{CBM-A}FxE-{CBM-G}x{$e5}.{CBM-A} {CBM-I}~ ~ {$f9} B{CBM-X}lg{$f9} {CBM-G}wIr{CBM-G}xI s {SHIFT-POUND} wP{$fb}{CBM-@}]{CBM-E}ZwP{$f8}{$60} {CBM-E}ZIj{$f0}IbP !{$f0} {$f0} {$f9} {SHIFT-POUND}Ps {$f9} {SHIFT-POUND}Pl {$f9} P{SHIFT-POUND}Pc {CBM-E}ZI#{$f0}{$e4}I({$f0} {CBM-@}]{$f0}+{$f0}({CBM-E}ZI,P"H{CBM-E}Z Ix{$f0}H{CBM-E}[I{$fa}{$f0}{CBM-@}]] s{$f7} {$e6}]{$e6}] l {$f7} s{$f7} {$f0}{CBM-Q}{SHIFT-POUND}Eyy{$e6}zl{CBM-D}{$f5} {$f9} {$f9} s{$f7} yz{$60}H{CBM-E}Z&{SHIFT-POUND} 'HHl {$f7} HD]{$f0} {CBM-E}ZI{CBM-N}{$f0}I{CBM-Q}P{$f1}& {$fa}{$f8} {CBM-@}&&'l {$f7} {SHIFT-POUND} ()*_ {CBM-E}ZI$Pl{$f8} I"{$f0}{CBM-C}I{CBM-D}{$f0}'I{CBM-E}{$f0}I{CBM-W}{$f0}I%Pl{CBM-K}{$f8} 8{$e9}0{CBM-R}I {CBM-A}{CBM-S}l[{$f8} _{$e6}ZP{$e6}{$7b}F]PFH{CBM-G}y&{CBM-G}z'{CBM-G}*P{CBM-G}&({CBM-G}')lR{$f7} I{CBM-N}P{CBM-G}&E(({CBM-G}'E){$ea}ln{$f8} 8{CBM-G}({$e5}&({CBM-G}){$e5}'){$7c}D]{$f0}{CBM-E}Z*HEZZ{$e6}{$7b}8{CBM-G}]]{$e5}]]l]{$f7} {CBM-G}_P{CBM-G}({CBM-+}){$60}I{CBM-E}P{CBM-G}){CBM-I} {$60}{CBM-G}({CBM-I} {$60}H{SHIFT-POUND} &'{CBM-E}Z8{$e9}05I {$e9}3"{CBM-N}q$ H "load " b$ "," d$ -R "run f{CBM--} a${CBM-R}q${CBM-N}"tb/kernel"{CBM-N}q$ I{$e6} "load " a$ "," d$ "" {$f0} "Now enter: USE"q$"[module name]"q$ {CBM-F}{$f5} "(see directory for module names) {$e4}{$fa} "When finished enter "q$"RUN"q$"" {$f0} 198,8 j{CBM-R}631{CBM-@}"than one command. To try the commands >R "in a module, type:": M{$7c} "USE"G(34)"module name"G(34)",device#": "The device# defaults to the last one F "one used. You may USE as many modules {$f2} "as memory will allow. When finished, {CBM-@} ="Proceed (y/n) y";yn$ $ {$f4} yn${CBM-R}"y" 140 / {$fe}b{CBM-R}0: ype:": M{$7c} "USE"G(34)"module name"G(34)",device#": "The device# defaults to the last one F "one used. You may USE as many modules {$f2} "as memory will allow. When finished, {CBM-@}{CBM-M} S I{$f0}6I_P$ S Al{CBM-S}{CBM-M}8{$e9}@I{$e9}M{SHIFT-*}{CBM-A} {CBM-POUND}{CBM-O}{SHIFT-*}h{CBM-O}{SHIFT-*}hlS {CBM-G}ZPF{$7b}FZLd{SHIFT-*}l{CBM-P} @Al{CBM-S}{CBM-M}{SHIFT-POUND}Ah{SHIFT-POUND}hlS S I_{$f0}{CBM-G}ZPF{$7b}FZLf{SHIFT-*}{SHIFT-POUND} S 8{$e9}@I{$e9}8{$ed}{SHIFT-*}FM{SHIFT-*}{CBM-A}A {CBM-POUND}{CBM-O}{SHIFT-*}h{CBM-O}{SHIFT-*}hlS {CBM-Z} Y I{$f0}{SHIFT-POUND}{CBM-M} ~{CBM-S} Y {CBM-+}A{$f0} {CBM-A}l {CBM-POUND}HH Y l A {$f8}{CBM-POUND} Y I P{$60} S I_P{$ee} S I@P{$e7} S lA{CBM-I}{CBM-X}@{SHIFT-*}J{$f7}{SHIFT-POUND}{CBM-I}{SHIFT-*} Fl{$e5}AI[Ia{$60}{$60} F{SHIFT-POUND} {$f4}{CBM-H} {CBM-Z} {CBM-T}{CBM-L} {$f4}{CBM-H}{CBM-POUND}P E{$e1}E{$7c}C {$f5}ClB{CBM-Z}YC{$f0} pE {SHIFT-+}C{CBM-A} {$f5}C{$f5}{CBM-G}{CBM-@}"# {CBM-P}C ~H{CBM-E}"LZCP{$f6}{$f0}{CBM-Z}{CBM-I}B {$e1} \CI2I7P \CI3P$8 \C{CBM-G}{$f0}{$f9}{SHIFT-POUND} ({CBM-A} {$60} ${$e1}h{CBM-G}){CBM-B}PH{$60} CB{SHIFT-POUND}T"{SHIFT-POUND}Cle{CBM-@}mergE \C{CBM-@}{CBM-+}{$7b}CP{SHIFT-*}{CBM-N}{$f0}HP{$e6} CBlF{CBM-Q}{SHIFT-*}P{$f3}{CBM-N}P{$f0}J{$7b}CZC{$60}{CBM-G}7E-h{CBM-G}8E.j{$e3}EHJ{$e2}E{SHIFT-POUND} YC{$60}8{CBM-Z}ZCE{SHIFT-POUND} E{$60} 8{CBM-E}{$f0} {CBM-E}QP{CBM-E}Q{$60}{SHIFT-POUND}{$60} H{CBM-Z},E E{CBM-O}-EH{CBM-N}P{$f7}ZC{$7c}C {$f5}C LClpEh){$f0}{$f0}jjjj0HH)0H{$60} _ xtra .byte ; stmts,funcs {CBM-Z}{$7c}CP {CBM-G}{CBM-@} E{$e1}E{SHIFT-POUND} {$7c}C{CBM-G}{CBM-@}FF8{$ed} E"{$ed}{$e1}E#8{CBM-G}{$ed}{$e2}Eh{CBM-G}{$ed}{$e3}E{CBM-POUND}H8{$e5}""{$e5}##{CBM-G}E"F{CBM-G}E#F{CBM-G}-FE"-{CBM-G}.FE#. {$e4}E{CBM-Z} EF{CBM-Z}{$e1}EF{CBM-Z}{$e2}E{CBM-D}{$e3}EFF{CBM-G}{CBM-@}FFl{$e4}E {CBM-Z}FPNFNF{CBM-Z}F-I{CBM-A})I &&'{CBM-A}$&&'{CBM-A}&&'{CBM-A}&&'{CBM-A}E&&{CBM-G}'I '{CBM-A}HPDl {$f7} {CBM-I}{CBM-+}~ {CBM-+}~ {$f9} B{CBM-X}lg{$f9} {SHIFT-POUND} &'{CBM-E}Z8{$e9}06I {CBM-A}2h{CBM-G}&{CBM-+}'&&'{CBM-A}W&&'{CBM-A}QE&&E''{CBM-A}F&&'{CBM-A}{SHIFT-*}HE&&{CBM-G}'I '{CBM-A}{CBM-W}HPCl {$f7} H{SHIFT-POUND} &'{CBM-E}Z8{$e9}0I{CBM-A}&&'{CBM-A}E&&{CBM-G}'I 'HP{$e2}l {$f7} {SHIFT-POUND}B{$fc}[{SHIFT-POUND}B{$fc}\{CBM-I} {CBM-E}[{$f0}QZPH{SHIFT-*}{$f3}D]P8{$60}{$e8}{CBM-G}[I [{$e6}\ 8P{SHIFT-+}{$60}{CBM-G}7B{CBM-G}8C{CBM-D}P {$f7} l{CBM-D}{$f5} {CBM-E}ZI{CBM-R}Pl:{$f6} I{$f8} l {$f6} {CBM-E}ZI.PlA{$fb} _{$f6} {CBM-G}yrH{CBM-G}zr{CBM-@}]{CBM-E}ZI {$f0}I:{$f0}l{$60}{$f5} HEZZ{$e6}{$7b}lH{$f5} {$e6}{CBM-I}M~ M~ {$f9} {CBM-G}pn{CBM-G}qo x{$f9} Pl%{$f6} &{$fb} {$f0}!{CBM-I} {CBM-K}ZI{CBM-D}P {$f7} l{$f6} I{$f8} l%{$fa} {CBM-E}ZI.PlA{$fb} {CBM-@}]{CBM-E}ZI {$f0}I:{$f0}lZ{$f5} HEZZ{$e6}{$7b}l{$e2}{$f5} {CBM-I}{$7c}~ {$7c}~ {$f9} {CBM-G}y9{CBM-G}z: B{CBM-X}lT{CBM-@} _{$f6} {$f9} s{$f7} rHrl{CBM-D}{$f5} txa{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cpx{$ec}{$fa}{$fa}{$e4}{$fa}{$fa}{$fa} {$fa}{$fa}jmplL{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}tax{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-N}{$fa}{$fa}{$fa}iny{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}H{$fa}{$fa}{$fa}sty{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-A}a {$fa}{$fa}dey{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}dex{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}J{$fa}{$fa}{$fa}stx{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}sbc{$ed}{$fd}{$f9}{$e5}{$f5}{$fa}{$fa}{$e9}{$e1}{$f1}bit,{$fa}{$fa}${$fa}{$fa}{$fa}{$fa}{$fa}{$fa}brk{$fa}{$fa}{$fa}{$fa}{$fa}{$fa} {$fa}{$fa}{$fa}bvcp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bvsP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cld{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}cli{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}x{$fa}{$fa}{$fa}clv{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-U}{$fa}{$fa}{$fa}cpyL{$fa}{$fa}D{$fa}{$fa}{$fa}{SHIFT-*}{$fa}{$fa}inx{$fa} .. second pass... assembly complete symbol table overflow illegal quantity undefined symbol branch out of range illegal mode illegal pseudo-op rk{$fa}{$fa}{$fa}{$fa}{$fa}{$fa} {$fa}{$fa}{$fa}bvcp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bvsP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cld{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}cli{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}x{$fa}{$fa}{$fa}clv{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-U}{$fa}{$fa}{$fa}cpyL{$fa}{$fa}D{$fa}{$fa}{$fa}{SHIFT-*}{$fa}{$fa}inx{$fa}) doke & deek (aug 24/84) : / : o 1 statement, 1 function u : R keyword characters: 9 X : keyword routine line ser # G s/doke dok 2636 007 {$ee} f/deek( deek 2674 008 {$f4} : u/u k jsr $ad8a n jsr $b7f7 . p jsr $aefd a r lda $14 t t sta t3 {$60} v lda $15 K x sta t4 {$7e} z jsr $ad8a \ jsr $b7f7 {CBM-@} ^ lda $14 {CBM-Y} {$60} ldy #0 J B sei {SHIFT--} D sta (t3),y {$f0} F lda $15 H iny k : alter next line num {$f6} 1, cd, 8, cn${CBM-N}",s,r" # 550 : get line number Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$)) {CBM-D} mc{CBM-N}21, 0 : input delim now $00 {CBM-J} mc {$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$ : ) bit twiddlers (sept 4/84) : / : o 3 statements, 0 functions u : R keyword characters: 12 X : keyword routine line ser # G s/set bse 2698 009 {$ee} s/clear bclr 2708 010 s/flip T {CBM-P} ($14),y ( sta ($14),y 0 rts 6 ; j fli jsr bprep ] {CBM-I} e{CBM-A} ($14),y Q {CBM-@} sta ($14),y Y {CBM-+} rts {$7f} {CBM-POUND} ; {CBM-N} bprep jsr $b7eb {SHIFT-POUND} {CBM-D} txa {CBM-V} {CBM-S} ldy #0 F {CBM-A} rts L {CBM-R} ; ar bclr 2708 010 s/flip {CBM-G}B8{$e9} B{CBM-A}FCEw{CBM-G}C{$e5}x{CBM-A}{CBM-G}P{CBM-G}y{CBM-+}z{$60}{CBM-I}{CBM-U}~ {CBM-U}~ {$f9} B{CBM-X}lg{$f9} {CBM-E}B{$f0}QZPMH{SHIFT-*}{$f3}D&PD {CBM-E}B{CBM-N}{CBM-E}B{$60}{CBM-G}9{CBM-G}: {CBM-+} I{CBM-+}lT{CBM-@}{CBM-G}nZ{CBM-G}o{$7b} {CBM-E}ZnH{CBM-E}Zo{$f0}H{CBM-E}Z9H{CBM-E}Z:{CBM-G}ZIZ{$e6}{$7b}{$60}{CBM-@}]H,{CBM-@}]EZZ{$e6}{$7b}l&{$fb} &' {CBM-E}&{$f0} R~HP{$f6}{$60} {CBM-E}[ {$fb} {$f9} s{$f7} 8{$e9}{CBM-A}J8{$e5}y&{$e5}z{CBM-N}{CBM-G}&II {$f0} {CBM-I}J~ J~ {$f9} B{CBM-X}lg{$f9} {CBM-G}& {$fb} l{$f6} {$e6}Z{$e6}]{$e6}]l{$f6} {$f9} {CBM-E}ZI({$f0} {CBM-E}[ {$fb} s{$f7} {$fb} {$fb} l{$f6} {$e6}ZP{$e6}{$7b}F]F] {CBM-E}[ {$fb} s{$f7} {$fb} {$fb} {$e6}]l{$f6} I{$fa}P {CBM-I}{CBM-*}~ {CBM-*}~ {$f9} B{CBM-X}lg{$f9} y{$e6}yP{$e6}z{$60}{CBM-I} {CBM-E}Z{$f0}.I"{$f0}# {$f0}I:{$f0}"I;{$f0}I{CBM-R}{$f0}I {$f0}HP{$e1}{SHIFT-*} P{$e6}ZPY{$e6}{$7b}PUi{CBM-N}lf{$fb} ]{SHIFT-*} {$60}H{CBM-E}ZIbPl{$fb} IwPl {$fb} IFPl{$fc} IPl){$fc} IpPlh{$fc} {CBM-I}{$ed}~ {$ed}~ {$f9} B{CBM-X}lg{$f9} {CBM-G}Pl{CBM-D}{$f5} {$fa}{$fa}bneP{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}beq{$f0}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}cmpM{SHIFT--}YEU{$fa}{$fa}IAQjsr {$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}ldx{CBM-S}{$fa}{CBM-V}{CBM-+}{$fa}{CBM-L}{$fa}{CBM-I}{$fa}{$fa}rts{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$60}{$fa}{$fa}{$fa}ldy{CBM-D}{CBM-C}{$fa}{CBM-@}{CBM-H}{$fa}{$fa} {$fa}{$fa}bmi0{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}decN{$de}{$fa}FV{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-P} -=9%5{$fa}{$fa})!1bcs{CBM-A}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}inc{$ee}{$fe}{$fa}{$e6}{$f6}{$fa}{$fa}{$fa}{$fa}{$fa}bcc{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}tya{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}bpl{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}asl{$fa}{$fa} {$fa}{$fa}{$fa}clc{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}adcM{$7d}YEU{$fa}{$fa}IAQe{CBM-A} m]yeu{$fa}{$fa}iaq{$fa}{$fa}{$fa}{$fa}{$fa}{$e8}{$fa}{$fa}{$fa}lsrn^{$fa}fv{$fa}j{$fa}{$fa}{$fa}nop{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$ea}{$fa}{$fa}{$fa}pha{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}h{$fa}{$fa}{$fa}php{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}pla{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}H{$fa}{$fa}{$fa}plp{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}({$fa}{$fa}{$fa}rol.>{$fa}&6{$fa}*{$fa}{$fa}{$fa}r{CBM-A} N{$7e}{$fa}FV{$fa}J{$fa}{$fa}{$fa}rti{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}@{$fa}{$fa}{$fa}sec{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}8{$fa}{$fa}{$fa}sed{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$f8}{$fa}{$fa}{$fa}sei{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}X{$fa}{$fa}{$fa}tay{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{CBM-POUND}{$fa}{$fa}{$fa}tsx{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{SHIFT-@}{$fa}{$fa}{$fa}txs{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}{$fa}symass 3.13 robert huehn feb 1986 first pass.) check & await (aug 25/84) : / : o 0 statements, 2 functions u : R keyword characters: 12 X : keyword routine line ser # G f/check( check 2834 018 {$ee} f/await( await 2838 019 {$f4} : u/gsfp (2620/006) : 9 ================================ ? : mF .F "dokE" \y.F "deek{CBM-POUND}" Kn.w{CBM-A}d dok{CBM-Q}1 {$7b}a.w{CBM-A}d deek{CBM-Q}1 < usfp ldx #0 > stx $0d {CBM-S}@ sta $62 {CBM-B}b sty $63 Pd ldx #$90 {$e1}f sec {$ef}h jmp $bc49 {$f5}j ; l do ~ J sta (t3),y )L cli 1N rts 7P ; kR deek jsr $aef4 _T jsr $ad8d SV jsr $b7f7 X ldy #1 Z lda ($14),y {CBM-T}{$7c} pha {CBM-Y}{$7e} dey K lda ($14),y S tay {SHIFT-+} pla {$ef} jmp usfp {$f5} ; etter (2888/020) : ; ================================ a : wz.F "check{CBM-POUND}await{CBM-POUND}" Mb.w{CBM-A}d check{CBM-Q}1,a{CBM-Q}1 check sec .byte $24 {SHIFT-POUND}a clc {CBM-V}php Sjsr $aef4 {$e8}jsr $b6a3 {$fd}sta t3 fli 2720 011 : 4 u/bprep (2730/012) : : A ================================ G : {$7d}G .F "seTcleaRfliP" o.w{CBM-A}d bse{CBM-Q}1,b{CBM-Q}1,fli{CBM-Q}1 {CBM-N} bse jsr bprep {CBM-C} {CBM-A}a ($14),y O sta ($14),y W rts {SHIFT--} ; {$ef} b jsr bprep e{CBM-A} #$ff plp & "r{CBM-A} t4 9 $aw1 jsr {CBM-K}ter n &bit t4 C (bmi aw2 X *tay ,beq aw1 {CBM-I} .aw2 ldy #$ff {CBM-Y} 0aw3 iny L 2cpy t3 {$e1} 4beq aw4 {$f6} 6cmp ($22),y 8P{$e6}{$7b} {CBM-E}[ {$fb} F] s{$f7} {$fb} l{$f6} {$e6}ZP{$e6}{$7b}{CBM-G}]8{$e9}{CBM-POUND}]{CBM-E}Z I,{$f0}H{CBM-E}[ {$fb} s{$f7} {$fb} {$e6}]{$e6}]{$e6}]l{$f6} {CBM-E}ZIjPlK{$fa} IbP !{$f0} {$f0}l{CBM-M}{$f9} {$f9} P {CBM-E}[ {$fb} l{$f6} {CBM-E}ZI#Pl{$e2}{$f9} I(Pl{$fa}{$f9} I!P{$e6}ZP{$e6}{$7b}F],{SHIFT-POUND} {$60}{CBM-I}{CBM-@}]{$f0}{$f0}{CBM-E}ZI,P]{$e8}H{CBM-E}ZIx{$f0}{$e8}^ s{$f7} {$f0}{CBM-@}^{CBM-E}[ {$fb} {CBM-G}( {$fb} {$fb} l{CBM-X}{$fa} {CBM-G}{$60}P{$e9}{CBM-@}^HHH{CBM-E}[I{$fa}{$f0}{$de} {$fb} {CBM-G}( {$fb} {CBM-@}^{$f0} l{$f6} {SHIFT-POUND} {$60} {$f9} ^ {CBM-E}ZI,{$f0}HD^P{$f5}{CBM-G}{$f0}3]H{CBM-G}^^8{$e5}^^{CBM-A}{SHIFT-POUND} ^ s{$f7} {$fb} {CBM-G}{$60}{$f0} {$fb} {CBM-G}^{$f0}${CBM-@}]HEZZ{SHIFT-*}{$e6}{$7b}P{CBM-C}{CBM-G}{$60}{$f0}{SHIFT-POUND}IEyy{$e6}zD^P{CBM-P}l{$fb} {$f9} {CBM-E}ZI"{$f0}{CBM-+}{$f0}^ {$fb} {CBM-@}^HD]P{$ea}l{$fb} {$e6}yP{$f4}{$e6}zP{$f0}{CBM-G}PlI{$f5} {$f9} {CBM-I}{$7c}~ {$7c}~ {$f9} {CBM-G}y9{CBM-G}z: B{CBM-X}l{CBM-S}{CBM-M}{CBM-G}y){$f0}{CBM-G}{$f0}{SHIFT-POUND} {$fb} l{$fb} {$e6}yP{$f9}{$e6}zP{$f5}lda{CBM-Z}{CBM-X}{CBM-O}{CBM-G}{CBM-J}{$fa}{$fa}{SHIFT-POUND}{CBM-K}{CBM-E}sta{$fa} 7 the transactor volume 5 issue 06 page 7 x 3,3:4,4:prinG(19);:i{CBM-R}1{CBM-@}24 j{CBM-R}1{CBM-@}40:{CBM-K}#3,a$:4,a$;:j:4," ":i: 3: 4 7 the transactor volume 5 issue 06 page 6 nD * phone speller * EN * dec84/cz * KX : 1,3 : 1,4 for printer {CBM-P} l${CBM-R}"000111abcdefghijklmnoprstuvwxy" {CBM-J} : M "phone number";pn$ Z{CBM-N} n{CBM-R}C(pn$) {$ec}{CBM-H} p(n), n$(n) {$f2}{CBM-V} : H i{CBM-R}1 {CBM-@} 0ry{CBM-R}0 6 p(j){CBM-E}3 {CBM-M} carry{CBM-R}1:p(j){CBM-R}1 (@ j,i page 6 nD * phone speller * EN * dec84/cz * KX : 1,3 : 1,4 for printer {CBM-P} l${CBM-R}"000111abcdefghijklmnoprstuvwxy" {CBM-J} : M "phone number";pn$ Z{CBM-N} n{CBM-R}C(pn$) {$ec}{CBM-H} p(n), n$(n) {$f2}{CBM-V} : H i{CBM-R}1 {CBM-@} 7 the transactor volume 5 issue 06 page 8 w save"0:keyword pet.bas",8 D ** rte/84 - auto keyword for the pet/cbm {CBM-A}I j{CBM-R}634 {CBM-@} 774: x: j,x: ch{CBM-R}ch{CBM-N}x: WN ch{CBM-W}{CBM-E}17758 {CBM-M} "checksum error": {$fc}S "sys(634): rem ** to enable": ) 16, 76, 56 7 233, 193, 170, 169, 27, 32, 210, 255 D 169, 157, 32, 210, 255, 169, 178, 133 87, 169, 176, 133, 88, 160, 0, 132 {CBM-V}{CBM-G} 89, 224, 0, 240, 21, 177, 87, 24 {$eb}{CBM-N} 42, 176, 8, 200, 208, 247, 230, 88 {CBM-P} 76, 199 #5 M 108, 5, 3, 0, 0 , 169, 27, 32, 210, 255 D 169, 157, 32, 210, 255, 169, 178, 133 87, 169, 176, 133, 88, 160, 0, 132 {CBM-V}{CBM-G} 89, 224, 0, 240, 21, 177, 87, 24 {$eb}{CBM-N} 42, 176, 8, 200, 208, 247, 230, 88 {CBM-P} 76, 199 {CBM-Y}bne aw3 :beq aw5 #<aw4 bit t4 8>bpl aw1 m@ldy #$ff Bbaw5 iny Wdjmp $b3a2 {$7d}f; h{CBM-K}ter jsr $a82c {CBM-M}jjmp $e124 {CBM-Z}l; Sjsr $aef4 {$e8}jsr $b6a3 {$fd}sta t3 7 the transactor volume 5 issue 06 page 8 w save"0:keyword c64.bas",8 D ** rte/84 - auto keyword for the commodore 64 {CBM-J}I j{CBM-R}828 {CBM-@} 970: x: j,x: ch{CBM-R}ch{CBM-N}x: {CBM--}N ch{CBM-W}{CBM-E}17162 {CBM-M} "checksum error": S "sys(828): rem ** to enable" 201, 193, 48, 75 < 201, 219, 16, 71, 56, 233, 193, 170 I 169, 20, 32, 210, 255, 169, 158, 133 87, 169, 160, 133, 88, 160, 0, 132 C{CBM-G} 89, 224, 0, 240, 21, 177, 87, 24 {$f0}{CBM-N} 42, 176, 8, 200, 208, 247, 230, 88 {CBM-P} 76 23, 141 &M 21, 3, 108, 201, 3, 0, 0 , 233, 193, 170 I 169, 20, 32, 210, 255, 169, 158, 133 87, 169, 160, 133, 88, 160, 0, 132 C{CBM-G} 89, 224, 0, 240, 21, 177, 87, 24 {$f0}{CBM-N} 42, 176, 8, 200, 208, 247, 230, 88 {CBM-P} 767 the transactor volume 5 issue 06 page 8 w save"0:keyword vic.bas",8 D ** rte/84 - auto keyword for the vic 20 {CBM-P}I j{CBM-R}828 {CBM-@} 970: x: j,x: ch{CBM-R}ch{CBM-N}x: VN ch{CBM-W}{CBM-E}17194 {CBM-M} "checksum error": {$fb}S "sys(828): rem ** to enable": ( n ,R n$(i){CBM-R}J(l$,E(J(pn$,i,1)){CBM-D}3{CBM-N}1 ,3):p(i){CBM-R}1 4{CBM--} i V{$e6} * n$ holds letter groups for each digit in number * {$7c}{$f0} : {$fa} i{CBM-R}1 {CBM-@} 3{CBM-S}n 1,i, G c{CBM-R}1 {CBM-@} n:1,J(n$(c),p(c),1);: c: 1,G(13); Scarry{CBM-R}1 {$e1}" j{CBM-R}1 {CBM-@} n ,p(j){CBM-R}(p(j){CBM-N}carry): carX 173, 21, 3, 201, 3, 240, 24, 173 u{$7d} 20, 3, 141, 201, 3, 173, 21, 3 141, 202, 3, 120, 169, 92, 141, 20 {CBM-P} 3, 169, 3, 141, 21, 3, 88, 96 {CBM--} 165, 58, 201, 255, 208, 85, 165, 215 201, 169, 240, 82, 201, X 165, 145, 201, 2, 240, 20, 165, 144 v{$7d} 141, 5, 3, 165, 145, 141, 6, 3 120, 169, 149, 133, 144, 169, 2, 133 {CBM-A} 145, 88, 96, 165, 55, 201, 255, 208 {SHIFT--} 90, 165, 217, 201, 92, 240, 87, 201 193, 48, 80, 201, 219,, 2, 200, 230, 89, 228, 89 e{CBM-H} 208, 235, 177, 87, 133, 90, 36, 90 R{CBM-O} 48, 11, 32, 210, 255, 200, 208, 242 {CBM-V} 230, 88, 76, 220, 2, 56, 233, 128 LC 32, 210, 255, 108, 5, 3, 173, 5 {$f9}H 3, 133, 144, 173, 6, 3, 133, 14193, 48, 75 6 201, 219, 16, 71, 56, 233, 193, 170 C 169, 20, 32, 210, 255, 169, 158, 133 87, 169, 192, 133, 88, 160, 0, 132 {CBM-X}{CBM-G} 89, 224, 0, 240, 21, 177, 87, 24 {$ea}{CBM-N} 42, 176, 8, 200, 208, 247, 230, 88 {CBM-P} 76, 137, 3, 200, 230, 89, 228, 89 d{CBM-H} 208, 235, 177, 87, 133, 90, 36, 90 Q{CBM-O} 48, 11, 32, 210, 255, 200, 208, 242 {CBM-V} 230, 88, 76, 158, 3, 56, 233, 128 KC 32, 210, 255, 108, 201, 3, 173, 201 {$f8}H 3, 141, 20, 3, 173, 202, 3, 141: .X 173, 21, 3, 201, 3, 240, 24, 173 [{$7d} 20, 3, 141, 201, 3, 173, 21, 3 141, 202, 3, 120, 169, 92, 141, 20 {CBM-J} 3, 169, 3, 141, 21, 3, 88, 96 {$e2} 165, 58, 201, 255, 208, 85, 165, 215 201, 169, 240, 82,, 137, 3, 200, 230, 89, 228, 89 j{CBM-H} 208, 235, 177, 87, 133, 90, 36, 90 W{CBM-O} 48, 11, 32, 210, 255, 200, 208, 242 {CBM-@}{CBM-V} 230, 88, 76, 158, 3, 56, 233, 128 QC 32, 210, 255, 108, 201, 3, 173, 201 {$fe}H 3, 141, 20, 3, 173, 202, 8 the transactor volume 5 issue 06 page 24 vD 700 ;assembled pal 64 BN .opt oo HX ; {CBM-D}{CBM-R} $c000 ; program {CBM-A}igin ; ; ; cs{SHIFT-*}ts {CBM-@}{CBM-N} ; B{CBM-H} {CBM-R} $9b ; {CBM-@}ken E {$de}{CBM-V} {CBM-R} $99 ; {CBM-@}ken E ~H illquan {CBM-R} $0e ; err{CBM-A} Eue {CBM-J}erpreter routines used ,; 86chr{CBM-K} {CBM-R} $0073 ; {CBM-K} char z@chrKt {CBM-R} $0079 ; {CBM-K} last char Tjy {CBM-R} $a474 ; {CBM-@} 'y tscan {CBM-R} $a906 ; {CBM-@} statment {CBM-W}^flt{CBM-X} {CBM-R} $ad9e ; eE gen {CBM-X} SHlookup {CBM-R} $b08b ; variable {$f4}R{CBM-J}flt {CBM-R} $b391 ; {CBM-J}{CBM-Q}{CBM-E}flt cv. {$7c}sffd2 ; output {CBM-@} file 1 setlfs {CBM-R} $ffba ; set {CBM-C}ical 1,2 l{$ea} {CBM-R} $ffc0 ; file Q{$f4}setnam {CBM-R} $ffbd ; set file name {$fe}st {CBM-R} $ffb7 ; {CBM-K} status {CBM-W}chrin {CBM-R} $ffcf ; {CBM-K} from device Rchn {CBM-R} $ffcc ; clear i{CBM-Z}o {$ed} {CBM-R} $ffe1 ; scan &talk l byte V; " ; ram indirect vec{CBM-@}rs altered ( ; d ierr{CBM-A} {CBM-R} $0300 ; err{CBM-A}s [ i {CBM-R} $0330 ; s R {CBM-POUND}i {CBM-R} $0332 ; s X {CBM-R}; {CBM-C}; zero page used F; {CBM-O} Pvaraddr {CBM-R} $49 ; address of var {$e1} Zflacc1 {CBM-R} $61 ; flt. pt. acc. #1 {$e4}curlin {CBM-R} $d " rcurdevnum .byte 8; ault device# b\mychar .F "@"; err wedge char AFquoteflag .byte 0;boolean Ptempstr {CBM-D}{CBM-R} {CBM-D} {CBM-N} 40 ;space string Z; start {CBM-R} {CBM-D} {CBM-K}; Elda ierr{CBM-A} ; alter vec{CBM-@}rs {$e7}{CBM-I}sta errvec{CBM-@}r ; in ram {CBM-@} {CBM-I} {CBM-D}ldsta i $lda #{CBM-E} set .sta i {CBM-N} 1 8lda i +bsta vec{CBM-@}r :llda i {CBM-N} 1 mvsta vec{CBM-@}r {CBM-N} 1 ]{$60}lda #{CBM-W} set HJsta i XTlda #{CBM-E} set {$7e}sta i {CBM-N} 1 rts ; {CBM-I}set {CBM-R} {CBM-D} {CBM-POUND}{CBM-+}; {SHIFT-@}{CBM-A}ldx curdevnum I{SHIFT-@}stx curdev ZDjmp (vec{CBM-@}r) N; {$ed}Xset ; {$fc}rightype {CBM-R} {CBM-D} ; jsr chrKt {CBM-N}cmp mychar .{CBM-H}beq myerr{CBM-A} a{CBM-V}jmp (errvec{CBM-@}r) gH; vRmyerr{CBM-A} {CBM-R} {CBM-D} \{CBM--}; {$e6}pla ; pop unnecessary {$f0}pla ; stuff {CBM-S}{$fa}jsr parse Qjmp scan ; give back {CBM-@} basic W; {$f4}; sh{CBM-A}t {CBM-P} , M 21, 3, 108, 201, 3, 0, 0 , 233, 193, 170 C 169, 20, 32, 210, 255, 169, 158, 133 87, 169, 192, 133, 88, 160, 0, 132 {CBM-X}{CBM-G} 89, 224, 0, 240, 21, 177, 87, 24 {$ea}{CBM-N} 42, 176, 8, 200, 208, 247, 230, 88 {CBM-P} 76, 137,nctial. {$f2}{$7c}; ~show {CBM-R} {CBM-D} ; jsr scan !{CBM-@}jmp showds '{CBM-S}; 2{CBM-U}1 {CBM-R} {CBM-D} 8B; ]Lcmp #"d" ; comm{CBM-P} start with a {$7f}Vbne 2 ; "d" no{CBM-R}{CBM-E} try a{CBM-POUND}her ; {CBM-M}{$ea}jsr chr{CBM-K} ; comm{CBM-P} starts with {CBM-X}{$f4}pha ; "d" J{$fe}jsr scan Rpla {$f6}cmp #"e" ; check secd char. bne other1 &; )0jsr {CBM-X} ; set {CBM-I} ault l:stx curdevnum ; device number. tdrts zn; Ixother1 {CBM-R} {CBM-D} OB; Lcmp #"o" ; try a{CBM-POUND}her secd {CBM-Z}Vbne other2 ; character {CBM-W}; Sjmp doscomm ;s dos comm{CBM-P} Y; {$e8}ots R syntax {CBM-R} $0b ; " ?{CBM--} status {CBM-R} $90 ; status byte C{$e6} comma {CBM-R} "," ; Fii of comma {$f0} col {CBM-R} ":" ; Fii of col {CBM-+}{$fa} eol {CBM-R} 0 ; of line Lstack {CBM-R} $0100 ; bot{CBM-@}m 65xx stk {$f0}keytable {CBM-R} $a09e ; keyw{CBM-A}d table {$f6}; ";trres {CBM-R} $b475 ; res spc 4 string cdiscrd {CBM-R} $b6a3 ; unwanted string E{CBM-X} {CBM-R} $b7f1 ; {CBM-J} {CBM-X} in x{CBM-Q}reg fltF {CBM-R} $bddd ; flt{CBM-Q}{CBM-E}Fii cv {CBM-@}; {CBM-POUND}{CBM-S}; kernal routines used {CBM-S}{CBM-U}; JB {CBM-R} $ffc3 ; ed file {$e7}Lchkin {CBM-R} $ffc6 ; set Vchrout {CBM-R} $ {CBM-R} $ffb4 ; s talk 00tksa {CBM-R} $ff96 ; s sa talk q:untalk {CBM-R} $ffab ; s untalk Vdacptr {CBM-R} $ffa5 ; {CBM-K} serial byte nen {CBM-R} $ffb1 ; s en {CBM-H}xlsnsa {CBM-R} $ff93 ; s sa {CBM-Q} en TBunlsn {CBM-R} $ffae ; s unen {$fa}Lciout {CBM-R} $ffa8 ; s seria39 ; current line +{$ee}curdev {CBM-R} $ba ; current device n{$f8}temp {CBM-R} $fd ; temp s{CBM-@}rage t; Sjmp start ; around s{CBM-@}rage Y; ; general mem{CBM-A}y s{CBM-@}rage *; {CBM-V}4errvec{CBM-@}r .w{CBM-A}d 0; old err vec{CBM-@}r Z>vec{CBM-@}r .w{CBM-A}d 0; old " {$f6}hvec{CBM-@}r .w{CBM-A}d 0; ola ierr{CBM-A} {CBM-N} 1 ; routines. ) {CBM-L}sta errvec{CBM-@}r {CBM-N} 1 ; the old e {SHIFT-*}lda #{CBM-W} err{CBM-A} ; Eues. H Jsta ierr{CBM-A} ; re{CBM-Q}direct {CBM-@} Tlda #{CBM-E} err{CBM-A} ; {CBM-I} routines {$de}sta ierr{CBM-A} {CBM-N} 1 {CBM-+} {$e8}lda i {CBM-J} {$f2}sta vec{CBM-@}r D {$fc}lda i {CBM-N} 1 W sta vec{CBM-@}r {CBM-N} 1 {$e7} lda #{CBM-W} set {$f2} {CBM-R} {CBM-D} {$f3}{$e2}; {$ec}ldx curdevnum {$f6}stx curdev % jmp (vec{CBM-@}r) + ; ;{CBM-K}string {CBM-R} {CBM-D} x; string {CBM-P} discard E(jsr chr{CBM-K} R2jsr flt{CBM-X} <jmp discrd f; perr{CBM-A} {CBM-R} {CBM-D} {CBM-E}z; this is it folks ADcpx #syntax RNbeq rightype {$e5}Xjmp (errvec{CBM-@}r) {$eb}sweet ain't it {$fa}"; ,parse {CBM-R} {CBM-D} 6; comm{CBM-P} parser d@jsr chr{CBM-K} ; a straight character Jjcmp #eol ; by character search tbeq show ; through basic text {CBM-E}^cmp #col ; {CBM-@} identy comm{CBM-P}. RHbeq show ; {CBM-POUND} elegant, but {$ec}Rbne 1 ; fuher2 {CBM-R} {CBM-D} {$ee}{CBM-POUND}; {CBM-R}cmp #"s" ;last chance 4 commm{CBM-P} 8{CBM-C}beq dsfunc ;starting with a "d" yFjmp (errvec{CBM-@}r) ; inEid comm{CBM-P} _P; NZdsfunc {CBM-R} {CBM-D} T{$e4}; {$ee}jsr scan {$f8}jmp ds ; disk status {CBM-G}; {CBM-A}2 {CBM-R} {CBM-D} {CBM-L}; C cmp #"k" N*bne 3 T4; {$f6}>jsr s {$e1}J; {$ec}T3 {CBM-R} {CBM-D} {$f2}{$de}; {$fd}{$e8}cmp # {$f2}bne 4 {$fc}; /jsr scan ; program {CBM-A} rjmp do ; direc{CBM-@}ry routine x; C$4 {CBM-R} {CBM-D} I.; {$7b}8; text file bcmp # ; routine {CBM-G}lbne thatsall {CBM-Q}v; {CBM-U}{$60}jsr scan DJjmp do JT; {SHIFT-+}{$7e}thatsall {CBM-R} mma ; comma {CBM-A} col {$f9} beq out cmp #col beq out ( jsr chr{CBM-K} 02 jmp scanm{CBM-A}e 6< ; bf out {CBM-R} {CBM-D} hp ; pz rts vD ; AN {CBM-R} {CBM-D} GX ; jsr chn ; an lda #127 ; file. {CBM-@} jmp {CBM-N} ; {CBM-J}{CBM-N} {CBM-R} {CBM-D} {CBM-F}{CBM-H} ; W{CBM-V} jsr {CBM-K}string ; filjlda #$6f ; $6f {CBM-R} ($0f {CBM-A} $60) tjsr lsnsa ; en secdary 9^jsr {CBM-K}string ; {CBM-K} comm{CBM-P} string sHstx temp:sty temp {CBM-N} 1 BRtax:ldy #0 H{$7c}; disklp {CBM-R} {CBM-D} ; s comm{CBM-P} ; {CBM-+}lda (temp),y:jsr ciout {CBM-X}{CBM-@}iny:dex:bne disklp K{CBM-S}jmp unlsn Q{CBM-U}; ; s a {CBM-@} the {$f9}njsr chrout ; screen xjsr chrin ;waste po{CBM-J}ers 0Bjsr chrin ; " sLjsr chrin ; {CBM-K} #{CBM-W} block count OVsta temp ; {CBM-Z} linenum jsr chrin ; {CBM-K} #{CBM-E} block count {CBM-T}sta temp {CBM-N} 1 {CBM-V}jsr st ; of file"? {SHIFT-+}beq {CBM-D} {CBM-N} 5 ng from stack {$e8} jsr chrout {$f0} iny * bne proutnum 4 ; > addspace {CBM-R} {CBM-D} h ; cr lda #" " ; pad out {CBM-@} improve A\ jsr chrout ; appearance GF ; WP dirline {CBM-R} {CBM-D} {$7d}Z ; jsr ; check key {CBM-U} beq dir ; yes {CBM-R}{CBM-E} quit {CBM--} cmp #$ef lag; yes {CBM-R}{CBM-E} quote mode {$fc}{$f2} lda quoteflag; i.e. {CBM-@}ggle {$fc} {CBM-P} #1 ; boolean quoteflag 1 sta quoteflag r bpl dirline ; branch always x ; F $iskey {CBM-R} {CBM-D} L .; 8ldx quoteflag; quotemode "? {CBM-Z} bbeq dokey ; yes {CBM-R}{CBM-E} {CBM-@}ken {CBM-W} l; B vdtdok {CBM-R} {CBM-D} H {$60}; R!{$f6}key {CBM-R} {CBM-D} X! ; {$f5}! ldy #0 ; {CBM-@}ken in acc {$fd}!sec ""sbc #$80 ; n{CBM-A}malize {CBM-@}ken range ="(beq prkey ; {CBM-@} 0 {CBM-Q} 127 e"2tax r"<lda #$ff x"f; I"psckeytab {CBM-R} {CBM-D} O"z; "Diny ; {CBM-K} {CBM-@} the right {CBM-W}"Nlda keytable,y ; {CBM-@}ken in the N"Xbmi {CBM-D} {CBM-N} 4 set J#{$fa}; Y#prkey {CBM-R} {CBM-D} {CBM-*}#; $sec ; unsht last char $"sbc #$80 ; {CBM-P} b$,jmp chrout ; after chrout h$6; t$@do {CBM-R} {CBM-D} z$j; {$7c}$tlda #2 ; use secdary $^sta temp ; of two {CBM-E}$Hjsr ; the file {CBM-Y}$R; E${$7c}l can ; kill utility hlda errvec{CBM-@}r ; i.e. 4rsta ierr{CBM-A} ; {CBM-A}iginal vec{CBM-@}rs i\lda errvec{CBM-@}r {CBM-N} 1 [Fsta ierr{CBM-A} {CBM-N} 1 JPlda vec{CBM-@}r UZsta i lda vec{CBM-@}r {CBM-N} 1 sta i {CBM-N} 1 {CBM-+}lda vec{CBM-@}r {CBM-E}{CBM-I}sta i D{CBM-D}lda vec{CBM-@}r {CBM-N} 1 S{CBM-L}sta i {CBM-N} 1 {SHIFT-+}{SHIFT-*}rts pause "?" {$e2}%{$f4}jsr ; check &{$fe}bne {CBM-D} {CBM-N} 5 ; nope {CBM-R}{CBM-E} m{CBM-A}e &jmp ; ! 8&cmp #$ef ; is it spacebar w&bne loop ; no {CBM-R}{CBM-E} K back Z&&beq delay ; yes {CBM-R}{CBM-E} m{CBM-A}e delay &0; &:showds {CBM-R} {CBM-D} {CBM-R}&d; show disk status {CBM-@} screen U&nlda{CBM-D} {$e1}; ldx #syntax ;that's all now *jmp (errvec{CBM-@}r);real syntax err{CBM-A} 0{CBM-+}; ={CBM-A}scan {CBM-R} {CBM-D} c{SHIFT-@}; GDjsr chrKt ; {CBM-K} last character MN; {$7d}Xscanm{CBM-A}e {CBM-R} {CBM-D} {$e2}; {CBM-M}{$ec}cmp #eol ; strip out extra L{$f6}beq out ; text. exit eol {$ed} cmp #coe {$e6}H jsr setnam R ldy temp ; {CBM-K} secdary ,{CBM--} lda #127 ; file # 127 used! >{$e6} ldx curdevnum m{$f0} jsr setlfs w{$fa} jsr Dldx #127 Rjmp chkin X; "doscomm {CBM-R} {CBM-D} ,; {CBM-R}6lda curdevnum ; {CBM-K} device number Q@jsr en ; tell it {CBM-@} en {$f7}WB; {$e3}Ldo {CBM-R} {CBM-D} {$e9}V; lda #0 ; give secdary of '{$ea}sta temp ; zero 2{$f4}jsr y{$fe}jsr chrin ;waste start address Gjsr chrin M; {$7d}dirloop {CBM-R} {CBM-D} &; {CBM-POUND}0lda #0 ; initialize quote A:sta quoteflag ; mode dlda #13 ;no {CBM-R}{CBM-E} {CBM-K} m{CBM-A}e {$f4}{CBM-POUND}jmp ; yes {CBM-R}{CBM-E} exit {CBM-R}lda temp {CBM-N} 1; cvert {CBM-J}eger prg. :{CBM-C}ldy temp ; size {CBM-@} floating nFjsr {CBM-J}flt ; po{CBM-J} OPjsr fltF ; cvert float{CBM-Q}Fii ZZldy #1 {$e4}; {$ee}proutnum {CBM-R} {CBM-D} {$f8}; {CBM-H} lda stack,y ; out Fii Y beq addspace ; stri; check spacebar {$fe}{CBM-I} beq dirline ; yes {CBM-R}{CBM-E} pause {CBM-D} jsr chrin ; {CBM-K} rest of line 0{CBM-L} beq dirloop v{SHIFT-*} bmi iskey ; bit7 set{CBM-R}{CBM-E} {CBM-@}ken "? VJ jsr chrout ; {CBM-POUND} {CBM-@}ken, it T cmp #34 ; was it a quote {CBM-O}{$de} bne dirline ; no {CBM-R}{CBM-E} inue {$de}{$e8} inc quotef; {$ed} Jjsr chrout ; no {CBM-R}{CBM-E} shted char !Tjmp dirline ; {CBM-@} loop !{$7e}; !dokey {CBM-R} {CBM-D} #!; ?!cmp #255 ; is it pi ]!{CBM-+}beq dtdok ; {CBM-POUND} in {CBM-@}ken J!{CBM-A}jsr key !{SHIFT-@}jmp dirline ; {CBM-@} loop !D; !Ndir {CBM-R} {CBM-D} {CBM-H}!X; ; file {CBM-B}!{$e2}jmp E!{$ec} ; table {CBM-*}"bne sckeytab {$e7}"dex {$f8}"bne sckeytab # iny #{CBM-N}; #{CBM-H}prkey {CBM-R} {CBM-D} #{CBM-V}; <#Hlda keytable,y ; found it now x#Rbmi prkey ; it out {$7c}#{CBM--}jsr chrout ; last character {CBM-I}#{$e6}iny ; of {CBM-@}ken in table D#{$f0}bne prkey ; has bit7oop {CBM-R} {CBM-D} K$; {$ec}$jsr chrin ; {CBM-K} character %tax ; in x reg. (%{CBM-@}jsr st ; check ds c%{CBM-S}beq {CBM-D} {CBM-N} 5 ; {CBM-POUND} de t%{CBM-U}jmp ; de V%Btxa ; everthing ok %Ljsr chrout ; {CBM-M} it %V; {CBM-M}% delay {CBM-R} {CBM-D} F%{$ea}; should we curdevnum ; {CBM-K} drive number {$f9}&xjsr talk ; talk {CBM-@} me drive 'Blda #$6f ; $6f{CBM-R}($0f {CBM-A} $60) ='Ljsr tksa ; s secdary s'Vlda #0:sta status y'; H'dsloop {CBM-R} {CBM-D} N'; 'jsr acptr ; {CBM-K} serial {CBM-N}'{CBM-POUND}jsr chrout ; it G'{CBM-R}jsr st 0f {CBM-A} $60) {$de}(jsr tksa ; s secdary ~(lda #0:sta status ; ce zero ) tay )*; )4rdsloop {CBM-R} {CBM-D} #)>; d)hjsr acptr ; {CBM-K} serial F)rsta tempstr,y:iny ; tempstr )\jsr st ; check st {CBM-M})Fbne outrds ; no {CBM-R}{CBM-E} exit J)Pcpy #40 U*{$e8}sta varaddr ; s{CBM-@}re address {$e9}*{$f2}sty varaddr {CBM-N} 1 +{$fc}jsr discrd ; {CBM-K} rid of it #+pla ; ember length h+jsr strres ; reserve space str s+ldy #2 y+$; F+.s{CBM-@}re {CBM-R} {CBM-D} L+8; +blda flacc1,y ; 3 bytes are {CBM-W}+lsta (varaddr),y ; Cgth & addr 8 the transactor volume 5 issue 06 page 34 ^ * linked lists- programs 1 and 2 {$7c} 1,8,2,"0:linked lists,r" 1,s,ul,sr,sa,ss,sf {CBM-R}( "the array sizes are";s {SHIFT-+}2 ul;" elements are currently used." {$f0}< i{CBM-R}1 {CBM-@} 1000: i f "do you {CBM-V} sz{CBM-R}ns H 220 R sz{CBM-R}s ;{CBM--} pl$(sz),du$(sz),mi$(sz),ld(sz) k{$e6} b${CBM-R}" " y{$f0} i{CBM-R}1 {CBM-@} s {$7c}{$fa} :1,pl$(i),du$(i),mi$(i),ld(i) mi$(i){CBM-R}H(b$,6{CBM-Q}C(mi$(i))){CBM-N}mi$(i) {CBM-POUND} i {CBM-P} 1 {SHIFT-*}" ns{CBM-R}0 {CBM-M} 440 {$e5},- initialize new array sections {$f6}6 i{CBM-R}s{CBM-N}1 {CBM-@} ns @d >>" {$f4}- main menu 9{$fe} "rentawreck car rental agency" H{CBM-T}3);"display a list...................0" {CBM-T}3);"print a list.....................1" F{CBM-T}3);"return a vehicle.................2" {$f5}&{CBM-T}3);"rent a vehicle...................3" gram.....................9" : L{CBM-T}12);"your choice (0-9)";" "; c V c1 ] c1{CBM-E}{CBM-R}0 {CBM-P} c1{CBM-W}{CBM-R}9 {CBM-M} 670 "<<invalid choice: must be 0-9>>" 620 {CBM-I} c1{CBM-E}1 {CBM-M} 700 {CBM-Z} {CBM-POUND} 1000 {CBM-Y} {CBM-R} 500 {$ec} {CBM-C} c1{CBM-Q}1 2000,3000,4000,5000,6000,7000,8000,9000 {$f6} F);"return to main menu.......3" ;.{CBM-T}12);"your choice (0-3)";" "; d8 c2 _b c2{CBM-E}{CBM-R}0 {CBM-P} c2{CBM-W}{CBM-R}3 {CBM-M} 1120 l"<<invalid choice: must be 0-3>>" v 1070 {CBM-T}{$60} c2{CBM-R}3 {CBM-M} {CBM-L}J c2{CBM-R}0 {CBM-M} en{CBM-R}sr IT c2{CBM-R}1 {CBM-M} en{CBM-R}sa {CBM--}{$7e} c2{CBM-R}2 {CBM-M} en{CBM-R}ss {$ee} en{CBM-R}0 {CBM-M} 1240u" {$f8} {$f6}{CBM-K} cr$ cr${CBM-W}{CBM-E}G(13) {CBM-M} 1270 1000 3P- return a vehicle uZ{CBM-T}5);"return a vehicle..." G{$e4} sr{CBM-E}0 {CBM-M} 2080 {$ee}"no vehicles currently rented..." {CBM-X}{$f8}"press <return> to return to main menu" G{CBM-K} cr$ {CBM-*} cr${CBM-W}{CBM-E}G(13) {CBM-M} 2050 {$e5} {$fd} "plate number";np$ * C(np$){CBM-R}7 {CBM-M} 2120 <4"**plate must be 7 characters...**" g> 2080 Ch"odometer reading";nm$ Zr C(nm$){CBM-W}{CBM-R}6 {CBM-M} 2160 {CBM-+}\"**reading too large...999999 max **" {CBM-E}F 2120 APb${CBM-R}" " {CBM--}Znm${CBM-R}H(b$,6{CBM-Q}C(nm$)){CBM-N}nm$ - loca ; check st {$eb}'{CBM-C}beq dsloop ; ok {CBM-R}{CBM-E} do m{CBM-A}e (Fjmp untalk ; shut up drive (P; 3(Zds {CBM-R} {CBM-D} ; disk status t({$e4}; & assign {CBM-@} var W({$ee}lda curdevnum; {CBM-K} device number ({$f8}jsr talk ; talk {CBM-@} me drive {CBM-B}(lda #$6f ; $6f {CBM-R} ($ ; limit Cgth {$ee})Zbne rdsloop ; {CBM-@} 40 chars. {$f4}); *outrds {CBM-R} {CBM-D} *; /*{CBM-I}jsr untalk ; shut up drive 5*{CBM-D}; g*{CBM-L}; s{CBM-@}re it out m*{SHIFT-*}; M*Jdey:tya:pha:pha ; C twice *Tjsr chr{CBM-K} ; advance textptr {CBM-R}*{$de}jsr lookup ; lookup var {$e5}ess {CBM-F}+vdey H+{$60}bpl s{CBM-@}re {CBM--}+Jiny ; set y {CBM-@} 0 {$fe}+Tpla:tax ; ember length again ,{$7e}; *,transfer {CBM-R} {CBM-D} ; from temp {CBM-@} var 0,; b,lda tempstr,y y,{CBM-+}sta (flacc1 {CBM-N} 1),y E,{CBM-A}iny:dex V,{SHIFT-@}bne transfer {$7e},Drts ,N; ,X. ,{$e2} r lookup ; lookup varwish to increase the array sizes" 4p "at this time?" kz "(type y or n):"; tD {CBM-K} d$ FN d${CBM-R}"" {CBM-M} 100 OX d$ d${CBM-R}"n" {CBM-M} 210 d${CBM-W}{CBM-E}"y" {CBM-M} 90 fl{CBM-R}0 {CBM-Y} "new array size";ns H ns{CBM-E}s {CBM-M} 190 {$ef}{CBM-N} "new size must be greater than";s {$f9}{CBM-H} 150 :pl$(i){CBM-R}" " j:du$(i){CBM-R}" " 5t:mi$(i){CBM-R}" " =^ i \H- link rest of free space DRi{CBM-R}s R{$7c}ld(i){CBM-R}i{CBM-N}1 {$7d}:i{CBM-R}i{CBM-N}1 i{CBM-W}ns {CBM-M} 380 ld(ns){CBM-R}0 C{CBM-@}- make array size change permanent U{CBM-S} sz{CBM-E}s {CBM-M} s{CBM-R}sz {$fd}{CBM-U}" << list loading complete$0{CBM-T}3);"remove a vehicle for service.....4" s:{CBM-T}3);"make serviced vehicle available..5" d{CBM-T}3);"sell a vehicle...................6" {CBM-E}n{CBM-T}3);"add a new vehicle................7" x{CBM-T}3);"check for overdue vehicles.......8" B{CBM-T}3);"quit pro 500 "{$e8}- display (c1=0) or print (c1=1)a list j{$f2} c1{CBM-R}0 {CBM-M} "";{CBM-T}14);"display menu" P{$fc} c1{CBM-R}1 {CBM-M} "";{CBM-T}14);"print menu" {CBM-T}8);"rented vehicles...........0" {SHIFT-*}{CBM-T}8);"available vehicles........1" {$e8}{CBM-T}8);"vehicles being serviced...2" ${CBM-T}8 {$f9}s${CBM-R}" " c1{CBM-R}1 {CBM-M} 1,4 8 {CBM-+} c1{CBM-R}0 {CBM-M} pl$(en);s$;du$(en);s$;mi$(en) G {CBM-A} c1{CBM-R}1 {CBM-M} 1, pl$(en);s$;du$(en);s$;mi$(en) Y {SHIFT-@} en{CBM-R}0 {CBM-M} 1240 Den{CBM-R}ld(en) N 1190 {CBM-J} X{CBM-T}11);"<< end of listing >>" E {$e2} c1{CBM-R}1 {CBM-M} 1 {$ee} {$ec}"press <return> to return to men te vehicle in rental list and remove se{CBM-R}sr " 11000 1{CBM-I} f2{CBM-R}1 {CBM-M} @{CBM-D}mi$(n){CBM-R}nm$ s{CBM-L}du$(n){CBM-R}" " ]{SHIFT-*}sr{CBM-R}se J- put vehicle in available list Tse{CBM-R}sa {$de} 13000 {CBM-I}{$e8}sa{CBM-R}se {CBM-Q}{$f2}fl{CBM-R}1 {CBM-E}{$fc} G{CBM-U}- rent a vehicle {$e7}B{CBM-T}5);"rent a vehicle...ue date (as mm-dd)";nd$ 4: C(nd$){CBM-W}{CBM-R}5 {CBM-P} H(nd$,2){CBM-W}{CBM-R}"12" {CBM-P} I(nd$,2){CBM-W}{CBM-R}"31" {CBM-M} 3160 qd"**invalid due date**" \n 3120 x- locate vehicle in rental list and remove Bse{CBM-R}sa {CBM-I}L 11000 {CBM-E}V f2{CBM-R}1 {CBM-M} {SHIFT-*}du$(n){CBM-R}nd$ Tmi$(n){CBM-R}" " {$de}sa{CBM-R}se o main menu" {$f6}R{CBM-K} cr$ {CBM--} cr${CBM-W}{CBM-E}G(13) {CBM-M} 4050 {$e6} ,{$f0}"plate number";np$ b{$fa} C(np$){CBM-R}7 {CBM-M} 4120 K"**plate must be 7 characters...**" V 4080 {SHIFT-POUND}- locate vehicle in available list and remove {CBM-W}"se{CBM-R}sa {CBM-B}, 11000 N6 f2{CBM-R}1 {CBM-M} X@sa{CBM-R}se {$fb}j to return to main menu" {$fd}{SHIFT-@}{CBM-K} cr$ D cr${CBM-W}{CBM-E}G(13) {CBM-M} 5050 N 3X"plate number";np$ i{$e2} C(np$){CBM-R}7 {CBM-M} 5120 R{$ec}"**plate must be 7 characters...**" {$7d}{$f6} 5080 {CBM-A} - locate vehicle in available list and remove {SHIFT-@} se{CBM-R}ss F 11000 U f2{CBM-R}1 {CBM-M} {CBM-*}("press <return> to return to main menu" {CBM-D}{CBM-K} cr$ "{CBM-L} cr${CBM-W}{CBM-E}G(13) {CBM-M} 6060 ({SHIFT-*} @J"plate number";np$ vT C(np$){CBM-R}7 {CBM-M} 6130 {$7f}{$de}"**plate must be 7 characters...**" {$e8} 6090 {CBM-P}{$f2}- search for vehicle and remove {CBM-O}{$fc}se{CBM-R}sa E 12000 T f2{CBM-R}1 {CBM-M} {$de} 7060 {CBM-*}{CBM-POUND} {$f8}{CBM-R} "plate number";np$ {CBM-C} C(np$){CBM-R}7 {CBM-M} 7130 7F"**plate must be 7 characters...**" bP 7090 _Z "odometer reading";nm$ V{$e4} C(nm$){CBM-W}{CBM-R}6 {CBM-M} 7170 {CBM-I}{$ee}"**reading too large...999999 max **" {CBM-Z}{$f8} 7130 {CBM-X}b${CBM-R}" " Xnm${CBM-R}H(b$,6{CBM-Q}C(nm$" W^ H"would you like a printed list also?" R"(type y or n):"; ${$7c}{CBM-K} d$ 7 d${CBM-R}"" {CBM-M} 8060 ?d$ s d${CBM-R}"n" {CBM-M} 8110 H{CBM-@} d${CBM-W}{CBM-E}"y" {CBM-M} 8050 {CBM-S}"enter today's date as mm-dd <return>" {CBM-G}{CBM-U} "date";da$ {$de}B C(da$){CBM-W}{CBM-R}5 {CBM-P} H(da$,2){CBM-W}{CBM-R}"12" {CBM-P} I(da$ {CBM-M} 8180 {$f5}& {CBM-T}11);"<< end of listing >>" 0 d${CBM-R}"y" {CBM-M} 1 5: "press <return> to return to main menu" ?d {CBM-K} cr$ wn cr${CBM-W}{CBM-E}G(13) {CBM-M} 8260 ]x (#- quit program, saving lists if necessary 2# fl{CBM-R}0 {CBM-M} 19999 {CBM-Q}<#1,8,15 Df#1,"s0:linked lists" Kp# ate and remove a vehicle {$e9}+f2{CBM-R}0 {$f2}+k{CBM-R}se + np${CBM-R}pl$(k) {CBM-M} 11130 +ls{CBM-R}k *+k{CBM-R}ld(k) 3 4+ k{CBM-W}{CBM-E}0 {CBM-M} 11030 s >+"plate not found in list" h+"press <return> to return to main menu" r+{CBM-K} cr$ {CBM-@} \+ cr${CBM-W}{CBM-E}G(13) {CBM-M} 11090 {CBM-Z} F+f2{CBM-R}1 {CBM-W} P+ G Z+ k{CBM-W}{CBM-E}se {CBM-M} 1116 0 U +se{CBM-R}ld(se) {$e1} + 11170 {$f2} +ld(ls){CBM-R}ld(k) {$fa} {CBM-I}+n{CBM-R}k !{CBM-D}+ (! .- locate and remove a sold vehicle 1!{$ea}.f2{CBM-R}0 :!{$f4}.k{CBM-R}se s!{$fe}. np${CBM-R}pl$(k) {CBM-M} 12130 \!/ls{CBM-R}k H!/k{CBM-R}ld(k) {$7b}!/ k{CBM-W}{CBM-E}0 {CBM-M} 12030 !&/"plate not found in list" I!0/"press <return> to return to main " {$f9}L sa{CBM-E}0 {CBM-M} 3080 $V"no vehicles currently available..." r "press <return> to return to main menu" \{$ea}{CBM-K} cr$ T{$f4} cr${CBM-W}{CBM-E}G(13) {CBM-M} 3050 Z{$fe} "plate number";np$ {CBM-POUND} C(np$){CBM-R}7 {CBM-M} 3120 Q"**plate must be 7 characters...**" {CBM--}& 3080 {$fb}0"d- put vehicle in rented list {CBM-POUND}se{CBM-R}sr {CBM-R} 14000 {CBM-C}sr{CBM-R}se )Ffl{CBM-R}1 /P s - remove a vehicle for service {CBM-N}{CBM-T}5);"send a vehicle for servicing..." {CBM-H} sa{CBM-E}0 {CBM-M} 4080 {CBM-V}{CBM-V}"no vehicles currently available..." {$ec}H"press <return> to return t- put vehicle in service list tse{CBM-R}ss ^nm${CBM-R}mi$(n) H 13000 *Rss{CBM-R}se 3{$7c}fl{CBM-R}1 9 B- make a serviced vehicle available {CBM-T}5);"return a serviced vehicle..." ss{CBM-E}0 {CBM-M} 5080 E{CBM-+}"no vehicles being serviced..." {$f3}{CBM-A}"press <return> ss{CBM-R}se 2- put vehicle in service list <se{CBM-R}sa fnm${CBM-R}mi$(n) 'p 13000 1zsa{CBM-R}se :Dfl{CBM-R}1 @N yP- to sell a vehicle YZ{CBM-T}5);"sell a vehicle..." sa{CBM-E}0 {CBM-M} 6090 {CBM-Q}"available list empty..." R"vehicle must be here to be sold" {CBM-I}sa{CBM-R}se {$ea}$ul{CBM-R}ul{CBM-Q}1 {$f3}.fl{CBM-R}1 {$f9}8 x- add a new vehicle 5B{CBM-T}5);"add a new vehicle..." gL sf{CBM-E}0 {CBM-M} 7090 JV"array full - no free space" "addition cannot be made" {CBM-Y}"press <return> to return to main menu" A{CBM-K} cr$ Y cr${CBM-W}{CBM-E}G(13) {CBM-M})){CBM-N}nm$ {$fd}- add vehicle to available list n{CBM-R}sf *sf{CBM-R}ld(sf) #4pl$(n){CBM-R}np$ 2>mi$(n){CBM-R}nm$ <hse{CBM-R}sa hr 13000 r\sa{CBM-R}se ^Ful{CBM-R}ul{CBM-N}1 GPfl{CBM-R}1 MZ @- check for overdue vehicles {CBM-I}j sr{CBM-W}{CBM-E}0 {CBM-M} 8040 Qt"there are no vehicles currently rented,2){CBM-W}{CBM-R}"31" {CBM-M} 8160 {$fb}L"**invalid due date**" V 8120 en{CBM-R}sr ${$ea} d${CBM-R}"y" {CBM-M} 1,4 >{$f4} du$(en){CBM-E}{CBM-R}da$ {CBM-M} 8210 Q{$fe}pl$(en);" ";du$(en);" ";mi$(en);" is overdue" {CBM-E} d${CBM-R}"y" {CBM-M} 1,pl$(en);" ";du$(en);" ";mi$(en);" is overdue" {SHIFT-*} :en{CBM-R}ld(en) S en{CBM-W}{CBM-E}01 Xz#c${CBM-R}G(13) {$fa}D#1,8,2,"0:linked lists,seq,w" !N#1,s;c$;ul;c$;sr;c$;sa;c$;ss;c$;sf /X# i{CBM-R}1 {CBM-@} s [#:1,pl$(i);c$;du$(i);c$;mi$(i);c$;ld(i) C# i J# 1 #{CBM-T}10);"lists have been saved" {CBM-N}# 19999 {CBM-X}{CBM-H}#******************************* {$f8}*- loc menu" S!:/{CBM-K} cr$ {$ec}!d/ cr${CBM-W}{CBM-E}G(13) {CBM-M} 12090 {$f5}!n/f2{CBM-R}1 {$fb}!x/ "B/ k{CBM-W}{CBM-E}se {CBM-M} 12160 "L/se{CBM-R}ld(se) )"V/ 12170 :"/ld(ls){CBM-R}ld(k) g"/ld(k){CBM-R}sf p"/sf{CBM-R}k v"/ "H2- locate by mileage the proper location in list for a new element {CBM-+}"R2k{CBM-R}se {SHIFT-*}"{CBM--}2 nm${CBM-W}{CBM-R}mi$(k) {CBM-M} 13090 J 6:ls{CBM-R}k S#X6:k{CBM-R}ld(k) {$e6}#{$e2}6 k{CBM-W}{CBM-E}0 {CBM-M} 14020 {$f3}#{$ec}6ld(ls){CBM-R}n ~#{$f6}6ld(n){CBM-R}0 $ 7 $ 7 k{CBM-W}{CBM-E}se {CBM-M} 14120 "$7se{CBM-R}n .$7 14130 ;$(7ld(ls){CBM-R}n g$27ld(n){CBM-R}k m$<7 s$n 2- locate by mileage the proper location in list for a new element {CBM-+}"R2k{CBM-R}se {SHIFT-*}"{CBM--}2 nm${CBM-W}{CBM-R}mi$(k) {CBM-M} 13090 J8 the transactor volume 5 issue 06 page 47 j * "vicparms" L * this program allows you to * put your screen memory {CBM-+} * and character memory O * in any of the possible locations. {$f5} * it will transfer the character * s 540:ca{CBM-R}v ) b{CBM-R}{CBM-J}(sc{CBM-Z}16384) : screen bank # j a{CBM-R}{CBM-J}(ca{CBM-Z}16384) : char bank # P sv{CBM-R}sc{CBM-Q}b{CBM-D}16384 : screen address {CBM-N} cv{CBM-R}ca{CBM-Q}a{CBM-D}16384 : char address {CBM-+}{CBM-H} sv{CBM-R}cv 510 T{CBM-V} error if screen and chars at same place {$f7}H ((b{CBM-R}1){CBM-A}(b{CBM-R}3)) {CBM-P} (a{CBM-W}{CBM-E}b) 510 "): q{CBM-W}0 {CBM-M} 510 . q is screen memory page for kernal d" "poke vic+24,"p w, "poke 648,"q O6r{CBM-R}(B(c2){CBM-P}252){CBM-A}(3{CBM-Q}b) @ "poke cia2,"r {CBM-Y}j ((b{CBM-R}0){CBM-A}(b{CBM-R}2)) {CBM-P} (((p{CBM-P}14){CBM-R}4){CBM-A}((p{CBM-P}14{CBM-R}6))) 350 {$eb}t "you need to move the character set to:": ca ^ "sha{CBM-N}cset{CBM-D}2048 : character rom ? B i{CBM-R}0{CBM-@}2047: ca{CBM-N}i,B(rom{CBM-N}i):: move chars ^ L 1,B(1){CBM-A}4: see i/o again V c1{CBM-N}14,B(c1{CBM-N}14){CBM-A}1: enable irq again G(147); {$ea} {CBM-T} {$f4}: A {$fe} "?illegal parameters": G : {$e8} * input/convert subroutine* a$;8 the transactor volume 5 issue 06 page 48 z * data loader for "bigprint" * for star gemini printer and cardco interface cs{CBM-R}0 C i{CBM-R}49152 {CBM-@} 49639: a: i,a:cs{CBM-R}cs{CBM-N}a: i I( : 2 cs{CBM-W}{CBM-E}58931 {CBM-M}"**** error in data statements ***, 64, 64, 0, 64 3. 64, 64, 0, 0, 120, 169 v8 59, 141, 20, 3, 169, 192 Yb 141, 21, 3, 88, 96, 165 l 197, 201, 64, 208, 8, 169 {CBM-B}v 0, 141, 4, 192, 76, 49 {$e2}{$60} 234, 173, 4, 192, 208, 43 J 169, 1, 141, 17 {SHIFT-@} 208, 73, 32, 141, 17, 208 @D 173, 24, 208, 73, 8, 141 CN 24, 208, 76, 49, 234, 169 X 0, 141, 3, 192, 173, 141 {SHIFT-POUND}{$e2} 2, 41, 4, 240, 5, 169 L{$ec} 255, 141, 3, 192, 173, 9 {$ef}{$f6} 192, 32, 195, 255, 173, 9 192, 162, 4, 160, 4, 32 5 186, 255, 169, 0, 32, 189 x 255, 32, 192, 255, 174, 9 {$7b} 192, 32, 201, 255, 169, 0 ( 133, 251, 169, 32, 133, 252 A2 169, 27, 32, 210, 255, 169 {$e4}< 51, 32, 210, 255, 169, 16 f 32, 210,"{$e6}2:ls{CBM-R}k W"{$f0}2:k{CBM-R}ld(k) {$ea}"{$fa}2 k{CBM-W}{CBM-E}0 {CBM-M} 13020 {$f7}"3ld(ls){CBM-R}n #3ld(n){CBM-R}0 #3 #"3 k{CBM-W}{CBM-E}se {CBM-M} 13120 &#,3se{CBM-R}n 2#63 13130 ?#@3ld(ls){CBM-R}n k#j3ld(n){CBM-R}k q#t3 #{CBM-A}6- locate by due date the proper location in list for a new element {CBM-I}#{SHIFT-@}6k{CBM-R}se {CBM-C}#D6 nd${CBM-W}{CBM-R}du$(k) {CBM-M} 14090 F#N 255, 169, 25, 141 * p 42, 192, 173, 5, 192, 240 m z 13, 56, 165, 251, 233, 64 P D 133, 251, 165, 252, 233, 1 N 133, 252, 162, 0, 189, 18 {CBM-L} X 192, 172, 7, 192, 208, 3 Y 189, 22, 192, 32, 210, 255 {$fc} 232, 224, 4, 208et from rom to ram if necessary # : a transactor magazine D program by paul higginbottom J : {CBM-G}D cset{CBM-R}1: transfer: 0=upper/graphics, 1=upper/lowercase FN "(entries in hexadecimal)" {$e6}X a${CBM-R}"screen addr": 540:sc{CBM-R}v a${CBM-R}" char.addr":R error if in different no-image banks l{CBM--} vic{CBM-R}13{CBM-D}4096 : vic chip address P{$e6} c1{CBM-R}13{CBM-D}4096{CBM-N}12{CBM-D}256 : cia chip 1 {$f0} c2{CBM-R}13{CBM-D}4096{CBM-N}13{CBM-D}256 : cia chip 2 A{$fa} p{CBM-R}{CBM-J}(cv{CBM-Z}2048){CBM-D}2{CBM-N}{CBM-J}(sv{CBM-Z}1024){CBM-D}16: p{CBM-W}0 {CBM-M} 510 {$e9} char, screen loc in lo, hi nybble q{CBM-R}{CBM-J}(sc{CBM-Z}256ll i do this";a$ H H(a$,1){CBM-W}{CBM-E}"y" {CBM-M} ,R vic{CBM-N}24,p 8{$7c} 648,q c c2,r W ((b{CBM-R}0){CBM-A}(b{CBM-R}2)) {CBM-P} (((p{CBM-P}14){CBM-R}4){CBM-A}((p{CBM-P}14{CBM-R}6))) 480 {CBM-K} transfer character set if necessary K{CBM-@} c1{CBM-N}14,B(c1{CBM-N}14){CBM-P}254: turn off irq's {$e8}{CBM-S} 1,B(1){CBM-P}251: see chars {CBM-U}rom{CBM-R}vic D:a${CBM-R}"":v{CBM-R}0: a$ & a${CBM-R}"" 540 l0 i{CBM-R}1 {CBM-@} C(a$):a{CBM-R}F(J(a$,i)){CBM-Q}48:a{CBM-R}a{CBM-N}7{CBM-D}(a{CBM-E}9):v{CBM-R}v{CBM-D}16{CBM-N}a: r: (((p{CBM-P}14){CBM-R}4){CBM-A}((p{CBM-P}14{CBM-R}6))) 480 {CBM-K} transfer character set if necessary K{CBM-@} c1{CBM-N}14,B(c1{CBM-N}14){CBM-P}254: turn off irq's {$e8}{CBM-S} 1,B(1){CBM-P}251: see chars {CBM-U}rom{CBM-R}vic*": < 49152 f p : >{$e8} 76, 46, 192, 0, 0, 0 A{$f2} 0, 0, 7, 100, 128, 64 {$fc} 32, 16, 8, 4, 2, 1 {CBM-M} 27, 76, 192, 3, 27, 75 J 64, 1, 64, 0, 64, 0 {$ed} 64, 64, 0, 64, 0, 64 $ 64, 04, 192, 165 (T 197, 201, 3, 240, 35, 201 k{$7e} 6, 208, 16, 169, 3, 141 N 7, 192, 141, 45, 192, 169 0, 141, 5, 192, 76, 143 {CBM-H} 192, 201, 5, 208, 8, 169 W{CBM-+} 0, 141, 7, 192, 76, 143 {$fa}{CBM-A} 192, 76, 49, 234, 173, 9 the transactor volume 5 issue 06 page 55 x * data loader for "stp" * A cs{CBM-R}0 i{CBM-R}49152 {CBM-@} 49325: a: i,a ( cs{CBM-R}cs{CBM-N}a: i 2 : F< cs{CBM-W}{CBM-E}21681 {CBM-M} "***** data error *****": {$eb}f "to run stp: sys49152,filename" {$f1}p {$f7}D : {$e8} 2, 3, 169, 192 28 141, 3, 3, 169, 87, 141 ub 44, 3, 169, 192, 141, 45 Xl 3, 169, 127, 162, 8, 160 v 12, 32, 186, 255, 104, 168 {CBM-V}{$60} 104, 170, 104, 32, 189, 255 {$e1}J 32, 192, 255, 32, 183, 255 T 208, 28, 96, 169, 237, 169 40, 141, 43, 192, 169, 0 b 162, 7, 157, 34, 192, 157 E{CBM-N} 26, 192, 202, 16, 247, 162 {CBM-H} 0, 160, 0, 177, 251, 141 {CBM-Q}{CBM-V} 44, 192, 230, 251, 208, 2 NH 230, 252, 173, 44, 192, 57 {$f1}R 10, 192, 240, 9, 185, 3 6, 192, 61, 10, 192, 240 , , 16, 185, 26, 192, 174, 45 o 6 192, 29, 10, 192, 202, 29 R @ 10, 192, 153, 26, 192, 136 j 16, 226, 206, 6, 192, 206 {CBM-U} t 45, 192, 206, 45, 192, 16 {SHIFT-+} ^ 213, 160, 7, 185, 26, 192 {$fe} H 153, 34, 32, 210 {CBM-U} 255, 165, 197, 201, 63, 240 9B 27, 208, 3, 76, 218, 192 \L 173, 7, 192, 240, 12, 173 {$7f}V 5, 192, 73, 1, 41, 1 {CBM-I} 141, 5, 192, 208, 236, 206 E{$ea} 42, 192, 208, 231, 169, 27 {$e8}{$f4} 32, 210, 255, 169, 64, 329 D 47, 141, 44, 3, 169, 243 ?N 141, 45, 3, 32, 204, 255 BX 108, 92, 192, 169, 2, 133 {$e2} 198, 169, 145, 141, 119, 2 {CBM-POUND}{$ec} 169, 13, 141, 120, 2, 165 K{$f6} 197, 201, 63, 240, 203, 76 {$ee} 141, 192, 32, 210, 255, 165 em 358 {$eb} {$f6} 197,201, 63,240,203, 76, 4489 141,192,229, 72, 96,192, 4412 1, 1 3, 96, 17, 145, 24, 0 1{CBM-POUND} 12, 139, 227, 0, 23, 173 t{CBM-R} 215, 224, 137, 97, 0, 24 W{CBM-C} 0, 0, 65, 65, 65, 65 ca {CBM-*}lda status ; {CBM-P} tun -1 {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q} ){CBM-T}; ldx #10 ; {CBM-E} this loop was put in {CBM-@} help the mess P{CBM-POUND}; lda #0 ; {CBM-E} created at the of the program what {SHIFT-@}{CBM-Z}; ; {CBM-E} will he9 the transactor volume 5 issue 06 page 55 j{$e8}700 ;pal 64 v{$f2}.opt oo B{$fc}{CBM-D}{CBM-R}$c000 H; S;"STP" ;executes a sequential file {CBM-T}$;syntax is: {CBM-F}.;(addr),"filename" A8; Vb;kernal entries: {$e8}lchkin {CBM-R}$ffc6 {$fa}vchrout {CBM-R}$ffd2 {$60}clall {CBM-R}$ffe7 J {CBM-R}$ffc3 *Tchn {CBM-R}$ffcc :{$7e}{CBM-K}in {CBM-R}$ffe4 i {CBM-R}$ffc0 xst {CBM-R}$ffb7 Jsetlfs {CBM-R}$ffba {$7c}{CBM-+}setnam {CBM-R}$ffbd {CBM-A}; {SHIFT-@}warmlnk {CBM-R}$0302 {CBM-M}Dab{CBM-A}tio {CBM-R}$032c {CBM-Z}N; NXlstx {CBM-R}$c5 ;last key pressed {$f0}{$e2}ndx {CBM-R}$c6 ;# of keys pressed {$ec}keyd {CBM-R}$ 32, 253, 174, 32, 158, 173 ={$f2} 32, 143, 173, 169, 100, 160 {$60}{$fc} 101, 32, 219, 182, 160, 0 177, 100, 72, 200, 177, 100 {CBM-+} 72, 200, 177, 100, 72, 173 I 2, 3, 141, 92, 192, 173 {$ec}$ 3, 3, 141, 93, 192, 169 . 94, 141,, 1, 76 '{$7e} 49, 243, 0, 0, 162, 127 j 32, 198, 255, 32, 228, 255 M 32, 210, 255, 201, 13, 240 38, 32, 183, 255, 240, 241 {CBM-W}{CBM-+} 169, 127, 32, 195, 255, 173 V{CBM-A} 92, 192, 141, 2, 3, 173 {$f9}{SHIFT-@} 93, 192, 141, 3, 3, 164 {CBM--} 192, 29, 10, 192, 153, 34 7{$e6} 192, 200, 192, 8, 208, 234 z{$f0} 232, 224, 8, 208, 216, 173 {$7d}{$fa} 7, 192, 240, 68, 169, 7 141, 45, 192, 174, 5, 192 C 189, 7, 192, 141, 6, 192 {$e6} 160, 7, 185, 34, 192, 174 " 192, 136, 16, 247 !R 162, 0, 189, 34, 192, 77 d{$7c} 3, 192, 32, 210, 255, 172 G 7, 192, 240, 6, 32, 210 255, 32, 210, 255, 232, 224 {CBM-Z} 8, 208, 231, 76, 167, 193 P{CBM-@} 76, 6, 193, 206, 43, 192 {$f3}{CBM-S} 208, 248, 169, 13, y {$fe} 210, 255, 173, 9, 192, 32 . 195, 255, 32, 204, 255, 76 = 49, 234 G 7, 192, 240, 6, 32, 210 255, 32, 210, 255, 232, 224 {CBM-Z} 8, 208, 231, 76, 167, 193 P{CBM-@} 76, 6, 193, 206, 43, 192 {$f3}{CBM-S} 208, 248, 169, 13, 802 {$ef}{CBM-A} 92,192,141, 2, 3,173, 3160 {SHIFT-@} 93,192,141, 3, 3,169, 3151 7 D 47,141, 44, 3,169,243, 3996 [ N 141, 45, 3, 32,204,255, 4148 {$7f} X 108, 92,192,169, 2,133, 3592 {CBM-T} {$e2} 198,169,145,141,119, 2, 3392 G {$ec} 169, 13,141,120, 2,165, 3 ; just have {CBM-@} check st {CBM-@} see how we s{SHIFT-*}d {$e4}bne exit ; somethings out of whack, time {CBM-@} finish u{$e9}jsr inchar ; {CBM-K} a character test numeric {$ee}jsr ; first, {CBM-@} the screen {SHIFT-@}{$f3}sta temp lp ; just have {CBM-@} check st {CBM-@} see how we s{SHIFT-*}d {$e4}bne exit ; somethings out of whack, time {CBM-@} finish u{$e9}jsr inchar ; {CBM-K} a character test numeric {$ee}jsr ; first, {CBM-@} the screen {SHIFT-@}{$f3}sta temp 8 the transactor volume 5 issue 06 page 63 E * first data loader for "printing ml" * N cs{CBM-R}0 i{CBM-R}6927 {CBM-@} 7302: a: i,a ( cs{CBM-R}cs{CBM-N}a: i {CBM-I}2 : Z< cs{CBM-W}{CBM-E}43462{CBM-M}"**** error in data statments ****": p {$e6}D : {$e8} 160, 16, 132, 11277 ;keyboard buffer {$f6}; $ ;{CBM-K} fiCame a jsr $aefd ;check comma _jsr $ad9e ;eEuate {CBM-X}ressi {$7d}jsr $ad8f ;check string (lda #$64: ldy #$65 {CBM-O}2jsr $b6db ;clean descrip{CBM-@}r stack {CBM-B}<; {$e1}fldy #0:lda ($64),y: pha ;Cgth piny:lda ($64),y:pha 28, 32, 40, 29, 32, 52, 29, 169 n. 0, 141, 237, 2, 168, 177, 247, 133 {$7b}8 254, 201, 128, 176, 21, 173, 245, 2 {CBM-POUND}b 201, 1, 208, 32, 169, 146, 32, 33 Ul 28, 206, 245, 2, 238, 244, 2, 76 v 123, 27, 173, 245, 2, 201, rm : sta warmlnk{CBM-N}1 &{CBM-V}lda #{CBM-W}{CBM-I}io : sta ab{CBM-A}tio dHlda #{CBM-E}{CBM-I}io : sta ab{CBM-A}tio{CBM-N}1 jR; [{CBM--}; disk file Y{$e6}lda #127: ldx #8: ldy #12 {$f0}jsr setlfs ; 127,8,12 {CBM-D}{$fa}pla:tay:pla:tax:pla {CBM-F}jsr setnam Ejsr {$e6}jsr st: bne out0 ;disk err{CBM-A} {$ee}"rts {$f4},; 105, 64, 76, 175, 27 = 10, 144, 8, 165, 254, 24, 105, 64 J{CBM-+} 76, 175, 27, 165, 254, 24, 105, 128 {CBM-A} 32, 33, 28, 238, 244, 2, 238, 236 D{SHIFT-@} 2, 230, 247, 208, 2, 230, 248, 173 {$f1}D 250, 2, 197, 247, 173, 251, 2, 229 N #127: jsr Llda oldwarm : sta warmlnk @ Vlda oldwarm{CBM-N}1: sta warmlnk{CBM-N}1 y lda #$2f: sta ab{CBM-A}tio T {$ea}lda #$f3: sta ab{CBM-A}tio{CBM-N}1 {$7f} {$f4}out {CBM-R}{CBM-D} {$fe}jsr chn jmp (oldwarm) {CBM-@} ; {CBM-A} lin {CBM-R}{CBM-D} V &lda #2: sta ndx ;# keys in buffer {$fb} 0lda #145: sta keyd ;c8, 2, 230 , 114, 165, 113, 133, 45, 133, 47, 133 y 49, 165, 114, 133, 46, 133, 48, 133 50, 169, 255, 133, 51, 133, 53, 133 {CBM-W} ( 54, 133, 55, 169, 29, 133, 56, 133 2 52, 169, 1, 133, 43, 169, 16, 133 < 44, 96, 1 ? 166, 247, 232 ) {CBM-H} 169, 0, 202, 240, 43, 24, 105, 1 , 48, 141 Gp 235, 29, 141, 236, 29, 141, 237, 29 z 166, 248, 232, 169, 0, 202, 240, 43 AD 24, 105, 1, 201, 10, 240, 3, 76 {$ee}N 60, 28, 169, 1, 24, 109, 236, 29 X 201, 58, 240, 6, 141, 236, 29, 76 h 58, 28, 169, 48, 141, 236, 29, 169 U 1, 24, 109, 235, 29, 141, 235, 29 {CBM-I} 76, 58, 28, 24, 105, 48, 141, 237 O 29, 96, 169, 48, 141, 226, 29, 141 {$fc}{CBM-N} 227, 29, 141, 228, 29, 8 the transactor volume 5 issue 06 page 63 F * second data loader for "printing ml" * {$7b} * vic version * cs{CBM-R}0 {CBM-I} i{CBM-R}7303 {CBM-@} 7678: a: i,a {CBM-R}( cs{CBM-R}cs{CBM-N}a: i {CBM-U}2 : {$f1}< cs{CBM-W}{CBM-E}33737{CBM-M}"**** error in data statements ****": {$f7}p {$fd}D : 4, 160, 1, 132, 113 @{$f2} 136, 140, 0, 16, 140, 244, 2, 140 M{$fc} 245, 2, 140, 237, 2, 140, 236, 2 173, 253, 2, 133, 248, 173, 252, 2 G 133, 247, 173, 249, 2, 141, 243, 2 {$f4} 173, 248, 2, 141, 242, 2, 32, 231 !$ ;addr low ,ziny:lda ($64),y:pha ;addr hi 2D; vNjsr clall ; any previous files \X; X;change warm start link ;{CBM-P} ab{CBM-A}t i{CBM-Z}o vec{CBM-@}r {CBM-Z}lda warmlnk : sta oldwarm N lda warmlnk{CBM-N}1: sta oldwarm{CBM-N}1 {$eb}{CBM-N}lda #{CBM-W}{CBM-I}arm : sta warmlnk {CBM-H}lda #{CBM-E}{CBM-I}a 1, 240 /{$60} 11, 169, 18, 32, 33, 28, 238, 245 \J 2, 238, 244, 2, 165, 254, 10, 74 T 201, 34, 208, 6, 76, 69, 29, 76 {CBM-L}{$7e} 181, 27, 133, 254, 10, 10, 176, 16 {$e3} 10, 144, 5, 165, 254, 76, 175, 27 165, 254, 24,6{CBM-I}io {CBM-R}{CBM-D} ;keep 1 file $@lda #1: jmp $f331 *j; <toldwarm .w{CBM-A} 0 b^; nH{CBM-I}arm {CBM-R}{CBM-D} OR;{CBM-I} warm start link po{CBM-J}s here {$7c}ldx #127: jsr chkin nexbyt {CBM-R}{CBM-D} {CBM-D}jsr {CBM-K}in:jsr chrout Bcmp #13: beq lin Z{CBM-@}jsr st: beq nexbyt {CBM-S}; {$ec}{CBM-U}out0 {CBM-R}{CBM-D} Blda 248, 176, 6, 32, 133, 29, 76, 248 kX 27, 173, 236, 2, 201, 255, 208, 6 X{$e2} 32, 162, 29, 76, 61, 27, 173, 244 {CBM-G}{$ec} 2, 201, 57, 144, 11, 32, 184, 29 R{$f6} 32, 52, 29, 169, 0, 141, 244, 2 ~ 76, 70, 27, 230, 113, 20 rsr up... ":lda #13 : sta keyd{CBM-N}1 ;& cr in kbuf edlda lstx ;key pressed Fncmp #63: beq out0 ;check Rxjmp out YB. r chkin nexbyt {CBM-R}{CBM-D} {CBM-D}jsr {CBM-K}in:jsr chrout Bcmp #13: beq lin Z{CBM-@}jsr st: beq nexbyt {CBM-S}; {$ec}{CBM-U}out0 {CBM-R}{CBM-D} Blda62, 0, 129, 113, 230, 113 :f 208, 2, 230, 114, 96, 169, 48, 141 Gp 235, 29, 141, 236, 29, 141, 237, 29 z 166, 248, 232, 169, 0, 202, 240, 43 AD 24, 105, 1, 201, 10, 240, 3, 76 {$ee}N 60, 28, 169, 1, 24, 109, 236, 29 9, 0, 32, 33, 28 2X 32, 17, 29, 96, 34, 199, 40, 51 _ 52, 41, 199, 40, 51, 52, 41, 199 40, 50, 48, 41, 34, 0, 151, 50 {CBM-O} 48, 57, 44, 50, 53, 50, 58, 151 {$e6} 50, 49, 48, 44, 50, 48, 55, 58 {CBM-N} 1 *{$e8} 201, 10, 240, 3, 76, 129, 28, 169 w{$f2} 1, 24, 109, 227, 29, 201, 58, 240 {$fc} 6, 141, 227, 29, 76, 127, 28, 169 {CBM-E} 48, 141, 227, 29, 169, 1, 24, 109 {$de} 226, 29, 141, 226, 29, 76, 127, 28 24, 105, 48, 141, 228 8 the transactor volume 5 issue 06 page 66 w save"@0:super cat.bas",8 D ** rte/84 - a super catalog routine that supplies all file info AN "** super catalog - rte/84 **" X ft$(0){CBM-R}"del": ft$(1){CBM-R}"seq": ft$(2){CBM-R}"prg": ft$(3){CBM-R}"usr": 9, 243, 2, 141, 243, 2, 96 f{$60} 32, 44, 28, 32, 113, 28, 32, 182 SJ 28, 32, 199, 28, 160, 0, 169, 29 T 133, 140, 169, 221, 133, 139, 177, 139 M{$7e} 240, 7, 32, 33, 28, 200, 76, 253 {$fa} 28, 169, 0, 32, 33, 28, 32, all" {CBM-V} sl: sl{CBM-W}1 {CBM-A} sl{CBM-E}5 {CBM-M} 190 bH sl${CBM-R}"all": sl{CBM-W}5 {CBM-M} sl${CBM-R}ft$(sl) {$7b}R "3) screen or 4) printer :";dv: dv{CBM-W}3 {CBM-A} dv{CBM-E}4 {CBM-M} 210 {CBM--} 15,8,15: 5,8,5,"#": 1,(dv) L{$e6} sec{CBM-R}1: ctr{CBM-R}0: bu{CBM-R}0: z${CBM-R}G(0): sp${CBM-R}" " {$f8}{$f0} 15,"u1:"5;dr;dtrk;sec: ** block read 3 153, 32, 33, 28 5N 169, 34, 32, 33, 28, 96, 32, 184 BX 29, 32, 52, 29, 165, 254, 10, 144 {$e2} 15, 169, 18, 32, 33, 28, 169, 34 {CBM-C}{$ec} 32, 33, 28, 169, 34, 32, 33, 28 {$e9}{$f6} 198, 113, 208, 2, 198, 114, 160, 1 169, ${CBM-N}z$) =6fl${CBM-R}"": x{CBM-R}1{CBM-@}16: {CBM-K}#5,a$: fl${CBM-R}fl${CBM-N}G(F(a${CBM-N}z$)): : filname @{CBM-K}#5,sr$,ss$,rl$: ** first trk/sec side sector + length if rel file {CBM-W}jsr{CBM-R}F(sr${CBM-N}z$): ss{CBM-R}F(ss${CBM-N}z$): rl{CBM-R}F(rl${CBM-N}z$) {$ea}t{CBM-K}#5,gb$,gb$,gb$,gb$,gb$,gb$: ** 6 bytes not used ^{CBM-K}#5,bl$ , 29 $< 169, 0, 32, 33, 28, 169, 0, 32 qf 33, 28, 96, 173, 237, 2, 208, 5 {$7e}p 169, 34, 32, 33, 28, 169, 0, 141 {CBM-Q}z 236, 2, 32, 33, 28, 32, 17, 29 XD 96, 169, 34, 32, 33, 28, 169, 59 N 32, 33, 28, 16 ${CBM-R}"all" {CBM-M} 430: ** everything ok e {CBM-@} sl${CBM-W}{CBM-E}ft$ {CBM-M} 460 : ** file type incorrect K {CBM-S}1,dp$fl$" "ft$" trk"trk"sec"skt; {CBM-U} ft${CBM-W}{CBM-E}"rel" {CBM-M} 1: 460 {CBM-N} B1,"ss : trk"sr"sec"ss"len"rl T Lbu{CBM-R}bu{CBM-N}blks: ** blocks used in total {$f1} Vctr{CBM-R}ctr{CBM-N}1: ctr{CBM-W}8 {CBM-M} 270 S dtrk{CBM-R}F(nt${CBM-N}z$): sec{CBM-R}F(ns${CBM-N}z$) ${$ea} dtrk {CBM-M} 240 n{$f4}1,"... total # blocks used :"bu"..." A{$fe} 1: 5: 15: {$7c}dp${CBM-R}J(D(dtrk),2){CBM-N}":"{CBM-N}J(D(sec),2){CBM-N}":" {CBM-S}dp${CBM-R}dp${CBM-N}J(D(ctr{CBM-D}32{CBM-N}2),2) {$eb}dp${CBM-R}J(dp${CBM-N}sp$,1,C(dp$){CBM-N}(10{CBM-Q}C(dp$))){CBM-N}I(sp${CBM-N}D(blks),5){CBM-N}" " sl v51, 50, 49, 49, 44, 48, 58, 151 @ {CBM-H} 50, 49, 51, 44, 50, 53, 53, 0 , 208, 5 {$7e}p 169, 34, 32, 33, 28, 169, 0, 141 {CBM-Q}z 236, 2, 32, 33, 28, 32, 17, 29 XD 96, 169, 34, 32, 33, 28, 169, 59 N 32, 33, 28, 16 , 29, 96, 165 8$ 113, 141, 240, 2, 165, 114, 141, 241 E. 2, 32, 33, 28, 32, 33, 28, 96 8 173, 242, 2, 32, 33, 28, 173, 243 {CBM-B}b 2, 32, 33, 28, 24, 173, 246, 2 {$ec}l 109, 242, 2, 141, 242, 2, 173, 247 v 2, 10 ft$(4){CBM-R}"rel" "drive type :" A "1) 1541/2031/4040 or 2) 8050/8250 :";ty: ty{CBM-W}1 {CBM-A} ty{CBM-E}2 {CBM-M} 140 dtrk{CBM-R}39: ty{CBM-R}1 {CBM-M} dtrk{CBM-R}18: ** directory track {CBM-J} "drive #";dr: dr{CBM-E}1 {CBM-M} 160 R{CBM-N} "selective directory ?" {CBM-H} "1) seq, 2) prg, 3) usr, 4) rel, 5) 17 ' 29, 96, 173, 240, 2, 133, 141, 173 t 241, 2, 133, 142, 162, 0, 165, 113 {CBM-+} 129, 141, 230, 141, 165, 114, 129, 141 {CBM-S}{CBM-A} 96, 169, 0, 141, 245, 2, 141, 244 {SHIFT-+}{SHIFT-@} 2, 141, 237, 2, 96, 32, 182, 28 D 32, 199, 28, 169, {$fa} 15,"b-p:"5;0: ctr{CBM-R}0: ** position the buffer pointer A{CBM-K}#5,nt$,ns$: ** next track/sector links {CBM-K}#5,ft$: ft{CBM-R}F(ft${CBM-N}z$){CBM-P}15: ft{CBM-E}4 {CBM-M} ft{CBM-R}0 {CBM-H}ft${CBM-R}ft$(ft): ** assign file type {$de}"{CBM-K}#5,t$,s$: ** first data trk/sector {$fd},trk{CBM-R}F(t${CBM-N}z$): skt{CBM-R}F(s 29, 133, 140, 169, 203, 133, 139 c 177, 139, 240, 10, 32, 33, 28, 200 P 238, 244, 2, 76, 111, 29, 169, 1 141, 237, 2, 76, 181, 27, 173, 237 J ( 2, 208, 5, 169, 34, 32, 33, 28 {$f7} 2 169, 0, 32, 33, 28, 32, 17 ,bh$: blks{CBM-R}F(bl${CBM-N}z$){CBM-N}256{CBM-D}F(bh${CBM-N}z$) wH{CBM-K}#5,gb$,gb$: ** two wasted bytes at start of next record HR ft{CBM-R}0 {CBM-M} 470 {$7c}dp${CBM-R}J(D(dtrk),2){CBM-N}":"{CBM-N}J(D(sec),2){CBM-N}":" {CBM-S}dp${CBM-R}dp${CBM-N}J(D(ctr{CBM-D}32{CBM-N}2),2) {$eb}dp${CBM-R}J(dp${CBM-N}sp$,1,C(dp$){CBM-N}(10{CBM-Q}C(dp$))){CBM-N}I(sp${CBM-N}D(blks),5){CBM-N}" " sl S 2061 {SHIFT-POUND} {$fc}{SHIFT-POUND} {$fb} {CBM-E}{$fb}{$fb}HP{$f9}{$e6}{$fc}{CBM-G}{$fc}I{SHIFT-*}P{$f1}{SHIFT-POUND} {$fc} {CBM-E}{$fb}{$fb}HP{$f9}{$e6}{$fc}P{$f5}{SHIFT-POUND}5{CBM-I}{CBM-X}l{$eb}{CBM-X}^{CBM-*}{$eb}JP{$f1}{$60}4v9510026n+p3-,:@0uV)ij0mkoN{SHIFT-+}Pl{SHIFT--}.[{SHIFT-@}, ! Z {$e4} {SHIFT-POUND}{$fe}{SHIFT-POUND}{SHIFT-POUND}L{SHIFT-POUND}{SHIFT-POUND} {SHIFT-POUND}X {$f8} {$ed}x{SHIFT-POUND}M{CBM-I} {CBM-X}h{$f0} R~{$e8}P{$f5}{CBM-I}~ disk/extra monitor.64 ~{CBM-Z}P {CBM-E}Z{$f0}QY{CBM-+}PLH{SHIFT-*}P{$f2}{CBM-E}ZPC {CBM-E}Z{$f0}YHI {$f0}{$f7}I.{$f0}{$f3}I{$f0}{$ef}I{$f0}{$eb}I${$f0}{CBM-I}{SHIFT--}{$f5}P {CBM-N}{$e8}{CBM-X}hJ{CBM-X}hl{CBM-*}J{$e8}l{$ef}{CBM-E}Z{CBM-I}{SHIFT--}:P {CBM-N}{$e8}{CBM-X}jhJ{CBM-X}jhl{CBM-*}J{$e8}0EZ{$e6}{$7b}Z{$60}{CBM-G}~l{$7c}{CBM-G} {SHIFT-POUND} R~{SHIFT-POUND}!x{SHIFT-POUND} lT{CBM-@} {CBM-A}>{CBM-Z}{$fb}{CBM-Z}{$fc} {$e4} {CBM-A}* {CBM-E}{CBM-Z}{CBM-D}{$e4}{$fb}{$f6}H{CBM-Z}{$fb}{$f6} ZH{SHIFT-*}Y{CBM-Z}o{$f0} {$7e}lrl{$ef} {CBM-A}w{CBM-Z}{$7e}{CBM-Z}{$7d} {CBM-A}fX{CBM-Z}J{CBM-Z}Kx {CBM-A}3{CBM-Z}{CBM-Z}{$7f} {CBM-A}"{CBM-Z}{CBM-Z} o r({CBM-A}{CBM-Z}lrl{$ef} {CBM-F} {CBM-Z}{$fb}{CBM-Z}{$fc}{CBM-G}{$fe}E{$fc}{$f0}{CBM-A}a{CBM-G}{$fd}E{$fb}{$f0}{CBM-A}9 {CBM-E} {CBM-E}{$fb}{$fd}{CBM-Z}{$e4}P%{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}M{CBM-*}{$f0}{CBM-A}{CBM-G}{$fb}! hX {$ed}x{CBM-G}hH){$f0}Hlhh{CBM-Z}P X {$f8}x{SHIFT-POUND} {$e4}{CBM-Z}Q{$f0}X{SHIFT-POUND}{CBM--}{SHIFT-POUND}b{CBM--}{SHIFT-POUND}{CBM--}x{SHIFT-POUND} Q ; ql_{CBM-I} {CBM-X}x{$f0} R~{$e8}P{$f5}{$60}{SHIFT-POUND}{$ea}L{CBM-I}H{$7d}J{$f9}{SHIFT-@}{CBM-I} {CBM-X}{$7d} {$e8}{CBM-X}{$7d} x L {$ef} Alr R~lR~ JNH{SHIFT-*}P{$f6}NP{$f9}0I:I{CBM-POUND}{CBM-Z}0I:I{CBM-D}{$60}{$ea}{CBM-Z}K {CBM-Z}J {SHIFT-POUND} R~{SHIFT-POUND}{$60}L{$60}{SHIFT-POUND} {$ef}{$f0}{$60}{SHIFT-POUND}{SHIFT-POUND}{$60}! Zlrl{$ef} {CBM-A}9{CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-A}*{CBM-Z}h{CBM-Z}h S {$f0}I'P S S {$f0}4{CBM-D}SU{$ee}S{SHIFT-*} {$ee}{CBM-A}%l{$ef}FZ o S {CBM-A}{CBM-Z}{CBM-D}SU{$ee}S{SHIFT-*} {$eb} rHH {$e4} {CBM-E}{CBM-I} {CBM-X}UQ{$fb}P{$e8} {CBM-A}{CBM-G}{$fb}{$fd}{CBM-G}{$fc}{$fe}{$ec}S{CBM-A};{CBM-I} {CBM-Z}{$f0}P {$e1}~{$f0}${CBM-Z}{$e4}P{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{CBM-G}{$fc}MB{$f0}{CBM-A}{CBM-G}{$fb}M{CBM-Y}{$f0}{CBM-J} Z Alr Z{CBM-G}{$fe} {CBM-G}{$fd} x {CBM-E} {$f0}{CBM-A} {CBM-F} {CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-E} !{CBM-G}{CBM-Z} {SHIFT--}{$ed} Q{$fc} {CBM-E} {CBM-E}{CBM-D} Z {SHIFT--}{$ed} {$e1}~{$f0}({CBM-A} {SHIFT-+}{$fc}P{$e2} {$fe}{$ed} b{$f6}lr S I0Pp S IfI{CBM-A}bT{SHIFT-POUND} ~ MP {CBM-A}1{CBM-Z}{$fb}{CBM-Z}{$fc}{$e6}~ k{SHIFT-POUND} {SHIFT-POUND}{$60}{CBM-O} {CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O} G{$ed}{CBM-G}~{$f0} {$ee} {$ee}ll{$ef} {$ee}{$fb}{CBM-G}jj{CBM-A}/ {$ee}{$fc}{SHIFT-POUND}{$fd}% {$e1}~{$f0} {$ee}{CBM-N}{CBM-G}jj{CBM-A}{$eb} {CBM-E} {$fb} Z{$e6}{$fb}P{$e6}{$fc}$pV {$ef}{$ed} b{$f6}{CBM-+}{$fb}{CBM-@}{$fc}-.lr {CBM-Z}{$7d}{CBM-Z}{$7e} {CBM-E}{CBM-Z}{$f0}{$f0}$ {CBM-E}{SHIFT-POUND}{$fe}{$fe}~{SHIFT-POUND}~~{CBM-S}!{$e8} {$f7} ) {SHIFT-POUND}i{CBM--}{SHIFT-POUND} {CBM--}{SHIFT-POUND}{CBM--} {CBM-E}H{CBM-POUND}H{CBM-N}H@ {$ea}~ {$ea} {$e1}~P{CBM-S}{CBM-I} {CBM-X}{$7d}h{$e8} {$f7}l{$fe}{CBM-G}EI<{$f0}{SHIFT--}I${$f0}I'{$f0} {CBM-I} HP{$fd}{$e8}P{$fa}{$60}{CBM-I}{CBM-X}x)?I {$f0}{$fd}{CBM-Z}{$fd}W{$e8}P{$eb}{$60}h{CBM-Z} {CBM-+}~)?({CBM-Z}(X{$e8})?({CBM-Z}(X{$e8}~H{CBM-N}{$60}{$ea}{CBM-Z}K y{CBM-Z}J y {SHIFT-POUND}{$60}{$60}h{CBM-+}~{SHIFT-POUND} ({CBM-Z}(X{$e6}~H{CBM-N}{$60}h{CBM-Z} {CBM--}hh{SHIFT-@}{SHIFT-POUND}{$60}{$e2} Z{SHIFT-POUND}x{$e2}{CBM-X}){$f0}Ll {CBM-A}{CBM-Z}h{CBM-Z}h H! {$7e} {$e1}~{$f0}{CBM-Z}{$e4}P{CBM-Z}MZ{$f0}{CBM-A} {CBM-Z}MN{$f0}Llr{SHIFT-POUND}: R~lx{CBM-Z} R~ R~{CBM-Z} R~lR~{SHIFT-POUND} x \{CBM-D}o{$f0}{$f5}{$ee}o NP{$e7}lA{CBM-Z}{$fd}{CBM-Z}{$fe} {CBM-E} {CBM-E}{$fd} Z{$ee}P{$ee}P{$ee}{$e4}{$60}{CBM-G}R{$fc})X{$7b}{CBM-G}Q8{$e9}({CBM-A}F{$fc}F{$7b}{$fb}Z {CBM-I} {CBM-X}{$f6}{$fb}{CBM-Z}ZH{$e8} {$f0}{SHIFT-POUND}o{$60}h{CBM-Z}{$ef}{$f0}{CBM-G}){$fe}P{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-Z}{$f0}{$f0}X{CBM-G}){$fd}P{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}H{$60}h{CBM-G}Hx{$60} X{CBM-Z}J{CBM-Z}K!{$e8} xJ{$fa}8{CBM-Z}{$ed}{$e2}{CBM-A}NH{$60}{CBM-POUND}{CBM-I}{CBM-O}U{$e4}{CBM-O}{CBM-J}{$e5}{SHIFT-POUND} {$e5}.{$e4}*P{$f6}I? R~JP{$ea}{CBM-Z}{$e9}{$f0} x{SHIFT-POUND}a R~lx {SHIFT-@}{CBM-I} P{CBM-D}{$e2}{$f0}{CBM-Z}{$e3}I{$e8}~ X{CBM-@}~({CBM-A}#~ {CBM-@}~P{$e6}{$e3}{CBM-X}H R~{CBM-X}N{$f0} R~JPGlA lAh{CBM-Z}{$e4}{CBM-Z}{$e5}H0M{$e4}{$ee}{$e5}{CBM-N}{CBM-D}{$e5}{$60}~{SHIFT-POUND}~8{$e5}~~{$e6}~{CBM-Z}{$e4}8{$e5}~{CBM-A}N{$e5}{CBM-N}{CBM-D}{$e5}{$60}{CBM-S}{$e2}{$f0}~ \{CBM-@}~hJP{$f5}{$e8}H{$f6}{$e8}{$ec}{$e2}P{$f6}{$60}{CBM-D}{$e8}{CBM-O}{$f6}{$ee}{$e8}{$60}! *jJ {CBM-Z}{$fb}{$fd}{CBM-Z}{$fc}{$fe} o {CBM-G}ZI(l(({CBM-A}6 {CBM-E} {CBM-Z}{$fb} Z{$e6}{$fb}P{$de}{$e6}{$fc}PZ r{CBM-G}{$fd}{CBM-G}{$fe}{SHIFT-POUND} R~ R~ Al rl{$ef}{SHIFT-POUND},{SHIFT-POUND}{$60}g{$60} l{$ef}{CBM-I} V{CBM-Z}{$e4}{$fb}{CBM-Z}{$e5}{$fc} S Plr{$f6}{$e8} P{$f0}J0{CBM-X}{$f6}8{$e9}? jNVNUP{$f6}{$f0}{$e9}{CBM-I} S {$f0} 8{CBM-A} #{CBM-D}DED{SHIFT-POUND}0U{$e8}U{$e8}P{$de}G{CBM-I} I{$e9}{CBM-I} F{CBM-Z}I y{CBM-S}{$e3}H{CBM-N}"{CBM-X}{CBM-J} d{CBM-X}U d{CBM-I} P{CBM-D}{$e2}{$f0}{CBM-Z}{$e3}I{$e8}{SHIFT-POUND}0{CBM-A} aP{$f1}{$e3}{CBM-X}H d{CBM-X}N{$f0} dJPR{$f0} a a{CBM-Z}GMF{$f0}lq{CBM-D}{$e2}{$f0}!{CBM-Z}HIP {CBM-*} {CBM-E}{CBM-Z}I {$fb}{CBM-O}DH{$fb}L{$e2}P{$f5}{CBM-A} {CBM-E}{CBM-Z}I {$fb} Z ^ ^ A m [{CBM-I}{SHIFT-POUND} R~J{$fa} l {CBM-W} {$fd} 2 A ^ m{SHIFT-POUND}a R~{CBM-I} {SHIFT-POUND} R~{$e8} {CBM-Z} R~{$e8} R~{$e8} {CBM-Z} R~{$e8} {$e8} R~ {SHIFT-POUND} R~{$e8} B{CBM-G}l{CBM-@}l{$ef}! R~{SHIFT-POUND}? R~ Alr{CBM-Z}{$f0} ml{CBM-@} {CBM-I} {CBM-E}ZHI"{$f0}I {$f0}{$f5}P{CBM-E}ZI"{$f0}U{$e8}H {$f1}l{$ef}EZ{$e6}{$7b}Z MP{$ee}S{$60}{SHIFT-POUND}{CBM-POUND}{CBM-S}T {SHIFT-@}~{CBM-Z}S{CBM-I}U l{CBM-X}~{SHIFT-POUND}{$e4} N{$e4}{$f8}NS S {$f0} I S J{$60}{SHIFT-POUND}0I{SHIFT-POUND}1J{$60} S {$f0}{CBM-POUND} I{CBM-A}{CBM-K}h S {$f0} I{$f0}~H{CBM-I}*JP{$fb}~I - {CBM-S}SU{$e8}U{$e8}{SHIFT-POUND} U{$e8}S{$60} S I,{$60} !MT{$f0}R Zlr{CBM-G}{$fb}h{CBM-G}{$fc}h{CBM-Z}{$fb}{CBM-Z}{$fc}HH{CBM-G}{$fb}8{$ed}~{CBM-A}{CBM-@}{$fc}{$f0}B,{CBM-G}{$fc}8{$ed}wh{CBM-G}~E{$fd}{$e6}{$fe}{$f0}k{$fd}HE{$fe}{CBM-A}c{$fe} {CBM-E} {CBM-E}{$fb}{$fd}F{$fb}{CBM-G}{$fb}I~PF{$fc}{CBM-G}{$fc}I~{$f0}"F{$fd}{CBM-G}{$fd}I~PF{$fe}{CBM-G}{$fe}I~{$f0}{CBM-G}{$fc}M{$f0}{CBM-A}Q{CBM-G}{$fb}M{CBM-A}J Zlrl{$ef} {CBM-A}G{CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-A}x S {$f0} h S {$f0}j ~H{CBM-I}*JP{$fb}~,{SHIFT-POUND} ~ {$e4} {CBM-E}{CBM-G}~{$fb}{CBM-Z}{$e4}P{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{CBM-G}{$fc}M{$e5}{$f0}{CBM-A}{CBM-G}{$fb}MZ{$f0}X!{SHIFT-POUND}1J{SHIFT-POUND}{$ea}K{$60}X{SHIFT-POUND}7{SHIFT-POUND}P{SHIFT-POUND}HP{SHIFT-POUND}P{CBM-Z}{SHIFT--}{SHIFT--}{CBM-Z} {SHIFT--} {SHIFT--}x{$60} {CBM-O} {CBM-O} HP{$f1}{$60} {CBM-O} {CBM-O} HP{$f1}{$60}{SHIFT-POUND}.lR~{CBM-I}~l{$7b}{CBM-@}b* pc irq sr ac xr yr sp .; S I0P S II{CBM-A} T MP l{$ef}{CBM-Z}h{CBM-Z}h MP{$f0} {CBM-A}{$eb} kH{$fe}H{$fd}{CBM-S}{CBM-D}{CBM-S}{CBM-P}{CBM-G}{$fd}A{CBM-G}{$fe}B{SHIFT-POUND}A{CBM-O} {CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O} {CBM-O}{$ed} {$fb}{CBM-G}{CBM-D} {SHIFT--}{$ed}!{CBM-E}{$fb}Q{$fd}P={CBM-Z}{$f0}P {$e1}~{$f0}*{CBM-Z}{$e4}P%{$e6}{$fb}P{$e6}{$fc}P{$ee}{$e4}{$e6}{$fd}P{$e6}{$fe}{CBM-G}{$fc}MS{$f0}{CBM-A}{CBM-G}{$fb}MH{$f0}F Z Alr Z{CBM-G}{$fc} {CBM-G}{$fb} x {CBM-E} {$f0}{CBM-D}l{$ef}{SHIFT-POUND}ol{CBM-T} {SHIFT-POUND}Q{SHIFT-POUND}{$60}{SHIFT-+} J{SHIFT-POUND} {SHIFT-+}{CBM-S} VxhX{SHIFT-POUND}{CBM--}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-S}{$fe}~{SHIFT-POUND}~~{SHIFT-POUND}?{CBM--}{SHIFT-POUND} {CBM--}{SHIFT-POUND}{CBM--} {CBM-E}H(L{CBM-Z} {CBM--}{CBM-G}EI'{$f0}j ;{SHIFT-POUND}~{SHIFT-POUND}{$ea} a {CBM-I}H{$7d}J{$f9}{SHIFT-@}{CBM-I} {CBM-X}{$7d} y{$e8}{CBM-X}{$7d} y {$ef}{CBM-S}{CBM-I} {CBM-X}{$7d}h!{SHIFT-POUND}H V{SHIFT-POUND}({CBM-Z}L{CBM-S} VLI:)(I{$60}{SHIFT-POUND} S {$f0}nI0jI:IabIg{CBM-A}> I{CBM-A}7{CBM-S}{$ee} W{CBM-I} >P{$fa}{CBM-X}{$e8} {$f0}{$e8}P{$e8}{CBM-Z}{CBM-Z}$8{$60}{CBM-Z}{CBM-POUND}{CBM-Z}{CBM-N}{CBM-Z}{$7f}h{CBM-Z}({$60} {CBM-S}{CBM-I} {CBM-X}{$7d}h{$e8} {$f7}le{SHIFT-POUND} o l{$ef}{CBM-Z}h{CBM-Z}h HHl{SHIFT--}{CBM-Z}{CBM-Z}HH{SHIFT-POUND} {$e4} m ! ;{CBM-Z}o{$f0}!Hll{$ef}{CBM-Z}{CBM-Z}HH{SHIFT-POUND} {$e4} m [ x ! l {CBM-W} {$fd} 2 {$e1}~{$f0}{CBM-Z}{$e4}P{CBM-Z}MV{$f0}{CBM-A} {CBM-Z}MJ{$f0}Hlr{SHIFT-POUND}{$60}P{SHIFT-POUND} {$e9} \h Y{$ea}{$f0}{$f8}0{$e9}{SHIFT-POUND}{$ee}PH{CBM-POUND}jj{CBM-A})j{CBM-N}{CBM-X}{CBM-A}jjjj)P {SHIFT-POUND} {CBM-N}{CBM-X}[{$e3}){$e2}){CBM-N} {$f0}jjj P{$fa}HP{$f2}{$60}h{CBM-S}{$e2} x \ J{$f4}{CBM-Z}{$e2}M{$e2}~{SHIFT-POUND}{$e5}~{CBM-N}{CBM-Z}{$e2}i~)~E~{CBM-N}{CBM-Z}{$e2}IP" {CBM-V}{CBM-A}= D {CBM-L} {CBM-I}X S ^ V{SHIFT-POUND} ~{CBM-@}~ {CBM-E}{CBM-E}{$fd} Z R~{$e6}~P{$ef} L~ {$fd} lrl{$ef} Y{CBM-I} {CBM-X}{$f0} R~{$e8}P{$f5}lL~ S I0{$f0}{$f9}m I{CBM-A}fIbJI K{CBM-Z}JI@L S I0{$f0}{$f9}' I{CBM-A} IMI N{CBM-Z}MI@O S I*Pl{$fa}l{$ef}{CBM-Z}Mh{CBM-Z}JM DHM{SHIFT-POUND}~{$e4} e{$ee}{$e4}{CBM-S}{$e4}{CBM-X}{CBM-I}{$f0}Y 'MKP{$ea} eh{CBM-S}{$e4}{CBM-C}{CBM-I}HH{CBM-N}h{CBM-POUND}H 'MLPO{CBM-I}P or: mike forani{CBM-Z}ME{$f0}W{CBM-A} {CBM-Z}MD{$f0}KNFP{CBM-S}{CBM-Z}8{$ed}{$e2}{CBM-A}NldH{$fb}H{$fc}{CBM-I}HJ{$fc}{CBM-G}{$fc}h{CBM-G}{$fb}h{$60} @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@"d3P@BX{SHIFT-POUND} ! ymj,),#($y x$$ #]{CBM-K}#{CBM-K} ){CBM-S}I{CBM-POUND}#$s#$s{CBM-K} [[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z}) {$7c} M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}"{CBM-Z}D{CBM-D}E8{$ed}{$e4}K{$ed}{$e5}{CBM-POUND} K~{CBM-Z}EM{$e5}{$f0}{CBM-A}{CBM-Z}DM{$e4}{$f0}{CBM-A}{CBM-D}KGD{$60}{CBM-@}~0{CBM-X}D{$60} J S J8{$60}I0Ig{$60}8{$60} dK{CBM-S}F{SHIFT--}U{$f0} HH{$ee}I{$f0}lNl{$ef}{$e8}F{CBM-S}K{$60} {SHIFT-POUND} ~ {CBM-F} {CBM-I}{CBM-X}hJ{$f9} {CBM-A}j{CBM-Z}D{CBM-Z}E {CBM-A}9{CBM-Z}F{CBM-Z}G{CBM-I} H{$e8} {$f7}{CBM-G}{$fd}{$fb}{CBM-G}{$fe}{$fc} S IwP{$e6}~{CBM-Z}{$e4}P{CBM-Z}M{$f0}{CBM-A} l{$ef}{CBM-Z}M{$f0}l" {CBM-A} {CBM-I} {CBM-Z}UH{CBM-Z}US D {$fd}l{$e8}l{$ef}{CBM-I} lu{SHIFT-POUND}olN{SHIFT-POUND}h{SHIFT-POUND}hhhhLJ{CBM-G}F{$f0}I{CBM-Z}WI{$f0}I{$f0}P\l{$7f}{CBM-+}V Psh H{CBM-N}J0b{CBM-X}{$f0}{$ec}{$fb}{CBM-J}Y){$fc}{SHIFT-POUND} {SHIFT-+}{CBM-A}{$e8} - {$f7}{SHIFT-POUND} R~ R~ A{SHIFT-POUND} L{CBM-Z}0 Pl{SHIFT--}{SHIFT-POUND}l{CBM-G}l {$f7}{SHIFT-POUND} Ll{$7e}{$ea}{CBM-+}VP{$f9}h H{CBM-N}J{$e8} {CBM-A}{$e5}{CBM-X}{$f0}{$ec}{$fb}{CBM-J}Y){$fc} {SHIFT-+}{CBM-A}{$e8} {$7b} {$f7} A{SHIFT-POUND} R~{CBM-Z}0%P{SHIFT-POUND}{$60} {SHIFT--}{SHIFT-POUND}lP!"P{$ef}{SHIFT-POUND}P S InP{$e4}{SHIFT-POUND} {$ef}lr S {$f0}FI${$f0}E{CBM-I} {$f6}{$f7} Y {CBM-A}9{$e9}/~{CBM-Z}{$f7}"{CBM-Z}{$f6} &" &"M{$f6}{$f6}{CBM-G}"M{$f7}{$f7}{$f6}.{$f7}{CBM-Z}{$f6}E~{$f6}{$ee}{$f7} S l x{SHIFT-POUND}$ R~{CBM-I}{CBM-X}{$f6}J{$f7} ! Alrl{$ef} {CBM-A}{$f8}{CBM-Z}C{CBM-Z}B x Q{CBM-X} Alr S Pl{$e2}{$fc}l{$ef}X{SHIFT-POUND}{$7c}{SHIFT-POUND}{CBM-G}{SHIFT-POUND}F{SHIFT-POUND}{$fe}{SHIFT-POUND}{SHIFT-POUND}{CBM-@}{SHIFT-POUND}1{SHIFT-POUND}{$ea}xlT{CBM-@} SH S {$f0}I"{$f0}UH{SHIFT-*}{$ef}l{$ef}{CBM-Z}SP{$ee}SP{$e2}{SHIFT-POUND}$" '{SHIFT-*}P{$fa}{$60} '{SHIFT-POUND} {$fb}{$fb}{$60}h {CBM-E}{$fb}I.P{$7d}H{CBM-E}{$fb}I:{$f0}HI,{$f0}VI$PNH{CBM-E}{$fb}I:PG{CBM-I} H{CBM-E}{$fb}I{CBM-A}I@ I{CBM-A}q{$e8} P{$e7} j{CBM-Z}P{CBM-Z}0h{CBM-Z}I{$ee}ld{CBM-Z}0t{CBM-Z}8{$e9}{CBM-A}N{CBM-Z}H{CBM-N}{$60}H{CBM-E}{$fb}I P{SHIFT-POUND} {$f0}H{CBM-N}8{$60}{SHIFT-POUND}HP{SHIFT-POUND}{$60}{$e2} l{SHIFT-POUND}x{$e2}{$ee}{$e2}{CBM-Z}{$e2}M{$ee}ld{CBM-Z}D{CBM-Z}E{SHIFT-POUND}F{CBM-Z}E{CBM-Z}D8{$ed}F{CBM-A}N{SHIFT-POUND}{$60}{$e2} l{SHIFT-POUND}x{$e2}{$ee}{$e2}"{$fd}HHHH{SHIFT-POUND} {$e4}lD {CBM-F} B~{CBM-@}~{CBM-G}{$fd}UH{CBM-G}{$fe}UH{SHIFT-POUND}UHS {CBM-Z}{$fb}{CBM-Z}{$fc} {CBM-E}{CBM-E}{$fb} Z{$ee}P{$ee}P{$ee}{$e4}{$e6}{$fd}P{$e6}{$fe}{CBM-D}SU {$fd}{CBM-Z}{$e4}P {$e1}~{$f0}{CBM-Z}M{CBM-M}{$f0}{CBM-A} {CBM-Z}M{$f0}l{$e8}{CBM-I}P l{SHIFT-POUND} o {CBM-A}{$7b}{CBM-Z}h{CBM-Z}h HHl{CBM-G}{CBM-Z}{CBM-Z}HH D{SHIFT-POUND} {$e4} m{SHIFT-POUND}$ R~{SHIFT-POUND}: R~ ! {$f1}{CBM-Z}o{$f0} {$7e} {$e1}~{$f0}{CBM-Z}{$e4}P{CBM-Z}" {CBM-H}T{CBM-H}(NT{$f4}LjR{$f2}{CBM-@} {CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R} " &&RRHDJ&hdd{CBM-I}Hslgrmx:;d,antfhciqbkp*/!I{$e4}{$fa}@Q{$ed}zK{$f4}Tfo{CBM-P}Y{$f0}{CBM-E}rwgpv:>tfdcasebipRY{$ef}HkD N&akJ{$f2}{$f9} m-w m-r u2: 3 u1: 3 b-p: 3 0 b-a: m-e b-e: 3 2W mon device not present auth" P{$f5}JS D {$fd}lo{CBM-I}{$7f} D {$fd} F {$e4}~I {$f0}&h {$e4}~~ L~H ?{$de}{CBM-*}{CBM-G}~ ?{$e1}{$e2} A {$e1}~PJ L~ AlrX{$f8}{CBM-POUND}{SHIFT-POUND} {SHIFT-*} {$f0}IP{$fb}Xx{$60}h R~ R~ xHI -l{SHIFT-POUND} ,{SHIFT-POUND},,{SHIFT-POUND},{SHIFT-POUND} lR~{CBM-I},{CBM-I} F~{CBM-G}l{$60}{CBM-I},{CBM-I} I~{CBM-G}0{$f0}{$60}{SHIFT-POUND},{SHIFT-POUND}lC~ {CBM-V}{CBM-A}<{CBM-I}{$7f} D {$fd} F{SHIFT-POUND} ~ {$e4}~ {CBM-E}{CBM-@}~{$fd} Z{$e6}~P{$ef} L~ lr {CBM-Z}{$fd}{CBM-Z}{$fe}{$60}l{$ef} "8 the transactor volume 5 issue 06 page 71 QD : save"@0:drive peeker",8:verify"0:drive peeker",8 I : ** drive peeker - rte/84 ** {SHIFT-+}N : ** will scout about within your drive & report back to you ** {$f5}S "** drive peeker **" X hx${CBM-R}"{CBM-S}{$e4}{CBM-X}{CBM-I}UH{SHIFT-POUND} UH{SHIFT-POUND}UH{CBM-Z}NUH{CBM-Z}OUS {$fd} lr Y{CBM-I} {CBM-X}U R~{$e8}{$ec}S{$f4}{$f0}{$f2} AlL~{$fb}{$fc} {CBM-E}{$fb}{$f0}UHP{$f6}{$60}U{SHIFT-POUND} HUS {$fd} I {$e4}~h L~H{$60} D{CBM-I} lu D Y L~ I {$e4}~ R~I P{$f6}{$f0}/{SHIFT-POUND}{CBM-POUND}{CBM-S}M {SHIFT-@}~{SHIFT-POUND} {CBM-POUND}{CBM-N} {CBM-X}~ {SHIFT-*}~I{$f0}{CBM-G})PlL~{CBM-I} {CBM-X}{SHIFT-POUND}{$f0} R~{$e8}P{$f5} L~lr{SHIFT-POUND} {CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O}{$f0} {CBM-O}{$ed}{CBM-G}0Sl{$f6}{$f3}{SHIFT-POUND}{CBM-POUND}{CBM-S}M {SHIFT-@}~{SHIFT-POUND}{CBM-I}H lQ#00 #"0123456789abcdef" /{$7d} "hex : start, end ";s$,e$ K va${CBM-R}s$ : 215 : s{CBM-R}E(va$) : > convert start to decimal {CBM-M} va${CBM-R}e$ : 215 : e{CBM-R}E(va$) : > convert end to decimal J "s) screen : p) printer ";sp$ {$e1} dv{CBM-R}3:sp${CBM-R}"p"{CBM-M}dv{CBM-R}4 {$ee} 1,(dv) {$fc} 15,8,15"r{CBM-@}~P l{CBM-N}{CBM-X}U{$f0}a{CBM-D}{$e2}{SHIFT-*}P$ \ _{SHIFT-POUND}{$60}P \E{$fb} ; \E{$fc} ;{SHIFT-POUND}{$ee}Pl{CBM-X}HM{$ee}P{$ee}{$e4}l{CBM-X}{CBM-Z}{CBM-Z}lh{CBM-Z}{$fd}{CBM-Z}{$fe} {CBM-E} H{$fd} Z{$ee}P{$ee}P{$ee}{$e4}{$60}{CBM-Z}{$fd}{CBM-Z}{$fe} {CBM-M}ME{$f0}{CBM-A} {CBM-M}MD{$f0}${CBM-A}HH l {CBM-M}MG{$f0}{CBM-A}{$eb} {CBM-M}MF{$f0}{CBM-A}{$de}{$60} {CBM-E}{CBM-E}{$fd} Z{$60} S Ib{$f0}IkP{CBM-I},{CBM-I} S Io{$f0}Ii{$f0}l{$ef} S IuP{$f6} S It"{SHIFT-POUND}{SHIFT-POUND}{$60}{$eb} {CBM-G}{SHIFT-POUND}l{$eb}P {SHIFT-POUND}{$60}i {SHIFT-POUND}li{SHIFT-POUND} R~{SHIFT-POUND} LlrX{CBM-I} {CBM-X}XW{$e8}{$e4}FP{$f5}FFx{$60}{CBM-S}{CBM-@}S{SHIFT-*}{$f0}{CBM-G}NP{CBM-E}Q)? {$ea}{CBM-I} O{CBM-I}M{CBM-I}L{$60}{SHIFT-POUND}~{SHIFT-POUND} Z{$fb}{SHIFT-POUND}({$fd}{$f3}{SHIFT-POUND}{$fc}{$fe}{SHIFT-POUND}X{$7b}{$f4} '{CBM-E}{$fd}{$fb}{CBM-E}{$f3}Z{$f5}{CBM-G}{$fe}{$fc})X{$7b}{CBM-G}{$fd}{$fb}ZI({$e6}{$fe}{$e6}{$f4}{$fd}{$f3}F~PR Q{$60}{SHIFT-POUND}~{SHIFT-POUND}{$fc}{$fe}{SHIFT-POUND}{SHIFT-+}{$7b}{$f4}{SHIFT-POUND}{$fd}{$f3}{SHIFT-POUND}{SHIFT-*}{$fb}Z '{CBM-E}{$fd}{$fb}{CBM-E}{$f3}Z{$f5}{CBM-G}{$fe}{$fc})X{$7b}{CBM-G}{$fd}{$fb}Z8{$e9}({CBM-A}F{$fe}F{$f4}{$fd}{$f3}F~PR Q"U{CBM-Y}{SHIFT-POUND}U{CBM-F}{SHIFT-POUND}{CBM-C}{CBM-Z}M{SHIFT-@}{SHIFT-POUND}{$60}{CBM-O} {CBM-G}{SHIFT-@} {$ed}{CBM-G}{CBM-O} G{$ed}{SHIFT-POUND} ~ {$ee}{$fb} {$ee}{$fc}{CBM-@}P7{CBM-@}~P{$eb}{CBM-+}{$fb}{CBM-G}{$fc} M{CBM-X} x {$ee}{CBM-+}P!I {$f0} R~ {$e1}~{$f0} {$e4}~I P{$e6} {$e4}~{$f0}{$fb}P{CBM-*} A P{CBM-O} b{$f6} Alr{CBM-I}{$7f} D {$fd} lr S ^ Dl{CBM-L}{CBM-I}X lu {CBM-F} e~ {CBM-E}{$fd} Z{$e6}{$fd}P{$e6}{$fe}{CBM-Z}{$e4}P {$e1}~{$f0}{CBM-Z}M{SHIFT-+}{$f0}{CBM-A} {CBM-Z}MO{$f0}Ml{$e8}l{$ef}{SHIFT-POUND} {CBM-A}{$f3}{CBM-Z}h{CBM-Z}hNP{$ee}H{$fe}H"{CBM-Z}{$e2}M{$ee}{CBM-Z}ME{$f0}W{CBM-A} {CBM-Z}MD{$f0}KNFP{CBM-S}{CBM-Z}8{$ed}{$e2}{CBM-A}NldH{$fb}H{$fc}{CBM-I}HJ{$fc}{CBM-G}{$fc}h{CBM-G}{$fb}h{$60} @eP@0"e3P@@e3P@@e{CBM-W}P@ "d3Pd "d3Pd"d3P@"d3P@BX{SHIFT-POUND} ! ymj,),#($y x$$ #]{CBM-K}#{CBM-K} ){CBM-S}I{CBM-POUND}#$s#$s{CBM-K} [[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z}) {$7c} M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}"MS{$f0}{CBM-A} {CBM-Z}MG{$f0}E lrl{$ef}{SHIFT-POUND} e~ x {CBM-D}o{$f0}{$f5}{$ee}o NP{$e7}lA{CBM-@}~{CBM-Z}UH{CBM-Z}US {$fd} I {$e4}~h L~{$ee}P{$ee}P{$ee}{$e4}H{$60}{CBM-I}T l {CBM-A}Q{CBM-Z}{$fd}{CBM-Z}{$fe} D{SHIFT-POUND}{$e4}{SHIFT-POUND} B~ {CBM-A}p{CBM-@}~{CBM-G}{$fd}UH{CBM-G}{$fe}UH{SHIFT-POUND}UH{CBM-Z}UH{CBM-S}{$f6}{$e8}{CBM-Z}U{$f6}{$e8}S {$fd}{CBM-G}{$fd}I{$e6}{$fe}{$fd}N{$e4}P{CBM-L}{CBM-Z}o{$f0} {$7e}l{$e8}l{$ef} {CBM-I} {CBM-E}Z{$f0}UH{$e8}#8 the transactor volume 5 issue 06 page 71 z save"@0:filcomp c64.dat",8 {CBM-K}D ** rte/84 - data to create 'file compare c64' on diskette as prg KN "drive #, new program name ";dr$,fl$ {$f7}X 15,8,15: 5,8,5,(dr$){CBM-N}":"{CBM-N}fl${CBM-N}",p,w" # 1# 165, 91, 208, 3, 76, 110, 8, 169 h{$ea} 1, 32, 145, 242, 169, 5, 32, 145 U{$f4} 242, 169, 6, 32, 145, 242, 32, 204 {CBM-I}{$fe} 255, 76, 116, 164, 134, 184, 134, 185 O 32, 30, 171, 32, 96, 165, 162, 0 {$fc} 189, 0, 2, 240, 3, 2#{CBM-N}cset{CBM-D}2048 : character rom ? B i{CBM-R}0{CBM-@}2047: ca{CBM-N}i,B(rom{CBM-N}i):: move chars ^ L 1,B(1){CBM-A}4: see i/o again V c1{CBM-N}14,B(c1{CBM-N}14){CBM-A}1: enable irq again G(147); {$ea} {CBM-T} {$f4}: A {$fe} "?illegal parameters": G : {$e8} * input/convert subroutine* a$;# pk{CBM-R}s {CBM-@} e {SHIFT-POUND} 8 : v${CBM-R}"" 4{CBM-G} mh%{CBM-R}pk{CBM-Z}256:ml{CBM-R}pk{CBM-Q}mh%{CBM-D}256 K{CBM-N} 15,"m-r"G(ml)G(mh%)G(8) : > read in eight chars {CBM-M}{CBM-P} flag{CBM-R}1:v{CBM-R}mh%: 190:1,ht$;:v{CBM-R}ml: 190:1,ht$" ";:flag{CBM-R}0 {CBM-Y}{CBM-H} x {CBM-R} 0 {CBM-@} 7 {$e2}{CBM-O} {CBM-K}#15,a$ : v{CBM-R}F(a${CBM-N}G(0)) : v${CBM-R}v${CBM-N}G(v{CBM-A}64) {$f9}{CBM-V} h%{CBM-R}v{CBM-Z}16:lo{CBM-R}v{CBM-Q}h%{CBM-D}16 #2, 42 / H 42, 32, 70, 73, 76, 69, 32, 67 \ R 79, 77, 80, 65, 82, 69, 32, 67 {CBM--} 54, 52, 32, 42, 42, 0, 0, 0 {CBM-L} {$e6} 160, 9, 169, 71, 32, 30, 171, 32 {$e3} {$f0} 207, 255, 56, 233, 48, 133, 90, 201 {$fa} 3, 48, 244, 2# 32, 83, 67, 82, 69, 69 7x 78, 32, 79, 82, 32, 52, 41, 32 DB 80, 82, 73, 78, 84, 69, 82, 32 L 58, 0, 68, 82, 35, 58, 70, 73 {CBM-V}V 76, 69, 78, 65, 77, 69, 32, 62 {$eb} 0, 48, 49, 50, 51, 52, 53, 54 #160, 9, 169, 97, 32, 11, 9, 165 k@ 145, 201, 127, 208, 3, 76, 246, 8 Xj 162, 5, 32, 198, 255, 32, 207, 255 {CBM-G}t 133, 89, 32, 204, 255, 162, 6, 32 R^ 198, 255, 32, 207, 255, 72, 165, 144 ~H 133, 91, 32, 204, 255, 104,# R error if in different no-image banks l{CBM--} vic{CBM-R}13{CBM-D}4096 : vic chip address P{$e6} c1{CBM-R}13{CBM-D}4096{CBM-N}12{CBM-D}256 : cia chip 1 {$f0} c2{CBM-R}13{CBM-D}4096{CBM-N}13{CBM-D}256 : cia chip 2 A{$fa} p{CBM-R}{CBM-J}(cv{CBM-Z}2048){CBM-D}2{CBM-N}{CBM-J}(sv{CBM-Z}1024){CBM-D}16: p{CBM-W}0 {CBM-M} 510 {$e9} char, screen loc in lo, hi nybble q{CBM-R}{CBM-J}(sc{CBM-Z}256#, 165, 89, 32, 49, 9 :{CBM-S} 165, 89, 32, 61, 9, 169, 32, 32 G{CBM-U} 210, 255, 169, 36, 32, 210, 255, 104 B 72, 32, 49, 9, 104, 32, 61, 9 AL 169, 13, 32, 210, 255, 32, 204, 255 {$ee}V 230, 87, 165, 87, 208, 2, 230, 88 : 55, 56, 57, 65, 66, 67, 68, 69 " 70 v& 133, 188, 169, 8, 133, 186, 32, 74 0 243, 96, 74, 74, 74, 74, 170, 189 {CBM-A}: 112, 9, 32, 210, 255, 96, 41, 15 {SHIFT--}d 170, 189, 112, 9, 32, 210, 255, 96 n 51, 41, : 55, 56, 57, 65, 66, 67, 68, 69 " 70 v& 133, 219, 169, 8, 133, 212, 32, 99 0 245, 96, 74, 74, 74, 74, 170, 189 {CBM-A}: 112, 5, 32, 210, 255, 96, 41, 15 {SHIFT--}d 170, 189, 112, 5, 32, 210, 255, 96 n 51, 41, #5,e,e$,b,c: e {CBM-M} 15: e,e$,b,c: x j{CBM-R} 2049 {CBM-@} 2433 : x: 5,G(x);: ch{CBM-R}ch{CBM-N}x: : 5 ch{CBM-W}{CBM-E} 38861 {CBM-M} "checksum error": {CBM-I} "** program complete **": {CBM-POUND}{CBM-N} : U{CBM-H} 1, 8, 37, 8, 10, 0, 158, 32 {CBM-V} 50, 48, 56, 55, 32, 58, 3#32, 208, 248 ) 134, 183, 169, 0, 133, 187, 169, 2 v& 133, 188, 169, 8, 133, 186, 32, 74 0 243, 96, 74, 74, 74, 74, 170, 189 {CBM-A}: 112, 9, 32, 210, 255, 96, 41, 15 {SHIFT--}d 170, 189, 112, 9, 32, 210, 255, 96 n 51, 41, {$e7}(C ht${CBM-R}J(hx$,h%{CBM-N}1,1){CBM-N}J(hx$,lo{CBM-N}1,1): flag {CBM-M} 7H 1,ht$" "; ^M x : 1,v$ : pk : 1 : 15 : SR : >> hex - dec W ln{CBM-R}C(va$):f{CBM-R}0 {CBM-R}{CBM--} x{CBM-R}0{CBM-@}ln{CBM-Q}1:v{CBM-R}F(J(va$,ln{CBM-Q}x,1)){CBM-Q}48:y{CBM-R}{CBM-L}(v{CBM-E}9) {SHIFT--}{$e1} f{CBM-R}f{CBM-N}((v{CBM-Q}(y{CBM-D}7)){CBM-D}16{CBM-S}x)::va${CBM-R}J(D(f),2): 1,(dv) {$fc} 15,8,15#33, 5, 176, 240, 169 = 13, 32, 210, 255, 169, 0, 133, 183 J 169, 1, 133, 184, 165, 90, 133, 186 169, 255, 133, 185, 32, 74, 243, 169 D" 0, 133, 87, 133, 88, 162, 5, 160 {$f1}, 9, 169, 97, 32, 11, 9, 162, 6 6 : 55, 56, 57, 65, 66, 67, 68, 69 " 70 v& 133, 188, 169, 8, 133, 186, 32, 74 0 243, 96, 74, 74, 74, 74, 170, 189 {CBM-A}: 112, 9, 32, 210, 255, 96, 41, 15 {SHIFT--}d 170, 189, 112, 9, 32, 210, 255, 96 n 51, 41, # 197, 89 , R 240, 78, 72, 162, 1, 32, 201, 255 y {$7c} 169, 36, 32, 210, 255, 165, 88, 32 49, 9, 165, 88, 32, 61, 9, 165 {CBM-W} 87, 32, 49, 9, 165, 87, 32, 61 9, 169, 32, 32, 210, 255, 169, 36 {CBM-@} 32, 210, 255