' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` d£àĠˣ٠Ơ͠ԡ# u`  ԠӠΠſ΍٠ůԩŠ͠ҠĠΠΠ٠ĠĠԮԍҠŠŠ̠ٮԠӠŠԠԠſӠ΍ŠҠҠΠӠŠ٠ӮԠӠŠŠԠſ̠Š΍ŠԠ٠ĠŠũō٠Ơ͠ĠҠůΩϠŠͮŠԠǠŠԮԠӠŠԠԠſĠԍŠĠԠŠΠ٠נԮԠӠŠԠԠſĠ΍ŠԠҠŠΠϧˮԠӠŠŠԠſ̠Š΍ԠҠŠŠԮԠӠŠԠԠŠƠԿӠԍŠΠԠŠԠӠŠĮԠӠŠŠԠŠƠԿ̠ŠԍŠŠŠԮԠӠŠԠԠſӠԍŠŠĠΠӠߠϠ̠ՠԠՠŠŠĠŮǍΠŠנŠԠƠĠŠŠŠŠŠ߮ӍΠĠĠΠԠߠӠӠҠҠŠӠĠҠĮōƠŠӠӠԠŠŠԠŠĠΠΠŠ̠̠ߠĠ߮٠ٍŠ٠ǠՠԠ͠ҠŠΠՠŠӠŠߠߠߠΠ٠ԠӮנϠԍߠŠŠӠƠӮӍߠӠӠϠŠӠΠҠӮԠӠӠΠҠƠԠԠӠӠĮōŠŠŠŠΠӠĠӠΠήӍŠߠߠŠӠҠӠŠŠŠħӠŠĠŠĠϠϠԠŠӮΠӍߠŠӠŠŠΠ٠ȠϠԠΠͮӍӠР̠ӠŠĠϠŠߠǠϠŠӠƠԮӍŠŠŠߠΠӠϠߠנĠҠĠΠԠӮҠōߠŠӠԠŠŠŠŠŠĠϠ͠ĠĠ    ĠŠŠ®ԠŠŠϠӿ̠Ġ̍ԠԠŠԠԠŠƠŠӠӠſčԠӠŠĠŠƠӠԠ٠ԠΠҠǠ̠ŠĠҠĠŠŠĠŠΠŠſŠōŠƠҠϠӠԠŠԠƠ ӠԠԿӠҠōƠΠӠĠҠĠŠŠŠŠΠŠԠΠŠŠƠŠ ӿԠԍԠԠӠĠ¨гĠ ӠԠԠӠŠРƠϠӮΠŠжԠԠŠӠĠ٠٠٠гӠ٠ӠŠΠƠΠΠΠŠԠŮԠӠҠĠԠӠο΍ƠҠŠƠԠϠӠŠԠƠŠ ΠŠӠϠҠƠӠΠΠԠӠԠĠƠ¨гōƠ ӠȠŠԠҠΠҠΠҠΠŠгΠԠĠƠ ӠԿōҍ ԠӠԠ͠ӠԠĠԠŠ٠ǠĠҠĠϠŠԠŠвӠԠĠƠ¿ҍƠ ӠΠΠȠӠ͠ҠϠҠΠԠӠԠĠƠ¿ōƠ ӠƠԠӠƠ ̭٭ҩ΍ԠŠŠŠв̠ӠƠӿԠԠԠō ԠӠӠԠĠӠԠŠ٠ĠĠҠĠϠŠԠŠӠвԠĠƠ¿ϠǠӠвӿŠƠǍŠŠӠƠԠӠƠӠӭӭŭŭ̩ǍŠŠӠƠԠӠƠ ͭӭũǍŠŠӠƠԠӠƠ έԭЩ΍ŠŠĠŠŠŠԿԍԠӠŠŠƠŠ ƠΠΠҠŠƠǠӠŠҠŠԠſōԠŠŠϠҠӠвƠӿǠĠǍԠϠǠӠвӿ΍ԠıԠӠŠ٠Ơ ԠӠŠŠƠΠΠҠŠƠǿōԠӠŠοϠōԠŠӠԠΠΠӠǠŠԠ׿ԍԠŠӠԠΠΠҠŠƠǠҍ٠ĠҠϠĠˠٍҍٍŠϠĠҠҠҠΠŠϠΠōōҠϠĠϠŠĠĠĠԠŠԍƍǠ٠ϠӠǠӠǠӠԍōŠŠΠĠΠŠŠӍΠƠӠĠӍ͍РȠ٠ĠȠҩǠōԍԠĠ٠ĠǠӠΠϠ΍ҍҠΠŠŠӍԍ٠Ġ٠ÍΠӠƠˠĠϠԠҠΠӍč٠ϠĠӠĠΠǠĠΠōōԠΠȠӠԠΠŠҠōԍ͠ƠǠΠΠŠΠŠŠӠĠαҠϠĠΠҠ٠ŠħӠ΍ԍ̠ĠŠРƠŠȠӠȠȠӠĠŠŠ٠ȠĠĠŠōԍРƠӠҠĠӠϠĠϠ    ٠ĮӍ٠ĮӍӍ٠Ġ٠ĮӍԠӠҠōӍԠӠҠҧӠſ٠ӠǠΧӠ͠ĿŠԠŠҠӠӠϠРӮԍϠĠĠӠǿ΍ĠĠҠ̠ҠŠΠߠ߮٠ӍԠӠ͠ΠĿŠ٠ƠčϠΠŠǠƠŠŠƠ͠ΠȠŠˠƠŠԠӠϠ̿΍ĠŠߠŠ̠ƠӠ͍ͮĠȠŠߠߠߠߠϠͮˠƠŠԍ͠ӠϠĠŠߠ߮٠ٍħӠŠӠĠ߮ϠӠοԍϠӠ˿ΠӠ٠ŠĠ߮ōǠȠ̠ӠĠ߮ǍŠĠ̠ԠӠĠΠ̠Ǡ٠ӠĠ͍߮ߠĠϠŠŠӠΠŠӠŠǠƠ̮čĠ̠ϠԠ̠߮̍Ġ̠Ҡ̧ӠĠӠΠԠߠߠߠ߮ĠĠΠ͍̠ĠҠԠӠΠߠŠϠˠҠͮčߠӠŠĠǠƠ̮čŠӠĠӠĠ߮ӍŠĠŠӠϠŠԠŠӠ߮ȍӠӠŠŠƠŠΠ̠߮̍ŠӠŠΠҠӠӠ̠Ƞ߮΍ŠԠԠŠӠ߮̍ĠĠĠŠӠ߮΍ҠŠҠŠĠĠ߮΍ŠŠƠŠӠΠ٠ҠӠȠ߮ŠӠŠĠԠ߮̍٠ŠΠĠΠԠ٠ĠϠĠŠӠӠΠŠٮ٠ĠҠȠΠŠ߮ӍŠӠŠĠȠҠ٠ĮӠԠΠŠĠ͍߮ŠҠӠŠߠߠߠ߮ȠΠΠ̍ŠĠ̠٠     Š߮΍ԠȠƠȠĠ߮Ս͠ӠȠӠԠĠӠ߮ōŠǠƠŠȠΠӠӠ߮΍Π̠Π߮ōΠ̠ήōŠȠҠȠƠŠҍōŠҠ̠ԠŠ٠ŠӠƠР߮׍ԠƠŠԠĠԠΠŠȧӠŠ߮ŠΠ٠ŠΠŠȧӠŠǠ͠ŠϠӠĠϠŠŠ߮ԍԠԠƠŠ߮ҍΠҠȠŠŠҠΠΠ٠ٍԍƠƠŠ߮ōנРƠĠǠϠҠӠƠĠ߮ӍŠРƠŠ߮ō̠ԠԠŠǠҠŠĠҠǠŠ͍߮Π٠ŠǠŠȠ٠ΠŠȠĠȠӠ߮ҍĠŠȠРӠĠϠŠβŠԠƠŠŠ̠ӠĠ߮ōŠ٠ĠΠȠŠȠӠϠΠӠĠ߮ӍŠŠĠŠ߮ōŠ٠ƠĠ߮ԍĠҠƠȠŮϠԠ̠ϠŠҠƠˠԠӠϠŠ᩠ΠĠŻ⩠ҮϠРӠΠ٠ĠԠӠϠŠĠϠ᩠Šλ⩠ŠήˮԠΠŠˠԠϠŠŠĠŠˠΠԠĠŠ᩠̻⩠̮ŠԠԠӠŠΠԠƠӠΠӠ᩠ŠΠ٠˻⩠ˠӠŠ٠ΠΠԠӠĠȷϠϠˠŠԠ᩠ŠĻ⩠ŠǠŮƠՠŠŠŠϠŠҠԠՠԠ᩠ŠŠŠҠԠӻ⩠ŠΠΠŠŮŠŠԠ٠᩠Ļ⩠ ŠӠҠӠƠŠŠǠӠŠߠƠ߮Š΍ԠӠĠϠӠŠήԯƩԍΠӠΠŠӠƠӠԠŠΠԮŠԠӠŠΠƠŠŠ߮΍ŠҠŠŠŠŠŠӠĠϠߠ߮Š΍ҠŠ̠ߠ߮Šӻ⩠Ԡ̠ӮӍΠӠĠΠ᩠̠Šӻ⩠ԠŠӮ̠ŠӍŠԠԠӠŠΠԠƠӠΠӠ᩠ΠӠӠŠԠĠŠĻ⩠ŠԠƠɱĠϠǠΠ٠ĠҠŠΠԠĠӠŠλ⩠ӠήŠ΍ՠĠŠŠΠǠˠӠ᩠Ԡһ⩠ŠҮԠҍՠԠϠŠΠ᩠   ōŠԠϠˠҠҠ߮ōϠҠӠ߮ōƠǠȠǠӠҠ٠Šٍ߮ΠԠˠٍ߮ΠϠӠƠΠӠԠΠ߮ҍΠϠӠҠӠΠĠҠΠŠ߮ŠΠŠŠ߮ōΠΠҠ̠ΠӠŠԠ߮ōǠƠӠƠ̠٠ϠŠŠҠԠӠٍ߮ϠŠϠנ߮ōǠҠԠϠԠԠǠȠϠŠǠԠҠĠҠΠƠ̠ĠŠ߮ԍŠàӠԠΠΠŠРŠŠߠߠ߮ǯǯǍŧӠԠŠ߮ōϠŠҠҠӠӠ߮̍ƠҠĠ͠Š̠ΠϠŠĠ٠ԠŠŠĠĠŠԠߠ߮ӍŠΠŠРӠϠŠߠߠٍ߮ƠՠԠ͠ŠӍҠŠԠŠΠӠŠàΠӠ̠ŠŠԠƠ߮̍ŠԠԠ̠ŠŠԠϠŠӠӠԠӠŠߠ߮ԠǍԠĠҠΠŠծӮӠΠΠ٠ӠĠϠΠߠ߮ˠǍŠԠ٠ĠԠŠҠ٠ƠծӮӠΠӠؠՠŠӠߠߠߠ߮ǠĠŠҍǠέР͠ΠӠӠӠߠ߮ǠҲؠӠԠԠΠŠĠԠŠӠϠߠ߮ŠӍ٠ӠΠӠԠԠԠӠӠŠԠŠӠŠӠĠΠߠ̠߮ӍŠ٠̠ƠΠϠĠӠ߮ˍȠŠȠӠƠӠ߮ΠԠΠΠ͍߯ŠԠƠǠ٠߮΍͍߮ŠŠƠҠ߮ȍŠҠΠŠĠϠŠ٠ҠԠӠ߮ōŠ٠ŠŠƠŠҠŠ߮؍ΠԠϠРǠ߮ōĠĠĠҠҠĠ͠ŠԠΠҠ߮΍ΠƠ٠߮΍ԠĠϠŠŠĠР߮ō٠ƠŠԠӠŠΠΠӠҠӠƠŠ߮Š͍ΠĠ٠ƠŠ߮٠ĠٍĠԠӠΠԠӠϠԠߍčΠԠΠΠ͍߮ΠŠŠŠ͠Π߮ōĠƠΠԠӠ͠ŠԠΠŠԠΠΠŠĠӠΠŠߠߠ߮٠ƠήŠŠƠŠħӠԠΠӠߠ߮ԮԍΠŠҠߠϠΠ٠ĠӠήŠϠΠϠŠӠ ŠߠߠĠĠɠŠΠŠŠԠȠſŠĠ̠Ů٠ӠȠŠϠӿՠĠ͠ӠĠԠŮԠӠŠƠΠӠԠӠӿǠĠϠĠŠŮŠϠĠӮ٠ĠŠǠҮӠĠӠŠԮ٠Ġ٠ӠԠϠŠŠƠȠſϠŠΠŠԮԠҠĠŠӠԠŠƠȠſɍԠΠŠĠҠ٠Š߮Ƞίʠ̍٠ŠӠԠ̢߮ɍ٠ҠŠŠҠƠΠ߮կӠԠŠҍŠŠӠŠȠŠϠԠӠĠŢߍҠƠȍɠŠŠԠӠϠ٠ŠΠŠŠӠ߮ŠԠ٠ƠӠӠĠӠ߮ӍɠĠӠΠϠĠŠԠ̠ ӠĠӠΠҠŠԠŮŠȠԠΠΠŠҠ߮ŠŠŠӠĠ٠ŠΠԠΠŠҠ߮ŠŠԠϠŠŠŠ߮Ӎ٠ŠӠϠӮŠɠŠ٠Ǡ߮ōԠ®îŠߠŠΠȠŠΠӠĠĠŠΠӍԠ®îߠߠߠĠŠΠ͠ŠԮҠŠԍҠŠҠߠҠŠӠŠŠĠӠ̠ĠŠ̠̠߮ōŠӠƠŠŠԠ٠ĠӠΠȠ߮ōԠӠŠӠĠԠƠ͠ŠҠ߮ōŠӠƠĠԠӠŠԠԠΠȠ߮ōŠԠӠΠŠĠŠΠ߮ōŠΠƠƠŠħӠŠŠΠ߮ōԠƠӠŠŠΠȠΠӠ߮ōԠӠŠ     ϠӠҮōߠߠߠǠӠҠŠϠ̠ӮέҠٍӠҠƠŠҠӍɍߠߠԠӠϠŠĠԠϠϠ٠ҠԧӠӮԠԍߠРƠŠϠŠˠĠΠ٠ҮōߠȠŠ٠ǠΠĠ٠ҠàӮΠԍߠРƠŠϠŠˠĠΠ٠Үōߠ͠ƠԠΠȠ٠ĠӠŠĠ٠ŠԮ͍ߠΠΧӠӿΧӠ٠РӠŠ٠ƠàҮߠŠŠΠΠȠŠӠϠĠΠŠĠӠŠĮύߠߠ͠ƠҠΠŠàΠȠӠǠԠΠϠٮŠĠΠˠŠĠӿ̠ҍΠĠӠˠοҠԠϠŠӠΠϠ͠٠ĠϠĠԠӠΠԠŠƠҠҠŠӠƠӮŠӠȠԠƠ̠ĠԠǠӠŠĠΠȠϠנŮԠĠΠΠ٠ǠŠӠΠĠҠɿ٠ĠŠԠϠˠҠԠƠŠàӠԠĠŠŠŠĠԠƠҠĠϠנӠ٠ԠĠϠР٠ŮȠӠŠŠƠԮԠӠ̠ԠŠǿΠӠŠ̠ĠϠŠӠĠӠҠǠŠǠŠҠŠΠĠΠӠƠήԠӠǠԠŠԠӮԠӠŠԠΠΠούנŠŠӠƠΠĿ٠ŠĠ٠٠ŠΠƠӮ٠ӠǠԠϠοӲנ٠ΠӠӠΠſנŠŠӠĿ٠ŠĠ٠٠ŠΠƠӮԠӠ̠οԠɍԠӠŠΠԿԠƠҠԠӠȠŠàΠ͠     ōĠΠΠōԍߠ̠ȠӠǠӠĠӠĠϠҠŠϠϠˮōߠŠƠ̠Ҡ̠ƠŠԠӠȠàĠӠǠנƠàԮԠ٠ԠӠĠΠΠԠ٠Ӡήٍ̠ߠߠ٠ƠҠΠ΍àٍΠԠҠǠ̠ԠƠàԠ߮ҍߠԠŠƠ̠ƠŠĠ٠ΠӠƠӠΠōàٍנƠӠȠҠߍԠٍߠ٠ŠȠȠΠàԠΠ׮ҍŠΠƠ٠߮ōߠŠϠŠŠԠȠӠԠ àΠҠ̠ҠҮ٠٠ĠӠǠĠŠӠƠΠ͠Ӡ߮΍ߠנƠӍٍߠߠΠ̠ŠĠԠӠŠϠנȠӠŠԠӠ߮΍ŠŠԠԠŠӠϠŠԮŠͮŠƠàԠȠӠ٠̠ҠҮȠҠŠԠϠ̠ȠӠӠΠԮӠĠԠƠ̠ĠϠŠҮӠĠˠϠŠ̠ήߠߠӠŠĠРנƠàԠ͠٠̠Ϡ ĠˠήŠԍΠŠȠƠӠӠĠŠǠŠԠĠΠƠӠĠԠҠҠƠ٠ӠĠߠߠ߮ӠƠō٠ǠŠԠϠŠ̠ƠŠŠӠĮŠͮŠŠӠӠӠƠŠƠŠԮŠĠȠԠĠ̠ƠŮٍŠŠӠҠԠΠŠĮŠԠҠ̠ӠĠҮҠԠӠĮŠŠŠӠƠŠΠŠ̮ŠΠƠŠàĠӠԠӮԍԠƠӠ͠ŠŠϠҠӠΠߠ߮àԍǠӠΠĠӠӠٍ߮٠Ӡ͠Ơ٠ߠҠ̠߮ÍߠβΠΠҠߠ͠ŠԠϠҠĠĠߠΠנȠӮӠӍȠΠΠΠ͠ӠԠƠٍ߮ǠȠӠӠϠߠǠԠ        Ԡ̠ӠĮΠĠŠӠҠοΠĠϠŠҿΠӠΠŠĿΠĠŠԠӠҠοĠΠ٠٠ĠĠĠŠҮŠϠҠӠΠήǯҍԠҠŠϠҠҠΧӠ̠ҿΠĠŠſ̠ϯԠԠԠĠΠ̠ΠΠ٠ӠŠϠϠĠŠˠҢҠ͠ӠӠŠҠƠŠҍŠӠ٠ĿנӠԠΠĿΠӠ٠ӮΠӍ٠ӠΠŠŠРĠӠΠſ٠ΠĠ   * * * SEP. 1982 * * * *************I3:821,154:822,72:823,152:824,72:825,96:******************* * * * A PRODUCT OF Q & D * * PROGRAMMING. DUGYM * * QYCFYL, AUTHOR. * * * ***********************m********* 34:806,234:807,234:808,142:809,44:810,3:811,96:812,230:s CLEAR OUT IN$ & CLEAN UP LOOSE ENDS ZZ20582287:ZZ,32::49168,0:"PR#0"::"CLOSE":{ FIX ?OUT OF MEMORY ERR -|816,104:817,168:818,104:819,166:820,2277,189:778,0:779,2:780,41:781,127:782,201:783,0:784,208:785,2:D786,169:787,92:788,201:789,13:790,240:791,16:792,157:793,10:794,8:N795,232:796,138:797,201:798,230:799,208:800,232:801,234:802,234:803,234:?X804,234:805,2"(SE)"--RETRYING.":60000:50000)ñ;_ CENTER A$ Z`216,0:(21(A$)2):A$:qG LINE OF C$ @ V HV:A039:C$;::/ POKE INPUT ROUTINE 0768,169:769,128:770,133:771,51:772,32:773,111:774,253:775,162:776,0:F:7,20:803,3:?h804,144:805,3:806,238:807,20:808,3:809,96Er]Oò EXECUTE RWTS jPù783,SECwZù782,TRKdù790,CMDnù780,DRxù779,SL16ù786,0ù787,BS256Ì768#í(788)Ģ24::A$"ERR "((791))" @ TRK "(TR)", SEC 0:771,10:772,32:773,217:774,3:775,76:776,31:xJ777,3:778,1:779,96:780,1:781,0:782,0:783,0:784,27:785,3:T786,0:787,112:788,0:789,0:790,1:791,0:792,0:793,96:794,1: ^795,0:796,1:797,239:798,216:799,41:800,0:801,141:802TCH 5uFJ$"":ZY332:FJ$FJ$((BSZZZY)128):|u(FI$)30ĭ(FJ$,(FI$))FI$(FJ$,(FI$)1)(SP$,(FI$)1)FM1uFJ$FI$FM1uFMTR(BSZZ):SE(BSZZ1)uEDFM30150uZZu? POKE RWTS 2@768,169:769,3:770,16LE PRESENCE "0uSL6:DR1:CMD1/:uBS32768:Du50000cNuTR(BS1):SE(BS2):(TRSE)ED1XuZZ1122135:(BSZZ3)0ED1:30130ku EXTANT TEXT FILE ? luFT(BSZZ2):FT0FT12830130vu(BSZZ)25530130u TEST FOR TITLE MAqTS%(0,0)(BS1):TS%(0,1)(BS2)+\qZY1nfqZZ122542:TS%(ZY,0)(BSZZ):TS%(ZY,1)(BSZZ1):ZYZY1:pqTS%(0,0)29070zqTRTS%(0,0):SETS%(0,1):50000qZZ12222:TS%(ZY,0)(BSZZ):TS%(ZY,1)(BSZZ1):ZYZY1:q/u VERIFY FITS%(ZW,1))ZX256:28070=tmTRTS%(ZW,0):SETS%(ZW,1):50000[~mZY0255:(BSZY)ZSĂlmZY256ZS1mZXZY255:(BSZX)ĂmZX256ZS0mRLRLZXm(ZSZX256)ĂZWmGq BUILD TRK-SECTOR LIST HqCMD1:BS32768:50000"R50*A$"":768:(812)A$(IN$,(812))<":A$::CR$;F,4120^6816:RNRN1:216,0{@:(49152)155İ63000:T4080'_m DETERMINE REC LEN `mZS0:ZZ1128:(TS%(ZZ,0)TS%(ZZ,1))RLRL256:jmZWZZ128om(TS%(ZW,0)00029000280005"RECORD SIZE="RL:4060\:" WHAT IS THE RECORD SIZE? ";RL"START READING AT WHAT RECORD? ";RN62000PSĺD$"PR#"PS:D$"OPEN"FI$",L"RLD$"READ"FI$",R"RNCR$" >>> RECORD "RN" <<<"CR$41:D$"OPEN"FI$(D$"READ"FI$)230002<200;F300MP:A$::CR$;hZ(49152)155İ63000:rd1350 255::D$"CLOSE":C$":":V(37):61000:"END OF FILE":"";K$:63000::"DO YOU KNOW THE RECORD LENGTH? ":K$:K$"N"405040"WHICH IS YOUR PRINTER SLOT?";PS:PS1PS71290j"DO YOU NEED LINE FEEDS?";K$:K$"Y"CR$(13)(10)"DO YOU NEED A DELAY AFTER C/R?";K$:K$"Y"Ą"HOW MANY NULLS?";NC:ZZ1NC:CR$CR$(0): 62000T$"R"4000PSĺD$"PR#"PS :17:SE15 30000 , (EDFM)1240 FMĢ6:"*"FI$" IS NOT":"A TEXT FILE OR IS NOT ON THE DISK.":V4:C$" ":61000:5:1160 :" RANDOM OR SEQUENTIAL? ";:T$:T$"R"T$"S"1280 :"SCREEN OR PRINTER OUTPUT?";K$:K$"P"12900A$"SLOT="(SL)",DRIVE="(DR):3:600001 ~5P "FILE TO READ ?":"*";FI$c ZY0:ED0:FM0 V6:C$" ":61000:V7:61000 (FI$)0ė::D$"CATALOG":1160 (FI$)30ĺ"NAME TOO LONG":1160 40000 4:A$"FILE: "FI$:60000 TR(DOS 3.3)":60000> LA$"Q & D PROGRAMMING -- 9/18/82":60000T VV3:C$"-":61000x `34,4:35,22:V23:C$"-":61000 j24:"ESC TO END READ : RESET WHEN PROMPT IS *":23:A$" CTRL-S TO STOP LIST ":60000 s SET UP SLOT & DRIVE * tSL6:DR1:OTECT RWTS BUFFERh  TS%(0,N) = NEXT TSL SEC TS%(N,0) = FILE TRACKS TS%(N,1) = FILE SECTORS x TS%(128,1)  SO BIG TO HANDLE REC LEN TO 32K $D$(4):CR$"" .SP$" " 8 BA$"READ APPLE TEXT FILES ******************  THIS PROGRAM WON'T WORK IF YOU CHANGE LINE 20 OR IN- SERT LINES BEFORE IT.  ************************* d1000 ,A$"":768:(812)A$(IN$,(812)) 6 255:1233: INIT TEXT MODE 63100 32768: PRnIN$" " *******               EN";FILE$;",L";RL PI1TN9 dD$;"READ";FILE$;",R";IH xK1LABELV DA$(I,K)] Kd It D$;"CLOSE" I1TN K1LABEL LABEL$(K);:20:FIELDSIZE(K) DA$(I,K) K ,I @  D$(4)&D$;"OPEN VARIABLES"?D$;"READ VARIABLES"HNF$PTNX!RLc#LABEL$LABEL$(LABEL),FIELDSIZE(LABEL),DA$(TN,LABEL)%K1LABEL'LABEL$(K))FIELDSIZE(K)+K-D$;"CLOSE VARIABLES"2FILE$NF$ <D$;"OP  D$;"PR#0"$ **--WRITE NEW FILE--**:24::"WRITING NEW FILE":\ D$;"OPEN"FILE$".UP";",L";RLg K1QHD$;"WRITE";FILE$".UP";",R";KRW1J1\DA$(K,W)pWKD$;"CLOSE";FILE$".UP"D$;"CLOSE""ALL FINISHED"{ SAVE C$0A$"1"B$"0"DA$(Q,J)C$:7006:O IF NUMERICAL THEN ] SAVE B$A$"0"C$"V"DA$(Q,J)B$:700: IF NOT "V" THEN  SAVE BOTHDA$(Q,J)B$C$:JJ1560J1:QQ1560::OF RECORDS = ";B(3)- :34,22: SET WINDOW3 :9 :U  **-INPUT DATA SECT-** 24::"READING DIF FILE--DON'T TOUCH!!!": DA$(B(3),B(2)) J0:Q0 0A$,B$ DC$ XC$"BOT"740 lC$"EOD"770 q: v IF ALPHABETICAL THEN : SET WINDOW @K2II T(L3$(K))0ĺA(K);" ";L3$(K);:25:B(K1)] hLLLL(L3$(K)){ L1$(K)"SIZE"RLRLB(K) K RLRLB(K2) : "RECORD LENGTH = ";RL "LABEL LENGTH = ";LL L1$(2);" = ";B(2) L1$(3);" OR NUMBER .SECT--** D$;"OPEN";FILE$3 D$;"READ";FILE$; I1G L1$(I)V A(I),B(I)b L3$(I)y L1$(I)"DATA"305 II1 ,200 -: .: 1 **-DISPLAY HEAD.SECT-** 6:" LABEL";:23:"FIELD" 8" NAME";:24:"SIZE" ;34,3:E .: 0:" 2D$(4): CTRL DC <L1$(99),A(99),B(99),L3$(99)L P:5p d"DIF FILE NAME PLEASE! ";FILE$ n"DO YOU WANT A PAPER PRINTOUT? ";YES$ sYES$"Y"ĺD$;"PR#1" x(FILE$,4)".DIF"FILE$FILE$".DIF" y: z: **--INPUT HEAD=RECORD LENGTH$  LL=LABEL LENGTHB  DA$()=ACTUAL DATA VALUEX  J=ARRAY COUNTERn Q=ARRAY COUNTER " A$=DATA SECT. 1ST LINE $ VARIABLE TYPE & B$=DATA SECT. 1ST LINE ( SECOND VALUE * C$=DATA SECTION , STRING VALU ***--DIF TRANSLATOR--***% :+ :B **--VARIABLES--**^ L1$=HEAD.SECT. LINE 1z L3$=HEAD.SECT. LINE 3 A()=HEAD.SECT. 2ND LINE FIRST VALUE B()=HEAD.SECT. 2ND LINE SECOND VALUE I=SET COUNTER  RL     (L3$(K))0ĺL3$(K):B(K1)# K3 D$;"CLOSE"G "ALL FINISHED"M S b D$;"PR#0"h $P = ";B(2)5 L1$(3);" OR NUMBER OF RECORDS = ";B(3)O :34,22: SET WINDOWU :[ :y  **-WRITE LABELS INFO-** NF$FILE$".UP" TNB(3) D$;"OPEN VARIABLES" D$;"WRITE VARIABLES" 0NF$ DTN XRL B(2) K2I  NAME";:24:"SIZE"/ ;34,3:: SET WINDOW: @K2Ik T(L3$(K))0ĺA(K);" ";L3$(K);:25:B(K1) hLLLL(L3$(K)) L1$(K)"SIZE"RLRLB(K) K RLRLB(K2) : "RECORD LENGTH = ";RL "LABEL LENGTH = ";LL L1$(2);"" y: z:+ **--INPUT HEAD.SECT--**@ D$;"OPEN";FILE$U D$;"READ";FILE$] I1i L1$(I)x A(I),B(I) L3$(I) L1$(I)"DATA"305 II1 ,200 -: .: 1 **-DISPLAY HEAD.SECT-** 6:" LABEL";:23:"FIELD" 8"RECORD LENGTH#  LL=LABEL LENGTH) .:/ 0:D 2D$(4): CTRL De <L1$(99),A(99),B(99),L3$(99)n P:5 d"DIF FILE NAME PLEASE! ";FILE$ n"DO YOU WANT A PAPER PRINTOUT? ";YES$ sYES$"Y"ĺD$;"PR#1" x(FILE$,4)".DIF"FILE$FILE$".DIFi **-CREATE VARIABLES-**$ :* :A **--VARIABLES--**] L1$=HEAD.SECT. LINE 1y L3$=HEAD.SECT. LINE 3 A()=HEAD.SECT. 2ND LINE FIRST VALUE B()=HEAD.SECT. 2ND LINE SECOND VALUE I=SET COUNTER  RL=     J1K S(J);",";N(J)& 0A$(J)- DJ3 XS,N: READ THE VECTOR #,VALUE9 S$: THE STRING VALUEP T$"VECTORS"NVNf ,T$"TUPLES"NTNz @T$"DATA"220 TK1 hS(K),N(K) |A$(K) A$(K)"EOD"440 KK1:360 D$;"CLOSE";FILE$ : : **-DISPLAY ROUTINE-** 4 ***--DIF READER--***" :( :@D$(4): CONTROL D[(A$(200),S(200),N(200)c<I1lP:5d"FILE NAME PLEASE? ";FILE$x::**--INPUT ROUTINE--**D$;"OPEN";FILE$D$;"READ";FILE$T$: READ THE TOPIC NAME ,";CR(I)"V" :'"0,";WR(I)0"V"6:=$IC):O."-1,0"Z8"EOD"`=:vLD$;"CLOSE";NAME$DON"Q$ a: f"1,0"( pQ$"DIGITS"Q$. u:9 z"1,0"L Q$"CORRECT"Q$R :] "1,0"n Q$"WRONG"Q$t : I1J : "-1,0" "BOT" : "0,";I "V" : "1,0" S$(I) : "0,";DT(I) "V" :"0"LABEL" "4,0"% Q$"CORRECT"Q$+ :8 "LABEL"C "5,0"T Q$"WRONG"Q$Z :f "DATA"q "0,0"{ Q$Q$ :  **--DATA SECTION--** %: *"-1,0" 4"BOT" 9: >"1,0" HQ$"SESSION #"Q$ M: R"1,0" \Q$"OPERATIFILE$Q$ !: &"VECTORS") 0"0,";NV3 :Q$Q$9 ?:G D"TUPLES"T N"0,";NT^ XQ$Q$d ]:q b"LABEL"| l"1,0" vQ$"SESSION #"Q$ {: "LABEL" "2,0" Q$"OPERATION"Q$ : "LABEL" "3,0" Q$"DIGITS"Q$ : ,0: RESET ERR FLAG) D$;"CLOSE";NAME$/ :5 :O  **--DIF ROUTINE--**e JI1:NV5:NTI1u FILE$NAME$ NAME$NAME$".DIF" D$;"OPEN";NAME$ D$;"WRITE";NAME$ :  **--HEADER SECTION--** : "TABLE" "0,1" Q$NAME$ D$;"READ";NAME$, S$(I): SIGN@ DT(I): DIGITSU ,CR(I): # RIGHTj @WR(I): # WRONG JS$(I)"+"S$(I)"ADD" KS$(I)"-"S$(I)"SUB" LS$(I)"X"S$(I)"MLT" MS$(I)"/"S$(I)"DIV" TII1 h260: GET ANOTHER |216w ***--SCORES.DIF--***# :) :AD$(4): CONTROL D_Q$(34): QUOTATION MARKi(380~<S$(100),DT(100)PCR(100),WR(100)dI1x:5"STUDENT'S NAME PLEASE? ";NAME$:: **--FILE ROUTINE--** D$;"OPEN";      ::"POWER DOWN THE PRINTER"" D :2 "YOU GOT ";A;" RIGHT ON THE FIRST TRY": :h "YOU GOT ";A2;" RIGHT ON THE SECOND TRY"p : "YOU MISSED ";M;" ANSWERS" PC(A(AA2M))100 :"YOU GOT ";PC;" PERCENT CORRECT ON THE FIRST TRY" ::(4)"PR#0" ::Z0500, :"NO, TRY ONCE MORE PLEASE":4 Z1@ A2A21I 340O s :"NO, THE ANSWER IS ";A$(I):} MM1 Z0 0: D280 N: S: X**--DISPLAY SCORE--** \:::(4)"PR#1" bA2A2M lAAA2 :10 SUB$D"SUB$ J I1J* Q$(I),A$(I)1 IA D$;"CLOSE"G :M :e **--GET Q & A--**p I1Jz II1 IJ600 ,Q$(I) @: T"YOUR ANSWER IS ";S$ hS$"END"600 |S$A$(I)Ğ:"RIGHT - YOU DID GOOD"::AA1:540 $! ***--DRILL & PRACTICE--***' :- :ED$(4): CONTROL DX(Q$(50),A$(50)d<D$(4)jZ:p_:d **--FILE ROUTINE--**i:10j:"POWER UP THE PRINTER":k:n"SUBJECT NAME ";SUB$s:xD$;"OPEN"SUB$ D$;"REA  $(I) :A$(I) 3 "IS THIS CORRECT? ";Y$9 I Y$"N"140X II1:140^ ":d ':~ ,**--FILE ROUTINE--** 6D$;"OPEN"SUB$ @D$;"WRITE"SUB$ TI1 hJ1I1 |Q$(J) A$(J) J D$;"CLOSE"  **--INPUT Q & A--**! :' :?D$(4): CONTROL DR(Q$(50),A$(50)Z<I1`F:fK:d **--INPUT ROUTINE--**i:10n"SUBJECT NAME ";SUB$x:"QUESTION # ";I:Q$(I)Q$(I)"END"300"ANSWER ";A$(I) ::Q  R ";ECD;" LINE ";LOC2:820E<::9:"DISK CHANGER TERMINATED"dS$(JPLK)):7308(A$,4)"RENA"N$(JPLK)(R$,30)A750ZK6PP1:PL%P1sK7PP1:P1PL%|750 ECD(222):LOC(219)256(218):19:1:958:ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERRO19:1:958H(A$,4)"RENA"ĺA$:20:8:(A$,30):A$A$","(R$,30)a(A$,4)"RENA"ĺA$zD$;A$;",S";S;",D";D(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(0:1:868::B$;"DUPLICATE NAME";::10301LZHVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:" OR ANY OTHER KEY TO CANCEL.";jR$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$~A$A$" "N$(JPLK) 20A$"RENAME"1110J19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$""$I1(RR$).R$R$(((RR$,I,1))128):I8R$R$(BL$,30(R$))*BZ1L%PL:N$(Z)R$Ģ2K17K31810)KK16:(JPLK)C810AN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETE"A$" RENAME")L$(JPLK)"*"Ģ19:1:868::B$:"FILE ";K$" LOCKED"::8958%\K$(K):KK176:K0K99703fK01340EpK6K71260VzK8K9340z"PRESS 'LETTER' YOU WISH TO ";K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"RENAME"A$;::K$:K(K$)48(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" "L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":20:1:M1$:M2$:M3$:M4$;>K(16384)HK128830R16368,0:19:1:PL:CL%PLL%L%1$V$((VOL))<(V$)1V$"00"V$S(V$)2V$"0"V$sF$(F):(F$)1F$"00"F$(F$)2F$"0"F$:"SL:";S;" DR:";D;" VOL:";V$;" FREE:";F$;" PAGE ";P;" OF ";L%:JP1I1PLKK(JPLI)C8104 N$FFZ DS$(C)(Z)6 N(S$(C))1S$(C)"00"S$(C)V X(S$(C))2S$(C)"0"S$(C) bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128 lZ0T$(C)"T" vZ1T$(C)"I" Z2T$(C)"A" Z4T$(C)"B" N$(C)(INP$,ZZ,30) Y XL%C7 "PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490] I$"1"I$"2"Ģ5:1:958:440m I$:D(I$)w CD,D X1511 SEC,X:768 ZZ34 YF1F735 ZZZZ35 Z(Y33):Z0690 &CC1 0(Y)255N$(C)"1":670 : DISK IN SLOT: ";S;", DRIVE: ";D:"AND PRESS RETURN.";:R$:490Y "CURRENT SLOT IS ";S "PRESS RETURN OR ENTER SLOT #";:I$:I$(13)ĺ:440 I$"0"I$"7"Ģ3:1:370 I$:S(I$) OS,(CS):OD,(CD):CS,S16 :"CURRENT DRIVE IS ";DGE BACK"8 ,M3$"2=LOCK 5=RENAME 8=NEW DISK"k 6M4$"3=UNLOCK 6=PAGE AHEAD 9=RESET DRIVE" @S(18455)16:D(18454):K0 JCS,S16:CD,D TTRK,17 ^F496:P1:C0 h::13:"DISK CHANGER": rK0490? |K8ĺ"INSERT NEW),L$(105) 1290( D$(4):B$(7)? IOB777:T64:PL15M RB27136w CSIOB1:CDIOB2:TRKIOB4:SECIOB5 VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221 M1$"TYPE 'LETTER' TO RUN, OR 0=EXIT" "M2$"1=LOAD 4=DELETE 7=PAG dINP$""&nVS(106)256(105)GxVS2,240:VS3,14:VS4,150 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1I768793X:I,XIBL$""I140BL$BL$(160):I N$(105),S$(105),T$(105     ȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊRE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  +  @` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERROR L> m CANNOT RESTO ee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ`(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGET   ɛ=ɍ RIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)? !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= D! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   )  L H8H   G ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($H(h)JL G ` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ L m ERROR hhL0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i ii i ()?  HBhi T ii / X v SELECT 1.0 (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H $(*)+!h"0 H $(*    D :"MENU COOKING":+D$(4)B(D$"BRUN EASY RUN"dI      ̮ŠΠϠԠ̠ՠԠ̠Š ŠԠΠά٠Ƞ٠ӠΠĠЮ̠ͮ٠ӠҮϠԠŠӠΠӠӠҠ Šˣ٠Ơ͠ԡ#??p Š Ӡ  Ӡ Ӡ  Ӡ Ӡ  Ӡ Ġ ôӹӹ Ӡ Ϡ  ô̳ ̳  ӳӮƠԮƠӱƠ  ӱ ǠӠŠӠ õӸ ̱  ô ŠӠ ӱӲ ̴ĠӸӸ ӳà õ õӱ̴ Ǡ ŠҠ ƠҠ ĠנŠ ĠԠӠ ӹ ö Ӵ Ϡ ٠ΠˠҠ ŠѠ ̠Ѡ ӭƠ ƠҠԠΠԠҠŮΠӠŠˠԠӠӠΠ٠ߠߠ߮ĠƠōΠӠԠӠĠϠҠƠ߮ӍŠӠƠΠŠΠߠϱŠԠؠ٠ӠŠߠٮčƠՠĠϠĠΠŠĠԠӠŠŠӠΠȠˠՠĠŠߠߠ߮ΠŠٍՠĠŠΠߠϠĠԠǠԠſٍԠӠӮοčˠҠΠŠҠſɍҠԠӠŠРŠӠҠĠΠߠӠҠΠߠӮ̠čԠӠΠŠРŠƠԠĿŠԍƠՠĠϠĠ٠ԠϠӠĠՠˠҠΠˠ̠ŠŠԠҠŠߠ߮РōƠՠĠϠĠˠĠҠΠǠ٠ԠĠĠՠˠҠΠŠŠſҍƠՠĠϠĠˠΠ٠̠ˠӠԠϠӠĠՠҠߠΠՠĠˠҠŠĠĠƠŠŮΠōŠŠĠӠԠ͠ŠҠĠҠŠŠˠŠԠӠŠߠΠŠРŮōΠŠĠŠŠӠΠŠϠ̠ƠŠӠҠŠŠ ߠ߿ԠōƠŠӠϠ̠ҠΠΠՠנԠԠӠߠ߿ΠˍŠŠҠǠŠĠӠԠՠˠҠԠ٠ҠŠߠߠƠŠ߮ԠĠōƠŠŠӠȠߠߠϱŠŠŠΠӠƠǠӠŠĠȠȠŠΩҠŠԍנ٠ǠӠŠŠΠ٠ӠנˠҠȠҩҠӠŠĠ٠ǠϠŠҧԠӠҠſӠ΍ԠӠҠҧӠſ΍ ŠȠŠӠƠŠԮ٠ԠˠϠӠȠŠߠĠ߮٠ϠԠߠߠĠŠ߮ӠӠΠӠӍǠĿӍԠӠŠſԠΠŠ٠נӠŠĠӠԠƠӠĠӍԠĠŠӠϠĠΠӠϿĠĠĠӍŠӠĠ̠ŠſŠĠÍӠΠҠĠΠŠŠӿӍנǠĠŠŠԿϠԠŠϠנӿӠĠōԠҠӠŠԠˠĿԠŠӠȠҠұԠӠΠſŠϠĠҠҠҠΠŠϠΠōԠӠŠٿ٠ԠƠŠӠϠŠĠ͍נǠĠŠӠԿŠΠӍԠϠӠƠŠנԠŠԠŠ̠ĠŠҠŠӠ̠ҠĠҠĠōΠԠ͠ĠԠҠҠԠĠĠ٠ӠΠŠ٠ӠҠנĠŠ ŠΠŠӠӠԠɠӠŠӠΠ߮ߠߠӠƠҠŠŠӮҠ٠͠ŠӠҠҠ̍ΠŠӠŠӠŠΠԠҍ٠ŠԠӠĮŠϠŠŠӠŠ̠߮Š̠ĠӠϠԠ٠ĠԠϠ٠߮ĠӠŠĠ߮ŠŠӠĠԠŠŠƠŠߠ߮ŠŠӠߠŠƠŠǠĠŮנӠߠĠӠ߮ŠҠҠƠӠΠנӠӠ߮ŠӠΠĠŠԠΠŠĠϠΠԠϠԠԠԮŠߠߠߠӠŠӠŠРƠߠߠߠŠŮŠԠԠӠŠΠԠƠӠΠӠԠӠŠߠҠߠƠŠӮŠҠŠŠŠҠŠߠĠŠӠŠ߮ŠߠӠΠРŮŠԠӠԠԠŠΠĠŠӠߍΠԠԠӠǠĠŠӠ߮ŠӠŠߠ߮ΠŠƠ̠ĠŠԠӠŠӠ߮٠ŠƠĠŠ͠ĠĠ⩠ߠΠ͠ĠԮŠŠǠƠŠĠ̠ĠϠԮĠ٠ߠߠƠŻԠӠԠ٠Ԯ٠ԠӠŠϠŠ߮Š٠ߠΠŠ͠ӠߠŠĮŠŠӠƠҠŠߠߠ߮Ϡ٠ŠԠŠŠ͠ߠŠĠĠŠԠߠ͠ŠͮϠҠӠƠ͠ĠĠŠԠŠ᩠ߠΠĠԠ٠ȠҠΠŠ͠ӠߠϠŠԮҠŠΠǠĠȠҠŠŠ͠ߠŠĮӠĠŠӠߠҠߠߠƠŮŠҠĠΠŠĠȠŠԠԠƠԠҠŠΠŠà߮͠ŠŠԠӠϠԠȠԠӠŠߠߠӠԠŠΠӮߠߠΠ٠ŠĠŠӮŠĠ٠ΠߠߠƠŮՠΠŠΠӠҬٮŠߠŠŠϠŠ͠ĠŠߠŠŠ͠Š͠ϠŠԠϠŠĠŠŠҠΠԮŠԠƠŠĠϠԠΠԠӠߠϠŠԠƠΠԮɳŠŠǠƠҠȠԠĠȠԠΠŠĠߍĠ̠ĠȠŠ٠ŠĠߍŠԠĠȠҠΠΠߍŠŠҠǠŠҠҠǠӠ    ŠРӠ٠߮ȍՠĠŠŠҧӠŠϠ̠ŠϠŠΠŠΠ߮ōƠՠĠϠĠΠנƠԠĠҠŠԠҠՠĠŠ߮ˍҮ̍ߠӠԠƠӠӠĠҠĠήٍƠՠĠ̠ΠΠՠĠŠΠ߮ӍΠӠӠˠƠ߮ӍԠӠŠȭȠήŠР̠Ǡ٠ӠĠ͍߮ĠϠŠŠӠΠŠӠŠǠƠ̮čĠŠߠŠ̠ƠӠ٭Ġ͍ͮ͠ӠϠĠߠߠ߮Š٠ٍϠӠӠ̠Ƞ߮΍ŠŠƠŠӠΠ٠ҠӠȠ߮ϠӠŠĠǠƠ̿čϠӠŠԠǠƠŠӠԠ̠ĠȠ̿̍ŠĠ̠ԠӠĠΠǠȠ̠ӠĠ߿ǍŠĠ̠٠ĠĠŠӠ߮΍ŠĠŠӠϠŠԠŠӠ߮ȍӠӠŠŠƠŠΠ̠߮̍ŠӠŠΠҠӠŠҠӠϠĠŠӠŠߠߠߠ߮ȠΠΠ̍ŠԠĠԠŠӠ߿̠̍ĠߠҠ̧ӠĠӠΠԠĠĠΠ͍̠̍ĠҠߠӿӠĠȻ٠Ġ͠͠ĠĠŠӠߠ߮ӠȠԠҠŠƠŠӠϠŠӠŠ٠ǠŠ٠ߠ߮ӠŠӠŠĠ٠ҠӠߠ߮ղŠΠŠӠΠӠҠٮ٠ĠҠȠΠŠ߮ӍŠӠŠĠȠҠ٠ĮӠԠΠŠĠ͍߮ŠӠĠϠȠҠРߠ߮ӠŠӠנРĠӠŠŠӠƠŠĠŮŠӠԠӠϠҠĠĠŠӮߠΠĠӠٮΠנӠ٠ߠ׮ŠŠϠĠĠߠϠŠ̍ӠΠԍȠŠ͠ŠӮԠԠԠŠĠƠŠ̠ͿԠĠ٠ΠӠנǠȠϠ̠ŠӠĠϠΠҮŠԠҠĠŠǠϠŠŠΠƠŠҮ͠ҠǿĠϠРŠǠĠӠͮԠŠŠӠϠǠΠſ٠Ġ̠ӠȠŠŠӠˮŠŠӠŠӠРĠٮŠŠϠӠϠӠŠĠӮŠŠ̠ͮŠƠŠӠŠĠϠӠĠӮŠǠŠĠϠŠӠϠĠ٠ϠǮӠŠĠҠƠϠӠϠĠ٠ĠϠӮԠӠĠĠŠŮŠŮԠΠӠҠРӮΠҠĠήȠŠӠŠĠ٠ȠҠԠĠȠҮŠӠҠŠǠԮĠƠŠӠĠ٠ĠӠϠĠϠΠӠƠˠĠϠԠҠΠӮ٠ĠӠΠϠנΠŠŠŠӿ̠ĮΠӠǮӠΠϠԠĠӠƠŮӠҠ͠ӠĠοӠĠԠŠĠŠӠŠ٠ŠԠĠ٠ŠĮΠĠŠŠһӠĠԠŮ٠ĠϠŠĠΠȠ٠ĮԠӠĿРƠӠҠǠԠӠŠŠŠӿĮϠĮ٠ӠŠ̠͠ĿӠŠӠϠŠŠŠΠΠŠƠҮϠԠԠӠŠŠĿӠĠӍנĠŠӠƠ     ӠߠĠӠ߮٠ԍӠŠ͠ߠĠ߮ȲϲӠŠƠߠҠŮϲŠŠƠߠҠӮϲߠӠ٠ҠȠӠĠŠϠŮȲύ͠ŠΠŠӠȠΠǠ̠ŠŠ߮̍ŠǠƠנŠӠĠΠ߮ύȠŠӠŠРƠ٠ӠĠ߮ӍӠ٠ŠŠƠٍ߮Π͠ӠŠԠƠȠԍǠ̍ԠӠŠŠƠŠǠ͠ΠԠĠҠΠΠ̧ӠǠ̿ύŠϠӠƠӠȠϠӠŠȠŠΩΠӠӍΠӠŠĠ٠Š߮΍Š̠͠Ơ٠ԠӠſ̍ԠӠŠŠƠǠŠԠӠӠŠǠ̠ĠӠΠ٠ΠοΠōԠӠŠŠƠŠĠ̠ΠԠҠ̠ԠΠĠȠ̠͠ӠנͿ΍ԠӠŠ٠ΠԠӠĠΠŠΠƠҿ΍ԠӠŠŠƠŠŠŠ̠ΠԠҠ̠ԠΠĠȠΠǠ̠ΠРϠנͿ̍͠ԠԠƠҠӠӿԍԠӠŠԠΠŠŠԠӠàϠŠԠƠŠÿōԠĠӠŠӠƠ̠ŠӠĠӠΠٿ͍ԠԠƠҠӠοŲԠӠŠ͠Ơ̠ŠӠĠ٠ΠͿٍԠӠŠŠŠ̠ӠàϠǠŠ٠ӠƠȠͿōԠӠԠΠϠŠǠ٠͠ŧӠōߠߠΠŠŠӠȠӠΠ̠͠ԍōߠӠϠŠנŠӠ̠ЍԍԠӠĠҿàčΠԠ٠ߍŠǠԍŠ̠Š̠ߍŠ̍ŠԠŠԠߍŠԍӠŠŠߠƠ٠ӍōӠŠ̠ӠƠŠߠߍōߠӠĠΠŠŠȠӠΠàԠ͠ԠϠǍōŠԠƠҠΠȠĠӠč̍͠ǠԠӠҠŠŠԍčҁӠŠĠ٠ߍӍŠԠӠӠҠӠ΍΍̠ŠǠӍō̠ԠӠȠΠǠ̠ǠŠŠԠƠנ͍̍͠ԠԠӠӠΠǠƠĠΠŠӍԠԍԠƠȲŠŠΠŠԠӠӠΠ͠Ӎנ٠àǠ͠ŠΠŠӍ΍Ǡ͠ŠǠҠŠȍύŠԠƠҠԠ    ΠԠŠŠӠӠĠРҠӮנӠŠ͠ĿΠӠΠŠȠԠŠŠ̮ŠȠŠΠӠȮԠŠŠŠ̠ŠӠŠϠРĮ΍ӠǠħӠο΍ĠĠĠҠ̠ҠŠΠߠ߮٠ӍĠӠĠΠ͍߮ԠӠҠŠҠͿ٠Ơč٠ĠĠ̠ΠԠӠ͠ĠŠĿŠΠԠӠĠĮŠĠĠŠϠŠǠŠԠߠߠǠͮ٠ӍҠ٠ӠĠ͠ŠӠƠŠ٠Ӡ٠ĠҠ߮ӍΠŠӠĠԠԠŠӠԠŠŠĠϠԿӍԠŠӠŠŠΠ٠ȠϠԠΠͿӍԠŠŠӠƠӿӍҠŠӠĠΠΠŠӠҠ٠Ӡ٠ĠϠòӠŠӠǠϠŠӠƠ߮ԍߠӠŠŠҠΠӠϠŠנĠҠĠΠԠӮōŠӠŠҠƠΠǠĠΠŠĠ٠Šߠ߮٠ԍ   ӠĠΠϠ͠Ӡ٠ĠǠŠ٠Ǡߠߠߠߠ߮Ҡנ͠ˍҠԠǠϠͿĠ٠ӠΠŠӍ٠ߠĠߠĠŠƠŠǠΠĠŠϠҠή ĠΠŠӠĠԠߠ٠ΠĠԠӠĠήȍĠԮԠӠĠƠ߮ōŠӠĠŠĠŠΠƠħӠŠϠ߮΍ߠҠҠϠĠĠΠĠ ϠĠӠĠήԠԠĠĠŠŠӠƠĠŠ٠ϠנҠߠĠŠ͠Ϡ߮ŠٍŠӠĠŠŠ߮ӍߠӠϠԠԠԠӠ̠ŠҠӮōΠŠԠŠŠĠӠŠӠӠנԠΠ̠ԠĠΠߍˍҠŠӠŠӠŠΠƠߠ߮ħӠōŠӠĠ͠נϠŠߠߠߠߠ߮Š͠ŠĠӮŠӠĠԠҠӿԠĠĠŠϠӠŠϠŠ͠ΠŧӠٿΠӍΠ٠ĠԠߠߠӠĠŠΠŠĠĠԠΠϠͮԠɍŠӠƠŠԠŠΠӠŠϠŠŠӮԠĠϠŠӠΠ٠ĠϠӠԿ٠ĮŠŠŠӠǿŠĠčԠĠŠӠԠΠŠӿĠ̍נ٠ӠĠŠӠҠΠŠԠĠĠ̠ӠϠ̠ŠӠϠϠϠĠҠΠΠǠĿԠŠĠƠ ΠҠԍŠӠĠ٠ӠĠΠԠԮӠӠĠŠ߮ӍŠĠӠĠҠǠȍĠĠӠϠߠߠߠߠߠߍĠ٠ŠԠƠԍϠԠȠӠϠҠħӠŠϠȿ΍ΠȠĠϠ٠ħӠĠϠԠӠŠϠŠƠߠŠΠŠĮӍנӍϠĠħӠ٠٠ΠŠӠǠŠҿȧӠҍԠĠŠŠͿӍŠĠӠŠҠǠΠοɠԠϠĠӠٿȍנĠĠˠϠӿ͠³ϠĠĠŠϠŠӠŠ͠٠ΠԿӍΠԠˠƠŠŠӠŠΠƠӠĿӍϠĠŠӠϠٿȍȠĠԠϠߠߠߠĠŠĠϠŮΠ     ֍֍֍čōԢӍӍ̍Π̍΢̍Ӣ̍Ԣ̍ǢԍΠ΢ӢԢǢԍ֍֍֍֍čōӢӍӍ̍Π̍΢̍Ӣ̍Ԣ̍ǢԍΠ΢ӢԢǢԍ֍ŠĠĠοҍƠ ӠԠԠӠŠĿōƠ ӠĠΠŠĠΠԠӠŠĿōŠŠŠӠĠ٠ǠŠ͠ƠŠ ߮ōΠӠŠ͠Ơ߮ԍԠӠŠԠƠ̠ӠΠŠŠľՍŠӠ٠ŠŠΠŠŠĮԠӠԿԠԍԠӴԠӠŠ٠Ơ ȠӠҠŠԠӠŠҠҠŠҠƠŠοōƠŠԠӠŠҠƠŠΠΠԠӠŠſōƠŠԠӠŠҠƠŠΠԠӠŠſ ҠӠՠԠϠ٠ϠήՠԠԠĠŠĠΠٍ߮ŠӠĠŠˠƠŠԠӠΠƠħӠԠ߮ōŠƠŠԠ٠ԠŠӠĠΠούԠӠŠŠƠŠŠԠŠŠӿɍԠӠҠĠĿ΍ŠŠΠҠΠŠԠŠŠ߮͠΍ƠՠŠĠŠԠŠРӠŠŠƠŠĠĿ΍ԠӠŠŠƠŠҠԠĠϠŠĠϠԠϠο΍ĠӠҠŠĠĿύϠĠӠŠϠĠŠŠϠŠĠĠҠŠĿԠӠŠߠƠ٠ĠȠΠӠҠϠ̠ͮōߠӠŠԠ̠ΠŠĮ΍ߠĠŠȠƠӮ΍٠ӠȠӠŠŠҠƠ߮΍ŠԠƠΠӠΠϠРӠŠ߮΍Ԡ٠ĠĠ٠Ǡ٠ĠӠϠŠȠĠҠͮĠĠӠӮŠĠӠϠŠߠߠĠԠԠΠŠҠŠŠϠŮŠōΠŠŠĠԠŠŠŠ٠ĠԠߠߍΠ̍Ԡ̠ҠӠΠ͠ſŠߠߍӠӍŠӠŠΠĿԠӠĠΠߠΠŠߠ߮ŠΠԠƠΠӠҠǠӠĠҠӿٍԠĠƠРӠ٠ԠƠŠ̿ύȠΠӠϠĠĠĠΠŠĠ߮ӍԠϠՠ̠ΠҠĿύԠϠӠ٠ŠΠϠԠԠӠΠŠŠĠ͠ҠϠҠϠРĠſߠߍР΍ԠŠĠӠƠŠҠĠĿˍԠӠŠŠƠҭĠ̠ĠΠӠĠŠϠŠҳԠӠŠԠƠĠпԠӠŠŠԠӠȠŠŠƠӠĠŠӠ٠ϿٍԠӠҠΠǠӠΠٿߠߍ̠ҍԠӠŠŠԠӠ     ŠӠΠŠĠΠϠӮŠͮҠӠǮҠӠŠӠŠĠ̠ȠӠŠΠϠРŠĮӠΠŠàŠԠΠӠΠߠ߮ǠӍנŠԠƠҠԮŠàŠ٠ŠĠҠȠӮߍŠǍӠŠĠϠȠŠϠŠ߮ύӠҠΠӠӠ̠ӠΠӮŠҠōōŠƠŠŠƠӮŠҠōōϠŠΠԠŠӠĠˠԠŠǠƠŠ̠ĠŠΠ٠נΠŠǮŠҠōōԠӠԠנŠԠƠŠԠŠĠȠӠԠ͠ߍ̍ΠϠĠԠŠӠŠҠԠҠŠԠĠϠŠԠԠߍӍΠӠĠǠΠŠߠ߮àōŠԠĠϠҠŠӠӠҠРԠӠŠԠԠԠӠŠŻŠԠӠϠӠǠΠԠԠ͠ԠƠҠԠ̮ŠҠōōΠϠĠԠԠӠĠŠӠƠŠŠΠŠӠߍ΍ӠԠƠԠŠΠŠߍčӠԠŠҠԠҠŠԠҠϠŠĠƠΠӠخҠ׽ŠҠōōŠŠϠӠƠӮűԠϠӠ٠ĠΠΠӠߍԍΠ͠ԠӠ͠ŠǠƠϠӠȠŠҠԠΠԠߍčנàԠΠŠĠӠԠƠŠ   ֍֍֍čōӱӍӍ̍Π̍΢̍Ӣ̍Ԣ̍ǢԍΠ΢ӢԢǢԍ֍٠ĮӍߠƠΠĠƠŮԠӠĠ͠ŠߠߠŠŠ٠ΠӮˠˠˍ̧ӠƠ٠ӠŠǠƠߠҠ߮ӠōĠҠŠ٠ߠĮǍߠӠŠ̠Ơ̮΍ߠӠΧӠҠǠٮߠӠȠ٠ƠٮōߠӠΠٮߠӠŠ̠ƠήčˠӠŠΠϠԠΠ٠ŠԮϠŠŠ٠ԠͿΠŠӍߠߠߠĠߠŠŠҠΠӠƠŠȠĠŮǠǠǠǍΠĠ̠ԠȠĠϠŠӠ߮čߠߠߠӠŠԠҠϠ̠ĠŠŠĠԠΠ߮ϠŠŠƠ̠ˠŠߠŠŠ̠ӠĠĠĠ٠߮Š̍ߠߠӠŠӠĠϠΠ٠ŠӠŠߠߠĠ߮ΠŠԍߠߠĠߠߠĠŠϠӠԠĠϠԠǠĠΠΧӠŠĠϠŠĠԠŠŮԠӠĠߠ߮ΠōҠ̿נǠĠΠŠ̿ŠҠҠŠӠߩϠӠŠΠϠĠ̠Ҡ̿ԠŠ٩̍ΠĠ̠ΠӠſӠӠĠҠŠˠĠōΠϠĠŠԠߠ߮ǠӍҠϠԠǠӠΠĠŠŠӠŠĠΠ̠ŠŠԠߠߠΠŮҍΠĠΠҠΠŠϠŠߠ߮ҠԍԠĠŠӠԠŠŠΠРƠŠߠƠ߮ŠӍҠŠӠĠĠŠΠРƠŠŠƠӠŠǠĠԠϠŠŠƠߠ߮ŠȠӠƠȠߠߠߠĠߠĠߠߠ߮ŠŠΠӠϠŠύߠӠŠԠҠϠȠŠҠԠ٠ǠԮ΍ŠŠĠϠ̠ĠΠҠϠĠԠƠߠĠŠӮӠΠǍΠӠԠԠԠӠҠԠƠߠ߮ҠӍԠĠŠӠǠŠˠϠΠ͠ŠΠſߠĠߍĠҍŠӍŠӠĠΠΠҠŠΠߠӮŠӠŠԠĠƠȠŠΠοԠϠȠӠŠĠ٠ſΠōΠӠΠҠҠߠߠĠҠĠ΍ԠŠӠĠŠӠŠϠŠŠƠοߠߠߍӠ٠ˍԠ٠ŠŠנҠƠȠǠҠŠ̠ƠύŠϠӠӮߠߍڠĠŠԠӠϠߠĠ߮ȠٍӠŠΠΠΠ٠߮΍ϠĠŠΠҠŠӠԿӍΠŠӠĠҠŠӠϠŠ٠ŠߠĠĠϠΠϠ߮ź:=804,E$,A$,J:JJ0::SPECIALIZED J=VAL(A$) FUNCTIONQJ(((A$))):Z jJ(J)(J)51,6:CK,1:255:32::FC$:CR,1:FL,134:1784SL,32:DR,1:KU0:C800:"AWAITING CALL";:INLIN,248:41000A$"SYSOP"(512)1930000:A$",3)"WAP"A$(A$,4):630; b(A$,2)"WP"A$(A$,3):630E lJ0:W v900:892,J: F0:FO$;F$(F);",L452"::OPEN MESSAGES F1:FO$;F$(F);",L40"::OPEN USERS FR$;F$(F);:F2ĺ",R";R;:OPEN & READ FILES, RECORD R IF MESSAGES OR USERS*(((DA$,5))):ZZJ: Z0460:KK1:K1JJJJ1:K12M ZZMO(K):440b JJJ1E4K100Zm KMC1 KK1:BDA(K),2:J(B$)K0470 KK1:KMCġ:"NO MESSAGES":2000  FW$;F$(F);",R";R::WRITE FILE F, RECORD R XCK,1:(A$(1319(Z2(Z2)C80));:(F0Z9)3305 TC80ĺ@ ^FC$: "SINCE ";:KUĺ"HOW MANY DAYS? (#/A=ALL/CR=SINCE LAST CALL)":DATE SEARCH INLIN,3:(A$)0JLC:465 (A$)65K0:480 900:J90400 JJ((DA$,2)):K((DA$,3,2)):ZTO ";:TZ,1,U$,L:Lĺ"[YOU]";:240- PZ,1n BZ,2:30(36))"DATE="(B$,3,4):"SUBJECT: ";:PZ,3::: ,F4F8ĺFO$;F$(F);",D2":PRINT FILE F 6FR$;F$(F);:F0ĺ",R";R; @:Z0:F0ĺFP$;F$(F)",R4":FR$;F$(F)* JINLIN:ZZ1:(A$)ĺA$;LOTt 74:4:(23)"C":INLIN,16:32:51,6:DA$(A$,9,2)(A$,3,2)(A$,6,2)"."(A$,12,2)(A$,15,2)(A$,18,2): d20000 eACTIVE,255:51,6:32:INLIN,248 n1000 "MSG "Z" FROM ";:TZ,0,U$,L:Lĺ"[YOU]";:220:MSG HEADER PZ,0# " vJi (4)"MAXFILES2":6409611256:::18);"ABBS":A$" ":J0:KJ:ZJ:D$(4):B$A$:SL3:SL=MM2 SLOTr1000:0:1002: 37888::$9400!::33,33: 2(491524256234)8(491524256236)4(491524256238)2ı:4=CPS CARD S                         ٠ĮӍ٠ĮӍ٠ĮӍA$"1"2000:"ENTER USER # (IN 4 DIGIT FORM) ";:INLIN,4:900LJ((SY$,3(J999)))ĺ"CANNOT PRINT SYSOP'S PASSWORD":2000VJ4095ĺ"# OUT OF RANGE":2000`630:Jĺ"USER NOT ON SYSTEM":2000j701:RJ1:800:INLIN:A$:FC$:2000MtF F10:300:2000:$0U$SY$U$T2$2020:Yb"ALL OR ONE? (A/1) ";:INLIN,1:A$"A"3650{$F1:NM$:FR$;F$(F):.INLIN:(A$)02000:(A$,4)S1$ĺ(A$,4)" "(A$,5,4)" "(A$,9):36308(A$,4);" SYSOP PASSWORD DELETED "(A$,9):3630@B3370 "WP";1* (A$,1(Z0),3(Z0)):3340cH "ENTER USERID";:KUĺ" (WAPNNN OR WPNNNN):"~R INLIN,6:(A$)62000\ 600:Jĺ"SORRY, THAT USER IS NOT ON THE SYSTEM":2000f 701:RJ1:800:INLIN:"THAT USER IS ";(A$,9,15):FC$:20000:W; "ENTER FIRST TWO LETTERS ";:KUĺ"OF LAST NAME";w ":":INLIN,2:(A$)22000:J(512):K(513):701:R1 RR1:800:INLIN:(A$)0ĺFC$:"END OF NAME SEARCH":2000 J(520)K(521)3340:(A$,9,15);" ";:Z(512)48:Zĺ"WAP";:BEING ENTERED">2000! 7 F3:300:2000:BM F4:300:2000:Mc F5:300:2000:I "SELECT OPTION:":"1 - GIVE NAME, GET NUMBER";:KUĺ" (REQ. 1 MIN.)"; :"2 - GIVE NUMBER, GET NAME":"?";:INLIN,1:A$"2"3400:A$"1"3320:200ASE TRANSLATION"X*"CTRL-S - STOP PRINTING UNTIL YOU ENTER":9)"ANY OTHER CHARACTER"4"BACKSPACE (LEFT ARROW OR CTRL-H) -":9);"ERASES A CHARACTER":"RIGHT ARROW (CTRL-U) - RETRIEVES A PRE-":9);"VIOUSLY ERASED CHARACTER":"CTRL-X - CANCELS LINE "(HIT RETURN)";:INLIN::"TO RETRIEVE A MESSAGE, ENTER ITS NUMBER"::"YOU MAY USE THESE CONTROL CHARACTERS:" "CTRL-C OR CTRL K - STOP WHATEVER IS":9);"GOING ON AND GET NEW COMMAND":"CTRL-J - TURN ON LINEFEED INSERTION":"CTRL-L - TOGGLE LOWER CUMMARY OF MESSAGES":"R - ":"S - SUMMARY OF MESSAGES" "W - WHO IS ON THIS ABBS":"X - XFER FILES (FILE TRANSFER)":"$ - CLUB STORE PRODUCTS AND PRICES":"? - LETTERS OF ALLOWED COMMANDS":"+ - TOGGLE 80 COLUMN MODE"pAGE)":"I - DETAILED INSTRUCTIONS FOR THIS ABBS":"K - KNOWLEDGABLE USER":"L - LISTS MULTIPLE MESSAGES":"M - WASHINGTON APPLE PI MEETING NOTICES"U"N - ADJUST NULLS AND LINEFEEDS":"O - ANSWER OPINION POLL":"P - PRINTS SIGNON BULLETIN":"Q - QUICK SCE . . .":"LET ME REMIND YOU OF THESE COMMANDS:":"A - AMEND EXISTING MESSAGES":"B - OTHER BULLETIN BOARD SYSTEMS":"C - CHAT WITH SYSOP":"D - DELETE A MESSAGE":"E - ENTER A MESSAGE":"G - GOODBYE (SIGNS YOU OFF)""H - HELP (PRINTS THIS MESS"?";:51,0:INLIN,3:900:J0JMS5200:804,A$,AC$,JJ6000,3000,4200,5300,5400,5900,19000,2030,3200,4000,5800,3100,4100,3700,1160,5000,9000,5100,4400,3300,10000,3600,28000,3500,4500,4600:ABCDEFGHIKLMNOPQRSTWXYZ$?+1:"PERHAPS YOU NEED ASSISTANEQUEST BULLETIN? (Y/N) ":INLIN,1:A$"Y"1190<F2:300"THE FOLLOWING MESSAGES ARE FOR YOU:":J1MS:TDA(J),1,U$,K:TDA(J),0,EM$,KK:KKKĺDA(J)" ";:(36)35ĺ:CK,1:ALLOWLC,0:32::NM$:FC$:CK,0:43624,1:KUĺ"COMMAND";6$,34,4)):JJ1(J999):50:500:(B$,23);(DA$,10);4((J)));(J);(B$,2)tFC$:CK,0:SOSO1:U$SY$SOSO1:"HELLO, SIR. "SO" USERS HAVE SIGNED ON."~(ACTIVE)0ĹACTIVE,6450:"SYSDATE.TIME: ";DA$/"LAST BULLETIN UPDATE: ";BD$:"RPSWD OR WPNNNN.PSWD:":(4);"NOMONI":INLIN,11:(A$)111060vL(514)48Ĺ513,65:514,80:CONVERT WP0001 TO WAP001`U$(A$,6):B$(A$,4):A$U$:600:J1060:701:RJ1:800:INLIN:JB$(A$,5,4):B$(A$,1):D$:J1060LjLC((B$,24,13)):J((B"NEED HELP SIGNING ON?":INLIN,1:A$"Y"1090:"TO SIGN ON, ENTER 'WAP' IF YOUR MEMBER- SHIP NUMBER IS <1000, 'WP' IF >=1000."8"THEN ENTER YOUR 3 OR 4 DIGIT MEMBERSHIP NUMBER, A '.', THEN YOUR 4 CHARACTER":"PASSWORD."=BZ422000:"ENTER WAPNNN.IN"ĹCH,1:"SYSOP NOW IN":1001JA$"OUT"ĹCH,0:"SYSOP NOW OUT":1001^(512)3İ30:::"ENTER A CARRIAGE RETURN:";:INLIN,6:ALLOWLC,0:Z0:900:J0J256ĹCRDLY,J1256(J255)INSERT PRE-SIGNON MESSAGE HERE$ZZ1:Z31090.|ALLOWLC,0:"SAVE ";:KUĺ"TO DISK? (CR/N) ";.INLIN,1:A$"N"İ700:RJ:500:MCMC1:Z013:M$(Z)::FC$:Z03:AJ,Z,M$(Z)::"SAVED":FG(J)0:.KUĺ"EDIT/RE-ENTER/CANCEL ";/"(E/R/C) ";:INLIN:A$"R"A$"C"įAJ,0,EM$:AJ,2,D1$:A$"R"DA$:"SUBJECT ";:KUĺ"OF MESSAGE (MAX 20 CHARACTERS):"-^ALLOWLC,1:INLIN,20:M$(3)(A$,1):"ENTER MESSAGE ";:KUĺ"(MAX 10 LINES OF 39":"CHARACTERS, 2 TO END):";-h:K0-rKK1:K10);K;"?";:INLIN,39:M$(K3)(A$,1):(A$)K1054900.:":"TO: ";:KUĺ"(ALL,WAPNNN,WPNNNN,SYSOP,C=CANCEL) ";c,,:INLIN,6:(A$,3)"ALL"A$AL$:5460,6(A$,5)"SYSOP"A$SY$:5460,@(512)67įAJ,0,EM$:AJ,2,D1$:,J(A$)6((A$,3)"WAP"(A$,2)"WP")54019-TM$(0)U$:M$(1)(A$,1):50:M$(2)D":C+K1MC1:DA(K)JāZKMC1:DA(Z)DA(Z1):FG(Z)FG(Z1):+K:DA(MC)J:AJ,0,EM$:AJ,2,D1$:MCMC1:KKKK1:700:RJ:500:EM$:FC$:"DELETED":+5401:2000:E+MCMSĺ"MESSAGES FILE FULL":8,"CK,1:JDA(MC1):"ENTERING MESSAGE ";J;"2000*5350:2000@*"DELETE ";:KUĺ"WHICH MESSAGE? ";:D^*INLIN,3:900:5320:2000n*J1JMSı*BJ,0:TJ,1,U$,L:B$EM$(U$SY$B$U$L)5340:*ZJ:200*KUĺ"ARE YOU ";+"SURE? (Y/N) ";:INLIN,1:A$"Y"ĺ"MSG NOT DELETEMESSAGE "J" DOES NOT EXIST":2000:MSG #x)ZTJ,1,AL$,K:KįTJ,1,U$,K:KįTJ,0,U$,K:KU$SY$ĺ"PRIVATE MESSAGE":2000)dZJ:200:700:RJ:300:TJ,1,U$,K:K2000:KUĺ"DO YOU WANT TO ";)n"DELETE THIS ";:KUĺ"MESSAGE? ";*xINLIN,1:A$"Y"Ă(400:JJ0:JKMC:ZDA(J):TZ,1,AL$,KK:TZ,1,U$,L:TZ,0,U$,F:U$SY$KKLFİ200:FGĺ"FLAG? (Y/CR) ";:INLIN,1:A$"Y"FG(Z)1:JJ1:(:JJ2000:"HIT RETURN";:KUĺ" TO REVIEW FLAGGED MESSAGES";(INLIN:KK0:5810()PTJ,0,EM$,K:Kĺ":"THE FOLLOWING MESSAGES ARE FOR ALL:":J1MS:TDA(J),0,EM$,K:KįTDA(J),1,AL$,K:KĺDA(J);" ";:(36)35ĺ':::"TOTAL MESSAGES IN SYSTEM = ";MC:2000'KUĺ"DO YOU WANT TO ";:S("FLAG MESSAGES? ";:INLIN,1:FGA$"Y":FGāJ1MS:FG(J)0:2000&C801C80:2000!& &"THE FOLLOWING MESSAGES ARE FOR YOU:":J1MS:TDA(J),1,U$,K:KįTDA(J),0,EM$,K:KĺDA(J);" ";:(36)35ĺ:Q&::"THE FOLLOWING MESSAGES ARE FROM YOU:":J1MS:TDA(J),0,U$,K:KĺDA(J);" ";:(36)35ĺn':1)d%D"ENTER NEW DATE: (CR=KEEP DATE) ";:INLIN,13:(A$)13(A$)04420:(A$)0DA$(A$,1):K1}%N"NEW DATE = ";DA$:%"ABCDEGHIKLMNOPQRSWX$?+":U$T1$U$T2$U$SY$ĺ"YOU ARE ALSO ALLOWED T";%U$T2$U$SY$ĺ"Y";%U$SY$ĺ"FZ";&:ONTINUE USING THE ABBS. THE SYSOP":"WILL CUT IN WHEN HE CAN":2000m$:"HI, THIS IS THE SYSOP. ";:CK,0$INLIN,248:4310$0U$SY$U$T1$U$T2$2020:4410:2000:T%:"DATE = ";DA$:"INCREMENT DATE? (Y/N) ";:INLIN,1:A$"Y"DA$((DA$)O LARGE. ";:J07#JJĺ"WILL ASSUME NO DELAY.":J255D#TJ:2000n#h"THE SYSOP IS ";:(CH)ĺ"NOT ";:C#r"AVAILABLE":(CH)2000#|"DO YOU WISH TO CALL THE SYSOP? ";:INLIN,1:A$"Y"2000D$"CALLING THE SYSOP";:J15:(7);:::KUĺ"C(Y/N) ";:J134:INLIN,1:A$"Y"J150"6FLAGS,J:J150ĺ"DELAY AFTER CARRIAGE RETURN (0-255,":"EQUAL TO 0 TO 2.55 SECONDS) ";:INLIN,3:900:JJ1256(J255):J0J256ĹCRDLY,J#@"SPEED= ( FOR NO DELAY) ";:INLIN,3:900:J255J255:"VALUE TO"DELAY AFTER CARRIAGE RETURNS IS":J(CRDLY):(J1256(J0))100;" SECONDS.":"SPEED=";256(241)!"KUĺ"YOU GET THE DELAY AFTER ONLY IF":"LINEFEED INSERTION IS ON. THE 'SPEED='":"DELAY IS IN EFFECT AT ALL TIMES."%","DO YOU NEED LINEFEEDS? AX. 65 CHARS.)";] :INLIN,65:(A$)A$(A$,1):CK,1:D$"APPEND"F$(F):FW$;F$(F):A$:FC$g 2000| KU1KU:2000:K (FLAGS)134(FLAGS)150ĹFLAGS,134:N KU4140:"CURRENTLY, LINEFEED INSERTION IS ";:(FLAGS)134ĺ"NOT"b!"ON.":11:FO$;F$(F)",D2":U$SY$3710:"LIST OPINIONS? ";:INLIN,1:A$"Y"İ300:O~"THE QUESTION IS:":800:INLIN,248:A$:FC$:KUĺ"DO YOU WISH TO ";"RESPOND? ";:INLIN,1:A$"Y"2000:INSERT CHECKING ROUTINE HERE "YOUR RESPONSE: ";:KUĺ"(M400)129(38803)96ĺD$"BLOADABBS1.OBJ0"X>4NNM$D$"NOMONC,I,O":MI$D$"MONI":NM$:>>NSL:FLAGS1912SL:FLAGS,1282:(26):32:30:FLAGS,12842>HNACTIVE227:ACTIVE,0:ALLOWLC249:ACTIVE=$E3, ALLOWLC=$F9?RNINLIN768:CH239:CH,0:CHAT=0 IF SY-A] [CTRL-F] [RETURN]":INLIN'=p+20008=.R1500::p=8JCK,1:"THANK YOU FOR CALLING, ";U$:J1400::101y=N = NDR43624:D$"MONC":DR,1:(771)184(792)169(896)227ĺD$"BLOADABBS3.OBJ0":DR=DRIVE #+>*N(37889)3(38399)240(38M$(J):MI$:FR$;M$(J):K0E+Z73ĺ"INT". END FILE WITH 'EOF'."9'INLIN,255:A$"EOF"10140:(A$)410120:A$(A$,1):'FW$;BCM$,A$,J:B$(A$,J1)ĺ"THAT FILE NAME IN USE.":"SELECT ANOTHER.":FC$:10040`8V'KK1:100608`'FC$:K9ĺ"SORRY, NO SPACE AVAILABLE FOR UPLOADS.":20009j'"ENTER FILE TYPE: APPLESOFT, INTEGER OR":"TEXT (A/I/T) ";:INLIN,1:J(512):J65J73J10"7$'CK,0:F6:300:CK,1:10010Z7.'"ENTER UPLOAD PASSWORD: ";:INLIN,30:UP$A$200078'"ENTER FILE NAME: ";:INLIN:(A$)020007B'804,CM$,A$,J:J010040:"PLEASE WAIT":B$(A$,1):FO$;F$(7);",D2":FR$;F$(7):K0O8L'INLIN:(A$)010080:804,NLIN,1:A$"E"6040:700:RJ:500:Z013:M$(Z)::FC$:"SAVED":2000i6(#2000:INSERT "R" COMMAND HEREr6' 6'"FILE TRANSFER SYSTEM":CK,17':"HELP, UPLOAD, DOWNLOAD, QUIT:":"(H,U,D,Q) ";:INLIN,1:804,A$,UL$,J:J10020,10030,11000,2000:100B$ĺ"MESSAGE NOT SENT BY YOU":2000M5K413:M$(K)""::700:RJ:800:K15KK1:INLIN:M$(K)(A$,1):(A$)0K1360305FC$:"LIST? ";:INLIN,1:KK3:A$"Y"ZJ:200:Z1K:Z10);Z;" ";M$(Z3):F65550:KK3:"EDIT MORE/SAVE? (E/CR) ":I0:F=4430:KKK1:JJ1:KK0ĺ"NO MESSAGES THAT OLD":2000z4 ZDA(JJ):200:700:RZ:300:JR:5350:JDA(JJ)JJJJ14*JJJJ1:JJKK2000:59204pKUĺ"ENTER ";:A#5z"MESSAGE # ";:INLIN,3:900:J1JMS2000:BJ,0:B$EM$5200:U$SY$U$THIS MESSAGE? ";:INLIN,1:A$"Y"JDA(KK):5350s3"ENTER A MESSAGE? (Y/CR) ":INLIN,1:A$"Y"5810:5401:58104 U$SY$2020:"DELETE MESSAGES MORE THAN HOW FAR BACK?":INLIN,2:900:J30ĺ"ARE YOU SURE "J" IS LARGE ENOUGH? ":INLIN,1:A$"Y"200:INLIN,39:ALLOWLC,0:(A$)0ĺ"YOU CAN'T ERASE A LINE":5670X20M$(J3)(A$,1):JR:p2400:KKK1:JJ0:L2KKKK1:KKMC2000:ZDA(KK):JJ1FG(Z)058102BZ,1:B$AL$B$U$U$SY$581003200:700:RZ:300:TDA(KK),1,U$,L:Lĺ"DELETE FULL":_1"ENTER LINE ";K":":INLIN,39:(A$)05630:M$(K3)(A$,1):KK1:K11M$(K3)""p1KK(K10):1RJ:900:J0(JK1(J10KJ))JR:1(M$(J3))0JR:>2&"RE-ENTER:":J10);J;"?";M$(J3);:Z1(M$(J3)):(8);::ALLOWLC,167ı(0(A$,3)"WAP"(A$,2)"WP"ıB0B$(A$,1):AJ,1,B$:0A$"S"5620:"ENTER NEW SUBJECT: ";:ALLOWLC,1:BJ,3:B$;:K(36)19:Z1K:(8);::INLIN,20:(A$)05550:A$(A$,1):AJ,3,A$:ALLOWLC,0:1A$"A"5650:K9(M$(13))ĺ"MESSAGE5401:%/A$"E"5530:5550:5500^/KUĺ"EDIT 'TO', SUBJECT, LINE #, ADD A LINE":EDIT/"(T/S/LINE #/A) ";:INLIN,2:A$"T"5610:"TO: ";:PJ,1:Z16:(8);::INLIN,6:(A$,3)"ALL"A$AL$:5600/(A$,5)"SYSOP"A$SY$:56000(512)1):K1#Nvu"PASSWORD ACCESS = "T2$^NuKĺFO$;F$(8):FW$;F$(8):DA$:BD$:UP$:T1$:T2$:FC$Nu"HIT RETURN TO REVIEW SPECIAL MESSAGES";:IN:FO$;F$(9)",D2":FR$;F$(9):IN:900:J" SPECIAL MESSAGES:":J030110:MI$:FR$;F$(9):K1J:IN::NM$SOu"EP = ";T1$:"NEW DATE CHANGE SYSOP = (CR=NO CHANGE) ";:IN,6:(A$)0(A$)630050:(A$)0T1$(A$,1):K1Nlu"DATE CHANGE SYSOP = ";T1$:"PASSWORD ACCESS = ";T2$:"NEW PASSWORD ACCESS = (CR=NO CHANGE) ";:INLIN:(A$)0(A$)630060:(A$)0T2$(A$, = ";BD$:"NEW BULLETIN DATE (CR=NO CHANGE) = ";:INLIN,4:(A$)0BD$(A$,1):K1LXu"BULLETIN DATE = ";BD$:"UPLOAD PASSWORD = ";UP$:"NEW UPLOAD PASSWORD (CR=NO CHANGE) = ";:IN,248:(A$)0UP$(A$,1):K1kMbu"UPLOAD PSWD = ";UP$:"DATE CHANGE SYSOTERS"28500:PK~m"WHO HAS THE BEST PIZZA? ";:INLIN,J:A$"GEPETTO'S"28500:xKTo"INCORRECT.":JJJJ3:JJ2ġ:101~K^oK0uU$SY$:K0:(AC)0ĹACTIVE,64:(512)191140K:u"CHANGE SETUP FILE? ";:IN,1:A$"Y"30090KDu4410RLNu"BULLETIN DATEOWN"28500:FJzm"YOUR DOG'S NAME IS? ";:INLIN,J:A$"SPOT"28500:J{m"YOUR HOME AT COLLEGE? ";:INLIN,J:A$"DORM"28500:J|m"WHAT IS THE CAPITAL OF ASSYRIA? ";:INLIN,J:A$"NINEVAH"28500: K}m"YOUR MAJOR IN COLLEGE? ";:INLIN,J:A$"COMPUITH"28500:@Ivm"YOUR SHOE SIZE? ";:INLIN,J:A$"9D"28500:Iwm"WHERE WERE YOU BORN? ";:INLIN,J:A$"ST. LOUIS"28500:Ixm"YOUR FAVORITE ICE CREAM FLAVOR? ";:INLIN,J:A$"COFFEE"28500: Jym"YOUR 1ST GRADE TEACHER? ";:INLIN,J:A$"MISS BRND";F$(9):FW$;F$(9):A$:FC$(H6V190001Hwi ^H`mU$SY$2000:"PROVE IT:":J248:JJ13HjmK((J)10)1:KKK28010:KKK:K28021,28022,28023,28024,28025,28026,28027,28028,28029,28030::30000 Ium"YOUR MOTHER'S MAIDEN NAME? ";:INLIN,J:A$"SMER IF YOU WANT A":"RESPONSE. (LONG DISTANCE CALLS, IF"G"V"NECESSARY, MAY BE MADE COLLECT! YOUR":"ADDRESS IS ADEQUATE IF YOU'RE OUT OF":"MY LOCAL CALLING AREA.)"H,V"MESSAGE:":INLIN,248:(A$)0A$(A$,1):FO$;F$(9)",D2":FW$;F$(9):J1:D$"APPEFR$;F$(9):IN:900:FC$:J8ĺ"SORRY, NO SPACE IS CURRENTLY AVAILABLE. PLEASE CALL THE CLUB PHONE OR TRY LATER.":190008GV"PLEASE ENTER UP TO 248 CHARACTERS. USE A RETURN ONLY AT THE END OF YOUR":"MESSAGE. BE SURE TO LEAVE YOUR NAME":"AND PHONE NUMBUR DAY AND EVENING PHONE NUMBERS WHERE YOU MAY BE REACHED WHEN YOUR PASSWORD IS":"ASSIGNED. YOU MAY ALSO WRITE (INSERT ADDRESS)."EVU$"GUEST":"DO YOU WISH TO LEAVE A MESSAGE FOR THE SYSOP? ";:INLIN:(A$)0(512)8919000wFVFO$;F$(9);",D2": USER FILE ACCESSKDFPJ112:MO(J)::31,28,31,30,31,30,31,31,30,31,30,31]DR"READY":110DU"TO REQUEST A PASSWORD, LEAVE A MESSAGE HERE OR CALL (INSERT YOUR PHONE NUMBER) BETWEEN THE HOURS OF (INSERT TIME)."EU"BE SURE TO LEAVE YOUR NAME AND YOPD$"BLOAD USERS.OBJ"oCPF8:800:INLIN:DA$(A$,1):"DATE = ";DA$:INLIN:BD$(A$,1):"BULLETIN DATE = ";BD$C(PINLIN:UP$(A$,1):UP$=UPLOAD PASSWORDC2PINLIN:T1$(A$,1):T1$=ALLOWS DATE CHANGED