INTEGER SNEW(13),SOLD(13)
      INTEGER SVERS0,NUSR,CPTICK,CLRATE
      INTEGER * 4 OCPTOT,OIOTOT,OGCLOK,OIOCNT
      INTEGER * 4 CPTOT,IOTOT,GCLOK,IOCNT
      INTEGER FNEW(12),FOLD(12)
      INTEGER FVERS0
      INTEGER * 4 OPFCNT,OMISS0,OFOUND,OSAME,OUSED
      INTEGER * 4 PFCNT,MISSES,FOUND,SAME,USED
      INTEGER INEW(34),IOLD(34)
      INTEGER IVERS0
      INTEGER * 4 OIDLE1,OIDLE2,OCLOCK,OFARN0,OSMLC,OAMLC,OMPC1,OMPC2,OP
     *LOT,ORING,OSPARE,ODISK1,ODISK2
      INTEGER * 4 IDLE1,IDLE2,CLOCK,FARNET,SMLC,AMLC,MPC1,MPC2,PLOT,RING
     *,SPARE,DISK1,DISK2
      INTEGER UNEW(43,128),UOLD(43,128)
      INTEGER UVERS0
      INTEGER MNEW(129)
      INTEGER MVERS0
      LOGICAL JUSTA0
      INTEGER TERMT0(7),ARG(128)
      INTEGER CMDBUF(102),PROMPT(20)
      INTEGER I,NEXTL0,CODE,POSIT0,HRS,MIN,HERE,INHCNT
      INTEGER DISPL0,CH,FACTOR,ROWCOL(2),DUPLEX,PLEN
      INTEGER SUMMA0,CURSOR,COMMA0
      INTEGER * 4 INTER0,JUNKP0
      REAL SEC
      INTEGER * 4 DIOCNT,DPFCNT,DBHCNT
      REAL DCPU,DUCPU,DIO,DSEC,CPTIME,IOTIME,UPTIME
      REAL PFSEC,DASEC,BHSEC,BHPCT
      COMMON SNEW,POSIT0,DCPU,DISPL0,FACTOR,MNEW
      COMMON /QUIT$/INHCNT
      INTEGER GETARG,VTINIT,DUPLX$,LENGTH
      INTEGER MAPDN
      LOGICAL CHKINP
      INTEGER * 4 CTOL
      SHORTCALL MKONU$
      EXTERNAL QUIT
      INTEGER AAAAA0
      INTEGER AAAAB0
      INTEGER AAAAC0
      INTEGER AAAAD0
      INTEGER AAAAE0
      INTEGER AAAAF0
      INTEGER AAAAG0
      INTEGER AAAAH0
      INTEGER AAAAI0(5)
      INTEGER AAAAJ0(4)
      INTEGER AAAAK0(33)
      INTEGER AAAAL0
      INTEGER AAAAM0
      INTEGER AAAAN0(6)
      INTEGER AAAAO0
      INTEGER AAAAP0
      INTEGER AAAAQ0
      INTEGER AAAAR0
      INTEGER AAAAS0(2)
      INTEGER AAAAT0
      INTEGER AAAAU0(3)
      INTEGER AAAAV0(23)
      INTEGER AAAAW0(8)
      INTEGER AAAAX0(38)
      INTEGER AAAAY0(30)
      INTEGER AAAAZ0(6)
      INTEGER AAABA0(30)
      INTEGER AAABB0(30)
      INTEGER AAABC0(6)
      INTEGER AAABD0(30)
      INTEGER AAABE0(30)
      INTEGER AAABF0(6)
      INTEGER AAABG0(34)
      INTEGER AAABH0
      INTEGER AAABI0(39)
      INTEGER AAABJ0(39)
      INTEGER AAABK0(28)
      INTEGER AAABL0(28)
      INTEGER AAABM0(28)
      INTEGER AAABN0(28)
      INTEGER AAABO0(28)
      INTEGER AAABP0(28)
      INTEGER AAABQ0
      INTEGER AAABR0
      INTEGER AAABS0(24)
      INTEGER AAABT0(20)
      INTEGER AAABU0(21)
      INTEGER AAABV0(28)
      INTEGER AAABW0(33)
      INTEGER AAABX0(9)
      INTEGER AAABY0(16)
      INTEGER AAABZ0(9)
      INTEGER AAACA0(29)
      INTEGER AAACB0(29)
      INTEGER AAACC0(31)
      EQUIVALENCE (SVERS0,SNEW(1)),(CPTOT,SNEW(3)),(OCPTOT,SOLD(3)),(IOT
     *OT,SNEW(5)),(OIOTOT,SOLD(5)),(GCLOK,SNEW(7)),(OGCLOK,SOLD(7)),(IOC
     *NT,SNEW(9)),(OIOCNT,SOLD(9)),(NUSR,SNEW(11)),(CPTICK,SNEW(12)),(CL
     *RATE,SNEW(13))
      EQUIVALENCE (FVERS0,FNEW(1)),(PFCNT,FNEW(3)),(OPFCNT,FOLD(3)),(MIS
     *SES,FNEW(5)),(OMISS0,FOLD(5)),(FOUND,FNEW(7)),(OFOUND,FOLD(7)),(SA
     *ME,FNEW(9)),(OSAME,FNEW(9)),(USED,FNEW(11)),(OUSED,FNEW(11))
      EQUIVALENCE (IVERS0,INEW(1)),(IDLE1,INEW(3)),(OIDLE1,IOLD(3)),(IDL
     *E2,INEW(5)),(OIDLE2,IOLD(5)),(CLOCK,INEW(7)),(OCLOCK,IOLD(7)),(FAR
     *NET,INEW(9)),(OFARN0,IOLD(9)),(SMLC,INEW(11)),(OSMLC,IOLD(11)),(AM
     *LC,INEW(13)),(OAMLC,IOLD(13)),(MPC1,INEW(15)),(OMPC1,IOLD(15)),(MP
     *C2,INEW(17)),(OMPC2,IOLD(17)),(PLOT,INEW(19)),(OPLOT,IOLD(19)),(RI
     *NG,INEW(21)),(ORING,IOLD(21)),(SPARE,INEW(23)),(OSPARE,IOLD(23)),(
     *DISK1,INEW(25)),(ODISK1,IOLD(25)),(DISK2,INEW(27)),(ODISK2,IOLD(27
     *))
      EQUIVALENCE (UVERS0,UNEW(1,1))
      EQUIVALENCE (MVERS0,MNEW(1))
      DATA AAAAI0/239,235,172,160,0/
      DATA AAAAJ0/5,-11819,-13868,-23392/
      DATA AAAAK0/212,229,242,237,233,238,225,236,160,244,249,240,229,16
     *0,167,170,243,167,160,238,239,244,160,243,245,240,240,239,242,244,
     *229,228,0/
      DATA AAAAN0/170,243,170,163,248,0/
      DATA AAAAS0/160,0/
      DATA AAAAU0/170,227,0/
      DATA AAAAV0/160,160,160,160,160,160,160,160,160,160,160,160,160,16
     *0,160,160,160,212,239,244,225,236,0/
      DATA AAAAW0/160,195,232,225,238,231,229,0/
      DATA AAAAX0/160,160,160,160,160,160,160,160,160,160,160,160,160,16
     *0,160,160,160,160,160,212,239,244,225,236,160,195,232,225,238,231,
     *229,160,175,160,211,229,227,0/
      DATA AAAAY0/213,240,160,212,233,237,229,186,160,160,160,170,181,23
     *3,186,170,178,172,172,176,233,186,170,181,172,178,172,176,242,0/
      DATA AAAAZ0/170,183,172,178,242,0/
      DATA AAABA0/196,233,243,235,160,193,227,227,229,243,243,229,243,18
     *6,160,160,170,184,236,160,170,182,236,160,170,181,172,177,242,0/
      DATA AAABB0/213,243,229,242,160,212,233,237,229,186,160,170,181,23
     *3,186,170,178,172,172,176,233,186,170,181,172,178,172,176,242,0/
      DATA AAABC0/170,183,172,178,242,0/
      DATA AAABD0/208,225,231,229,160,198,225,245,236,244,243,186,160,16
     *0,160,160,170,184,236,160,170,182,236,160,170,181,172,177,242,0/
      DATA AAABE0/201,175,207,160,212,233,237,229,186,160,160,170,181,23
     *3,186,170,178,172,172,176,233,186,170,181,172,178,172,176,242,0/
      DATA AAABF0/170,183,172,178,242,0/
      DATA AAABG0/194,245,230,230,229,242,160,200,233,244,160,210,225,24
     *4,229,186,160,170,183,172,178,242,165,160,170,181,236,160,170,181,
     *172,177,242,0/
      DATA AAABI0/206,225,237,229,160,160,160,208,233,228,160,160,195,24
     *0,160,212,239,244,225,236,160,160,228,195,240,245,160,160,208,227,
     *244,160,160,205,229,237,160,252,0/
      DATA AAABJ0/206,225,237,229,160,160,160,208,233,228,160,160,195,24
     *0,160,212,239,244,225,236,160,160,228,195,240,245,160,160,208,227,
     *244,160,160,205,229,237,160,252,0/
      DATA AAABK0/206,225,237,229,160,160,160,208,233,228,160,212,233,23
     *7,229,160,160,228,195,240,160,160,208,227,244,252,160,0/
      DATA AAABL0/206,225,237,229,160,160,160,208,233,228,160,212,233,23
     *7,229,160,160,228,195,240,160,160,208,227,244,252,160,0/
      DATA AAABM0/206,225,237,229,160,160,160,208,233,228,160,212,233,23
     *7,229,160,160,228,195,240,160,160,208,227,244,252,160,0/
      DATA AAABN0/206,225,237,229,160,160,160,208,233,228,160,160,205,22
     *9,237,160,160,228,195,240,160,160,208,227,244,252,160,0/
      DATA AAABO0/206,225,237,229,160,160,160,208,233,228,160,160,205,22
     *9,237,160,160,228,195,240,160,160,208,227,244,252,160,0/
      DATA AAABP0/206,225,237,229,160,160,160,208,233,228,160,160,205,22
     *9,237,160,160,228,195,240,160,160,208,227,244,252,160,0/
      DATA AAABS0/193,246,225,233,236,225,226,236,229,160,227,239,237,23
     *7,225,238,228,243,160,225,242,229,186,0/
      DATA AAABT0/236,160,160,160,213,243,229,160,204,207,206,199,160,23
     *0,239,242,237,225,244,0/
      DATA AAABU0/243,160,160,160,213,243,229,160,211,200,207,210,212,16
     *0,230,239,242,237,225,244,0/
      DATA AAABV0/237,160,160,160,213,243,229,160,211,200,207,210,212,16
     *0,205,197,205,207,210,217,160,230,239,242,237,225,244,0/
      DATA AAABW0/227,160,160,160,195,204,197,193,210,160,243,227,242,22
     *9,229,238,160,225,238,228,160,242,229,228,242,225,247,160,228,225,
     *244,225,0/
      DATA AAABX0/241,160,160,160,160,160,160,220,0/
      DATA AAABY0/227,238,244,242,236,173,240,160,190,160,160,209,245,23
     *3,244,0/
      DATA AAABZ0/194,210,197,193,203,160,160,175,0/
      DATA AAACA0/248,160,160,160,197,248,229,227,245,244,229,160,225,16
     *0,208,210,201,205,207,211,160,227,239,237,237,225,238,228,0/
      DATA AAACB0/191,160,160,160,196,233,243,240,236,225,249,160,244,23
     *2,233,243,160,233,238,230,239,242,237,225,244,233,239,238,0/
      DATA AAACC0/212,249,240,229,160,225,238,249,160,227,232,225,242,22
     *5,227,244,229,242,160,244,239,160,227,239,238,244,233,238,245,229,
     *0/
      AAAAA0=1
      GOTO 10000
