' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i 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)*++`FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./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#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  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- ( Ԡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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#     00*## 5= >0   0D $4  #08 >    1  $": 0@.> 9 0G::      0>$, 0*9     19  &0*  0%=       .0589 %?"0G     $< 0D-019 '"      0 0 0>    0G;;0   9 7"    0   0,2:%=      0("" 07?"19     (0   ,99 0& ??"     ,0++ 07??"::    "" %006>0?       040 88 ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l 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)S4`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,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ND AT? ( FOR MENU) ";A$:STA:(A$)030y EN(A$):EN0EN499ĺ"RECORD NUMBERS MUST BE > -1 AND < 500":8:5120D$"OPEN LOG.HASH,L95,"LH$ISTEN(200:(A$"DELETED")(A$"NOT IN USE")52002"PURGE THIS RECORD? ( FOR MENU)"URGE THIS RECORD? ";A$:(A$,1)"Y"ĺD$"WRITE LOG.HASH,R"I:"DELETED,,,":D$"CLOSE"d5:958:30"RECORD # TO START WITH? ( FOR MENU)";A$:(A$)030A(A$):A0A499ĺ"RECORD NUMBERS MUST BE > -1 AND < 500":6:5100-"RECORD # TO EORDS":L"DO YOU WISH TO PURGE MORE THAN 1 RECORD?";A$:(A$,1)"Y"5100"RECORD # TO PURGE? ( FOR MENU) ";A$:(A$)030A(A$):A0A499ĺ"RECORD NUMBERS MUST BE > -1 AND < 500":6:5020D$"OPEN LOG.HASH,L95,"LH$:IA:200S"P:"LAST NAME? ";N2$1:"IS THIS CORRECT? ";A$I(A$,1)"Y"ī4000V:29000vNFĺN1$" "N2$" NOT FOUND"NFĺD$"OPEN LOG.HASH,L95":IHT:200:"(RETURN TO SEARCH, FOR MENU)":A$::(A$)27304000::13)"PURGE REC100 200::3120G D$"READ LOG.HASH,R"I:I$(I):A$,B$,C$,E$:D$d! (I$)4I$" "I$:3105& I$" "A$32(A$))B$25(B$))C$16(C$))E$0 : D$"CLOSELOG.HASH":D$"PR#0"D 30::11)"SEARCH FOR A NAME":"FIRST NAME? ";N1$A7Ģ5:30205 D$"OPEN LOG.HASH,L95,"LH$:D$"PR#"AB I0499g I0ĭI(I54)540ĺ::::: (I(I54)54)0ĺ:::31(26WD))"AUTOLOG INFO FILE"::WDĺ"RCRD NAME"28)"LOCATION"17)"PHONE #"9)"LAST DATE ON SYSTEM" WDĺ WD327ĺD$"CLOSE":I500I" 30F ::11)"PRINT AUTOLOG DATA":O WD0 "DISPLAY ONLY ACTIVE RECORDS? ";DA$:DA((DA$,1)"Y") "CAN YOUR PRINTER PRINT 132 COLUMNS? ";A$:(A$,1)"Y"WD1 "SLOT # OF YOUR PRINTER? ";A$  A(A$):A1A$,1)"Y")^ A(A$):A0A499ĺ:"RECORD NUMBERS MUST BE > -1 AND < 500":I02999::2000} D$"OPEN LOG.HASH,L95,"LH$ IA499 200 (DA)ĭ(A$"NOT IN USE")(A$"DELETED")2070 " FOR MENU, ANY OTHER KEY TO GO ON":A$::(A$)Ж9:0:VL$"0"/ jSV$"S"SL$",D"DR$",V"VL$d t:"IS THIS CORRECT? ";A$:(A$,1)"Y"Ģ5:1100j ~ ::10)"DISPLAY AUTOLOG INFO": "STARTING WITH RECORD #? ( FOR MENU)";A$:(A$)030 "DISPLAY ONLY ACTIVE RECORDS? ";DA$:DA((D92,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,141:805,0:806,2:807,96:  L5:"SLOT? ";SL$:(SL$)1(SL$)71100 V"DRIVE? ";DR$:(DR$)1Ģ6:1110 `"VOLUME? ";VL$:(VL$)0Ģ7:ONE # :"C$:"DATE : "E$: %  768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0:I 790,2:791,41:7CHOICE? ";A$:A(A$)$ nA1A630D xA2000,3000,4000,5000,6000J d D$"READ LOG.HASH,R"Iy A$,B$,C$,E$:D$ (DA)ĭ(A$"DELETED")(A$"NOT IN USE")ı ::11(I10)(I100))"AUTOLOG RECORD #"I: "NAME : "A$:"LOCATION : "B$:"PH  IN$" ":1000&D$(4):30000D::13)"AUTOLOG EDITOR"e(:"1. DISPLAY AUTOLOG FILE"2"2. PRINT AUTOLOG FILE"<"3. SEARCH AUTOLOG FILE"F"4. PURGE AUTOLOG FILE"P"5. CREATE AUTOLOG FILE"Z"6. EXIT PROGRAM" d:"YOUR      b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵S RESERVED I5uD$"OPEN SYSTEM.CONFIG,S"SL$",D"DR$",V"VL$:D$"READ SYSTEM.CONFIG":MH,CS,MS,PS,SD,ML,IT,TL:uAV$:CV$:DV$:UV$:NV$:LH$:D$"CLOSE SYSTEM.CONFIG"Du   COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ALL RIGHTOHNF0:q29040q29000)qNFıBqNT$"NOT IN USE"ı^qD$"WRITE LOG.HASH,R"HTlrQQ$(34)rQQ$;NN$;QQ$","QQ$;LC$;QQ$","QQ$;PH$;QQ$","QQ$;DT$;QQ$rD$"CLOSE LOG.HASH"$r0u::"ENTER THE LOCATION OF THE ABBS PROGRAM:":1100^500pqHTHT(HT500)5006zqD$"READ LOG.HASH,R"HTKqNT$,LL$,PF$,LT$SqD$gqNT$NN$29110{qLC$LL$:PH$PF$qNF1:qNT$"NOT IN USE"DT1HTDTqNT$"NOT IN USE"NF0:qNT$"DELETED"DTHTqHTHT1:HT500HT0 qHT$:VL(VL$):VL0VL255Ģ9:6120<VL0Ģ9:9:0:VL$"0"m:"IS THIS CORRECT? ";A$:(A$,1)"Y"6080sHqNN$N1$" "N2$:HT0:DT1RqI1(NN$):HTHT((NN$,I,1)):\qD$"PR#0":D$"IN#0":D$"OPEN LOG.HASH,L95,"LH$fqHOHT(HT500)OMONC":D$"CLOSE"::&"ALL DONE!",M::12)"CREATE LOG.HASH":"ENTER THE LOCATION WHERE THE AUTOLOG FILES WILL RESIDE:":"SLOT: ";SL$:SL(SL$):SL1SL7Ģ7:6100"DRIVE: ";DR$:DR(DR$):DR0Ģ8:6110!"VOLUME: ";VL;A$'<(A$)0ĺD$"CLOSE":I500::30]F(A$,1)"Y"ĺD$"WRITE LOG.HASH,R"I:"DELETED,,,"cPkZ30qo{p6080zD$"OPEN LOG.HASH,L95,S"SL$",D"DR$",V"VL$D$"MONC"I0499:15:D$"WRITE LOG.HASH,R"I"NOT IN USE,,,":D$"NΠ ·ĤΠǮȬ̹ȤΤѤѤäѤѤȤѤѤԤѤԠĤŠǮȢΠ ƠƠΠƠƠΠԠԠƱ ƠƱΠ ƠԠƱԠƠԠΠԠƠԠȠΠƠΠϠ ƠƠΠΠƠԤԠΠŢΠΠԠĤŠǮȬҢԍѤҤԠѤԠĤ ƠԤΤΠä̤ȤƤƠΠƠԤԠΠŢĠԾΠԠԍƠԤԠΠŢΠƠ΍ƠԤĢΠԠԍԠȲΤαβԠԽҠɠϠΠΤԠԠàĤΤɬԠϠԠԠԠԠԠԠԠԠĤĠǮȬҢԍԠԤ̤ƤԤ    100 v   COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ALL RIGHTS RESERVED DRY INC. ALL RIGHTS RESERVED DN WHERE THE AUTOLOG FILES WILL RESIDE:"[ x:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ7:120 "DRIVE: ";DR$:DR(DR$):DR0Ģ8:130 "VOLUME: ";VL$:VL(VL$):VL0VL255Ģ9:140 VL0Ģ9:9:0:VL$"0" :"IS THIS CORRECT? ";A$:(A$,1)"Y"w  D$(4)100DD$"OPEN LOG.HASH,L95,S"SL$",D"DR$",V"VL$RD$"MONC"zI0499:15:D$"WRITE LOG.HASH,R"I("NOT IN USE,,,":2D$"NOMONC":D$"CLOSE"::<"ALL DONE!"Fd::12)"CREATE LOG.HASH":* n"ENTER THE LOCATIO   ƠƠĤӤΩɩΠƠƠΠƠԤӤΩҤҤΠԠ䢻ؠ ƠĤӤΩΠԠ쿠ؠ ƠԤ٢ΠפҤҤפɠƠԤӤΩҤҤΠɠƠӤΩΠԠ䠢Ơ ORCERY INC. ALL RIGHTS RESERVED RIGHTS RESERVED I:787,105:788,189:789,0:y 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,141:805,0:806,2:807,96: '   COPYRIGHT 1981 BY SOFTWARE S CREATE LOG.HASH,S"BS$",D"BD$O D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$U 768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145XEC,S"SL$",D"DR$",V"VL$! _1606 dD$"WRITE CEXEC"Q n"MONIOC":"LOAD ABBS"k xD$"READAUTOLOG EXEC" 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "NOMONIOC":"RUNVL(VL$):VL0VL255Ģ8:608 FVL0Ģ8:9:0:VL$"0"g P:"IS THIS CORRECT? ";A$:(A$,1)"Y"10 U::"MAKE SURE YOUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPENAUTOLOG EXEC":D$"OPEN CE(6IN$" ":1000:BS$((47081)16):BD$((47082))D :D$(4)`:11)"AUTOLOG MODULE":"ENTER THE LOCATION OF YOUR ABBS PROGRAM"(:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ5:402"DRIVE: ";DR$:DR(DR$):DR1Ģ7:50 <"VOLUME: ";VL$:  ALL RIGHTS RESERVED :789,0:f 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,141:805,0:806,2:807,96:    COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ETE CEXEC"< D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$B 768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:XEC,S"SL$",D"DR$",V"VL$! _1606 dD$"WRITE CEXEC"Q n"MONIOC":"LOAD ABBS"k xD$"READPRIVACY EXEC" 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "NOMONIOC":"DELVL(VL$):VL0VL255Ģ8:608 FVL0Ģ8:9:0:VL$"0"g P:"IS THIS CORRECT? ";A$:(A$,1)"Y"10 U::"MAKE SURE YOUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPENPRIVACY EXEC":D$"OPEN CE6IN$" ":1000:BS$((47081)16):BD$((47082))D :D$(4)`:11)"PRIVACY MODULE":"ENTER THE LOCATION OF YOUR ABBS PROGRAM"(:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ5:402"DRIVE: ";DR$:DR(DR$):DR1Ģ7:50 <"VOLUME: ";VL$:  Ġı͙ɠ¤࠶ӠΠԠŠĔԊԫҢɠ堠ɤͥжɥˍȠɠ堠ɗӥĀɥ𠠱̅Ų̋ˠæėӥŒӥ֠𠠱̠РìąԅРӥah) ɺiLP̉,däƱ蠠Ԡ£иƂĢ𠱠РִкϯÄ岤à𠢠򸥶͠Ġӊࠠ٠ŖϘå岤ՠȠ𠠶𠥠ࠠ٠٢ÊӰȲՠ bcbb `a Ԡ cbȹ c*db bbbb `ՠ+d6 b"d$d!b#d%d"b d#b!d"dm d&d#dm!d'd+d b%d a$d a b b b a $d%d%d'd$d&d Lc` b b bп Т *dLa!c(d"c)dL`HJJJJ `0L`L` biȱi b ibi bbbbib bbbb `a ԭ!bbGi b b`"bbb `ԩbb+b?mb.b).L_`b-b)Lc`+b(d,b)dLc`bi#bL`LU`bbL+d(db)db  ԠԠ̤Ǥ̤֤ Ԡ󿢺ԠԠƠ٢ҠҤΠ ϠԠӢ·±·ϠɺԠʠǤʩԠƠԠԠ墺Ԡ堢 ̠ƠҠɠΠ ϠԠӠ嬠ˠﱰԠӬƠӢΠԠӠ󢍲ԠèԍɠƠ̤Ӯբ̤֤ɠɠҠʠ  HTS RESERVED _ 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,141:805,0:806,2:807,96:    COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ALL RIGEC"5 D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$; 768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0:"SL$",D"DR$",V"VL$ _1601 dD$"WRITE CEXEC"L n"MONIOC":"LOAD ABBS"d xD$"READ NEWS EXEC"z 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "NOMONIOC":"DELETE CEX(VL$):VL0VL255Ģ8:605 FVL0Ģ8:9:0:VL$"0"d P:"IS THIS CORRECT? ";A$:(A$,1)"Y"10 U::"MAKE SURE YOUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPEN NEWS EXEC":D$"OPEN CEXEC,S6IN$" ":1000:BS$((47081)16):BD$((47082))D :D$(4)]:13)"NEWS MODULE":"ENTER THE LOCATION OF YOUR ABBS PROGRAM"(:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ5:402"DRIVE: ";DR$:DR(DR$):DR1Ģ7:50 <"VOLUME: ";VL$:VL  q8<@*rrr 8rY`%q6[Y]ԠҠ٠̠qa@E()E@d!e!VdeбdeвdLeгdMeдva@E()KM6o P8ra(š)E@E@QXa@E()c_<[}q`<@r%qqqUVW;@r`<@*rr<@*rr$ }qYJ }`%qUVWS()&@`@:()$ K`$EL_P Oo8Pq.?%ra(ϠŠƽ)FGS()&@`@:()$U`$O)ZcS(ïҠΠ٠)&@`@9()$<+dбq.?xrвq.?yrгq.?zrдq.?{r>>>>>>>>> D"G$" O"G$" N"G$" E"G$" !! <<<<<<<<<<" D";A$:A$""420) A(A$):A0A8S2A= ((37)1):390m " DRIVE (DEF="D2;:")? ";A$:A$""450 A(A$):A0A5D2A ((37)):420 :"C/R WHEN READY (OR 'END') ";A$:A$"END"Ĺ216,0: :12:"NOW CRUNCHING LINE #" 550 (DEF=A/S)?";A$:(A$,1)"I"AI1S J:"FROM: SLOT (DEF="S1;:")? ";A$:A$""360m TA(A$):A0A8S1A ^((37)1):330 h" DRIVE (DEF="D1;:")? ";A$:A$""390 rA(A$):A0A5D1A |((37)):360 :" TO: SLOT (DEF="S2;:")? "FILENAME TO CREATE? ";:768:FC$(IN$,1):FC$""ĺD$"CATALOG"::270d (FC$,1)"/"FC$FR$"/C" "(FC$,1)","ĺD$"CATALOG"FC$::270 , 6"MAXIMUM LINE LENGTH (DEF="LL;:")? ";A$:A(A$):(A)LLA! @NL0::AI0:"IS THIS PROGRAM A/S OR INT:RE$"REM":PR$"PRINT"7 A$(100):S17:S27:D11:D21f " S P A C E C R U N C H E R "::p 34,3 "FILENAME TO READ? ";:768:FR$(IN$,1):FR$""ĺD$"CATALOG"::240 (FR$,1)","ĺD$"CATALOG"FR$::240 FR$"END"Ĺ216,0:E QFľL1$:QF1:DF1:130D x(L2$,5)PR$L2L24:L2$(L2$,L21)"?"l L2LLA$(I)((L2$)):II1:QF0:} L2MXMXL2 30 ::IN$" " D$(4):I0:LL160:D$"BLOAD INSIM/ERRFIX" 670 Q$(34):QF0:S$(32):G$(7) DT$"DATA"  160L2$"")L1$:L1$""30I(L1(L1$):L113ĭL2$""30`2L113QF0:DF0:w<L134ĭDFQFQFFL132ĭQF30PL2$L2$L1$:CCCC1:L2(L2$):QF130Z(L2$,3)RE$ĭQFľL1$:QF1:DF1:130dAI130 n(L2$,4)DT$ĭ     z#???  ٠Ԯ ͮǠ ͯؠ ȠĠǮȠ Р! ҵ" Ӡ  έԠ ٠ Ǡ٠àŠǮȠǠà ǠҠ !Š"ŮɠȠ ҠҮɠ Ӡ Ӡà خԠ٠ԮԠРĠàΠĠà ٠ϠԠԠƠԠà2ŠҠƠàӮԠ? uiȩiȩi))`hhߚHH`bLԅԠƱΠ ·ĤΠǮȬ̹ȤԠѤΤѤѤäѤѤȤѤѤԤѤԠĤŠǮȢΠ ƠƠΠƠƠΠԠԠƱ ƠƱΠ ƠԠԠƠԠΠԠƠԠȠΠƠΠϠ ƠƠΠΠƠԤԠΠŢΠΠԠĤŠǮȬҢԍѤҤЬԤԠĤ ƠԤΤΠä̤ȤƤƠΠƠԤԠΠŢĠԾΠԠԍƠԤԠΠŢΠƠ΍ƠԤĢΠԠԍΤαβԠԽҠɠϠΠΤԠԠàĤΤɬԠϠԠԠԠԠԠԠԠ·ԠĤĠǮȬҢԍԠԤ̤Ƥ1:805,0:806,2:807,96:    COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ALL RIGHTS RESERVED 776,145:777,105:778,200:} 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0: 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,14E EDITOR,S"BS$",D"BD$` "SAVE CONFERENCE EDITOR,S"SL$",D"DR$",V"VL$:"LOCK CONFERENCE EDITOR" "NOMONIOC":"DELETE CEXEC" D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$  768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138: CEXEC,S"SL$",D"DR$",V"VL$$ _1609 dD$"WRITE CEXEC"T n"MONIOC":"LOAD ABBS"l xD$"READ CONF EXEC" 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "LOAD CONFERENCA2ĺD$;"RUN UP"* dA3ĺD$;"RUN DOWN"E iA4ĺD$;"RUN PRIVACY"` nA5ĺD$;"RUN AUTOLOG"x sA6ĺD$;"RUN NEWS"~ xDUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPEN CONF EXEC":D$"OPEN  D$(4),::"ABBS ADD-ON MODULES"P"FOR VERSION 4.2 <11/15/83>"t:"1. CONFERENCE":"2. UPLOAD"("3. DOWNLOAD":"4. PRIVACY"2"5. AUTO-LOG":"6. NEWS"<:"YOUR CHOICE?";A$FA(A$):A1A620PA1ĺD$;"RUN CONF" Z     $","QQ$;DT$;QQ$' rD$"CLOSE NEW.HASH"- $rS$"NOT IN USE"DT1HTDT7 qNT$"NOT IN USE"NF0:P qNT$"DELETED"DTHTi qHTHT1:HT500HT0{ qHTOHNF0: q29040 q29000 qNT$"NOT IN USE"ı qD$"WRITE NEW.HASH,R"HT rQQ$(34) rQQ$;NN$;QQ$","QQ$;LC$;QQ$","QQ$;PH$;QQ.HqNN$A$:HT0:DT1=RqI1(NN$):HTHT((NN$,I,1)):X\qD$"OPEN NEW.HASH,L95"pfqHOHT(HT500)500pqHTHT(HT500)500zqD$"READ NEW.HASH,R"HTqNT$,LL$,PF$,LT$qD$:710qNT$NN$29110qLC$LL$:PH$PF$qNF1: qNT1:805,0:806,2:807,96:    COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ALL RIGHTS RESERVED 776,145:777,105:778,200:} 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0: 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,14E EDITOR,S"BS$",D"BD$` "SAVE CONFERENCE EDITOR,S"SL$",D"DR$",V"VL$:"LOCK CONFERENCE EDITOR" "NOMONIOC":"DELETE CEXEC" D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$  768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138: CEXEC,S"SL$",D"DR$",V"VL$$ _1609 dD$"WRITE CEXEC"T n"MONIOC":"LOAD ABBS"l xD$"READ CONF EXEC" 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "LOAD CONFERENC;VL$:VL(VL$):VL0VL255Ģ8:60= FVL0Ģ8:9:0:VL$"0"l P:"IS THIS CORRECT? ";A$:(A$,1)"Y"10 U::"MAKE SURE YOUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPEN CONF EXEC":D$"OPEN6IN$" ":1000:BS$((47081)16):BD$((47082))D :D$(4)e:10)"CONFERENCING MODULE":"ENTER THE LOCATION OF YOUR ABBS PROGRAM"(:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ5:402"DRIVE: ";DR$:DR(DR$):DR1Ģ7:50" <"VOLUME: "     )<QQ$;NN$;QQ$","QQ$;LC$;QQ$","QQ$;PH$;QQ$","QQ$;DT$;QQ$TD$"CLOSE NEW.HASH"Z  COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ALL RIGHTS RESERVED INN$1120 LLC$LL$:PH$PF$' VNF1:I `NT$"NOT IN USE"DT1HTDTf jNT$"NOT IN USE"NF0: tNT$"DELETED"DTHT ~HTHT1:HT500HT0 HTOHNF0: 1050 1010 NT$"NOT IN USE"ı D$"WRITE NEW.HASH,R"HTQQ$(34:D$;"CLOSE":D$"DELETE UNHASHED":8 HASH SUBROUTINEG HT0:DT1m I1(NN$):HTHT((NN$,I,1)): D$"OPEN NEW.HASH,L95" HOHT(HT500)500 HTHT(HT500)500 $D$"READ NEW.HASH,R"HT .NT$,LL$,PF$,LT$ 8D$:710 BNT$" JI0499) TD$"WRITE NEW.HASH,R"I> ^"NOT IN USE,,,"E hI] rD$"CLOSE NEW.HASH"g |500~ D$"OPEN UNHASHED" D$"READ UNHASHED" NN$,LC$,PH$,DT$ 1180 400 (222)5ĺ"ERROR #"(222)" IN LINE #"(218)256(219)# 99,173:800,0:J 801,2:802,41:803,127:804,141:805,0:806,2:807,96:P w ::9)"REHASHING AUTOLOG FILE": A0:D$"OPEN UNHASHED" DA1 D$"OPEN LOG.HASH,L95,"LH$ IA499 "130 ,I 6D$"CLOSE" @D$"OPEN NEW.HASH,L95770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0: 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:7dIN$" ":190:D$(4)2nQQ$(34):D$"MONO";x240UD$"READ LOG.HASH,R"IjA$,B$,C$,E$:D$(DA)ĭ(A$"DELETED")(A$"NOT IN USE")ıD$"WRITE UNHASHED"QQ$;A$;QQ$:QQ$;B$;QQ$:QQ$;C$;QQ$:QQ$;E$;QQ$M 768,162:769,0:ŠĠԠŠ)a(̠Š͠ӠĮ)6a(Π)$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ð_6]]ϠĠҠΧԠ]"`.?r$6P,a(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>e}d?ed@e`M`.?rede#dededeUddededededededededeUidededededeJd ed!ed"ed#eUnd$ed%ed&ed'e d(O ]Ӡ]Kc (M6/2ca(ǠŠ)F] P]ŠŠĠUZdededededeHdedededehU_d eHd ed ed ed     ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL               ĠøøŰưĠƠĠİƵĠƠĠƸƠƠàĴ2,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0:790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0:801,2:802,41:803,127:804,141:805,0:806,2:807,96: MENU, ANY OTHER KEY TO REDO";A$::AS(A$):AS27110KAS13610|CF$(A)CN$"*"PS$"*"CV$"*"NA$:CF1:110768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200:A779,169:780,0:781,145:78A$:(A$)0Ģ6:12:PS$:650.(A$)66359PS$A$e8:10:"";A$:(A$)0Ģ8:10:CN$:665w(A$)3650CN$A$10:12:768:A$(IN$,1):(A$)0Ģ10:12:CV$:680(A$)11665CV$A$14:" TO ACCEPT, FORY WHICH CONFERENCE? (1-"NC1")":"(HIT FOR MENU) ";A$:(A$)0110g]A(A$)1:A0ANC110pb350~gANC110l14:"ENTER NEW DATA OR HIT TO LEAVE THE SAMME"q4:8:"";A$:(A$)0Ģ4:8:NA$:635vNA$A${6:12:"";110 A(A$)1:A0ANC110I:"CONFERENCE NAME: ":(CF$(A),24)g :"REMOVE IT? (Y/N) ";A$}(A$,1)"Y"110ANC545IANC1:CF$(I)CF$(I1):!NCNC1:CF1&:"CONFERENCE REMOVED. HIT ANY KEY":A$::110KX::"MODIFPS$" "0:"IS THE ABOVE CORRECT? ";A$F(A$,1)"Y"110{NCNC1:CF$(NC)CN$"*"PS$"*"CV$"*"NA$:CF1110::10)"REMOVE A CONFERENCE":"REMOVE WHICH CONFERENCE? (1-"NC1") ":"(HIT FOR MENU)";A$(A$)0"SLOT? ";SL$:SL(SL$):SL1SL7Ģ16:425Y"DRIVE? ";DR$:DR(DR$):DR1Ģ17:430"VOLUME? ";VL$:VL(VL$):VL0VL255Ģ18:435VL$(VL)(VL$)3VL$"0"VL$:445(DR$)2DR$"0"DR$ CV$"S"SL$",D"DR$",V"VL$:(PS$)0HIS CONFERENCE?":"";NA$T :"SUFFIX? (3 CHARS. EXACTLY) ";CN$:(CN$)3Ģ7:410 :"PASSWORD (6 CHARS. OR FOR NONE)";PS$:(PS$)0(PS$)6Ģ9:415 :"NOW ENTER THE LOCATION WHERE THE":"CONFERENCE MESSAGE FILES WILL BE STORED:"-ME : "NA$! r:"PASSWORD : "PS$7 w:"SUFFIX : "CN$O |:"LOCATION : "CV$ :::"HIT RETURN TO GO ON, FOR MENU" A$::A$(27)ANC1  ::12)"ADD A CONFERENCE":7(1NC8))"THIS WILL BE CONFERENCE #"NC2 :"NAME OF T FOR MENU)";. 6" ";A$:A$"ALL"340? ;(A$)0110[ @A(A$)1:A0ANC300i J350:110 TA0NC:350::110 ^:CN$(CF$(A),1,3):PS$(CF$(A),5,6):CV$(CF$(A),12,11):NA$(CF$(A),24) h:12(1A8))"CONFERENCE #"A1 m:"NA "SAVE CHANGES? (Y/N) ";A$4 (A$,1)"Y"Āu D$"UNLOCK "FL$:D$"DELETE "FL$:D$"OPEN "FL$:D$"WRITE "FL$ I0NC:(34)CF$(I)(34): D$"CLOSE" "ALL DONE!": ,::8)"DISPLAY WHICH CONFERENCE?"::5(NC8))"(1-"NC1", ALL OR FERENCE LIST EDITOR"5 x:"1 - DISPLAY CONFERENCES"Q "2 - ADD A CONFERENCE"p "3 - REMOVE A CONFERENCE" "4 - CHANGE CONFERENCE DATA" "5 - EXIT PROGRAM" :"YOUR CHOICE? ";A$:A(A$):A1A5110 A300,400,500,600 CFĀ  IN$" ":D$(4):10001FL$"CONFERENCES"?CF$(100)H(90Z2D$"OPEN "FL$l<D$"READ "FL$~FCF$(I):II1P70ZD$"CLOSE":NCI1_(222)255180d(222)5ĺ"ERROR #"(222)" IN LINE #"(218)256(219): n::9)"CON     󺢺ϠԠƨ󩢍ƢϠϠ̤Ӣ̤֤·ƽ±ɽɭ·Ψγ··ԠԠ堢͢墺Ԡ٤ͩԠ ƠƠΠ͠ƠΠҤӥԠ鰠Ԡԍ  Ԡ纠ĤǤ墍ԠΤԤǤ֤ĤǤ  Ԡ̠ƠҠɠΠƠĤǤΤΠƠĤǤΠؠƠԠ䢻 ƠĤǤΠԤΠĤϠĤϠҠʠϠɺƠʠΠԠԠʠĤǤʩԠԠԠ墻ؠƠ бԠӬƠԤƢΠԠƠԍԠӠԍʠĤƠΠΠϠƠ     ӠӠŠŠŠҠŢŠҠŠĠϮҠҠ̕Ƣ砠΃􋨷涠$栠紐 ăؤؠХХȠࠀ̲ɪɠՠ蠠٠ϣІ̀Х𠰡栠ʣնؐǰȠ蠠Ԑ浠Ϡɠй𠠍̲栠ģɔĥԟ涠ϠɠӱҠiLP dȀҴȠРϠ栅̱Ӡ鸠栌àբɒ–¥҅Р̺àϊ̠ҠɴɠՐ–¥蹠РᠤʀϊҊŪbcbb `a Ԡ c bȹcd bbbbb `ՠd.bdbdbbededdbd ad ab bb a dddddd Lc`bbbп Т dLacdcdL`HJJJJ ah) `$L`L`biȱib i bi bb b bi bbbbb `a ԭb bGibb`b bb `ԩbb#b?mb&b).L_`b%b)Lc`#bd$bdLc`bi#bL`LU`bbLdd bd b    ŠҠŢ̢Р801,2:802,41:803,127:804,141:805,0:806,2:807,96:?COPYRIGHT 1983 BY SOFTWARE SORCERY INC. ALL COMMERCIAL RIGHTS RESERVED.LL RIGHTS RESERVED .: 789,0:e 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,141:805,0:806,2:807,96:    COPYRIGHT 1981 BY SOFTWARE SORCERY INC. ATE CEXEC"; D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$A 768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:EC,S"SL$",D"DR$",V"VL$ _1605 dD$"WRITE CEXEC"P n"MONIOC":"LOAD ABBS"j xD$"READ UPLOAD EXEC" 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "NOMONIOC":"DELEL(VL$):VL0VL255Ģ8:607 FVL0Ģ8:9:0:VL$"0"f P:"IS THIS CORRECT? ";A$:(A$,1)"Y"10 U::"MAKE SURE YOUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPEN UPLOAD EXEC":D$"OPEN CEX6IN$" ":1000:BS$((47081)16):BD$((47082))D :D$(4)_:12)"UPLOAD MODULE":"ENTER THE LOCATION OF YOUR ABBS PROGRAM"(:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ5:402"DRIVE: ";DR$:DR(DR$):DR1Ģ7:50 <"VOLUME: ";VL$:V     㡢ϱĢ·ĤŠ̤Ĥ·Ÿ³ԫҽ˨ԫԫ·ҾϱҽοӡР㡠塢ϱҽοɯϠ򡢍ҽο卲ɽԢοĤŠ̤ĤŠ̤ϲŢβɽɫϲĤŠ̤Ĥˠ̤ԫϱŸ³ԫϱĤŢ²̤ϲĤΠ̤֤Ÿԫԫԫԫ̷ĤΤýΨųúԫĤΤΨԤҤβԠ報䮢庠Ԡ堼󮩢ɤҤԨĨ¸ɽ̤αβҤکɤΨ̤̤Ԥ̤ؽ墻ԠĬĢβĠӠᢍӠᠢ򢺿ᮠ򠤤Š䠠䮢     ALL RIGHTS RESERVED W,189:789,0:k 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0: 801,2:802,41:803,127:804,141:805,0:806,2:807,96:    COPYRIGHT 1981 BY SOFTWARE SORCERY INC. "DELETE CEXEC"A D$"CLOSE":D$"EXEC CEXEC,S"SL$",D"DR$",V"VL$G 768,162:769,0:770,32:771,111:772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788 CEXEC,S"SL$",D"DR$",V"VL$$ _1609 dD$"WRITE CEXEC"T n"MONIOC":"LOAD ABBS"p xD$"READ DOWNLOAD EXEC" 768:IN$(IN$,1) D$"WRITE CEXEC":IN$ 120 D$"WRITE CEXEC" "UNLOCK ABBS" "SAVE ABBS":"LOCK ABBS" "NOMONIOC"::VL(VL$):VL0VL255Ģ8:609 FVL0Ģ8:9:0:VL$"0"h P:"IS THIS CORRECT? ";A$:(A$,1)"Y"10 U::"MAKE SURE YOUR ABBS DISK IS IN THE SPEC-IFIED LOCATION AND HIT RETURN. ( TOEXIT)":A$::A$(27)Ā ZD$"OPEN DOWNLOAD EXEC":D$"OPEN6IN$" ":1000:BS$((47081)16):BD$((47082))D :D$(4)a:11)"DOWNLOAD MODULE":"ENTER THE LOCATION OF YOUR ABBS PROGRAM"(:"SLOT: ";SL$:SL(SL$):SL1SL7Ģ5:402"DRIVE: ";DR$:DR(DR$):DR1Ģ7:50 <"VOLUME: ";VL$     ԠԠ堢Ơؠ ƠԠàΠ Ϡ̠ƠҠŠΠԠƱǤϠԠĢŽ·ϲ̨ŭβƱǤϲĢԠĤŢ ҠϠԠԠè堪ԠҠɠϠŠԠɠǤɩԠҸǤũĤΤŽūϲԫ̴ĤŢ·ϱè堪ɽŭɫǤɩԺ堢ƽؽ²²ϱϱҤβҤŷŷƤƱ͢ƱϲҽοҤŷŷ̬ι²ϱƤծϢĤ΢Ƥ֤ĤĢƤ̷ɽϳΪԺνΨΤΤϲԫŷŷҽ˨ҽ·ƱҽαĤŢϱƱβҤѢ²ԱĬĢβĠ򠠠墺ƤƱϢƱι˨̩ŷŷϲĤΠƤĤĠƤν̷ΤĤΤƱ     772,253:773,160:774,2:775,138:776,145:777,105:778,200: 779,169:780,0:781,145:782,105:783,200:784,169:785,2:786,145:787,105:788,189:789,0: 790,2:791,41:792,127:793,157:794,0:795,2:796,202:797,208:798,245:799,173:800,0:9TH IS: $"; hNB((29)16):(HX$,NB1,1);:NB(29)(NB16):(HX$,NB1,1);:NB((28)16):(HX$,NB1,1);:NB(28)(NB16):(HX$,NB1,1) r |:D$"CLOSE" "ERROR #"(222)" AT LINE # "(218)(219)256:< 768,162:769,0:770,32:771,111:R$",V"VL$:D$"WRITE "FL$# 6245794 @:D$"CLOSE"n JHX$"0123456789ABCDEF":"THE STARTING ADDRESS IS: $"; TNB((27)16):(HX$,NB1,1);:NB(27)(NB16):(HX$,NB1,1);:NB((26)16):(HX$,NB1,1);:NB(26)(NB16):(HX$,NB1,1) ^"THE LENG4 ((FL$)0)((FL$,1)",")ĺD$"CATALOG "FL$:250j "SLOT? (DEFAULT=6) ";SL$:SL(SL$):SLSL$"6" "DRIVE? (DEFAULT=1) ";DR$:DR(DR$):DRDR$"1" ""VOLUME? (DEFAULT=0)";VL$:VL(VL$):VLVL$"0" ,D$"OPEN "FL$",S"SL$",D "D1909 "SLOT? (DEFAULT=6) ";SL$:SL%(SL$):SL%SL%6o "DRIVE? (DEFAULT=1) ";DR$:DR%(DR$):DR%DR%1 "VOLUME? (DEFAULT=0)";VL$:VL%(VL$) 24576 FL%1ĺF1$;" NOT FOUND": :"NAME OF TEXT FILE TO CREATE: ":768:FL$(FL$,1) d24576n:400;xFL$" ":VL%1:DR%1:FL%0:SL%5GD$(4)Q380jD$"BLOAD BIN->TEXT""NAME OF BINARY FILE TO CONVERT?":768:FL$(FL$,1)((FL$)0)((FL$,1)",")ĺD$"CATALOG"FL$:160F1$FL$ (FL$)30FL$FL$" ":   Š˨ű˨Š˨Š˨Š˨Š˨Š˨˨Ġҍ΍!Πɬìύ̭Š˨Š˨Š˨Š˨Š˨Š˨ΠҮɍ"