' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL`8ᷭ緍췩 i 8 ` 鷎귭෍ᷩ췩緈JJJJx i L B H@Aﳈ  @A ਦ@A LL$巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV% [l^ eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZL?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-U@Ϡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED J / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH ؿ E𳈈췍Ȍ X0 · LǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d֠ĭz#":13:"PRESS ."!910*V5<(16387)730u" TO CHANGE THE NAME OF THE ";Q$;"HELLO";Q$;" FILE"" OR ITS ";Q$;"RUN";Q$;" COMMAND (RUN/BRUN/EXEC)"12"PRESS ."736"AFTER BOOTING THIS DISK WILL:":N BE SET TO ";Q$;"YES";Q$;" AT ONCE.";:910d"ITEMS MARKED ";Q$;"??????";Q$;" ARE UNCHANGEABLE."S24:6:"PRESS TO CONTINUE ";:A$:W25016387,0900V12V910V1:6"INSERT DISK TO BE UPDATED ANDTION SPACE INSIDE DOS, ALL ENHANCEMENTS CANNOT BE TURNED ON AT THE SAME TIME.":_91014:"IN PARTICULAR, ONLY TWO OF: <6> PRINT DISK FREE SPACE <7> PRINT BINARY FILE ADR & LEN <8> INIT SAVES DOS & HELLO FILE"13+"CA483,499$DING:YN(11,0)031252/31253DYN(8,1)487,499UDING:31270jYN(9,0)495,499YN(9,1)493,499DING:43273,65:YN(9,1)497,499DING:43273,33:900910015V"BECAUSE OF THE LIMITED INSTRUC5,499YN(6,1)463,4996DING:YN(10,0)031202A31203VYN(6,1)467,499gDING:31220|YN(7,0)475,499YN(7,1)473,499DING:YN(10,0)03122731228YN(7,1)477,499DING:31240YN(8,0)485,499YN(8,1)41992,120:41993,157:,YN(4,1)447,499YDING:41991,141:41992,188:41993,181:nYN(5,0)455,499YN(5,1)453,499DING:47732,142:47733,0:47734,224:YN(5,1)457,499DING:47732,234:47733,234:47734,234:YN(6,0)46YN(2,1)423,499!DING:311326YN(2,1)427,499GDING:31140\YN(3,0)435,499qYN(3,1)433,499DING:31152DING:L48367:31158YN(3,1)437,499DING:31160YN(4,0)445,499YN(4,1)443,499DING:41991,76:(A$)9YN(8,0)1İ10015:280M,DING:32,34:33,6:34,9:35,20:9:38::|6(A$)410,420,430,440,450,460,470,480,490J275YN(1,0)415,499YN(1,1)413,499DING:31105YN(1,1)417,499DING:31120YN(2,0)425,499LANGUAGE CARD RELOAD...."G 17:"<6> PRINT DISK FREE SPACE........."u 18:"<7> PRINT BINARY FILE ADR & LEN..." 19:"<8> INIT SAVES DOS & HELLO FILE..."21:9101000V23:915A$(27)200"(A$)1(A$)9İ10015:280'10015:215 120:900# :910) a 10:"<1> ";Q$;"TYPE";Q$;" COMMAND ACTIVE........." 11:"<2> KILLS CATALOG........" 12:"<3> KILLS EXECS & READS....." 14:"<4> AUTOMATIC VERIFY AFTER SAVE..." 15:"<5> FORCE  900# 10:15:"BEAGLE BROS"@ 12:"4315 SIERRA VISTA"_ 11:"SAN DIEGO, CA 92103"l 15:910 16:"<1> ENHANCEMENT MENU":"<2> UPDATE DOS ON EXISTING DISKS" 910 V21:915 A$"1"250 A$"2"700 A$(27)9990 ZED.":# nYN(11,1):10000:(21)I sD$(4):D$;"BLOAD PDE.OBJ0":200] x(43753)201ıf z900n {12y |14:8 }"CAN'T EXECUTE ENHANCEMENTS.": ~10:"PRONTO-DOS NOT ACTIVE." 10015 23:6:"PRESS TO CONTINUE ";:A$:"??????": 2:Q$(34)- <(978)157100 F" CAN'T EXECUTE ";Q$;"PRONTO-DOS ENHANCEMENTS";Q$;". DOS NOT AT NORMAL 48K LOCATION.": d(44184)157(44184)177110 i" CAN'T EXECUTE ";Q$;"PRONTO-DOS ENHANCEMENTS";Q$;". ACTIVE DOS NOT RECOGNI0: CC1YN(N,Q)1 < DING:9N(N3)(N5):35l YN(N,0)0YN(N,1)2ĺ"YES/";::"NO";:: YN(N,0)1YN(N,1)2Ğ:"YES";::"/NO";: !YN(N,0)0YN(N,1)2ĺ"----";::"NO";:: "YN(N,0)1YN(N,1)2Ğ:"YES";::"---";: #/ ------------------------- PRONTO-DOS ENHANCEMENTS (C) 1982 TOM WEISHAAR PUBLISHED BY: BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ------------------------- 50C0:I0L1:CC(AI)::YN(N,Q)2 CC0YN(N,Q)               ,0:DING&yL31,96:#&yX0:I106&yI4314043271P&y(I)128XX1:DINGg&yX27I1I:I43271s&y:DING'yI10I1(A$)43271ė:11:"CAN'T ACTIVATE ";C$;".":"NO ROOM IN COMMAND TABLE.":10015:23:6:"PRESS TO CONTINUE ";:A$:7:DING\%yL7,253:L8,32:L9,239:L10,188:L11,208:L12,248:L13,76:L14,234:DING%yL15,162:L16,173:L17,0:L18,192:L19,201:L20,155:L21,240:L22,3:DING&yL23,76:L24,140:L25,166:L26,141:L27,16:L28,192:L29,169:L3016336)::K150:8$%'K15:ZZ(16336)(16336)::$|y "TYPE" COMMAND ACTIVATE=LINE 31105 INACTIVATE=LINE 31120 NORMAL LOCATION=48351 ($BCDF) $yL48351:C$"TYPE":T116%yL0,32:L1,198:L2,165:L3,169:L4,141:L5,32:L6,2330:##'10015:I13:::10015:H#'DING947:IDING975:J:I,J::#' 32,74,255,160,20,152,32,200,3,73,138,32,200,3,136,208,244,32,63,255,96,170,202,208,253,44,48,192,96#'951,150:957,234:DING:951,20:957,138:$$'K15:ZZ(16336)(YN(I,1)2"4:1090-"8I68:YN(I,1)0:>"BN68:30:I"D20:1"FYN(8,0)0ĺ" ":"G"<9> MODIFY INIT SYNTAX............";"HYN(9,0)2"I(43273)33YN(9,0)0"J(43273)65YN(9,0)1#KN9:1:25:YN(N,Q)1YN(10,0)1;!'C257YN(N,Q)1:YN(11,0)1c!(N8:Q0:A42344:L1:C076:C132:25w!)YN(8,0)01070!*N10:Q1:A44803:L2:C00:C10:25!+C361YN(10,0)1!,C257YN(11,0)1!.YN(10,0)0YN(11,0)01080 "3I68:YN(I,0)047:C00:C10:25:C7638C6274C7227YN(10,0)0{ "N11:Q0:A46922:L47:C00:C10:25:C7638C6170C7019YN(11,0)0 $N6:Q0:A44481:L2:C0240:C1361:25:YN(N,Q)1YN(10,0)1 %C257YN(N,Q)1:YN(11,0)1!&N7:Q0:A41868:L2:C0277:C1361318:2530;N3:Q0:A42545:L2:C0306:C1427:25aQ1:A48351:L31:C00:C14478:25i 30N4:Q0:A41991:L3:C0510:C1353:25YN(N,1)130N5:Q0:A47732:L3:C0702:C1366:25YN(N,1)1302 N10:Q0:A46771:L10020:V:10:A$:V:1:" ";:aCHECK AND FILL IN Y/NN1:Q0:A40276:L2:C0286:C1410:25Q1:A48351:L31:C00:C14478:2530N2:Q0:A44602:L2:C0265:C1321:25 Q1:A47751:L11:C00:C1700:2:-11:": :"L11:" PRONTO UPDATE "k11:": :"s:10:"(C) 1983 TOM WEISHAAR":"----------------------------------------":FV:1:"SELECT: < > TO EXIT";:S DISK WAS ORIGINALLY INITIALIZED".K15:13FL"WITH PRONTO-DOS."QM17:3~N"IT CANNOT BE UPDATED TO STANDARD DOS."P880\915:A$(27)890aA$(13)805f10015:860p23:7r"TO CONTINUE PRESS . ";tA$z:"REMOVE AND REINSERT DISK"(916:12C:"AND PRESS ."L<860W>13:3b?10015@"THIS DISK WAS ORIGINALLY INITIALIZED"A15:16B"WITHOUT DOS."C17:11D"IT CANNOT BE UPDATED."F880H13:3I10015"J"THI:" UPDATING DISK ": %16384D':F(16388):F810,820,830,840M(890X*14:6c+10015,"THIS DISK IS WRITE-PROTECTED.".16:20"PLEASE REMOVE TAB AND PRESS ."2860414:165100156"I/O ERROR"715:98$"" V23:915$A$(27)700JA$"R"A$"r"C$"RUN ":16387,6rA$"B"A$"b"C$"BRUN ":16387,52A$"E"A$"e"C$"EXEC ":16387,20C$""İ10015:780I130:16388I,((F$,I,1))128:702 34,6:"19:13$LLO";Q$;" FILE:"116:5:"<";:36:">":10020C16:6:"";F$ZF$""İ10015:762vI(F$)30:F$F$" ":(F$)30F$(F$,30)90013"SHOULD THIS FILE BE?:":" UN"" RUN" " XECED" C 4:C$;F$222:20:" TO CHANGE"H(44184)157740S10:3:" DISK WILL BE UPDATED TO APPLE DOS ":V23:915A$(27)200A$(13)800A$" "İ10015:74090014"ENTER NEW NAME FOR ";Q$;"HE70,0:DING$6 zL71,0:L72,0:DINGe6!z42344,32:44723,12:44749,216:44750,191:44793,5:43273,336#z44804,L256:44803,L((44804)256):6&z42344,76:44723,4:44749,251:44750,175:44793,11:7------------------------- PRONTO-DOS E,141:DINGb5zL47,241:L48,183:L49,169:L50,10:L51,141:L52,225:L53,183:L54,56:DING5zL55,233:L56,1:L57,141:L58,255:L59,182:L60,141:L61,237:L62,183:DING 6zL63,32:L64,147:L65,183:L66,96:L67,0:L68,0:L69,0:LDINGZ4zL23,183:L24,169:L25,0:L26,141:L27,237:L28,183:L29,169:L30,2:DING4zL31,141:L32,244:L33,183:L34,32:L35,147:L36,183:L37,169:L38,182:DING 5zL39,234:L40,141:L41,254:L42,182:L43,24:L44,105:L45,9:L465 3zL46771U3zL0,173:L1,231:L2,183:L3,56:L4,237:L5,241:L6,183:DING3zL7,141:L8,225:L9,183:L10,173:L11,231:L12,183:L13,141:L14,241:DING4zL15,183:L16,206:L17,241:L18,183:L19,169:L20,2:L21,141:L22,236:45,218:L46,253:DINGA2z41869,L256:41868,L((41869)256):T2zL42097:312362z INIT SAVES DOS & HELLO FILE ACTIVATE=LINE 31252 INACTIVATE=LINE 31270 NORMAL LOCATION=46922 ($B74A) ALTERNATE LOCATION=46771 ($B6B3) 3zL46922:312522,174:DINGf1zL23,114:L24,170:L25,172:L26,115:L27,170:L28,76:L29,113:L30,164:DING1zL31,32:L32,237:L33,253:L34,169:L35,164:L36,32:L37,237:L38,253:DING2zL39,152:L40,32:L41,218:L42,253:L43,138:L44,76:L:L2,253:L3,169:L4,193:L5,32:L7,(L31)256:DING0yL6,(L31)((L7)256):L8,32:L9,72:L10,249:L11,169:L12,204:L13,174:L14,96:DING 1zL15,170:L16,172:L17,97:L18,170:L19,32:L21,(L31)256:L20,(L31)((L21)256):LL256:44481,L((44482)256):2/yL44610:31215/y PRINT BINARY FILE ADR & LEN ACTIVATE=LINE 31227 INACTIVATE=LINE 31240 NORMAL LOCATION=46771 ($B6B3) ALTERNATE LOCATION=46922 ($B74A) /yL46771:31230/yL4692290yL0,32:L1,14249,16:L50,247:L51,173:L52,0:L53,224:L54,168:DING.yL55,166:L56,64:L57,165:L58,65:L59,192:L60,32:L61,208:L62,3:DING.yL63,76:L64,27:L65,229:L66,76:L67,36:L68,237:L69,189:L70,211:DING.yL71,198/y44482,8,230:L29,64:L30,208:DINGu-yL31,2:L32,230:L33,65:L34,202:L35,208:L36,244:L37,136:L38,208:DING-yL39,236:L40,160:L41,2:L42,185:L44,(L69)256:L43,(L69)((L44)256):L45,32:L46,237:DING;.yL47,253:L48,136:LȹL4,72:L5,249:L6,169:DINGr,yL7,0:L8,133:L9,64:L10,133:L11,65:L12,172:L13,239:L14,179:DING,yL15,136:L16,152:L17,10:L18,10:L19,168:L20,162:L21,8:L22,185:DING-yL23,246:L24,179:L25,10:L26,144:L27,6:L25,L((42546)256):'+yL42636:31158+y PRINT DISK FREE SPACE ACTIVATE=LINE 31202 INACTIVATE=LINE 31220 NORMAL LOCATION=46771 ($B6B3) ALTERNATE LOCATION=46922 ($B74A) +yL46771:31205+yL46922,yL0,32:L1,66:L2,174:L3,32:11,208:L112,248:L113,76:L114,234:DING*yL115,162:L116,173:L117,0:L118,192:L119,201:L120,155:L121,240:L122,3:DING*yL123,76:L124,140:L125,166:L126,141:L127,16:L128,192:L129,169:L130,0:DING+y42546,L256:4254ROL-C KILLS EXEC & READ ACTIVATE=LINE 31152 INACTIVATE=LINE 31160 NORMAL LOCATION=48367 ($BCEF) )yL48367:L148351)yL10,32:L11,198:L12,165:L13,169:L14,141:L15,32:L16,237:DING-*yL17,253:L18,32:L19,239:L110,188:L1VATE=LINE 31140 NORMAL LOCATION=47751 ($BA87) >(yL47751(yL0,32:L1,12:L2,253:L3,201:L4,131:L5,208:L6,3:DING(yL7,76:L8,127:L9,179:L10,96:DING(y44603,L256:44602,L((44603)256):(yL64780:DING:31137m)y CONT:250X'yI1(C$)1:I1I,((C$,I,1)):DING::I1(C$),128((C$,1)):I1(C$)1,0'y40277,(L1)256:40276,(L1)((40277)256):43328,T:'yL41597:C$"VERIFY":T112'y311122(y CONTROL-C KILLS CATALOG ACTIVATE=LINE 31132 INACTINHANCEMENTS (C) 1982 TOM WEISHAAR PUBLISHED BY: BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ------------------------- ?B@_B`UB詷L詷  `@L BA OAAAAAAAAA@B )BQBB𷩿 ᷈ ?B+췩 ?B@@u0"@L B췩 )BBu췩᷈ ?B췠᷈@UL#@@`ɝ ɱ @`ЍAA鷽  @`BB_ B_BABBӍ췍 )B@L BTC @L BC<'QC- A OAA-ՍA&A  z#     Ӡ ɠԠϠŠӠ͠Ϡ1ŮʰϭӠ ؠ "BRUN MS. PAC-MAN"========= PRONTO-DOS COPYRIGHT (C) 1982 TOM WEISHAAR PUBLISHED BY BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ====================== (49152):3:I9055162231024:I,255::I199::I9055162231024:I,0::I199::K128100 n49168,0::K("D")128ĺ(4);"NOMONICO"::20:"RUN HI-RES DEMO"::(4);"RUN HI-RES DEMO" xY1123:::20:: ============= ====================== PRONTO-DOS COPYRIGHT (C) 1982 TOM WEISHAAR PUBLISHED BY BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ====================== Z49385,0:::230,32:62450::49234,0:(4);"BLOAD PIC.PRONTO LOGO"` dK  TE & ZIP: ";:560:M2$(4)Q$d :"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:(Q$,1)"N"ĺ:2300 (Q$,1)"Y"ĺ"6$,1)"0"2540R"DO YOU WANT TO BE ON OUR MAIL LIST? ";:560:(Q$,1)"Y"2360p (Q$,1)"N"ĺ:U60:2540|$ :23008 :M2$(1)N1$" "N2$:" NAME: "M2$(1)L "STREET ADD.: ";:560:M2$(2)Q$` " CITY: ";:560:M2$(3)Q$t "STA0)"F/C":2280f"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? ";:560:(Q$,1)"Y"22807820(NBR$"[ NULLS ] ":3F$"NW.NULLS.SYS":3420o :"ENTER VALUE (3-250) ";:560:(Q$)3(Q$)2502060 1528SM,((Q$)):1912SM,224:"[ DONE ]"HRT77820\RT814440p (F)EEDBACK/COMMENTS SI5,95:M3$(0)"F/C"M3$("PR#"SM 01300;DSTCN$"[ NOT CHOSEN ]":1960bXE6E6T6:E60E660(E6):E5E51lE5E5T5:E50E560(E5):E4E41E4E4T4CN$(E5)" MIN., "(E6)" SEC."34:1:(CN$,1,6):24:1 (N)ULLS OPTION :E212E4E2122AP$" AM":E211AP$" PM"ECONVERT MONTHt,T3$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"@T3$(T3$,E132,3)TT1$"--> "T3$" "(T1$,4,2)" "(E4)":"(T1$,10,2)":"(T1$,13,2)AP$h1800|D$"IN#"SM:D$STı(4).((4)"PR#"ST:D$"IN#"STE<CK1380,1460,1680KPXd"%";T1$sx"#";E1,E2,E3,E4,E5,E6}1800" ";T1$E1((T1$,2)):E3((T1$,4,2)):E4((T1$,7,2)):E5((T1$,10,2)):E6((T1$,13,2))E2E4:E20E412ME : ";N1$;" ";N2$W`2:"PHONE NUMBER : "N4$;35)"(";:(US$,8,1)"N"ĺ"NEW)":1160ct"REG)"3:"---------------------------------------"4:N3$;"-#";LN;"-"N6$;27);"- PAGE ON ";::"OFF":5:BR$24D$"PR#"SM:"[ TIME CLOCK IS ON ]":7820Q"TIME CLOCK DISPLAY IS NOW --> OFF <--":7820WeD$"PR#0"$(T2$,5,6)(N5$,6)(N5$,1)"*"N6$(N6$,3)"01"(N6$,6)834,6:I16:I:" ":IL1:"CALLER'S NASTı \EL1EL0:1000Q pEL1:"TIME CLOCK DISPLAY IS NOW --> ON <--":: " TODAY'S DATE IS: ";(T1$,10);", ";YR$ " CONNECTION MADE: ";(T2$,11) 1300:" CURRENT TIME IS: ";(T1$,11) 1840:" ELAPSED TIME IS: ";CN$80,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"ī6000  4 @ H3: -APPEND FIX H CA(XK$):X119:BR$BR$"+-"::BR$BR$"+"(13)h M1$(1)"<<< NONE >>>":SXSM NW0:GOSUB3160 TO GET TITLES BEFORE CALL COMES IN 3880  0SI2,0:TE0 D XSI1,C2:SI7 lQ$" " (SI)1780,760,660,6S"S",D"D",V"V:D$"READ"F$",R0":LN:LN:LN:D$"CLOSE"@ h3800 |F$"LOG.USER":D$"OPEN"F$",S"S",D"D",V"V:D$"READ"F$:XK$:D$"CLOSE" VW200:KM95:SI4,SM:SI5,KM:SI6,VW NW$(100),M1$(30),M3$(30) 768,169:769,0:770,76:771,237:772,25RUCTIONS BEFORE CONTINUING...":( . 4 : s ,F$"NW.CONFIG.SYS":D$"OPEN"F$:D$"READ"F$:YR$:PT$ -X15:S(X):D(X):V(X)::X0 .PX:SM:ST:CK:SO$:D$"CLOSE":DV1 6SS(1):DD(1):VV(1)5 TF$"NW.USERS.SYS":D$"OPEN"F$",L64, 27904d-s47101,250:47102,241xS6:D1:V0::(4)"NOMON I,O,C":(4)"BLOAD NW II-2.3.OBJ,A$9300,S"S",D"D",V"V:::14480:RD27904:SIRD3:D$(4)200300 D$"CLOSE"::"FILE STRUCTURE INCORRECT! PLEASE READ":"INSTLOSE":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:7500& NEW USER LOG ON 'F$"TP.LOG j::A$"N"4210B%kA$"R"ĩ150:L1NW1:NW$(L)::255:4200l%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):4165H&|NW0::D$"NOMON I":D$"C744:744#$E744:(Q$,1)"Y"4180^$JNWNW1:NW$(NW)(IN$,1):(NW$(NW),3)"-- "NW14200r$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"4201%$;"PR#0":D$;"IN#0":PT$;" PROGRAM TERMINATED":47101,239:47102,216:V#SMSH:3880p# 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$:NW0:"SM:1912SM,2:W$"T"5360-"W$"D"400007"4000t"W$"E"EX1:Q01:N1$"SYSTEM":N2$"OPERATOR":U69:9600"W$"L"4120"W$"C"ĺ(7):"CLEAR LOG? ";W$:(W$,1)"Y"3800"W$"R"ĺD$"TYPE RECCOM"::"PRESS A KEY..":W$:F#W$"Q"ĺD:::D$"PR#"SM:D$"IN#"SM:D$"TYPE WAIT":"!";:7)LN;:31)CA;:39:"!":"+-------------------------------------+"::"WAITING FOR RING";:W$:::C2(1656SM):C2127Ĺ1912SM,6:5360:!x LOCAL KEYBOARD ENTRY "SHSM:SM0:C20:D$"PR#"SM:D$"IN#EN"F$",S"S",D"D",V"V:D$"DELETE"F$:XK$"000":D$"OPEN"F$:D$"WRITE"F$:XK$:D$"CLOSE"b SO7940r CA1:7100  SYSTEM STANDBY (54915:Z(0):SS(1):DD(1):VV(1) <6020 PD$"IN#0":D$"PR#0":1625116SM,0:PAGE 76 M/M UDDD0!dIF NOT (EX) THEN POP : GOTO 8800 3$R8 STOP/START/ABORT INFO zL"[ PRESS ANY KEY TO END ]":""::` PAGE SYSOP BELLS tSYĺD$;"PR#0":BL15:(7);:::D$;"PR#";SM NEW CALLER LOG U F$"LOG.USER"::D$"OP207p SI5,KM::D$"MON I":D$"OPEN"F$",S"S",D"D",V"VG D$"READ"F$T RD:QUIT^ 3480 :D$"NOMON I":D$"CLOSE":SI5,95 7820 RT7500,4380,7880,8940,7820,9360,2060,2060,10620,10500,7820,5410,6220,35000 LOCK OUT TEST - E"F$:"000":D$"CLOSE":11940U D$"OPEN"F$",S"S",D"D",V"V:D$"READ"F$:W$:NW(W$) :"THERE ARE ";NW;" ACTIVE MESSAGES":PP1PP0:3380 "[WAIT]"::D$"READ"F$ AM1NW:NW$(AM): D$"CLOSE"4 H GENERAL FILE READER \ 35NW0PP1:33002 F$"NW.TITLES."(DV):3280 (222)5ĺ:D$"CLOSE":D$;"IN#0":D$;"PR#0":1625116SM,0::11:"DISK ERROR #";(222);" * AT LINE #";(218)(219)256:7820 54915:D$"OPEN"F$",S"S",D"D",V"V:D$"DELETE"F$:D$"OPEN"F$:D$"WRIT"-CURRENT LINE:":M1$(L1)::"-ENTER NEW LINE:":560:M1$(L1)Q$_ L11M1$(L1)(13)M1$(L1)i 2960 Q1$"F"M1$(1)"<<< NONE >>>"M3$(0)"":3120 Q1$"F"L3L:L11L3:M3$(L1)M1$(L1):0 SI5,95:D READ BB TITLES X 3240 (Q$,1)"A"(Q$,1)"a"ĺ:"[ CONTINUE YOUR MESSAGE ]":2640Gh 2820r| :L11L:"- LINE ";L1;":":M1$(L1): :"[ KEY WHEN DONE EDITING ]" "EDIT WHICH LINE #";:560:L1(Q$):(Q$)12820 (Q$)Lĺ"TOO HIGH..."::2980? : :L11L:M1$(L1):~ :"Q)UIT, S)END, L)IST, F)IX, A)DD, N)EW":" WHICH ONE? ";:560:(Q$,1)"L"(Q$,1)"l"2780 (Q$,1)"Q"ī7820 (Q$,1)"S"(Q$,1)"s"3080, (Q$,1)"N"(Q$,1)"n"2560@ (Q$,1)"F"(Q$,1)"f"2940=T T 4 LINES LEFT"P L302680(d 2600Kx L0L1:M1$(L)"<<< NONE >>>"g (M1$(1),1)(13)2740 M1$(1)"<<< NONE >>>"M1$(1)(13)M1$(1) M1$(1)"<<< NONE >>>"3080 2820 :"MESSAGE READS: ";:M1$(1)"<<< NONE >>>"ĺM1$(1):2820THANK YOU."::BR$:U61:2540' 2480A "[ ENTER FEEDBACK ]"G  :SI5,KM:"[30 LINES MAX, WITH WARNING AT LINE 26]":"[ /EX WHEN FINISHED ]"::L0( LL1:560:Q$"/EX"Q$"/ex"LL1:Q$"":2680< M1$(L)Q$:L28ĺ(7)"--> WARNING , JUS(N5$,1)"*")(((N6$,3))1)US$" *** NOT VALIDATED SINCE "(N5$,6)" ***"y6#TEM1ĺ"[ CALLING TIME OVER 15 MIN ]"6(US$:" ":"[ CALLER NO.]";LN:"[ NAME: ]";N1$;" ";N2$:"[ PASSWORD: ]";N3$:"[ PHONE NO: ]";N4$:" "`7<(U61)(M2$(2)"")N"F$",S"S",D"D",V"V:D$"WRITE"F$:XK$:D$"CLOSE":CA1d5D$"APPEND"F$",S"S",D"D",V"V:D$"WRITE"F$5" ":"-- ";(T2$,10);" ------------------------"5" ":" CONNECTION MADE: ";(T2$,11)5" CONNECT TIME IS: ";CN$5WP$""ĺWP$N6(`D$;"IN#0":D$;"PR#0":C20:1625116SM,0:N1$""N2$""N3$""7100d4tSO1M3$(0)"F/C"6740o471004F$"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"65F$"LOG.USER":D$"OPE43203p DISCONNECT CALL L354915::SS(1):DD(1):VV(1):SM0SMSX3N1$"SYSTEM"N2$"OPERATOR"N1$"":N2$"":CA13N3$""N1$"":N2$"":62403:::BR$:18403RT13:F$"TP.LOG OFF":3420333383LJ15::G45:4360(2(Q$,4)(N4$,4)EX1:586062K15780a2(7):"ON-LINE: ";N1$;" ";N2$:LNLN12(N5$,1)"*"SO$N1$" "N2$N1$"":N2$"":N3$"":62202 SO$N1$" "N2$N3$N7$SO1:59402 SO024US$"[NON NEW CALLER]"2H10403\54915:E 2 - RETYPE ENTRY.E10WP$" *** WRONG P.W.: "N7$" ***":Q$"NEW"b1D:"[LOG ON NEW CALLER]"1X"[ACCOUT HAS BEEN CANCLED]"1l54601K01:"[LAST 4 DIGITS]":"";(N4$,8);:SI3,1:560:(Q$,4)(N4$,4)KK1:"[WRONG]"(7)2K1Č5491W.USERS.SYS,R";((N7$,2))T0744:N1$(IN$,1):744:N2$(IN$,1):744:N3$(IN$,1)0744:N4$(IN$,1):744:N5$(IN$,1):744:N6$(IN$,1):D$"CLOSE"0N3$N7$56400:57600D$;"CLOSE"0(7)"[ACCESS WRONG]"::KK1:K354401 STRIKEW"::"[ ENTER ACCOUNT ]":/,(XK$)3XK$"0"XK$:5420Q/@":";:SI3,1:560c/A(Q$)35440/TN7$Q$:N7$"GUEST"EX0:5980/hUFUUFU1:UFU5Ĭ/i:"CHECKING ACCOUNT WAIT.../|56200D$"OPEN NW.USERS.SYS,L64,S"S",D"D",V"V:D$"READ NALLER ).K0:EX0:1912SM,22:" ":" "/.5.}.1300:T1E1:T2E2:T3E3:T4E4:T5E5:T6E6:T2$T1$:CACA1:XK$(CA).I140:""::"PRESS RETURN"::":";:560.RT12:F$"TP.LOG ON":3420::"ENTER 'GUEST' IF NEW":/""ENTER 'GUEST' IF NN3$:N4$:N5$:N6$!-PD$"CLOSE"-x:"PLEASE READ MSG. #1 ON BULLETIN BOARD.":"PRESS KEY TO ENTER SYSTEM ";:560-LNLN1:EX0:N3$"<<< NONE >>>"N5$(T2$,5,6)"*"-US$" *** NEW CALLER ***"-1040-7460. IDENTIFY C(A) ,A86,A795020-,N3$N3$(A)c,N3$:" ":D$"OPEN NW.USERS.SYS,L64,S"S",D"D",V"Vy,Q$"EMPTY "5140,D$"WRITE NW.USERS.SYS,R0":NP1:LV:LN,D$"WRITE NW.USERS.SYS,R";NP,(N5$(T2$,5,6)"*":N6$"00101000000"-<N1$:N2$:NW.USERS.SYS,R";BX:744:744:744<+744:744:C5$(IN$,1)j+(C5$,5)"EMPTY"NPBX:Q$"EMPTY ":4880p++D$"CLOSE"::"YOUR PASSWORD ASSIGNMENT IS: ";+$A(6)+8A794900: NO "O"'S+LN3$(A)(NP)+`A67+tA794960,N3$N3$GET YOUR PASS PLEASE DONT ]":" [CALL BACK]"Y*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 WITH GOTO4880 TO START FROM END *BXLVNP!+D$"READ ";:560:(Q$,1)"Y"4380\)"LEAVE FEED BACK TO SYSOP TO GET A VALID ACCOUNT..":N4$" "w)"PHONE#";:560:N4$Q$) 4660) (N4$)12ĺ:(7)"INCORRECT FORMAT":4600)4)H"** NO PASS ISSUED **":N3$"<<< NONE >>>":5260;*\:"[IF YOU FORTOR"4380f(:"YOU ENTERED: ";N1$;" ";N2$;:(N1$N2$)5ĺ"???":"...NICE TRY, BUT NO CIGAR!":4380((N1$" "N2$)22ĺ:"PLEASE SHORTEN YOUR NAME -UNDER 23 CHAR":4380(N1$"FRANK"N2$"RACHI"ĺ"READ YOUR MAIL FRANK!!!"::)::"[CORRECT]ON2":RT2:3420&':"[ OFF=LEAVE ]"1'04380k'DN1$"":N2$"":N3$""::"[ FIRST NAME ]";:560:N1$Q$'X(N1$)04380'l(N1$,1)(32)N1$(N1$,(N1$)1):4460'"[ LAST NAME ]";:560:N2$Q$'(N2$)04380 (N1$"SYSTEM"N2$"OPERAQ1$"S"ĭDV2DV4DV5DV8SS(3):DD(3):VV(3):11220IF Q1$"T"840wF Q1$"W"F$"NW.BULLETINS.SYS":RT5:3420F !Q1$"X"Q01Q00:"EXPERT USER MODE IS --> OFF":7820F !Q1$"X"Q00Q01:"EXPERT USER MODE IS --> ON ":7820G4!Q1$"Y"7169001E Q1$"P"DV2SS(3):DD(3):VV(3):11900oE Q1$"P"ĭDV2DV4DV5DV8SS(3):DD(3):VV(3):11900E Q1$"R"36000E E E Q1$"S"ĭDV1DV3DV6DV7SS(2):DD(2):VV(2):11220E Q1$"S"DV2SS(3):DD(3):VV(3):112208F *DD Q1$"H"F$"NW.HELP.SYS":RT11:3420SDX Q1$"I"F$"NW.INFO.SYS":RT5:3420eDl Q1$"K"8700D Q$"M"ĺ"MAINTENENCE PASSWORD:";:560:Q$"LISA"Q$"MARIA"ī35000D Q1$"N"RT7:2020E Q1$"P"ĭDV1DV3DV6DV7SS(2):DD(2):VV(2):11K1$KY$:KY$""C|CL0:" ".CQ1$"?"78409C7820KCQ1$"A"9260_C(49249)160ĀqCQ1$"B"8860CQ1$"C"İ8980CQ1$"D"SS(5):DD(5):VV(5):13120CC Q1$"E"SS(4):DD(4):VV(4):9420C Q1$"F"2180D0 Q1$"G"1044040:"CONNECTED: ";CN$$BSO8040=BSS(1):DD(1):VV(1)nB"[ SYSOP: N)ETWORKS, L)OG, A)PPLE: ]";:560B(Q$,1)"N"8040B,(Q$,1)"L"4120B@BT7940ChSS(1):DD(1):VV(1):SI5,95:":";:560:Q1$(Q$,4):KY$KY$";"Q1$:(KY$)150L ]":7820?AP"[ YOU HAVE ";J1;" PIECE(S) OF MAIL WAITING ]"\Ad:"[ USE 'E' TO READ ]"qAx SYSTEM MENU ASI5,95:SI6,VW:Q07880A54915::BR$ASS(1):DD(1):VV(1):F$"NW.MENU.SYS":RT3:3420B54915:D$"CLOSE":BR$:3700:ELİ18OR TODAY."!@(N5$,1)"*"7820:@ AUTO MAIL CHECK ~@(N6$,1)"0"ĺBR$:"[ VALIDATION WILL OCCURE IN 24-48 HOURS ]"@7740@SS(4):DD(4):VV(4)@J15@D$"UNLOCK E";J;".";N1$;" ";N2$",S"S",D"D",V"V@(J A<" ":J1ĺ"[ NO MAI((N6$,1)):N5$" "N5$(T2$,5,6)"*"D?` LIMITED ACCESS CHECK e?tBX0:(N5$,1)"*"EX0:Q00?PX((N6$,4,2))ĺ:"[ CALLED OVER LIMIT ]":6020 @PX((N6$,4,2))ĺ(7):"* WARNING - THIS IS THE LAST PHONE CALL":" YOU CAN MAKE F[ UPPER & LOWER CASE ]"!>7820A> CONNECTION ESTABLISHED >$BR$::" ":"[ Welcome to the Warelords Board ]":" ":" [ A TELEPHONE INFORMATION EXCHANGE ]":" ":" ":BR$>83660:54915:F$"NW.BULLETINS.SYS":RT1:3420&?LU5((N6$,10,1)):U6(N6$,3)2=H"[ TOTAL CALLS TO DATE ]";(N6$,4,2)R=\"[ DOWNLOADS ]";(N6$,6,2){=p"[ BULLETINS POSTED ]";(N6$,8,2):="[ SECURITY ]";(N6$,1):="[ VIDEO WIDTH ]";VW;" CHARACTERS"="[ KEYBOARD IN ]";:KM95ĺ"CAPS ONLY MODE":7420>"D$"CLOSE":(222)9ĉ::10:15:"*********"::15:"DISK FULL"::15:"*********":]<t< CALLER STATUS <(N5$,1)"*"ĺ:"[ LIMITED ACCESS LOG ON ]"< :"[ CALLER NUMBER ]";LN< "[ LAST CALL DATE ]";(N5$,6):=4"[ TOTAL CALLS ]";0",3(X$))X$J;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$,7)X$(U5)(U6);N6$W<6860:(T2$,5,6)=:X$"":U11((N6$,3)):U1999U11:((T2$,5,6)(N5$,6))((N5$,1)"*")U21((N6$,4,2)):6920:U21:U299U21:U3U3((N6$,6,2)):U399U30:0U4U4((N6$,8,2)):U499U40;DX$(U1):(X$)3X$("00D LOG":D$"WRITE LOG":N1$;" ";N2$;" ";N4$;:D$"CLOSE"O9,N3$""7100h9@N3$"[ NONE ]"7100z9TX((N3$,2))9hX171009|D$"OPEN NW.USERS.SYS,L64,S"S",D"D",V"V9D$"WRITE NW.USERS.SYS,R";X:N1$:N2$:N3$:N4$:(N5$,1)"*"ĺN5$: OVER LIMIT";8Q$"O"Q$"OFF"ĺ" IMPROPER SIGN-OFF"S8(TD$)0ĺ" "TD$k8(LC$)0ĺ" "LC$8TEĺ" TIME EXPIRED!"8M3$(0)"F/C"66808" ":L11L3:M3$(L1):8:768::D$;"CLOSE"8"D$"PR#0">9#D$"OPEN LOG":D$"APPENĺ" ADD TO MAILING LIST:":" * "M2$(2):" * "M2$(3):" * "M2$(4):" * ("M2$(5)")":" "7P" KEYBOARD SELECTIONS:":K1$""ĺK1$7Q" "KY$7dMRĺ" MAIL DELIVERED: ";MR7xDNĺ" DOWNLOADS SENT: ";DN 8PX((N6$,4,2))ĺ" CALLED"V&V'D$;"READ E";LK;".";N1$;" ";N2$]V'744:744:A$(IN$,14):XX120:(A$,XX,1)" "ĂV'EF$(A$,XX1):EL$(A$,XX1)V(RD:QUITV(10240V((:D$;"NOMON I":D$;"CLOSE"V<(SI5,95:"[ ENTER D)ELETE R)E-READ A)UTO-REPLY ]";:560 WP((Q$,1D",V"V:D$"WRITE E";LK;".";EF$;" ";EL$=UL'L11L:M1$(L1):^U`'D$;"CLOSE":54915:AR9600nUe'LKHK:9560yUt'6020U'7820U' READ MAIL U'54915::3600:3660U'10280V'SI5,KM:D$;"MONI":D$;"OPEN E";LK;".";N1$;" ";N2$",S"S",D"D",V&AR7820T&LKHK:9560.T&ARİ2560:99808T&2560vT&M1$(1)"<<< NONE >>>"ĺ:"*** NO LETTER SENT ***":10080T'1300T$'M1$(1)(13)"LETTER FROM: "N1$" "N2$(13)"DATE MAILED: "T1$(13)M1$(1)&U8'D$"OPEN E";LK;".";EF$;" ";EL$",S"S",D"N$,L,1)(34)ĺ"[ NO COMMAS, QUOTES OR COLONS (IN NAMES) ]":L(MN$):9700PSg&Sp&:"[ CHECKING ";EF$;"'S MAILBOX ]":LK1:S&9940S&X15:D$;"UNLOCK E";LK;".";EF$;" ";EL$",S"S",D"D",V"V:LKLK1:XS&"[ ";EF$;" MAIL BOX IS FULL ]":6020 TAIL TO SYSTEM OPERATOR ]":AR9600BR%&Q$"SYSOP"ARLKHK:9560bR4&" LAST NAME:";:560:EL$Q$RH&Q$"OPERATOR"Q$"SYSOP":9760RM&Q$" "7820R\&SO$EF$" "EL$Q$"SYSOP":9760JSf&MN$EF$" "EL$:L1(MN$):(MN$,L,1)","(MN$,L,1)":"(M MUST BE CORRECT ]"]Q%SI5,95:M1$(1)"[ NONE ]"::"FIRST NAME:";:560:EF$Q$:Q$" "7820Q%(EF$,1)(32)EF$(EF$,(EF$)1):9720Q & IF EF$ = "HELP" THEN PRINT BR$: GOTO 10680 #R &Q$"SYSOP"ĺ(7):"[ USE 'F)EED BACK TO SEND M>P0%"[ YOU HAVE MAIL WANT TO READ ]";:560:(Q$,1)"Y"10160HPD%9600fPX%54915:AR0:LKLK1:9460sPl%AR0:J1P%::" WANT TO SEND MAIL:";:P%:560:(Q$,1)"Y"7820P%3600P%SS(4):DD(4):VV(4)P%M1$(1)"[ NONE ]"9700Q%:"[ NAME Oh$:LK0+O|$F$"NW.TIPS.SYS":RT6:34203O$:=O$7820XO$ (E)LECTRONIC MAIL O$"[ ELECTRONIC MAIL ]"::AR0:LK1:J19600O$ O$9580O%D$;"UNLOCK E";LK;".";N1$;" ";N2$",S"S",D"D",V"VO%LK1ĺ:"[ THERS ANOTHER LETTER ]":10160"(7)::SY0:SI5,KM(N#560:CH91602N#9120HN#560:Q$"+"EX1\N#(49249)127ĀmN#Q$"-"EX0N#SI5,95:"[ RETURN TO END CHAT MODE ]":560N$N$ (A)PPLE TIPS N,$3600N@$SI5,KM:"[ PROGRAMMING TIPS FOR APPLES ]":OT$3660 PAGED ]"M(#:SY1MM<#D$;"PR#0":4:34::"ON";::" OFF":24:D$;"PR#"SMWMP#7820nMd# SYSOP PRESENT Mx#D$;"PR#0":4:34:"ON ";::"OFF"::24:D$;"PR#"SMMy#20000N#CH1::"*** PROGRAM INTERRUPTION ***"(7):"*** - ATTENTION PLEASE - ***L" (B)ULLETIN BOARDS DL""[ KNOWN OPERATING BULLETIN BOARDS ]"JL"TL"3660tL"F$"NW.ABBS.SYS":RT4:3420L":7820L# (C)HAT OPTION L#TA(0):TA255ĺ"[ SYSOP IS NOT IN ]":SY0:7820L#TA2548983L#20000 M#"[ SYSOP IS BEINGKM127:(SI)5,KM:"[ key board full ]":8760`K$"KM95:SI5,KM:"UPPER CASE ONLY MODE IS ON."K8":"[ SELCT 'K' AGIN TO CHANGE ]":7820KL" LOCK-OUT MESSAGE K`":"[ ACCESS NOT CLEAR YET ]"Kt""[ PLEASE WAIT UNTIL SYSOP VAIDATES YOU ]":7820JUSTMENT ]":+J!"[ CURRENT WIDTH ]";VW: SCANNING MSG BASE #"Q10:D$;"OPEN NW.USERLIST.SYS,S"S",D"D",V"VK\*D$;"READ NW.USERLIST.SYS"\*744:A1$(IN$,1):Q1C$(A1$,(C$))ĺ" ";A1$:Q1Q11\ +Q1(A1$,(C$))C$11140\ +Q0ĺ" ";A1$:Q1Q11\4+Q11511100\H+10980/]\+D$::"PE":"NAMES BEGINNING WITH 'S'. IF YOU TYPED"z[D*"'MIL', YOU WOULD SEE ALL THE NAMES THAT":"STARTED WITH THOSE LETTERS."[X*:10700[l*:"ENTER MATCH LETTER(S): ";:560:Q1:C$Q$[*:"SEARCHING DATABASE....."[*[*11140[*D$;"NOMON",\*"M"10860!Z*(Q$,1)"I"10720Z*:"THE LISTING CAN BE FOR ALL USERS OR FOR":"A MATCH TO YOUR INPUT (THE MORE LETTERS":"YOU ENTER THE MORE SELECTIVE THE MATCH)",[0*"AN EXAMPLE OF THE MATCH WOULD BE IF YOU":"TYPE SAY, AN 'S', YOU WOULD SEE ALL TH15:10440#Y) (M)EMBER LISTING -Y)3600`Y)SI5,95:":::: NET-WORKS USER LISTING ::::":yY)SS(1):DD(1):VV(1)Y)"ALPHABETICAL ORDER, BY LAST NAME.":Y)Q0:C$" "::"(M)ATCH, (A)LL, (I)NSTRUCTIONS: ";:560:(Q$,1)"A"10900 Z)(Q$,1)$X(F$"NW.SPECIAL.SYS":RT10:3420rX)"?=MENU WHICH->: ";:560:KY$KY$";"(Q$,1):(KY$)150K1$KY$:KY$""X)(Q$,1)"?"10480X,)AZ(Q$)X@)AZ1AZ87820XT):BR$:"[ PRESS A KEY TO QUIT ]":Xh)F$"NW."(AZ)".SYS":RT9:3420 Y|)549)"D"10380"WU((Q$,1)"A"103809Wd((Q$,1)"R"10160DWx(10300~W(D$;"DELETE E";LK;".";N1$;" ";N2$",S"S",D"D",V"V:AR0W(MRMR1:(Q$,1)"D"9560W(AR1:HKLK:M1$(1)"[ NONE ]":Q$EL$:9800W( (G)ENERAL TOPICS W(10620X(Q0110500D ]":l2D$"CLOSE"l3NW0(l37820Cl,3 (D)OWNLOAD OPTION Ml@33600\lh3U513240rl|3"[ CHOOSE ONE ]"l3:"[ S)TANDARD OR C)LUB:]";:560:(Q$,1)"C"CL1:KY$KY$";""CL":(KY$)150K1$KY$:KY$""l3:l3"[ DOWNLOADS ]"m3:X$"":$"."DV" S"S",D"D",V"V}kd2F$"NW.TITLES."(DV):D$"DELETE"F$",S"S",D"D",V"V:D$"OPEN"F$:D$"WRITE"F$:NWNW1:W$(NW)kx2(W$)3W$"0"W$:12920k2W1$NW$(AX)k2W$:AM1NW1:NW$(AM)W1$13000k2NW$(AM)k2l2D$"CLOSE"::"[ REMOVEj1(Q$)5Q$Q$"/":12760Uj1(NW$(AX),5)Q$X$(NW$(AX),(NW$(AX))6):12860j2N1$"SYSTEM"N2$"OPERATOR"Q$(NW$(AX),5):12780j2SOQ$(NW$(AX),5):12780j(2:"[ YOU DID NOT POST THAT MESG ]"::13080j<213040kP2D$;"DELETE NW.";XE TITLE: ";:(NW$(AX),(NW$(AX))5,1)"#"ĺ(NW$(AX),(NW$(AX))6):12700Wi1NW$(AX)i1"[ SURE ]";:560:KY$KY$";"(Q$,1):(KY$)150K1$KY$:KY$""i1(Q$,1)"Y"13080i1(NW$(AX),(NW$(AX))5,1)"#"Q$(N3$,4):12760j1X$NW$(AX):12860YS ]":U4U41h078203h0 (R)EMOVE MSG ON BB _h0"[ REMOVE BULLETIN BOARD MESSAGES ]":oh13600:3160zh$17820h81:"[ REMOVE MESSAGE #]";:560:AX(Q$):AX113080hL1AXNW13080h`1KY$KY$";"Q$:(KY$)150K1$KY$:KY$""Jit1:"MESSAGWAM:NW$(AM)LK$g\01300ngp0M1$(1)(13)"MSG LEFT BY: "N1$" "N2$(13)"DATE POSTED: "T1$(13)M1$(1)g0D$;"OPEN NW.";MN$",S"S",D"D",V"V:D$;"WRITE NW.";MN$g0L11L:M1$(L1):g0D$;"CLOSE" h0:"[ MESSAGE WILL REMAIN FOR AT LEAST 20 DA========= PRONTO-DOS COPYRIGHT (C) 1982 TOM WEISHAAR PUBLISHED BY BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ====================== 4==================== Z49385,0:::230,32:62450::49234,0:(4);"BLOAD PIC.PRONTO LOGO"` dK(49152):3:I9055162231024:I,255::I199::I9055162231024:I,0::I199::K128100 n49168,0::K("D")128ĺ(4);"NOMONICO"::20:"RUN HI-RES DEMO"::(4);"RUN HI-RES DEMO" xY1123:::20:: ============= ====================== PRONTO-DOS COPYRIGHT (C) 1982 TOM WEISHAAR PUBLISHED BY BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ====================== Z49385,0:::230,32:62450::49234,0:(4);"BLOAD PIC.PRONTO LOGO"` dK