10008 AAAAD0=1
      GOTO 10003
10009 CALL SLEEP$(001000)
10010   AAAAC0=1
        GOTO 10002
10011   AAAAD0=2
        GOTO 10003
10012   AAAAF0=1
        GOTO 10005
10013   AAAAG0=1
        GOTO 10006
10014   AAAAB0=1
        GOTO 10001
10015 CONTINUE
      GOTO 10010
10000 IF((GETARG(1,ARG,128).EQ.-1))GOTO 10016
        I=1
        INTER0=CTOL(ARG,I)*1000
        IF((INTER0.GT.0))GOTO 10018
          CALL ERROR('Usage: mon [<sample interval>].')
10017   GOTO 10018
10016   INTER0=30*1000
10018 CALL CTOC(AAAAI0,PROMPT,20)
      PLEN=LENGTH(PROMPT)
      CALL MKONU$(AAAAJ0,LOC(QUIT))
      CALL BREAK$(2,INHCNT)
      CALL BREAK$(4,0)
      IF((VTINIT(TERMT0).EQ.-2))GOTO 10019
        CALL PRINT(-15,AAAAK0,TERMT0)
        CALL ERROR('.')
10019 CALL VTINFO(1,ROWCOL)
      CALL VTUPD(1)
      DISPL0=236
      FACTOR=2
      COMMA0=0
      NEXTL0=1
      JUSTA0=.FALSE.
      GOTO 10008
