@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 164ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333?@ABCDE f}FGHIJKLM! B!AMIS.BBS 10-30-82 F:AI,! g}  +F:Ad,"AU((F:AG,)+$  @$  "@)"@$ $ @) h}@$) F:AG,)&(>:,)$0F:Ad, AU%)@-(>:,0$( 6-%!A i} 2 F4 6.F:B2y,"@"', B04GLINEP 6- 6.>:,ZJ%++4,)+4>:A',*",,*03( j} @67B:,,.J @dB4*0-@B:,-( 1 86.B @n 4($x2 ( k}67B:,%,.2B:, &@@ B:,"($ ( @((SEND(6-B:,( l}$ 6-6-" 6-%(7<,"$B(7<,6-% ("@$?( InterruptedB$  m}A$' A$F:Ad,"AU)'$&! !F:AI,!A( 6-#$6 @w $ n}OPM;@R:@;@6@R:;@4A@R:E@8%R:J  o}6-O6-A2%+@$,T9%@@@%%@9%@@Y9%@A %%@  p}9%@@^6-?:C:,<@$,cF:@$%A5,"$h t0(  "!@06-& q}@2v!"@6-(Y!$x!"@x6-(N!$z Ar&( HIT  &LOG ON r}"AU( A!!@*AAA:6.>:@,6.>:,*6.>:@$,06-: A<2( s}>:@,Do you require Line Feeds< Ar6-@d A6.D1:WELC  ApF6-@@ t}+(Enter your Name >/ FB:, @A 6.8(From City,State >! 8B:, @A@ u}0 6.D,(You are ,( Calling from N(CORRECTX Arb(A' 6-%'(You ar v}e caller No  (Logging name to disk.   &@& A  ( w}$ (*$ B;3ON  ;3   CALLER NO. &6.D1:BULL  A x}p"@$A F3('Is this your first time on A.R.C.A.D.E.= ArB(F H6.D1:NEWU  y} A`(*** END OF FILE ***4 A ('6-@@,(/(4( 4 / 6-7< z},1a/67<,.>:@:,&@2,C 6-%!@?(I DON'T KNOW WHAT  MEANS.C g7<,47<,gA {}AAAAA!A A!A&B w#7<,47%@<%@,wA3 |}A4A5A6A"A9APARATB $ A@L6.D1:BULL A 6.D1:FU }}NC A 6.D1:HELP A x6.D1:WELC A  6-(X.(EXPERT USER MODE*6.OK >. ~})(NORMAL USER MODE% A0) //6.%(A,B,C,D,E,F,G,H,K,L,Q,R,S,T,U,W,X,Y)67B:,%,.67B:,%,.o }r ? >$3 A +(TIME:  DATE: / 3TS6-F:@ ,S6-++F:@,$AV%F:@,,$AV }%F:@ ,,'@`!F:@ ,A /6-P:'A6,/6-P:'@`,&$@`16-&$A6&$@`1 } @$A!96-&@$967@<@,.>:@:7@,,%, ]7@<@,39567@<@,. }0]67@<@,.>:@:7@,,%,6-A:,$@))7@<@,/7&<,A pTT7@<@ },429*A:7@,,'@"P:A:7@,,'@,A pE67@<@,.01E67@<@,.>:@:7@ },,%,B7@<@,39567@<@,.0B67<,.17<@,/12A p-67<@,.0 }1-67<,.>:@:7,,%,>/6-+%$A6%$@`,$@`%Ap>FUDGE FACTOR /6-P:'BU6,/6-P:'AV,&$ }AV*K6-&$BU6&$AV)@ 5@A@K A 4+6.=:%A,+6.7@<@, }HG%67@<@,.=:%A,G67@<@,.=:%A,\867@<@,.:567@<@,.: }8$' 6-6( Quick Scan' A"$ 6-(Retrieve$ A" 6-( Summary of( Messages }6. "( Messages("(<6-P:B:,'@@,$@@%"8( No Messages< , 6.6-A:,#6 }.7&@9,,6-A:,6-P:B:,'@@,))( First Msg#  Last Msg# +B:,!@!6.7@,+ A }"''(RETURN=Exit, Msg# From-To >  (4   "( A"` " )$@@!B: }," A"=6.7$@@&@9,%6-A:,+"= )!A" "6 )!A"J  <(. 7 }$@@&@5<$@@&@,@ J A#  @ A#"@$A"` 6-% } A" 6-@:7$@@,, ??6-@:7$@@&@,,$AV%@:7$@@&@,,   } w6.MSG# 67@,.467@,. DATE:C67@,.Y67@$,. TIME:h67@0,.w67@8,. } Y67@9,.FROM: (67@E,.667B:,%,.K67B:,%,. TO: Y67B:,%,. B67B:,%,.&67B:,%,.SUB }J: 467B:,%,.B67B:,%,. + !!67B:,%,. =========+ A$$ -. 8 67B:,%,.B 67B:,% },.L  `  6-B:, Aj  6-6-t ( 6-%(7<,( A$p~ (7<,6-%    }"@$($ A$   ( $( 6. E2 -(Enter Message----( SUBJECT: F  4 P } 6.Z (TO: =All d ( 46.ALL((TO: n ? 6.5($Enter PASSWORD Required to Kill Ms }g:9 ?6.x 3 6-3("Enter Message, Two s when done +6-A 6-%+!@A' 4!@4( }Only @& Lines left (    4A' ""67$A!&A ,.>:B:,, 67$A!& }A,. A& 6-& //(#(A)dd,(E)dit,(L)ist,(Q)uit,(S)ave ? + (>:,!@+6-&@2 } "@eA& "@iA) "@vA0" *"@&(MESSAGE ABORTED* , "@ }A16 A(T "A(^ %%(EDIT WHICH LINE 1- ?h  4A(r # A)6-P:A:,,# }A|  )!A) ""( OLD LINE  READS: MM( 7A!$&A<A!$&A %@:7$A! }&A ,,, 62(CHANGE TO: =NO CHANGE 6  ^ 0;67$A!&A <$A!&A ,.>:B: },,^67$A!&A<$A!,. A) "A( - MM( 7$A!&A<$A!&A } %@:7$A!&A ,,,   A( "A(! J 6-%6.0000067@&B:=:,,,.=:,J(SA }VING MESSAGE....& /  @&/0  A 6-6-: &&( }D b-@U(7$A!&A<$A!&A %@:7$A!&A ,,,Y bN 6.  X D }/6.% 56.D67@,.b $6-P:'AV,$6-&$AVl 967@8,.>:,'6 }7@9,.>:,967@@,.>:,v )$67P:B:,'@@,$@@%,.) %(% B -3MESSAGE }  &% A-6-% ( SAVED AS MSG#   ( Any CommentsG  Ar(A3P ( }Enter comments (>  4A3P   3  A30   A  3LOG-OFF   (T }hanks for calling  (Please call again...  H ,6-@d& (( LINE-FEED ,LR (ON \ } (OFF  B6-@2 (( HIT , 8AU>6-BA   L6.>:AS,%6.>:AV },46.>:A&,H( ɠL  @6.>:@,!6.>:@$,*6.>:,<( ASCII Mode@ 3( Callers } /@3CZ A6 Z( First Date: -Last Date:ENTER Starting Date  } B:,@  ;;7@<@,0/)7@<@,0/A6!33+1*/12/31/99,)+/*101/01/00, }A6" A6#(SEARCHING CALLERS...$ 0 A6 A6 &( () .::(CALLER:  }FROM: AT:  ON: 8 "@$ B A6 A6%`3  A6( A }00*3$j'   A P<( Kill MessageKF 6. P<6-P:B:,'@@,$@@%"8( No Me }ssages< Z, 6.6-A:,#6.7&@9,,6-A:,d))( First Msg#  Last Msg# n+B:,!@!6.7@ },+ A9x""(=EXIT, Kill  4  "A9`   )$@@!B:,A9` }%6.7$@@&@9,%6-A:,5  A1(MESSAGE NOT FOUND5   @ 6 }- A#( PASSWORD= 40*0PaSsWoRd0(INVALID PASSWORD4 :$@@%!B:,067$@@ }&@9,.: AA0))67$@@&@9,.7$@@%,"  , ( B6:3 KI }LLED MSG  A6(MESSAGE DELETED:  AQA`D  A 3DL  ,  }AX@( A, (FILE:  A o 6.D2:.(RETURN=Exit, File Name >=B:,!@ }V7@<@,4No67@<@,.1 4'  B:,!67@ ,. 9-B:,7<,3 }Z967<,.>:@:7<,,&@2,.7<,1A*7<,/Z.67B:,%,.7<,.7<,10*7<,/9.67B:,%,.7<, }(: 67B:,%,..UDL37@<@,2A6': 2 B:, ' <N/($Are you using the Christensen XMODEM }N(File transfer protocolF Ar$P  UZ+@D1:*.XXX$6.+6.d, ,7@ }<@,0 FAR n167B:,%,. !(+ AQ16-xN  A /67@<@,.13 }D3XUP  N AR`3UP  ( AR@( A. .(FILE ALREADY EXI }STS!!! )  A6.)Ae++( Upload --- Enter file =Exit  (>6-A  }0 067B:,%,.&67B:,%,.0 AS B:," )(* SAVING FILE * ) ( }\  6.D2:*.UDL*B:,!@C7@<@,4N\67@<@,.1"=@6.36. }FILE DIRECTORY---= AT@,, ,7@<@,4 FATp667@<@,. -@67B:,%,.J }67B:,%,.T AT ^))67B:,%,.* = OBJECT OR BOOT FILEh  A A`  A ( }(Can't find that file p   z A 3XDL  \ AX@( A, 56-B }:,\6-++'A(,&P:'A(,,$A(,-A'(67B:,%@,.>:,, /( Ready to Send/( ^X t }o cancel 6- "@$ % 6-6-6-@2!6-% <-@*6--*%@<* }AT&6-$A(%C:,5-A'"6-F:%,)*16-%5 6-@:>:,,* "@$ }6-@@Aa6-@$ 6-%@8,@"( * ABORTED *, Ad&&+% }@,$A(B:,A`P*@*6-6-6- d A6.n> -167B }:,%@,.5 >6-C:,))(READY TO RECEIVE, ^X to Cancel7 6-6-6-@2'6-@d }+ 76-@!0-@6-$*06-@ )6-Af@-A)<  }F:AG,)&%.6-%2 < Af '6-%@!A' AhP AeH 6-@:>:,, }">67B:,%@,.7@<A0,H Af@6-A !6-@!,(NAK 6 AfP6-@ } ,!!"@*"@Ah6)@Ahp@ AeP0*@ (0(* SAVING FILE * } A 6.7B:,,6-@:,2-B:,&A'%B:,&7<,026-A( ,(7:AS,'6.>:AV,66.>:A&,AWAITRING'%6-@26-6-% A0$'- }+ (-( MESSAGES, LAST MESSAGE # .' @8R:8'@4A(R:B'/ A /3===== } =====  =====L'@4AR:V'@6R:`'@R:j'@@ }R:~'""(ATE0 S4=24 S2=255 S7=15'-@P 'AR@w' B 'W A -@@ }:(TIME:  DATE: WF:B2y,"@B' F:B2y,"@B'@F:B2y,"@ "6- }6@E:@ A'9 F:AG,! B /(>:AS,9 B' BP*% F:AG, } % B *(>:AS,$*(ANSWERING CALL+(ATA6-A +' 'F:AG,"B +=  }F:AG,") A3 A= A + "@Q *+ B0.--("CHAT MODE, I'll get the } SYSOP......:( FROM (:( PRESS SELECT TO BEGIN, ^X TO END.S-@@$(>:AS,8-@@P }< SF:,"@B0.2 -@A2F:,"@B0/$  (SYSOP is not here$ 2U ( }IN CHAT MODE C(CHAT MODE: PRESS CTRL TO ENDUAdAU2' 'F:AG,"B0@2) )* }"@)6-A&2 (>:,"@$  2 F:Ad,"AUB024)@"A&*( } 4 B003 * B00`m BARtmm    D:CONFIGm'"( }'m$HqYR;A ,;@,;@@,;@@,;@ ,;@$,;@@,YINITRqhh;A! },;@P,;@@,;@@,;@,;@3,;A ,;@@,;AU,\q`;@,6.hhhLV*6- }66-@<6-H6-@T6-@`6-B2yfq--;,;,;,;,;,;,;,;,kq.&;@,; }@,;@,."pq""6.312831303130313130313031uq//6.%/CTRL=^/ ^S PAUSE, ^Q RESUME, ^X QUITzq(>:A%, }(B.B.S.q+ A0'(Enter date mm/dd/yy +q8(Enter time hh:mm:ss !4( Work disk in 8qo6-A }6-A'6-A36-@p?-@ K6-AW6-Bc6-Ao6-Apq-6.B?HWXQTREYGLACSKDUFY }-6.>:AU,q@D:CONFIGqq:6-I:,&A"3BUFF = );,:6-P:'@@ },q__6-++A:7@<@,,$@`%A:7@<@,,,$@`%A:7@<,,,$@`q/6-P:'BU6,/6-P: }'AV,&$AVqA6-&$BU6&$AV)@ 5@A@r'#@@K:'  }0u22D1:MESSAGE.ISM,D1:MESSAGE.DAT,D1:CALLERS.DAT D:AMIS.ALLA@r'#@@K:'  D6520 GOSUB OPM:? #MODEM;"FILE: ";FILE$;" Ready to Receive,":? #MODEM;"^X to Cancel"6530 FOR T=WON TO 10:TOUT=0:? CHR$(L);6}540 STATUS #MODEM,X:IF PEEK(747) THEN GET #MODEM,X:GOTO 65406550 PUT #MODEM,L:L=6:GET #MODEM,SOH:F=SOH:IF SOH<>WON THEN 6620}6560 FOR I=0 TO 1306570 STATUS #MODEM,X:IF PEEK(747) THEN GET #MODEM,X:POKE A+I,X:F=F+X:NEXT I:GOTO 66006580 TOUT=TOUT+1:I}F TOUT<100 THEN 65706590 GOTO 66106600 F=F-X:F=ASC(CHR$(F)):IF X=F THEN BUFFER$(LEN(BUFFER$)+1)=A$(3,130):NSEC=NSEC+WON:GOT}O 66206610 FOR L=WON TO 200:NEXT L:GOSUB OPM:L=21:TRAP 6700:GOTO 66306620 T=106630 NEXT T:IF SOH=WON AND L=6 AND NSEC";:GOSUB GLINE14040 IF L$="" THEN 1410014050 GOSUB CLM:? #FILE;L$:GOSUB OPM:GOTO 1403014100 GOSUB CLM:? #FILE:CL }OSE #FILE:GOSUB OPM:GOTO MAIN17000 ? #MODEM;CR$;"Р̭";CR$:SLEVEL=117010 CLOSE #FILE:? #MODEM;"Enter comm }and or ? ==> ";17020 GOSUB GETCHR:? #MODEM;CHR$(X);CR$17025 IF X>91 THEN X=X-3217030 IF X=68 THEN GOSUB 1800017050 IF X=8}8 THEN GOSUB 1900017052 IF X=82 THEN FILE$="D1:MESSAGES":XRETURN=1:GOSUB 90017055 IF X=69 THEN SLEVEL=0:GOTO MAIN17060 IF }X=67 THEN GOSUB 2000017065 IF X=63 THEN FILE$="D1:SYSOPHLP":XRETURN=1:GOSUB 90017067 IF X=76 THEN GOSUB 2100017070 GOSUB O}PM:GOTO 1701018000 ? #MODEM;"Disk directory---";CR$18010 ? #MODEM;"Enter filespec now- ";18020 GOSUB GLINE18030 GOSUB CLM}:TRAP 18100:OPEN #FILE,6,0,L$18040 INPUT #FILE;L$:GOSUB OPM:? #MODEM;L$:GOSUB CLM:GOTO 1804018100 CLOSE #FILE:TRAP 8080:GOS}UB OPM:RETURN 19000 CLOSE #FILE:? #MODEM;"XIO commands---";CR$19005 ? #MODEM;"Enter XIO command number- ";:GOSUB GLINE:CMDN}O=VAL(L$)19010 ? #MODEM;CR$;"Enter filespec now- ";:GOSUB GLINE:L$(1,1)="D"19030 GOSUB CLM:XIO CMDNO,#FILE,0,0,L$:GOSUB OPM}:RETURN 20000 ? #MODEM;"Change Parameters---";CR$20010 ? #MODEM;"Enter date (mm/dd/yy)- ";20020 GOSUB GLINE:TODAY$=L$2003}0 ? #MODEM;"Enter time (hh:mm:ss)- ";20040 GOSUB GLINE:TIME$=L$20050 X=((VAL(TIME$(1,2))*60+VAL(TIME$(4,5)))*60+VAL(TIME$(7},C8)))*6020060 F=INT(X/65536):T=INT(X/256)-F*25620070 X=X-F*65536-T*256:POKE 20,X:POKE 19,T:POKE 18,F20080 ? #MODEM;"Enter} chat mode code- ";:GOSUB GETCHR20090 XCMODE=X-4820110 ? #MODEM;CR$;"Enter write protect code":? #MODEM,"0=WRITE PROTECT":?} #MODEM,"1= WRITE PROTECT":GOSUB GETCHR20120 XCALLER=X-48:? #MODEM;CR$20130 RETURN 21000 IF LITERAL=0 THEN LITERAL=1:? #}MODEM;"̠Š";CR$:RETURN 21010 LITERAL=0:? #MODEM;"̠Š";CR$:RETURN 28000 TRAP 28000:GOSUB 28100:GRAP}HICS 028110 ? #FILE;0;CR$;0;CR$;CALLNO;CR$;MSECT;CR$;MBYTE;CR$;MSGS;CR$;HMSG:CLOSE #FILE28210 CLOSE #MODEM:XIO 36,#MODEM,ZE}RO,ZERO,"R:":OPEN #MODEM,13,ZERO,"R:":RETURN 29000 DIM L$(120),FILE$(16),NAME$(40),ADDRES$(40),FUNC$(30),MTH$(24),CTRL$(40),}SNAME$(30)29010 DIM MSG$(2100),PROMPT$(57),FROM$(40),FR$(40),MSGNO$(4),SUBJ$(33),TEMP$(120),PAS$(40),A$(255),PASS$(50)29020} DIM SCIO$(7):SCIO$="hhhLV":ZERO=0:WON=1:FILE=WON:MODEM=2:C8=8:CON=53279:OPMC=2821029025 DIM SECURITY$(3)29030 DIM CR$(WO}N),BEL$(WON),DEL$(WON),BS$(WON),X$(WON),TODAY$(C8),DATE$(C8),TIME$(C8),XSYSOP$(20)29045 CTRL$="^=CTRL: ^S=PAUSE, ^Q=RESUME, }^X=QUIT":CTRL$(LEN(CTRL$)+WON)=CR$29050 ? CHR$(125):? "CARNIVAL NETWORK BBS SOFTWARE"29070 ? "Enter time hh:mm:ss ";:INPUT  }TIME$:? "Enter chat mode code ";:INPUT XCMODE29075 ? "Enter write protect code:":? ,"0=WRITE PROTECT":? ,"1= WRITE PROTECT!}":INPUT XCALLER29080 ? "Insert work disk, and hit RETURN ";:INPUT A$29100 CLM=292:OPM=310:MAIN=1000:GLINE=70:LET GETCHR=20:"}PARSE=9000:WAITRING=10000:RFILE=8000:SEARCH=7000:XENTER=129110 FUNC$="B?HNXQTREYGLACSKDUFOIPZ":CR$=CHR$(155)29115 OP#}EN #FILE,8,0,"D:MESSAGES":CLOSE #FILE29120 CLOSE #FILE:OPEN #FILE,4,ZERO,"D:CONFIG"29135 OPEN #FILE,8,0,CDF$:? #FILE;"Calle$}rs list since ";TODAY$:? #FILE;"at ";TIME$;":";CR$;CR$:CLOSE #FILE29137 OPEN #FILE,4,0,MDF$:NOTE #FILE,A,I:CLOSE #FILE:HYMSG%}=MSECT-A29138 OPEN #FILE,4,0,"D:CONFIG2":INPUT #FILE;XSYSOP$,XMSECT,RINGS,SNAME$:CLOSE #FILE29140 X=FRE(ZERO)-100:PRINT #5;&}"BUFF = ";X:DIM BUFFER$(X):MAXM=INT(X/40):NUMSECT=831000 IF LEN(L$)<5 THEN RETURN 31007 FOR RR=1 TO LEN(L$)-4:IF L$(RR,RR+4'})="SYSOP" OR L$(RR,RR+4)="sysop" OR L$(RR,RR+4)="Sysop" THEN 335031008 NEXT RR31010 RETURN 31500 ? #MODEM;CR$;"Standby, se(}arching for password...";CR$:GOSUB CLM:OPEN #4,4,0,"D1:PASS"31505 TRAP 3157031510 FOR I=1 TO VAL(L$)31520 INPUT #4;NAME$,A)}DDRES$,PASS$,SECURITY$31530 NEXT I31535 CLOSE #4:GOSUB OPM31540 ? #MODEM;"Enter password ] ";:GOSUB GLINE31550 IF L$=PASS*}$ THEN ? #MODEM;BEL$;"Online ";NAME$;CR$:XPASS=1:SECURITY=VAL(SECURITY$):SECURE=SECURITY:GOTO 63031560 ? #MODEM;"Incorrect"+};BEL$:? #MODEM;CR$:GOTO 51031570 CLOSE #4:TRAP 8080:GOSUB OPM:? #MODEM;"ERROR---ACCOUNT NUMBER NON-EXISTENT":GOTO 51032000 ,}? #MODEM;CR$;"Standby, checking for password...";CR$:GOSUB CLM:OPEN #4,4,0,"D1:PASS"32005 TRAP 3204032010 INPUT #4;NAME$,AD-}DRES$,PASS$,SECURITY$32020 IF NAME$=L$ THEN CLOSE #4:GOSUB OPM:GOTO 3154032030 GOTO 3201032040 TRAP 8080:CLOSE #4:GOSUB OP.}M:GOTO 51732100 GOSUB CLM:OPEN #4,4,0,"D:PASS":TRAP 32120:PASSCK=132110 INPUT #4;L$:PASSCK=PASSCK+1:GOTO 3211032120 PASSCK/}=PASSCK-1:PASSCK=INT(PASSCK/4)+1:CLOSE #4:GOSUB OPM:? :? "NEXT ACCOUNT NO.= ";PASSCK:TRAP 8080:RETURN 32200 IF X<>23 THEN RE0}TURN 32205 ? :? NAME$;" from ";ADDRES$:? 32210 RETURN 32300 IF LEN(SUBJ$)=0 THEN PRIVATE=0:RETURN 32305 FOR U=1 TO LEN(SU1}BJ$):IF SUBJ$(U,U)="@" AND SYSOP=0 THEN PRIVATE=1:RETURN 32310 NEXT U32320 PRIVATE=0:RETURN 32400 ? #MODEM;"MESSAGE NUMBER2} [";VAL(MSGNO$);"] - .";CR$:GOSUB CLM:PRIVATE=0:RETURN 32500 GOSUB CLM:CLOSE #FILE:OPEN #FILE,6,0,"D1:*.*"32510 INPU3}T #FILE;L$32520 ? L$:GOTO 3251032530 CLOSE #FILE:GOSUB OPM:RETURN 32550 TRAP 3255432552 LPRINT :OPEN #5,8,0,"P:":TRAP 4004}00:RETURN 32554 OPEN #5,8,0,"E:":TRAP 40000:RETURN 32600 IF PEEK(53279)<>5 THEN RETURN 32610 IF LOCAL=ZERO THEN CLOSE #MOD5}EM:LOCAL=WON:OPEN #MODEM,13,ZERO,"E:":? "̠Š":SECURITY=9:SYSOP=1:RETURN 32620 LOCAL=ZERO:GOSUB OPM:? "̠Š6}":SECURITY=SECURE:IF SECURITY=0 THEN SYSOP=1:RETURN 32630 SYSOP=0:RETURN 32650 TRAP 3265432652 OPEN #5,6,0,"D2:*.*":DRIV7}ES=2:CLOSE #5:TRAP 40000:RETURN 32654 CLOSE #5:DRIVES=1:TRAP 40000:RETURN 32650 TRAP 3265432652 OPEN #5,6,0,"D2:*.*":DRIVL Congratulations on your purchaseof CARNIVAL NETWORK BBS software. Ithink that you will find it to be thebest BBS sof9}tware available for theAtari computer. Fixes to any bugs which crop upwill be free. Updates to the software will :}be$5.00 each. System Requirements:One Atari 400/800/1200XL with atleast 48K RAM.One 810 disk drive or any otherA;}tari compatible drive.One 850 interface module.One Hayes Smartmodem, or Smartmodem1200.A telephone line.The Atari BA<}SIC cartridge. Included are several samplefiles which you will use to createyour own welcome messages, bulletinfile=}s, etc... You should edit andcreate files with a good text editoror word processor such as Text Wizardby Datasoft or Atari>}Writer fromAtari, inc. The complete documentation ison a text file called CARNIVAL.DOC.Itis in 40 column format to in?}surecompatibility with all printers, anddisplays. There are several steps whichyou must take in order to get yourBBS@} up and running.1) Boot up the enclosed disk with the 850 interface OFF, and the BASIC cartridge IN.2) When you getA} the 'READY' prompt, type- LOAD "D:AMIS.BBS". This will load in the public domain AMIS software.3) When it is loaB}ded in, type- ENTER "D:PATCH1". This will enter in the first part of the CARNIVAL NETWORK patch.4) When the 'READC}Y' prompt again appears, type- LIST and let the program list for about 5 seconds. Then press the BREAK key to abortD} the listing.5) Type- ENTER "D:PATCH2". This will enter in part 2 of the patch.6) Type- SAVE "D:AMIS.BBS". This E} erases the old AMIS program and replaces it with CARNIVAL NETWORK software.7) Type- DOS to go to the DOS menu, anF}d rename AMIS.BBS to CARNIVAL.BBS.8) You should then read the detailed documentation file for details on the featuG}res and use of CARNIVAL NETWORK software.9) Once you have all your files created and your board is ready to run, aH}s per the instructions, boot up your SYSTEM disk with BASIC IN and the 850 interface ON. Type- RUN "D:CARNIVAL.BBS"I} per the instructions, boot up your SYSTEM disk with BASIC IN and the 850 interface ON. Type- RUN "D:CARNIVAL.BBS"̠ DOCUMENTATIONCARNIVAL NETWORK- Copyright 1983,Brad Konia. REQUIRED FILES: INIT.BBS CONFIGK}URE BBS CARNIVAL.BBS MAIN BBS PROGRAM MESSAGES.BBS COMPACTS MESSAGES *MESSAGE.DAT MESSAGE DATA BASE *MESSAGE.ISL}M MESSAGE POINTERS *CALLERS.DAT CALLERS DATA BASE *CONFIG SYSTEM POINTERS *NEWU NEW USER TEXT *WEM}LC WELCOME TEXT *BULL BULLETIN TEXT *FUNC FUNCTIONS TEXT *HELP HELP TEXT * = REQUN}IRED ON WORK DISK DR.1note- see end of text for additionalfiles required for CARNIVAL NETWORK. FILE FUNCTIONS:INIT.O}BBS THIS IS A ONE TIME RUN. THIS FILE WILL PROMPT THE USER, AND HELP HIM TO CREATE FOUR DATA FILES; MESSAGE.DAT P} MESSAGE.ISM CONFIG CONFIG2 YOU WILL SPECIFY THE NUMBER OF SECTORS FOR THE MESSAGE BASE. IFQ} USING ONE DISK DRIVE, START WITH 150 SECTORS. THIS PROGRAM WILL ALSO ASK FOR THE NUMBER OF CALLERS. WHEN YOU FIRST STARR}T YOUR BBS, THIS NUMBER SHOULD BE SET TO '0'. HOWEVER, IF FOR ANY REASON, YOU HAD TO RE-INITIAILIZE YOUR BOARD, YOU COULDS} SET THIS NUMBER TO THE APPROXIMATE NUMBER OF CALLERS YOU HAD BEFORE.CARNIVAL.BBS THIS IS THE BBS PROGRAM FILE. IT RET}QUIRES THE FOUR DATA FILES, CREATED BY INIT.BBS. THIRTEEN TEXT FILES. ALSO ANY DOWNLOAD FILES YOU HAVE WITH THE EXTENSIOU}N OF .UDL THE BBS IS SETUP TO USE THE DC. HAYES SMARTMODEM. AND THE OPTION SWITCHES ON THE HAYES ARE TO BE SET TO THEV} FOLLOWING; SWITCH # SETTING DTR 1 UP VERB. 2 UP QUIET 3 DOWN ECHO 4 UP RW}ING 5 DOWN CD 6 UP RJ11 7 UP N/A 8 DOWN WHEN YOU RUN CARNIVAL.BBS, THE X}PROGRAM WILL PROMPT YOU TO ENTER TODAYS DATE AND THE CURRENT TIME. THEN THE MODEM WILL BE GIVEN ITS INSTRUCTIONS. YOU WILLY} SEE THIS ON YOUR SCREEN. THE BBS IS NOW UP AND RUNNING. YOU WILL SEE THE TIME UPDATED ON YOUR SCREEN.... SYSOP NOTES: Z}OPTION---- USED TO UPDATE DATA FILES AND EXIT THE PROGRAM. (NOT REQUIRED) SELECT---- IN IDLE, USED TO[} SELECT LOCAL MODE. SO THE SYSOP CAN RUN THE BBS FROM HIS KEYBOARD. ON-LINE. A BUZZER WILL SOUND WHEN THE BBS AC\}KNOWLEDGES SELECT. YOU SHOULD THEN IMMEDIATELY RELEASE THE KEY TO AVOID ENTERING ONLINE MODE. START]}---- SIMULATES THE RINGING OF THE PHONE. USED TO PLACE A PERSON WHOM YOU ARE SPEAKING WITH ONLINE. AFTER THE BUZ^}ZER RINGS, YOU SHOULD IMMEDIATELY RELEASE START TO AVOID ENTERING CHAT MODE. START IS ALSO USED TO ENTER CHAT MODE._}MESSAGE.DAT THIS IS THE MESSAGE DATA BASE.MESSAGE.ISM THIS IS A ISAM FILE USED FOR QUICK SCAN OF MESSAGES.CALL`}ERS.DAT THIS IS THE CALLERS DATA BASE.CONFIG THIS IS THE FILE POINTERS FOR THE DATA BASES.UTILITY FILES---------a}MESSAGES.BBS THIS FILE ALLOWS THE SYSOP TO DELETE MESSAGES AND COMPACT THE MESSAGE FILE WHEN IT IS NEAR FULL.b}NOTE:--- YOU CAN'T COPY THE DATA FILES TO A NEW DISK UNLESS YOU DO A DOS FUNCT J. THE FILES ARE UPDATED BY NOTE AND c}POINT, FROM THE ISM FILES!ERRORS------ALL ERRORS ARE REPORTED TO THESCREEN OR THE PRINTER. THE LINE & ERRNUMBER IS GId}VEN.DATA FILES----AFTER A MESSAGE IS LEFT, THE MESSAGESECTOR IS PRINTED AFTER THE NUMBERSO YOU KNOW WHEN THE MESSAGE.DATe} FILEIS NEAR FULL AND NEEDS COMPACTING.THE CURRENT MESSAGE SECTOR IS ALSOKEPT UP TO DATE IN WAITRING (IDLE)MODE.BACK-UPf}------I STRONGLY RECOMMEND THAT YOUCOPY YOUR WORKING DISK AT LEASTONCE A WEEK! BEFORE YOU COMPACTTHE DATA BASE FILES!!!g}CARNIVAL NETWORK has added thefollowing features to standard Amis:1)An advanced password and security system with 10 diq}5B%DOS SYSB*)DUP SYSB SAUTORUN SYSB_AMIS BBSBMPATCH2 B8README DOCBJCARNIVALDOCBMESSAGESBBSB INIT BBSBFLASH BBULL BWELC BPASS BACTS BBBSLIST BFUNC BHELP B-INDX B.NEWS B/NEWU BS4PATCH1 BSYSOPHLP BFIX1 BFIX2 BFIX3 BFIX4 BRS232 fferent security levels available. Account numbers are also included.2)A private message option.3)A view message optr}ion.4)Special options (I),(N),(O),(P), and (Z) have been added.5)Option (W) has been eliminated.6)Numerous display ans}d formatting improvements.7)XMODEM file transfer protocol8)An unlimited upload/download buffer9)Returnless input fromt} command level10)Confirmation of Log Off necessary.11)The addition of a special Sysop password.12)Enter message funcu}tion shuts down when message base is near full.13)Improved display format with additional information for wait- riv}ng mode.14)No printer necessary at all15)The addition of a special Sysop level.16)CTRL-W at any time identifies thew} caller.17)The ability to get a disk direc- tory and list the next account number while in chat mode18)Only the Sx}ysop can CTRL-X out of chat mode.19)Chat mode improved in numerous ways.20)Private upload/download21)CALLERS.DAT y}file has been re- designed.22)Super Fast message base access23)CTRL-N skips a message24)The option to not save filesz} to disk25)The option to reply to a message26)The addition of a Sysop level.27)The ability to put a caller on 'Ho{}ld' and run the BBS in the local mode.28)An unlimited buffer for ALL files!29)A new, greatly improved answering for|}mat.30)The BBS makes a ticking sound while in waitring mode.Passwords- To have passwords youmust create a file call}}ed PASS whichuses the following format:Name of user #1City,StatePasswordSecurity levelName of user #2City, StatePass~}wordSecurity leveletc.... Account numbers are based onthe sequential positions of passwordholders in the pass file. For}example. User #1's account numberis '1'. Every user does not get apassword. Passwords and accountnumbers must be enter}ed manuallyby the Sysop at a user's request.The user should choose his ownpassword while the Sysop assigns thenext accoun}t number and the securitylevel that he sees fit. The nextaccount number can be determinedby counting the number of lines }inthe pass file and dividing by four,or press CTRL-A in the chat mode, andthe next account number will bedisplayed. Once} a user has apassword, only he will be able to logon using his name or account number.The main purpose of the passwordsys}tem is to protect the user againstothers logging onto the system withhis name, reading his privatemessages and possibly di}screditinghim.Security Levels- Nine security levelsare available. The security levelof a user is determined when he log}son to the system. If he has apassword, his security level iswhatever the Sysop has assigned him.If he does not have a p}assword, hislevel is automatically '1'. Levelone access allows access to all fileswith .UDL extenders. Levels 2-9allow }access to files with .PVxextenders, where x is a number from1 to 9. For example, a user withlevel 7 clearance will be all}owedaccess to files with extenders- .UDL,.PV1, .PV2, .PV3 ......., .PV7. TheSysop has access to all files on thedisk. A }special level '0' isavailable which gives the user Sysopaccess. If a user is given securitylevel '0' access he will be ab}le touse all of the special Sysopfunctions.Private Messages- Use option 'P'rather than option 'S' when savinga message }and it will be private.Only the sender, the receiver, andthe Sysop will be able to read themessage. Private messages appe}arin the quick scan with a '@' signat the end of the subject line.If either the sender of the receiverof a private messag}e do not havea password, then the message is nottotally private since it is possiblethat another party could log on using}the sender or receiver's name. Thesubject line is changed when sendinga private message to designate who itis addressed t}o. Thus it is notnecessary to enter a subject whensending a private message.View Message- Option 'V' in the message bas}e allows the sender ofa message to preview it (not printthe line numbers) before sending it.Option (I)- Index to download} files.This requires the Sysop to createa text file called 'INDX' with adetailed description of each downloadfile.Optio}n (N)- This is normally used fora newsletter, or any other news ofintrest to the users. The Sysop must create a text file} called'NEWS'.Option (O)- Other BBS's list. Sysopmust create a text file called'BBSLIST'Option (P)- Private message f}orSysop. This function will allow theusers to send a private message tothe Sysop which is stored in a filecalled 'MESSAG}ES'. This file isre-initialized every time the BBSis run. To read the contents of thefile, use option 'R' from the sysop}level.Option (Z)- Lists all users that havepasswords, along with their accountnumbers and addresses. The Sysopmust cre}ate a text file called'ACTS'.Option (W) has been eliminated. Itwas found to be unnecessary.There have been many changes} insystem prompts which will be noticedwhen using the board.XMODEM File Transfer- The XMODEM filetransfer protocol has b}een added,which virtually guarantees perfectfile transfers every time. It canbe used to send or receive binaryor tokeniz}ed files, as well as listedformat, etc...Unlimited Upload/Download- Theunlimited buffer has been added toCARNIVAL NETWOR}K The only restrictionon file size is free disk space.Also,an unlimited buffer for all BBS fileshas been added. File size} is nolonger any kind of a restriction.It is no longer necessary to pressthe RETURN key after entering acommand at the c}ommand level.After typing 'G' you must confirmlogoff to prevent accidental logoff.A special Sysop password has beenadde}d. This is asked for when theINIT.BBS program is run.If the message base fills up, it willno longer allow new messages t}o beentered until it is compacted. Thisis configured when INIT.BBS is run.In the waitring mode, current chatmode, as we}ll as message sector, andwrite protect status are displayed.No printer is necessary for the useof CARNIVAL NETWORK. When} the BBS isfirst booted up, it automaticallydetermines if you have a printer. Ifyou do, then much of the output willgo t}o the printer, rather than thescreen. Also when booting up, theprogram checks to see if you haveone or two drives, and co}nfiguresitself accordingly.Pressing CTRL-W at any time when auser is logged on will identify thatuser.While in chat mo}de, press CTRL-D toget a disk directory for drive one,or CTRL-A to print the next accountnumber to be assigned.Chat Mode} Improvements- When the BBSis run, a chat mode code is askedfor. The Sysop must enter eithera '0' or a '1'. If zero is e}ntered,then when a user types 'Y' to requesta chat, he is immediately informedthat the Sysop is not around, anda higher p}itched console bell issounded three times rapidly. If '1'is entered for the chat mode code,then when the user types 'Y' T}heconsole bell is sounded 5 timesquickly, and the user is informedthat the Sysop will cut in if he isaround. The Sysop m}ust press STARTrather than select to enter the chatmode. Only the Sysop can CTRL-X outof the chat mode. Another feature }ofthis chat mode is that users are onlyallowed to type 'Y' twice. The thirdtime, it rings THEIR buzzer twice,and does no}t ring the BBS buzzer atall. This is useful for when youdon't want to chat with persistentpeople. Once chat mode has bee}nentered, this counter is reset sothey may type 'Y' again, twice. Whenthe 'Y' command has been entered theBBS screen tur}ns RED and remains thatway until either the user logs off,or chat mode is entered.Private Upload/Download- The variousse}curity levels are used to enableprivate upload and download.CALLERS.DAT File Changes- The callersdata file has been re-de}signed. Itis no longer necessary to initializethis file with INIT.BBS. The fileis automatically re-initializedevery tim}e the BBS is run. Callersare saved in the file sequentially.Super Fast Message Base- Once any ofoptions 'Q', 'S', or 'R'} are used,the MESSAGE.ISM file remains inmemory and is not erased until thatmemory space must be used forsomething else s}uch as option 'F' or'E', etc... Thus it is possible forexample to do a quick scan, thenreturn to the command level, check}the time, request a chat, and thenuse option 'R'. When 'R' is used,the MESSAGE.ISM has not been erasedand the message bas}e will appearimmediately.Pressing CTRL-N while reading amessage will skip to the nextmessage.After reading a message t}here is anoption to reply to that message.Press 'R' to reply, or RETURN tocontinue.Sysop Password- To log on using your}special Sysop password, just type inthat password when the BBS asks forname or account number. You will beput in expert u}ser mode, you will beable to read and delete any message,and will be allowed into the Sysoplevel. When logging on with a }Sysoppassword, your name and address willnot be saved to disk.Sysop level- The Sysop level of theBBS is a special sectio}n that onlythe Sysop is allowed to use. Itallows you to get a complete diskdirectory of any drive, upload anddownload an}y file, regardless of itsextender, and execute any XIOcommand, and reset the time and thedate. You may type '?' when in t}heSysop level to get a list ofcommands. This section will allowyou to Sysop your board remotely. Toenter the Sysop leve}l, you must usethe '*' command from command level.Only the Sysop will be allowed toenter this section. The BBSdetermines} whether or not a user isthe Sysop at log on. Only someonethat logs on with the Sysop passwordwill be considered the Sysop}, thus itis essential to use your Sysoppassword at all times.Other Special Features- When pressingSELECT to enter the lo}cal mode, theBBS automatically 'picks up thephone' by giving a command to theSmartmodem. After the Sysop logs offin loca}l mode, the phone is again'hung up'.No user is allowed to log on usingthe phrase Sysop anywhere in hisname. There are t}hree variants ofthe word which are guarded against-SYSOP, sysop, Sysop. It is possibleto 'beat the system' by logging on}as sYsop or some other odd variant,but any messages left by sYsop wouldbe realized by most users as false.Also, this perso}n would not beallowed to enter the Sysop level oruse any of the special Sysopfunctions.If the user has a password, then }theWelcome message (WELC) and thequestion- "Is this your first timeon this BBS" are both skipped.The Sysop must create a}n additionalfile called 'FLASH'. This should bea very brief, 'Hot Flash' on thevery latest bulletins. It is notpossible} for a user to CTRL-X a hotflash so keep it very short.The 'M' command is automaticallygiven to the Smartmodem along with}the other commands, so the Sysop willnot hear the carrier at all when auser calls the BBS.It is possible to place a call}er on'Hold' by pressing SELECT while heis online. You will then be able torun the BBS in the local mode. PressSELECT ag}ain, to return control tothe caller.WRITE PROTECT CODE- When the BBS isrun, a write protect code is askedfor. You must }either enter a '0' ora '1'. If you enter a '1' then theBBS will function normally. If youenter '0' then the following ch}angesoccur: Callers names are not savedto disk when they log on. Options'C', 'U', and 'P' are disabled. Inthis mode, no} writing to the diskis allowed except for enteringmessages. Since the message baseshuts down automatically when itfills }up, it is safe to leave theBBS up for an indefinite period oftime as long as the write protectcode is set to '0'.The fol}lowing files are requiredto run CARNIVAL NETWORK, besides thestandard Amis files:FLASH- Latest bulletins, can't be } CTRL-X'edPASS- The password file. See the section on passwords for the correct format of this file.ACTS- T}he list of all users who have passwords, along with their account numbers, and where they are from. The pa}sswords should NOT appear at all in this file, as it is accessed with option 'Z' from command level.BBSLI}ST- A list of other BBS's around the country. Accessed with option 'O' from command level.NEWS-} Used for a newsletter or any other application that the can think of. Accessed with option 'N'.CONFIG2-} Automatically created when INIT.BBS is run. If you are upgrading from Amis to CARNIVAL NETWORK a}nd don't want to re-initialize your message base, then the format of the file is four lin}es. The first line contains the Sysop password, the second line contains a number which is the num}ber of sectors allocated for your message base. The third line contains a number which i}s the number of rings the BBS should wait before answering (normally set to '1'). The fo}urth line contains your name. ie- Sysop- Jack Jones.INDX- A detailed description of all download f}iles. Accessed via option 'I'.MESSAGES- Automatically created each time the BBS is run. All mes}sages sent to the Sysop with option 'P' are stored in this file.SYSOPHLP- This is the file which is } accessed when '?' is typed in Sysop level. Thank you for using CARNIVALNETWORK software. Any questi}ons,comments, etc... may be left on theoriginal CARNIVAL NETWORK BBS- C.A.R.N.I.V.A.L. BBS in Pa. Thenumber is (215) 250}-9471. Brad Konia be left on theoriginal CARNIVAL NETWORK BBS- C.A.R.N.I.V.A.L. BBS in Pa. Thenumber is (215) 250yzb  ZERWOCRAMSGFROMFRMSGNOSUBJTEMPPASDATETIMEFILBUFFERESECEBYTSECBYTLCSECCBYTCALLNMSECMBY}TMSGHMS } CM}ISMBBSW6(>:A%,# COMPACT MESSAGE.DAT and make a newW( MESSAGE.ISM for AMIS BBSW(,(! by Tom Giese & Jim }steinbrecher/(W(# Use to compact MESSAGE.DAT or make())(! a new MESSAGE.ISM on a new disk!26((NOTE:6(! WILL Re}instate Deleted messages!<6-6-@F~~;@,;AU,;A!,;@@,;@@,;@,};@3,;A ,;@@,;@,;@,P* 6-6.>:AU,*;I:,&A,Zo(H(>:AS,}>:AS, COPY MESSAGE DISK WITH DOS Jo(" FIRST! THEN RUN THIS ON THE COPY!dF(/($INSTALL BBS MESSAGE DISK IN DRIVE} #1F(AND PRESS RETURN n A0,Read Messages6##@D1:MESSAGE.DAT@  A@}J( No Messages T 6-6-6-^' A6-%@'MAIN LOOPh r|9} 6.-'67B:,%,.567B:,%,.9  (Display Message3((MSG 3(MSG#  DAT}E: TIME:(From:(To :(Subj: 5#   Keep  Delete >5AdAU--}F:Ad,"@)R:,"@A--F:Ad,"@)R:,"@A Ap/(6-&@}& AP/DeleteX ( Keepb# #(l(vHB:, @3H67B:,}%@,.! ..67$@@&@9<$@@&@6,...67$@@&@5<$@@}&@,.!!67$@@<$@@,.>:,$6-P:'AV,$6-&$AVS167$@@&@<$@@&@,}.>:,S67$@@&<$@@&,.>:,  AP APUpdate Index File((@D1}:MESSAGE.ISM (Update Configuration File@D:CONFIG }@D:CONFIG**(&@   D:MESSAGE2.BBS _UVCRBFILMSECMBYTMSGHMSCALLNCSECCBYTMESSAGESSECTOMSSBYTERINGSNAMENAME||@!}@3 @3 }(@ !}INIT BBSҠ̠˛ + H<;@,;A$,;@@,;@0,;@#,H6-@!})67A$,.>:,)6.Sysop- (Initialize B.B.S.(6.>:AU,*#(Enter Sysop Password- #,.*!}("Enter number of rings to answer on.<6,($Enter # of sectors for messages file066-><)(!Enter your name (MAX- !}23 CHARS.):-<67@,.F1(@ D:MESSAGE.DAT1P!-@( !Z-(@!} D:MESSAGE.ISM-d'6-6-'6-n$ (Enter number of callers-$##@!}D:CONFIG00(H$@ D:CONFIG2+(2(9!}(@(EH D:INIT.BBSH$@ D:CONFIG2+(2(9 '*********** HOT FLASH *************(4/10)Now running CARNIVAL NETWORKsoftware!@ D:CONFIG2+(2(9$RWelcome to my new CARNIVAL NETWORKBBS.Want an account number and password?Chat with me using option 'Y'.Enjoy the syst)}em! The SysopARNIVAL NETWORKBBS.Want an account number and password?Chat with me using option 'Y'.Enjoy the syst(Welcome, you are now connected toa CARNIVAL NETWORK BBS. The śBBS software!This board is operated by Joe Shmoe..}For more information, write to me. CARNIVAL NETWORK BBS. The śBBS software!This board is operated by Joe Shmoe.,$JOHN DOEDOESVILLE, USAPASSWORD1JANE DOEDOESVILLE, USAPASSWORD1śBBS software!This board is operated by Joe Shmoe.0FCARNIVAL NETWORK account numbers:listing:ACT# Name From-------------------------------------001 John Doe 6} Doesville, USA002 Jane Doe Doesville, USAe From-------------------------------------001 John Doe 45************************************** Ҡɠӧ ** ͠îҮήɮ̮֮ ** :} ** UPDATED 05/08/83 ** NOTES: ** L = LIMITED Evenin:}gs & Weekends ** R = RING-BACK Call, Call-back ** # = ORIGINAL of This format ** * = 24 HOUR Operation :} ** Listed by Location ** ** CARN=CARNIVAL NETWORK ** ARM:}U=ARMUDIC TARI=TARI BOARD ** TNET=TARINET AMIS=AMIS **************************************ST AC-NUMBER : } TYPE NAME NOTE-------------------------------------CA 408-253-5216 AMIS GFX *CA 408-298-6930 AMIS IBBS : } LCA 408-942-6975 AMIS TEAM LCA 415-527-8276 ARMU SYNAPSE LCO 303-221-1779 TARI POOR RICHARD LCO 303-75: }8-6233 AMIS DENVER LDC 202-276-8342 ARMU WASHINGTON *#FL 305-238-1231 AMIS APOGEE RLFL 813-577-0048 AMIS ST.: } PETE ?IL 312-789-3610 AMIS CHICAGO *IL 312-296-5619 TNET SKULL ISLAND LMA 617-595-0211 AMIS NORTH SHORE *MA 61: }7-667-7388 AMIS MACRO EXCH. *MA 617-937-1970 AMIS ALPHA CONTRL ?MD 301-544-2460 TARI SEVERNA PARK ?MD 301-587-2132 ARMU C:}OMPUTER AGE LMD 301-871-5370 ? RICKY MOOSE ?MI 313-274-3940 AMIS M.A.C.E. W. *MI 313-589-0996 AMIS M.A.C.E. *#MI:} 313-978-8087 AMIS A.R.C.A.D.E. *MI 616-241-1971 AMIS G.R.A.S.S. *NJ 201-339-7407 AMIS JUAN'S BBS *NJ 609-267-7825 TAR:}I BOB ALLEGER L#NJ 609-924-5875 TARI ELECT. CANDY LNV 702-733-9488 AMIS LAS VEGAS LNY 212-568-0682 CARN DIBBS L:}OH 216-582-2797 TARI BCHWOD FLS. ?OH 419-423-0206 AMIS FLAGCITY *OH 614-476-2035 ? ATARI POST *OK 405-681-6929 :}AMIS TEBBTOWI ?OK 405-685-2027 AMIS SW. SAFARIS LOK 405-722-5056 ARMU GREKELCOM ?OR 503-343-4352 ARMU A.C.E. :} ?PA 215-250-9471 CARN CARNIVAL *#PA 215-432-9848 CARN STARCADE *PA 215-333-3753 AMIS JR'S BBS *PA 412-754-08:}00 AMIS P.A.C.E. *TX 817-485-1892 ? ?TX 817-589-1254 ARMU ACUGD *TX 713-471-7117 AMIS AMIS HOUS:}TON *WA 206-525-3412 AMIS SPACE LWA 509-582-5217 AMIS A2-D2 LWI 414-352-2772 AMIS MIL-ATARI *-----------:}------------------------IS SPACE LWA 509-582-5217 AMIS A2-D2 LWI 414-352-2772 AMIS MIL-ATARI *-----------8[A]-ATASCII/ASCII [B]-Bulletins[C]-Callers List [D]-Download[E]-Enter Message [F]-File Listing[G]-Goodbye [H]->}Help![I]-Index to D/L [K]-Kill Message[L]-Linefeeds [N]-News[O]-Other BBS'S [P]-Message-SYSOP[Q]-Quick Scan >} [R]-Read Message[S]-Scan Messages [T]-Time and Date[U]-Upload [X]-Expert Mode[Y]-Yell for Sysop [Z]-Account List>}R]-Read Message[S]-Scan Messages [T]-Time and Date[U]-Upload [X]-Expert Mode[Y]-Yell for Sysop [Z]-Account List<CARNIVAL NETWORK HELP FILE---A=ATASCII/ASCII switch. Your terminal program must be in ATASCII in order to enter the ATAB}SCII mode. Use option (I) for more details on this.B=Bulletin reprint. Reprints sign on bulletins.C=Callers listiB}ng. Lists all callers from a set date.D=Download file. You must have the Amodem terminal program to do Xmodem file B}transfer. Use option (I) for more details on this.E=Enter message into system. Please use this one often!!F=List doB}wnload files. Use this option to see what is available fo for downloading, and then use the D option to do the actual B }download- ing.G=Goodbye. Log off system.H=Help. Prints this file.I=Index to download files. Gives detailed descrB!}iption of all files available for downloading.K=Kill message. You must know the password if you want to kill a messaB"}ge.L=Line feeds on/off. Atari's do NOT need line feeds.N=News. This option will give the latest news items of intreB#}st in the world of Atari.O=Other Atari BBS's. A list of other Atari BBS's around the country.P=Private message to SyB$}sop. This message will not appear at all in the message base.Q=Quick scan of messages. Lists only the subject, and B%}numbers of the messages in the system.R=Retrieve messages. If you only want to retrieve a single message, you only hB&}ave to enter that number. ie- to retrieve message 42. You may enter 42-42, but it is easier to just enter 42.S=SummaB'}ry of messages. Gives more information than quick scan.T=Prints time and date.U=Upload file to system. You must havB(}e the Amodem terminal program to use Xmodem file transfer. Check number of free sectors, and buffer size before doing B)}any uploading.X=X-pert user mode on/off. X-pert user mode prompt is 'X] 'Y=Yell for sysop for chat. I will cut in iB*}f I am aroundZ=List account numbers. Displays a list of all users that have account numbers and passwords along with B+} their respective account numbers.control key plus-S=Pausecontrol key plus-Q=Resumecontrol key plus-X=Abortcontrol key pB,}lus-N=Skip messageccount numbers.control key plus-S=Pausecontrol key plus-Q=Resumecontrol key plus-X=Abortcontrol key p@CARNIVAL NETWORK index to downloadfiles:Place detailed descriptions of yourdownload files in here.X=Abortcontrol key pDhThere is no NEWS at this time.dfiles:Place detailed descriptions of yourdownload files in here.X=Abortcontrol key pH!------- NEW USER INFORMATION ------ To get a copy of this BBSsoftware, send $29.95 to: Software Unlimited N0} Po Box 351 Riegelsville, Pa. 18077 For more information, callC.A.R.N.I.V.A.L. BBS- (215) 250-9471. N1} Use 'F' to get a file directoryand 'D' to download. Use 'Q' for a quick scan ofmessages, and 'R' to retrievemessagesN2}. Option 'E' is used toenter a message. To log off, use 'G'. Pleaseuse option 'P' rather than themessage base to leN3}ave messages forthe sysop. To get a list of commands, usethe '?'. If you need help, at thecommand level type 'H'.eL|0 REM CARNIVAL NETWORK PATCH1 REM COPYRIGHT 1983 BRAD KONIA2 GOSUB 326503 GOSUB 325505 GOTO 2900011 GOSUB GETCHR:IF X=17R5} OR X=24 OR X=152 THEN RETURN 20 IF PEEK(53279)=6 THEN POP :GOTO 1300021 IF PEEK(53279)=5 THEN 3260022 IF LOCAL THEN GET #R6}3,X:RETURN 30 IF PEEK(764)<255 THEN GET #3,X:? CHR$(X);:GOSUB 32200:RETURN 70 L$=""160 ? #MODEM:IF NOT XMODE THEN ? #MODER7}M;CTRL$:REM SEND170 L=LEN(BUFFER$):IF NOT L THEN RETURN 200 T=T+C8:IF T>=L THEN ? #MODEM;BUFFER$(F,L);:RETURN 210 ? #MODER8}M;BUFFER$(F,T);:F=F+C8:GOSUB C8:IF (X=24 OR X=152) AND HF=0 THEN ? #MODEM;CR$;"Break...";CR$:RETURN 310 POKE 77,ZERO:GOSUB CR9}LM:IF LOCAL THEN RETURN 374 IF X=89 THEN X=WON:? #MODEM;"Yes":RETURN 376 IF X=78 THEN X=ZERO:? #MODEM;"No":RETURN 400 IF LR:}OCAL=WON THEN ? "":FOR I=1 TO 100:NEXT I403 ? #MODEM;"Atari users go - HIT ";:GOSUB GETCHR:SYSOP=0:XPASS=0:R;}NAME$="":ADDRES$="":LITERAL=0405 SECURITY=1:XCHAT=0:ATARIMODE=0410 IF X=155 THEN ? #MODEM:ATARIMODE=1:GOTO 510440 ? #MODEMR<};CHR$(10);CR$;"Are you an Atari?";:GOSUB 372460 IF NOT X THEN LMODE=64:GOSUB 310500510 ? #MODEM;CR$;"CARNIVAL NETWORK BBSR=} SOFTWARE"511 IL=40:? #MODEM;CR$;"Name or act.# ] ";:GOSUB GLINE:IF ASC(L$)>48 AND ASC(L$)<58 THEN 31500512 IF L$=XSYSOP$ TR>}HEN NAME$=SNAME$:XMODE= NOT XMODE:PROMPT$="X] ":SYSOP=1:SECURITY=9:SECURITY$="9":GOTO MAIN515 GOTO 32000:SECURITY=1:SECURE=1R?}517 SYSOP=0520 GOSUB 31000540 ? #MODEM;"From City,State ] ";:GOSUB GLINE:IF LEN(L$)<3 THEN 540550 GOSUB 31000620 FILE$="R@}D1:WELC":XRETURN=1:GOSUB 900630 IF SECURITY=0 THEN SECURITY=9:SECURITY$="9":SYSOP=1635 FILE$="D1:FLASH":HF=1:XRETURN=1:GOSURA}B 900:HF=0:? #MODEM;CR$;CR$640 CALLNO=CALLNO+WON:? #MODEM;"Logging caller No. ";CALLNO;" to disk..."650665 IF XCALLER=0 THRB}EN 690670 OPEN #FILE,9,ZERO,CDF$680 GOSUB 2010:? #FILE;NAME$;CR$;ADDRES$;CR$;TODAY$;CR$;TIME$;CR$690 CLOSE #FILE:GOSUB 281RC}00700 PRINT #5;"ON ";NAME$;" ";ADDRES$:PRINT #5;" ";TODAY$;" ";TIME$;" CALLER NO.";CALLNO;" "705 GOSUB OPM:? #MODEM;"LoggRD}ed on at ";TIME$;" on ";TODAY$;CR$:GOSUB CLM710 FILE$="D1:BULL":XRETURN=1:GOSUB 900800 IF XPASS=1 THEN GOTO MAIN805 ? #MODRE}EM;"Is this your first time on":? #MODEM;"a CARNIVAL NETWORK BBS?";:GOSUB 372:IF NOT X THEN GOTO MAIN840 FILE$="D1:NEWU":XRRF}ETURN=1:GOSUB 900:GOTO MAIN900 GOSUB 5900:GOSUB OPM905 IF FILE$="D1:FLASH" THEN GOSUB 170:GOTO 5040910 GOSUB 160:GOTO 5040RG}950 IF XRETURN=1 THEN XRETURN=0:RETURN 960 ? #MODEM:? #MODEM;"*** END OF FILE ***"1010 GOSUB GETCHR:L$=CHR$(X):? #MODEM;L$RH}:IF X=155 THEN GOTO MAIN1011 IF X<>65 AND X<>71 AND X<>76 AND X<>81 AND X<>82 AND X<>83 AND X<>88 AND X<>89 AND X<>84 THEN MRI}ISM=01012 REPLY=0:XREAD=01013 IF L$="*" AND SYSOP=1 THEN 170001040 X=X+WON:IF X>10 THEN ? #MODEM;"Invalid command, use 'H'RJ} for help.":GOTO MAIN1055 IF L$(WON,WON)=FUNC$(X+10,X+10) THEN ON X GOTO 3300,3400,3500,3600,2200,3900,5000,5200,5400,14101RK}057 IF L$(WON,WON)=FUNC$(X+20,X+20) THEN ON X GOTO 1420,14000,14301200 FILE$="D1:FUNC":GOSUB RFILE:GOSUB 170:GOTO MAIN1400 RL}FILE$="D1:NEWS":GOTO 9001410 FILE$="D:BBSLIST":GOTO 9001420 FILE$="D:INDX":GOTO 9001430 FILE$="D:ACTS":GOTO 9001500 XMODERM}= NOT XMODE1505 TRAP 315701510 IF XMODE THEN ? #MODEM;"Expert user mode":PROMPT$="X] ":GOTO MAIN1520 ? #MODEM;"Normal userRN} mode":GOSUB 1530:GOTO MAIN1530 PROMPT$="Enter command or ? =>"154015502000 GOSUB 2010:? #MODEM;"Time: ";TIME$;" Date: RO}";TODAY$:GOTO MAIN2070 X=(T+X*3600+F*60)*60+70002190 QRS=ZERO:? #MODEM;"Retrieve";:XREAD=1:GOTO 22102210 ? #MODEM;" MessagRP}es"2212 IF MISM=1 THEN 22182214 FILE$=MIF$:GOSUB RFILE:MISM=12218 ? #MODEM;MSGS;" Messages"2260 ? #MODEM;"RETURN=Exit, MsRQ}g# From-To ] ";2272 IF NOT XMODE THEN ? #MODEM;CR$;CTRL$2275 IF QRS=-WON THEN ? #MODEM;"@=Private message";CR$2280 GOSUB RR}PARSE:IF DIR=ZERO THEN GOSUB OPM:? #MODEM:GOTO 22602296 SUBJ$=BUFFER$(F*40-35,F*40-3)2297 IF QRSFR$ AND PRIVART}TE=1 AND NAME$<>FROM$ THEN GOSUB OPM:GOTO 324002322 PRIVATE=02323 MSG$="MSG# ":MSG$(6)=MSGNO$:MSG$(10)=" DATE:":MSG$(16)=DARU}TE$:MSG$(24)=" TIME:":MSG$(30)=TIME$:MSG$(38)=CR$2328 IF SYSOP=1 THEN MSG$(LEN(MSG$)+WON)="PASS: ":MSG$(LEN(MSG$)+WON)=PAS$:RV}MSG$(LEN(MSG$)+WON)=CR$2455 IF X=14 THEN 24702470 ? #MODEM;" ":IF LOCAL THEN ? "PRINT ":GET #3,X:? :IF X=89 THEN LPRINRW}T MSG$2471 IF XREAD=0 THEN 24802472 ? #MODEM;CR$;"=NEXT, =REPLY ==>";:GOSUB GETCHR:IF X=82 THEN ? #MODEM;"Reply";CRRX}$:REPLY=1:GOTO 26652475 ? #MODEM;CR$2480 RETURN 2600 FROM$=NAME$2605 IF XENTER=0 THEN ? #MODEM;"Message base full.":GOTO RY}MAIN2610 ? #MODEM;"Enter Message--- (^X, RETURN to exit)":? #MODEM;"Subject: ";2630 GOSUB GLINE:IF L$="" THEN GOTO MAIN26RZ}50 ? #MODEM;"To: =All ";2660 GOSUB GLINE:IF L$="" THEN L$="ALL":? #MODEM;"To: ";L$;CR$2662 FR$=L$2665 IF REPLY=1 TR[}HEN FR$=FROM$:FROM$=NAME$:SUBJ$="TO: ":SUBJ$(LEN(SUBJ$)+WON)=FR$:SUBJ$(LEN(SUBJ$)+WON)="- (R),#"2666 IF REPLY=1 THEN SUBJ$(LR\}EN(SUBJ$)+WON)=STR$(VAL(MSGNO$))2667 IF XENTER=0 THEN ? #MODEM;"Message base full.":GOTO 24802670 ? #MODEM;"Enter Password R]}Required to Kill Msg:":GOSUB GLINE:PAS$=L$2680 LI=ZERO:? #MODEM;"Enter Message, Two s when done"2690 IL=120:LI=LI+WON:R^}IF LI>16 THEN 27902710 ? #MODEM;LI;":"2800 ? #MODEM;"[A]dd,[E]dit,[L]ist,[Q]uit,[S]ave,":? #MODEM;"[P]rivate Save,[V]iew meR_}ssage ?";2840 IF X=76 THEN PREVIEW=0:GOTO 30002845 IF X=86 THEN PREVIEW=1:GOTO 30002850 IF X=81 THEN ? #MODEM;"MESSAGE ABOR`}RTED":GOTO 32272865 IF X=80 THEN PRIVATE=1:GOTO 31003005 ? #MODEM;CR$3015 IF PREVIEW=0 THEN ? #MODEM;X;":"3020 ? #MODEM;MRa}SG$(X*121-119,X*121-120+ASC(MSG$(X*121-120)))3035 ? #MODEM;CR$3125 IF PRIVATE=1 THEN SUBJ$="TO: ":SUBJ$(5)=FR$:SUBJ$(LEN(SURb}BJ$)+1)="-@":PRIVATE=0:PVT=13210 PRINT #5;"MESSAGE ";MSGNO$;" ";MSECT-A:GOSUB 310:MSGS=MSGS+WON:HYMSG=MSECT-A3215 IF XMSECRc}T-HYMSG<=5 THEN XENTER=03225 IF PVT=1 THEN PVT=0:? #MODEM;CR$;"SUBJECT LINE CHANGED TO:";CR$;CR$;SUBJ$3227 IF REPLY=1 THEN Rd}MISM=0:GOTO 24803300 ? #MODEM:? #MODEM;"Log off?";:GOSUB 3723305 IF PEEK(53279)=6 THEN 130003310 IF X=ZERO THEN GOTO MAINRe}3320333033403351 ? :PRINT #5;"LOG-OFF ";TIME$:GOSUB OPM3400 LMODE=64-LMODE:GOSUB OPM:? #MODEM;"LINE-FEED ";3500 AMODE=32Rf}:GOSUB OPM:? #MODEM;"HIT ";:GOSUB GETCHR:IF X<>155 THEN AMODE=ZERO3510 IF AMODE THEN BEL$=CHR$(253):DEL$=CHR$(156):BRg}S$=CHR$(126):? #MODEM;"ɠ":GOTO MAIN3600 IF XCALLER=0 THEN ? #MODEM;"Function currently inactive":GOTO MAIN3605 ?Rh} #MODEM;CALLNO;" Callers":FILE$=CDF$:GOTO 900361036123616361736183619362036223625363036403650368036903900 ? #MRi}ODEM;"Kill Message"3960 ? #MODEM;"=EXIT, Kill ";4040 IF SYSOP=1 THEN 41104100 IF L$<>PAS$ THEN ? #MODEM;"INVALIRj}D PASSWORD";BEL$:GOTO MAIN4150 PRINT #5;"KILLED MSG ";MSGNO$:GOSUB 310:? #MODEM;"MESSAGE DELETED":GOTO MAIN5000 GOSUB 5100:Rk}L=X:GOSUB CLM:CLOSE #FILE:TRAP 5800:OPEN #FILE,4,ZERO,FILE$:CLOSE #FILE5010 TRAP 8080:GOSUB 2010:IF L THEN 60005020 PRINT #Rl}5;"DL ";FILE$;" ";TIME$5030 GOSUB 5900:GOSUB OPM:? #MODEM;"FILE: ";FILE$:GOSUB 1605040 IF BFLAG OR X=24 OR X=152 THEN 9505Rm}050 GOSUB CLM:BUFFER$="":GOSUB 5920:GOSUB OPM:GOSUB 170:GOTO 5040506050705100 IF SECURITY=1 OR LITERAL=1 THEN 51085101 ? Rn}#MODEM;"Enter security level <1-";SECURITY;">";:GOSUB GETCHR:? #MODEM;CHR$(X):IF X<49 OR X>SECURITY+48 THEN 51005103 SEC=X-4Ro}85108 FILE$="D1:":? #MODEM;"RETURN=Exit, File Name ] ";:IF DRIVES=2 THEN FILE$="D2:"5115 IF LITERAL=1 THEN FILE$=L$:GOTO 51Rp}655152 NEXT X5154 IF SECURITY=1 THEN 51605155 IF SEC=1 THEN 51605156 FILE$(LEN(FILE$)+WON)=".PV":FILE$(LEN(FILE$)+WON)=STRq}R$(SEC):GOTO 51655160 FILE$(LEN(FILE$)+WON)=".UDL"5165 IF FILE$(4,4)<"A" THEN POP :GOTO MAIN5180 ? #MODEM;"Xmodem file traRr}nsfer ";5200 IF XCALLER=0 THEN ? #MODEM;"Function currently inactive":GOTO MAIN5205 GOSUB CLM:CLOSE #FILE:REM U5235 FILE$(Rs}2,2)="1"5240 GOSUB CLM:GOSUB 2010:CLOSE #FILE:IF L THEN PRINT #5;"XUP ";FILE$;" ";TIME$:GOTO 52605250 PRINT #5;"UP ";FILE$;Rt}" ";TIME$5300 GOSUB CLM:OPEN #FILE,C8,ZERO,FILE$:GOSUB OPM5310 ? #MODEM;"Upload --- Enter file =Exit "5320 ? #MODEM;">Ru}";:IL=120:GOSUB GLINE5330 IF L$="" THEN GOSUB CLM:CLOSE #FILE:GOTO MAIN5340 GOSUB CLM:? #FILE;L$:GOSUB OPM:GOTO 532053505Rv}3605400 IF SECURITY=1 THEN 54085401 ? #MODEM;"Enter security level <1-";SECURITY;">";:GOSUB GETCHR:? #MODEM;CHR$(X):IF X<49Rw} OR X>SECURITY+48 THEN 51005402 SEC=X-48:IF SEC=1 THEN 54085403 GOSUB CLM:CLOSE #FILE:FILE$="D1:*.PV":FILE$(LEN(FILE$)+WON)Rx}=STR$(SEC):GOTO 54105408 GOSUB CLM:CLOSE #FILE:FILE$="D1:*.UDL"5410 IF DRIVES=2 THEN FILE$(2,2)="2"5415 OPEN #FILE,6,ZERO,Ry}FILE$:BUFFER$="":TEMP$="FILE DIRECTORY---":GOTO 54405470 BUFFER$(LEN(BUFFER$)+WON)="* = BINARY FILE":BUFFER$(LEN(BUFFER$)+WORz}N)=CR$5900 GOSUB CLM:CLOSE #FILE:OPEN #FILE,4,ZERO,FILE$:REM INF. BUFF5910 POKE 195,ZERO:A$(255)=" ":BUFFER$=""5920 TRAP 5R{}930:FOR I=1 TO 4:XIO 7,#FILE,4,ZERO,A$:BUFFER$(LEN(BUFFER$)+WON)=A$:NEXT I:BFLAG=ZERO:RETURN 5930 IF PEEK(856) THEN BUFFER$(R|}LEN(BUFFER$)+WON)=A$(WON,PEEK(856))5940 BFLAG=PEEK(195):RETURN 5950 T=LEN(BUFFER$):F=((T/128)-INT(T/128))*1285960 FOR I=F+R}}1 TO 128:BUFFER$(LEN(BUFFER$)+1)=CHR$(F):NEXT I5970 RETURN 6000 CLOSE #FILE6010 PRINT #5;"XDL ";FILE$;" ";TIME$6020 GOSUBR~} 5900:IF BFLAG THEN GOSUB 595060256030 GOSUB OPM:? #MODEM;"FILE: ";FILE$;" Ready to Send":? #MODEM;"^X to cancel"6040 BLOCR}K=WON:GOSUB GETCHR:IF X<>21 THEN GOTO MAIN60456050 AM=AMODE:LM=LMODE:AMODE=32:LMODE=ZERO:GOSUB OPM6060 DIR=ZERO6070 FOR TR}=WON TO 10:PUT #MODEM,WON:PUT #MODEM,BLOCK:PUT #MODEM,255-BLOCK:F=ZERO6080 A=DIR*128+ADR(BUFFER$)6090 FOR I=0 TO 127:X=PEEKR}(A+I):PUT #MODEM,X:F=F+X:NEXT I6100 F=ASC(CHR$(F)):PUT #MODEM,F:GOSUB GETCHR:IF X=21 THEN 61206110 T=106120 NEXT T:DIR=DIRR}+WON:BLOCK=BLOCK+WON6130 IF X<>6 THEN 63006140 F=(DIR+1)*128:T=LEN(BUFFER$):IF F<=T THEN 60706150 IF BFLAG THEN 62006160 R}IF F=T THEN BUFFER$="":GOTO 61806170 BUFFER$=BUFFER$(DIR*128+1,T)6180 GOSUB CLM:GOSUB 5920:IF BFLAG THEN GOSUB 59506190 GOR}SUB OPM:GOTO 60606200 PUT #MODEM,4:GOTO 63506300 ? #MODEM:? #MODEM;"* ABORTED *"63106350 DIR=0:AMODE=AM:LMODE=LM:GOTO MAIR}N64006500 AM=AMODE:LM=LMODE:AMODE=32:LMODE=64:L=21:NSEC=ZERO6510 TRAP 6700:A$(131)=" ":A=ADR(A$):GOSUB CLM:OPEN #FILE,C8,ZR}ERO,FILE$0 AM=AMODE:LM=LMODE:AMODE=32:LMODE=64:L=21:NSEC=ZERO6510 TRAP 6700:A$(131)=" ":A=ADR(A$):GOSUB CLM:OPEN #FILE,C8,ZP Sysop Level- ̠˛C - CHANGE PARAMETERSD - DISK DIRECTORY D:*.* D2:*.* V} etc...E - EXIT (RETURN TO NORMAL USER COMMAND LEVEL)L - LITERAL MODE ON/OFF TOGGLE. WHEN INV} LITERAL MODE, YOU MUST SPECIFY THE COMPLETE DEVICE NAME AND FILE NAME (WITH EXTENDER) FOR UL/DL. THIS ALLOWS YOUV} TO UL/DL SYSTEM FILES, ETC... INSTEAD OF JUST NORMAL UL/DL FILES.R - READ PRIVATE MESSAGES TO SYSOPX - XIO COMMAV}NDS: 33=DELETE 32=RENAME 35=LOCK 36=UNLOCKNote- Do not V}use the twice when renaming a file;i.e. do not use "D:OLD,D:NEW".instead, use "D:OLD,NEW"Note- Do not To1 REM REVISION 1.1;(C)1983 BRAD KONIA513 IF L$="" THEN 511515 GOTO 32000:SECURITY=1:SECURE=12328 IF SYSOP=1 THEN MSG$(LEN(Z}MSG$)+WON)="PASS: ":MSG$(LEN(MSG$)+WON)=PAS$:MSG$(LEN(MSG$)+WON)=CR$2665 IF REPLY=1 THEN FR$=FROM$:FROM$=NAME$:SUBJ$="TO: ":Z}SUBJ$(LEN(SUBJ$)+WON)=FR$:SUBJ$(LEN(SUBJ$)+WON)="- (R),#"2666 IF REPLY=1 THEN SUBJ$(LEN(SUBJ$)+WON)=STR$(VAL(MSGNO$))5170 IZ}F LEN(FILE$)=2 THEN FILE$(2,2)="2":GOTO 5415LE$(LEN(FILE$)+WON)=STR$(SEC):IF DRIVES=3 THEN FILE$(2,2)="3"5404 GOTO 5410540d-EFP?@     Y`  Y0 o` o`di vLj}EEFP?@     Y`  Y0 o` o`di vLh