' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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)*++`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#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ 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̦µ_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- ( Ϡ@跻~!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` ōƴ؍ōōʵ̍Ӎɍζ̍č΍ηč  ˠԍŠԍΠźԠŠӺԠĮԠĠŠҠϮźŠˍĺƱӍŠϺĠӺō׍ӸэōǹōҍƱ΍ōҍ˱čōԍͱэΠōԍֲ΍Πԍ΍γƍ   ΠźԠŠӺԠĮנҠҠϮźŠˍĺƱӍŠϺĠӺڻэ  ĺױ؍ŠϺĠӺûԻûǻƍ̠̠۠ŠӠݍԬō ΠźԠŠӺԠĮנҠҠϮźŠōĺʵ̍ŠϺĠӺȻٻٍ      ō׍ױ؍ˍčűƍōˍƱӍōˠ΍ʍӺлûͻûջǻɍΠźԠŠӺԠĮΠŠҠϮźŠԍĺűэŠϺŠԍŠԍ ҠέƍԠҮΠźԠŠӺԠĮנҠҠϮźĠ΍ĺηčŠϺĠíΠźԠŠӺԠĮנҠҠϮźӠɍĺζ̍ŠϺĠӺ̻Ļӻû"X":J744766:I:J,I::162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213:):"D$"CLOSE":D$"LOCK"F$:40U:"FILE LOCKED. DELETE & REPLACE";:"? ";Q$z(Q$,1)"Y"ĺD$"UNLOCK"F$:1180(D$"CLOSE":40<:"REPLACE WORK DISK WITH UTILITY DISK AND":"PRESS KEY ";V$PD$"RUN NW II UTILITY,D1"md:IN$ MISTAKES CAN BE":"CORRECTED USING ITEM #2 FROM MENU."F$:IX500^8744:I$(I)(IN$,1)tLI$(I)"/EX"1140z`tII1:401280::" W O R K I N G ":D$"OPEN"F$;DR$:D$"DELETE"F$D$"OPEN"F$:D$"WRITE"F$X1I:I$(XENT LINE READS:":I$(X)D:"ENTER NEW LINE:":744:I$(X)(IN$,1)M860ZC3X0:"YOU CAN ENTER UP TO ";500X;" LINES ---":"(40 CHAR/LINE MAXIMUM)"X01040X17"TYPE THE 3 LETTERS '/EX' ON A LINE BY":"THEMSELVES WHEN DONE.:"(C)ORRECT COPY OR (A)DD MORE COPY? ";Q1$:(Q1$,1)"C"(Q1$,1)"A"760j (Q1$,1)"A"XI1:960u X1I 4:"LINE #";X;" READS:"::I$(X) H \::"EDIT WHICH LINE";::" (0 TO END) #";Q$:X(Q$):X0XI860 pX040:"CURRD$"READ"F$ 0I15000 D744:I$(I)(IN$,1)6 XO lII1:D$"CLOSE":40 :"(E)DIT OR (S)HOW FILE? ";C$:(C$,1)"E"(C$,1)"S"640 (C$,1)"E"760 CL130:::X1I I$(X)  ::"PRESS RETURN KEY";::" ";C$:40M ENTER DISK DRIVE #";DR$:DR$""DR$"1"8 DR$",D"DR$P C500,640,960,1160z :"CATALOG DRIVE #";V$:V$""V$"1" (4)"CATALOG,D";V$ ::"PRESS FOR MENU";::" ";V$:40 620 ::" W O R K I N G ": D$"OPEN"F$;DR$:E ON DISK":* 10:"5 = DISK CATALOG":R 10:"6 = RETURN TO UTILITY MENU":x 22::"ENTER NUMBER";::" ";C$ (C$)1(C$)6240 C(C$) "CL130::CL ,C61340 @C5440 TC2640 h:"ENTER FILE NAME : ";F$' |:"B (54915::CL130::CL::1:"BASIC TEXT FILE EDITOR/MAKER":d <"NOTHING FANCY BUT IT WORKS"k P7w dD$(4) x10:"1 = READ FILE INTO MEMORY": 10:"2 = EDIT/SHOW FILE IN MEMORY": 10:"3 = CREATE NEW FILE": 10:"4 = SAVE FILn 1380<:"DO YOU HAVE A VIDEX 80-COLUMN BOARD(Y/N)DA$SA$"N"20aA$"Y"7h2"DO YOU WANT 80-COLUMNS?(Y/N)":A$A$"N"20 A$"Y"11 7 "SLOT:";A "PLEASE SWITCH IT ON." (4);"PR#";AI$(500)         eڅeۅȱȱ`R KHhȥȥHh8օإِׅ Lݥݐ ܐLL ` - 㕽╠Օ LDNUSORON )( ELBAIRAV ԅ֭Յנ klȱeHȱehmnLeХiѢеeҥiFfL8օޥׅߩܩݥ܅إ݅eօڥeׅۥЅх҅Ӆe؅eمeڅeۅe؅eم (37):28:D;:36:V;:36:744:S$(IN$,1):S$""S$(V)U-uV(S$):(37):36:V:-b(4)"BLOAD NW.SRT,A$9400,S"S",D"D",V"V:-cN0D:V$"S0R0":I03:760I,((V$,I1))::764,N0(N0256)256:765,(N0256):37888:ION FOR":"FILE:";::DC$;::21:"SLOT DRIVE VOL.":"------------------ ---- ----- ---":21:S;:28:D;:36:V:(37):21:744:S$(IN$,1):S$""S$(S),sS(S$):(37):21:S;:28:D;:36:V;:28:744:S$(IN$,1):S$""S$(D)9-tD(S$):4940+<D$"CLOSE"E+P22:"ANOTHER RECORD? ";Z$:(Z$,1)"Y"4780\+d(Z$,1)"N"5200i+x216,0:+:IN$"X":J744766:I:J,I::162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213:,pS6:D1:V0::"ENTER LOCAT44:C5$(IN$,1)5*(Z$)5(C5$,1)"*"C5$DA$"*"`*(Z$)5(C5$,5)"EMPTY"C5$"EMPTY "*C5$"EMPTY "C1$"":C2$"":C3$"":C4$"":C6$""*(Z$)6Ģ11:16:744:C6$(IN$,1)+D$"WRITE NW.USERS.SYS,R";D1:C1$:C2$:C3$:C4$:C5$:C6$:D$:;C5$:5:" FIELD 6 = ";C6$:15:5:"ANY OTHER KEY TO EXIT"v)L13::" WHICH FIELD";::" #";Z$:(Z$)1(Z$)65180)`(Z$)1Ģ6:16:744:C1$(IN$,1))t(Z$)2Ģ7:16:744:C2$(IN$,1))(Z$)4Ģ9:16:744:C4$(IN$,1)*(Z$)5Ģ10:16:7S.SYS,R";D1:744:C1$(IN$,1):744:C2$(IN$,1):744:C3$(IN$,1)(744:C4$(IN$,1):744:C5$(IN$,1):744:C6$(IN$,1):D$:6:5:" FIELD 1 = ";C1$:5:" FIELD 2 = ";C2$:5:" FIELD 3 = ";C3$;" - * LOCKED *":)$5:" FIELD 4 = ";C4$:5:" FIELD 5 = "ID24700'HII1:42404'\D$"CLOSE":D30D2D3'D$"OPEN NW.USERS.SYS,L64":D$"WRITE NW.USERS.SYS,R0":X:D2:X2:D$"CLOSE":1500'::"EDIT WHICH RECORD #";Z$:(Z$)X14780'5180A(D1(Z$):D$"OPEN NW.USERS.SYS,L64":D$"READ NW.USER(Z$,1)"H"46401&(Z$,1)"R"Ģ(37)1:4460j&C1$" ":C2$" ":C3$" ":C4$" ":C5$"EMPTY ":C6$" "&D$"WRITE NW.USERS.SYS,R";I:C5$"EMPTY "4580&C5$DA$&C1$:C2$:C3$:C4$:C5$:C6$:C5$"EMPTY "4640& C5$"EMPTY "D30D3I '41$)04400_%(C2$,(V1$))V1$C1$V1$C4$V1$(C5$,(V1$))V1$(C6$,(V1$))V1$4640%0(V0$,1)"A"(C5$,1)"*"4640%D:"IS ABOVE VERIFIED?";::" ";Z$:(Z$,1)"Y"4520%X(Z$,1)"N"Ģ(37):4420&l:"(R)EMOVE OR (H)OLD? ";Z$:,1):744:C2$(IN$,1):744:C3$(IN$,1):744:C4$(IN$,1):744:C5$(IN$,1):744:C6$(IN$,1):D$:4340$C1$" ":C2$" ":C3$" ":C4$" ":C5$"EMPTY ":C6$" ":D$"OPEN NW.USERS.SYS,L64":D$ %:C1$" "C2$:C3$:C4$:C5$:C6$;:20:"RECORD #";I::(VTER MATCH CHARACTERS: ";V1$:V1$""4080<#V0$"ALL":4160#,:"FROM THE ABOVE SPECIFIED RANGE,":"VERIFY (A)LL OR (N)EW ONLY? ";V0$:V0$""V0$"NEW"#@:D$"OPEN NW.USERS.SYS,L64":4320#|ID1g$D$"READ NW.USERS.SYS,R";I:744:C1$(IN$NTER STARTING RECORD -->#";Z$:(Z$)1(Z$)X1Ģ(37):4000J"D1(Z$)":"HIGHEST RECORD IS #";X1:" STOP WITH RECORD #";Z$:(Z$)D1(Z$)X1Ģ(37)2:4040"D2(Z$)":"MATCH PARAMETERS? ";V1$:(V1$,1)"Y"V1$"":4140(#"EN)0ĺ(4)"PR#"(SL$)S!(4)"OPEN NW II SOFTDOC."RD:(4)"READ NW II SOFTDOC."RDl!744:(IN$,1):3840!:(4)"PR#0":(4)"CLOSE":3660!<216,0:D1X1::"LAST VERIFIED RECORD WAS #";D1:" CONTINUE FROM THERE? ";Z$:(Z$,1)"Y"4040=""E)"Y"Ą"WHAT SLOT IS YOUR PRINTER IN (1-7)? ";SL$: "THERE ARE 3 SOFT-DOCUMENTATION FILES.":"WHICH DO YOU WANT TO READ?"::"ENTER (1-3, Q=QUIT) ";RD$:RD(RD$):RD1RD3Ĭ!:"USE CTRL-S TO START & STOP.":"USE CTRL-C TO QUIT READING."::(SL$F1$:F2$:F3$:F4$:F5$:F6$:(4)"CLOSE":216,0::DC$"DISK CATALOG":6000:(4)"CATALOG,S"S",D"D",V"V:::"PRESS FOR MENU";::" ";Y$:240L::38603 t"DO YOU WANT TO PRINT DOCUMENTATION ON":"YOUR PRINTER (Y/N)? ";PR$::(PR$,1SYS,L64":3572 216,0:D$"OPEN NW.USERLIST.SYS":D$"DELETE NW.USERLIST.SYS":D$"OPEN NW.USERLIST.SYS":D$"WRITE NW.USERLIST.SYS":F2$", "F1$:D$"CLOSE":(4)"OPEN NW.USERS.SYS,L64":(4)"WRITE NW.USERS.SYS,R0":2:1:13 (4)"WRITE NW.USERS.SYS,R1":)"OPEN NW.CONFIG.SYS,S"S",D"D",V"V:(4)"DELETE NW.CONFIG.SYS":(4)"OPEN NW.CONFIG.SYS":(4)"WRITE NW.CONFIG.SYS" A1$:A2$:X15:S$(X):D$(X):V$(X)::A3$:A4$:A5$:A6$:SO$:(4)"CLOSE":3566 (4)"UNLOCK NW.USERS.SYS":(4)"OPEN NW.USERS. SYSTEM OPERATOR: "SO$:" PHONE NUMBER : "F4$:" YOUR PASSWORD : ";::F3$:::"CORRECT? (Y/N): ";:744:A8$(IN$,1):(A8$,1)"Y"3500 2900s DC$"NW.CONFIG.SYS":6000::"FILING 'NW.CONFIG.SYS' AT SLOT #"S:26:"DRIVE #"D:28:"VOL #"V:(46$"3"ĺ:"THE CLOCK YOU HAVE IS NOT ONE OF THE 2":"CLOCKS SUPPORTED BY NET-WORKS. YOU CAN":"STILL USE THIS CLOCK, BUT BE SURE YOU":"READ INSTRUCTIONS BEFORE YOU RUN PROGRAM":3440\ "CLOCK MADE BY = ";A7$p :"INFORMATION ABOUT YOU (SYSOP):"::"H2)(H3):F5$"JAN 1":F6$"00101000009"::5::"VERIFY DATA":::"CURRENT YEAR = ";A1$:"PROGRAM TITLE = ";A2$:"CALL PER DAY = ";A3$:"MODEM SLOT NO = ";A4$:"CLOCK SLOT NO = ";A5$ A6$"1"A7$"THUNDERWARE"4 A6$"2"A7$"MT. HARDWARE"H ANAME: ";:744:F2$(IN$,1):SO$F1$" "F2$| "PHONE NUMBER: ___-___-____";:15:744:F4$(IN$,1):(F4$)12Ģ(37):3222 H1((1)100):H165H1903223 H2((1)100):H265H2903224 H3((1)100):H365H3903225 F3$(H1)"1"(10:"3 = ANOTHER BRAND CLOCK":10:"4 = NO CLOCK AT ALL"~X :"WHICH DO YOU HAVE (1-4): ";:744:A6$(IN$,1):A6$""A6$"4"l A6$"4"A5$"0" (A6$)1(A6$)43160* :"ENTER SYSTEM OPERATOR'S":" FIRST NAME: ";:744:F1$(IN$,1):" LAST ;:744:A4$(IN$,1):(A4$)1(A4$)73019| :"ENTER CLOCK CARD SLOT (0=NONE,1-7): ";:744:A5$(IN$,1):A5$""A5$"0" (A5$)0(A5$)730208 :"THESE CLOCK CARDS ARE SUPPORTED:"::10:"1 = THUNDERCLOCK PLUS":10:"2 = MOUNTAIN HARDWARE":1):D$(Y)""D$(Y)(D)c (37):28:D$(Y);:36:V;:36:744:V$(Y)(IN$,1):V$(Y)""V$(Y)(V)| (37):36:V$(Y):Y :"CALLS PER DAY PER PERSON (1-99): ";:744:A3$(IN$,1):(A3$)1(A3$)993010+ :"WHICH SLOT IS MICROMODEM IN (1-7): "ES":AF$(2)"PUBLIC BOARD":AF$(3)"EXTRA BOARD":AF$(4)"E-MAIL LETTERS":AF$(5)"DOWNLOAD PRGS.":S6:D1:V0:Y15 AF$(Y);:21:S;:28:D;:36:V;:21:744:S$(Y)(IN$,1):S$(Y)""S$(Y)(S) (37):21:S$(Y);:28:D;:36:V;:28:744:D$(Y)(IN$,1900(A1$):A1$(YR) :"ENTER A SHORT TITLE FOR YOUR SYSTEM.":"DEFAULT IS 'NET-WORKS II': ";:744:A2$(IN$,1):(A2$)3A2$"NET-WORKS II"q :"FUNCTION SLOT DRIVE VOL.":"------------------ ---- ----- ---":AF$(1)"SYSTEM FILD",V"V, :DC$"NW II":6000::"AFTER DRIVE STOPS REPLACE THE DISKETTE":"WITH THE DATA DISK IF NEEDED ":"AND TYPE 'RUN'":(4)"LOAD NW II,S"S",D"D",V"VT ::"NET-WORKS CONFIGURATION"::5:"ENTER CURRENT YEAR: ";:744:A1$(IN$,1):(A1$)1900YRD1:2560P d 60003::D$"UNLOCK NW.ABBS.SYS":D$"OPEN NW.ABBS.SYS":D$;"DELETE NW.ABBS.SYS":D$;"OPEN NW.ABBS.SYS":D$;"WRITE NW.ABBS.SYS":I1D:S0$(I):I:D$;"CLOSE" 216,0: ::DC$"NW II EDITOR":6000::(4)"RUN NW II EDITOR,S"S",D" END":::D$(4):2540k D$;"OPEN NW.ABBS.SYS,S"S",D"D",V"V:D$;"READ NW.ABBS.SYS":D1600:S0$(D):D{ D$;"CLOSE" "NEW ABBS: ";S0$(D):S0$(D)"/EX"DD1:2640 (S0$(D))27S0$(D)S0$(D)".":2580 ( "PHONE # : ";B$:S0$(D)S0$(D)B$:D$;"READ NW.TIPS.SYS":744:A$(IN$,1):D$;"WRITE NW.T":A$:2200D$;"CLOSE":D$;"DELETE NW.TIPS.SYS":D$;"RENAME NW.T,NW.TIPS.SYS":216,0:L :DC$"NW.ABBS.SYS":6000::"ADD NEW ABBS NAMES & PHONE NUMBERS":::"TYPE '-' TO BACK UP, TYPE '/EX' TOEND":::X1600O"ENTER #";X:744:S0$(X)(IN$,1):S0$(X)"-"XX1:2020u S0$(X)"/EX"XX1:D$(4):2120{4HD$;"OPEN NW.T,S"S",D"D",V"V:D$;"WRITE NW.T":,:Y1X:S0$(Y)::2280D$"UNLOCK NW.TIPS.SYS":D$"OPEN NW.TIPS.SYS"@D.SYS":(4)"WRITE NW.USERLIST.SYS":I1D?(S0$(I))01900V0(S0$(I))651900pDS0$(I)S0$(I1)1900|XS0$(I)lI:(4)"CLOSE":216,0::DC$"NW.TIPS.SYS":6000::"ADD NEW PROGRAMMING TIPS":::"TYPE '-' TO BACK UP, TYPE '/EX' TO 2$" "E -S0$(D)C2$", "C1$:R0%(D)D:D$:22:"READING USER #";D:)hD$"CLOSE":DX1:216,0::"SORTING....";:60003:"DONE"::"SAVING NEW ALPHABETICAL USER LISTING...":(4)"OPEN NW.USERLIST.SYS":(4)"DELETE NW.USERLIST.SYS":(4)"OPEN NW.USERLIST(Z$,1)"E"4780# p(37)1:820h 216,0::"CONSTRUCT NEW USER LISTING? ";YN$:(YN$,1)"N"Ĭs 1640 D$"OPEN NW.USERS.SYS,L64":D1X1:D$"READ NW.USERS.SYS,R"D:744:C1$(IN$,1):744:C2$(IN$,1):744:744:744:(IN$,1)"*"C1$" ":CPEN NW.USERS.SYS,L64":D$"READ NW.USERS.SYS,R0":X:X1:X2:D$"CLOSE"::D1::"ENTER DATE - 3 LETTER MONTH, A SPACE,":" AND 2 DIGIT DAY (JAN 01)" "---> ";DA$:(DA$)6ĺ:800 4:"(V)ERIFY OR (E)DIT USERS? ";Z$:(Z$,1)"V"3900 \900,3600,3660: ::"JUST A SECOND......":D$(4):600C D680 X:"FILE: NW.USERS.SYS -- WON'T VERIFY.":"SELECT CONFIGURATION OPTION TO CORRECT"::"PRESS RETURN KEY: ";C$: DC$"NW.USERS.SYS":6000:D$"UNLOCK NW.USERS.SYS,S"S",D"D",V"V:D$"O@:6);"4 = EDITOR/NEW FILE UTILITY"::6);"5 = LOAD NET-WORKS"::6);"6 = CONFIGURE NET-WORKS"::6);"7 = DISK CATALOG"::6);"8 = NET-WORKS INSTRUCTIONS" 23::"ENTER CHOICE";::" ";C$:(C$)1(C$)8420 (C$)520,1960,2380,2840,2860,2%@37887:5600:S6:D1:V0:60002:D$(4):S0$(600),R0%(600)216,0:54915:::"NET-WORKS UTILITY PROGRAM"::5:6);"1 = VERIFY OR EDIT":6);" AND SORT ALL USERS"::6);"2 = ADD NEW PROGRAMMING TIPS"::6);"3 = ADD NEW ABBS NAMES/PHONES"                       30  A  3:"ORDER READER.")AA11(22G2"PRINT (Y/N)";A$V<A$"N"80]F5uP(4);"OPEN ORDER"AZ120d(4);"READ ORDER"An130x(4);"DELETE ORDER"A:1000170B$B$140(4);"CLOSE ORDER"A h hx`y©  ɍ H h B ɓɊL4 q BL/`- ȔL$ Ȕ0  L  ڔ _  L)5 <=>ȱ><=<=ɕ>͆ )i iȩiȩiLH۰h<09Q΂ ΃΄8 )j"0 ɍ ΅ H$(h8`hhІhh`)`- L Ԕ L`xH xH' L*)  $`( q B)<L4 ˩`- ȔL$ o L) ȔL$ Ȕ0  L  ڔ _  L)5 <=>ȱ   ĠȍԭӠĠΠԠϠԠՍΠԠŠӠӠ٠ōĠ٠šӮՠč٠٠ӠƠάŠ׍ӬĠ٠Š̍ŠҠǠҮƠՠŠ٠Ӭՠ΍ȠŠԠ٠ҍЮ̠ͮŮŠŠŠύ̠ԠŠԠȠϠŠҠҠҬōŠϠĠ٠ƠҍҠӠΠԠՠ芊ңϠңҍՠŠĠŠŬŠŠύŠנɠήӠҠǠӠӠԠРϠŠҍΠԠŠƠŠŮƠՠȍϠŠԠҠΠՠԍŠŠ͠ϠŠōŠԠҠϠŮčנɬԠŠϠŠō͠ϠŠŠԠՍĠӠƍԭӠ̠Š٠̍ƠϠԠԠ٠Ԡ΍Ԡ٠ĠԠƠӭĠ٠ǠŠŠͮԠҠԍԭŠŠύ̠ΠĠˠҠԠōΠҠӠϠŠԭӍ͠٠ǠŠǭήԭӠ̠ŠՠӠĠ͠ҠĠ̠׍ՠΠԠҠӍԠӮҬ٠ΠŠˍΠԠՠŠŠҠƠԭӠͮΠՠĠˍҠ٠ԬҠč̠ŠĠԠҠǍŠŠӠՠ̠Š΍٠̠ƠȠӍ٠̠ՠ̠ ԺƠն̩ΠΠϠթΠנӠƠŠ͠ԠՍԠԠϠĠҠϠԍ͠ΠԠӠƠŠͩŠǠՠԠԠϠϠӠύ̠ŠŠ͠ĠǠήΠ٠ŠȠ΍ŠӠ̠ƠōӠ٠ΠϠŠԍӠҠŠӠҠōǠԮӠŠΠҍҠΠŠΠ٠٠ՠȮՍΠԠҠϠ٠ٍ̠ǠӠōŠՠŠŠΠŠӍΠŠĠϠ٠ΠӠōĠծŠ̠͠׍ȠӠΠĠԠӠōĠՠĠ̠ӠŠҠԠΠŠΠƠǍҠծնӠҠǠŠŠԍԠŮճӠŠ͠ϠĠ̠ŠҠϠōŠҠմյӠՠϠŠҠӠύĠĮՠΠϠӠٍǠŠϠϠŠǠō٠ͮƠՠϠԠĠ̠ōΠԠӠҠΠנٍӬȠҠӠԮԠӍĠΠŠ͠٠ōŠاȠӠĠԠōҠԠӠ٠ԠϠӠҠ٠ҠΠĠΠٍŠĠӠĠΠŠٍճҠƠӠčմҠƠӠčյ̠Ġōն٠̠ĠǠԍձӠŠ͠ϠĠ̍ŠҠϠήղӍŠƠϠӠΠƠנӠǍӮɧŠĠȠ΍ձȠնȠӠϠōӠĠΠŠ͠ƺձղճմյնձ̠ӠĠΠ͍ղ̠Ŭ׮ӮӬӠŠԠӠˠƍӠԠҠӮӠӍĠƠȠĮԠӍӠŠРƠϧӠčӠĠӠŠӠΠčǠŠ٠ͺŧŠҠϠčՠŠ˩ҠԠŠŠˍŠԠ̮ƠՠŠЍ͠ҠՠĠԠϠٍǠŮŠҠǠōŠ͠ӠŠŴҠŵӠŶӠϠԠŠŠҠŠŠԠͺנɍƠՠϠԠŠŠ٠ϠōŠӬԠӠҠϠԍŠ͠ԠͺנɍԠӠϠǠԠŠҠōҠŠԠĠΠōŠӠԱĠ̠ϠˍԱΠϠŠŠӺűȠŲ٠ųҠōǠΠӠΠĠύǠӠ٬ԠύԠԠ٠ӠŠύŠԭӠͮǠ͠ΠԍΠҠĠƠ˩΍ΠՠԺĠŠƍˠӍӠΠӠĠϠ׍ŠӠϠΠӠҠ΍ŠĠϠŠ͠΍ԭӮŠŠԠŠӍƠҠӠŠҠȍǠӠ̠ĠŠ       ĠΠŠĠΠŠƠɭũ׮ҠԭӠͺӠӠŠΠԠ٠ˠύҠƠԭөĠΠŠƠɭũ׮ӮӺŠǠōǠӠҠŠӮӺӠŠؠƠӍҠӠΠŠ͍ӠŠ̠ŠĠΠ΍ŠĠŠϠРˠƍөΠŠٍͬӠȠ٠ŠΠԠ΍Š̠ŠĮǩĠΠŠ׮ԮӺӠ̍ǠƠӠΠōͩҠΠӠĠ͠ծĠΠŠ׮٠ӮӺĠ٠Š͍ΠǠӮĠΠŠ׮ӠԠƠ΍ӠΠŠ©Π΍ӠĠ͠ŠծĠΠŠǮҺĠ٠Š͠΍ǠӮĠΠŠǮҺ٠ǠƠӍӠԠŠ٠ŠӍƠŠҠՠΠŠҍӠŠȩРήĠΠŠ׮ӮӺ͠ӠōĠ٠Š͠ϠРϠƍҠŬĬӬîĠΠŠ׮ӮӺӠϠŠǩ̍ӠӠծĠΠŠ׮̮ӺŠǩ̠ӍծŠӠΠŠĠٍŠЮӠĠύԠӠ׮Ӯ׮ӍĠΠŠ׮ЮӺŠ׮ϮӺΠĠ΍ҠӠɩϠΠ͠ծĠΠΠ͠ōРǠӠƠάĠŠŮĠΠŠ׮Ӡ׮ӺӠԠ׮ǮӺӠŠ΍Ǡ͠ήĠΠŠ׮ӮӺΠčҠҠϠԠӠƠĮĠΠŠ׮ծӺӠΠՠҍӮĠΠӍԠ٠ŠРҠ̠ϠčӠӠϠΠӠŠשōũĠΠŠ׮ҠǮӺӠčҠנӠ٠ŠԍӬǠΠҠԠũĠΠŠӠϠԠӍҠǮԠĠΠˍΠԭӠӠǮԠΠϠũЮĠԮͺԠōĠϠԠǠŮĠΠŠƠɭũ׮ӮӺǠũנɠ¾ԺΠԠ͠ԍ̠ŠԠԠ٠٠ōĠԠԠϠԠŠҍǮԠĠΠˠ΍ԭӠӠǮԠΠϠũנɠɾԺΠҠ͠ĠύԠҠȠԠҠŠԩĠΠŠנɠԺΠԠ͠ԍ̠ŠǠҠԍӠϠԠӠҠĭǠȮ٠ϠŮԠčΠˠΠԭӠӠǮԠΠϠŠˠōԭӠӠǮנɺŠΠ͠ȠӍΠ٠ΠԭӠӠǍĠӠԠӠӠĮӠԠŠϠŠΠŠˍŠ͠ӠǮנɮʺ٠͠ΧԠӍנɠٺΠ٠ͬĠԠŠΠŠˠōԭӠӠǮנɠҺŠҠĠҍǠĠǠŠԍӠĠ٠ŠͮӠԍŠϠŠΠz#/g  Š׮Ӡ ׮ӵ ׮ϮӠ ׮ԠӮӠ ׮Ӳ ׮ӮӠ׮ӮӠ ׮ծӠ ׮ӱ׮ӮӠ ׮̮Ӡ׮Ӡ  ׮Ԡ# נɠҠ ׮ǮӠ׮ԮӠ׮ӮӠ ǮҠ ׮ҠǮӠ נɠî) נɠî נɠîנɠî נɭʠҠҠ٠'Ϡ"נɠ נɠԠנɠ¾ԠנɠɾԠנɠî"נɠîЍ΍ōͱӍԍōѲ͍Ҡ׳ǠîˠРҠˠӠ͠ōϠŠĬƠŬŠŠՍŠˠРƠŠ̠ˍԠՠĬĮԠԡŠŠӠϠŠԠӠΠčĠŠĠΠȠҍĠŠӠΠӠՠō٠ϠϠàȠҠԭӮŠŠĠ׮ϮӢӠōŠŠҠ̠ĠΠōӠŠɩϠΠĠčŠĠŠϠ׮ӢӍȠŠӠƠӠĠ΍ؠҠŠŠϠԠō̠ŠΠŠĠ͠ōˠǠŠӮŠŠĠ׮ҠǮӢӠŠŠԠנҍ̠ŠΠŠŮŠӠĠȍӢŠ٠Ġ٠ōРŠҮŠӍĠȠ׮Š٠ύŠԭӠͮŠӠĠȠǮōĠҠǠӠčӮŠŠɠîנɠîנɠîנɠîנɠî׮ԍԠŠĠ͠ĠŠōŠӠ͠Šˠˮ̠ŠҠӠŠĠϠōΠōŠĠ͠Ġ٠Šύ٠ŠǠӠΠ׍źנɍנɠٍנɠҍנɠԍנɠ¾ԍנɠɾԍנɠîנŠĠŠӠԠŠԍŠĠŠǠĠčԠԭӠӠŠŠύӠ٠ǠŠ͠ΠΠ͠Š٠թƠՠȠϠŠŠӠ΍ŠŠϠΠŠŬӠŠ٠ƍȠˠϠŠΠȠŠԍԠũƠΠ̠ŠӍǠĬ̠ӠĠӍҠĠŠˠƠŠōĠΠԠөŠĠ΍ŠŠ٠ԠҠǍĠϠōˠϠŠŠҠ̬ǠӬîӠӠύŠҠŠ٠ĠҍӮԠŠΠŠҠԍϠŠŠӠ̠ŠӍŠΠǠϠԠӬ̠ŠԠӠŠĮŠԠ͠ĠנɢӍŠΠͮŠĬԍӠΠ̠͠ĠȍѢ͠ŠĩŠԭӍ͠ӠԠĠϠӠō٠ˠŠРĠǠčӠ٠Šԍ؍ˠӺĠΠӠؠӠǍƠӠĠΠŠԭӠۍŮԠӠԠԠŠƍŠӠŠĠҠĠ̍ŠҠӠ٠ҠȠō͠Ġנ         ĠȠԭӮōҠĠȠԭӠӠŭӠҠԠӠĠҍŠԠǠΠҠƠҠή "CATALOG" ҠĠӍϠȠϠŠԠӠ΍ΠϠŠӠĠȍԭӮŠŠԠƠՠ٠ΠԠҠĠŠŠǍԬΠՠΠ٠̠ӠŠҍΠҠҠǠΠ٠ԍŠԠŠōǠĠήΠՠŠĠȠΠǍάԠΠϠΠύŠ٠ծΠӠĠΠŠҠՠϠҠԠŠ٠ōϠŠĠנŮӍΠӠĠōҠǠҠˮŠŠԠՍҠŠԠŠŠŠōĠŠĠӠҠŠ΍̠ԠנРΠŠ͠ҮԠ٠ŠŠҠՠӠРՍ٠ԠΠˠǩύĠƠƠŠҠčǠŠĠԠҠԍŠṶ̊ӠӠΠԠύРǠĠԠΩҠՠŠĠҠéčԠŠŠŠϠŠԠٍǠΠ͠ŠҠծՠ̠ŠĠҠŠŠҍՠĠ٠ԠϠөנҠύũԠάӠŠҠŠōƠéǠŠԠٮƠՍԠϠéԠŠԠ٬ԍ̠ŠĠˠϠՠŠ٠ōĠՠ٠Š٠Ҡō٠ǠŠŠ̠ԠΠ٠ҍήΠՠŠĠǠ׍ԬҠآΠŠ٠ƍϠĮӠˠӠĠȭԠԭӠϠŠŠĠƍԩҠǠŠĠϠԍάՠŠĠϠŠ$,5)"EMPTY"C5$"EMPTY "N-C5$"EMPTY "C1$"":C2$"":C3$"":C4$"":C6$""u-(Z$)6Ģ11:16:744:C6$(IN$,1)-D$"WRITE NW.USERS.SYS,R";D1-C1$:C2$:C3$:C4$:C5$:C6$-(D$:4940-<D$"CLOSE".P22:"ANOTHER RECORD? ";Z$:(Z$,1)"YǠԮƠՍԠĬՠ̠ŠĠӍϠנ٠ŠӠՠ٠ĮΠǠԠԠӠ٠ԍՠŠϠŠŠƠ٠ӠҠŮŠŠ΍ӠӠϠՠԠˍРĠԠՠ̠ŠčҠՠԠϠũԠҠө׮ŠөנŠ̠נՠύĠŠΠӠԠ̠ҍϠӠϠŠŠͮƠՍԠũԠՠ̠ŠĠӠύҠՠԠϠĠϠҍéԠŠ"WRITE NW.USERS.SYS,R0":X:D2:X2:D$"CLOSE"7*1500i*::"EDIT WHICH RECORD #";Z$:(Z$)X14780t*5180*D1(Z$):D$"OPEN NW.USERS.SYS,L64":D$"READ NW.USERS.SYS,R";D1*744:C1$(IN$,1):744:C2$(IN$,1):744:C3$(IN$,1)0+744:C4$РŠ̠͠ԠƺԠΠϠĠΠԭǠŠϠٮՠ̠ŠčҠȠŠҠϠĠΠ͍ԠӠŠҠҠˠӍĠȠԠӠĠҍ̠ŠӠΠŠҠǺΠנɠҮŠҠՠӠŠӺĠŠϠٍԯנŠΠٍŠנōŠŠΠˍˠǍΠϠ٠Ս̠ŠҠǠΠύүנŠٍŠҠӠĠҠŠ٠ōРϠĠҠŠҠōΠΠŠ͠ԠӮՠΠҠŠҠ͍٠ҠǠԠΠ͍Š٠͠Ҡ      ȍ̠ӠŠΠŬîŠҠ٠٠Ǡōή٩ҠӺƠҠӠϠōԠӠӠӠŠΠԍӠήԠӠ͠נٍӠŧӠĬנ٠ōӠŠӠĬנٍӠŠӠĬӮӠĠŠԭōΠΠŠӠΠԠōĠ׮נҮӍؽԠźӠӠŠȍԠҠӠ͠ӠҍӠ͠ǠΠȠٍŠȠӠԮԠΠŠč٠ŠŮҠŠӍĬŠ͠ӠӠčӠ٠ϠŠՠŮƠҠӠϠŠŠōŠԠ٠ŠŠΠԍӠήŠŠŠӍĠΠԠŠč׮Ϡ͠ƠӮ̠͠Ӭî̠̍ŠĠԠӠԍӠ٠ŠĠҠĠԍŠנϠȠĮשŠźŠԠŠҠӠΠŠٍ̠ŠŠԠϠŠͮ΍ĠҠĠōŠŠǠȠŮ֩ϠźŠ͠ӠРȍΠٮŠҠٍԠӠΠϠ٠ōԠƠԠӠϠ٠ύȠРĠӠĠ٠ŠήԩźӠӠŠΠƠˠӠĠύŠͮƠˠҠ΍ŠŠҠԮҠӍϠŠĠŠŠؠҍ͠Ӡ٠ύԠĠΠԠōĠ׮ӮŠԠ͠΍ӠԠŠӠŠ̠ҠƍӠŠŠӮӠӠč٠ŠŠӠĠōĠƠŠΠϠԠōŮŠŠŠĠӭŠΠčŠԠŠĠҮөίĠźӠōӠΠӠΠǍȠŠҠŠҠӠύԠȮŠ٠Π٠ōӠҠĠ٠ŮōӠŠ٠Š΍ǠŠŠΠŠԮΠάŠРΠŠٍŠӠƠϠĠԮΠĠӠŠР΍ԠӠĠ׮ŠōҩŠźҠĠōӠϠ٠٠Ҡ̍ӠԠŠȠōӠҠŠԠŠԍӠҠΠĮЩԠźŠҠӠӍϠԠŠΠŠ΍Į̠ӠŠĠҍǠϠԠՠҠՍŠŠ٠͠Ϡ٠׍ӠҠŠͩĠӠԍΠ̠Ҭ٠ԠŮΩӺĠ٠ӠϠנ΍ΠŮҠӠȍҠӠҠӮӍŠԍ̠ԠŠĠϠҠō٠ƠӠΠӠĮͩӠǺǠӠ΍ӠŠҠϠŠԠƠ̍Ӡ٠ǠĠčΠŠͮӠԠӠŠЍ٠ҠȍҠĠҠŮ̠͍ӠĠ̠͠ӠčӠ̠ӠŠ΍ΠҠŠ٠ϠҠԍĠŠӠĬԠƍԠӠĠĠĠĠԍӠΠҠĠҠŠΠӠϠנԮӠŠӍΠŠŠӠ׮ϮӍ˩ĠźŠ͠ӠύҠŠ٠ŠĠ̠ԍ̠ǠĠǠԍٮԠƠҠӠӍάŠ٠ΠŠĠĠԍ׮Ӡ̠ӍȩкǠӠΠ̠ōĠΠƠ̠͍ӠҠŠҮӠԍŠӠĠ׮ЮӍɩκĠϠ٠͍ΠԠŠРӍΠΠŠԠӠŠٍŠԠũ׮ӠҠĠӍ׮ӠҠӍ׮ӠӍ׮Ӡ׮ӠӠӍ׮Ӡč׮ӠҠ̠ԠӍΠȠΠˠϠŠΠŮŠРԠĠŠӍϠŠՠŠӠŠӠȍٮŠӠΠΠŠԍŠנŠŠ̠ԠōӠĠҠŠ٠ӍΠŠӠӍĠ٠٠ŠР٠ōƠŠҮӠՠӠčΠŠŠĠ׮̮ӮōԠԠՠԠӠŠȍŠՠ̠٠ϠӠύŠŠ٠ӠǠΠŮŠӠŠčӠϠՠΠĠ͠ϠҍǠԮƠŠӠӠ΍ԠΠ̠ϠŠčϠŠҠǠҠҠŮǩ̠ԠӺӠ΍ӠŠҠϠ­ծōΠĠŬҠ٠ԠӠϠŠՍΠȠ̠ŠĠӍԠƠŠҠǮԠŠōŠŠӠӠΠō͠ӠӠӠĬƠōӠԠ٠ŠϬ̠ˠƍŠĠŠϠŠŠӮԠӠȍΠà̠ŠΠō͠ƺخҧӠōŠآӠҠΠĠĠҠ٠ŠРϠ̠ƠӠԠ٠ŠŮƩ˯ӺԠ٠ĠōĠҠŠŠƍ͠ՠŠǮũà̺ȠŠҍӠΠӠؠӠٍĠҠ̠ĠŠӠčƠŠӠ٠ǠҠٍͮĠӠ٠įōӠΠנҠōĠϠΠٺŠ͠ŠōЮӠӠŠŮ͍ŠŠŠԠŠōҠ͢ΠŠŠԠƠōŮŠЮԠĠ̠Š͠ōũŠŠΠŠč٠ŠРҠΠŠĠٍǠŠƠŠҍ٠ӠƠŠԠōԠŠӠЮŠŠōҠǠӠԠŠ΍Š͠ӠźРԠ͍ΠҠ͍ɠ٠͍Ԡ٠ԠŠ͠ҍŠ٠ҠӮŠҠӠϠŠԠƍŠŠŠנŠŠōԭӠ͠ƠύԠŠŠӠŠӍӠŠԠŠөƠōӠՠĠϠҠҍǮŠҠӠϠŠԠƍŠŠŠ̠ԭӠԍŠƠ͠ԠӮŠٍΧԠ׬ԠӍ̠ԠǠϠӠҍӠҠΠӠ٠ōĠҠǮΠ΍ϠǠ͠ϠԍŬŠРԠϠŠōӠԠŠ٠ĠƍŠ٠ŠԠΠŠҧӍˮƠŠҠӠ٠ҍŠƠ͠Π΍ԭӠӠԠŠҠӍĠҠ͠ҠǠōӠԠӠӠŠōӠĠ̠ĠԮΠŠՠĠՠΠ٠Ԡ٠͍ϠԠŠĠΠĠԍϠҠՠȮԠӭƠŠҠӠ͠ɠĠΠŠȠˠŠΠԭӠ̠čŠ͠ϠӠŠĠϭ̍͠ӠנĠԍϠŠΠҠŮŠ͠ӠźנɠԠԠϠԩנɠ¾Ԡ٠ϠԩנɠɾԠҠϠԩǠŠӠŠةՠԍΠŠˠϠŠ͠ȍ̠ŠǠԠŠŠŠԍӠΠՠŠήĩǠӺǍǩӠӠԠԍĬΠԬӠҠΠҍȠŠԠΠƠŠЧӠĻŠҠ٠ԠϠԮŠҍΠ٠ŠծՠϠԠŠϠŠĠΠҍϠˠΠΠŮՠΠō̭ԠŠŠԭӠӍǮŠՠΠԍ٠ҠĠ٠ҠōҠ٠ǠҠՠŮŠ̭ԠӠΠΠҍŢίƠȩϠԠԍƠԠŠĠˠϠō͠ԠŠ̭ԠĠӍŠΠٮŠŠΠӍĠ٠͠ŠӭǠŠ٠ϠŠԠƠōĠĠ̢ĠōǠԠάϠǠōҠԢٮΠ΍Š̠РϠŠҍŠԠŠĠĠՠ΍נԠˠĠȠȠΠҍĬԠŠөŠӠŠŠРȠ̠ĠŠԠԠōӠϠԠȠծՠ΍ŠԠҠҠŠŮύҠŠŠ̠ՠŠϠϠӍŠ̭ԮՠϠӠ٠ƠŠҠӠŠԍάϠӠκŠԠŠҠԠŠЍԠƠŠΠӍǠ΢ӠƠӠ̠Ǡԍ٠ԠԠ̠ՍҮӠĠ٠ӠϠԍՠĮՠΠĠנӠٍǠŠŠĠ׮ӮӍǠŠԠҮ©ΠӺŠӠĠōӠҠӠŠŠčǠŠ٠ծŠōŠӠ׮ӮӍéԺɠР΍ӮŠԠΠӠĠΠҠǠōĠԠҠҠՠΠōҠΩϠԠŠΠ΍ϠŠӠԠӠĮŠӺԭӠӠčȠԠƠ͠РΠٍӠΠӠΠנƠōӠƠΠȠōР٠ήŠؠӍǠƠŠԠŠӠčԠ٠ŠĠҠĠĠōĠϠΠ          ̭ΠԠҠԍΠŠԠӠ̠ŠύŠԡŠȠ٠Šč٠ŠЮŠԠŠҍĠȠԭӠӠčҠŠȠƠΠӍΠũԠӠҠΧӍҠȠԠȠӠύנŠȠӠͮƠՍŠӠōРǩΠĠΠȠƠōӠԠӠ٠ŠӍĠϠŠ͠٠ŠРٍŠƠŠ٠ͬҠٍӠǠŠΠĮ̠ŠΠӠĠΠԍӠΠ̠ŠӠĮ΍̬Ӡ٠ӠΠԠύԠŠƠŠ͠٠ĭōӮ٬׬ĠҠٍĠǠΠŠ͠Ԡ٠ԍŠҠĠӠƠ٠ԠҍĠ̠ӠȠӠĠӠōΠٮŠӠ̠ԍŠԠƠŠŮŠԠŠӠŠƭӠ̠ŠҠӠĠٍŠЮҠŬנҠٍĠŠӠԠ٠ԠĠٍϠŠ̭͠ȮԠӠԍΠŠŬŠԠנ̠ˍՠРŠҠĠŠԍנ̠ŠΠŠŮϠĠ٠ŠՠҠҠōǠΠӠͬŠŠōӺؠҠԩΠ׍Š̠ǍӠŠӠź̭נˠРŠč̭ؠˠРŠō̭ȠˠРŠҍ̭ҠŠԠōŠԠ̭ՠӠŠŠӠ̭؍ĠԠŠԠ٠̠ϠōŠǠӠ̠ōŠٮƠ̭ӠӠԠ΍ԠΠǠ٠٠Šō٠ӠǠ̠ԠōԠΠǠՠҠōҠΠϠŠԠήΠՠҠŠҠŠǠ͍ŠĬŠǠӍӠՠΠŠ͠Ҡ芊ˠŠ٠ŠǮ̠ӍԠԠƠӠ̭͠Ӡ̠٠Рō͠Ġ٠Ҡ٠ōǠҠǠΠŠΠҍǠԠϠŠҮǍՠŠҬԧӠĠύԠϠŠԠƠǠĭ٠ƠŠǠҠϠǠԮՠΠŠ̠ՠŠĠԍԠǮƠՠŠĠϩŠ̠͠΍Š٠ΠϠԠՠ΍ŠҠǠҠҠΠҍ̩٠ŠЮ٠ǠӍŠҠΠŠРϠԍՠΠŠǠנӍ͠ŠҠǠĠϠԠՠՠŠǭ΍ŠӮƠՠΠΠǍŠРĠՠŠΠ΍ՠĠƠϠŠͬō̠͠ŠԠĠǠՍΠӠƠՠŠǠٮƍՠΠΠӠנҠŠōŠҠ΍ŠԠԠĠҠȍӠŠҠƠӠΠōǮՠ٠נԠˠĠԠҍҠҠŠ٩Ԡō͠٠ǠŠҠԮō̠͠ԠӠȠՠŠ΍ŠҠĠˠŮΠՠŠōǠӠΠҬĠԭӍҠ٠ǠԠΠ͍Š٠ՠҠ٠٠ǺĠנɍŠŠĺήΠՠΠō͠ŠΠ̠ϠˠȍŠΠƠǠ͍ǠԭӠۍΠҠϠԠŠ͠РčǠՠԠźĠŠ͍Ġ٩ĠčԠԠŠҠƩŠŠӠĠϠŠΠōŠՠ     ĠŮΠō̭ԬŠӠάĠōΠٮҠԠӠΠӠԍ٠ҠŠԠ̍ٮƠՠԠϠ٠ōҠŠŠ٬ՍԠŠŠ٠͠ĠōΧԠϠՍĠנԠ٠ǠŠӍΠҠǠŠ̭ԠĠ΍ӠŠΠٮƠǠ̠ՠԠϠԍҠҠҠάˍΠ٠Ǡ̭Ԭ٠͠ƍԠՠŠǠĠŠƠŠϠӠӍҮՠĠŠŠӠΠƍǠŠԠŠŠҠčƠŠĠŠ̠ӠϠōԠŠԠƠŠ͠ӠŮŠՠŠŬŠΧԍŠ٠Π٠ŠŠǠŠΠ٬ՍΠϠŠŠƠӺӠΠӠŠҍ̠͠ӠҠӠ̍ٮӠΠӠҍ̠͠͠ӠҠӍ̠ٮŠҠĠҍԠṶ̊ԠΠ٠Šč͠ҠĬԠŠӮΠՠԠϠΠŠҠԍŠԠŠӠԠΠՠŠ΍ΠͬŠ̭ԠӠŠ΍ٮźҠǠ̭ԠčĠΠŠ͠٠ŠРύŠ٠Ǡ͡ѩԠӠŠԭӠۍ͠ĠӠՠϠԮ̭ԠǠӠ͠ŠčŠԭӠӠǠ̠׍ՠϠˠΠΠЍͱӍԲÍЍͳӍŠҠҠҍŠ͠٠ԠōĠ̬ǠŠ̍έΠŮ̩ǠˠԠŠǠƠӠȍΠϠ٠٠ΠŠ΍ҠĠϠŠҬĠҍŠǠҠנӮԩԠŮŠӠՠϠŠōԭӠ͠ĠŠŠōٮΠĬԠ΍ŠԭӠ͠ήӠŠҠ̠Šźũà̠̠Š΍ӠՠϠĠҠ͍ҠŠԠŠ٠ҠҮ̩ǠӠՠϠ٠čԬƠҠӠΩŠҍǠ͠ŠήԠōĠƠŠ٠ՠΠōŠԠǠĠԠנōҠԠԠԠҠĠ̠ӠŠ٠ōΠΠϠŠƠҍҠӠĠŠҠήԭӠ۠ӠŠРϠōӠ͠٠Ӡ̠Ӡ΍ŮӠŠҠŠŠźΩӠԠŠ̠ŠΠϠΠϠǠԭӠۮРӍԭӠ۠ӠՠӠōР٠ŠŠՠĠ΍Š͠ΠӠŮΠŠ͠ӠǬōРĠ̠נŠŠŠӍĮϠ٠ҬҠ΍ˠҠŠŠΠŠӍŠŠԠӧήנՠŠ٠ϠŠŠͮՠ٠ԠϠˠԠŠӍŠҠĠҠӠŠ΍٠ĠҬōԠ̠٠ŠϠŠōӠŠϠŠŠƠŠԍΠήϠ͠ŬԍԧӠŠϠנŠ̠ōŠҠΠǠŠͮƠҠӠĬŠӠŠ΍ӠŠӠȍ٠ŠȠԮƠՍϠϠȠŠŠҠŬō̠͠ˠҠȠҠϠōĮƠΠĠҠӬҍΨϩĠ٠ȩĻӍӠŠ͠ϠŠϠήƍՠŭƠǠϠϠȍŠŠҠŠϠٍĠŮȠҠȍŠӠĠϠנՠύĠҠ٠ŬŠҬĬî٠ҠŠӍՠԠϠȠҠĠŠ͍̠РԠ٠ԠĠҮӠΠӠ٠ΠՠōĠΠĠҠĠŠčҧӠŠӠĠ٠ōͮΠӠŠՠ٠ԠύԠȠŠԠčҠĠРȠŠ٠ԍҠϠΠҠάō̠͠ˠՠȠčҠϠԠȠĠ̠РȍŠΠŠǠȠԠҍҠҠ̠Ҡ̮ō̠͠ŠՠŠҠƍĠӠӠ̠ӠŠǍҠƠΠϠٍƠӠŠҠȠ̍͠ӠϠŠ̠ͮ׍ӠŠԠΠǠǠҍΠĠ̠ŠԠΠōǠȠĠ͠Ӡ̍ՠҠ٠ҠŠͮӍՠ̠ŠӠ̠ϠӠӠύĠ͠ӬĠϠōĠϠ٠Š͠ӮϠԠŠŠŠĠˠ΍ŠӠŮҠǠԍĠҠԠŠԠōĠΠϠŠծԠŠ٠ĠҠՠȠύԮ̠ŠΠԠčĠŠĮŠŠԠՠΠŠ٠ƍŠΠԠҠŠčŠΠŠԠŮŠӠōӠԭӠ۠Š٠Ϡ׍ŠРϠӬجōĠԠŠ͠Ӡԍ٠ƠǠŠ͠ՠԠύԠ͠ҠՠŠǮՠΠˠԠԠէŠŠϠҍ٠ǠŠԠΠ̍͠ΠĠҠ΍ĠȠӮŠ̠͠΍ՠĬŠԠΠōՠ̠ĠԠϠŠȍŠͮҠՠŠĠǬŠŠӺؠΠŠԍŠΠŠƠŠԠŠҍҠҮŠō͠٠Π̠ŠԮŠԠҠԠŠĠٍĠΠĮԠӠٍԠՠϠȠƠŠӠҍŠԠҠϠԠӠΠōҠˠ͠ΠήԠŠĠΠĠҠ̍ŠŮŠӠ̍ҠנϠŠˠŮԠΠԍӠΠӠҠҠōĠӠŠŠՠ̠ŠǠōԠǠ̠ήōԠҠƩӠԠΠŨөΠō̠ͬӠŠĠ΍ŠǠȠŠŠč׮ӠȠӠŠؠҠōӠƠŠӮŠӠōԠРҠՠ٬ԍŠ̠ԠϠԠԠȍΠĠîՠΠŠӍΠϠŠŠ͠ϠԠ̍ŠҠנήŠŠӠƠՍŠҠ͠ȠŠ΍ŠŬՠŠĠύԨũˠŠҠōΠŠҠƠŠ͍ҠԧӠ٠ՠ͍ŠΠΠŠ͠Ҡ̠ōĠŠТԠӠԠύŠŠԠŠŠҠƍΠǠŠͮƠҠՍŠҠ͠ŮǮĠˬĠŬŮՠ̠ŠĠϠ٠ϠӍǠŠŠ΍ՠŠǮŠ͠ӠԍƠՠŠҠԠӠΠԠƠԠӠΠҠԬŠ؍ԠĠƠΩՠ̍ϠŠĠŠŠŠٍ̠ΠŠŮԠРŠҠ٠ՠԠōĠŠˠϠŠӮ٠ՠӍΠũӠӠŠԠ͠ՠčԠҠǠӬƠũۍӠ٠٠ϠŬŠԠӠԠЮԠӠŠԠŠҠĠčנŠӠĠΠӍΠҠϠǠϠōŠԭӠ۠ΠͮŠ˭Р٠ƠŠ̍ŠĠԍΠŠԠנϠҠˠӠ۠ӠϠƠԠĠϠÍ٠ˠύǠčӠȠ٠נŬŠԍԠӠǠĮԭӠ          ŠЮ)}a@E(àЮ)}Q1]Ԡي]Ġ]Š]ԮӬϠ]̠ӠĊŵ)a()E@E(ΠΠӠ)E@a(µ)*Ya(ŵ)a(ų)a(̭)a}a()a(Π)a()a()a(̭)a()E@E@E(Πš)E@7}a()a(ŠЮ)a@E(ΠЮ)a@E(ŠЮ)a@E(ΠЮ)a@E(ŠЮ)Ua()E@*Ua()E@E@E()E@E@E()GfUa()E@E@E()E@E@E(ų԰)E@E@E()E@E@E(ų)\Ya(²)a(@KUca(ҠԠŠŠϠŠҠ)a(ξ٠ҠǺ)UcS()&@WUM6ca(ԠŠϠŠԠŠ)a(ĠӠξٺ)UcPS()&@/UcP d2e?a(נϠҠˠɠΠǠ)d2eZUa@E( M6@p()@p()de@p()de N@"(rC@"(r UKM6HUd2e?a(ҠϠԠŠ)d2ed"eRUoa(ҠҠ͠ϠԠ)a(Ӡξ٠ҠǺ)UcS()&     "8 .N1(N16):N$(H$,N16N11,1)N$:NN1:N063022O /(N$)2N$"0"N$U 0 COPYRIGHT 1982 BY: ADVANCED DATA SYSTEMS 7468 MAPLE AVENUE ST. LOUIS, MO 63143 ALL RIGHTS RESERVED &(4)"MONO":(4)"WRITE"NB$) 'OAA; (AOAL63019} )NA:63021:HX$N$":":I07:N(AI):63021:HX$HX$N$" ": *HX$:AAI:63016 +(4)"NOMONO":(4)"CLOSE" ,::::(7)"---> CONVERSION COMPLETE!": -N$"":H$"0123456789ABCDEF ===========":e #" INSERT DISKETTE TO SAVE TEXT FILE ON":" AND PRESS KEY:" $:20:G$::23::" CONVERSION IN PROGRESS "::21:35,22: %(4)"OPEN"NB$:(4)"DELETE"NB$:(4)"OPEN"NB$:(4)"WRITE"NB$:A:L: TEXT FILE NAME TO SAVE OR PRESS":" KEY FOR CATALOG:"n :"--> ";NB$:NB$""ĺ(4)"CATALOG":63007 :A(21902)(21901)256:L(21920)(21919)256 !:" BINARY START ADDRESS = "A:" LENGTH = "L: ""  3584216,0::S:" BINARY TO TEXT FILE "::34,13:"ENTER BINARY FILE NAME TO LOAD OR PRESS":" KEY FOR CATALOG:":"--> ";OB$:OB$""ĺ(4)"CATALOG":6300363000(4)"BLOAD"OB$> :"ENTER.EXEC"; COPYRIGHT 1982 BY V ADVANCED DATA SYSTEMSm 7468 MAPLE AVENUE ST. LOUIS, MO 63143 ALL RIGHTS RESERVED "VTAB23:INVERSE:?"Q$" CONVERSION IN PROGRESS "Q$":NORMAL:VTAB21:POKE35,22:HOME" '"MONO":"RUN 63999":"FP":"TEXT:HOME":"?CHR$(7)"Q$"---> CONVERSION COMPLETE!"Q$ ("NOMONO":"DELETE TEMP.EXEC":D$"CLOSE TEMP.EXEC" )D$"EXEC TEMP:20:G$:+ ":13::" W O R K I N G ": #D$"OPEN TEMP.EXEC":D$"DELETE TEMP.EXEC":D$"OPEN TEMP.EXEC":D$"WRITE TEMP.EXEC" $"LOAD"OA$ %"63999?"Q$D$"OPEN";NA$Q$":?"Q$D$"WRITE"NA$Q$":POKE33,30:LIST-63998:?"Q$D$"CLOSE"NA$Q$":POKE33,40:END"` &E NAME TO SAVE OR PRESS":" KEY FOR CATALOG:"e :"--> ";NA$:NA$""ĺ(4)"CATALOG":63006 NA$OA$ĺ:"CAN'T HAVE 2 FILES WITH THE SAME NAME--":63002 ::" INSERT DISKETTE TO SAVE TEXT FILE ON":" AND PRESS KEY:" !!216,0:::D$(4):Q$(34)Z:" APPLESOFT TO TEXT FILE "::34,13:"ENTER APPLESOFT PROGRAM TO CONVERT OR":"PRESS KEY FOR CATALOG:":"--> ";OA$:OA$""ĺ(4)"CATALOG":63003630005 :"ENTER TEXT FIL  T GET HIM HE'S EITHER IN ANOTHER STATE OR HE'S DEAD!!"?bH:OlHQZ1011mvHZQ150:ZX(16336):ZQH"**************** "QZ" ****************"H:QZH:7800:DA139:"*";:::ՅFIG(4);"WRITEORDER"QZGZA$(GZB$1GZC$:GZD$CGZE$LGZF$UGZG$nG(4);"CLOSEORDER"QZ|G21912,1G7800DH LOAD SYSOP CALLNH" SUPER LOUD SYSOP CALL >*<>*<>*<>*<>*<>*<>*<"SH7XH"IF THIS DOESN')";ZB$$hG"SHORT DESCRIPTION:";ZC$5rG"NAME:";ZD$I|G"ADDRESS:";ZE$ZG"CITY:";ZF$rG"STATE & ZIP:";ZG$G:"IS THIS CORRECT? "GZQ$:ZQ$"Y"18350:18260ވG::"<< PLACING ORDER (PLEASE WAIT) >>"䈳GG(4);"OPEN ORDER"QZ39:"*";::::"LOCATION --> ";LO$::DA139:"*";:::@FTF *** ORDER ***fGXQ14::XQ"G" << ORDER AN ITEM FROM THE STORE >>",G:"ARE YOU SURE? "LJ6GNS$:NS$"Y"18250ч@G7800݇JGQZQZ1TG"ITEM:";ZA$^G"BRAND:(OR ?LEPHONE LINE ? ? ":16000:LO$"THE TELEPHONE LINE"y;J(1)6BO$"THE STORE.(SALES)":16000:LO$"P.C. CONNECTION SALES";J(1)7BO$"THE TRADING BOARD":16000:LO$"THE TRADING BOARD"†;͆>BO$:PFJ(1)LO$"GENERAL MISC. BOARD #1":nFDA1BOARD":16000:LO$"GENERAL BOARD"`t;J(1)2BO$"PARAMETER BOARD":16000:LO$"PARAMETER BOARD";J(1)3BO$"CRACKING TIPS (PIRATE)":16000:LO$"CRACKING BOARD"腜;J(1)4BO$"GAMES PEOPLE PLAY":16000:LO$"GAMES PEOPLE PLAY"2;J(1)5BO$"THE TETYPE.PROGRAM NAME.TIME 48A-FP.DOWNLOAD TEST.01 MO: ALTERNATE BB TITLES:"WHERE TO (0=LIST, 1-7):";:560::NW0:BX0.;J(1)((Q$,1)):J(1)0J(1)7151008;J(1)5U6115100ՄG;J$(1)((J(1)))Q;J(1)08542!`;J(1)1BO$"GENERAL 139:"*";:::ՅF4,117:748,253:749,160:750,2:751,138:752,145:753,105:754,200ǃ8755,169:756,0:757,145:758,105:759,200:760,169:761,2:762,145:763,105:764,76:765,57:766,213:8 DOWNLOAD TITLES 8FORMAT IS: L >*<>*<>*<>*<>*<>*<>*<"0SH|XH"IF THIS DOESN'T GET HIM HE'S EITHER IN ANOTHER STATE OR HE'S DEAD!!"bH:lHQZ1011vHZQ150:ZX(16336):ZQႀH"**************** "QZ" ****************"낊H:QZH:7800:DAz   "<< PLACING ORDER (PLEASE WAIT) >>")GBG(4);"OPEN ORDER"QZ[G(4);"WRITEORDER"QZdGZA$mGZB$vGZC$GZD$GZE$GZF$GZG$G(4);"CLOSEORDER"QZG21912,1ˁG7800DH LOAD SYSOP CALL*NH" SUPER LOUD SYSOP CALS$"Y"18250@G7800"JGQZQZ13TG"ITEM:";ZA$K^G"BRAND:(OR ?)";ZB$ihG"SHORT DESCRIPTION:";ZC$zrG"NAME:";ZD$|G"ADDRESS:";ZE$G"CITY:";ZF$G"STATE & ZIP:";ZG$׀G:"IS THIS CORRECT? "GZQ$:ZQ$"Y"18350:18260#G::ING BOARD";>BO$::PFJ(1)LO$"GENERAL BOARD"nFDA139:"*";::::"LOCATION --> ";LO$::DA139:"*";:::FF *** ORDER ***GXQ14::XQ"G" << ORDER AN ITEM FROM THE STORE >>",G:"ARE YOU SURE? " 6GNS$:N"CRACKING TIPS (PIRATE)":16000:LO$"CRACKING BOARD"~~;J(1)3BO$"THE TELEPHONE LINE ? ? ":16000:LO$"THE TELEPHONE LINE"~;J(1)4BO$"THE STORE.(SALES)":1600]0:LO$"P.C. CONNECTION SALES" ;J(1)5BO$"THE TRADING BOARD":1600]0:LO$"THE TRAD ALTERNATE BB TITLESN}:"WHERE TO (0=LIST, 1-5):";:560::NW0:BX0w}.;J(1)((Q$,1)):J(1)0J(1)515100}8;J(1)3U6415100}G;J$(1)((J(1)))}Q;J(1)08542}`;J(1)1BO$"GENERAL BOARD":16000:LO$"GENERAL BOARD"4~t;J(1)2BO$5:759,200:760,169:761,2:762,145:763,105:764,76:765,57:766,213:`|8 DOWNLOAD TITLES |8FORMAT IS: TYPE.PROGRAM NAME.TIME |8A-FP.DOWNLOAD TEST.01 M}: ANY THEY GOT P{T8:"PRESS (D)OWNLOAD, (Q)UIT: ";:560:::(Q$,1)"D"13360f{h8(Q$,1)"Q"7820q{|814420{8IN$"*":744,162:745,0:746,32:747,117:748,253:749,160:750,2:751,138:752,145:753,105:754,200G|8755,169:756,0:757,145:758,10SAVE NW.";(L$(PG),6,(L$(PG))10)",A"SA$",L"LE$:14320dz7DKĺ"SAVE NW.";(L$(PG),6,(L$(PG))10)|z7DKĺ:X111000:Xz8:DK1ĺ"POKE 1912+(PEEK(2040)-192),138":AK123::z8:::6)"* SUCCESSFUL TRANSMISSION *":{,8DNDN1:U3U31:HOW MPG),4)"A-BI"ĺ(3):"TEXT":"CALL -936"Eyx7:1528SM,3:1912SM,PKy7(SI)1DK1ĺ"POKE 1912+(PEEK(2040)-192),138":AK123:::14260y7(SI)1ĺ(26)y7(SI)1ĺ:6)"** TRANSMISSION ABORTED **"::143807z7(L$(PG),4)"A-BI"ĭDK1ĺ"BĺD$;"OPEN";L$(PG)",S"S",D"D",V"V:D$;"READ";L$(PG):SA$:LE$:"CALL -151":14060tx6D$"OPEN"L$(PG)",S"S",D"D",V"Vx6D$"MON I"x7D$"READ"L$(PG)x7X1100::54915x(7RD:QUITx<714120xP7:D$;"NOMON I":D$;"CLOSE":SI5,95:7820(yd7(L$()"Y"13540w5$w5PK(1912SM)4w5:SI6,255Pw61528SM,90:1912SM,22nw$6DK1ĺ(18):"CALL -936"tw86wL6X1500:w`6(L$(PG),4)"A-IN"ĺ"INT"wt6(L$(PG),4)"A-FP"ĺ"FP"w6X1500:w614160w6SI5,KMQx6(L$(PG),4)"A-BI" NORMAL.":v5CLĺX$:"THE PROGRAMS ON THIS SPECIAL DOWNLOAD":"ARE NOT PUBLIC DOMAIN. PLEASE DO NOT":"DISTRIBUTE. FOR YOUR USE ONLY!":X$v5:"*** 2 DOWNLOADS PER CALL MAXIMUM ***" w5:"LAST CHANCE TO ABORT!!!":"START DOWNLOAD? ";:560:(Q$,1M":"ON YOUR DISKETTE FOR YOU? ";:560:(Q$,1)"Y"DK1up5:DK1(L$(PG),1)"A"ĺ"IMPOSSIBLE! THAT'S NOT AN APPLE PROGRAM":13540 v5DKĺ(7)"CHECK TO MAKE SURE DISKETTE IS IN DRIVE"::"A DELAY OF UP TO 30 SECONDS AFTER YOUR":"PROGRAM IS SAVED ISDN2ĺ:BR$:"SORRY, ONLY 2 DOWNLOADS/CALL ALLOWED...":"YOU CAN GET MORE THE NEXT TIME YOU CALL":7820{t45CLDK1:13700tH5:"ONLY MICROMODEM USERS CAN HAVE PROGRAMS":"SAVED AUTOMATICALLY BY THIS SYSTEM."8u\5DK0::"SHOULD ";PT$;" SAVE THIS PROGRAL$(I)Ls4" ";I;" ";(L$(I),4);" ";(L$(I),6,(L$(I))10);36);(L$(I),4)Ss4Ihs4II1:X$:7820s4:3700:"ENTER NUMBER (0 TO END) ";:560:PG(Q$)s4KY$KY$";"(PG):(KY$)150K1$KY$:KY$""s4PG7820s 5PG0PGI13540gt 554915:r4" T-80...........RADIO SHACK TRS-80 ":" PET ............COMMODORE PET/CBM "qr0454915::DK0:DL220rD4"PROGRAMS AVAILABLE TODAY ARE:":X$rX4" # CODE PROGRAM NAME TIME":X$rl413520r4:CLāI19:L$(I):s4I19:NLOAD FREE PROGRAMS :::"8q3:X$"":I139:X$X$"=":Fq3CL13360q3:"----->>> PROGRAM CODES FOLLOW <<<------"::" A-FP.........APPLE FLOATING POINT "q4" A-IN................APPLE INTEGER ":" A-BI.................APPLE BINARY "X p2NW$(AM)p2@p2D$"CLOSE"::"*** MESSAGE REMOVED ***":Op2D$"CLOSE"Xp3NW0bp37820}p,3 (D)OWNLOAD OPTION p@33600ph3U513240p|3p3:560:(Q$,1)"C"CL1:KY$KY$";""CL":(KY$)150K1$KY$:KY$"":CL0p3:q3"::: DOWAGE REMAINS **"::13080$o<213040KoP2D$;"DELETE NW.";X$",S"S",D"D",V"Vod2F$"NW.TITLES"J$(1):D$"DELETE"F$",S"S",D"D",V"V:D$"OPEN"F$:D$"WRITE"F$:NWNW1:W$(NW)ox2(W$)3W$"0"W$:12920o2W1$NW$(AX)o2W$:AM1NW1:NW$(AM)W1$130005,1)"#"Q$(N3$,4):127602n1X$NW$(AX):12860Pn1(Q$)5Q$Q$"/":12760n1(NW$(AX),5)Q$X$(NW$(AX),(NW$(AX))6):12860n2N1$"SYSTEM"N2$"OPERATOR"Q$(NW$(AX),5):12780n2SOQ$(NW$(AX),5):12780o(2:"** WRONG LOCK CODE - MESS$:(KY$)150K1$KY$:KY$""umt1:"MESSAGE TITLE: ";:(NW$(AX),(NW$(AX))5,1)"#"ĺ(NW$(AX),(NW$(AX))6):12700m1NW$(AX)m1"->DELETE THIS? ";:560:KY$KY$";"(Q$,1):(KY$)150K1$KY$:KY$""m1(Q$,1)"Y"13080n1(NW$(AX),(NW$(AX)) (R)EMOVE MSG ON BB El0"--- REMOVE BULLETIN BOARD MESSAGES ---":ul1J(1)LO$"GENERAL MISC. BOARD #1"l1"LOCATION --> "LO$l13600:3160l$17820l81:"REMOVE MESSAGE #";:560:AX(Q$):AX113080lL1AXNW13080m`1KY$KY$";"QTE POSTED: "T1$(13)M1$(1)/kz0AN1N1$NF$Ak0AN1N2$NL${k0D$;"OPEN NW.";MN$",S"S",D"D",V"V:D$;"WRITE NW.";MN$k0L11L:M1$(L1):k0D$;"CLOSE"k0:"MESSAGE WILL REMAIN ON-LINE FOR ABOUT":"10 DAYS (MINIMUM).":U4U41k07820l0 "AM$:12320=j40D$"OPEN"F$",S"S",D"D",V"V:D$"WRITE"F$:AM$~jH0D$"APPEND"F$:D$"WRITE"F$:LK$:D$"CLOSE":NWAM:NW$(AM)LK$j\01300jp0J(1)3M1$(1)(13)"DATE POSTED: "T1$(13)M1$(1):12420kx0M1$(1)(13)"MSG LEFT BY: "N1$" "N2$(13)"DACAN REMOVE IT."i/Q$(N3$,4)=i/(Q$)5Q$Q$"/":12220Pi/LK$MN$"#"Q${i/:"FILING MESSAGE...PLEASE WAIT...":i/F$"NW.TITLES"J$(1):D$"OPEN"F$",S"S",D"D",V"V:D$"READ"F$:AM$:D$"CLOSE":AM(AM$)i 0AMAM1:AM$(AM) j 0(AM$)3AM$"0/D$"UNLOCK NW."MN$",S"S",D"D",V"V|hl/54915::"SORRY, THAT TITLE IS BEING USED. PLEASE":"SELECT ANOTHER TITLE --":11940h/2560:M1$(1)"<<< NONE >>>"ĺ"*** NO MESSAGE POSTED ***":12500i/:"MESSAGE IS LOCKED AUTOMATICALLY. NO ONE":"EXCEPT YOU SHORT. AT LEAST 6 CHARACTERS PLEASE":11940^g.(MN$)27ĺ"UNDER 28 CHAR. PLEASE...":11940g/L1(MN$):(MN$,L,1)","(MN$,L,1)":"(MN$,L,1)(34)ĺ"NO COMMAS, QUOTES OR COLONS (IN TITLES)":L(MN$):11940g/Lg0/NW012160gD/12160"hX";:"";ZQ$:ZQ$"Y"ZQ$"YES"JK12f.JK011920mf.NF$N1$:NL$N2$:N1$"ANONYMOUS":N2$"USER":AN1:11920}f.3600:3160f.7820f.:"MESSAGE TITLE: ";:560:MN$Q$:(MN$)27820f.(MN$,1)(32)MN$(MN$,(MN$)1):11980,g.(MN$)6ĺ"TOOeh. (P)OST MESSAGE ON BB Le|."::: POST BULLETIN BOARD MESSAGES :::":e.J(1)J(1)1:J$(1)((J(1))):LO$"MAIN BOARD (#1)"e."LOCATION --> "LO$::"CONFIRM (Y/N) ";:"";ZQ$:(ZQ$,1)"Y"ĺ::8040e.e.JK0"f.AN0:"ANONYMOUS (Y/N) W.";X$",S"S",D"D",V"V+d-D$;"READ NW.";X$Rd-N1$"SYSTEM"N2$"OPERATOR"11760d-DV2ĺD$"NOMONI":D$"READ NW."X$:744:744:D$"MONI"::D$"READ NW."X$d-RD:QUITd.11760d.:D$;"NOMON I":D$;"CLOSE":SI5,95d,.7820d@.11560eT.11400"ACCESS RESTRICTED TO FIRST 10 MESSAGES":"UNTIL PASSWORD IS VALIDATED (READ #1)"::11600c-X$NW$(AX):(X$,(X$)5,1)"#"X$(X$,(X$)6)c-11800c-SI5,KM:BXAX::"MESSAGE #";AX;": ";X$:"[SPACEBAR QUITS MESSAGE]":D$;"MON I"d-D$;"OPEN N b,(Q$,1)"T"ZMZM10:11300+b-11400Gb- SELECT MSG TO READ Rb(-7820b<-54915:3700:ELİ1840::"CONNECTED: ";CN$bP-"(1-"NW",LAST="BX",QUIT=Q) READ #";:560:AXBX1:Q$" "AX(Q$)bd-AXNW11400bx-AX111400Zc-AX10EX0ĺ:,:ZM0ZMNWZM1+a8,54915:AMZMZM9SaL,AM;".";5);(NW$(AM),(NW$(AM))6)da`,AMNW11400jat,pa,a,3700:"(T)ITLES, (R)EAD, (Q)UIT: ";:560::Q$" "Q$"T"a,(Q$)0AX(Q$):11620a,(Q$,1)"R"11560a,(Q$,1)"Q"FU0:78009600`+7820,`+ BULLETIN BOARD ENTRY K`+ (S)CAN/READ BB TITLES u`+">>> SCAN/READ BULLETIN BOARD <<<":`+J(1)LO$"GENERAL"`+"LOCATION --> "LO$`+3160`+7820`,:"START LISTING TITLES WITH #";:560:ZM(Q$):ZMNW11280a$_ +Q1(A1$,(C$))C$11140B_ +Q0ĺ" ";A1$:Q1Q11S_4+Q11511100^_H+10980_\+D$::"PRESS (Q)UIT, (M)ORE: ";:560:(Q$,1)"Q"11140_p+Q10::10980`+SI5,KM::":::: END OF USER LIST ::::":D$;"CLOSE":EF$"HELP"EF$"":BR$:R MATCH LETTER(S): ";:560:Q1:C$Q$E^*:"SEARCHING DATABASE....."K^*W^*11140g^*D$;"NOMON"^*Q10:D$;"OPEN NW.USERLIST.SYS,S"S",D"D",V"V^*D$;"READ NW.USERLIST.SYS"^*744:A1$(IN$,1):Q1C$(A1$,(C$))ĺ" ";A1$:Q1Q11ELECTIVE THE MATCH)"]0*"AN EXAMPLE OF THE MATCH WOULD BE IF YOU":"TYPE SAY, AN 'S', YOU WOULD SEE ALL THE":"NAMES BEGINNING WITH 'S'. IF YOU TYPED"]D*"'MIL', YOU WOULD SEE ALL THE NAMES THAT":"STARTED WITH THOSE LETTERS."]X*:10700$^l*:"ENTEBY LAST NAME.":^\)Q0:C$" "::"(M)ATCH, (A)LL, (I)NSTRUCTIONS: ";:560:(Q$,1)"A"10900u\)(Q$,1)"M"10860\*(Q$,1)"I"10720]*:"THE LISTING CAN BE FOR ALL USERS OR FOR":"A MATCH TO YOUR INPUT (THE MORE LETTERS":"YOU ENTER THE MORE S)[@)AZ1AZ27820>[T):BR$:"-PRESS SPACEBAR TO QUIT-":c[h)F$"NW."(AZ)".SYS":RT9:3420u[|)54915:10440[) (M)EMBER LISTING [)3600[)SI5,95:":::: NET-WORKS USER LISTING ::::":[)SS(1):DD(1):VV(1)\)"ALPHABETICAL ORDER, 604Z(AR1:HKLK:M1$(1)"<<< NONE >>>":Q$EL$:9800NZ( (G)ENERAL TOPICS ZZ(10620jZ(Q0110500Z(F$"NW.SPECIAL.SYS":RT10:3420Z)"(?=MENU, 1-2) ->: ";:560:KY$KY$";"(Q$,1):(KY$)150K1$KY$:KY$""Z)(Q$,1)"?"10480[,)AZ(Q$Y((:D$;"NOMON I":D$;"CLOSE"ZY<(SI5,95:"ENTER D)ELETE R)E-READ A)UTO-REPLY: ";:560qYP((Q$,1)"D"10380YU((Q$,1)"A"10380Yd((Q$,1)"R"10160Yx(10300Y(D$;"DELETE E";LK;".";N1$;" ";N2$",S"S",D"D",V"V:AR0Z(MRMR1:(Q$,1)"D"95X'54915::3600:3660#X'10280jX'SI5,KM:D$;"MONI":D$;"OPEN E";LK;".";N1$;" ";N2$",S"S",D"D",V"VX'D$;"READ E";LK;".";N1$;" ";N2$X'744:744:A$(IN$,14):XX120:(A$,XX,1)" "ĂX'EF$(A$,XX1):EL$(A$,XX1)X(RD:QUITX(10240R FROM: "N1$" "N2$(13)"DATE MAILED: "T1$(13)M1$(1)W8'D$"OPEN E";LK;".";EF$;" ";EL$",S"S",D"D",V"V:D$"WRITE E";LK;".";EF$;" ";EL$WL'L11L:M1$(L1):W`'D$;"CLOSE":54915:AR9600We'LKHK:9560Wt'6020W'7820W' READ MAIL BV&EF$;"'S MAILBOX CONTAINS ";LK1;" LETTER(S)":ARİ2560:9980V&:"THERE'S ROOM IN ";EF$;" ";EL$;"'S":"MAILBOX. SEND LETTER? ";:560:(Q$,1)"Y"İ2560V&M1$(1)"<<< NONE >>>"ĺ:"*** NO LETTER SENT ***":10080V'1300>>"9700R%:"NAME MUST BE SPELLED EXACTLY AS LISTED":"IN THE MEMBER LISTING. TO CHECK CORRECT":"SPELLING, TYPE THE WORD: 'HELP' INSTEAD":"OF FIRST NAME ---"'S%SI5,95:M1$(1)"<<< NONE >>>"::"SEND TO (F QD%9600,QX%54915:AR0:LKLK1:94609Ql%AR0:J1uQ%::"WANT TO SEND ";:M1$(1)"<<< NONE >>>"ĺ"MORE ";Q%"MAIL? ";:560:(Q$,1)"N"7800Q%IFFU = 1 THEN 9635: GOTO 7 800 Q%FU=0: PRINT : GOTO 11600 Q%3600R%S"UNLOCK E";LK;".";N1$;" ";N2$",S"S",D"D",V"V_P%LK1ĺ:"THERE'S ANOTHER LETTER -----":10160P0%"YOU HAVE MAIL. WANT TO READ IT NOW? ";:560:(Q$,1)"Y"10160Q:%IFFU = 1 THEN PRINT : IF FU = 1 THEN GOTO 11600: GOTO 7800 $3660&O|$F$"NW.TIPS.SYS":RT6:3420}O$"THAT'S ALL OF THEM. IF YOU HAVE ANY THATYOU WANT ME TO POST, LEAVE ME FEEDBACK."O$7820O$ (E)LECTRONIC MAIL O$FU1ĺO$":::: ELECTRONIC MAIL ::::"::AR0:LK1:J19600O$ O$9580,P%D$;0:Q$"+"EX1N#Q$"-"EX0`N#Q$"#"ĺ:10)"*"(7)"AUTO LOGOFF ACTIVATED"(7)"*"::6120N#SI5,95:"*** PRESS TO END CHAT MODE ***":560N$N$ (A)PPLE TIPS N,$3600N@$SI5,KM:"::::::::::: APPLE TIPS :::::::::::"OT.":SY1@M<#D$;"PR#0":4:34::"ON";::" OFF":24:D$;"PR#"SMJMP#7820aMd# SYSOP PRESENT Mx#D$;"PR#0":4:34:"ON ";::"OFF"::24:D$;"PR#"SMM#CH1::" THE SYSOP IS ENTERING.........."::SY0:SI5,KMM#560:CH9160M#9120N#56420UL""WHEN CALLING OTHER SYSTEMS, PLEASE LET":"THEM KNOW ABOUT ";PT$;"...":7820lL# (C)HAT OPTION L#"*** SYSTEM OPERATOR IS BEING PAGED. ***":M(#"IF HE'S AROUND HE WILL ANSWER THE PAGE.":"IN THE MEANTIME, YOU CAN CONTINUE USING":PT$;".. YOU MUST HAVE A":"VALIDATED PASSWORD."Kt"(7):"PLEASE READ MESSAGE #1 ON BULLETIN":"BOARD TO LEARN HOW TO VALIDATE PASSWORD":7820K" (B)ULLETIN BOARDS K""::: KNOWN OPERATING BULLETIN BOARDS :::"K"K"3660L"F$"NW.ABBS.SYS":RT4:3M!Q1$"4"J(1)4ͭQ1$"4"15150CJN!Q1$"5"J(1)5ͭQ1$"5"15150MJ\!8040cJ]! ALTERNATE BB nJ^!8553J_!SS(1):DD(1):ZZ(1):Ja!:(4)"CLOSE":F$"NW.ALT BDS.SYS":RT12:3420Ji!7820Jp! (V)IDEO DISPLAY WIDTH (K`":"TO USE THIS FEATUREE IS --> OFF":7820OI !Q1$"X"Q00Q01:"EXPERT USER MODE IS --> ON ":7820aI4!Q1$"Y"7160tI>!Q1$"U"18500II!Q1$"*"F$"GENERAL":8542IJ!Q1$"1"J(1)1ͭQ1$"1"15150IK!Q1$"2"J(1)2ͭQ1$"2"15150IL!Q1$"3"J(1)3ͭQ1$"3"15150 JV(2):12540:H Q1$"R"DV2SS(3):DD(3):VV(3):12540hH Q1$"S"DV1SS(2):DD(2):VV(2):11220H Q1$"S"DV2SS(3):DD(3):VV(3):11220H Q1$"T"840H Q1$"W"F$"NW.NEWUSER MSG.SYS":RT5:3420I !Q1$"X"Q01Q00:"EXPERT USER MOD:3420.GN Q1$"#"F$"NW.WAR.SYS":RT5:3420WGX Q1$"A"F$"NW.TIPS.SYS":RT5:3420jG Q1$"M"10660G Q1$"N"RT7:2020G Q1$"P"DV1SS(2):DD(2):VV(2):11900G Q1$"P"DV2SS(3):DD(3):VV(3):11900 H Q1$"R"DV1SS(2):DD(2):V980+FQ$"D"SS(5):DD(5):VV(5):13120SF Q1$"E"SS(4):DD(4):VV(4):9420fF Q1$"$"18100xF Q1$"F"2180F0 Q1$"G"10440F: Q1$"Q"Q1$";"Q1$"G"ĺ"THIS FUNCTION WILL BE WORKING WITHIN THE WEEK."GD Q1$"H"F$"NW.INFO.SYS":RT5 AUTOMATICALLY."(E(16286)1276020E(16287)127ĺ"THE SYSTEM WILL BE SHUTING DOWN IN 2 MINUTES.PLEASE LOG OFF SOON."E(16287)127ĺEQ1$"?"7840E7820EQ1$"@"F$"NW.BULLETINS.SYS":3420EQ1$"B"8860FQ1$"C"İ840D,(Q$,1)"L"41206D@(Q$,1)"A"Ĺ1912SM,2:@DT7940DhSS(1):DD(1):VV(1):SI5,95:"(?=MENU) COMMAND: ";:560:Q1$(Q$,1):KY$KY$";"Q1$:(KY$)150K1$KY$:KY$""D|CL0:" "E(16286)127ĺ"THE SYSTEM IS NOW LOGGING YOU OFF 80C54915::BR$ICSS(1):DD(1):VV(1):F$"NW.MENU.SYS":RT3:3420C54915:D$"CLOSE":BR$:3700:ELİ1840:"CONNECTED: ";CN$CU68SO1CSO8040CSS(1):DD(1):VV(1)C"SYSOP: N)ETWORKS, L)OG, A)PPLE: ";:560D(Q$,1)"N"802BD$"UNLOCK E";J;".";N1$;" ";N2$",S"S",D"D",V"V9B(JhB<" ":J1ĺ"NO MAIL WAITING, SORRY.":7820BP(7);N1$;", YOU HAVE ";J1;" PIECE";:J2ĺ"S";Bd:"OF MAIL WAITING. USE 'E' OPTION TO READ"Bx SYSTEM MENU CSI5,95:SI6,VW:Q078 YOU CAN MAKE FOR TODAY."4A(N5$,1)"*"7820MA AUTO MAIL CHECK A(N6$,1)"0"ĺBR$:"YOU ARE NOT CURRENTLY ON OUR MAILING":"LIST. IF YOU WOULD LIKE TO BE, PLEASE":"USE THE FEEDBACK OPTION"A7740ASS(4):DD(4):VV(4)AJ15 (N6$,4, 2)) THEN PRINT : PRINT "ONLY "PX" CALLS PER DAY ALLOWED.": PRINT "YOU HAVE ALREADY MADE "; VAL ( MID$ (N6$,4,2) );" CALLS TODAY.": GOTO 6020 APX((N6$,4,2))ĺ(7):"* WARNING - THIS IS THE LAST PHONE CALL":" EMS": ?56?7I119:(8);:(8);:">";:(8);:Ih?83660:54915:F$"NW.BULLETINS.SYS":RT1:3420?LU5((N6$,10,1)):U6((N6$,1)):N5$" "N5$(T2$,5,6)"*"?` LIMITED ACCESS CHECK ?tBX0:(N5$,1)"*"EX0:Q00@IFPX < VAL ( MID$"****************************************"E>&:" WELCOME"Z>'" TO:"d>(::x>)"A - ADVANCED">*"S - SOFTWARE">+"C - CRACKING">,"I - INFORMATION">-"I - INTERCHANGE">3:"<><><><><><><><><>"?4"A.S.C.I.I. SYST)=" SECURITY LEVEL: ";(N6$,1):7=8)LA$:e="CURRENT VIDEO WIDTH: ";VW;" CHARACTERS"{=:::::CH$"/"="CURRENT KEYBOARD IN: ";:KM95ĺ"CAPS ONLY MODE":7420="UPPER & LOWER CASE"=7820= CONNECTION ESTABLISHED ,>$SS"2< (N5$,1)"*"LA$" LIMITED SYSTEM ACCESS"U< :"---> YOU ARE CALLER: #";LN}< " LAST CALL DATE: ";(N5$,6):<4" TOTAL CALLS PLACED: ";(N6$,3)<\ PRINT"FREE PROGRAMS REC'D: 0";MID$(N6$,6,2))=p" BULLETINS POSTED : 0";(N6$,8,2):)X$(U5)(U6);N6$s;D$"CLOSE":(222)9ĉ::10:15:"*********"::15:"DISK FULL"::15:"*********":y;; CALLER STATUS ;(N5$,1)"*"ĺ:"*** LIMITED ACCESS UNTIL VALIDATED ***"<(N5$,1)"*"U63LA$"STANDARD SYSTEM ACCEDX$(U1):(X$)3X$("000",3(X$))X$f:XN6$X$(N6$,4):X$(U2):(X$)2X$("00",2(X$))X$:lN6$(N6$,3)X$(N6$,6):X$(U3):(X$)2X$("00",2(X$))X$:N6$(N6$,5)X$(N6$,8):X$(U4):(X$)2X$("00",2(X$))X$;N6$(N6$,7N3$:N4$:(N5$,1)"*"ĺN5$:686019(T2$,5,6)Y9X$"":U11((N6$,3)):U1999U119((T2$,5,6)(N5$,6))((N5$,1)"*")U21((N6$,4,2)):69209U219U299U219U3U3((N6$,6,2)):U399U3090U4U4((N6$,8,2)):U499U40*:XPIRED!" 8M3$(0)"F/C"6680=8" ":L11L3:M3$(L1):V8:768::D$;"CLOSE"g8,N3$""71008@N3$"<<< NONE >>>"71008TX((N3$,2))8hX171008|D$"OPEN NW.USERS.SYS,L64,S"S",D"D",V"V8D$"WRITE NW.USERS.SYS,R";X!9N1$:N2$::K1$""ĺK1$7Q" "KY$=7dMRĺ" MAIL DELIVERED: ";MR_7xDNĺ" DOWNLOADS SENT: ";DN7PX((N6$,4,2))ĺ" CALLED OVER LIMIT"7Q$"O"Q$"OFF"ĺ" IMPROPER SIGN-OFF"7(TD$)0ĺ" "TD$7(LC$)0ĺ" "LC$8TEĺ" TIME EUS$:" ":" CALLER NO.";LN:" NAME: ";N1$;" ";N2$:" PASSWORD: ";N3$:" PHONE NO: ";N4$:" "6<(U61)(M2$(2)"")ĺ" ADD TO MAILING LIST:":" * "M2$(2):" * "M2$(3):" * "M2$(4):" * ("M2$(5)")":" " 7P" KEYBOARD SELECTIONS:"V"V:D$"WRITE"F$F5" ":"-- ";(T2$,10);" ------------------------"q5" ":" CONNECTION MADE: ";(T2$,11)5" CONNECT TIME IS: ";CN$5WP$""ĺWP$5((N5$,1)"*")(((N6$,3))1)US$" *** NOT VALIDATED SINCE "(N5$,6)" ***"h6($(0)"F/C"6740471004F$"NW.USERS.SYS":D$"OPEN"F$",L64,S"S",D"D",V"V:D$"READ"F$",R0":F1:F2:D$"WRITE"F$",R0":F1:F2:LN:D$"CLOSE"4F$"LOG.USER":D$"OPEN"F$",S"S",D"D",V"V:D$"WRITE"F$:XK$:D$"CLOSE":CA15D$"APPEND"F$",S"S",D"D",EM] ":I3TC$"THANKS FOR CALLING, "N1$" "N2$:(20(TC$)2):TC$:k3$12);"CALL AGAIN !!!"::BR$38"C-1981,ADS VER.2.3"3LJ15::3`D$;"IN#0":D$;"PR#0":C20:1625116SM,0:N1$""N2$""N3$""71004tSO1M3 2CA1*2N3$""N1$"":N2$"":6240@2 REACHED HERE***O2:::BR$j2CN$"NOT IMPLEMENTED."x2ST61402" TOTAL CONNECT TIME IS ";CN$2" YOU WERE CALLER #"LN:3(40(PT$))2);PT$:" [A NET-WORKS COMMUNICATIONS SYST ";N2$:LNLN1K1(N5$,1)"*"SO$N1$" "N2$N1$"":N2$"":N3$"":6220s1 SO$N1$" "N2$N3$N7$SO1:5940|1 SO014US$" *** DATA ON FILE ***"1H10401\54915:43201p DISCONNECT CALL 254915::SS(1):DD(1):VV(1):SM0SMSXTO LOG ON AGAIN."0l5460#0K00:"PLEASE COMPLETE THE REST OF YOUR PHONE:":" --> ";(N4$,8);:SI3,1:560:(Q$,4)(N4$,4)KK1:"WRONG !"(7)0K1Č54915:43600(Q$,4)(N4$,4)EX1:58600K157801(7):"ON-LINE: ";N1$;":KK1:K25440// STRIKE 2 - RETYPE ENTRY.a/0WP$" *** WRONG P.W.: "N7$" ***":Q$"NEW"/D:"EITHER YOU HAVE FORGOTTEN YOUR CORRECT":"PASSWORD OR YOU HAVEN'T CALLED FOR MORE"0X"THAN 30 DAYS (14 FOR LOCAL CALLS) WHICH":"MEANS YOU'LL HAVE "D",V"V:D$"READ NW.USERS.SYS,R";((N7$,2))f.744:N1$(IN$,1):744:N2$(IN$,1):744:N3$(IN$,1).744:N4$(IN$,1):744:N5$(IN$,1):744:N6$(IN$,1):D$"CLOSE".N3$N7$5640.:5760.D$;"CLOSE"/(7)"*** INVALID PASSWORD ***":1300:T1E1:T2E2:T3E3:T4E4:T5E5:T6E6:T2$T1$:CACA1:XK$(CA)b-,(XK$)3XK$"0"XK$:5420-@" ----> ";:SI3,1:560-A(Q$)35440-TN7$Q$:N7$"NEW"EX0:5980-h:"CHECKING PASSWORD..."-|5620,.D$"OPEN NW.USERS.SYS,L64,S"S",D$" *** NEW CALLER ***"#,1040-,7460F, IDENTIFY CALLER i,K0:EX0:1912SM,22:" ":" ","CONNECTED TO: ";PT$:" ":"NEW USERS: APPLY FOR A PASSWORD ALLOWINGFULL SYSTEM ACCESS":" ":"[ENTER PASSWORD OR TYPE THE WORD: NEW]":" "B-S,R";NP0+(N5$(T2$,5,6)"*":N6$"00101000000"R+<N1$:N2$:N3$:N4$:N5$:N6$a+PD$"CLOSE"+x:"PLEASE READ MSG. #1 ON BULLETIN BOARD.":"PRESS [RETURN] KEY TO ENTER SYSTEM ";:560+LNLN1:EX0:N3$"<<< NONE >>>"N5$(T2$,5,6)"*",USO"'S*LN3$(A)(NP)"*`A(7)1*tA794960B*N3$N3$(A)M*A(8)\*A795020m*N3$N3$(A)*N3$:" ":D$"OPEN NW.USERS.SYS,L64,S"S",D"D",V"V*Q$"EMPTY "5140*D$"WRITE NW.USERS.SYS,R0":NP1:LV:LN+D$"WRITE NW.USERS.SY GOTO4880 TO START FROM END .)BXLVNP])D$"READ NW.USERS.SYS,R";BX:744:744:744x)744:744:C5$(IN$,1))(C5$,5)"EMPTY"NPBX:Q$"EMPTY ":4880))D$"CLOSE"::"YOUR PASSWORD ASSIGNMENT IS: ";)$A(6)*8A794900: NO "NK YOU. PLEASE MAKE A NOTE OF YOUR":"PASSWORD. IT IS IMPORTANT BECAUSE YOU":"CANNOT ACCESS ALL SERVICES WITHOUT ONE."(p:"ONE MOMENT PLEASE..."(D$"OPEN NW.USERS.SYS,L64,S"S",D"D",V"V:D$"READ NW.USERS.SYS,R0":NP:LV:LN )4880:REPLACE WITHIFIED FOR FULL SYSTEM ACCESS.":4660T' (N4$)12ĺ:(7)"INCORRECT FORMAT":4600'4:"YOU ENTERED: ";N4$::"--> IS THIS CORRECT? ";:560:(Q$,1)"Y"4600'HN4$"<<< NONE >>>"ĺ:"*** NO PASSWORD ISSUED ***":N3$"<<< NONE >>>":5260w(\:"THAR":4380B&::"--> IS THIS CORRECT? ";:560:(Q$,1)"Y"4380&:"ENTER VOICE TELEPHONE NUMBER:"::"[###-###-####]";:I113:(8);:" ";:(8);:I:560:N4$Q$$' N4$" "N4$"<<< NONE >>>":(7)"YOU MUST ENTER A PHONE NUMBER THAT CAN":"BE VER" LAST NAME: ";:560:N2$Q$;%(N2$)04380a%N1$"SYSTEM"N2$"OPERATOR"4380%:"YOU ENTERED: ";N1$;" ";N2$;:(N1$N2$)5ĺ"???":"...NICE TRY, BUT NO CIGAR!":4380&(N1$" "N2$)22ĺ:"PLEASE SHORTEN YOUR NAME -UNDER 23 CHA.NEWUSER MSG.SYS":RT2:3420m$:"--> IF YOU DO NOT WANT TO ENTER THE":" SYSTEM THEN TYPE THE WORD OFF."x$04380$DN1$"":N2$"":N3$""::"ENTER THY FIRST NAME: ";:560:N1$Q$$X(N1$)04380$l(N1$,1)(32)N1$(N1$,(N1$)1):4460'%D$"CLOSE":BR$:D$"PR#"SM:" TO RE-START - TO CLEAR LOG ";:Q$:#Q$"C"ĺ(7)"CLEAR LOG? ";:560::(Q$,1)"Y"3800#SO7940#CA1:7100# NEW USER CHECK #(EX1)(N3$N7$)Q01:7460# NEW USER LOG ON $F$"NW01"j::A$"N"4210G"kA$"R"ĩ150:L1NW1:NW$(L)::255:4200q"mA$"E"NW0:Q$"Y":D$"READ"F$:4165"nA$"Q"4220"q240:L1NW1:NW$(L)::D$"PR#"SM"rNW$(1)NW$(NW):NW1:D$"READ"F$:(222)5ĺNW$(1):4165M#|NW0::D$"NOMON I":W0:744:744(!E744:(Q$,1)"Y"4180c!JNWNW1:NW$(NW)(IN$,1):(NW$(NW),3)"-- "NW14200w!T(IN$,1):4165!^(Q$,1)"Y"NW04220!hD$:::"P)RINT R)EVIEW N)EXT E)XPRESS Q)UIT";:"iA$:A$"P"A$"R"A$"N"A$"E"A$"Q"42Q"ĺD$;"PR#0":D$;"IN#0":PT$;" PROGRAM TERMINATED":47101,239:4710,216:[ SMSH:3880u  PRINT CALLER LOG :"LIST LOG ON PRINTER? ";:560::(Q$,1)"Y"İ240 ,222,0:4190 !@F$"LOG.USER":D$"OPEN"F$",S"S",D"D",V"V:D$"READ"F$:N M/M 0x LOCAL KEYBOARD ENTRY rSHSM:SM0:C20:D$"PR#"SM:D$"IN#"SM:1912SM,2:W$"T"5360W$"E"EX1:Q01:N1$"SYSTEM":N2$"OPERATOR":U69:9600W$"L"4120W$"C"ĺ(7):"CLEAR LOG? ";W$:(W$,1)"Y"3800K W$"O7940CA1:7100. SYSTEM STANDBY U(54915:Z(0):SS(1):DD(1):VV(1)`<6020PD$"IN#0":D$"PR#0":1625116SM,0:PAGE 76 M/Md:::D$"PR#"SM:D$"IN#"SM:38::CA;::38:W$:::C2(1656SM):C2127Ĺ1912SM,6:5360: PAGE 73 ::` PAGE SYSOP BELLS ktSYĺD$;"PR#0":BL150:S(16336)(16336)(16336):::D$;"PR#";SMq NEW CALLER LOG F$"LOG.USER"::D$"OPEN"F$",S"S",D"D",V"V:D$"DELETE"F$:XK$"000":D$"OPEN"F$:D$"WRITE"F$:XK$:D$"CLOSE"S":D$"CLOSE":SI5,95  7820g RT7500,4380,7880,8940,7820,9360,2060,2060,10620,10500,7820,15100~ LOCK OUT TEST (EX)ġ:8800$8 STOP/START/ABORT INFO L"[USE CTRL-S TO STOP & START]"::"][ - SPACEBAR QUITS LISTING - ]["P1PP0:3380= "...ONE MOMENT, PLEASE..."::D$"READ"F$U AM1NW:NW$(AM):d D$"CLOSE"j4 H GENERAL FILE READER \ 3520p SI5,KM::D$"MON I":D$"OPEN"F$",S"S",D"D",V"V D$"READ"F$ RD:QUIT 3480 :D$"NOMON ISK ERROR #";(222);" * AT LINE #";(218)(219)256: 54915:D$"OPEN"F$",S"S",D"D",V"V:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$:"000":D$"CLOSE":11940 D$"OPEN"F$",S"S",D"D",V"V:D$"READ"F$:W$:NW(W$) :"THERE ARE ";NW;" ACTIVE MESSAGES":P0 SI5,95:$D READ BB TITLES /X 3240F NW0PP1:3300 F$"NW.TITLES"J$(1):F$"NW.TITLES"F$"NW.TITLES1":3280 F$"NW.TITLES"J$(1):32805 (222)5ĺ:D$"CLOSE":D$;"IN#0":D$;"PR#0":1625116SM,0::11:"DISK ERROR #";(22)12820, (Q$)Lĺ"TOO HIGH..."::2980s :"-CURRENT LINE:":M1$(L1)::"-ENTER NEW LINE:":560:M1$(L1)Q$ L11M1$(L1)(13)M1$(L1) 2960 Q1$"F"M1$(1)"<<< NONE >>>"M3$(0)"":3120 Q1$"F"L3L:L11L3:M3$(L1)M1$(L1): "n"2560*@ (Q$,1)"F"(Q$,1)"f"2940mT (Q$,1)"A"(Q$,1)"a"ĺ:"--> CONTINUE YOUR MESSAGE:":2640wh 2820| :L11L:"- LINE ";L1;":":M1$(L1): :"PRESS [RETURN] KEY WHEN DONE EDITING." "EDIT WHICH LINE #";:560:L1(Q$):(Q$080  2820L :"MESSAGE READS: ";:M1$(1)"<<< NONE >>>"ĺM1$(1):2820e :L11L:M1$(L1): :" S)END, L)IST, F)IX, A)DD, N)EW":" WHICH ONE? ";:560:(Q$,1)"L"(Q$,1)"l"2780 (Q$,1)"S"(Q$,1)"s"3080, (Q$,1)"N"(Q$,1)"/EX"Q$"/ex"LL1:Q$"":2680[< M1$(L)Q$:L26ĺ(7)"--> WARNING, JUST 4 LINES LEFT"jP L302680td 2600x L0L1:M1$(L)"<<< NONE >>>" (M1$(1),1)(13)2740 M1$(1)"<<< NONE >>>"M1$(1)(13)M1$(1) M1$(1)"<<< NONE >>>"3(Q$,1)"N"ĺ:2300C (Q$,1)"Y"ĺ"THANK YOU."::BR$:U61:2540M 2480| "PLEASE ENTER ANY FEEDBACK TO SYSOP NOW:"  :SI5,KM:"30 LINES MAX., WITH WARNING AT LINE 26":"TO END TYPE ---> /EX <--- ON A NEW LINE"::L0!( LL1:560:Q$ CITY: ";:560:M2$(3)Q$Ct "STATE & ZIP: ";:560:M2$(4)Q$ :"ARE YOU USING AN APPLE, TRS-80 OR WHAT?":"--> ";:560:M2$(5)Q$ :"YOU ENTERED: ";M2$(1):14)M2$(2):14)M2$(3):14)M2$(4)::14)M2$(5) :"IS THIS CORRECT? ";:560:560:(Q$,1)"Y"228078206(N6$,1)"0"2540z"DO YOU WANT TO BE ON OUR MAIL LIST? ";:560:(Q$,1)"Y"2360 (Q$,1)"N"ĺ:U60:2540$ :23008 :M2$(1)N1$" "N2$:" NAME: "M2$(1)L "STREET ADD.: ";:560:M2$(2)Q$` "0X6SI5,95:M3$(0)"F/C"M3$(0)"F/C":2280"YOU HAVE ALREADY LEFT COMMENTS FOR THE":"SYSTEM OPERATER DURING YOUR CALL.":" ""IF YOU CONTINUE, YOU WILL BE REPLACING":"YOUR PREVIOUS COMMENTS.":" ""DO YOU WANT TO CONTINUE? ";: DATE/TIME SUB STı9(D$"PR#"ST:D$"IN#"STP<CK1380,1460,1680fP THUNDERCLOCK sd"%";T1$x"#";E1,E2,E3,E4,E5,E61800D$"IN#"SM:D$"PR#"SM"REACHED 1810"01300DSTCN$"NOT IMPLEMENTED":196'S NAME : ";N1$;" ";N2$]`2:"PHONE NUMBER : "N4$;35)"(";:(US$,8,1)"N"ĺ"NEW)":1160it"REG)"3:"---------------------------------------"4:N3$;"-#";LN;"-"N6$;27);"- PAGE ON ";::"OFF":5:BR$24D$"PR#"SM YOU WANNA LEAVE?->";:560:(Q$,1)"Y"Q$"O"::6020AQ$" "G ^4 (T)IME OPTION lD$"PR#0"$(T2$,5,6)(N5$,6)(N5$,1)"*"N6$(N6$,3)"01"(N6$,6)834,6:I16:I:" ":IL1:"USER680,720,740,750 600& CH9080< CH0:9160::780\ TD$"...DIAL-TONE...":6020 LC$"...LOST CARRIER...":6020 (7);:TETE1:TE3Č54915:6020 SI2,(SI2)128:600 Q$(IN$,1) Q$"O"Q$"OFF"8006 :"ARE YOU SUREBR$"=="::BR$BR$"="(13)= M1$(1)"<<< NONE >>>":SXSMr NW0: TO GET TITLES BEFORE CALL, USE GOSUB 3160| 3880  KEYBOARD INTERCEPT 0SI2,0:TE0 D ALTERNATE ENTRY POINT XSI1,C2:SI7 lQ$" " (SI)1780,760,660,:D$"CLOSE" h3800_ |F$"LOG.USER":D$"OPEN"F$",S"S",D"D",V"V:D$"READ"F$:XK$:D$"CLOSE" VW40:KM95:SI4,SM:SI5,KM:SI6,VW NW$(100),M1$(30),M3$(30) 768,169:769,0:770,76:771,237:772,253: -APPEND FIX  CA(XK$):X119:BR$UN FROM SCRATCH I ,F$"NW.CONFIG.SYS":D$"OPEN"F$:D$"READ"F$:YR$:PT$l -X15:S(X):D(X):V(X)::X0 .PX:SM:ST:CK:SO$:D$"CLOSE":DV1 6SS(1):DD(1):VV(1) TF$"NW.USERS.SYS":D$"OPEN"F$",L64,S"S",D"D",V"V:D$"READ"F$",R0":LN:LN:LN+ :::14480:RD27904:SIRD3:D$(4)5 200> 300 D$"CLOSE"::"FILE STRUCTURE INCORRECT! PLEASE READ":"INSTRUCTIONS BEFORE CONTINUING...": REPLACE THE NEXT LINE WITH YOUR PRINTER-ON COMMAND (4)"PR#1"::   R{ 27904' COPYRIGHT 1981 BYB(ADVANCED DATA SYSTEMSW<7468 MAPLE AVE.pPST. LOUIS, MO 63143d - ALL RIGHTS RESERVED - s47101,250:47102,241 xS6:D1:V0::(4)"NOMON I,O,C":(4)"BLOAD NW II-2.3.OBJ,A$9300,S"S",D"D",V"V""" " " " " """""""""!!! ! ! ! ! !!!!!!!!!