10001 SUMMA0=0
10021 IF((SUMMA0.GE.INTER0))GOTO 10015
        CALL SLEEP$(000500)
        SUMMA0=SUMMA0+(000500)
10023   IF((.NOT.CHKINP(AAAAL0)))GOTO 10021
          CALL T1IN(CH)
          IF((COMMA0.NE.0))GOTO 10025
            CH=MAPDN(CH)
            AAAAM0=CH
            GOTO 10026
10027         DISPL0=CH
            GOTO 10028
10029         COMMA0=1
              CALL VTPRT(ROWCOL(1),1,AAAAN0,PROMPT,ROWCOL(2))
              CALL VTUPD(0)
              CURSOR=PLEN
            GOTO 10028
10030         CALL VTUPD(1)
              CH=128
            GOTO 10028
10031         CALL QUIT(JUNKP0)
            GOTO 10028
10032         AAAAH0=1
              GOTO 10007
10033         JUSTA0=.TRUE.
              GOTO 10015
10026       IF(AAAAM0.EQ.191)GOTO 10032
            IF(AAAAM0.EQ.227)GOTO 10030
            AAAAO0=AAAAM0-235
            GOTO(10027,10027,10034,10034,10034,10031,10034,10027,10034, 
     *    10034,10034,10034,10029),AAAAO0
