10  COM X$[100]
20  REM PSEUDO ROSTER
30  REM WRITTEN BY DAVID SHAYER  SMHS  2/27/80
40  DIM A$[250],A1$[10],B$[250],C$[250],D$[250]
50  FILES *
60  REM IN THE NEXT LINE, SET A1$ TO THE ACCOUNT
70  REM WITH THE LOG FILE IN IT.
80  A1$="A101"
90  SYSTEM A$,"TIME"
100  A$="LOG."
110  PRINT LIN(2)
120  A$[LEN(A$)+1]=A1$
130  ASSIGN A$,1,R1,"HAN"
140  IF R1=0 THEN 170
150  PRINT "ASSIGN ERROR - LOG FILES ARE MISSING - CANNOT CONTINUE"
160  STOP 
170  T=TIM(1)*60+TIM(0)
180  READ #1;R,I
190  FOR X=1 TO 32
200  C$[LEN(C$)+1]=".... "
210  D$[LEN(D$)+1]="     "
220  NEXT X
230  IF R<6 THEN 280
240  A=R-4
250  B=R
260  GOSUB 450
270  GOTO 340
280  A=98-(5-R)
290  B=98
300  GOSUB 450
310  A=2
320  B=R
330  GOSUB 450
340  FOR X=1 TO 4
350  PRINT C$[X*40-39,X*40]
360  FOR Y=X*40 TO X*40-39 STEP -1
370  IF D$[Y,Y]#" " THEN 410
380  NEXT Y
390  PRINT 
400  GOTO 420
410  PRINT D$[X*40-39,Y]
420  NEXT X
430  CHAIN R,X$
440  STOP 
450  IF  END #1 THEN 620
460  READ #1,A
470  IF REC(1)>B THEN 620
480  READ #1;B$
490  IF REC(1)>B THEN 620
500  IF POS(B$,"ATTEMPT")#0 THEN 610
510  CONVERT B$[28,30] TO S
520  IF S#TIM(2) THEN 610
530  CONVERT B$[10,11] TO S1
540  CONVERT B$[12,13] TO S2
550  S=S1*60+S2
560  IF ABS(T-S)>60 THEN 610
570  CONVERT B$[7,8] TO P
580  P=P+1
590  C$[P*5-4,P*5]=B$[1,4]
600  D$[P*5-4,P*5]=B$[10,13]
610  GOTO 480
620  RETURN 
630  END 
