10  DIM A$[255],B$[100],C$[255],T$[13],B1$[128],L$[80],N$[20]
20  DIM P$[40],J$[4],O$[255],X$[255],S$[20],G[10],M[12],M$[11]
30  DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,10,255
40  DATA ">","B000A000A001A002","Mailbx.B000"
50  READ M0,M1,M2,M3,M4,M5,M6,M7,M8,M9,N0,N1,N2,N3,N,K,P$,S$,M$
60  DEF FNA()=T+(((LEN(X$)/M2#INT(LEN(X$)/M2))+LEN(X$))/M2+M1)
70  FILES *,*,Port.B000
80  REM Y=BRK(M0)
90  L$="     #00  #--   Log-in  0:00:00  User                  "
100  SYSTEM I$[M1,M4],"Time"
110  DATA 31,28,31,30,31,30,31,31,30,31,30,31
120  MAT  READ M
130  M[M2]=M[M2]+(TIM(M3)/M4=INT(TIM(M3)/M4))
140  T9=365+(M[M2]=29)*30
150  D3=TIM(M2)-(T9<TIM(M2))*T9
160  T7=(TIM(M2)+T9*TIM(M3)+INT((TIM(M3)-M1)/M4+.01))/M7
170  T7=INT(M7*(T7-INT(T7))+1.5)
180  MAT G=ZER
190  READ #M3,N1;A$,X
200  IF  NOT X THEN 240
210  PRINT "OnLine is Down."
220  IF POS(S$,I$) THEN 270
230  END 
240  IF  NOT POS(A$,I$) THEN 270
250  PRINT "Access denied for Id: "I$
260  END 
270  READ #M3,N1
280  FOR P=M1 TO N
290  IF  END #M3 THEN 360
300  READ #M3,P;A$
310  NEXT P
320  PRINT "All ports in use."
330  END 
340  GOSUB 2190
350  L$[M6*M4-M1,N0*M3+M1]=T$[M2,N]
360  CONVERT P TO L$[M7+(P<N0),M8]
370  L$[M1,M4]=I$
380  PRINT #M3,P;L$
390  Q0=SGN(POS(S$,I$))
400  IF  NOT Q0 THEN 420
410  L$[M3*N1,M4*N0-M2]="Master"
420  PRINT "Name: ";
430  LINPUT C$
440  IF  NOT LEN(C$) THEN 420
450  GOSUB 3520
460  N$=C$[M1,M5*M4 MIN LEN(C$)]
470  C$[LEN(C$)+M1]=":"
480  L$[N0*M4]=C$
490  GOSUB 2370
500  L$[M6*M4,N0*M3+M1]=T$[M2,N]
510  GOSUB 7640
520  O$="L"
530  GOSUB 560
540  PRINT #M3,P;L$; END 
550  GOTO 1100
560  O$[M2]=N$
570  O$[LEN(O$)+M1]="."
580  O$[LEN(O$)+M1]=I$
590  O$[LEN(O$)+M1]=L$[M6,M8]
600  REM <<Register Logon>>
610  READ #M3,N1
620  FOR P0=M1 TO N
630  IF P0=P THEN 670
640  GOSUB 2890
650  IF  NOT L THEN 670
660  GOSUB 3670
670  NEXT P0
680  RETURN 
690  REM <<Read Messages>>
700  R4=M0
710  READ #M3,N1
720  READ #M3,P;X$
730  IF  END #M3 THEN 1070
740  READ #M3;A$
750  R4=M1
760  GOTO POS(" LOYS",A$[M1,M1]) OF 780,930,950,980,1000
770  GOTO 740
780  PRINT "From "A$[M2,POS(A$,"#")-M1]" on Port"A$[POS(A$,"#"),POS(A$,":")]
790  A$=A$[POS(A$,":")+M1]
800  IF A$[M1,M1]#" " THEN 840
810  A$=A$[M2]
820  IF  NOT LEN(A$) THEN 740
830  GOTO 800
840  Z7=M8*M9
850  IF LEN(A$)<Z7 THEN 910
860  IF A$[Z7,Z7]=" " THEN 890
870  Z7=Z7=M1
880  GOTO 860
890  PRINT A$[M1,Z7]