10034       CONTINUE
10028       AAAAP0=DISPL0
            GOTO 10035
10036         FACTOR=2
            GOTO 10023
10038         FACTOR=3
            GOTO 10023
10035       AAAAQ0=AAAAP0-235
            GOTO(10036,10038,10039,10039,10039,10039,10039,10038),AAAAQ0
10039       CONTINUE
10037       GOTO 10023
10025       AAAAR0=CH
            GOTO 10041
10042         CALL VTPUTL(AAAAS0,ROWCOL(1),CURSOR)
              CURSOR=CURSOR-(1)
            GOTO 10043
10044         CURSOR=PLEN
              CALL VTCLR(ROWCOL(1),CURSOR,ROWCOL(1),ROWCOL(2))
            GOTO 10043
10045         COMMA0=0
              CALL VTGETL(CMDBUF,ROWCOL(1),PLEN,CURSOR-PLEN+1)
              CALL VTCLR(ROWCOL(1),1,ROWCOL(1),ROWCOL(2))
              CALL VTUPD(0)
              DUPLEX=DUPLX$(-1)
              CALL DUPLX$(:020000)
              CALL VTMOVE(NEXTL0,1)
              CALL SYS$$(CMDBUF,-3)
              CALL DUPLX$(DUPLEX)
            GOTO 10043
