' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`--K'BAUD,MAR'80,P681:1:" TEXT":#1F4,R1)1030J1P" TOUCH LETTER OF CHOICE";d1ZP(16384):P128901]16368,0:P193P192QĀ1_II(P193)221dB$" ":38,I)2B$"B"1iA$"":P737:A$A$(P,I)P,I1)16128):P1n:D$B$"RUN "A$2x#0 D$(4)::936:D$;"CATALOG"<0II2:4,I1)1020F0PI2b0PQ:1:QQ1:RIQ220(A$(0,R2)0,R1)16128)(1,R2)1,R1)16128)02" ...";:(Q128)16:3,R1:Q128((Q128)16)16:3,R21<38:A$:(A$,2,2)"T"ĢPQ ͠       Ӡ ٨P<;P;:P:9P9<(<;(;:(:9(9<<;;::99 6/% "i l2%% " l2%% " l2̅ͅ% 3 58̅ͅ 3 3L5PJ TuVTvP`P&Q&R&S8RTSURSP`>B=?9C ,L>60 $  ` $ :$ `67 6 (6. $ $88 ':$ 6 L5L M 4L6LM 4% "} l2ʅ˅% 3 4 6L6J K 5`JKJK% 3dede de&N@"rD4rD4r0[5]:]Ԡͺ?]7DdJedKede.?Jrde.?Kr[rP.?$rY[]]РĠ]Uq0q1DZq Dzq@qGq|qq6qq6q"q q!q,' q qqqq6q6|UVWYKM~Q]]ԠԤׯԠҮ]:de a@*#rGdea@*#;@rrGde []"]ԠԠҠ].UVWUVWde6MY`%o8.?%rYZ]]Ƞ]/oPa(̠)GoPa(Š)G]]ԠҠ](oP a(Ӡ٠ٮ)Gq4`.?6@r$d6?e`$UVW ,Ma()GUVWdYZq_)Mc]h]Ϡm]ArUVW-rq8p8r-rq@88rrY3|UVWden-rde-rM/UVWden-rde-rMAq8-r-rr  -rq8-r-rr  -rq@*rrYdHeM6]Š٤ϠĠҠĠĠ.]͠Ԡ̠Π̠ԠӠ<]͠Ԡ̠ŠӻҠϠԠ@Š͠"]V,@p(δ)]ˠ.6q.?r.?r]Ġ٤Π@UVW8r;@r7J`.?r%deY]ŠӠȠ̠٧`UVW;@rde<ٰ, ]ҧӠĠ͠Ԡ]٠ͮ]Š]ǠǠ]dqN@"Krn~]̠ӠDxdeidedeZ]ԠһԠԠ M6D*]  ōҍҍύٍ 0 :::"TWENTY-ONE COLORS"J0GREEN,VIOLET,WHITE,BLACK,ORANGE,BLUE_0I16:A$(I):Iq0(A16:BA60223:A$(B)"-"A$(A)" "0<C2911920FA:40,C240,C0PB:40,C1240,C10ZC,B,A:40CUVWYM6oa(ԠŠ)G`%a()G3`%a()Ga(ĠРΧ)\Yq_]]ԠҠΧ] d6?e&`.?6@r$d6?eM6[%a()deqq>UVWde.?rde.?rde9oa(˽)F.?rGP a(ý)F.?rE() M(qq`$$`$M6a()QY ], `$ dedeq q[] ]]Cq8rq8rdede7q.?r8.?rrqq^UVWM6`%a()` $4:*qq\ qq\ q\  /` $  4Y_ ] ]Šˠ ]РӠ ]έŠҬ ]Šˠ ]ϠŠ ]ǠԠ̢űqŲqűq%q.?űr`$q / q.?Ųr` $4vqq\ q@q@\ q q \ qq\ qq\  `M8qq.?r]]ŠŠ]Ԡ̢]-q.?r.?rqqo Pa(ɧ͠)]]ĠԠӢ]ŠàĠέ]ԠϠ]AUVW"e dedede`$]%]ĠŠà&]٠']Ԡİ(]K)qqqq q R.dedededededeŠՠȠϠ٠РΧϠή)\]]ĠŠ]/q.?Mr`^%qq8!r]]Ġ]Š ]Š]]dede8rdeded ] ]ŠĠ ]ǬǠ ] ]GKM6oP a(ŠŠٮ)ccP a(٠Š)Ooa(ԠŠ 2] <] F]ŠӠ P]Ġؠ Z]Ȭ٠ d] n] x] qűŲ ] ] ]ŠŠٮ (]     Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOa bō`hh eiHH`/`ɵLL/` Mae% "$ 4a` u` Xe% "$ ` bΠŠԠōŠŠԠō Ma bō` bΠŠԠōĠŠԠō `,@v3ȩȑɶ X% " bԠӍ% " bԠӍ% " bŠӍ% " bĠӍ % " bĠ͍ % " bȠϠՠԿ ɱ aL/`ɲ Ma L/`ɳ aL/`ɴ aL  _ XL X Xȱȱ XL$ X X Xikmjln`` RdUV6,WW6Vde.?rY nd6-We!xd6_ed6_ed6_eQR L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Ϡ³ɠàŠϠϠР ԠԠРĠ٠Š̠ΠƠɠՠ͠ՠ̠ àŠΠĠ٠ɠŠԠԠ̠Р@@@ƠŠ ԠɠϠϠɠ РΠɠŠ͠Ӡ͠ΠƠɠΠՠӠ̠٠ɠŠԠ ̠̠@0ӰΠɠàǠΠϠРϠ ԠРՠ ٠ŠŠ͠ϠРΠԠԠŠàŠ͠ԠРҠԠҠƠȠР ӠӠ` Ϡ³ɠҠŠϠϠ͠ ԠԠɠɠĠ Ҡ̠͠ΠƠɠΠՠӠ̠٠ɠŠԠ ̠̠ @@ 0:ȡHe@ hhл`Ie@҈ _c'a(ӠӠԠĠӠˮ)"a(ŠӠΠĮ)_ca(Į)d e_ d6?e d"eQ]ӮԮ&]̠еQq "ca(РΧϠŠ)a(çϠ) "q.?6@r,`$6`$" @d6?eJMT`.?B r$ ^dB e4hd erM|_`.?B r4$c*a(ӠˠӠ٠ΠĮ)dedeIPdebde`deZK dM6noxP a(ΠԠ)ccP a(٠ӠȮ)cP a(Ԡé)P a(̠Ӡ) d"e  dJe$ dKe ' dJe$dKede$de'dededede 'de dedede`'(ded ed ed e`'2d ed edede'<dededede 'Fdede   ׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00  鈘 ȡ ?@ He@ h0Hh̘hЦ, Ї @@#0 `0  `=&>r%@p()UVW%de=>r=>rYnca@E@E(Π)E@x]˧Ĭҧж`)Gf8rghf8rgh:<P&a@`@*#r:()$FoPa()F`=>r $&Pa(ȠҠƠ)GGZq.?6@r`$Zd6?e`%Qq8rId@p()k N@"(rq.?Jr.?Kr @p()KM6a@E()(q`=>r $q#oPqq`(de=>r=>rde=>r=>rd e?2a(  j 5`$ `ůŰ% "} l2% 3 4ijij% 3 4kl% " l2kl% 3mn% " l2mn% 3 5L5 [ l2`o8mpn 3 3 [ l2 $  [L< LL<$Pi Ri PQRSSTU [78#8PQ 3L6s t 4L4st 4L4% 3$ `op% "i l2op% 3 4L4 3` % "r l2gh% 3 4L5i 3  $ `$SRQP'UT n3 _3UT n3 _3UdT n3 _3 T n3Ri `SQRPSR` y7Pe$Pi `"$ `% " 2 3 3` 3LV4% "Z l2% "` l28驅PQRSU T y7 [2 / Xة3 L 80 qL28$ ` [ l2 l2L2 l2L2 l2% "i` [) 2 2L2% " 2 2` $% " %$$LԠ͠٠)oa()d"e[\]Ԡé٠Ӡ̠̠ĬͫӠΠƠŠd8re1`@*#r9()$]ӠԠ٠@p@*#;@rrKM6a@H()E@Q@p@*#;@rr KM6a@H(Π)E@QKM6a@E()Q KM6caPa(bE()Gd2e?a(̠)d2ehKd"eWroa(ҠĠ͠٠ҮҠϠǠ͠ҠŮ)C|Pa(͠)GTM6`$`$`$rPq-rUVW$d8re.?rY]-rq ` %a()GbE()Gq"UVW,d e.?ra@GYc&6]ͫΠƠŠ¤;@`.?%r$Td!ed e`%_Jo_T5JKoa(ԠΠϠ)M6M6\TY<^` %a()GYa@E(ң)a@E(Σ)]ԠŠŠ͠͠ɯϠӠΠѰqѱq G]נŠŠŠǠΠ٬ԧӠԠԠϠŠ,qUVW8.?r.?rrX&`.?r<()r$T (ΠϬɬ)]\\dedede.?6rde.?7rq ]ͫΠƠŠâ]dedede(de]ԠŠŠϠɯϠӠΠ2a@E(Ǭı)]ŠǠԠϠ͸*e`E]ӠΠŠϠҠŠŠ͠b]Ӡ٠ǠϠ٠ӠԠ٠ŠĠǠϠJ]ԠӠΠŠҠŠԠӠŠa@Ededeidedede]Zdededeide@dededededededdedeKnd ehd!ed"ed#e`d$ed%ed&ed'exd(ed)ed][2q@p()q.?Jr.?KrN@"rD42rD42r@p()]Ĥ̠ĢΠ<d e@p@]Fde8deHdededededede ded e]Pd eid ed ed e`de ]Ԡ͠٠ҧ]٠Ӡ̠̠]ΠҠ(]ӠӠ)]*]+],]ĠΠ٠îŮ-].]͠ŭ٠/]0]1     ŠƠԠĠננ͠6Dq.?6?r.?6?r.?6?r.?6?r[]ҮX]ҮΠЪ_bUVW;@r]Ӡ̠ˠǠƠȠŠĠΠӨũClUVW;@r`@*#r:()%Y]Ԡ &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j0000       H  &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j/ ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00        @ae% "$ 'a` u` Xe% "$ ` aŠϠṲ̆` aĠϠŬ`hh eiHH`$`ȩȑɶ X% " aԠӍ% " aԠӍ% " aŠӍ% " aĠӍ % " aĠ͍ % " aȠϠՠԿ ɱ `L$`ɲ @a L$`ɳ vaL$`ɴ aL$`ɵ`L$` G $Lԅ ,խLcة  = {ڥ `` ŠΠ9`%N@"rC@"rq]ԠƠԠ\&M6UVW\6\d6?eUVWd]ŭӠҠϠŠ+0YYoPd6?e[]V:c\6\oPd6?e[]̠ rM6#d6?e[]ΠΠԠǮ ]ҠԭԠ,]îӠqod2e?a()Gd2e[]ԠŠŠƠŠԠ]]ŠŠԠĠҩϠŠUJqqq]ŠϠŠŠ-TdBedCe-^d<ed=e/hd>ed?ed]ҤΠnq8raxñq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[ ]źq"\na@Q ,]ŭԠŠ 6]Š٠Š,@ ]Ҡ ]Š]]Ġ]Š]]Ϡ]ӠҠ ]àͺ52dJe dKe de.?Jrde.?KrFK_]Ϡ  G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&-&    h5`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,-`E/E//`$(H)? @(hl8NO,(,` , ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0@ :3 g 4ɹ əɧ yLG y4LM LkL1 < >=?=<@A @ < <) L ` $%@IiH@)   @>A?@Ah8` t6.7/8798_-67689`` `L M__L6`,_ˢ a0 0ϷM__` ,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&     ˠ PG K(LOCK U(NLOCK N(EW D(ELETE E(XIT ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ؅D$% 0 +DE ` A PCL~@E^E_EZE[`1''㍍ 02D)JJJJ 0ș2D) 0șEJJJJ 0``7% $ BE BE E yDHi&eh LRD`$E  ɍ ` XD0 ` APPLE BITS OF KANSAS CITY - 3.3 T(DRIVE L(OAD R(UN SP(NEXTE B` :` b6C7y8C9 E >B A PC @`6798 `H|C h|C``2D3DEEiEiA)m3D3D +D 4D +D) 4Dm2D2Dm3D3Dة$eeELCؠ C82D2D3D3Dؠ 3D$C >B$E  ``L#BH$%  hWB\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\E  EmEB&BBNBmBJnBmBeeE` 08EEPEE &B B00   5DEEE B ALT@ BG A CL~@Ъ2'EE &B B B" yD$ >B B A C }CL~@ :L@% E E >B yD AE/5 >Bs r ; >Ba ` `$$(@ @_E%E^EZE[E̍^ZE_[ 0E^ D C1  }CE)ȹE)ȹE) 5D E Bɠ 0   5DL@ M  EТ E XELiLLT@ E &B B B E A EL@ E      &&eehe` d  a agh(c-cȱ.c ::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00         a(Π)Q  Z XL X L Z࿰L& L& XLD    $P) `~  `n  `L),L,`  +8H i`iɀi@h`` YL G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&l  . $ ; &?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&     `L9c0% c0H; c8L,hj L HXY: hjL1S ,38,3,208,3,238,39,3,96#Y63075:^768:D$"CATALOG "[c216,0:D$"PR#0":D$"IN#0":h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":|:10001:"/N":0,63998:0:0AME$(0)(B$,19)@D$(4)GE12:12::"READING CATALOG"::12:29RH61150nJX768816:X%:X,X%:XT169,34,141,83,170,169,3,141,84,170,169,45,141,85,170,169,3,141,86,170,160,8,177,107,141,38,3,200,177,107,141,39,3,96,234,41,127,141,35,3,238:"/N":0,63998:0,68 A4 00 60 00 00 00 00 A9 A0 60":61160:144ZD$;"NOMON C,I,O"2,0:3,16:A(1)4096:LM4,(54):LM5,(55):CC2840$63065NAME$(105),A$(105),T(105)"X138:B$B$"=":,X10511:NAME$(X)B$:6N60,8,177,107,141,38,3,200,177,107,141,39,3,96,234,41,127,141,35,3,238,38,3,208,3,238,39,3,96h Y63075 ^768:D$"CATALOG " c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!": |:100015),T(105)! "X138:B$B$"=":? ,X10511:NAME$(X)B$:U 6NAME$(0)(B$,19)a @D$(4) E12:12::"READING CATALOG"::12:29 H61210 JX768816:X%:X,X%:X\ T169,34,141,83,170,169,3,141,84,170,169,45,141,85,170,169,3,141,86,170,1X TO END->";A$:A$"X"ĉ::4 A(A$):AMAX2010? A1ĬW T(A)66T$"BRUN "o T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) 23:D$T$A$(A) _ D$;"BLOAD CAT.READER" $63065  NAME$(105),A$(10bHHH DE DEE8DdDEE  FȹT ɍhhh` FREE SECTORSJ0) T(X)((NA$(N),2,1))0 X20İ30:2000H X20X58X96İ80\ X39İ40:2000o $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:2000 L40  MAXX 85:34,22 23:958 "SELECT A FILE BY NUMBER (ERE? Y/";::"N";::" ";:A$:A dA$"Y"MAXN1:N105::2000g n23:958:34,2:35,21::35,24:s 60:X0 N1105 (NA$(N),8,1)"="N105:2000 ((NA$(N),8,1))652000 ((NA$(N),8,1))942000 XX1 A$(X)(NA$(N),8,3+ ::12:12:"ALIGNING MEMORY":63000AY140:"=";::Y:X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:20:22:20:34,1:2:P33,21:32,19:2:1::U33,40:32,0:23:1:: Z85:23:"IS YOUR PROGRAM LISTED H     RU 12 MAYGENERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2048` `` , DISKETTE COPY ROUTINE LAWRENCE HALL 0F SCIENCEUSING READ-WRITE-TRACK-SECTOR (RWTS)OF APPLE DOS AND EITHER:1. SINGLE DRIVE2. DUAL DRIVE, SINGLE CONTROLLER3. DUAL DRIVE, DUAL CONTROLLERWARNING: DISK ERRORS:TRACK 2, SECTORS 9 TH Lj ` ȑL+  ȑ ` ɀ   , ERROR (  0ɀD , DRIVE ERROR)L , WRITE PROTECTED)L , VOLUME MISMATCH)L , READ ERROR) , ABORT? L L$ , SLOT=   )  [$ , DRIVE=   )Յ`ȑ` W  i8ȱ 8 &d [ , TRACK= , SECTOR=   C =?C<>B< , i #ȑ"L,,,` 0  ɍ` Xhh L4 HH`, , PRESS RETURN TO CONTINUE ɍ ` [$ , VOLUME=L X$0! L ) INSERT MASTER DISKETTE` X$0 , INSERT COPY DISKETTE M LX , DISKETTE:  [O. OF COPY DISKETTE jɍ) e e x  ) INITIALIZING   i L   , READING  c  $ , WRITING  c #а  [ , DISKETTE COPIED.  , ERRORS.ȥ  " X [ , SECTORS/LOAD= $ , AND COPY (BLANK) DISKETTE M    i L  x W X , DO YOU WANT TO INITIALIZE COPYDISKETTE? 3 ȑ  i L  x Lc ) VOLUME N[7 `L  ȑ3L n X , SHALL I USE AND HENCE OVERWRITERAM MEMORY USED BY APPLE DOS?  ` e8/ ) MASTERJJJJȱ JJJJ , COPY    ROR - REWIND TAPE AND ADJUSPRESS B FOR BASIC - R TO RUFPBLA - BY LOU HAEHd`GL`ȱȘe iȑ `H 6`h*:` 9`ʭ`EE0`P 6` $ 9` 9`; (`(EV 0x8x D- ܸ H`  HOLD$)(FRAG$)):BLD$FRAG$BLD$:(HOLD$)BLD$","BLD$:30q1(PU$BLD$(PU$,(PU$)DP(DP0)):PDPU$"$"PU$12((PU$)FRM)60:PU$(SP$,FRM(PU$))PU$:701<PU$"LEN ERROR"1F1P--BEGIN PROGRAM HEREJ0--APPLE BITS+0--K.C. USERS GROUP?0--VOL 1, NR. 90 J140:SP$SP$" ":J:RN(D2)((D2.0050001)100)100:DP2:800PU$(RN(VLU)):HOLD$(PU$,1,(PU$)DP(DP0)):BLD$"":(COM)BLD$HOLD$:40<1FRAG$(HOLD$,3):HOLD$(HOLD$,1,(  H`0h`z# ǮĮ ԫǮĠ2 ī   ԮҠ ԮîҮǠ٠ˠ٠! Р" Р Ԡ Ҡ͠ ǮĠ͠ Ү ĠϠ ՠ ɠР ŠŠϠ͠ ŠŠϠ͠ŠԠŠŠҮԮ ԠҠ ӮȮ͠٠ ! Ԡ͠Ҡ" Ҡ ԠǠ ٠ ˠϠ  ŠŠ ҠԠР Ҡ àǠ͠ ĠҠҠ ŠҠ ŠӠ  ǠԠ٠Р ŠҠ ŠҠ Ԡ͠Ҡ٭ŠӠϠՠƯР ŭϭҠŠӠ ̠Ҡ ٠ Š Ġ ſſʠϭӠЭҠĠǠ РԠ!נԠ"ïҠ ǠĠ͠Ԡ ˠӠ٠ҭƠ͠ ҭƠҠŠɭӠ̠ҠŠ ϠԠ+Ǡɠ ϠՠԠԯРԠǠǧϠç̠Š٠ !]Ġ٠Ġ ºàŠƠĸ)[T]Ԡ٠ΠҠЮϮؠîӮ̠l]ΠĠϠŠӠ͠ӠǠӠӠԠŠӠĠΠ()[]ӠȠ͠ N@"r\\@p()\ \[@B;@rrp(ΠŸ)UVW;@rde<@*rrY dHeM6[_@p( Ĺ°ĠĠàĠĠĠĠ )[M @p(e[q`²$" a()[]Ԡ֠Πֱqֲqa@*ֱ#ֱrE@*ֲ#ֲrG[q±]ԠӠ±²d:e8rd;e8r!d$ea()Gq\a()G(q.?/r`$a()a"a()q\a()Gq,q.?r\a()G6q`²$, @a()GJU̱VWTqq.?̱r^`$rhq?qr`$|qq@d2edea@GY̱d2e `.?6@r$d6? q\<`$.a()a()a(ˠ)FE(Ҡ)F±q²qa()\ `˱Ա$8q` $qq_`@9()%\Qq±]ԠӠ±²a(Ԡ)_<]įŠFdePdeZd e dMnq.? rxq.?r[+qq˱q"Աq S(ԠϠҠ)&@ `@9()$`@9()$_\@9()$`@:()$\q;@r`@*r9()%q<UVWq<@*#rr` %q`$(`6±$2±q²²q_ ²q² Y`±²²$2`;@r$(\c`@9()%\_ (\_2ϠӠԠˬ)a(Ӡ٠ŠΧٮ)"ccS(ˬ)'' q\<ca(Ӡ)FG`$a(Ϡҩ)=cS(٠Ԭԩ)&@`@9()$±q6²q1S(ԠϠ)&@`'(VS(Ǡˬ)'˱'Ա``˱$Lj_Wtca(ΠĠ٠ӠԬԩҠϠŠӠϠ)V~a(ˠΠةĠ٠)ca(ĠΠ̧ϠԠũ)Eca(ede"$S(РŠàٯΩ)&@ .`@9()$8`@9()$_$>8S(٠ŠҠٯΩ)&@`@9()$t`@9()$L_8IBd2e?oPa(Р٠٠ϠԠ)d2ed"e)LS(Ǡˬ)'de0de ]Ԡ͠[]\8N@"rq.?r.?r @p()]̠3N@"r@p()N@" rC@"r5qqq]ƽ3S(Ԡ)'qd% d]ˠӠi]٠Πn]ΠҠs]ǠԠŠֲ?]ŠҠӠΠӠĠӠ$\\_]ŠȠ[$a@E(ң)[]ΠҠ9dJe0dKe     40d::D$(4):D$;"CATALOG":B(37)2:B22B22:0i0nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCV0xCV:24:A$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5....".1B$"RUN":1:(A$,39);:A$(A$,2)( $1$P 膸 ": ,i  4 }LuH0h A$ e ,Lt 3 LL Ȫ*ȱ_ȱ{ȱȅ| L.LUL=`?EXTRA IGNORED ?REENTER   e i` "  L Z  ^ _ LG ,? ɠ )H h`0{|uvLh$L* =yz` @ `" ;  @L ] , , Le ]L, }~,  $P )0 ]  ^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hpoj iL   ,ȱȱ` @ #(:5,;F ~$0 +% L _I`$ #i)$ )L(ʊ$vHuHH @L  vQ 8egh ` e ɰ ,ZL LhhB;uhvhh e`:,  "hhh` ~ ɫ   L@L* HɰɫЉơhL, ,h`PQ/ Q^ԥP &^ &^ePP@ HHLLH:L8gh}~`Ƀ` S $L*?`gh<=ij>?`v(Le lL7 HH枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐 Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_ҢLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h PCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEX//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(                 # #8 uvLi ,  ~$8$0`L ƹƸ$HH c 8ϐ*IEʼna L,{iweLi^ e^hٲg mH hV_F*ƹƸٲHٹHH LLh^^h_H i#HHH$1$P 膸 ": ,i  4 }LuH0h A$ e ,Lt 3 LL Ȫ*ȱ_ȱ{ȱȅ| L.LUL=`?EXTRA IGNORED ?REENTER   e i` "  L Z  ^ _ LG ,? ɠ )H h`0{|uvLh$L* =yz` @ `" ;  @L ] , , Le ]L, }~,  $P )0 ]  ^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hpoj iL   ,ȱȱ` @ #(:5,;F ~$0 +% L _I`$ #i)$ )L(ʊ$vHuHH @L  vQ 8egh ` e ɰ ,ZL LhhB;uhvhh e`:,  "hhh` ~ ɫ   L@L* HɰɫЉơhL, ,h`PQ/ Q^ԥP &^ &^ePP@ HHLLH:L8gh}~`Ƀ` S $L*?`gh<=ij>?`v(Le lL7 HH枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐 Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_ҢLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h PCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEX//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(Ԉ$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪- L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L̆i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454h`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TSR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^poHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L 8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohH)\o P@p()\.@o P@p()\a()Go PBa(ݿ)E]J]ŠO]AToP@p()\oP@p()\a()G=^oP#a()GoP#Ma()GM"MdeEM deyMdeM]]ϠŠϠ ])MoPa(Š)GoP'a(Ϡ)GoPa()G"oP\M'],]נҠ1]86oP@p(@p()\]]Ϡծî̮î])oP\oPde\]]Ϡծî̮î]=de oPa(Ҡ)GoPa(Ҡ)G]]Š]2dededeƠ)G@p(Ӡ)\@p(Ҡ)\@p()\]]נŠҠ];de dedeMdedeM]]Ϡ]1oP @p()\@p(Ԡ)\ oP <@p()]̠Aa@E(ҭ)Fa@E(Ҡ)Ka@E(ɭӠ)Pa@E(Ҡ)U\D]ԠͺZ\]Ԡ_]d]Ϡi] nM od6?e pM qM rM;xPa(    eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-%eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` hH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8HL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUW17KT16130N26CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$2@CH639:1000:B$B$(C)::1:868:B$:D$;B$:1002C1(CV8):CZCVC18:1024128KCZ40C1CH:C(P):2--SOFTALK,DEC'81,P1572--BASIC SOLUTION 1A$,1):K(16384):K128āK175::K(0):130Q116383,0:KK176:K0K5300i11:868:K5ľK$:1"PRESS /LETTER/ YOU WISH TO";:K1B$"LOAD"1K2B$"LOCK"1K3B$"UNLOCK"1K4B$"DELETE":1B$;:K$::K$:K(K$)48 2,K2F AE 60 20 24 ED 20 2F AE 60 NADC3:20 BA BC ND823G"g1nI1(HEX$):511I,((HEX$,I,1))128::72,0q1x144s0 --DOS FREE SPACE PATCH>0--MARK PUMP & VAL J GOLDINGW0--CALL APPLE-SEP'8041dHEX$"BCBA:A2 0C 20 4A F9 A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 00 E0 C0 20 D0 07 20 1B E5 20   pH76Hh`EFHɍ$! L8預E & & &m0m1(e$&))' ' .'$2pI$Hp&&ݦEFhLHG h`HHh`HFE.==?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J:1:1:%1(863)76İ460:--ON+1F1&(863)76İ460:--OFFL10<<0N 0nD$(4),0x--SET UP FOR KEYPAD ENTRYB0D$;"BLOADNUMPAD"`0768::35,23:480:550:f0u0550:::0--KEYPAD TOGGLE08750--KEYPAD REPORT024:15:868:KP0:(863)76KP10"KEYPAD";::KPĺ"ON";:5200"OFF"; 1(30):0:500,3I$"2"Ċ1:(29):0:500P3I$"3"Ċ1:(30);(31):0:500Y334032000:5:"YOUR PRINTER IS READY FOR USE"3X11500:X:93633--GET$ SUBROUTINE3I$34936:(23):"** PRINTER FORMATTING PROGRAM **":Ċ1:(27);(66):0:340<2@I$"2"Ċ1:(27);(65):0:340E2J260K2OU2T2000w2^5:"--SELECT PRINT SIZE--":2h"1) NORMAL (10.0 CPI)"2r"2) CONDENSED (16.5 CPI)"2|"3) DOUBLE NORMAL ( 5.0 CPI)"210003I$"1"Ċ1:S PER INCH--":*1"1) 6 LINES PER INCH"E1"2) 8 LINES PER INCH"O11000s1I$"1"Ċ1:(27);(54):0:2601I$"2"Ċ1:(27);(56):0:26011801200015:"--ENTER PAPER WIDTH--"1"1) NARROW"1""2) WIDE"1,100026I$"1" 0d2000+0n3:"---SET FORM LENGTH---"0x"0= 3.0 IN","5= 7.0 IN","1= 3.5 IN","6= 8.0 IN","2= 4.0 IN","7=11.0 IN","3= 5.0 IN","8=12.0 IN","4= 6.0 IN","9=14.0 IN"0:0"--- TAP 'RETURN' TO CONTINUE ---"010000200014:"--SET LINE  ":*:<"">""$$$$""$$$$$>>><2"<""">""" """  "~"6**""""&*2"""""""""""""*,"" "" ">"""""""""""***6""""""""> > "> >>* (*&&22 *,**>> "2*&" " >  >> ""> """"""<  >> "   ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`L1003--ERROR HANDLING(3"BOO(222)=3,D$;"CLOSE ";NF$M36BOO5ī260s3@"ERROR NUMBER ";BOO;" OCCURRED."y3J3T--(C) 1981 BY TOM GABRIELE A2VC96VC123C$(VC32)E2L$L$C$:--APPEND NEW CHAR TO LINE_2150:--GET NEXT CHAR2R$;D$:--SEE PG 54 OF DOS MANUAL2CA$;L$:--OUTPUT LINE TO CRT2130:--GET NEXT LINE2--NORMAL PROGRAM FINISH2"NORMAL EOF DETECTED."3)1xD$;"OPEN ";NF$:--ACCESS NAMED FILEY1D$;"READ ";NF$:--PREPARE FILE FOR READING1L$"":--INITIALIZE LINE TO NULL STRING1C$:--GET ONE CHARACTER FROM FILE.1C$R$220:--IF CR, END LINE1--CONVERT LOWER TO UPPER CASE1VC(C$) 0 *****0-- READ APPLE TEXT FILES>0-- R.A.T. BY V0#-- TOM GABRIELE`0(****z02--INITIALIZE CONTROL0<2900FD$(4)0PR$(13):--CR0ZCA$(1):--CTRL-A0d"DISK FILE NAME? ";NF$:--GET FILENAME TO BE READ.1nNF$""Ā 0 9360"SCREEN ONLY"%01?0("SCREEN AND PRINTER"K02" 80N"_0<"PRINTER ONLY"k0A" 40N"r0F0}0P"END"0Z svy||yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR  .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&    eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LA$1KA1P(A$,1)"Y"Ą"BINARY FILE NAME: ";F$:D$;"BLOAD"F$b1Z"NAME FOR OUTPUT FILE: ";F$~1dL(43636)256(43617)1nA(43634)256(43635)1xD$;"BSAVE"F$;",A";A;",L";L,0 --THIS PROGRAM DOES A "BSAVE"V0--USING THE ADDRESS AND LENGTHt0--FROM THE LAST "BLOAD".0(--RAUL CARTAYA, 2NOV'800---NIBBLE, V2/#4, P 7302--LOAD BINARY AFTER THIS.0<D$(4)1F"HAS BINARY BEEN LOADED (Y/N): ";:"PRESS ANY KEY TO CONTINUE":A$16JI1:II2076Z6 --CHANGE TO ASCII AND DISPLAYg6 Y(SE)u6 H(Y16)6 UY16H6 H10ĺH;:30606 (H55);6 U10ĺU:30806 (U55)6 D16MN5.45--SUBROUTINE TO DISPLAY PROGRAMR5:"HERE IS YOUR PROGRAM"X5e5J0:I195((B1)20)12090,2080,2070,2060,2050522005 2200522005 22005*IB1:22005455EJI5SE;2);:30005E 6"ANY OTHER CHANGES (YES OR NO)?";C$:4(C$,1)"Y"ī420Y4--EXECUTE THE A/L PROGRAMy4"PRESS ANY KEY TO RUN":A$4 S44--CONVERT HEX TO DECIMAL4M(H$):N(U$)4M57MM55:10404MM484N57NN55:10604NN48 5$57(H$)65)ĺ"1ST DIGIT NOT HEX-TRY AGAIN":4603(U$)48(U$)70((U$)57(U$)65)ĺ"2ND DIGIT NOT HEX-TRY AGAIN":460310003AD,D3X--CHECK FOR MORE CHANGES3b"ANY OTHER CHANGES (YES OR NO)?";C$3l(C$,1)"Y"ī4203v2000$4 210002A,D2"AA1#2,ER2--PRINT A/L PROGRAM AND CHECK FOR CHANGES\220002"IF ANY CHANGES-TYPE ADDRESS"2"IF NONE-TYPE '99'"2AD2AD997002AD;2"DATA = ?";2H$:H$;2U$:U$13(H$)48(H$)70((H$)S11--ENTER PROGRAM IN HEX--CONVERT TO DECIMAL<1E1BH1A;2);U1H$:H$;a1U$:U$1(H$)48(H$)70((H$)57(H$)65)ĺ"1ST DIGIT NOT HEX-TRY AGAIN":2201(U$)48(U$)70((U$)57(U$)65)ĺ"2ND DIGIT NOT HEX-TRY AGAIN":2200 --BASIC OPERATING SYSTEM=0--APPLE MACHINE LANGUAGE[0--DON INMAN & KURT INMANk0(--PP 31-440d--GET MACHINE LANG. INFO.0n0x"STARTING ADDRESS FOR A/L = ?";S0"HOW MANY BYTES ?";B0"TAP 'RETURN' TO ENTER PROGRAM ";A$1A  **L>   <"<&"""" ,2""<">$,2"< &"""  "   ****&""""""""<""< &< $"""2,""****"""""< >>***6>>**>>*  *|@HD~6>>*]II*$*.((>AIkUUU*>>>""<""( 8 >""6***""I***>"">  .< LR"RL   `%\DUVW/?rYYd2e?a()Gd2e(Y[] ]ϭԠ͠W`%N@"rqq"\nc]֤͠ƠԠԠͧĠĠԠҤMqʠϠĠƠԠPv@Brp@*#rq]ˠԠĠ͠Өũ7`;@r$]ƠӠΠ׬ΠϠ6`.?$r;@r%%\:]ƠĠΧԠԬeUVW;@rd2e?a@*#rGd2eYL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00l  . $ ; &?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&IBLOD(MEMSIZE1):I0 j0d:4:"ENTER BINARY FILE NAME TO BLOAD":FILE$:(4)"BLOAD"FILE$:MEMSIZE(((978)13)256)1140n200:STLOBLODHIBLOD256:MEMSIZEMEMSIZE18:200:LNGLOBLODHIBLOD2560x:"(START ADR= ";ST;") (LENGTH= ";LNG;")":1LOBLOD(MEMSIZE):H  <]Ŭ P@p()da@E(Πìɬ)a@E(ſ)Ma@E(),q.?r.?r a(Ӻ)FE(Ŭ)GbE()S(Ԡ˿)&@_%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)   : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɪQ ʎ`8`HH Uɪ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # ? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɪQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɪదɬUɪ̢ʎ!  : Lm  ɛhhL%H% h%L ,  `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; `  ɱɸ" L; )   ɱɳ# L_ )`   ɱɸ" L )  ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! , и` X$i( " X ,  CLOSE"2D$"EXECLIST."NAME$"E$:"LOAD";NAME$1nDL$"DELETELIST.":TXT$":TEXT:DEL0,0:END":CMD$":HOME:POKE33,33:LIST1-:":CH$"?CHR$(4)":PT$"?":C$":":Q$(34):ZERO$" 0 "CH$Q$OP$FILE$Q$C$CH$Q$WR$FILE$Q$CMD$CH$Q$CL$Q$C$CH$Q$DL$NAME$Q$TXT$2xZERO$:"RUN":D$" 0 --COMPARE CAPTURER.0--VAL J GOLDINGC0--APPLE ORCHARDV0(--SPRING 1981b02--PG221dD$(13)(4):OP$"OPEN":WR$"WRITE":CL$"CLOSE":" PROGRAM NAME TO CREATE TEXTFILE FROM ?";NAME$:FILE$NAME$".T":D$;OP$"LIST."NAME$;D$;WR$"LIST."NAME   A`@`[ 8 Đ`.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/:z:XX$O1$:2500*::XX$"AND":2500>::XX$N1$:2500w::36,4040(PR0)(10(DT$)):"PREPARED: "DT$:150: 36,(2020(PR0))(XX$)2:XX$: D NAME OF THE NEW VERSION?"/9 N1$:N$N1$".T"S9%:"WHAT IS TODAY'S DATE? ";DT$a9*::1000j94:99>PRĺ"MAKE SURE THE PRINTER IS READY, THEN"9H" TAP (RETURN) TO RUN ";XX$9R:9\11009fXX$"**** COMPARISON OF ****":p2500- SIONS OF A PROGRAM AND PRODUCE A LIST OFTHE DIFFERENCES BETWEEN THEM. ";8"BOTH PROGRAMS MUST BE IN TEXT FILES; USE THE PROGRAM "(34)"COMPARE CAPTURER."(34)8 :"WHAT IS THE NAME OF THE OLD VERSION?"8O1$:O$O1$".T"9:"WHAT IS THE)"C"PR0:LL30::7"ENTER PRINTER SLOT OR CALL ";PR:E7LPRıo7VPR8ĺD$"PR#";PR:(9);(26):LL70:7`PR:(26):LL70::7:::7TI$" PROGRAM COMPARER "720(TI$)2::TI$:7:K8" THIS PROGRAM WILL COMPARE TWO VERDELETED:";:J$OS$:310A6R210::"DELETED:";:J$OS$:310:850:6--ASSUME END OF DATA ERROR IN LAST FILE AND END PROGRAM6:"END OF COMPARISONS":D$"CLOSE"D$"PR#0"::6--PRINTER SUBROUTINES6"PRINTER OR CRT? ";:PR$:PR$7(PR$,1310:260:410:5 --WHEN ONE FILE IS EX- HAUSTD, DETERMINE WHICH AND INDICATE REMAINDER OF OTHER "ADDED" OR "DELETED", AS CASE MAY BE5*X(218)(219)256:216,0:91054X2308405>260::"ADDED:";:J$NS$:310:8306H(OS$)(NS$)ĺ:"OLD LINE NUMBER < NEW LINE NUMBER THEN OLD LINE IS DELETED; FETCH NEXT OLD LINE4b(OS$)(NS$)ĺ:"DELETED ";:J$OS$:310:210:410:4--IF NONE OF THE ABOVE, THEN THE NEW LINE IS ADDED. PRINT "ADDED" AND FETCH NEW LINE5" ADDED ";:J$NS$:AND CONTENTS AGREE, THENIGNORE?3(OS$)(NS$)OS$NS$350:3-IF LINE NUMBERS ARE THESAME BUT CONTENTS DIFFER, THEN PRINT "CHANGED" AND GETNEXT STATEMENT3(OS$)(NS$)OS$NS$ĺ:"CHANGED ";:J$OS$:310:"TO ";:J$NS$:310:350:S4X--IF NT WITH A LINE LENGTH OF LL'26II0]2@IOII1:IIIILL:36,9:(J$,IO,LL):II(J$)320c2J~2TD$"OPEN"O$;D$"OPEN"N$2^210:260:2c(OS$,1)(13)OS$(OS$,(OS$)1)2h(NS$,1)(13)NS$(NS$,(NS$)1)3--IF BOTH STATEMENT NUM-BER THE OLD FILE'1OS$"":D$;"READ ";O$_1A$:A$(13)(OS$)0ĭ(OS$)255OS$OS$A$:220e11--GETS STATEMENT FROM THE NEW FILE1NS$"":D$;"READ ";N$1A$:A$(13)(NS$)0ĭ(NS$)255NS$NS$A$:27012,--PRINTS A STATEME 0 --APPLE ORCHARD)0--SPRING 198180--PP22-25P0d--COMPARE PROGRAMS_0f--ROUTINEz0h--BY CHARLES G. BOODY0j--ADAPTED BY0l--DAVID W. WALKER0nD$(13)(4):D$"NOMONCIO"0x200008100340: 1--GETS STATEMENT FROM     s0 $%&' ( ) * +L`LVLVLVLVLdLdLdLd0 L0 LĠӠŠΠӮŠ̠ŠĠƠͮt&to.?%ra(Š)E@Gq 8qP`.?.?)r.?(r.?$rr<()r$h]˨˨˨ӠŠӠƠŠ̠Π\c]ԠǠϠŠŠΠ͠ՠׯϠ<a(Ҡ)E@E()E@E(ŠǠŠҬ)4a(ĠӠŠ)E@E()E@E(ٮ).a(ŬϠԠŠϭͺҮ)k_]ǠŠ̠Ş̌êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠŠӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK4B$"DELETE":/2B$;:198::K$:K(K$)48D2,K17KT1613026CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$2@CH639:1000:B$B$(C):CH:1:868:B$:D$;B$:1002C1(CV8):C2CVC18:P1024128C240C1CH:C(P):R4 EXIT=5...."e1B$"RUN":1:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):130116368,0:KK176:K1K530011:868:K5Ā1" PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD"1K2B$"LOCK"1K3B$"UNLOCK"2K0 --APPLESOFT CATALOGER>0--CREAT. COMPUT. SEP'80,P178p0d::D$(4):D$"CATALOG":B(37)2:B22B220nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCV 1xCV:24:A$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=   qr    Gƴ=ȴ ȴ)  ƴ LH`紅D贅E B ƴ  ͝ 0 ɛ`HDERE? Y/";::"N";::" ";:A$:A dA$"Y"MAXN1:N105::2000g n23:958:34,2:35,21::35,24:s 60:X0 N1105 (NA$(N),8,1)"="N105:2000 ((NA$(N),8,1))652000 ((NA$(N),8,1))942000 XX1 A$(X)(NA$(N),8,3+ ::12:12:"ALIGNING MEMORY":63000AY140:"=";::Y:X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:20:22:20:34,1:2:P33,21:32,19:2:1::U33,40:32,0:23:1:: Z85:23:"IS YOUR PROGRAM LISTED H  !!"ANE THAT WILL GOTO THE SECOND LINE OF THE LINES CREATED BY THE EXEC FILE."8:"NOTE: A$ IS THE NAME OF THE STRING USEDIN THE EXEC FILE, AND MAY EASILY BE CHANGED. LINE NUMBERS IN THE EXEC FILE WILL BE INCREMENTED BY 10.":150:88"TO USE THIS UTILITY:"::" 1. BLOAD YOUR MACHINE LANGUAGE ROUTINE INTO MEMORY BY ENTERING THE FILE NAME."::" 2. ENTER THE STARTING LINE NUMBER TO BE USED BY THE EXEC FILE."O8:" 3. EXEC THE NEWLY CREATED FILE INTO YOUR PROGRAM AND ENTER A LIEXT FILE CONTAINING THIS ROUT- INE, THEN EXEC THE FILE INTO A PROGRAM."::6"THE PRESENT PROGRAM WILL LIKEWISE CREATEA TEXT FILE CONTAINING THE LINES NEEDED TO EXECUTE THE LAM ROUTINE, AS WELL AS STORE THE STRINGS THAT IT REQUIRES.":1507::6:5:"S. H. LAM ROUTINE UTILITY"::"THE LAM ROUTINE IS A WAY OF STORING A MACHINE LANGUAGE ROUTINE INTO MEMORY FROM INTEGER BASIC OR APPLESOFT. SEE ARTICLE "Q$"HIDING OUT IN BASIC"Q$" IN"K6"THE JUNE '79 CALL -A.P.P.L.E. YOU COULDWRITE A T:X$X$HEX$" ":LL3:L100490K4X$X$Q$":GOSUB"SUB$":CALL-144":X$\4ADD4A25004LINELINE10:IADDR1:130:X$(LINE)" A$= "Q$HEX$:1404:X$X$HEX$":":L(X$)4ADDR:X$X$Q$":GOSUB"SUB$":CALL-144"::X$5D$;"CLOSE";FILE$:1$HEX$/3X$LINE$" A$= "Q$A1$":":L(X$)Q3D$"OPEN"FILE$;D$"WRITE"FILE$3RT$Q$"ND823G"Q$:" "SUB$;" A$=A$+"RT$": FOR I = 1 TO LEN (A$): POKE 511 + I, ASC ( MID$ (A$,I,1)) + 128: NEXT : POKE 72,0: RETURN " 4ADDRA1A2::BYTE(ADDR):120(MEMAD)(MEMAD1)256:MEMADMEMEA18:A2A1((MEMAD)(MEMAD1)256)28:"BINARY FILE NAME? ";FILE$:10:"BEGINNING LINE#? ";LINE$:SUB$LINE$:LINE(LINE$)10:LINE$(LINE)2D$"BLOAD"FILE$:FILE$FILE$".T"3ADDRA2:IA1:130:A1$HEX$:140:A1$A1BYTE(I256):120:41BYTEI256BYTE:120:j1:::8:" TAP ANY KEY TO CONTINUE "::756::1"0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F":I116:HD$(I):IE2MEMSIZ(978):MEMSIZ(MESIZ13)256:MEMADMEMSIZ114:A1!0 --S.H. LAM ROUTINE UTILITY80--BY LEE REYNOLDS]0--CALL -A.P.P.L.E. STAFF WRITERr0(--APPLE ORCHARD02--SPRING '81, PG 280dHD$(16):D$(13)(4):Q$(34)0n700:2001xJ(BYTE16):HEX$HD$(J1):JBYTE16J:HEX$HEX$HD$(J1)::::      "67`H ,I)8h(L ͠ؠϠ٬Šؽ٠ҠԠ+`.?%r$ ]Ԡ̠ŠӠqPd2e?a(ӠŠҠҠԠŬ)Pa(Ӡ)E@E()E@E(٠Ϡ̠)d2e,d6?e]ԠҠĠԠoq.?6@r`qqt\qqu\Q\ñq.?ròq.?r8ñrdQñ8òr8ò8òrre[tuV]ŠҢҠΠŠĠϠԠ̢ӠϠҠàͮAq]נǠĠԠ®ŠĠΠؠĠ٠ԠנҠԠŠGq.?6@rd6?e`$]Ơâ٠ԠΠ̠ ]̠ԠҠM_]ŠǠҢҠӠŠӠ ĠӠϠҠ/Ϡ֤Rq]ԠϮz]ԠƠԠЪUVW@`$q_]Ơ٠ԠҠΠРjq.?%r]ΠԠج٢ԠӬ٠ŠҠƠؠӠȠŠӠΠԠΠU]˨ҾΠήӠͮϠŠҮҠԠͮl4`@*#r:()@*#r:()@*#r:()@*#r:()$ M6]נҠ<>`;@r%@p(Ԡ)@p@*r]ƠԢԠ͠H\x]Ԡ֠ٮ)7a(ϠԠ͠׬Ӡ)E@E()E@c S()&@!`;@r$*]ҠӠ`;@r%_C UVW;@r`@*#r9()%Y@p@*r]ŠǠ`;@r$4 a(ɠΧԠ)c_U*`%[Q]ƠΠ٠ƠŠp]ŠŠŠӠҠŠӠҠϠŠǠҠϠΨةΠΠBa@E(ĠӠ)E@E()E@]ŠƠ<a(Ϡ̠ǬӠŠ)E@E()E@E(X TO END->";A$:A$"X"ĉ::4 A(A$):AMAX2010? A1ĬW T(A)66T$"BRUN "o T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) "X138:B$B$"=": ,X1050) T(X)((NA$(N),2,1))0 X20İ30:2000H X20X58X96İ80\ X39İ40:2000o $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:2000 L40  MAXX 85:34,22 23:958 "SELECT A FILE BY NUMBER (~    H@<=>?L! Ș 0 L```_8AeC@BB@@BBBABA8ejlg@hA@ @@A@ȱ@ȱ@ȩ@@BACȄ @8e@@@AȦ @L'd ȱ@ȱ@/8ȥ0qȥq BȩB! ! "67`HHH ȘhhhL!(^]٠ǠŠǠź5h\qq@p(Ϭ)\XQ&r]ԠӠ̠ŠӠϠǠԮ|]ŠȠҮǮ^_,_]̠̠ӠԠŠΠŠŠԠǮҠҠΠ*ŠǠҠŠS@\X]ŠԭԠƠŠҠŠĠΠӨũ3J]ϠԠŠƠǠĬŠĽZT]ϠԠҠάԠ٢ϠҬ٠Ġ%q6[]ƠӠΠĠΠŠ ]נϠŠԠǮW]ŠŠŠŠӠĠϠӠՠĠҠҠŮ!,\]ŠԠS6\:]̠ŠԠũ ĠϠ;` 8 <@*rr<()rr$a()_K]Ơ̠֠ĠĠ ͩԠĠΠN`<@*rr<()r%q <()r<@*rr]̠ŠΠ$Y]Р̠ŠϮ;`@r]Ԡr`@*#r:()$q_]ƠӠΠӠĬԠǠϠŠĠҠϠԠΠƠK`<@*rr<()r<@*rr<()r<@*rr<()r$a()_3]ƠέìΠҬԠΠĠˠҠ x]Ҡ̨ةΠ6`%N@"rq]Ơ֤ԠͧĬ͠.qq`;@r%[]Ԡ `@9()%[HUVW;@r`@*#r9()%Y@p@*r]ŠǠ`;@r%[UVW;$d6?e`S%Q`$M6P]ˠĠĠР̠٠Ӡ@]ӠԠĠŠҠǠŭ@ `d$]ƠР̠ĠΠˠ.Y_]Ԡ̠ŠΠ11:NAME$(X)B$:) 6NAME$(0)(B$,19)5 @D$(4)` E12:12::"READING CATALOG"::12:29| JX768816:X%:X,X%:X% T169,34,141,83,170,169,3,141,84,170,169,45,141,85,170,169,3,141,86,170,160,8,177,107,141,38,3,200,177,107,141,39,3,96,234,41,12 l ȩ   H <=>?L"(11):P0$*1ZP1$((1)):(3):(11):P1$D1d(2):(35):868:X0$^1n(3):(35):868:X1$f1x50Xg 0 9360(2)C0"PDL '0' = ";:(21):"PSHBTN '0' IS ";X0$r0("PDL '1' = ";:(21):"PSHBTN '1' IS ";X1$02X0$"OFF":X1$"OFF"0<(16287)128X0$"ON"0F(16286)128X1$"ON"0K(2):(11):" ":(3):(11):" " 1PP0$((0)):(2):" " rdBedCede.?>rde.??rM6_LL@LHLi8><?=L-ʍ6ȱʍ7BʥC˭< = ,8顅BʥC˩<=8>? ,L/L6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<r""