L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`e<@*rrYdHeM6@[Gr@p(ų±ø±)[;@p(ųĹ°Ġ)[a@E()_S!(#UVW;@rde<@*rrY2#dHeM6<#[!]ӠϠحŠ]ر]Lرq.?rq.?r~[F]ŠŠŠϠ٬ӠϠӠȠ͠ N@"PrF\r\x@p()\\x[x@B;@rrp(ΠŸ)UVW;@rd$ q[],]ԠҠ٠^]a(Ԡ٠٠Ϡ) d6?e `.?6@r$d6?e[&] X]­ԠجرϠ]à]dedeر [R]] ԠؠϠƠԠqqq\&`$j8a(ĠҠӽ)FQjUV WX#UVW;@r`<@*rr.?r$dY.2UV;@rW`.?r$dY[dY!q.?r`]Y[]#]ŠŠŠŠϠƤJ]|]ΠŠ]qUVWDde.?rYvde.?r[] ]ĠƤΠ>]!p] ҠƠԠ٠]$`$q\J_a@E()Q*]\]]$]ŠƤϠŠŠ]$]ƠŠV]qUVW;@rde<@*rrYUV;@rWPde]\]ԠԠde-r$6q\&]ŠԠ8hq.?rq.?rq\&]ԯӠ,q.? rq.? rqded e-r\]ŭŠԠ0Yb`@.S(ٯΩ)&@`@:()$03a@E(Š)E@8a(Ǡ)E@Bرqq-r\tq]ԠƠŠ$q-r]Ƞ`.?r%q$ a@E(Š)E@E()FE()F<]n]ŭŠԠՠŠϠҠ)G T `%_  q  @p(·͠Ÿ) \(# _  q @p(·͠Ÿ) \(# UVW \J]Ƥ\]ĠΠ`$8$a(Šź)E]Ġ `$  qq_  -rqq" q-r(T a(κ)F-rE(ź)E@ Y q  ] ]ԠϠ٠H ] z a(Ԡ٠)\- cca(̠)$ q`;@r$4 q6q_ 4\]ĠΠf`$a(ŠԠ)_l-rq.?r \V]ŠŠ -rq)( qq`$ Z \ q.cca(̠ՠĠ͠Ҡ)GT`%_' q @p(·͠Ÿ)!\(#"_: 'q(@p(·͠Ÿ)+\(#:UVW Sccl`%a(ŠϠź)mR@q`@9(qqFMxq.?rرq.?r\ q*q.?rرq.?rqرq\ q%@q8Jr]Šrq.?r)a(ŠŠŠҠ)"a(ԠҠ)\ edede d eRdeMq.? r`%[>a(ɯϠҠӽ)Fa(˽)FE(ҽ)FQL]~]Π]q.?Jr.?Krq ŠŠ]ͮ] KM6,]Š 6q]ԠŠԠ^N@"r]ԠŠĠҮO4 rD4 rD4 r@p()]̭\_L&]įŠX]ded$2q.?rq.?r4`%[6ded e8q\:q<q>`$B@q6[BY$Dq.?rq.?rF`$,J[ d]Š%]ҠŠƠԠƠ$]ӠؠƠӠϠ ]Ժ ]ԠƠӠ]ŠϠ] ] (q *q.?rq.?r ,q.\&]ĠԯӠ0UV WX8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  L  _d ]ŠǠ] ]Ժ"] ҠƠǠұVDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEEh Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ;;;<<====>>>????,,(8,01,(8,01,(8,,1*( ,,1*( 1,,*" 1,,*" 11,,"&&'(((())***,,.000011112223444556 88889 : << >!"*(+3511$ %""+ "#3 3330##+#,,$$ 02<=-.,8ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?*(((24?949:4<  %%&&'''))*++++,,----...////23334556667777999:::;ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌췩 緍i 8 `巬 췌`x (`(8`I`B` ` `>J>J>VU)?`8'x0|&HhHh Ki K ,KLHhG04Hh$Hh e- GLAA# GȄGL@L)L'HJJ݌h Hhꝍ݌``Lݥcpq` [` ~  L鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍x$50x.$50xLJJJJ`HHjf5 {h $50x`xA JPG'K݌$HhHhꝍ݌KGHhHhꝍ݌ ʿ ˿ ˿/ A K /EAEKHJJ݌h ʿ ˿ ˿ ˿ ˿F HhHh݌FG$jf5    HIHHHHhHH݌hHh݌H6 HHH(                        ') + &д +`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>     ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')̻>JJJ >`*xY+&x'8*BIxix&&  x) +z#Xճ  ٠ӠԠ ٠ӠԮؠ ! ٠Ҡ"٠ŠŠ% ˠϠŠЮؠˠϠŠЮ٠ ˠϠŠŠ ˠϠŠŠ֠ˠϠŠŠРıIJҠ٠٠ŠŠ ٠ԠŠɠ٠ԠŠɠ٠٠Š ٠ŠŠ٠ԠŠˠϠŠȠ ˠϠŠР ٠ ٠ ٠Ӡ٠Ӯؠ Ѡ ѠӠ ٠ԠŠɠ̠Ϡ ̠Ϯà!٠Ƞ  ٠Ƞ  ٠Ƞ٠٠Š ٠٠Š@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpd@p()qN@"rD42rD42r@p()]Ĥ̩Ģna@E(Πìɬ)KM6?sd"eM6S(ԠҠĠԠΧ)&@KM6>xͷedede ded e]d eid ed ed e`dededeidedede]dededeide@dededededede](deded e !]ˠϠˠҠ!]ҠҠà!]٠ΠȠj]ŠҠӠϠˠՠŠǠ͠ŠŠӠϠˠՠŠǠ] de8deHdededed   P*U*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U``@P*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U`@1@P*L3O?NsOsLgyg9U`~P*U*U*U*U*U*U*U*U*U*U*U``P*?`<P*U*U*U*U**U*U*U*U*U``P*y|?&bDvM6a(͠)FGS()'`$`$v-rqqԠϠŠήM6o,qUVW8.?r.?rrX&W]ȠŠǠӠԠŠԠԠŠԠΧԠԠ̠`.?r<()r$ -rq bE()G` %a()GqUVWd ]ԠŠŠϠɯϠӠΠ;Ja@E(Ǡ)FE()F]ŠǠԠϠWTa@E(ң)a@E(Σ)]ԠŠŠ͠͠ɯϠӠΠ^Ѱqѱq:]ŠǠӠΠٮנoPa(ԠҠĠ٠Ӯ)7oS(ӠçϠԠΩϠ)&@`@:()$ ,KM6Z6dedede.?6rde.?7rq ]ͫΠƠŠâ]@d6ed7ed8ed9eMM6(oPa(٠Ӡ)4oP S(ҠԺ)'`$4oP S(Ҡź)'`$3o P S(٠Ժ)'`$3o P S(٠ź)'`$.]ӠΠŠϠҠŠŠ͠`]Ӡ٠ǠϠٮӠԠ٠ŠĠǠϠӮH]ԠӠΠŠӠŠԠӠŠa@E(Πìɬ) Kedeidedededefdedeide@dedededededededefd ehd!ed"ed#e`d$ed%ed&ed'ed(ed)ed*e`@ Qdq@p()q.?Jr.?KrN@"rD42rD42r@p()]Ĥ̩Ģnd e@p@]Ѥ]xde8deHdededededede ded efd eid ed ed e`ded YC de.?Lrde.?Mr]٠Ԡ͠ϠŠ7*dLe.?rdMe.?r]Š˭ˠ4KM6a@E()Qd!ed eM6[ҠĠԠΧ)&@Ga@E(ΠŬ̳)a@E(ĠŬ)F--rrR@a@"a@E(Ġ)E@*#;@rrE(ְ)MM6S(ԠŠĠԠΧ)&@a@E(Š)E@*#;@rrE(ְ)4o88-rrrP-rb-roM6d7de.?Lrde.?Mr]ŠĠ͠5dLe.?rdMe.?r]Š˭ˠlUVWo88-rrrP-rd2e?b-rd2eoP M6dbE(Ơ)F5M6`%S(ԠPa@*#r`%\-rqq&Ya@E(Š)XKd"ed3e`bS(נ٠Ӡ)'`$boa(ҠӠ٠)UVWIlM6a(͠)FGS()'`$l-rqYЮ̮Ů˭ˠҠ)qd"eM6;a@E(ΠŬ̳)a@E(ĠŬҰ)T+UVWa@E(ĠŬ)FR@\`@9()$&`@*#r9()@*#r9()@*#r9()<@r@*#r9()$&4bGΠƠĬѲӠȠƠ_ #ea@E(à) Q@p@*#;@rra() a()E@E(֬)FE()F]a()E@E@E()E@E(֬)FE()FE()E@E(˨)FѰE(˨)FѰE()Gga()E@E()E@E(˨)FѱE(˨)FѱE()]ѰӠԠͿ@p@*#;@rrha(Ġ)E@E(֬)FE()Fa(Š)E@E(֬)FE()F]Ϡ̠ĢӮŧŠǠϠŮY` a()a(̭)a(Ǡ)FE()Fa(Ŭ֬)FE()Fa@E()5KM6d!edE(Š)O]נŠנԠӠŠŠǬԧŠ͠ΠԠ_UVWq--rrUVW$d8re.?rY]ͫӠΠƠŠd8re1`@*#r9()$]ӠԠd!ed eM6oYXKd"e bq4loa(Ҡ͠٠ҺϠԩ)>vM6a(͠)FGS()'`$`$v-rqq_vNa@E(Š)a@E(Π)a@X&W]ȠŠǠӠԠŠԠԠŠԠΧԠԠ̠`.?r<()r$ -rq bE()G` %a()GqUVWd e.?ra@GYc$]ͫΠƠŠ¤0`.?%r$E()F]ŠǠԠϠWTa@E(ң)a@E(Σ)]ԠŠŠ͠͠ɯϠӠΠ^Ѱqѱq :]ŠǠӠΠٮנԠԠϠŠήM6o,qUVW8.?r.?rrԠΩϠ)&@`@:()$ ,KM6Z6dedede.?6rde.?7rq ]ͫΠƠŠâ]@dedede(de]ԠŠŠϠɯϠӠΠ;Ja@E(Ǡ)Fͺ)'`$4oP S(Ҡź)'`$4o P S(ŠԺ)'`$4o P S(Šź)'`$/oPa(ԠҠĠŠӮ)7oS(ӠçϠӠ٠ǠϠٮӠԠ٠ŠĠǠϠӮH]ԠӠΠŠӠŠԠӠŠa@E(Πìɬ) KM6(oPa(٠Ӡ)4oP S(ҠԷe@dedededededededefd ehd!ed"ed#e`d$ed%ed&ed'ed(ed)ed*e`@]ӠΠŠϠҠŠŠ͠`]Ң̩Ģnd e@p@]Ѥ]xde8deHdededededede ded efd eid ed ed e`dededeidedededefdedeid) " ]ˠϠˠҠ]٠Π]ΠҠE(]Ӡ̠͠ҠҬԠҠ٠(2]̠Ŭ̮Ϯ٠Qdq@p()q.?Jr.?KrN@"rD42rD42r@p()]Ĥ    (˨)FѰE()Gga()E@E()E@E(˨)FѱE(˨)FѱE()]ѰӠΠƠĬѲӠȠƠ_ a(Ǡ)FE()Fa(Ŭ֬)FE()Fa@E()5KM6d!ed#ea@E(à) Q@p@*#;@rra() a()E@E(֬)FE()F]a()E@E@E()E@E(֬)FE()FE()E@E(˨)FѰE%R@ q`;@r$4 q6q_ 4\]ĠΠf`$>a(ŠԠ)UVWYM6a()_?-rq.?r \V]ŠŠ -rq)( qqq\ q%@q8Jr]Šrq.?r)a(ŠŠŠҠ)"a(ԠҠ)\a(Ǭı)q:UVW  ;q!?`%o `%Pl`r`%[>a(ɯϠҠӽ)Fa(˽)FE(ҽ)FQL]~]Π]q.?Jr.?Krq qqFMxq.?rرq.?r\ q*q.?rرq.?rqر]ԠŠĠҮO4 rD4 rD4 r@p()]̭\_L&]įŠX]ded ededede d eRdeMq.? <q>`$B@q6[BY$Dq.?rq.?rF`$,J[ d]ŠŠŠ]ͮ] KM6,]Š 6q]ԠŠԠ^N@"r]ŠϠ] ] (q *q.?rq.?r ,q.\&]ĠԯӠ0UV WX$2q.?rq.?r4`%[6ded e8q\:q^]ǭ]Π٠_d ] ]ŠǠ] ]Ժ"] ҠƠǠ%]ҠŠƠԠƠ$]ӠؠƠӠϠ ]Ժ ]ԠƠӠ     Q cS(ҠנŠ)&@[ N N@"r_d"]Ӡ͠ӠΠĠ]ĠϠנŠ]Ӡ٠ؠͮϮ ŠŠٯΩ)&@`@9()%\Ccd2e?a(ŠӠԠΠΠ٠)PR@ d2e&a@E()E@E()FE()FE(ְ)/S(ҠˠéǠũĠ)&@'`@9()$`@9()%a@E()Q`@9()$9()$do S(ŠŠ)&@n@p()]̠ħxa@E(Ġ)E@q.?6Ur.?6Urq.?6Ur.?6Ur%o d2e?UVWxa()GY6o Pa(Ԡ)FGa(Ԡ)Fd2e7ocS(ϠՠȠϠ   N@"r (KM6<M6UVWxa()GY3FoPa(٠ŠҠ)M6|)KoP S(ˠǠٯΩ)&@(L`@9()%a@E()`@:()$PQ3PoPS(ӠŠנؠٯΩ)&@Z`@     N@"rC@" r d@p()nS(Šź)&@xa@E(Ġ)E@q.?6Urرq.?6Urq.?6Urٱq.?6Ura(Š)S(ԠΠΠ)&@!qرqٱM6(a@E()E@E()FE()FE(ְ),Q deMq.? r`%[>a(ɯϠҠӽ)Fa(˽)FE(ҽ)FQL]~]Π]q.?Jr.?Krq qqFMxq.?rرq.?r\ Š 6q]ԠŠԠ^N@"r]ԠŠĠҮO4 rD4 rD4 r@p()]̭\_L&]įŠX]ded edede d eRed e8q\:q<q>`$B@q6[BY$Dq.?rq.?rF`$,J[ d]ŠŠŠ]ͮ] KM6,]ӠϠ ]Ժ ]ԠƠӠ]ŠϠ] ] (q *q.?rq.?r ,q.\&]ĠԯӠ0UV WX$2q.?rq.?r4`%[6d´]ǭ]Π٠]Ġ٠ˠ]Πέ_d ] ]ŠǠ] ]Ժ"] ҠƠǠ%]ҠŠƠԠƠ$]ӠؠƠ     ±ø±)[;@p(ųĹ°Ġ)[ rq.?r~[F]ŠŠŠϠ٬ӠϠӠȠ͠ N@"PrF\r\x@p()\\x[x@B;@rrp(ΠŸ)UVW;@rde<@*rrYdHeM6@[Gr@p(ųϠ) d6?e `.?6@r$d6?e[&] X]­ԠجرϠ]à]dedeر [R]] Ԡؠ!]ӠϠحŠ]ر]Lرq.?ĠҠӽ)FQjUV WX#UVW;@r`<@*rr.?r$dY.2UV;@rW`.?r$dY[dY!q.?r`$ q[],]ԠҠ٠^]a(Ԡ٠٠Š]qUVWDde.?rYvde.?r[] ]ĠƤΠ>]!p] ҠƠԠ٠]ϠƠԠqq q\&`$j8a(]\]]$]ŠƤϠŠŠ]$]ƠŠV]qUVW;@rde<@*rrYUV;@rWPde]Y[]#]ŠŠŠŠϠƤJ]|]ΠƠ8hq.?rq.?rq\&]ԯӠ,q.? rq.? rqded e-r\]ŭŠԠ0Yb`$`$q\J_a@E()Q*ԠƠŠ$q-r]Ƞ`.?r%q/ a@E(Š)E@E()FE()FE()F<]n]ŭŠԠ]\]ԠԠde-r36qq\&]ŠM6 z q UVW \J]Ƥ#a(נǠǠҠ)E@\]ĠΠ`$8$a(Šź)E@.S(ٯΩ)&@`@:()$03a@E(Š)E@E(IJ)8a(Ǡ)E@Bرqq-r\tq]`$ Z \ ]Ġ `$  qq_  -rqq" q-r$ d"eM6' oT a(ν)F-rE()E@ Y q  ] ]ԠϠ٠H ] R Kd7ɞLL  ȑ3L f X  * SHALL I USE AND HENCE OVERWRITERAM MEMORY USED BY APPLE DOS?   e8/ X * MASTERJJJJȱ JJJJ * COPY        a(Π٠Ӯ) QW;@rde<@*rrYdHeM6@[Gr@p(ų±ø±)[;@p(ųĹ°Ġ)[ Ԡؠ!]ӠϠحŠ]ر]Lرq.?rq.?r~[F]ŠŠŠϠ٬ӠϠӠȠ͠ N@"PrF\r\x@p()\\x[x@B;@rrp(ΠŸ)UV^]7a(Ԡ٠٠Ϡ)a(ӠϠԩ)c d6?e`.?6@r$`.?6@r$d6?eQd6?e[&] X]­ԠجرϠ]à]dedeر [R]] &`$j8a(ĠҠӽ)FQjUV WX#UVW;@r`<@*rr.?r$dY.2UV;@rW`.?r$dY[dY!q.?r`$ q[],]ԠҠ٠ϠƤJ]|]ΠŠ]qUVWDde.?rYvde.?r[] ]ĠƤΠ>]!p] ҠƠԠ٠]ϠƠԠqq q\a()\_R *]\]]$]ŠƤϠŠŠ]$]ƠŠV]qUVW;@rde<@*rrYUV;@rWPde]Y[]#]ŠŠŠŠԠ8hq.?rq.?rq\&]ԯӠ,q.? rq.? rqded e-r\]ŭŠԠ0Yb`$`$q\J_a@E()Bرqq-r\tq]ԠƠŠ$q-r]Ƞ`.?r%q$ a@E(Š)E@E()FE()F<]n]ŭŠԠ]\]ԠԠde-r$6q\&] ] ]ԠϠ٠H ] R KM6 z a(Ԡ٠)\ UVW \J]Ƥ\]ĠΠ`$8$a(Šź)E@.S(ٯΩ)&@`@:()$0$3a@E()E@a@E(Š)E@8a(Ǡ)E@ -rq)( qq`$ Z \ ]Ġ `$  qq_  -rqq" q-r$ d!e d e' PT a(κ)F-rE@ Y q `%o `%Pl`%R@ q`;@r$4 q6q_ 4\]ĠΠf`$>a(ŠԠ)UVWYM6a()_?-rq.?r \V]ŠŠq*q.?rرq.?rqرq\ q%@q8Jr]Šrq.?r)a(ŠŠŠҠ)"a(ԠҠ)\a()q:UVW <d!ed e!?ܰӠ)Г԰ԯ ...WRITINGL&_*_* ^*ɠ )] 3ɱɸ); `H9 0 % $7 hH(h`ͥĪ0$ҸPDQ - QUICK DISK COPY VERSION C S O U R C EDESTINATIONSLOTDRIV ..COPY COMPLETED..ERROR. COPY ABORTED ANOTHER COPY (Y/N) PRESS TO START COPYREADING... L5  R% $ | L]L; < < < ɝ' "% % #` i8/ 1 ' 1 >/ < % 췽' < ; ' L3 - ) 鷽+ 귽' 0 5  ' i9 % i7 5 )?   `dL $=  (`; 3H3 jh X 3 <  ) F A + ΠB<> =i?C ,% $ ɍ% ' 9 7  "#! X /췩뷩 % 0#:% $ + ) + ʩ% $ + ) + THRU 12 MAYGENERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2048FGH`L` * DISKETTE COPY ROUTINE LAWRENCE HALL OF 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 # Lk ` ȑL,  ȑ ` ɀ   婺 * ERROR (  0ɀD * DRIVE ERROR)L * WRITE PROTECTED)L * VOLUME MISMATCH)L * READ ERROR) * ABORT? L $ * SLOT=   )  [$ * DRIVE=   )Յ`ȑ` X  i8ȱ 8 &d [ * TRACK= * SECTOR=   D =?C<>B< , i ȑ"L,,,` 0  ɍ`hh L2 HH`, * PRESS RETURN TO CONTINUE ɍ ` [$ * VOLUME=L X$0$ L X * INSERT MASTER DISKETTE` X$0 * INSERT COPY DISKETTE K LX * DISKETTE:  [F COPY DISKETTE jɍ) e e v  X * INITIALIZING   l L   * READING  d  $ * WRITING  d #а  [ * DISKETTE COPIED.   * ERRORS.ȥ " X [ * SECTORS/LOAD=  $ * AND COPY (BLANK) DISKETTE K    l L  v X X * DO YOU WANT TO INITIALIZE COPYDISKETTE? 3 ȑ  l L  v Lb X * VOLUME NO. OWRITE";F$;",R";I T$(I)" "I2 ,D$;"CLOSE"8 6D! n"*** DOS ERROR = ";X;" ***"' xU YI1:Y;" RECORDS READ, ";X;" EXPECTED."i D$;"CLOSE":D$z I12000:I I1Y:T$(I):I "INSERT DISK, HIT RETURN ";A$ D$;"OPEN";F$;",L20" D$;"WRITE";F$;",R0" Y I1Y D$;"9  :D$(4)#T$(1000)D("FILENAME: ";F$:(F$)140]2D$;"OPEN";F$;",L20"u7D$;"READ";F$;",R0"|9X<100FI11000KD$;"READ";F$;",R";IPT$(I)ZI:D$:"TOO MANY RECORDS":dY(222):216,0 iY5Y254200INSERT DISKETTE THIS FILE WILL BE STOREDONTO AND PRESS RETURN ";X$U D$;"OPEN ";B$i D$;"WRITE ";B$t J0I A$(J) J D$;"CLOSE"  2D$;"OPEN ";B$;", V0", <D$;"READ ";B$[ FX$:X$;:X$(13)100:CHR$(13)='RETURN' PA$(I)A$(I)X$:70:ADD X$ TO A$ STRING dA$(I)"END"150 nII1:70 D$;"CLOSE" :B$;" NOW IN MEMORY" :"(NEW) NAME OF FILE - ";B$B :"FILE COPY 3 MAR 79'1723LGA$(100):ALLOW 100 STRINGS] D$"":CONTROL-DqD$;"MON C,I,O":"THIS PROGRAM WILL ONLY WORK WITH TEXT FILES THAT END WITH THE THREE CHARACTER STRING 'END'"(:"ENTER NAME OF INPUT FILE - ";B$D$;"CLOSE ";FILE$;",V01 D$;"CLOSE ";F2$;",V0"9 :E ON DRIVE 2 BE CALLED? ";F2$H FD$;"OPEN ";FILE$;",V0,D 1"e PD$;"OPEN ";F2$;",VO,D2"{ ZD$;"READ ";FILE$ dIN$ i(IN$)0120 n(IN$)0150 xIN$(1,1)A$ī200 D$;"CLOSE ";FILE$ : D$;"WRITE ";F2$ 90 ; BY ANDY HERTSFELDB ABACUS VOL 1 ISS 8 PG 4 AUG,1979_ IN$(80),FILE$(35),D$(1)rA$(1),F2$(35)D$"": CONTROL DA$"": CONTROL AD$;"NOMON C,I,O"!936#"WHAT IS THE FILE NAME?";FILE$ (:"WHAT SHOULD THE FIL  L NOT". P"COPY PASCAL OR APPLE CP/M DISKS."N Z:"TWO DRIVES ARE NEEDED."w _"DESTINATION DISK MUST BE FORMATED" d:"SIMPLY 'BRUN PDQ' TO WATCH THE ACTION!" n::" BRUN PDQ" x16:CT1 ::T$"PDQ INSTRUCTIONS":21(T$)2::T$9:j:"DPQ";::" IS A FAST COPY PROGRAM WHICH"("DISPLAYS A DISK MAP WHILE PERFORMING A"2"DISK COPY."<:"IT ONLY COPIES THOSE SECTORS WHICH ARE" F"FILLED. UNLIKE 'COPYA', IT WIL  M6o P a(ŠĠ)cQ]]ԠĮ٠]]٧] 6oa()@ca(Ҡ).Jcca(Ӡ͠ӠՠϠ)&Ta(ԠӠĠ٠) ^oa(ӠçϠ)-hoa(ӠŠҠϠŮ)t`.?6@r$|M6`.?6@r $h[/ı)Pa@E(Π)EƲ@E(ְIJ)Za@E(Ġ)E@dR@i`;@r$xn`;@r$x`@*#r9@%_a@E(Š)E@KQa@E(Š)EƲ@_Za@E(Š)E@E(ְ)a@E(Š)EƲ@E(ְ)KQ,d6?eKdM6\, N@"PrC@"#rC@"rN@"rCƲ@"#r@p()]̭@p()]̭a@E(Πìɬ)*#M6S(ԠӠŠŠſ)&@7(cS(ԠĠŠŠΠŠŠĿ)&Ʋ@Fa@E(Π)E@E(ְǮ)d6?e&J`.?6@r$Jd6?eM6[qq_,M6a()QG6UVWYM6oa(ԠŠ)G`%a()G;;`%a()Ga(ĠԠ)d6?e_J]@cca(ԠŠŠՠȠϠ)a(ĠԠΠϠΠeded eWoa(˽)FGP a(ý)FE()GPa(Ľ)FGPa(̽)F.?rMIqq` $qq`#$`$`$,Y(\6YΠ)Pa(ŠՠŠǠϠ)a(̠ӠƠҠӡ)SdJe$dKeqq q.?r \@;UVWd eq qq8UVWdŠˠ)d2eLcca(Ӡ̠͠٠Π)a(ŠȠŠŮ)Qca(Š̠̠ΠϠ)a(ӠĠΠՠŠĮ)cRcd2e?Pa()d2eca(ҠŠŭԠԠ5'dJe$dKede$de ]Ю̭Ŭ٠dN@"JrKUn@p(Ĺ ·ΠŸ)4xUVW;@rde<@*rrYdHeM69M6oP d2e?a(  q.?`*r.?a*rM6a@E()FE()FXcS(ŠŠˠĠŠԠˠϠŮӠΠΠٮ)&@$a@E(Š)E@E()FE()Fca@E(ӠנĮ)QezS()&@`@9()$xa@E(Ġ)E@]Ϡ͠Ҡˠ]Ϡ͠Ҡˠ ]ˠ/q.?6Ur.?6Urq.?6Ur.?6Ur_+q.?rjr.?sjrq.?`jr.?ajr_+q.?r*r.?s*r}" ]٠٠Ҡˠ ]ŠŠ]ҠҠ!]Ġ٠٠dN@"(r n@p()ixd2e?a(ŠˠȠ٠ŠϠŠϠŠŬĠҠŠƠź)d2  SLSL;SLXS1STS-SSTSSLuSxSTS-SSTSSLuSSSS-SSTSSTT TU05TUT T U0UjL-TjL-TjLSL-TL+T`TT TU =m?<= @ >? @ Ӡ)/<a(̠ϠР٠Ӯ)cwFa(κ̠ԠР٠ԠӧΠРƠŠ٠ˠϠŠРͮȠӺ)Jc#Ka(̴Ҡ̤ư)PQ M6cc' a(ˠϠŠР)c#a(ĠˠϠŠЮ)a(Ԡ) a()'#a(ԠҠΠĠ)4(a(̠ϠРҠӠ)42a(̠ϠРԠ)Qd!ed eM6[ŠΠԠΧ)&@a@M6]ŠϠ4o88-rrrP-rb-rYC de.?Lrde.?Mr]٠Ԡ͠ϠŠĠ6*dLe.?rdMe.?r]Š˭Š&4KM6a@E(Šo88-rrrP-rd2e?b-rd2eoP M6dbE(Ơ)FGa@E(ΠŬ̳)a@E(ĠŬ)F--rrR@a@"a@E(Ġ)E@*#;@rrE(ְ)UM6`%a(ԠŠΠĠ)S(٠Ҡ$boa(ҠӠ٠)UVWHlM6a(͠)FGS()'`$l-rqYoM6d6de.?Lrde.?Mr]ŠĠ͠3dLe.?rdMe.?r]Š˭àlUVW@E(ĠŬ)FR@\`@9()$&`@*#r9()@*#r9()@*#r9()<@r@*#r9()$&4bGPa@*#r`%\-rqq&Ya@E(Š)XKd"ed3e`bS(נ٠Ӡ)'`.6a@E(ŠŬ)Fa@@p()_=a@E(ŠŬҰ)ba@E(Š)IKM6a(ЮЮ̮Ů˭ŠҠ)qd"eM6;a@E(ΠŬ̳)a@E(ĠŬҰ)T+UVWa()a()]ԢԩŢĠƠǩa@E(ң)a@E(Σ)M6ca@E(ΠŬ̳)UVW.?r.?rde.?r`@9@%@p()]¤ԩ!`<@r$,@B;@rrp@ Y_$,q`@9()$6`<@r$N@"rD42rD42r@p()na@E(Πìɬ)KM6?sd"eM6S(ԠҠĠԠΧ)&@KM6>xq .?Jr.?Krde.?rde.?rq =dedededede(de8a@Ededede]dededeide@dededededede](deded ehd!ed"ed#e`d$ed%ed&ed'e2d(ed)ed*e`.d@p()q& ]ˠϠŠҠ ]ҠҠà ]٠ΠȠ] de8deHdededededede ded e]d eid ed ed e`dededei     Me.?rZa@E(ć)E@da@a@E(ć)E@a@"a@E(ć)E@,|a@a@E(ć)E@a@a@E(ć)E@Da@Na@E(ć)E@X*M6o P a(ӠĠϠ#]Ţ٠̠Ǡ N@" r! M6oPa(Ū)cc,a(Ӡ͠ӠĠˠ)$Pa(ϠŠΠŠ)cc#(ccS(ԠΧϠ)&@2_<de.?Lrde.?MrFdLe.?rd@ HHLLH:L8gh}~`Ƀ` S $L*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(      Ti!LSLiTLTRMTT TU @ LSUTUTLSTT TU T TL`TTЩT T`„̄0`a TUe`a   p"pppحp8 p ppꭽpp pخpͭpppp 4 : p H : )  Lpо pгpLeLp`p`pP`P`<a(נԠŠŠ)S(ĠΠԠ)&@ a()I\a(̠ŠĠ)#UVWa(ب)FE()F-rYa(ӠӠŠ)Q Š٬ԠŠҠΠҠ)S(ĠԠ)&@*M6a(נǠϠ)\a(נŠӠ)Ka(נŠŠǠϠҠŠبŠĠĠŠ͠),UVW-rqa(ب)FE()F-rY$&qd<ed=ed>ed?eM6$[!&a(ϠȠŪ)QdN@"rD4riUVW-rqYlqq:q:?na(Ӡ)wxa(נŠŠǠϠŠŠ)a(Πըq _d]ŠϠŠ5qd<ed=ed>ed?eM639d<ed=ed>ed?eM63[]Ġ- d<ed=ed>ed?eM6Z"`$&q`ϠŠ&q.?r.?rq%]ˠԠŠƠ̠2`.?rK$q`%Q_]ŠŠƠנ%a()Fde_H_ )M6B_<|G]ŧԧŠՠŠŧΠŠͬĠӠĠΠӠ̠Ԡԧϧŧ2H]ҠӠӠάՠΠŠ(L]͠ϠŠӠΠ$~]ν٠Š$rC@"$r@p()KM6oS(ŠŠ)&@S(ŠŠ)&@S(ŠŠ)&@S(ŠŠ)&@$S(ŠŠ)&@.S(ŠŠ)&@Y8oa(ԠǠĠӠΠϠŠŠŠĠӠϠ@a@E(Ġ)H@Ka@a@E(Ġ)H@KDa@Na@E(Ġ)H@XK*M6o P a(ӠĠϠ)5de.?Lrde.?MrdLe.?rdMe.?rQ$]Ԡ̠ĠΠ;N@"$rC@"$rC@"$rC@"$rC@"# ]Ţ٠̠ǠE]Ӡ͠ӠĠàӠϠŠΠŠ2_<de.?Lrde.?MrFdLe.?rdMe.?rZa@E(Ġ)E@dKa@a@E(Ġ)E@Ka@"a@E(Ġ)E@,K|a    Š)&@$S(ŠŠ)&@.S(ŠŠ)&@L8oa(ԠҠĠԠ)a(ϠŠŠŠӠϠ) =M6BM6_<ӠϠ) =M6BM6_<