10041       AAAAT0=AAAAR0-135
            GOTO(10042,10046,10045),AAAAT0
            IF(AAAAR0.EQ.255)GOTO 10044
10046         CURSOR=CURSOR+(1)
              CALL VTPRT(ROWCOL(1),CURSOR,AAAAU0,CH)
10043       CALL VTUPD(0)
10040   GOTO 10023
10002 CALL MOVE$(SNEW,SOLD,13)
      CALL MOVE$(FNEW,FOLD,12)
      CALL MOVE$(INEW,IOLD,34)
      CALL MOVE$(UNEW,UOLD,43*NUSR)
      GOTO 10011
10003 CALL GMETR$(1,LOC(SNEW),13,CODE,0)
      DO 10049 I=1,NUSR
        CALL GMETR$(4,LOC(UNEW(1,I)),43,CODE,I)
10049 CONTINUE
10050 CALL GMETR$(3,LOC(INEW),34,CODE,0)
      CALL GMETR$(2,LOC(FNEW),12,CODE,0)
      CALL GMETR$(5,LOC(MNEW),129,CODE,0)
      MNEW(1)=0
      GOTO 10051
10005 CALL VTPRT(1,1,AAAAV0)
      CALL VTPRT(1,30,AAAAW0)
      CALL VTPRT(1,41,AAAAX0)
      AAAAE0=1
      GOTO 10004
10052 DIO=(IOTOT-OIOTOT)/FLOAT(CLRATE)
      DSEC=(GCLOK-OGCLOK)/FLOAT(CLRATE)
      CPTIME=(CPTOT/1000000.0)*CPTICK
      IOTIME=IOTOT/FLOAT(CLRATE)
      UPTIME=GCLOK/FLOAT(CLRATE)
      DIOCNT=IOCNT-OIOCNT
      DPFCNT=PFCNT-OPFCNT
      DBHCNT=FOUND-OFOUND+SAME-OSAME+USED-OUSED
      PFSEC=DPFCNT/DSEC
      DASEC=DIOCNT/DSEC
      BHSEC=DBHCNT/DSEC
      IF((DBHCNT+MISSES-OMISS0.LE.0))GOTO 10053
        BHPCT=(DBHCNT*100.0)/(DBHCNT+MISSES-OMISS0)
        GOTO 10054
10053   BHPCT=0.0
10054 CALL HMS(UPTIME,HRS,MIN,SEC)
      CALL VTPRT(2,1,AAAAY0,HRS,MIN,SEC)
      CALL VTPAD(80)
      CALL VTPRT(2,30,AAAAZ0,DSEC)
      CALL VTPRT(2,41,AAABA0,IOCNT,DIOCNT,DASEC)
      CALL HMS(CPTIME,HRS,MIN,SEC)
      CALL VTPRT(3,1,AAABB0,HRS,MIN,SEC)
      CALL VTPAD(80)
      CALL VTPRT(3,30,AAABC0,DUCPU)
      CALL VTPRT(3,41,AAABD0,PFCNT,DPFCNT,PFSEC)
      CALL HMS(IOTIME,HRS,MIN,SEC)
      CALL VTPRT(4,1,AAABE0,HRS,MIN,SEC)
      CALL VTPAD(80)
      CALL VTPRT(4,30,AAABF0,DIO)
      CALL VTPRT(4,41,AAABG0,BHPCT,DBHCNT,BHSEC)
      GOTO 10013
10004 DUCPU=((CPTOT-OCPTOT)/1000000.0)*CPTICK
      DCPU=DUCPU+((IDLE1-OIDLE1+IDLE2-OIDLE2+CLOCK-OCLOCK+FARNET-OFARN0+
     *SMLC-OSMLC+AMLC-OAMLC+MPC1-OMPC1+MPC2-OMPC2+PLOT-OPLOT+RING-ORING+
     *SPARE-OSPARE+DISK1-ODISK1+DISK2-ODISK2)/1000000.0)*CPTICK
      GOTO 10052
10006 AAABH0=DISPL0
      GOTO 10057
