1  PRINT " PROGRAM NOT COMPLETE !!!"
10  REM   >>> DIRCOM
30  REM   >>> Nov 2, 1979
40  DIM A$[244],B$[255],C$[255],D$[255],E$[255]
50  DIM F$[25],L$[25],H[100,10]
60  MAT H=ZER
70  FILES *
80  PRINT "Directory file? ";
90  GOSUB 9000
100  IF G THEN 80
110  ASSIGN A$,1,Q
120  IF Q<3 THEN 150
130  PRINT "File "A$" not available.  Code"Q
140  GOTO 80
150  REM   >>> Dircom
160  PRINT "Field? ";
170  GOSUB 9000
180  IF G THEN 160
190  F$="A000"
200  L$="Z999"
210  IF  NOT LEN(A$) THEN 270
220  X0=POS(A$,",")
230  F$=A$
240  IF  NOT X0 THEN 270
250  L$=A$[X0+1]
260  F$=A$[1,X0-1]
270  LINPUT #1;A$
280  LINPUT #1;A$
290  G=0
300  PRINT "Acct";
310  RESTORE 
320  DATA "Fls.","Progs.","Lgst","# C","# P","# L","# PRI","# U","Space"
330  FOR X=1 TO 9
340  READ A$
350  PRINT TAB(7*X);A$;
360  NEXT X
370  PRINT 
380  FOR X0=1 TO 100
390  LINPUT #1;A$
400  IF A$[1,1]#" " THEN 425
410  IF G1 THEN 490
420  GOTO 390
425  G1=0
430  IF A$[1,4]<F$ THEN 390
435  G1=1
440  IF A$[1,4]>L$ THEN 5000
450  CONVERT A$[2,4] TO X1
460  H[X0,10]=NUM(A$[1,1])+(X1/1000)
480  G=1
490  F2=H[X0,1]
500  H[X0,1]=H[X0,1]+((POS(A$[32,33],"A")) OR (POS(A$[32,33],"F")))
510  IF F2#H[X0,1] THEN 530
520  H[X0,2]=H[X0,2]+1
530  IF F2=H[X0,1] THEN 570
540  CONVERT A$[39,43] TO X1,570
550  IF X1 <= H[X0,3] THEN 570
560  H[X0,3]=X1
570  X1=SGN(POS(A$[32,33],"C"))
580  X2=SGN(POS(A$[32,33],"P"))
590  X3=SGN(POS(A$[32,33],"L"))
600  X4=SGN(POS(A$[33,33]," "))
610  X5=SGN(POS(A$[32,33],"U"))
620  X=X0
630  H[X,4]=H[X,4]+X1
640  H[X,5]=H[X,5]+X2
650  H[X,6]=H[X,6]+X3
660  H[X,7]=H[X,7]+X4
670  H[X,8]=H[X,8]+X5
680  CONVERT A$[39,43] TO X1,695
690  H[X,9]=H[X,9]+X1
695  IF G THEN 310
700  NEXT X0
710  FOR X1=1 TO 100
720  CONVERT (((H[X1,10]-INT(H[X1,10]))*1000)) TO A$
730  PRINT CHR$(INT(H[X1,10]));A$[1,3];
740  FOR X2=1 TO 9
750  CONVERT H[X1,X2] TO A$
760  PRINT TAB(X2*7);A$;
770  NEXT X2
780  PRINT 
790  NEXT X1
800  MAT H=ZER
810  GOTO 290
5000  REM   >>> End of field
5005  PRINT "JKHKJHKH"
5010  GOTO 9999
9000  REM   >>> Input
9010  LINPUT A$
9020  A$=UOS$(A$)
9030  G=0
9040  RETURN 
9999  END 
