EXTERNALROUTINE  FACS(STRING (255)S)
EXTERNALINTEGERFNSPEC  DCONNECT(STRING (6)U, STRING (11)F, C 
      INTEGER  FSYS, MODE, APF, INTEGERNAME  SEG, GAP)
INTEGER  J, SEG, GAP, A
INTEGERARRAYNAME  F
INTEGERARRAYFORMAT  FF(0:1016)
CONSTSTRING (6)FILE = "FCOUNT"
CONSTSTRING (6)USER = "VOLUMS"
CONSTINTEGER  TOP J = 95
CONSTSTRING (33)ARRAY  PROC(1:TOP J) = C 
"ACREATE2",
"BADPAGE",
"DACCEPT",
"DASYNCINH",
"DBITMAP",
"DBITMAP2",
"DCHACCESS",
"DCHECKBPASS",
"DCHSIZE",
"DCLEARINTMESSAGE",
"DCONNECT",
"DCPUTIME",
"DCREATE",
"DDELAY",
"DDELUSER",
"DDESTROY",
"DDISABLETERMINALSTREAM1",
"DDISCONNECT",
"DDONATE",
"DDUMP",
"DEMPTYI",
"DENABLETERMINALSTREAM",
"DERR2",
"DERRS",
"DEXECMESS",
"DFILENAMES",
"DFINFO",
"DFSTATUS",
"DFSYS",
"DGETDA",
"DINDEX",
"DINDEX2",
"DINDNO",
"DISCID",
"DLOCK",
"DLOWERACR",
"DMAGCLAIM",
"DMAGIO",
"DMAIL",
"DMESSAGE",
"DMESSAGE2",
"DMODARCH",
"DMODE",
"DMONITOR",
"DMON",
"DNEWARCHINDEX",
"DNEWGEN",
"DNEWINWARDCALL",
"DNEWOUTWARDCALL",
"DNEWUSER",
"DNINDA",
"DNOMINATESTACK",
"DOFFER",
"DOPERR",
"DOPER",
"DOPERPROMPT",
"DOUT",
"DOUT11",
"DOUT18",
"DPERMISSION",
"DPLUGINJVECTOR",
"DPOFF",
"DPON",
"DPON2",
"DPON3",
"DPRG",
"DPRINTSTRING",
"DPROCS",
"DPVM",
"DRENAME",
"DRENAMEINDEX",
"DREPLACE",
"DREPLACEINDEX",
"DRESETCONTINGENCY",
"DRESTORE",
"DRESUME",
"DSETIC",
"DSFI",
"DSPOOL",
"DSTOP",
"DSYSAD",
"DTOFF",
"DTRANSFER",
"DUNLOCK",
"DUNPRG",
"DXDUMPI",
"FBASE",
"GETAVFSYS",
"GETUSNAMES",
"GETUSNAMES2",
"PRIMECONTINGENCY",
"PRINTMP",
"READID",
"S#OPER",
"SETDIRMON"
      SEG = 0
      GAP = 0
      J = DCONNECT(USER, FILE, -1, 11, 0, SEG, GAP)
      IF  J = 0 OR  J = 34 START 
         A = SEG << 18 + 32
         F == ARRAY(A, FF)
         CYCLE  J = 1, 1, TOPJ
            IF  F(J) > 0 START 
               WRITE(F(J), 6)
               PRINTSTRING(" " . PROC(J))
               NEWLINE
            FINISH 
         REPEAT 
      FINISH  ELSE  START 
         PRINTSTRING("FLAG =")
         WRITE(J, 1)
         NEWLINE
      FINISH 
END 
ENDOFFILE