10058   CALL VTPRT(6,1,AAABI0)
        CALL VTPAD(80)
        CALL VTPRT(6,41,AAABJ0)
      GOTO 10059
10060   CALL VTPRT(6,1,AAABK0)
        CALL VTPAD(80)
        CALL VTPRT(6,28,AAABL0)
        CALL VTPRT(6,55,AAABM0)
      GOTO 10059
10061   CALL VTPRT(6,1,AAABN0)
        CALL VTPAD(80)
        CALL VTPRT(6,28,AAABO0)
        CALL VTPRT(6,55,AAABP0)
      GOTO 10059
10057 AAABQ0=AAABH0-235
      GOTO(10058,10061,10062,10062,10062,10062,10062,10060),AAABQ0
10062 CONTINUE
10059 POSIT0=0
      CALL PPS('Idle1 ',0,IDLE1,OIDLE1)
      CALL PPS('Idle2 ',0,IDLE2,OIDLE2)
      CALL PPS('Clock ',0,CLOCK,OCLOCK)
      CALL PPS('Farnet',0,FARNET,OFARN0)
      CALL PPS('Smlc  ',0,SMLC,OSMLC)
      CALL PPS('Amlc  ',0,AMLC,OAMLC)
      CALL PPS('Mpc1  ',0,MPC1,OMPC1)
      CALL PPS('Mpc2  ',0,MPC2,OMPC2)
      CALL PPS('Plot  ',0,PLOT,OPLOT)
      CALL PPS('Ring  ',0,RING,ORING)
      CALL PPS('Spare ',0,SPARE,OSPARE)
      CALL PPS('Disk1 ',0,DISK1,ODISK1)
      CALL PPS('Disk2 ',0,DISK2,ODISK2)
      DO 10063 I=1,NUSR
        IF((UOLD(2,I).LE.0))GOTO 10065
          CALL PPS(UNEW(5,I),I,UNEW(37,I),UOLD(37,I))
10065   CONTINUE
10063 CONTINUE
10064 NEXTL0=(POSIT0+(FACTOR-1))/FACTOR+7
      CALL VTCLR(NEXTL0,1,ROWCOL(1)-1,ROWCOL(2))
      IF((COMMA0.NE.0))GOTO 10066
        CALL VTCLR(ROWCOL(1),1,ROWCOL(1),ROWCOL(2))
10066 IF((.NOT.JUSTA0))GOTO 10067
        CALL VTUPD(1)
        JUSTA0=.FALSE.
        GOTO 10068
10067   CALL VTUPD(0)
10068 IF((COMMA0.NE.0))GOTO 10069
        CALL VTMOVE(ROWCOL(1),1)
        GOTO 10014
10069   CALL VTMOVE(ROWCOL(1),CURSOR+1)
10070 GOTO 10014
10007 CALL VTCLR(1,1,ROWCOL(1),ROWCOL(2))
      CALL VTPUTL(AAABS0,2,20)
      CALL VTPUTL(AAABT0,4,25)
      CALL VTPUTL(AAABU0,5,25)
      CALL VTPUTL(AAABV0,6,25)
      CALL VTPUTL(AAABW0,7,25)
      CALL VTPUTL(AAABX0,8,25)
      CALL VTPUTL(AAABY0,9,25)
      CALL VTPUTL(AAABZ0,10,25)
      CALL VTPUTL(AAACA0,11,25)
      CALL VTPUTL(AAACB0,12,25)
      CALL VTPUTL(AAACC0,14,20)
      CALL VTUPD(1)
      CALL T1IN(AAABR0)
      CALL VTCLR(1,1,ROWCOL(1),ROWCOL(2))
      GOTO 10033
