' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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-(l Ӡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` F  d LOM`f`SENOBz# u`19122,2::110:768,0:797,0:NG CARRIER <]":21150::16251162,128128:2:2:36688:1002:0:0:1002:824,4:38144:0:0:1002}4U(824)4ī413404m41050 5|4::958:222:T$"[> CONNECT <]":21150::768,0:797,0:16250162,21:16251162,139:20402,21:16562,139:P.,A768,L255"MD$:38143,(797):D$;"IN#0":D$;"PR#0":(797)123İ41100w3(4);"BLOAD CHAIN,A520"MD$:520"MODULE II"g4T:1002:34,6::16251162,9:41150:X1500::AD0:34,0:DA0::D$(4):1002:D$;"IN#0":D$;"PR#0":4::958:222:T$"[> SENDI68,123J2(16562)127Ĺ16251162,(16562)128:16562,(16562)128P22(16562)128Ĺ16251162,(16562)128:16562,(16562)12822Ƞ(16562)128Ĺ16251162,(16562)128:16562,(16562)1282ҠG3815,126:D$;"BSAVE TEM$1e(16384)127ľA$:A$"@"4107061fA$" "41300I1gA$"@"41057T1i413001n110:255:41150:768,123:797,0:110:1A$:A$"@"İ41150::11SC0:768,123:(16562)127Ĺ16251162,(16562)128:16562,(16562)128127$" <]":21150::T$"[> A NEXUS SYSTEM <]":21150:i0`821,123:(16251162)128(16384)127ī410600a222:T$"[> AWAITING RING <]":21150::T$"[> @ TO GO LOCAL <]":21150::T$"[> SPC SENDS CAR <]":21150::410560dA$"":(16384)12841065D$;"OPEN PASSWORDS.TXT,L60"US$:D$;"READ PASSWORDS.TXT,R"AN:NM$:VU:PW$:PN$:SL:TA:D$;"CLOSE PASSWORDS.TXT":30Z768,123:110:20:41100:D$;"BLOAD MM ANSWER,A$9500"MD$:T$"[> AWAITING CALL: "(NC1)" <]":21150::D$(4):T$"[> LAST CALLER: "LC 膢 ȱ " <67 L  8ij v vo>WAIT...<]: MODULE ][ LOADING":787,(MN256):788,MN((787)256):TTTA:782,(MN256):783,MN((782)256):OK2:EF0:30030*.GuD$;"UNLOCK MAIL."AN;ED$:D$;"OPEN MAIL."AN;ED$:D$;"RE6,0:804,0:D$(4):41100:D$;"OPEN PASSWORD QUANTITY"US$:D$;"READ PASSWORD QUANTITY":MN:D$;"CLOSE PASSWORD QUANTITY":782,(MN256):783,MN((782)256):D$;"BLOAD TEMP."MD$:792,0:790,0:791,0:799,0::255:40100:-6u:D$;"PR#0":783,0:804,0:Z$:,+b(TS$(Y))1ĺ(TS$(Y),(TS$(Y))1):4+b:U+Bc(IN$)1ĺ(IN$,(IN$)1):]+Lc:+eD$;"DELETE MAILCOUNT.TXT":D$;"OPEN MAILCOUNT.TXT":D$;"WRITE MAILCOUNT.TXT":Y1MN:MC(Y)::D$;"CLOSE MAILCOUNT.TXT"+f,0uLC816:HC,0:815,128::80": "LC$(Y)" <]":21150:::T$"[> CALLER "(NC1)": "LC$" <]":21150::*)^IN$"":"(";:Y13:60::") ";:Y13:60::"-";:Y14:60:::BN$"("(IN$,3)") "(IN$,4,3)"-"(IN$,4):IN$BN$:+aT$"[> CALLER "(NC1)": "LC$" <]":21150̠۠ݍ۠٠ݍŠݍݍ۾Πݍ۾ݍݍ۾ݍ۾ݠԠݠŠݠϠݍ۾ݠàݠΠݠӠݍ۾ݠùݠùݠùݍ۾ݠӠݠҠݠҠݍ۾ݍ۾ӠݠŠРݍ۾ݠŭǠۤݠҠݍ۾ۡݠΠҠۿݠӠՠݍ۾ݍ۾ݍ۾̠Ӡݍ۾ ݍ۾ݠˠݠŭ̠ݍ۾ݠҠӠݠРׯРݍ۾ݠ٠ӠݠĠРݍ۾ݠΠϠݠҠӠݍ۾۽ݠŠҠݠϠՠݍ۾ݠΠݠ̠Рݍ۾ݠҠϠ۾Πݍ۾ݍ۾Ġ٠ݍ۾ݍ۾ݍ۾۪ݠŠŠۣݠ Ӡݍ۾ݠ٠Šݠ    " <]":21150:::20((NM$)6)2);"";:"[>-";:X1(NM$):"-";::"-<]":20((NM$)6)2);"[>-"NM$"-<]":20((NM$)6)2);"";:"[>-";:X1(NM$):"-";::"-<]":TATA20::T$"[> LAST FIVE CALLERS: <]":21150:::Y14O*]T$"[> CALLER "(NC(6Y)) "BN$(Y)" QUANTITY":MQ(Y):D$;"CLOSE "BN$(Y)" QUANTITY"::D$;"OPEN SYSTEM MEMO.TXT"TD$:D$;"READ SYSTEM MEMO.TXT"(U50:SM$IN$:D$;"CLOSE SYSTEM MEMO.TXT":SC$(12)(14):D$;"BSAVE TEMP.,A768,L255"MD$:(]NM$""NM$" ")]T$"[> CALLER: "(NC)S.SL";TD$:D$;"READ BOARDS.SL":BL(TB):X1TB:BL(X)::D$;"CLOSE BOARDS.SL":Y1TB:D$;"OPEN "BN$(Y)" QUANTITY"SD$(Y)s(UD$;"APPEND"BN$(Y)" QUANTITY":D$;"WRITE "BN$(Y)" QUANTITY":0:D$;"CLOSE "BN$(Y)" QUANTITY":D$;"OPEN "BN$(Y)" QUANTITY":D$;"READ":NC:LC$:Y14:LC$(Y)::D$;"CLOSE CALLER INFO.TXT"::D$;"OPEN DATE.TXT":D$;"READ DATE.TXT":DT$:D$;"CLOSE DATE.TXT":BN$(TB):BN1:MQ(TB)x'UD$;"OPEN BOARD NAMES"TD$:D$;"READ BOARD NAMES":Y1TB:BN$(Y)::D$;"CLOSE BOARD NAMES":D$;"OPEN BOARD,D"(BD(X))",V"(BV(X))::NP(TB):NU0:D$;"OPEN PASSWORD QUANTITY"US$:D$;"READ PASSWORD QUANTITY":Y:D$;"CLOSE PASSWORD QUANTITY":MNY:782,(MN256)&U783,MN((782)256):768,123:768,123::D$;"OPEN CALLER INFO.TXT"TD$:D$;"READ CALLER INFO.TXT:TD$",S"(TS)",D"(TD)",V"(TV):TS$(31):BTTS:UV0:IV0:EV0:MV0:D$;"OPEN BOARD INFO.TXT"MD$:D$;"READ BOARD INFO.TXT":TB:AB:BS(TB),BD(TB),BV(TB),SD$(TB):X1TB%UBS(X),BD(X),BV(X)::D$;"CLOSE BOARD INFO.TXT":X1TB:SD$(X)",S"(BS(X))"36688:DMRC1200:ETDM119:768,123:110:0:0:1002:D$(4):G$(7):LC$(5):MSG$(40):MLNGTH0:NB$"THE TEMPLES OF SYRINX":BNUM1:NMSG0:CCLL0:PN0:LCLL0:TI$(50),WR%(50):TD1:TS6:TV0$UED$",S6,D1,V0":MD$",S6,D1,V0":UT$",S6,D1,V0":US$",S6,D1,V0"ȠԍϠԍ  ō۾ԠӠРݍ̭ȠĠō̭ΠԠ̭̍ʠĠō̭ǠԠ̍źҠРȠŠҬŠŠΠˠۿݠΠŠҠŮ۾ҠРݍĺκӠϭŠōؠҠŠҍ̭ԠϭҠō̭٠ŠĠύ̭ĠŠǠҍؠҠԠӠ `ɀ ), ̏LT0o_MR*VD(9~hhߚH`IN$: ̠ғ(ғ&ғ`IN$:{5' ̏, Ƀ3 ɀ ) ̏L6, ɘɎɓ L' hLahɠHDHɠLɊɈɇ ͢hLLh)iH2h2Hh LɈɍ'  9թP 쒭`ɘ LđL ߅ Lڎ ` ̠ ̠X(&i Ɉ{ Ő ?`ɀiɏɌɋ H0ɀhH h8 Hh`ɓ Տ` 2&&&ȢX)i ('8&&LLLʩ    L ɔ!Lə"LHɍ ɐɀ L菬`ab  {ɛ`ɀiHb`a(h Hɛ hHh {`ɄI{{LI`H5{0ɀ+H{hLh))$!$h`,L J{0) )LGx ­ɍ)x ­ɀP0STՍUV{2`{8`)8`H$$!?>h`?>$̩?>`)i``ab,I{ {7E M M ,, y8 {6L L{ )L}L '`ɀ{),L ̠ ̠ғ(ғ&ғ`IN$:{5' ɃA 1ɀ{歯)߭HhL>, ɘɎɓ   +Lْ ɔ!Lޒə"LޒHɍ ɘ hLhɠHDHɠLɊɈɇ ͢hLAL3h)iH2h2Hh LAɈɍ' ֓ 9թ| ԓՓ`ɘ LLA ߅ Lڎғ ғ`) Ls䑍x #ɍ)x #ɀi8 Ɉ{ ِ ?`ɀiɏɌɋ H0ɀhH h8 Hh`ɓ `ԓՓ 2&&&Ȣ)i ('8&&LALAL.ʩ  { )Lɀ L`ab  ɛ`HhɀiHb`a(h Hӓɛ hHh `ɄI{{LӐI`H5{7ɀ2H{hLh)Hh)$!$h`,L)x` J{Ls) P%1STUV{2`{ 8`) 8`ӓH$$!?>h`?>$̩?>` H{h``ab,ӓI{ {7E M M ,, y8 {6L L     02:822,0:837,161:838,175:839,173:840,220::D$;"PR#0":D$;"IN#0"::30000"R1002:110:41050:822,0:CC0:BN1:777,(768):797,(768):841,123:"RT$""ĺ:"R20(T$)2):T$;:#UKL1:HC818:LC816:798,0:LC,128:IN$"":806,0:804,0:RC!;O777,(768):768,123:D$;"OPEN CALLER INFO.TXT"TD$:D$;"DELETE CALLER INFO.TXT":D$;"OPEN CALLER INFO.TXT":D$;"WRITE CALLER INFO.TXT":NC:LC$:Y14:LC$(Y)::D$;"CLOSE CALLER INFO.TXT":768,(777):841,123:O"R768,123:D$(4):CM0:NU0:X(0):10RRY: YOUR PASSWORD HASN'T BEEN VALIDATED YET.. TRY AGAIN LATER... BYE"::30000 O"FINISH:> [###] ###-";:HC,35128::110:40:HC,0:(PN$,4)IN$ĺ:(7);"INCORRECT!":20080 O20:NCNC1:24000:Y13:LC$(Y)LC$(Y1)::LC$(4)LC$:LC$NM$:ְee{{{{  !"#$%&'()*+,-./0123456789LLLL`ª`LQLY8LLeL"SL:TA:"TIME: "TA  9 "[>USERLIST: DONE<]" D`ɀ ), ̏LT0o_MR*VD(9~hhߚH`IN$: ̠ғ(ғ&ғ`IN$:{5' ̏, Ƀ3 ɀ ) ̏L6, ɘɎɓ L' hLahɠHDHɠLɊɈɇ ͢hLLh)iH2h2Hh LɈɍ'  9թP 쒭`ɘ LđL ߅ Lڎ ` ̠ ̠X(&i8 Ɉ{ Ő ?`ɀiɏɌɋ H0ɀhH h8 Hh`ɓ Տ` 2&&&ȢX)i ('8&&LLLʩ    L ɔ!Lə"LHɍ ɐɀ L菬`ab  {ɛ`ɀiHb`a(h Hɛ hHh {`ɄI{{LI`H5{0ɀ+H{hLh))$!$h`,L J{0) )LGx ­ɍ)x ­ɀP0STՍUV{2`{8`)8`H$$!?>h`?>$̩?>`)i``ab,I{ {7E M M ,, y8 {6L L{ )L}      d:"[>USERLIST<]":9 nD$;"OPEN PASSWORDS.TXT,L60"b xXBGEN:D$;"READ PASSWORDS.TXT,R"Xw :"USER<:"X":>" NM$:"NAME: "NM$ VU:"VALIDATED: ";:VU1ĺ"YES" VU0ĺ"NO" PW$:"PASSWORD: "PW$:PN$:"PHONE: "PN$:SL:"SECURITY: VOLUME0 AND PRESS RETURN:";:"";A$ PD$;"OPEN PASSWORD QUANTITY,S6,D1,V0":D$;"READPASSWORD QUANTITY":MN:D$;"CLOSE PASSWORD QUANTITY" Z:A1BG1:ENMN:100 [12:"STARTING USER #[1-"MN"]: ";:"";BG \" ENDING USER #["BG"-"MN"]: ";:"";EN; D$(4) :;:T$"USERLIST":20(T$)2:T$:E34,2(4:"[1] COMPLETE LIST":"[2] PARTIAL LIST":"[3] QUIT"2:"CHOICE:[1-3]> ";:A$:A(A$):A1A3Ĭ<A3ĉ::"GOODBYE..":$ F:12:"INSERT USER FILE DISK IN SLOT6 DRIVE1 ŠŠŠŠŠ ŠŠΠàҠŮÍ̠̠Š̠Σң̠Ơ˨ΠϠϠ Ԡ̠ Ԥ۾Ԡݢ ԠŠŠаԠĤҤ̠ԠĤΣԠĤң Ԡ̠ Ԥ۾ǠҠݢ ԠŠңΣŠЮ̲ĤŠˠԠҤĠάĤ̠ŠɢԠ̠ŠŠŠ ҠؠϠԠĠŠˠΠ͠ˠРōƠˠΠŠˠŠˠΠ͠΍ŠĤ´ ΠԠƠΠ РΠΠ͠ǠЍàŠƠˠΠŠˠŠΠƠˠΠԠƠΠƠΠƠΠϠ Ľ ŠŠҠˠΠϠ Ԥ۾ǠǠݢ ԠԤ۾ϠϠ̠ݢ ԠԤ۾àӠҠݢ ԠϠƠˠǠ̺Ҥàݢ ԠĤҤԤ۾ԠҺäݢ ԠԤ۾Ӡ͠ݢ ԠŠƠˠŠɍĠŠɍĤҤ̠ԠĤΣԠĤңԠҤԠĤΣԠĤң Š   ĤĠ͠ҬĤԤ۾ĠŠɍƠ˨ΠŠ˨Š˨΍Ơ˨ΠŠ˨Š˨΍ˠŠɍŠ     ҠϠҺ̺ȠЍźȍźٺōкŠōͺϭ͠ōźԺŠŠŠҠՠԠŠŮҺ̺Ƞԍźźحح؍ٺנ  HOLD" [21(T$)2:T$! j23K tT$"[THOUGHT POLICE]":21(T$)2:T$Q :"#";:40:"#";:& X140:"#";:, 6 $5:4_ ."[>N<] [>E<] [>X<] [>U<] [>S<]"g 810 BT$"[C] BERNARD RHIE AND CHRIS WAGNER":20(T$)2 G" ";T$ L12:T$"THE MOBIUS GROUP":20(T$)2:T$ V17:T$"PROGRAM: [LOADING]: PLEASE S 36688 D$(4)N768,123:797,123:821,123:841,123:804,0:806,0^0:0:1002f(:p/1000234,21:35,21:32,2:33,38721:2<D$;"BLOAD DRIVER":D$;"RUN MODULE I" DRAW TITLE PAGEX140:"#";: X121   Ϡ Ԡ̠ Ԥ۾Ԡݢ ԠŠŠ ŠŠΠàҠŮÍĤҤ̠ԠĤΣԠĤң Ԡ̠ Ԥ۾ǠҠݢ Ԡ̠Šڽ˨ƠڠΠŠˠԠҤĠάĤ̠ŠɢԠ̠ŠԠĤңԠĤΣŠ ҠؠϠԠĠŠԠàŠŠ΍͠ˠРōŠŠŠΠ͠΍ŠĤŠЮ̲ĤΠϠ Ľ ŠŠ ΠԠƠΠ РΠΠ͠ǠЍ̠ݢ ԠԤ۾àӠҠݢ ԠϠƠˠΠƠˠΠԠƠΠƠΠƱԠԤ۾Ӡ͠ݢ ԠŠѽ˨ƠѯԨѯҠˠΠϠ Ԥ۾ǠǠݢ ԠԤ۾ϠϠ Š   ̠ĤĠԠҬԤ۾Ǡ̺Ҥàݢ ԠĤҤԤ۾ԠҺäݢ ĠŠɍŠŠ΍ŠŠŠ΍ˠŠɍŠŠɍĠŠɍĤҤ̠ԠĤΣԠĤң    :20283VNTP$IN$:::110:"ACCESS CODE:]> ";:50:AN(IN$):AN0ANMNĺG$;:20080N::"CHECKING...";:CR$"!/-\":X14:(CR$,X,1);(8);::"!":41000:::PW$TP$ĺG$;:"INVALID ENTRY COMBINATION!":20080OVU1Ĺ928,4:929,0:20233V O"SO(777):Y140:(8);::"PLEASE WRITE YOUR PASSWORD DOWN. YOU":"WILL NEED IT LATER TO ENTER":"[>THE "NB$"<]"::"HIT WHEN FINISHED:> ";:50::NCNC1:ANMN:782,(MN256):783,MN((782)256):ANMNNY13:LC$(Y)LC$(Y1)::LC$(4)LC$:LC$NM$,(MN256):783,MN((782)256):Y1TB:D$;"OPEN "BN$(Y)".STAT,L4"TD$:D$;"WRITE"BN$(Y)".STAT,R"MN:0:D$;"CLOSE"BN$(Y)".STAT"::D$;"OPEN PASSWORDS.TXT,L60"US$:D$;"WRITE PASSWORDS.TXT,R"MN:NM$:VU:PW$:PN$NSL:TA:D$;"CLOSE PASSWORDS.TXT":768,TCHWAY LOCK COMBO: ";:PW$IN$:PW$::"AIRLOCK ACCESS CODE: ";MN::"PLEASE WAIT...":SL0:TA0:VU0:777,(768):768,123:D$;"DELETE PASSWORD QUANTITY"US$:D$;"OPEN PASSWORD QUANTITY":D$;"WRITE PASSWORD QUANTITY":MNND$;"CLOSE PASSWORD QUANTITY":782(IN$,1)"Y"(IN$,1)"N"20150:N(IN$,1)"N"20100}NMNMN1:NM$TN$:782,(MN256):783,MN((782)256):ANMN:NU1N:"INPUT PASSWORD:[> ";:151:IN$""IN$"NEW"20180N40700:NA1ĺ:"COMMAS AND COLONS ARE INVALID...":20180N:"HAG$;:"SORRY, BUT THAT NAME IS ALREADY IN USE, YOU MUST PICK ANOTHER ONE"::20115N:"FONE # [XXX] XXX-XXXX: ";:50:(IN$)14(IN$)1220130NPN$IN$:::"NAME OF CREWMAN: ";TN$::"FONE NUMBER OF CREWMAN: ";PN$"N:"CORRECT? [Y/N]: ";:50:ͺӠҍźȠĠˠȠҠӡ ŠĠԮ QUANTITY":D$;"READ "BN$" QUANTITY":MQ(Z):D$;"CLOSE "BN$" QUANTITY":S2Y2Y PRINT INITIAL MESSAGE FOR VALED USERS2Y::D$;"OPEN OPEN MESSAGE.TXT":D$;"R MESSAGE.TXT":D$;"R DATE.TXT"p1VD$;"OPEN MAILCOUNT.TXT":D$;"READ MAILCOUNT.TXT":Y1MN:MC(Y)::D$;"CLOSE MAILCOUNT.TXT"1VBN$(27):BN11VD$;"OPEN BOARD NAMES":D$;"READ BOARD NAMES":Y127:BN$(Y)::D$;"CLOSE BOARD NAMES"M2VZ127:BN$BN$(Z):D$;"OPEN "BN$"50:NM$(X)IN$:50:SL(X)(IN$):50:TA(X)(IN$);0uVH0vV768,123f0wVD$;"CLOSE PASSWORDS.TXT"0|V:D$;"OPEN CALLER INFO.TXT":D$;"READ CALLER INFO.TXT":NC:LC$:D$;"CLOSE CALLER INFO.TXT"1V:D$;"OPEN DATE.TXT":D$;"READ DATE.TXT":DT$:D$;"CLOSE+L$,"SLOT: ";::S((IN$)):S0S67S$(S)Q(37):L$,"SLOT: ";S{" ","DRIV: ";::D((IN$)):D0D1D$(D)((37)):" ","DRIV: ";D" ","VOLM: ";::V(IN$):V$(V)F$",S"S$",D"D$",V"V$O(X):BD(X):BV(X)::D$;"CLOSE BOARD INFO.TXT"D$;"OPEN BOARD NAMES";TD$::D$;"WRITE BOARD NAMES":X1TB:BN$(X)::D$;"CLOSE BOARD NAMES"D$;"OPEN BOARDS.SL":D$;"WRITE BOARDS.SL":X1TB:BL(X)::D$;"CLOSE BOARDS.SL" GET S,D,V):BL(X)0BL(X)81151CY1TB:BN$(Y)"[ "BN$(Y)" ]":PQ$(34)SD$(TB):X1TB:SD$(X)",S"(BS(X))",D"(BD(X))",V"(BV(X)):UT$MD$D$(4).D$;"OPEN BOARD INFO.TXT"MD$:D$;"WRITE BOARD INFO.TXT":TB:AB:X1TB:BS&`"# OF BOARDS: ";::AB((IN$))0jTBABJoBS(TB),BV(TB),BD(TB)VpBL(TB)tBN$(TB):X1TB::"NAME OF SUB #"X":";::BN$(X)IN$~L$"BOARD #"(X):2000:BS(X)S:BD(X)D:BV(X)V:"CLEARANCE NEEDED TO ACCESS: (0-8): ";::BL(X)(IN$;"PR#0")"NAME OF BOARD: ";::NB$IN$]L$"TEXT FILE DISK":2000:TD$F$:TSS:TDD:TVVL$"E-MAIL DISK":2000:ED$F$:EVV:ESS:EDDL$"SYSTEM DISK":2000:MD$F$:MVV:MDD:MSSL$"USER INFO DISK":2000:US$F$:UVV:UDD:USS_:OP1":"SAVE MODULE I"1*"MON CIO":"REM FINISHED"P,D$;"CLOSE USER FILE.EXEC"l/D$;"MAXFILES 4":366871MT1ĺD$;"EXEC MOD.MM"UT$2MT2ĺD$;"EXEC MOD.CAT"UT$6 GET VARIABLES:D$(4)Q$(34)36688:D$;"IN#0":D$D$;"OPEN USER FILE.EXEC"UT$:D$;"WRITE USER FILE.EXEC"a"22090 UV="UV":IV=0:EV="EV":MV="MV"22076 TD="TD":TS="TS":TV="TV "22030 NB$="Q$;NB$;Q$"22078 ED$="Q$;ED$;Q$":MD$="Q$;MD$;Q$":UT$="Q$;UT$;Q$":US$="Q$;US$;Q$"UNLOCK MODULE IXT"@D$;"OPEN USER FILE.EXEC"UT$:D$;"DELETE USER FILE.EXEC"D$;"OPEN CALLER INFO.TXT"TD$:D$;"WRITE CALLER INFO.TXT":0::::::D$;"CLOSE CALLER INFO.TXT"D$;"OPEN MSG.TXT"TD$:D$;"WRITE MSG.TXT":SN$:" NO COMMENT":D$;"CLOSE MSG.TXT"9YSTEM MEMO.TXT"::D$;"CLOSE SYSTEM MEMO.TXT"D$;"OPEN BRAIN STOMPER"MT$:D$;"WRITE BRAIN STOMPER":"NONE DEFINED YET...":D$;"CLOSE BRAIN STOMPER"D$;"OPEN USER INFO.TXT"US$:D$;"WRITE USER INFO.TXT":"(*> USER INFO <*)"::D$;"CLOSE USER INFO.TASSWORDS.TXT,L60"US$:D$;"WRITE PASSWORDS.TXT,R1"PSN$:1:PW$:SP$:9:1000nD$;"CLOSE PASSWORDS.TXT"D$;"OPEN PASSWORD QUANTITY"US$:D$;"WRITE PASSWORD QUANTITY":1:D$;"CLOSE PASSWORD QUANTITY"-D$;"OPEN SYSTEM MEMO.TXT"TD$:D$;"WRITE S02 }:"SYSOP PASSWORD: ";::PW$IN$:PW$""125h :"CURRENT SYSTEM DATE: ";::DT$IN$:DT$""130 :".... HOLD: PROCESSING ...." D$(4):D$;"MON CIO" D$;"OPEN DATE.TXT"TD$:D$;"WRITE DATE.TXT":DT$:D$;"CLOSE DATE.TXT"1D$;"OPEN PMT1Ĺ37209,234:37210,234:37211,234:P ^37253,234:37254,234:37255,234:^ d:1000: n"SYSOP NAME [NO COMMAS, COLONS, QUOTES] --:> ";::SN$IN$:SN$""ĺ:110 x:"SYSOP FONE # [XXX] XXX-XXXX: ";::SP$IN$::(SP$)("[XXX] XXX-XXXX")12OAD MM DRIVER":90:D$;"BSAVE DRIVER,A$8F50,L$530"v UA2ĺD$;"BLOAD CAT DRIVER":90:D$;"BSAVE DRIVER,A$8F50,L$530" VMTA: MT: M ODEM TYPE Y100 Z768,123 [MTA \:"CAN YOU DISPLAY LOWER CASE [Y/N]: ";:A$:A$:A$"N"ı) ]A1A360 @A(A)60& AA1809 BA3İ1000::K CA2OP1:80Q D P:"DO YOU HAVE:"::"[1] A MICROMODEM (OR COMPATIBLE)":"[2] AN APPLE-CAT (OR COMPATIBLE)": R"WHICH? [>1-2<]: ";:A$:A(A$):A(A):A$:A1A2822 TA1ĺD$;"BLUP UTILITY <]" 2, 4"BY: BERNARD RHIE"J 5" CHRISTOPHER WAGNER"T 734,5Z <` = >:"[>1<] COMPLETE SYSTEM CONFIGURATION"::"[>2<] RECONFIGURE HARDWARE INFO"::"[>3<] RECONFIGURE BOARD INFORMATION" ?::"CHOICE:[> ";:A$:A(A$): 36687OP0'804,0:806,09 D$(4):1002O :D$;"NOMON CIO"| CR$"!/-\":X14:836X,((CR$,X,1)):929,0:928,240768,123:815,0:816,1281002:D$;"IN#0":D$;"PR#0"815,0:816,0: ("[> BOARD SET          VU(200),TA(200),SL(200)|/jVD$;"OPEN PASSWORD QUANTITY":D$;"READ PASSWORD QUANTITY":Y:D$;"CLOSE PASSWORD QUANTITY"/kVMNY/lV768,123/mV:D$;"OPEN PASSWORDS.TXT":D$;"READ PASSWORDS.TXT":X1Y50rV50:VU(X)(IN$):50:PW$(X)IN$:50:PN$(X)IN$:T VARIABLES.UIN$""'.UMQ(27);.UD$(4):G$(7)R.VMSG$(40):MLNGTH0c.VCARCHK36864.VBNUM1:NMSG0:MWROTE(50),MDTE$(50)."VCCLL0.6VPNUM0:LCLL0:PW$(200).@VMCOUNT(200),TS$(31).JVMO$"":FMSG$"".TVNM$(200):PN$(200)/^VNU0/hVN#0":-R30000!-R1002E-RD$;"IN#2":"AWAITING RING:";I$X-R49280,0:1002q-RI$"SYSOP"Ĺ768,123-R49280,0:49284,0-RI$"SYSOP"Ĺ768,0-RCC0:BN1-R-R CENTER TEXT USING TAB-RT$""ĺ:-R20(T$)2)-RT$;:.U INIINFO.TXT":D$;"OPEN CALLER INFO.TXT":D$;"WRITE CALLER INFO.TXT":NC:LC$:D$;"CLOSE CALLER INFO.TXT",BO::"CATPAIN'S LOG UPDATED AND SAVED..."::,LO,R WAIT FOR RING AND ANSWER, R768,123, RCM0:NU0:X(0), R1002 - R:D$;"PR#0":D$;"I125:" ";::Z+.O"PLEASE WAIT WHILE STORING INFORMATION INCAPTAIN'S LOG BOOK....."+8OD$;"APPEND LOG OF CALLERS":D$;"WRITE LOG OF CALLERS":">>>>) CALLER #";NC;": ";NM$(AN):D$;"CLOSE LOG OF CALLERS"j,=OD$;"OPEN CALLER INFO.TXT":D$;"DELETE CALLER LC$""ĺ"":20245$*O*OLC$NM$(AN)SL(AN)8ĺ(7);::"YOU JUST CALLED. DON'T HOG THE LINES. BYE!"::30000*OLC$NM$(AN)*O:24000:*$O"CURRENT LOG DATE: ";DT$*)O:T$"":21150:G$++OY125:(8);::YLIDATED YET. CALL BACK LATER."::30000) O"LAST FOUR FONE DIGITS>> ";:50:(IN$,4)(PN$(AN),4)ĺG$::"INCORRECT!":20080) OY124::) O:NCNC1:"CALLER NUMBER: ";NC) O:*O"NAME OF CREW MEMBER: ";NM$(AN):"LAST CREWMAN'S NAME: ";LC$;:UMBER: ";:50:AN(IN$):AN0ANMNĺG$;:20080(N::"CHECKING COMBO WITH MAIN CONTOL DECK COMPUTER DATA BANK....."(O::PW$(AN)TP$ĺG$;:"INVALID ENTRY COMBINATION!":20080(OVU(AN)1ī20233,)O"SORRY, BUT YOUR PASSWORD HAS NOT BEEN VA"'N:"PLEASE WRITE YOUR COMBINATION AND ACCESSCODE DOWN. YOU WILL NEED THEM TO ENTER THE U.S.S. CARRION LATER."::"PRESS RETURN WHEN YOU ARE DONE> ";:50:'NANMN:20235'N VALIDATED PASSWORD CHECK'NTP$IN$4(N:::"ENTER AIR LOCK ACCESS N::958:222:T$"[> CONNECT <]":21150::768,0:797,0~:16250162,21:16251162,139:20402,21:16562,139:19122,2::110:768,0:797,0:S.TXT"'ND$;"APPEND MAILCOUNT.TXT":D$;"WRITE MAILCOUNT.TXT":"0":D$;"CLOSE MAILCOUNT.TXT34,0:DA09X:D$(4):100279YD$;"IN#0":D$;"PR#0"p9Z4::958:222:T$"[> SENDING CARRIER <]":21150:9^16251162,1281289`2:29a36688:10029b0:0:10029c824,4:381449d0:0:10029h(824)4ī413409m410508:|42)128 8Ҡ8 CHAIN&8815,126I8D$;"BSAVE TEMP.,A768,L255"MD$[838143,(797)8D$;"IN#0":D$;"PR#0":(797)123İ411008(4);"BLOAD CHAIN,A520"MD$8520"MODULE II"8T:1002:34,6:8U16251162,9:41150:X1500: 9VAD0:2)128 77768,123^7(16562)127Ĺ16251162,(16562)128:16562,(16562)128d7x7 PICK UP FONE7(16562)128Ĺ16251162,(16562)128:16562,(16562)12878Ƞ(16562)128Ĺ16251162,(16562)128:16562,(1656ER UTILITY" 2>  :#"[> USER UTILITY:":" THIS FUNCTION IS CURRENTLY UNUSABLE. TO MAKE THIS FUNCTION OPERABLE, YOU MUST OBTAIN A COPY OF THE NEXUS USER UTILITY PROGRAM AND SAVE IT TO YOUR MAIN SYSTEM DISK UNDER THE" (" TITLE: US  A$"@"410706fA$" "4130026gA$"@"41057=6i41300F6n110V6s255:41150c6x768,123n6}797,0w6110}66A$:A$"@"İ41150::66 HANG UP6SC06768,1237(16562)127Ĺ16251162,(16562)128:16562,(1656EXUS SYSTEM <]":21150:N5`821,123:(16251162)128(16384)127ī410605a222:T$"[> AWAITING RING <]":21150::T$"[> @ TO GO LOCAL <]":21150:5bT$"[> SPC SENDS CAR <]":21150::410565dA$"":(16384)12841065 6e(16384)127ľA$:ASSWORDS.TXT,R"AN:NM$:VU:PW$:PN$:SL:TA:D$;"CLOSE PASSWORDS.TXT":4Z768,123:110:20:41100:D$;"BLOAD MM ANSWER,A$9500"MD$4[T$"[> AWAITING CALL: "(NC1)" <]":21150:4\D$(4)4]T$"[> LAST CALLER: "LC$" <]":21150:5_T$"[> A NMAC."AN;US$:MY1:30025$3 ERROR!*3@3 CHECK FOR ",:,,I3NA0\3IN$""NA0:3Y1(IN$):(IN$,Y,1)","(IN$,Y,1)(34)(IN$,Y,1)":"NA1:Y(IN$)::3:NA0:3( CHECK PASSWORDH42D$;"OPEN PASSWORDS.TXT,L60"US$:D$;"READ P256):788,MN((787)256):TTTA:782,(MN256):783,MN((782)256):OK2:EF0Y2Fu300302GuD$;"UNLOCK MAIL."AN;ED$:D$;"OPEN MAIL."AN;ED$:D$;"READ MAIL."AN:MC:D$;"CLOSE MAIL."AN2Hu300402Iu412002NuMC0:300402XuMY0:300253ZuD$;"UNLOCK 782)256)"13uD$;"BLOAD TEMP."MD$B14u792,0:790,0:791,0:799,0U15u:255:40100t16u:D$;"PR#0":783,0:804,017uZ$(26):4110018uD$;"NOMON C,I,O"19u1:u21000:200001?uNU1ī180001Du20:"[>WAIT...<]: MODULE ][ LOADING"M2Eu787,(MNWRITE MAILCOUNT.TXT":Y1MN:MC(Y)::D$;"CLOSE MAILCOUNT.TXT"E0fV00uLC816:HC,0s01u815,128::806,0:804,0 12uD$(4):41100:D$;"OPEN PASSWORD QUANTITY"US$:D$;"READ PASSWORD QUANTITY":MN:D$;"CLOSE PASSWORD QUANTITY":782,(MN256):783,MN(("LC$" <]":21150:4/b PRINT ONE LINE OF MESSAGE^/b(TS$(Y))1ĺ(TS$(Y),(TS$(Y))1):f/b:/8c PRINT ONE LINE OF IN$/Bc(IN$)1ĺ(IN$,(IN$)1):/Lc:/e UPDATE MAILCOUNT?0eD$;"DELETE MAILCOUNT.TXT":D$;"OPEN MAILCOUNT.TXT":D$;")" <]":21150:.]J.]T$"[> CALLER "(NC1)": "LC$" <]":21150:P.]a.$^ GET FONE #.)^IN$"":"(";:Y13:60::") ";:Y13:60::"-";:Y14:60:::BN$"("(IN$,3)") "(IN$,4,3)"-"(IN$,4):IN$BN$:/aT$"[> CALLER "(NC1)": $)6)2);"";3-]"[>-";:X1(NM$):"-";::"-<]"-]20((NM$)6)2);"[>-"NM$"-<]":20((NM$)6)2);"";:"[>-";:X1(NM$):"-";::"-<]"-]TATA20-]:T$"[> LAST FIVE CALLERS: <]":21150::.]Y14:T$"[> CALLER "(NC(6Y))": "LC$(Y,VD$;"OPEN SYSTEM MEMO.TXT"TD$:D$;"READ SYSTEM MEMO.TXT":50:SM$IN$:D$;"CLOSE SYSTEM MEMO.TXT"w,VSC$(12)(14),VD$;"BSAVE TEMP.,A768,L255"MD$,Y,] STATUS,]NM$""NM$" ",]T$"[> CALLER: "(NC)" <]":21150:,] -]20((NMOARDS.SL"+VY1TB:D$;"OPEN "BN$(Y)" QUANTITY"SD$(Y):D$;"APPEND"BN$(Y)" QUANTITY":D$;"WRITE "BN$(Y)" QUANTITY":0:D$;"CLOSE "BN$(Y)" QUANTITY"+VD$;"OPEN "BN$(Y)" QUANTITY":D$;"READ "BN$(Y)" QUANTITY":MQ(Y):D$;"CLOSE "BN$(Y)" QUANTITY"+Vc$;"READ DATE.TXT":DT$:D$;"CLOSE DATE.TXT"=*VBN$(TB):BN1I*VMQ(TB)*VD$;"OPEN BOARD NAMES"TD$:D$;"READ BOARD NAMES":Y1TB:BN$(Y)::D$;"CLOSE BOARD NAMES" +VD$;"OPEN BOARDS.SL";TD$:D$;"READ BOARDS.SL":BL(TB):X1TB:BL(X)::D$;"CLOSE BNTITY":Y:D$;"CLOSE PASSWORD QUANTITY"T)kVMNY:782,(MN256):783,MN((782)256)a)lV768,123n)vV768,123)|V:D$;"OPEN CALLER INFO.TXT"TD$:D$;"READ CALLER INFO.TXT":NC:LC$:Y14:LC$(Y)::D$;"CLOSE CALLER INFO.TXT"+*V:D$;"OPEN DATE.TXT":DOx d"`)  8` 8` BOARD INFO.TXT":TB:ABq(UVBS(TB),BD(TB),BV(TB),SD$(TB):X1TB:BS(X),BD(X),BV(X)::D$;"CLOSE BOARD INFO.TXT"(WVX1TB:SD$(X)",S"(BS(X))",D"(BD(X))",V"(BV(X)):(XVNP(TB)(^VNU0')jVD$;"OPEN PASSWORD QUANTITY"US$:D$;"READ PASSWORD QUA'6VPN0:LCLL0%';VTI$(50),WR%(50)8'VED$",S6,D1,V0":MD$",S6,D1,V0":UT$",S6,D1,V0":US$",S6,D1,V0"'?VTD$",S"(TS)",D"(TD)",V"(TV)'@VTS$(31)'AVBTTS'JVUV0:IV0:EV0:MV0(TVD$;"OPEN BOARD INFO.TXT"MD$:D$;"READ UKL1:HC818&ULC816#&U798,0/&ULC,128:&UIN$""L&U806,0:804,0n&URC36688:DMRC1200:ETDM119&U768,123:110:0:0:1002&UD$(4):G$(7)&ULC$(5)&VMSG$(40):MLNGTH0&VNB$"THE TEMPLES OF SYRINX"&VBNUM1:NMSG0'"VCCLL0839,173:840,220.% R:D$;"PR#0":D$;"IN#0"::%R30000D%R1002T%R110:41050_%R822,0m%RCC0:BN1}%R777,(768)%R797,(768)%!R841,123%&R%R CENTER TEXT USING TAB%RT$""ĺ:%R20(T$)2)%RT$;:%U INIT VARIABLES &OPEN CALLER INFO.TXT":D$;"WRITE CALLER INFO.TXT":NC:LC$k$>OY14:LC$(Y)::D$;"CLOSE CALLER INFO.TXT"{$?O768,(777)$BO841,123$LO$R WAIT FOR RING AND ANSWER$ R768,123:D$(4)$ RCM0:NU0:X(0)$ R1002:822,0% R837,161:838,175:##] ###-";:HC,35128::110:40:HC,0:(PN$,4)IN$ĺ:(7);"INCORRECT!":20080Y# O20l# ONCNC1:24000#OY13:LC$(Y)LC$(Y1)::LC$(4)LC$:LC$NM$#)O#;O777,(768):768,123:$=OD$;"OPEN CALLER INFO.TXT"TD$:D$;"DELETE CALLER INFO.TXT":D$;"R$"!/-\":X14:(CR$,X,1);(8);::"!"4"O41000p"O::PW$TP$ĺG$;:"INVALID ENTRY COMBINATION!":20080"OVU1Ĺ928,4:929,0:20233"O"SORRY: YOUR PASSWORD HASN'T BEEN VALIDATED YET.. TRY AGAIN LATER... BYE"::30000Q# O"FINISH:> [#ԠŠ̠ŠҍΠŠҠĠŠϠōծҠ׬ĠŮΠӍŠ̍٠ĠԍĠĠš̬ӠΠϠŠϠčŠԠȠӮĠɠŠՍ٠ŠͮƠՠĠٍӠȠŠͬҠĠٍР٠٠ƠՠŠōϠŠǩΠ̠ŠЍΠ­Ӎ̠ԍ̠ӠӍ̠΍̠΍ŭ̠ŠɮŮӍĠ̯Ӡč̮ҠԠ΍ŠϠ̠ӠΠҠӠΩҠϠōŠǠҍҠӍԠŠΠԍ­čĠōĠ̠ԍҍ̠ŠԍŠҠũŭǠŠӍŮԠ٠ϠōĠ٠ĮٍčРԠɮŮЍĠծŠύӠˍԠŠ͠ԍҠҠҠԍŠōԠԠŠ٠΍ȠӠŠԠź٠ӮԍŠŬҬϬîҠӠŠԠՍήӠӠŠύŠˠũˠ­čΠĠǍϠՍĠנӍŠōԠ̍ıӠĠҠŠٍԠɮŮƠҠӍԧ̠٠СԠԠҠӍРԠՠźЍ٠٠ԠΠɧĠōŠԠӠŠŠȍōĠҠ΍ԠԠɠƠ΍٠ɮŮԠŬŠάîנҠōԠԠҠŠčԠŠӍԠҠǍӭźɠŠκŠӠĠč͠Ϡ͠ΠōήӠҍŠҠӠנҍĠҍ׭ҠΠάŬҠΠԠ̍ŠŠ٠čөƠՠϠ ŠĠΠԍӬƠΠōӠƠŠŠ΍ŠǍŠԠ̭ʯȯǯΩԠǠĠΠϤǠРōˠРōҠǠĠΠԤΠϠŠɠҠɮǠΠȠōҠӠ٠΍ӠҠάҠȍŠĠ̠ӍӠŠҠٍǠ̠ϠԧӍǠ΍ԠӍԠӠ̭ӍϠŠĠΠōŠΤźōӠԠĠԠ̍נӬӬčөԠӠƠԍŠӠŠӠԩԠҠΠˠҠҍҠŠƠӠٍΠŠɠĠԠɠӠԍƠӠ٠ΠŠɮŠӭźɠŠκԠӠƠ̍ԠȠӠĠ΍ŠŠϠ٠͍Ԥ͠ōàҧӠԍΠԠҠƠҍ׬ŠӠԠƠŠӍȠҠǠōӮԠɠӠԠƍӠԠŠΠȠӮԠɠӠԠŠӮƠΠŠӠԠӍՠĠǮčԍΠǠҬ΍ԠӺĠ۰ݺΠҠϠŠͬҠԬԍӠŠōҍҤΩŠƠҠϠōŠΩΠĠ΍Π٠̠ĠϠčΠԠΩРƠРӠΠŠōӠϠ٠̠ĠٍРϠҠ­čĠ٠΍ΠӠŠӠӺΠΠΠƠĬԠӠŠҠƍӠΠŠ͍¾ΠǠ̠Ơҍ̠ŠčԠŠԠΠԍפčΤŠҍ¤ĠŠɮŮ΢ΠƠŠ­čѨΩŠ٠Ơō­ĠĠ٠΍̨ΩΠРԠЍӠԬҠ٠ԮŠǍΠƠŠԠŠӠΠčϠРՠŠҠ͍ϠҠӮŠԠźκͤŠƠԠҍ̠٠̠ŠנǠͮɠ͠ǠύӠԠԠӠ̠΍ȠŠĬҠŠԠ٠Ԡ̬ԠϠӍŠΠŮҠՠŠҠͬՠŠӠĠŠ΍ǮՠàȠԠԠŮҍԠԠӠԠӠӍĠϠΠҠӠĠ٠ŠҬîƠՠȠϠΠӠҠӠԠ͠ΠՍԠŠϠ٠Š̍ŠϠΠҠԠìՠ̠ŠčȠծˠŠƠŠŠӠӠӠٍΠ٠ŠծǠŠ̠ĠźӠŠӠĠύΠΠ͠Ơ٠ōȠΠϭҠͮƠՠ̠ȍϠŠԠΠŠɬΠՍԠŠҢΠŠ͍ҠϠŠŠԠӠ΍ŠɠȠŠɮˠ΍ŠŠӠŠӍҠΠΠӠŠҠŠύΠԮŠՠנՠϠŠԍŮǠϠҠŠРԠլԍþ͠ŠΠōĠŮΠŠԠŬǠà̠Ԡ٠ŠήԠӠŠύŠˠŠάĠŠԠӺ٠ӮԍľϠŠŠΠҬŠԠŠĠōԠӺΠҍžŠΠРՠӠčӠЮԠϠՠΠōԠŠ˩¾ϠŠŠźōԠŠȠӍŠԠŬĠōԠӠŮԍþϠŠŠ٠άˠŠŠԠōάŠӠҍӠϠԠϠנŠԍҠͺϠנŠӠӍŠϠŠנҍŬŠ֍͠ŠРԬčΠҠŠźҠϮԠΠŠ΍РԮ͠ŬϠҠԠƠ̍ŠӠŮŠύӠΠӠ̠ƠŠ΍ҠŠРԬϠϠԠōŠԠ̠ӠԠՍĠ٠ҠϭЩōǠӠԠƠŠЍŠǬԠ̠ԠԍŠĠԠǮŠՠϠҠ̠ŬҠƍՠŠǠҠĠ͠ŠΠɮŮӬ̬ӠũΠ͠ōΠԬŠɭΠĠՠ̠ҠŠŠΠՠ΍ŠΠͮǠРӠǠΠԠӠǍǠ̠ŠՠΠ̠čŮƠՠŠžΠԍ̠ĠԠҠĠԍΠǠҮƠՠϠԍþűԍľŲԍžųԍƾŴԍǾРȠӍȾҍ̠ƠŠŠԠӠčŠΠŠˠՠĠϠōŠΠԠŠˢӠՍĠŠӠŠՠԠԠҠŠŠǍԠӮƠ٠Ԡ٬ΠԠԠ͠ϠҠӬԠƠ٠ΧԠԠԬ΍Š͠ǠĠҍҠŠҠȠũЮԍ¾ҠՠנōӠ͠РĠōΠԠӠٍĠԠՠ٠ōӠĠРӠϠԍҠӠĠӮҠՍŠĠĠȠԠҠŬՠԠϠŠǺԠŠō͠άĠҠ̠ōӠԠӠծҠԍӠŬՠĠźĺǠΠЭĠƠӠӠ̍ҠĠҠ̠ԠӠҬԬĠˠŠΠ΍Ġ͠ήϠȠԍìΠϠԠԠϠԍРĠΠӠͮՠ̍ĠРǠĠĠԍΠˠҠҮϠӍӠǡ٠ĠϠԮΠӠԠРŠˬˠŠɠŠĠ۠ԡӠӠ͠ҍӠȠŠΠԠ̍ǠӮƠՠōԠ٠ҍӡ͠ΠϺӠ̠ҠŠŠȠŠŠŠ٠               z# ŴԠРȠӠŮ/ ͱŠġ۠ǠݮԠ۠ǠݮԠ۠ŠݮԠ ۠٠ݠ٠ŲԠųԠ ۠Ǡݠ٠۠Šݠ٠ЮűԠ ٠ӮԠ̠۠ݮԠ ̠۠ݮԠ  ͠ϮԠ ΠҠ ҠϮԠҠϮԠ ǮԠҠŮà̠۠ݠ٠ Ҡ ĠϮԠ ĠӠ Ӯ̠ŮԠ ӮԠĠ٠  կ͠Ҡů?ӠϮԠŠɠ@ ΠӠԠ ĮԠ Į͠ ͠ҠԠҠҠРЮԠΠ ܭŠɠtů) ԠҠ Ҡ٠ ǠӠܠ͠٠ŠӠРΠĠ٠ŠР٠ŮӠ͠΍٠ƠȠ̮ɩ AYS":' xA1ĉ::(4);"RUN RUN BBS"C A2ĺ(4);"RUN CONFIG"e A3ĺ(4);"RUN USER UTILITY"k ,4: <"[1] RUN BULLETIN BOARD":"[2] RUN CONFIGURATION PROGRAM":"[3] RUN USER TRANSFER UTILITY":"[4] EXIT INTO OPERATION SYSTEM" F32,1 P20:" CHOICE:[>1-4<] "; ZA$:A((A$)):A1A490 dA$ nA4ė:"NEXUS: LATER D,0:928,240:797,123C X223:X:1:"*";:Y137:" ";::"*":c #34,1:35,23:32,1:33,37: (T$"[> NEXUS! <]":4:20(T$)2:T$ -::T$"[W] 1985 BERNARD RHIE":20(T$)2:T$ /T$" CHRISTOPHER WAGNER":20(T$)2:T$ 210 732l================== NEXUS REVISION 2.0 ================== THE THOUGHT POLICE AND THE BLACK KNIGHTS!  :::255:1002:(4);"IN#0":(4);"PR#0"X139:"*";::23::X139:"*";: 768,123:804,0:806,0:929   ;:CPCP1:CP3CP1 2':"<]":Y124:::20:T$"[> WELCOME TO: THE "NB$" <]":21150:::CR$"[> A NEXUS SOFTWARE SYSTEM <]":20(CR$)2);"";:"[> A NE";:CR$"!/-\":X14:(CR$,X,1);(8);::"XUS SOFTWARE SYSTEM <]":T$"[> PRESENTED BY: THE THOUG$(4):20:806,0:804,0:841,123:"[>PRESS SPACE<]";Q $'A$:40:A$" "ī10020z .'X113:(8);::"STRIKE RETURN<]"; /'A$:40:A$(13)10031 0'X115:(8);::CR$"CONNECTION ESTABLISHED":CS$"<>":CP1:X1(CR$):(CS$,CP,1);(8);(CR$,X,1)929,255:930,14128::40:R 928,240:929,255:930,14128::IN$" "IN$:40:{ IN$:IN$" "IN$(95)ĺIN$:40: 40:MK1ı : 929,0:928,39::40: (4);"LOCK SELECT,S"S",D"D",V"V: (4);"LOCK SELECT"S$:5 ':792,0:D1) "OI::. (768,(797):(768)12344G *(822)123ġ:30000M ,i 2928,240:929,0::40:s <1002 =A$:40:A$"0"A$"9"ī61 >A$;:IN$IN$A$:40: F929,0:928,39::IN$" "IN$: P d n1002:RC:821,0: z928,240:!-:KL1Ĝ:36687D$(4):1002:D$;"IN#2":D$;"PR#2":(26):D$;"IN#0":D$;"PR#0":41100:768,123:1002::(4);"NOMON C,I,O"::41100:1002:KL115 22000::30000(12)(14)::110: IN$""IN$" "ĺ: !O$(IN$,(IN$)       ԍŠԍȠЍ ȠԍӍ۵ݠȍȠЍ؍۵ݠȠԍȍ۵ݠ 6`) 8`8` ŬӠԍŠӠԠ̠ԠӠΠŠΠōҠΠŠԠƠؠӍӠΠ¬ìĬŬĠٍƠȠӠҠƬŠӍΠӠϠŠΠčŠĠΠӠؠӮӠҍ ҠàҠĠҠōҠĠƠҠؠōӠϠ̠ӠĠϭҮӠؠҬϠӍĠϠӠƮΠؠӠԍ̠Π̬ŠҍŠΠŠӠҩĠҠŮŠӠ̠ҬȠӠҠΠŠӮōӠҠ̠Ӡź àĠŠƍŠҠϠŠƭ٬ԠŠӯӍϠƠӠԮ͍ŬŠӠԠŠōƠŠͬӠҍԠӠҠĬĠ͠ōӠΠԮԠ̠ŠƠō͠ӠĠŮŠōΠŠŠƠϠӠӍȮŧ̠ԠϠԠ̠ƠŠԮԠō΢ƠŠҮ̬ԧӍ٠ՠĠ٠ō͠Π͠͠Ӡ٩ĠՠΠԮԠӠӠԍŠӠ̠ŠƠō͠ĠӠԠΠōŠŠΠҭԠϮˮŠҠӠŠΠŠŭΠɠ٠Ҭ٠ƍՠԠ٬ԠŠ̠ӍӠ٠ǠԿ̬ōӠƠ͠ǠŠӍƠĠҮ͠ΠŠٍƠΩɠŠ̠ƠՠŠ΍ҠԠƠՠ̠ΧԍΠǠŠԠӠƍӠĠӠՠšƠՠΧԬԠšԠκŠԠҠԡŠ̡ŠŠƠ٠Ġ̮ɧ̍ԠŠŠ٠ϠΠԍ٠٠Ҡ٩ĠˠԍΠӠŠǭŠήԠƠ̠ԧӠ٠Šԍ̠ˠɠŠҠ͠΍ˮ٠ƠȍӠƍנԠŧŠΠĠƠ̠ōŠԠΧԠŠΠōɧ̠ŠՠŠӮԠƍ̬ɧ͠Ǡ׍٠ŬӠӠӠԍҠծҠԠΠčӠРŠҮȩҠԍҠԠǠϠŠԠˍŠĠԠƠԍΠȠɠĠ٠̠ŠˠԠӠԩĠƠՠŠԠŠӠϠԠɧ͠ǠԬէŠŠӮנŠ٠ԠĠҠ̡ӠŠӠƠӍӠϠȠà٠ōӮƠՠ٠ҠˠŠϠԠàìҠԠנΠӠĠĠ̠ҠӠРԮҠՠϬΧԠ٠ϠŠӠӮɠ̠٠ŠҠϠàҠҠӠȠɠŠ̠٠Ӡ٠׬٠ƠȪٍΠӍŠŠϠȠŠԠōƠ٠ƠȢԍƮƠՠΧԠŠ͠ԭĠƠàĠéҠŠƠŠҬΠՠĠ                      ōĠЧĠԠŠčԠŠΠЧӠύРϩˠϠЧōŠĠǠŠōϠРϩӠЧƠՍΧԠԠԬŠϠŠŭ̠Ġɧ̠ԠˠϠծ٠ŠŠ̠ŠϠРЩŠϠ ҩŠϠˠŠϠŠîŠӠΠӠŠŠٍĠӠϠŠĠǍȠŮŠŠō٠ǠӠӍΠӠ͠נΠϠРЍРӠ̠ȠӠōŠƠŠӠŠōĠРТӮЬōĬӠŠҠ̠ΠԠōĮԠ̠ӠčӮΠĠΠōĠϠŠŠΠĠō̠ήŠΠӍŠŠƠΠϠŠōҮϠנĠՠōŠŠà͠ύٿŠŠōǠŠҠ׮̠ĠčРӠΠٮԠӠŠԍӬŠؠŠՍΠӠĠԮРō٠ԠϠύӠԠĠŠӮԍ٠ӠӠčӮŠ̠ӠŠōƠŠӮԧӠӠƠōӠŠΠ٠ɠŠϡō̠ΠŠĠΠŠƠԍ̠ƠԠӠΠ芊ΠԠͮҠŮԧӠ٠ԠՍĠ͠ԠĠ΍ŠкϠŠŠӠԠƠŠ΍ĠԠӠĠϠ̍ŠҠŠϠȠϬРϬҠ ϬӠٍҠӠҠ͠ԠӠٍҠϠŠҩ٬ΠԠԠ̠ӠӠŠȠӠΠӮ̠ӠŠ΍̠ĠčźΠР΍Š̠ӠԠԠҧӍĠŠҠȬĠԍԠҧӠԠϠŠҍȠΠҠΠŠŮ̠ӠŠҠ΍ΠƠŮŠҠàԠ΍ŠĠϠŠŮ٠ĠΠ̠ŠϠ͠Рϩҍ©ҠӠҠӍȠӠìӬčɯϮŠĠŠҠԍ̠ӠӺčŠӮՠĠϠԠύŠҬŠנӠčϠǠĮΠԠ̠΍͠٠ƠԧӠǠũĠէ̠Š̠ŠĠٮϠŠƠՠԠΧԠנԍΠ٠ŠĠӬԧӍ̠ͺҠčӍŠΠԠҮϠƠՠĠϠŠͬĠՠ٠נŠٍӠĠҠؠōӬ̠ՠĠŠύϠӠŠ͠Ϡ٠čΠϠ̠ϠŠՠ͠ΠӠͮ͠ӠԠȠƠؠӍĠҠΠȠ٠ԍŠӠŠ̠ӮҠźŠ͠ĠźĬĬҠŠƠՠԠנō٠٬ŠӍĠҠŠؠŠύөӠƮƠՠ̠ΧԍԠԬŠϠŠĠɧ̍ΠԠŠέȮčǠȠΠӠҠ׮ƍȠŠΧԠԠӬɧ̍ΠԠΠԠŮŠҠӠӠĠΠؠŠӠŠԠŠ̍ԬĠƠӠŠԠčؠԮƠ̠Ҡ΍٠ĠϠӬĠōŠԠҠŮԍӠŠŠҠؠӮōƠӠŠԠŠؠԬŠԠŠĠٍŮŠ͠ӠάӠҠƠȠӠԠ̠ΠŠŠҍ͠ȠԠ̠ΠŮƠӍŠԠҠŠΠؠŠȠ٠ΠĠύӮŠԠϠŠҠΠŠ̬ԍՠԠŠŠŠ̍ŠΠŠΠͮˮƠՠԠϠŠ΍ҠӠŠŬӬҠϩՠԠŠ̍ҠŠĩנϠŠōҩԠ٬ƠՠčϠŠҠŠԍΠŠ͠ӬՍĠŠŠէԠź̠٠ٍŠĠŠΠͮՍΠŠŠčŠՠԠԠŠӠӠԠō̠ŠӠ͠נΠύ̠ӠŠčǠŠҠԠϠōŠ̠ϮӠϠ΍ӠΠ٠ӠՠčנƠՠנ̠ϠԠԠӠΠӍԠΠŠ͠ƮϠϠӬՠŠŠ̍ΠŠԠΠӠΠōŠŮΠՠԠōנĺէԠӍĠӠҠӠӧҠź̠ĠϠŠؠōŮŬɠĠΠՠנՍĠŠ̠٠ǍԠԠŠӠԠӠϠōŠŠƺРРЍԠԠƠŠŠՠԠύŠŠҠΠӠԠ΍ŠͿՠΠŠōĠŠĠΠŠŠƠōӺՠĠŠŠӠϺؠ٠ؠ٠ƠȠŠĠŠĠčŠؠӠĠōŠӠŠ٭ҧĠŠΠǠҬōŧӠŠĠǠōϠŠŠҮՠĠŠȠŠĠōȠӬŠҠ̬ŠĠŠ٠ŠŠōƠΠӮԧӠ٠ȠէčԠŠϠŠȍҠĠŠҠՍĠϠŮէĠŠōƠŠǺōؠō٠ōŠӠҠŠҧŠؠӠҠŠحҧŠ٠ӠĠŠōΠŠͮϠŠŠ٭ҬՠϠө٠ō٠ӠҠĠ٭ҧĠӠŬŠŧӠōĠǠŠϠĠōǠͮϠŠҠΠٍΠĠŠ΍ĠŠŠΠōͮԠՠĠϠŠŠحҍ̠ԠӠĠӠōĺؠōؠӠҠĠحҧŧӠŠҠōϠĠԠͮӠŬԠԍŠΠՠԠϠˠԠٍΠԠĠŠ̠ƍŧΠԮƠՠĠύŠŠҬէĠϠōӠҠĠҧŠĠŧӠōҠŠϠĠōͮ͠ŠԠǬǠӬǠӬĠǍĠǠϠӮԧӍ٠ՠԠϠˠԠŠ٬ԠէĠŠϠϠӠōȠӠŠŠϠŮƍŠŠΠŬՠĠˍҠƠŠŠŮԧӠٍŠΠӍԠŠϠĠŠǠōԠŠϠŬҠˠԍҮԠĠŠٍҬԿԮ̬ōŠŠŠЮϮ®ӠōΠΠȮѮ٠Ԡō͠ҠάάӠΠ͠Ӡٍ̠خŠՠԍϠŠҠΠҠˠԍԧӠΠ͠ӬէĠōϠĠԠΠϠԠύԠŮԠϠĠĬŠŠŠĠčԠŠاӠΠŠԍŠƬϠԠԍӠΠ٠ǍŠŠҬ٭ҬĠŠحҮŠŠčҠάǬӬĠ٠ǠŠՍΠˠƮˮԧӠ٠ԍŠӠԠŬčԠȠčԠšƠՠŠĬɠŠԠŠĠנϠōΠ͠ŠՠŠΠԮŠκϠŠӠΠϠ̍ŠԠŠƠҠ٠ŬĠ٬ŠŠϠٍԠӠΠŠĠčǠŠŠȠōǠӠΠԠ΍٩ƬƳōĠƠڍԠź٩ǍӬӬӠčԠӠԠΠΠϠԠŠԠ٠Ӯō٠ӮҬԠȍĠŠ٠ōŠӠƠŠͮԠӠŠǠ͍Ϻ̠ǠǩҮŠŠӠƠ̍ӮԠϠŠǠŠύΠúЬҍŠŠŠԠӠ΍ŠРΠ٩Š̠͠ԠӍҠ͠ΠčҠؠԺҍԠϠԠӬŠӍ٬٬٠ԩ٠ύΠŠŠϠˠˮҬӠӠ٠ϠנՍנȠՠĠٮԠ̠Š̠Ӡ΍ĩԠġںҠӠڠ̩ĠčŠӠϠŠŭ̮ɠ̍ĠҠӠˠϠՠȍŠҠԮӠڠ̍٠Π̠͠ΠӍӮƠɠˠՠҠٍŬɠԠԠōĠĠΠŠ٠ĠĠנŠǍŠؠҠƬŠ̠ҍĠŠؠҠŠčԠǧӠŠϠŠĠƍ٧Ӡ٠ƠȢ̠àΠŠӍĠŠĠΠŠԠƠٍĠ̠ӠƠԍŠĠ٠ƠŠ͍ӠؠŬԠԠŠč٠ƠԠӠ̠ҬĠԠ٠ǬĠƠԠӠ̬ԠŠŠ̮ƠŠҠō ӠŠĠԠӍŠҠϠԠŠŠٍĠƬŢӠŠčǠŠҠԠϠōΠŠ٠ӮΠӍŬؠźƬ̍ҠĠҠŠӠȠ̠ƠԠƍӮΠź̠Ġč ƬōԠԠӠӠԠӠŠ΍Ơ٠ҠĺŠ̠ӠԠϠ̍ŠƠ٠ԠӠנ٠ƠŠؠӍՠŬӠǠӠ٠Š؍Ӯ˿נՠΠРӠԍԠΠ ĠϠϠŠŠčŠĢŠšנϠŠ ӠȠŠ̠ΠجԠӠ٠ӬŠҍ٠Š٠̠ˍҿĠɧĠŠϠ٬ԠšŠȠؠŠӠύӠǬŠĠҠاĠԠΠΠΠҍƠӬŠՠΠ٠ōŠؠӮŠҠӍԠӠŮԠōŠŠӠӠԠӠӠōԠƠ٠ĠȍŠاĮŠĠӠŠӠϠŠΠԠčΠӠŠ٠źƬƬĠ̠ՠԠōǬӠӠנՠϠԺ̠ĠčؠƳƱנԠӮԠƠ̬ؠӍŠԠƠ٠ҠԠ΍ӠȠĠϠŠŠحŠŠҠ٠өčӠŠծҍŠӠԠӠ ̠ԬǠìîĠҠŠԠӍؠîƠҠҍӠ РӠΠĠύŠΠĠנϠŠ¢נϠŠ؍ҠŠƠՠϠԠŠؠύŠ ";C$:"MODM:> ";M$:" AGE:> ";AG$:{F"CORRECT? [ THIS MUST BE CORRECT FOR YOU TO BE VALIDATED VIA FONE ]":F"ES OR O: ";:MK0:145:IN$"Y"IN$"N"ī18110FIN$"N"ī18000F:"PLEASE WAIT WHILE SAVING INFO...":D$;"APPENLE ]";:X1200::X110:(8);::":> ";:50:C$IN$:$F"MODEM ";(91);" MM//E ]";:X1200::X110:(8);::":> ";:50:M$IN$::"COMMENT:> ";:50:CM$IN$::"INFORMATION:":"------------"::LC,0:"NAME:> ";N$:"FONE:> ";P$:"CITY:> ";A$:"COMP:>XXX-XXXX ]";:X1200::X117:(8);::":> ";:50:P$IN$:(P$)12ī180407F:"CITY ";(91);" MOSCOW ]";:X1200::X111:(8);::":> ";:50:A$IN$::"AGE ";(91);" 99 ]";:X1200::X17:(8);::":> ";:50:AG$IN$::"COMPUTER ";(91);" APPWHAT TYPE OF PERSON YOU ARE, PLEASE ANSWER THE FOLLOWING QUESTIONS AS TRUTHFULLY AND COMPLETELY AS POSSIBLE.. THANK YOU":LC,128:RF"FIRST NAME ";(91);" REAL ONE!! ]";:X1200::X115:(8);::":> ";:50:N$IN$LxF:"REAL FONE ";(91);" XXX-W1$:P1$:N1$:S1:T1:D$;"CLOSE PASSWORDS.TXT":PF841,0:CR$"(<)>":Y14:836Y,((CR$,Y,1))128::20::"(>... NEW USER QUESTIONARE ...<)":QF"TO LET THE SYSOP KNOW MORE ABOUT THE PEOPLE WHO UTILIZE HIS SYSTEM, AND TO GIVE HIM AN IDEA OF P1$:NM$N1$:SLS1:TAT1)@UNANTTTA9@NM$(UN)N1$@D$;"DELETE USER NAMES.TXT":D$;"OPEN USER NAMES.TXT":D$;"WRITE USER NAMES.TXT":Y1MN:NM$(Y)::D$;"CLOSE USER NAMES.TXT"1@D$;"OPEN PASSWORDS.TXT,L60":D$;"WRITE PASSWORDS.TXT,R"UN:V1::ET9,965.ET::D$;"CLOSE "N$:821,0:110:12020;.O.TTTT1:40100e.D$;"NOMON CIO":~@D$;"OPEN PASSWORDS.TXT,L60"US$:D$;"READ PASSWORDS.TXT,R"UN:V1:W1$:P1$:N1$:S1:T1:D$;"CLOSE PASSWORDS.TXT":@@UNANVUV1:PW$W1$:PN$HT POLICE <]"' 3'21150::X1750::8 )X1180::Q .777,(768)::12010Y .20e .12007 .D$;"OPEN "N$",S"S",D"D",V"V:D$;"READ "N$:ET,96:DM:12008 .ET,104:ET1,168:ET2,104:ET3,166:ET4,223:ET5,154:ET6,72:ET7,152:ET8,72кōͺͯōźԺٍӬӬҠӠҠ٠ŠҠҠӠ̠ŠĠ͠ϠŠŭ̮ՠŠ٠ӬӬҠӠҠ٠ŠҠҠӠ̠ŠĠ͠ϠŠŭ̮ΠŠԠϠŠĠơ͠ŠŠƬΠӍЮӮƠՠŠ٠ԮŠŠΠҠōҬԠƠՠΧԠ٠ӍĠΧԠŠŠӬՠҍĠͮ٠̠ŠԍΠŠԠϠŠĠơ͠ŠŠƬΠӍЮӮƠ0000N:"[> WAIT ... <]":928,240:929,0:D$;"OPENPASSWORDS.TXT,L60"US$:X1MN:D$;"READPASSWORDS.TXT,R"X:SS$IN$::S1$IN$:IN$SS$:SS$S1$XMN::D$;"CLOSEPASSWORDS.TXT":20129N:D$;"CLOSEPASSWORDS.TXT"::"THAT NAME IS VALID...":20130RN:"LAND-LUBBER"20200AN::"TO ABORT PROCEDURE, ENTER [BYE]":N"COMPLETE NAME:[> ";:151:40700:NA1ĺ:"COMMAS, COLONS, AND QUOTES ARE INVALID"::20115NTN$IN$:(TN$)20ĺ:"PLEASE KEEP LENGTH UNDER 20 CHARACTERS"::20115NIN$"BYE"ī3110:G$(7):20:(798)1(798)4Ĺ798,1z9NVTV:DTD:STS:N$"WELCOME"((798))".TXT":12010:12005:(798)3Ĺ798,0RN:SM$;:110:804,0:806,0pN110:HC,95128:::"COMBO:['NEW' FOR NONE]:> ";:50:HC,0:IN$"NEW"IN$"LAND-LUBBER"zNIN$RMATION YOU HAVE GIVEN IS SUFFICIENT FOR THE SYSOP TO ASCERTAINWHAT TYPE OF USER YOU WILL BE, YOU SHOULD BE VALIDATED BY 24 HOURS..";:Y110:(10);::"BYE":30000* NLC816:LC,123:10000:837,220:838,173:839,175:840,161:841,0:798,(798)1:D USER INFO.TXT"US$:D$;"WRITE USER INFO.TXT":"USER: ";AN:"HNDL: ";NM$:"NAME: ";N$:"FONE: ";P$:"CITY: ";A$:"COMP: ";C$:"MODM: ";M$:" AGE: ";AG$:"CMNT: ";CM$::D$;"CLOSE USER INFO.TXT":F"INFORMATION HAS BEEN SAVED...":20::"IF ALL THE INFOֽֽֽֽĽӽֽ¤ŠӠƠآĤӶıְĤӶıְԤӶıְӤӶıְˠŠɍŠŠɍΠύ͠čŠġ  ҠҍƠŠӠЮӮӠ͠ӠΠٍĠŠΠөčҠҠŠ̩ҍҠΠΠӠ̠ͬŠҧӠΠčŠҠƠӠÍ̮١Ġō۠ӡݍΠݍӠ͠ӠΠč͠ΠҠŠӍȠ͠ƠˠĠΠϭҠ͠ŠȠҍŠ۬͠͠ŬҠŠŭԠĠ   :"COMMENT:> ";:50:CM$IN$CF:"INFORMATION:":"------------":MFLC,0_F"NAME:> ";N$qF"FONE:> ";P$F"CITY:> ";A$F"COMP:> ";C$F"MODM:> ";M$F" AGE:> ";AG$F:"CORRECT? [ THIS MUST BE CORRECT FOR YOU TO BE VALI50:A$IN$UF:"AGE ";(91);" 99 ]";:X1200::X17:(8);::":> ";:50:AG$IN$F:"COMPUTER ";(91);" APPLE ]";:X1200::X110:(8);::":> ";:50:C$IN$F:"MODEM ";(91);" MM//E ]";:X1200::X110:(8);::":> ";:50:M$IN$FAME ";(91);" REAL ONE!! ]";:X1200::X115:(8);::":> ";:50:N$IN$xF:"REAL FONE ";(91);" XXX-XXX-XXXX ]";:X1200::X117:(8);::":> ";:50:P$IN$:(P$)12ī18040 F:"CITY ";(91);" MOSCOW ]";:X1200::X111:(8);::":> ";::"TO LET THE SYSOP KNOW MORE ABOUT THE PEOPLE WHO UTILIZE HIS SYSTEM, AND TO GIVE HIM AN IDEA OF WHAT TYPE OF PERSON YOU ARE, PLEASE ANSWER THE FOLLOWING QUESTIONS AS TRUTHFULLY AND COMPLETELY AS POSSIBLE.. THANK YOU"iFLC,128KnF:"FIRST N NAMES.TXT"@D$;"OPEN PASSWORDS.TXT,L60":D$;"WRITE PASSWORDS.TXT,R"UN:V1:W1$:P1$:N1$:S1:T1:D$;"CLOSE PASSWORDS.TXT":PF NEW USER JUNKUF841,0:CR$"(<)>":Y14:836Y,((CR$,Y,1))128::20ZF:"(>... NEW USER QUESTIONARE ...<)"dFOSE PASSWORDS.TXT":-@ WRITE BACK IN FORM3@h@UNANVUV1:PW$W1$:PN$P1$:NM$N1$:SLS1:TAT1y@UNANTTTA@NM$(UN)N1$ @D$;"DELETE USER NAMES.TXT":D$;"OPEN USER NAMES.TXT":D$;"WRITE USER NAMES.TXT":Y1MN:NM$(Y)::D$;"CLOSE USER2:ET7,152:ET8,72:ET9,96B.ET::D$;"CLOSE "N$:821,0:110M.12020S.g.TTTT1:40100{.D$;"NOMON CIO".t@ READ ONE USER'S FILE~@D$;"OPEN PASSWORDS.TXT,L60"US$:D$;"READ PASSWORDS.TXT,R"UN:V1:W1$:P1$:N1$:S1:T1:D$;"CL"<]" 8'Y124:: B'20M C'T$"[> WELCOME TO: THE "NB$" <]":21150:S D' G'CR$"[> A NEXUS SOFTWARE SYSTEM <]":20(CR$)2);"";:"[> A NE";:CR$"!/-\":X14:(CR$,X,1);(8);::"XUS SOFTWARE SYSTEM <]"I'T$"[> PRESENTED BY: THE THOUGHT "[>PRESS SPACE<]";. $'A$:40:A$" "ī10020W .'X113:(8);::"STRIKE RETURN<]";t /'A$:40:A$(13)10031 0'X115:(8);: 1'CR$"CONNECTION ESTABLISHED":CS$"<>":CP1:X1(CR$):(CS$,CP,1);(8);(CR$,X,1);:CPCP1:CP3CP1 2' 3'" "IN$(95)ĺIN$:40:+ 40:MK1ı3 :> 929,0R 928,39::40:_  SELECT (4);"LOCK SELECT,S"S",D"D",V"V:  SELECT2 (4);"LOCK SELECT"S$: ' OPENING ':792,0:D$(4) '20 '806,0:804,0 '841,123 '>A$;:IN$IN$A$:40:: F929,0:928,39::IN$" "IN$:@ PF d] n1002:RC:821,0:x x SPECIAL INPUT (DISK) z928,240:929,255:930,14128::40: SPECIAL INPUT (KEY) 928,240:929,255:930,14128::IN$" "IN$:40: IN$:IN$INT IN$ -> O$% IN$""IN$" "ĺ:< !O$(IN$,(IN$)1)H "OI::e ( CHECK CARRIER IN INPUT )768,(797):(768)12344 *(822)123ġ:30000 , 2 4928,240:929,0::40: <1002: GET A NUMBER =A$:40:A$"0"A$"9"ī61 >:KL1Ĝ:36687cD$(4):1002:D$;"IN#2":D$;"PR#2":(26):D$;"IN#0":D$;"PR#0":41100768,123:1002::(4);"NOMON C,I,O":411001002KL115 22000::30000 HOME(12)(14):110  PR     " " " """""""""                  A SEARCH FOR A NAME":"[>5<] EXIT THIS DAMN ROUTINE":Pv"CHOICE [1-5/?]: ";twA$:A$:L((A$)):A$"?"ī620xL1L5630yLLL{L5ıL4ĺ:XF0:"NAME:[> ";:50:SS$IN$:28900:UNNF:NF0XF1 L4Ĝ:XF1ĺ:"HE/SHE/IT IS US<]":21150::30000INL5İ110::"[> SYSOP: GONE <]":IN$"":L$""::RW530aX USERLISTb20:"[> USER LIST ROUTINE <]":g6307l:"[>1<] LIST ALL USERS W/ ACC #":"[>2<] LIST FROM ACC #A TO #B":"[>3<] TOTAL NUMBER OF USERS":"[>4<] DOL1L5530#L1Ĺ791,2558L1İ110:40120H&L2İ160000L4ĺ:"INPUT MESSAGE:]> ";:50:110::"SYSOP COMMENT:]> ";IN$5L4ĺ7L4IN$"":L$"":L4Ĺ790,0:791,0:799,255:DL3İ110::T$"[> THIS OUGHTA SHOW YOU... "[> SYSOP: ON HOLD <]":D$;"IN#0":D$;"PR#0"E:"[>ESC<] MENU": "[1] CHAT WITH USER":"[2] MODIFY USER STATS":"[3] KICK USER OFF":"[4] MESSAGE TO USER AND LEAVE""[5] END CHAT":"SYSOP CHOICE:[> ";:A$:A$:L((A$))A$"?"520;:50:D$;"UNLOCK ";IN$:430NL$"L"ĺ:"NAME: ";:50:D$;"LOCK ";IN$:430fL$"M"İ15200:430o430:(7);"***ERROR":30030 SYSOP MENU WITHIN CHAT799,0:TTTT2D$(4)35,24:777,(768):G$(7):110-:12000<L$"B"ĺ:"ENTER BASIC? [Y/N]: ";:50:IN$"Y"ĀTL$"E"İ16005:420L$"D"ĺ:"NAME: ";:50:D$;"DELETE ";IN$:430L$"C"ĺ:"SLOT: ";S:"DRV#: ";D:"VOL#: ";VL$"C"ĺ:D$;"CATALOG,S"S",D"D",V"V:430L$"U"ĺ:"NAME: "[U]NLOCK-[L]OCK FILE [B]ASIC MODE/[Q]UIT INTO SYSTEM"LC,0::"SYSOP COM:[?=HELP]> ";:50:L$(IN$,1):L$"Q"ī30030L$"?"ĺTSBTL$"?"ī420L$"V"ĺ:"SLOT: ";S:"DRV#: ";D:"VOL#: ";VL$"V"ĺ:"NAME: ";:50:N$IN$:IN$"Z"ĺ"WHOOOSH!":9IN$";"SL9ĺ"SYSOP POST":MIN$;(8);:160Sq,IN$" :END"Č1002:40190|640138 SYSOP COMMANDS490T$"SYSOP POST"::21150::430<"[C]ATALOG/[V]IEW FILE/[M]AKE FILE [E]DIT USER/IN$"Y"ĺ"THE SLIME YOU ARE":?IN$"="ĺ"CHANGE CURS0R":\IN$"#"ĺ"POST STATS":~IN$"?"ĺ"HELP! [WHIMPER]":IN$"!"ĺ"STOMP MY BRAIN":IN$"M"ĺ"MACR0S, DUDE!":IN$"R"ĺ"ROLE PLAYING":IN$"$"ĺ"A NECCESITY":YPE OFFICE":( IN$"F"ĺ"FEEDBACK":H IN$"G"ĺ"LIBRARY ELITE":o IN$"H"ĺ"HELP WITH SUB-BOARDS": IN$"I"ĺ"INFO ON CARRION": IN$"O"ĺ"OFF": IN$"P"ĺ"LET'S VOTE!": IN$"Q"ĺ"Q-SCAN": IN$"T"ĺ"KEY TOGGLE":(20)IN$(3):& 40:IN$(13)ĺ:D IN$" "IN$(95)ī161e IN$"A"ĺ"PUBLIC LIBRARY": IN$"B"ĺ"BBS LISTINGS": IN$"*"ĺ"MESSAGE BASE": IN$"C"ĺ"YAP WITH THE CAP": IN$"D"ĺ"CHECK OUT THE NEWS": IN$"E"ĺ"TELET5 928,240:929,255:930,14128::40:IN$" "IN$:^ IN$:IN$" "IN$(95)ĺIN$:40:n 40:MK1ıv : 39 KEY INPUT 929,0:25 928,39::IN$" "IN$:40: LC,0: MAIN GET  IN$:IN$(10)ľIN$:IN$(9)ľIN$:IN$9,0::40:$ <1002: GET A NUMBERC =A$:40:A$"0"A$"9"ī61] >A$;:IN$IN$A$:40: F929,0:928,39::40:IN$" "IN$: P d n1002:RC: x SPECIAL INPUT (DISK) z928,240:929,255:930,14128: { SPECIAL INPUT (KEY)O$ IN$""ĺ:$ (IN$)1ĺ:; !O$(IN$,(IN$)1)E "O$:b ( CHECK CARRIER IN INPUT )768,(797):(768)12343 *(822)123ġ:30000 +(790)255(791)255Ĺ790,0:791,255:CC0::500 - 2 3791,0:TSBT 4928,240:92rKL1ī341100,768,123:1002=1002:LC816JKL115W:41100b216,0 (4);"RUN MODULE I,S6,D1,V0"D$;"BLOAD TEMP."MD$:30015 HOME(12)(14):110MN(794)256(795):  PRINT IN$ ->                                     !!! ! ! ! ! !!!!!!!!!""" " )WR%(L)ANSL8ĺ"[> THAT'S NOT YOURS! <]":R&v)"[> HOLD: DELETING MESSAGE <]"&w)D$;"DELETE "BN$(BN)" QUANTITY"SD$(BN):D$;"OPEN "BN$(BN)" QUANTITY":D$;"WRITE "BN$(BN)" QUANTITY":MQ(BN)1:D$;"CLOSE "BN$(BN)" QUANTITY"&x)MQ(BN)MQ(BN)1o'y)D$;%$)"MSG [>"YY"<]: ";TI$(YY):%%,)1%h) KILL!T%m):"POSTS YOU HAVE POSTED: ":%o)X1MQ(BN):WR%(X)ANĺ"[>"X"<] "TI$(X)%p)%q):"WHICH ONE [>1-"MQ(BN)"<]: ";:50:L(IN$):IN$"Q"IN$""ı%r):L1LMQ(BN)ĺ"[> THAT'S NOT YOURS! <]":.&tN):/$)MQ(BN)0ĺ"NO SEA MAPS EXISTING...":\$)(91);"";MQ(BN);"] SEA MAPS EXISTING":$)"BEGIN AT: (CR=1) ";:50:ST(IN$):IN$""ST1$)ST(ST):IN$"Q"ı$)ST1STMQ(BN)ĺ:"OUT OF RANGE...":$)$")YYSTST15:YYMQ(BN)Ă:10540410#(IN$"F"İ10300:104104#(IN$"K"İ10600:C#(IN$"Q"ıf#(L$"0"L$"9"İ10225:10410#(L$"?"ĺ:"

OST":"EAD":"CAN":"ILL":"ORWARD SEQUENTIAL":"EW POSTS":"UIT":10410#(10410#) SCAN$):"SCAN: ";BN$(B400!"i(A$"N"A$(13)ī10340-"n(:25:@"( MESSAGE BASEZ"(MQMQ(BN):BN$BN$(BN)"(791,0::"<"BN$(BN)"> [>1-"MQ(BN)"<]:";:50:L$(IN$,1)"(IN$"R"İ10200:10410"(IN$"S"İ10500:10410"(IN$"P"İ10000:10410#(IN$"N"İ10900:10BN$(BN):10230:!_((807)255Ĺ806,0:804,0:807,0:::E!`(790,0s!d("[A/UTO REPLY][N/EXT][R/E-READ][Q/UIT]";!e(A$:40::A$"Q"KRMQ(BN)::!f(A$"R"KRKR1:!g(A$"A"WR%(KR)0PWR%(MN):15400"h(A$"A"WR%(KR)0SL9P(WR%(KR)):15:"OUT OF RANGE...":P P(:T$"CTRL-[S] PAUSE/ -[X] ABORT/ -[N] NEXT":21150:Y Q(YBN R(MQ(BN)1ĺD$;"OPEN"BN$(Y)".LIST"SD$(BN):D$;"READ"BN$(Y)".LIST":X1MQ(BN):50:TI$(X)IN$:WR%(X)::D$;"CLOSE"BN$(Y)".LIST" U(KRLMQ(BN)!Z(IN$(KR):BN$"SUBJ: ";TI$(MN)'TTTT1B'N$"M"(BN)"."TI$(MN):VBV(BN)X'SBS(BN):DBD(BN)j(12010:12005s(110(:MNNM#(<( K]ONSECUTIVE READ F(:"FORWARD RETRIEVAL OF MESSAGES"::"STARTING AT MESSAGE #:";:50:L((IN$)):L1LMQ(BN)CKED <]":' ' READ POST+'785,0E'BN$BN$(BN):MQMQ(BN)K'j'"[>"MQ"<] POSTS ACTIVE":'"READ WHICH ONE: ";:50:IN$""IN$"Q"ı'(IN$)1(IN$)MQĺ:"OUT OF RANGE...":'NMMN:MN(IN$):LPMN:::10995'"NUMB: ";MN:TS$(Y),(TS$(Y))1)&'(TS$(Y))1ĺB':D$;"CLOSE M"BN".";Y$Z'MQ(BN)MQ:LBN:YBN'MQ(BN)1ĺD$;"OPEN"BN$(Y)".LIST"SD$(BN):D$;"READ"BN$(Y)".LIST":X1MQ(BN):50:TI$(X)IN$:WR%(X)::D$;"CLOSE"BN$(Y)".LIST" ':"[> MESSAGE: POSTED AND LOv'TI$(MQ)Y$4w'WR%(MQ)AN:AP1WR%(MQ)0WR%(MQ)y'D$;"APPEND "BN$".LIST":D$;"WRITE "BN$".LIST":Y$:WR%(MQ):D$;"CLOSE "BN$".LIST"~'D$;"OPEN M"BN".";Y$;SD$(BN):D$;"WRITEM"BN".";Y$:"FROM: ";:19995:"DATE: ";DT$::Y1LL'(TS$(Y))1ĺ(LC,0A=':"ANONYMOUS MESSAGE [Y/N]: ";:A$:40:A$:A$"Y"AP1hB':"[> HOLD.. SAVING MESSAGE <]":yL'FE1ī10110t'D$;"DELETE "BN$" QUANTITY"SD$(BN):D$;"OPEN "BN$" QUANTITY":D$;"WRITE "BN$" QUANTITY":MQ1:MQMQ1:D$;"CLOSE "BN$" QUANTITY" POST:]> ";:50S '40700:NA1ĺ:"COMMAS, COLONS, AND QUOTES ARE INVALID":10015j!'Y$IN$:IN$""ĺ:"'X1MQ(BN):Y$TI$(X)XMQ(BN):::"THAT NAME IS ALREADY ON FILE...":10015#'&'.'250008'SV0ĺ:"FUNCTION ABORTED..."::;' SELECT:(4);"LOCK SELECT,S"S",D"D",V"V:H SELECT2c(4);"LOCK SELECT";S$io15200:10400:15040' WRITE MESSAGE'FE0:AP0'MQMQ(BN):BN$BN$(BN)':"POST MAP ON: ";BN$(BN):'LC,0':"NAME FOR1L1:MMN%:"[> USER LIST <]":.IC1YXLM:PX:28950:"USER [>"X"<]: "IN$ICIC1:IC11ĺ:"CONTINUE? [Y/N]: ";:A$:A$:40::A$"Y"XM:IC1::670IC11IC1:"[>SPACE TO CONTINUE<]";A$:40:A$" "710ER #";UN:+L4ĺ:"NO LUCK, CHARLIE":YL3ĺ:"[>"MN"<] USERS IN THIS SYSTEM":L2ĺ:"[>START AT #";:50:L((IN$)):L1LMNĺ:"OUT OF RANGE, BUD":LL2ĺ"[>FINISH AT #";:50:M((IN$)):MLMMNĺ:"OUT OF RANGE, BUD": LL ";IN$;TD$:D$;"DELETE ";IN$:D$;"OPEN ";IN$:D$;"WRITE ";IN$S6;Y1LL:TS$(Y):h6;D$;"CLOSE ";IN$z6;:"SAVED..."6;6; USER CAN ACCESS?6;BL(BN)SLĺ:"[> YOUR ACCESS IS TOO LOW TO ENTER <]"::6;6(<280406"ĺ:(7);"WRONG! TO PLAY CONTACT THE SYSOP":g5;:"ACCESS HAS BEEN PREMITTED...":L1:15045|5`; MAKE TEXT FILE5j;25000:SV0ı5t;:"NAME: ";:505y;Y1LL:TS$(Y)" "TS$(Y)""::152305{;TS$(Y)(TS$(Y),(TS$(Y))1):=6~;D$;"OPEN"BN$(Y)".LIST"'4:15300:10400:15040=4: ACCESS TO GAME?4: SYSOP MUST MODIFY IF HE WISHES TO HAVE A ROLE-PLAYING GAME ACTIVE4: 4;:"[> NOT CURRENTLY INSTALLED <]":4;:"(>... R0LE-PLAYING ...<)"65;:"[PASSWORD]:> ";:50:IN$" ";:50:L(IN$):IN$"Q"IN$""ıN3:IN$"?"ī15010c3:L1LABī15040l3:YBN3:BNL:YBN::"LOADING..."4:15500:MQ(BN)1ĺD$;"OPEN"BN$(Y)".LIST"SD$(BN):D$;"READ"BN$(Y)".LIST":X1MQ(BN):TI$(X):WR%(X)::D$;"CLOSEOWNLOADS: INACTIVE FUNCTION <]":30030:22 BRAIN STOMPER]22:"(>... BRAIN STOMPER ...<)"y22N$"BRAIN STOMPER":VTV22STS:DTD22120002: PICK SUB-BOARD2:150402::"(>...SUB-BOARD MENU...<)":2:X1AB:"[>"X"<] "BN$(X)::3::"96:DM:12008p1.ET,104:ET1,168:ET2,104:ET3,166:ET4,223:ET5,154:ET6,72:ET7,152:ET8,72:ET9,961.ET::D$;"CLOSE "N$:821,0:1101.120201.1.TTTT1:401001.10 ARTICLES10:"(>... PUBLIC LIBRARY ...<)"&20:"[> D* UPDATE LAST POST THING0*D$;"OPEN"BN$(BN)".STAT,L4";SD$(BN):D$;"WRITE "BN$(BN)".STAT,R"AN:LP:D$;"CLOSE "BN$(BN)".STAT"0*0. READ FILE0.777,(768)::120100.12005:300300.12007 1.D$;"OPEN "N$",S"S",D"D",V"V:D$;"READ "N$:ET,AB:NP(Y)1YAB::109708/*:"<( NO NEW POSTS )>":k/*"<( NEW POSTS ON: ";:Y1AB:NP(Y)1ĺY;" ";q/*}/*")>":/*MQ(BN)0LP999999:/*D$;"OPEN"BN$(BN)".STAT,L4";SD$(BN):D$;"READ"BN$(BN)".STAT,R"AN:LP:D$;"CLOSE"BN$(BN)".STAT":0> GLOBAL ZIP <]":V.*ZL1AB:BNZL:20:BN$(BN);": ";MQ(BN);" POSTS":10900::::r.*"[> ZIP COMPLETE <]":.* QUICKSCAN.*Y1AB:NP(Y)0:.*:"[> GLOBAL QUICKSCAN <]"::"SCANNING...":LY1AB:BNLY:10990:LPMQ(LY)NP(LY)1/*::Y11): -t*MY1;-v*D$;"CLOSE MAC.";AN::"MACR0 SAVED...":R-* GET NEW MESSAGES]-*15300-*:"[> NEW POSTS <]"::"SCANNING...":10990-*LPMQ(BN)ĺ:"NO NEW POSTS...":X1250::-*MQMQ(BN):BN$BN$(BN)-*LLP1:10320-* ZIP.*:"[030#,b*:"DEFINE MACR0...":25000H,g*SV0ĺ:"FUNCTION ABORTED...":R,i*TSBT,l*:"SAVING MACR0...":D$;"OPEN MAC.";AN;US$:D$;"DELETE MAC.";AN:D$;"OPEN MAC.";AN:D$;"WRITE MAC.";AN:LL:Y1LL,q*TS$(Y)" "ĺ""::10870-s*(TS$(Y),(TS$(Y))MAC.";AN;US$:D$;"READ MAC.";AN:Y:30LLYĺ"NOT ENOUGH ROOM..";:Y1500::Y118:(8);:::D$;"CLOSE MAC.";AN:+Q*XLL1(LLY):50:TS$(X)" "IN$:IN$::D$;"CLOSE MAC.";AN+R*TSX:LLX1+S*MY1:,X*:"YOU HAVE YET TO DEFINE A MACR0...":30*I*IN$"M"ī10850*J*:"YOUR MACRO READS:":"=--------------="::D$;"OPEN MAC."AN;US$:D$;"READ MAC."AN:Y:X1Y:50:IN$::D$;"CLOSE MAC."AN:*N*10840*O*(8):MY1ĺ"NONE ON FILE...";:X1500::X115:(8);::u+P*1002:110:D$;"OPEN ACR0S ...<)"::"AKE, IEW, UIT: ";b)<*IN$:IN$"M"IN$"Q"IN$"V"IN$(13)ī10812)=*IN$"Q"IN$(13)ĺ"QUIT")>*IN$"M"ĺ"MAKE MACR0")?*IN$"V"ĺ"VIEW")E*IN$"Q"IN$(13)ı)F*10840*G*IN$"V"MY1ĺ:"NONE ON FILE...":<]":() IMMEDIATE VALIDATE(()UNANP()V11:T15:NU0:S11:P1$PN$:N1$NM$e()W1$PW$:16550:() #) ALL BOARDS STATUS():"[> PUBLIC SUB-BOARD STATS <]":()Y1AB:"[>"MQ(Y)"<] POSTS ON ";BN$(Y):()(0* MACR0S+):*:"(>... MIGHTY M"DELETE "BN$(BN)".LIST"SD$(BN):D$;"OPEN "BN$(BN)".LIST":D$;"WRITE "BN$(BN)".LIST":X1MQ(BN)1:XLĂ:10625'{)TI$(X):WR%(X):')D$;"CLOSE "BN$(BN)".LIST"')D$;"DELETE M"BN".";TI$(L);SD$(BN)')MQMQ(BN)():"[> POST: UNLOCKED AND DELETED ):IN$BN$:F_0::F_F_"[>------------------------------------<]";"[> <]";"[> <]";F_"[> <]";G_"[> :#E]"LIEUTENANT JUNIOR GRADE":7E]"LIEUTENANT":UE]"LIEUTENANT COMMANDER":hE^"COMMANDER":{E^"COMMODORE":E$^ GET FONE # F)^IN$"":"(";:Y13:60::") ";:Y13:60::"-";:Y14:60:::BN$"("(IN$,3)") "(IN$,4,3)"-"(IN$,4ID]"RANK:> ";:SL24050,24052,24054,24056,24058,24060,24062,24064,24066^D]SL0ĺ"RECRUIT"pD]"TIME:> ";TAD]"<><><><><><><><><><><><><><><><><><><>"D]D]"DOCK WORKER":D]"SEAMAN RECRUIT":D]"PETTY OFFICER 1ST CLASS":E]"ENSIGN"R(IN$,1)" "RO$"":HCRY3911:(IN$,Y,1)" "WPY:Y1::21190WCR:RO$"":~CRRO$(IN$,(IN$)WP):IN$(IN$,WP)CRY0(RO$):(8);::CRC] STATUSC]"<><><><><><><><><><><><><><><><><><><>"C]"FONE:> ";PN$C]"LEVL:> ";SLD$;"WRITE "PL$:NM$;:Y(NM$)39((IN$)1):".";::IN$:D$;"CLOSE "PL$:19610qBNAP1ĺ"ANONYMOUS POSTER":|BNNM$:BR CENTER TEXT USING TABBRT$""ĺ:BR20(T$)2)BRT$;:BR WORD-WRAPBR781,40BR(IN$)(781)RO$"":C";:50:IN$"Q"IN$""ī19550KALIN$"?"ĺ:"[V]OTE/[L]IST/[Q]UIT":19610_ALIN$"L"ī19500tALIN$"V"ī19610ALLC,128AL:VN$;" (OR [Q]UIT):]> ";:50:IN$"Q"IN$""ī19610ALD$;"OPEN "PL$;TD$QBL:"STORING .. HOLD":D$;"APPEND "PL$;TD$:@rL:"POLL:[> ";:50:L(IN$):IN$"Q"IN$""ī30030I@|LL1L3ī19570t@LL1PL$"BOARD POLL":VN$"BOARD NAME"@LL2PL$"LOOZER LIST":VN$"LOOZER"@LL3PL$"SOFTWARE LIST":VN$"SOFTWARE TITLE"@L FUNCTIONSALLC,0::(91);" ";PL$;" ]:> .....................VOTEE":"---------------------------------------":T?9LTTTT1b?:LSTS:DTD?;LN$PL$:VTV:12010:12005?TL19600?^L PICK POLL?cL:"[> POLLS <]":?dLLC,0?hL"[>1<] BEST BOARDS":"[>2<] WORST LOZES":"[>3<] COOL WARES"5ACTER #";Y;" ";(91);->I((836Y));"]: ";Q>I145:IN$" "IN$(95):18920i>I836Y,(IN$)128:t>I841,0>I:"HERE IT IS... [>SPACE TO CONTINUE<]: ";>IIN$:40:IN$" "ī18931>I>J>,L POLL LIST>1L19540H?8L:"VOTER........((IN$)):IN1INGQī17030S=BN$"GFILE/"(GS)"/"(IN):STS:DTD:VTV:12000^=PF HELPd=UF=ZFN$"EDITOR HELP":SBT:DTD:VTV:12010:12005:=I CHANGE CURSOR=IMK1=I841,123=I110=I:"(>.. CHANGE CURSOR ..<)":>IY14:"CHARN1$:V1:W1$:P1$:S1:T1:D$;"CLOSE PASSWORDS.TXT":G1-"GQ"<): ";:50:IN$"?"17020"SECURITY LEVEL [>"S1"<]: ";:50:IN$""S1(IN$):>"TIME [>"T1"<]: ";:50:IN$""T1(IN$):>"CORRECT? (Y/N): ";A$:(A$,1)"Y"ī16015:>16550:>:t@ READ ONE USER'S FILEV;~@D$;"OPEN PASSWORDS.TXT,L60";U:"[FONE #: "P1$"]":"[SECURITY LEVEL: "S1"]"T9>"[TIME: "T1"]":"[PASS: "W1$"]":{9>"VALIDATED [0/1]: ";:50:L(IN$)9>V1L9>"NAME "(91);N1$;"]: ";:50:IN$""N1$IN$9>"PASSWORD ["W1$"]: ";:50:IN$""W1$IN$:>"FONE [XXX] XXX-XXXXT"8<%8> CHANGE USER PARAMATERS?8>D$;"IN#0":D$;"PR#0"^8>:"[>CHANGE USER STATS<]"8>:"USER NUMBER [>1-"MN"<]: ";:50:L(IN$):IN$""IN$"Q"L1LMNı8>UNL8>16500-9>:"[> USER STATUS <]"::"[VALIDATED: "V1"]":"[NAME: "N1$"]"g71-"MN"<]: ";:50:P(IN$):P(P):P0PMN128040VpmA$"A"ĺ:"OUT OF BOUNDS...":Vqm-Wtm "Ug:1002:110Ug23TUg768,123:0:Y17:G$;::768,(777):110:CC1:aU`m E-MAILiUam25sUbmLC,0Uem40100Ujm20:"[> TELETYPE OFFICE <]":Vkm"[S]END":"[R]EAD":"[U]SERLIST":"[E]XIT"::"COMMAND:[> ";:50:L$(IN$,1):L$"R"L$"<-------------------------------------->"::T$"CAPTAIN HAS BEEN PAGED TO THE BRIDGE":21150:::"PLEASE TYPE A ONE LINE REASON FOR PAGE:":150:::"<-------------------------------------->"Tg0:24:35,23:Ug" CHAT CALL: ACTIVATED L1L2ĺ:SePLSe28040)Se25:9Sg CHAT CALLISg777,(768)USgG$(7)[SgSg(769)123ĺ:"SORRY, BUT THE CAPTAIN HAS GIVEN ORDERS NOT TO BE DISTURBED":CC0:SgCC1ĺ"CAPTAIN HAS ALREADY BEEN PAGED, PLEASE LEAVE HIM ALONE!":TgK1OK2OK1 RdMK0:40100-Rd816,1287RdLC,0HRd"[>"NB$"<]"|Rd"COMMAND:[?=HELP]> ";:OK50,160:L$(IN$,1):Re FEEDBACKRe40100Re:"[> FEEDBACK <]": Se"[>1<] THE CAPTAIN":"[>2<] FIRST MATE"::"WHICH ONE:]> ";:50:L(IN$):12005 QcQddQ"dD$;"OPEN MSG.TXT";TD$:D$;"READ MSG.TXT":PS$:50:UM$IN$:D$;"CLOSE MSG.TXT"Q#d:Y140:"MESSAGE FROM: ";(91);" ";PS$;" ]":Y140:"-";::IN$UM$:25400:Y140:"-";:Q(dQdLC,0:790,0:791,0:799,0: GET COMMANDRdO1ĺ(TS$(Y),(TS$(Y))1):"Pb:>P8c PRINT ONE LINE OF IN$_PBc(IN$)1ĺ(IN$,(IN$)1):gPLc:Pc PRINT DAILY BULLETINSPc110Pc:T$"[CTRL-S/PAUSE] [CTRL-X/ABORT]":21150:PcPcVTV:DTD:SBTQcN$"DAILY BULLETINS.TXT":12010:(B$)13LN(A$):252402ObB$"0"B$"9"ī25125qObB$;:LN(A$B$):LNLLLN1ĺ::"OUT OF RANGE";G$:25120wObOb:"CURRENT LINE:":YLN:25300::"NEW LINE:":LC,128:70:TS$(LN)IN$::LC,0:25120Ob PRINT ONE LINE OF MESSAGEPb(TS$(Y))RbL$"E"ĺ:"ABORT? [Y/N]: ";:A$:40:A$:A$"Y"ī25120MN\bL$"E"SV0:NfbL$"S"LL0ĺ:"NO DATA IN FILE";G$::25120NkbL$"S"SV1:NpbL$"F"ī25120NubLL0ī25120Nzb:"LINE NUMBER: ";NbA$:A$"0"A$"9"ī25120NbA$;ObB$:TS$(Y))1ĺ(TS$(Y),(TS$(Y))1)::25120AM3bIN$"N"ĺ::25120M4bL$"L"ĺ:Y1LL:"LINE ";Y;"]":(TS$(Y))1ĺ(TS$(Y),(TS$(Y))1)::25120M9b::25120M>bL$"C"ĺ:"CLEAR MEMORY? [Y/N]: ";:A$:40:A$:A$"Y"ī25120MHbL$"C"ĺ::25000:NND MESSAGE"=L b:"EDITOR:[?=HELP]> ";:LC,0:50:L$(IN$,1)IL#bG$(7)\L%bL$"?"ī25105L*bL$"A"XLL1::"YOU MAY NOW CONTINUE .."::25020L/bL$"L"25150L1bL$"L"LL0ī25120)M2b:"WITH LINE NUMBERS [Y/N]: ";:145::IN$"N"āY1LL:()255āY120((T$)2):I$I$" "::IN$I$T$SKa(802)255IN$" "İ10830:25030eKa(802)255ĺuKaTS$(TS)IN${KaKaLL30Ka:"(>... 30 LINES ...<)"K b25120Kb:"EDITING FUNCTIONS:": Lb"[L]IST/[A]DD/[F]IX/[S]AVE":"[C]LEAR FILE/[E]25030KJaIN$" .TX"āY140:(8);::BS1ĺ"TRIX MODE ACTIVE";:BS2:Y0JaY20IN$" .TX"BS2ĺ"TRIX MODE DEACTIVATED";:BS1JaIN$" .TX"āX1750::Y1(36):(8);::25030Ja(801)255āY2(IN$):(8);::I$"":T$IN$:21150:-Ka(801RO$""IaTSX30IaLLTS1FIaLL25ĺ(91);" 5 ] LINES LEFT..."RIaLC,128Ia801,0:802,0:BS70,130:IN$" .EX"IN$" /EX"ī25045IaTS31::25100IaIN$" ."(115)IN$" .S"IaIN$" .S"IN$" /S"SV1:TS31::JaIN$" .?"İ18000:2:T$H_:34,7$H_1002:110::@Ha GET MESSAGE OR LETTERSHaSV0:LL0:BS1aHaTS$(1)""nHa816,128zHaTTTT1Ha:"[ENTER MESSAGE: 39 COLS BY 30 ROWS]":"[.S AUTO SAVES][.EX FOR MSG EDITOR]":"[.TX TRIX MODE][.? FOR MORE CMANDS]":IaX1: <]";5G_"[>------------------------------------<]"ON<":30030xfRvL$"T"OK1::"ONE-KEY INPUT FLAG IS >OFF<":30030f\vL$"#"İ10700:30030ffvL$"M"İ10800:30030fpvL$"Z"İ10950:30030fzvL$"Q"İ10960:30030fvL$"P"ī19550f63003060":30030$euL$"="İ18900:30030@euL$"D"ĺ:25500:30030Se vL$"!"ī13000evL$"H"ĺ:STS:DTD:N$"HELP WITH BOARDS":VTV:12000e vL$"G"ī17000e*vL$"$"N$"DISCLAIMER":VTV:STS:DTD:12000e4vL$";"SL9ī400f>vL$"R"İ15100:300"NM$:21150*cxu::Y119:"=-";::"="Rc{u:T$"[> CALL THESE: <]":21150::c|u"[> THE AGENCY...........714/643-8484 <] [> REVELSTONE...........612/831-1492 <] [> THE SOUTH POLE.......312/677-7140 <]"c}ucuL$"O"Ĺ768,123:41100:30000du;::150:Y140:"-";::PS$NM$:UM$IN$4bqu40100bru:D$;"OPEN MSG.TXT";TD$:D$;"DELETE MSG.TXT":D$;"OPEN MSG.TXT":D$;"WRITE MSG.TXT":PS$:UM$:D$;"CLOSE MSG.TXT"bvuL$"O"İ20:Y119:"=-";::"=" cwu:T$"THE "NB$:21150::T$"LOGGING OFF: 030aiuL$"A"ī12500*ajuL$"O"ī30090zaluL$"O"ĺ:"DO YOU WISH TO ABANDON SHIP? (Y/N) ";:50:(IN$,1)"Y"ī30030anuL$"O"ĺ:"LEAVE MESSAGE FOR NEXT USER? (Y/N) ";:50:(IN$,1)"Y"ī30065(bou:T$"LEAVE MESSAGE NOW...":21150::Y140:"-"PROGRAM`JuNMMN`Ku24500M`Nu768,(797):110::54915:25:25800:40100W`OuTSBTw`QuIN$(3)Ĺ222,255::40100`]uTT0ĺ:"SORRY, BUT YOUR TIME HAS RUN OUT.":Y11500::L$"O":30070`buL$"F"İ26000:30030aguL$"C"İ26500:768,(777):30(794)256)H_Du777,(38143):797,(38143):768,(38143):25500::25600_Eu768,(38143):797,(768):794,(MN256):795,MN((794)256)_Fu28500::"<";:Y119:"=-";::">"_Gu790,0:791,0:799,0_Hu794,(MN256):795,MN((794)256)`Iu MAIN ORDS.TXT":2^p:D$;"CLOSE PASSWORDS.TXT":NF0:G^q FIND NAME BY #Q^qPP1^qD$;"OPEN PASSWORDS.TXT,L60"US$:D$;"READ PASSWORDS.TXT,R"P1:50:D$;"CLOSE PASSWORDS.TXT"^qPP1:^0u41200^?uD$;"BLOAD DRIVER"UT$ _Au794,(MN256):795,MN(ORE MAIL.. WAIT, PLEASE.. <]":MC0:D$;"CLOSE MAIL."AN:D$;"DELETE MAIL."ANQ]oW]oi]p FIND NAME #|]pIN$""NF0:]pD$;"OPEN PASSWORDS.TXT,L60"US$:929,0:928,240 ^pX1MN:D$;"READ PASSWORDS.TXT,R"X::IN$SS$NFX:XMN::D$;"CLOSE PASSW7888:12008\o)\oD$;"CLOSE MAIL."AN\o"[A/UTO REPLY][N/EXT LETTER][R/EREAD]: ";:A$:A$:40:A$"A"A$"N"A$"R"28580\oA$"N"Ă:28590\oA$"R"YY1:\oA$"A"X$NM$28580\oA$"A"IN$X$:YTY:28025:YYT:28580K]o:"[> NO M0ı4[ho"READ MAIL? (Y/N): ";:IN$:IN$:IN$"Y"ıB[jo:Y1MC}[moD$;"OPEN MAIL."AN",L1400";ED$:D$;"READ MAIL."AN",R"Y[|o50::"FROM:]> ";IN$:X$IN$:50:"DATE:]> ";IN$::[oTTTT1[oLL[o12010:28551:28555[o38007,96:12007 \o3$;"CLOSE MAIL."PZmD$;"OPEN MAIL."P",L1400"ED$:D$;"WRITE MAIL."P",R"MP:NM$:DT$:LL:Y1LL:IN$TS$(Y):30::(3):D$;"CLOSE MAIL."PZmPANMCMPZm:"LETTER HAS BEEN SENT"ZmZnL$"E"ĺ:Zn28500ZTo READ MAIL?ZYo785,0[^o:MC:D$;"READ MAIL."P",R0":MP:D$;"CLOSE MAIL."P^Ym"THERE IS ROOM. PLEASE WRITE LETTER NOW":iYm25000YmSV0ĺ:"FUNCTION ABORTED....":Ym:"PLEASE WAIT... SENDING LETTER"ZmMPMP1:D$;"OPEN MAIL.";P;",L1400"ED$:D$;"WRITE MAIL."P",R0":MP:D$::"[> SCANNING MAILBOX <]"#Xm9Xm38007,96:28052DXm28054Xm38007,104:38008,168:38009,104:38010,166:38011,223:38012,154:38013,72:38014,152:38015,72:38016,96Xm38007:MP0:28060.YmD$;"UNLOCK MAIL."P;ED$:D$;"OPEN MAIL."P",L1400""NAME OF PERSON LETTER IS TO BE SENT TO:":50WWymSS$IN$:25:28900:NF0PNF:28040W~m:"[> NO CREMEMBER BY THAT NAME <]":Wm28950::"DO YOU WISH TO SEND A LETTER TO":"[>"IN$"<] (Y/N): ";WmA$:A$"Y"A$"N"28041WmA$"N"ĺA$:XmAARIABLES.UIN$""'.UMQ(27);.UD$(4):G$(7)R.VMSG$(40):MLNGTH0c.VCARCHK36864.VBNUM1:NMSG0:MWROTE(50),MDTE$(50)."VCCLL0.6VPNUM0:LCLL0:PW$(200).@VMCOUNT(200),TS$(31).JVMO$"":FMSG$"".TVNM$(200):PN$(200)/^VNU0/hVVU":-R30000!-R1002E-RD$;"IN#2":"AWAITING RING:";I$X-R49280,0:1002q-RI$"SYSOP"Ĺ768,123-R49280,0:49284,0-RI$"SYSOP"Ĺ768,0-RCC0:BN1-R-R CENTER TEXT USING TAB-RT$""ĺ:-R20(T$)2)-RT$;:.U INIT V5:" ";::Z+.O"PLEASE WAIT WHILE STORING INFORMATION INCAPTAIN'S LOG BOOK....."+8OD$;"APPEND LOG OF CALLERS":D$;"WRITE LOG OF CALLERS":">>>>) C@LLER #";NC;": ";NM$(AN):D$;"CLOSE LOG OF CALLERS"j,=OD$;"OPEN CALLER INFO.TXT":D$;"DELETE CALLER INF""ĺ"":20245$*O*OLC$NM$(AN)SL(AN)8ĺ(7);::"YOU JUST CALLED. DON'T HOG THE LINES. BYE!"::30000*OLC$NM$(AN)*O:24000:*$O"CURRENT LOG DATE: ";DT$*)O:T$"":21150:G$++OY125:(8);::Y12ATED YET. CALL BACK LATER."::30000) O"LAST FOUR FONE DIGITS>> ";:50:(IN$,4)(PN$(AN),4)ĺG$::"INCORRECT!":20080) OY124::) O:NCNC1:"CALLER NUMBER: ";NC) O:*O"NAME OF CREW MEMBER: ";NM$(AN):"LAST CREWMAN'S NAME: ";LC$;:LC$ER: ";:50:AN(IN$):AN0ANMNĺG$;:20080(N::"CHECKING COMBO WITH MAIN CONTOL DECK COMPUTER DATA BANK....."(O::PW$(AN)TP$ĺG$;:"INVALID ENTRY COMBINATION!":20080(OVU(AN)1ī20233,)O"SORRY, BUT YOUR PASSWORD HAS NOT BEEN VALID'N:"PLEASE WRITE YOUR COMBINATION AND ACCESSCODE DOWN. YOU WILL NEED THEM TO ENTER THE U.S.S. CARRION LATER."::"PRESS RETURN WHEN YOU ARE DONE> ";:50:'NANMN:20235'N VALIDATED PASSWORD CHECK'NTP$IN$4(N:::"ENTER AIR LOCK ACCESS NUMB16562,(16562)128nҠ&n CHAIN,n7n41100\n(4);"BSAVE TEMP.,A768,L255"MD$gn41150n(4);"BLOAD CHAIN,A520"MD$n520"MODULE I"S.TXT"'ND$;"APPEND MAILCOUNT.TXT":D$;"WRITE MAILCOUNT.TXT":"0":D$;"CLOSE MAILCOUNT.TXT"(IN$,Y,1)","(IN$,Y,1)(34)(IN$,Y,1)":"NA1:Y(IN$)::Gl RlNA0:gl( CHECK PASSWORDl2D$;"OPEN PASSWORDS.TXT,L60";US$:D$;"READ PASSWORDS.TXT,R"AN:VU:PW$:PN$:NM$:SL:TA:D$;"CLOSE PASSWORDS.TXT":$m(16562)127Ĺ16251162:"CORRECT? (Y/N): ";:50:(IN$,1)"Y"ī40600LkD$;"OPEN BBS LIST";TD$k:"SAVING NAME TO BBS LISTING...":D$;"APPEND BBS LIST";TD$:D$;"WRITE BBS LIST":P$;" .. ";N$:D$;"CLOSE BBS LIST"::"DONE...":30030k CHECK FOR ",:,,AlY1(IN$):E785,0jFDTD:STS4jHN$"BBS LIST":VTV:12000pjSL5ĺ:"YOUR SECURITY CLEARANCE IS TOO LOW...":30030j:"NAME OF BBS/AE: ";:50:IN$""ī30030j(IN$)22ĺ:"LENGTH: TOO LONG...":40600jN$IN$::"PHONE NUMBER: ";0k24100:P$IN$:255ī150i30030"i4 BBS LISTi5:"[> BBS LISTING <]"::"[>1<] READ LIST":"[>2<] ADD TO LIST":"[>3<] QUIT"::"CHOICE:[> ";:50:IN(IN$):IN3IN$""ī30030i6IN2ī40600i7IN1ī30030i>iC:T$"LIST OF BULLETIN BOARDS":21150:j02:777,(768)hǜ110#hȜ40190Chɜ799,0:1002:(791)255ıLhʜ150h˜(790)255Ĺ790,0:791,0:IN$"":L$"":110::"[> SYSOP: ON HOLD <]":D$;"IN#0":D$;"PR#0":520h̜40138h:40:768,(777):(222)255ĺ"[> SYSOP: GONE <]"i(799)g110: CHAT[g(222)255ĺ:"ERROR [>"(222)"<] AT LINE [>"(219)256(218)"<]"::g(222)255ĺ:(7);"** SYSTEM RESET **":30030gG$(7)g:CC0g110:777,(768):G$(7):gœ"[> SYSOP: PRESENT <]"gÜ:LC,128:816,128hŜ10NNCNC17!NANMN:782,(MN256):783,MN((782)256)t!NANMN:Y13:LC$(Y)LC$(Y1)::LC$(4)LC$:LC$NM$:20283!N VALIDATED PASSWORD CHECK!NTP$IN$!N::110:"ACCESS CODE:]> ";:50:AN(IN$):AN0ANMNĺG$;:20080)"N::"CHECKING...";:CD$;"WRITE PASSWORDS.TXT,R"MN:NM$:VU:PW$:PN$:SL:TA:D$;"CLOSE PASSWORDS.TXT"b N768,(777)w NY140:(8);: N"PLEASE WRITE YOUR PASSWORD DOWN. YOU":"WILL NEED IT LATER TO ENTER":"[>THE "NB$"<]"::"HIT WHEN FINISHED:> ";:50: !RD QUANTITY":D$;"WRITE PASSWORD QUANTITY":MN:D$;"CLOSE PASSWORD QUANTITY"tN782,(MN256):783,MN((782)256)NY1TB:D$;"OPEN "BN$(Y)".STAT,L4"TD$:D$;"WRITE"BN$(Y)".STAT,R"MN:0:D$;"CLOSE"BN$(Y)".STAT":R ND$;"OPEN PASSWORDS.TXT,L60"US$:>N40700:NA1ĺ:"COMMAS AND COLONS ARE INVALID...":20180mN:"HATCHWAY LOCK COMBO: ";:PW$IN$:PW$:N"AIRLOCK ACCESS CODE: ";MN::"PLEASE WAIT..."NSL0:TA0:VU0:777,(768):768,123LND$;"DELETE PASSWORD QUANTITY"US$:D$;"OPEN PASSWOFONE NUMBER OF CREWMAN: ";PN$_N:"CORRECT? [Y/N]: ";:50:(IN$,1)"Y"(IN$,1)"N"20150wN(IN$,1)"N"20100NMNMN1:NM$TN$N782,(MN256):783,MN((782)256)NANMNNNU1N:"INPUT PASSWORD:[> ";:151:IN$""IN$"NEW"20180SSWORDS.TXT"::"THAT NAME IS VALID...":20130N:G$;:"SORRY, BUT THAT NAME IS ALREADY IN USE, YOU MUST PICK ANOTHER ONE"::20115N:"FONE # [XXX] XXX-XXXX: ";:50:(IN$)14(IN$)1220130NPN$IN$N::"NAME OF CREWMAN: ";TN$N:"DER 20 CHARACTERS"::201151NIN$"BYE"ī30000IN:"[> WAIT ... <]"]N928,240:929,0ND$;"OPENPASSWORDS.TXT,L60"US$:X1MN:D$;"READPASSWORDS.TXT,R"X:SS$IN$::S1$IN$:IN$SS$:SS$S1$XMN::D$;"CLOSEPASSWORDS.TXT":20129.N:D$;"CLOSEPALUBBER"%zNIN$"LAND-LUBBER"20200=N GET NEW USER INFOjN::"TO ABORT PROCEDURE, ENTER [BYE]":N"COMPLETE NAME:[> ";:151:40700:NA1ĺ:"COMMAS, COLONS, AND QUOTES ARE INVALID"::20115NTN$IN$N(TN$)20ĺ:"PLEASE KEEP LENGTH UN) 4N20'7N(798)1(798)4Ĺ798,1:9NVTV:DTD:STS{>NN$"WELCOME"((798))".TXT":12010:12005:(798)3Ĺ798,0RN:SM$;fN110kN804,0:806,0pN110:HC,95128:::"COMBO:['NEW' FOR NONE]:> ";:50qNHC,0uNIN$"NEW"IN$"LAND-F USER YOU WILL BE, YOU SHOULD BE VALIDATED BY 24 HOURS..";:Y110:(10);:dG"BYE":30000 N GREETINGS MESSAGE AFTER ANSWER!NLC816:LC,123"N10000#N837,220:838,173:839,175:840,161$N841,0%N798,(798)1*N110/NG$(7P$:"CITY: ";A$:"COMP: ";C$:"MODM: ";M$:" AGE: ";AG$IF"CMNT: ";CM$OFmFD$;"CLOSE USER INFO.TXT"F:"INFORMATION HAS BEEN SAVED..."F20RG:"IF ALL THE INFORMATION YOU HAVE GIVEN IS SUFFICIENT FOR THE SYSOP TO ASCERTAINWHAT TYPE ODATED VIA FONE ]":OF"ES OR O: ";:MK0:145:IN$"Y"IN$"N"ī18110cFIN$"N"ī18000F:"PLEASE WAIT WHILE SAVING INFO..."FD$;"APPEND USER INFO.TXT"US$:D$;"WRITE USER INFO.TXT"7F"USER: ";AN:"HNDL: ";NM$:"NAME: ";N$:"FONE: ";ANTITY":D$;"READ "BN$" QUANTITY":MQ(Z):D$;"CLOSE "BN$" QUANTITY":S2Y2Y PRINT INITIAL MESSAGE FOR VALED USERS2Y::D$;"OPEN OPEN MESSAGE.TXT":D$;"RLTE.TXT"p1VD$;"OPEN MAILCOUNT.TXT":D$;"READ MAILCOUNT.TXT":Y1MN:MC(Y)::D$;"CLOSE MAILCOUNT.TXT"1VBN$(27):BN11VD$;"OPEN BOARD NAMES":D$;"READ BOARD NAMES":Y127:BN$(Y)::D$;"CLOSE BOARD NAMES"M2VZ127:BN$BN$(Z):D$;"OPEN "BN$" QU:NM$(X)IN$:50:SL(X)(IN$):50:TA(X)(IN$);0uVH0vV7v8,123f0wVD$;"CLOSE PASSWORDS.TXT"0|V:D$;"OPEN CALLER INFO.TXT":D$;"READ CALLER INFO.TXT":NC:LC$:D$;"CLOSE CALLER INFO.TXT"1V:D$;"OPEN DATE.TXT":D$;"READ DATE.TXT":DT$:D$;"CLOSE DA(200),TA(200),SL(200)|/jVD$;"OPEN PASSWORD QUANTITY":D$;"READ PASSWORD QUANTITY":Y:D$;"CLOSE PASSWORD QUANTITY"/kVMNY/lV768,123/mV:D$;"OPEN PASSWORDS.TXT":D$;"READ PASSWORDS.TXT":X1Y50rV50:VU(X)(IN$):50:PW$(X)IN$:50:PN$(X)IN$:5I