10051 GOTO(10009,10012),AAAAD0
      GOTO 10051
      END
      SUBROUTINE PPS(NAME,PID,NEW,OLD)
      INTEGER NAME(3)
      INTEGER PID
      INTEGER * 4 NEW,OLD
      INTEGER SNEW(13),POSIT0,CPTICK,DISPL0,FACTOR
      INTEGER MNEW(129)
      REAL DCPU
      COMMON SNEW,POSIT0,DCPU,DISPL0,FACTOR,MNEW
      INTEGER HRS,MIN,ISEC,ROW,COL,TIME
      INTEGER CH
      REAL SEC,CPTIME,DUSER,PERCE0
      INTEGER AAACD0
      INTEGER AAACE0(45)
      INTEGER AAACF0(28)
      INTEGER AAACG0(26)
      INTEGER AAACH0
      EQUIVALENCE (CPTICK,SNEW(12))
      DATA AAACE0/170,172,182,232,160,170,179,233,160,170,179,233,186,17
     *0,178,172,172,176,233,186,170,178,172,172,176,233,160,170,181,172,
     *178,242,160,170,181,172,178,242,160,170,179,233,160,252,0/
      DATA AAACF0/170,172,182,232,160,170,179,233,160,170,179,233,170,22
     *7,160,170,180,172,177,242,160,170,180,172,177,242,252,0/
      DATA AAACG0/170,172,182,232,160,170,179,233,160,170,180,233,160,17
     *0,180,172,177,242,160,170,180,172,177,242,252,0/
      IF((NEW.NE.0))GOTO 10073
        RETURN
10073 DUSER=((NEW-OLD)/1000000.0)*CPTICK
      CPTIME=(NEW/1000000.0)*CPTICK
      PERCE0=DUSER*100.0/DCPU
      CALL HMS(CPTIME,HRS,MIN,SEC)
      ISEC=SEC
      ROW=POSIT0/FACTOR+7
      COL=(81/FACTOR)*MOD(POSIT0,FACTOR)+1
      AAACD0=DISPL0
      GOTO 10074
10075   CALL VTPRT(ROW,COL,AAACE0,NAME,PID,HRS,MIN,ISEC,DUSER,PERCE0,MNE
     *W(PID+1))
      GOTO 10076
10077   IF((HRS.NE.0))GOTO 10078
          IF((MIN.NE.0))GOTO 10079
            TIME=ISEC
            CH=243
            GOTO 10081
10079       TIME=MIN
            CH=237
10080     GOTO 10081
10078     TIME=HRS
          CH=232
10081   CALL VTPRT(ROW,COL,AAACF0,NAME,PID,TIME,CH,DUSER,PERCE0)
      GOTO 10076
10082   CALL VTPRT(ROW,COL,AAACG0,NAME,PID,MNEW(PID+1),DUSER,PERCE0)
      GOTO 10076
10074 AAACH0=AAACD0-235
      GOTO(10075,10082,10083,10083,10083,10083,10083,10077),AAACH0
10083 CONTINUE
10076 CALL VTPAD(80)
      POSIT0=POSIT0+(1)
      RETURN
      END
      SUBROUTINE HMS(SEC,H,M,S)
      INTEGER H,M
      REAL SEC,S
      H=SEC/3600
      M=(SEC-H*3600.0)/60
      S=AMOD(SEC,60.0)
      RETURN
      END
      SUBROUTINE QUIT(PTR)
      INTEGER * 4 PTR
      INTEGER INHCNT
      COMMON /QUIT$/INHCNT
      CALL BREAK$(4,INHCNT)
      CALL VTSTOP
      CALL SWT
      END
C ---- Long Name Map ----
C interval                       inter0
C junkptr                        junkp0
C nextline                       nextl0
C copystats                      copys0
C getnewmeters                   getne0
C pausefortimeslice              pause0
C showhelp                       showh0
C fversion                       fvers0
C iversion                       ivers0
C calculatedeltacpu              calcu0
C ofarnet                        ofarn0
C printsystemstats               print0
C mversion                       mvers0
C percent                        perce0
C position                       posit0
C printprocessstats              prinu0
C justafterhelp                  justa0
C display                        displ0
C sversion                       svers0
C termtype                       termt0
C uversion                       uvers0
C commandmode                    comma0
C initializemonitor              initi0
C omisses                        omiss0
C summarytime                    summa0