      INTEGER GETARG
      INTEGER ARG(102)
      INTEGER AAAAA0
      INTEGER AAAAB0
      IF((GETARG(1,ARG,102).NE.-1))GOTO 10000
        CALL START0
        GOTO 10001
10000   IF((ARG(1).EQ.173))GOTO 10002
          CALL START0
          GOTO 10003
10002     AAAAA0=ARG(2)
          GOTO 10004
10005       CALL JOBST0(ARG)
          GOTO 10006
10007       CALL CANCE0(ARG)
          GOTO 10006
10008       CALL MODIF0
          GOTO 10006
10004     AAAAB0=AAAAA0-192
          GOTO(10007,10009,10007,10005,10009,10009,10009,10009,10009,100
     *09,10009,10009,10008,10009,10009,10009,10009,10007,10005,10009,100
     *09,10009,10009,10009,10009,10009,10009,10009,10009,10009,10009,100
     *09,10007,10009,10007,10005,10009,10009,10009,10009,10009,10009,100
     *09,10009,10008,10009,10009,10009,10009,10007,10005),AAAAB0
10009       CALL START0
10006   CONTINUE
10003 CONTINUE
10001 CALL SWT
      END
      SUBROUTINE START0
      INTEGER COMMA0(102),HOMED0(102),ACCOU0(102),QUEUE(102)
      INTEGER CPTIME,ETIME,PRIOR0,RESTA0,FUNIT,SPOOL0
      INTEGER BFD,IFD,STATUS,I
      INTEGER GETARG,OPEN,CREATE,GETLIN,GETSEQ
      INTEGER EXPAND,EQUAL,INDEX,LENGTH
      INTEGER ARG(102),BUF(102),TEMPF0(102)
      INTEGER AAAAC0
      INTEGER AAAAD0
      INTEGER AAAAE0(26)
      INTEGER AAAAF0(12)
      INTEGER AAAAG0(10)
      INTEGER AAAAH0(5)
      INTEGER AAAAI0(10)
      INTEGER AAAAJ0(15)
      INTEGER AAAAK0(11)
      INTEGER AAAAL0(28)
      INTEGER AAAAM0(10)
      INTEGER AAAAN0(7)
      INTEGER AAAAO0(5)
      INTEGER AAAAP0(7)
      INTEGER AAAAQ0(9)
      INTEGER AAAAR0(12)
      INTEGER AAAAS0(12)
      INTEGER AAAAT0(10)
      INTEGER AAAAU0(11)
      INTEGER AAAAV0(12)
      INTEGER AAAAW0(14)
      INTEGER AAAAX0(11)
      INTEGER AAAAY0(13)
      INTEGER AAAAZ0(14)
      INTEGER AAABA0(14)
      INTEGER AAABB0(11)
      INTEGER AAABC0(3)
      INTEGER AAABD0(9)
      INTEGER AAABE0(4)
      INTEGER AAABF0(14)
      INTEGER AAABG0(37)
      DATA AAAAE0/189,246,225,242,243,228,233,242,189,175,189,245,243,22
     *9,242,189,174,189,240,233,228,189,174,170,233,0/
      DATA AAAAF0/164,164,160,202,207,194,160,170,243,170,238,0/
      DATA AAAAG0/243,247,244,160,173,170,233,170,238,0/
      DATA AAAAH0/170,243,170,238,0/
      DATA AAAAI0/227,239,240,249,239,245,244,170,238,0/
      DATA AAAAJ0/189,233,238,243,244,225,236,236,225,244,233,239,238,18
     *9,0/
      DATA AAAAK0/170,238,170,238,163,160,170,243,170,238,0/
      DATA AAAAL0/163,160,194,225,244,227,232,160,234,239,226,160,243,22
     *7,232,229,228,245,236,229,228,160,239,238,160,170,243,0/
      DATA AAAAM0/160,225,244,160,170,243,174,170,238,0/
      DATA AAAAN0/170,238,170,238,170,238,0/
      DATA AAAAO0/170,243,170,238,0/
      DATA AAAAP0/243,244,239,240,170,238,0/
      DATA AAAAQ0/202,207,194,160,167,170,243,167,0/
      DATA AAAAR0/160,173,193,195,195,212,160,167,170,243,167,0/
      DATA AAAAS0/160,173,200,207,205,197,160,167,170,243,167,0/
      DATA AAAAT0/160,173,200,207,205,197,160,170,243,0/
      DATA AAAAU0/160,173,209,213,197,213,197,160,170,243,0/
      DATA AAAAV0/160,173,195,208,212,201,205,197,160,170,233,0/
      DATA AAAAW0/160,173,195,208,212,201,205,197,160,206,207,206,197,0/
      DATA AAAAX0/160,173,197,212,201,205,197,160,170,233,0/
      DATA AAAAY0/160,173,197,212,201,205,197,160,206,207,206,197,0/
      DATA AAAAZ0/160,173,208,210,201,207,210,201,212,217,160,170,233,0/
      DATA AAABA0/160,173,210,197,211,212,193,210,212,160,217,197,211,0/
      DATA AAABB0/160,173,198,213,206,201,212,160,170,233,0/
      DATA AAABC0/170,238,0/
      DATA AAABD0/189,199,225,212,229,227,232,189,0/
      DATA AAABE0/249,229,243,0/
      DATA AAABF0/196,197,204,197,212,197,160,167,170,243,167,170,238,0/
      DATA AAABG0/195,207,205,207,160,173,206,212,212,217,170,238,196,19
     *7,204,197,212,197,160,167,170,243,167,170,238,195,207,205,207,160,
     *173,212,212,217,170,238,0/
      STATUS=-2
      COMMA0(1)=0
      ACCOU0(1)=0
      QUEUE(1)=0
      HOMED0(1)=0
      CPTIME=0
      ETIME=0
      PRIOR0=0
      RESTA0=0
      FUNIT=0
      SPOOL0=1
      I=1
      GOTO 10012
10010 I=I+(1)
10012 IF(((GETARG(I,ARG,102).EQ.-1).OR.(STATUS.NE.-2)))GOTO 10011
        IF((ARG(1).EQ.173))GOTO 10013
          IF((LENGTH(COMMA0).EQ.0))GOTO 10014
            STATUS=-3
10014     CALL SCOPY(ARG,1,COMMA0,1)
          GOTO 10015
10013     IF((ARG(3).EQ.0))GOTO 10016
            STATUS=-3
            GOTO 10017
10016       AAAAC0=ARG(2)
            GOTO 10018
10019         IF((LENGTH(COMMA0).EQ.0))GOTO 10020
                STATUS=-3
10020         I=I+1
              IF((GETARG(I,COMMA0,102).NE.-1))GOTO 10021
                STATUS=-3
10021       GOTO 10022
10023         SPOOL0=0
            GOTO 10022
10024         RESTA0=1
            GOTO 10022
10025         CALL GRABS0(I,HOMED0,STATUS)
            GOTO 10022
10026         CALL GRABS0(I,ACCOU0,STATUS)
            GOTO 10022
10027         CALL GRABN0(I,CPTIME,STATUS)
            GOTO 10022
10028         CALL GRABN0(I,ETIME,STATUS)
            GOTO 10022
10029         CALL GRABN0(I,PRIOR0,STATUS)
            GOTO 10022
10030         CALL GRABS0(I,QUEUE,STATUS)
            GOTO 10022
10031         CALL GRABN0(I,FUNIT,STATUS)
            GOTO 10022
10018       AAAAD0=AAAAC0-192
            GOTO(10026,10032,10032,10032,10028,10031,10032,10025,10032,1
     *0032,10019,10032,10032,10023,10032,10029,10030,10024,10032,10027,1
     *0032,10032,10032,10032,10032,10032,10032,10032,10032,10032,10032,1
     *0032,10026,10032,10032,10032,10028,10031,10032,10025,10032,10032,1
     *0019,10032,10032,10023,10032,10029,10030,10024,10032,10027),AAAAD0
10032         STATUS=-3
10022     CONTINUE
10017   CONTINUE
10015 GOTO 10010
10011 IF((STATUS.EQ.-2))GOTO 10033
        CALL USAGE0
10033 CALL ENCODE(TEMPF0,102,AAAAE0,GETSEQ(BUF))
      BFD=CREATE(TEMPF0,3)
      IF((BFD.NE.-3))GOTO 10034
        CALL ERROR('can''t create batch file.')
10034 IF((FUNIT.NE.0))GOTO 10035
        FUNIT=6
10035 CALL DATE(3,BUF)
      CALL PRINT(BFD,AAAAF0,BUF)
      CALL EXPAND(TEMPF0,BUF,102)
      CALL MKTR$(BUF,TEMPF0)
      CALL PRINT(BFD,AAAAG0,FUNIT)
      CALL GETPA0(BUF)
      CALL PRINT(BFD,AAAAH0,BUF)
      IF((SPOOL0.NE.1))GOTO 10036
        CALL PRINT(BFD,AAAAI0)
10036 IFD=OPEN(AAAAJ0,1)
      IF((IFD.NE.-3))GOTO 10037
        BUF(1)=0
        GOTO 10038
10037   I=GETLIN(BUF,IFD)
        IF((I.NE.-1))GOTO 10039
          BUF(1)=0
          GOTO 10040
10039     BUF(I)=0
10040   CALL CLOSE(IFD)
10038 CALL PRINT(BFD,AAAAK0,BUF)
      CALL DATE(7,BUF)
      CALL PRINT(BFD,AAAAL0,BUF)
      CALL DATE(2,BUF)
      CALL PRINT(BFD,AAAAM0,BUF)
      CALL PRINT(BFD,AAAAN0)
      IF((LENGTH(COMMA0).NE.0))GOTO 10041
        CALL FCOPY(-10,BFD)
        GOTO 10042
10041   CALL PRINT(BFD,AAAAO0,COMMA0)
10042 CALL PRINT(BFD,AAAAP0)
      CALL CLOSE(BFD)
      CALL PRINT(-11,AAAAQ0,TEMPF0)
      IF((LENGTH(ACCOU0).EQ.0))GOTO 10043
        CALL PRINT(-11,AAAAR0,ACCOU0)
10043 IF((LENGTH(HOMED0).EQ.0))GOTO 10044
        CALL MKTR$(HOMED0,BUF)
        IF((INDEX(BUF,160).EQ.0))GOTO 10045
          CALL PRINT(-11,AAAAS0,BUF)
          GOTO 10046
10045     CALL PRINT(-11,AAAAT0,BUF)
10046 CONTINUE
10044 IF((LENGTH(QUEUE).EQ.0))GOTO 10047
        CALL PRINT(-11,AAAAU0,QUEUE)
10047 IF((CPTIME.LE.0))GOTO 10048
        CALL PRINT(-11,AAAAV0,CPTIME)
        GOTO 10049
10048   IF((CPTIME.GE.0))GOTO 10050
          CALL PRINT(-11,AAAAW0)
10050 CONTINUE
10049 IF((ETIME.LE.0))GOTO 10051
        CALL PRINT(-11,AAAAX0,ETIME)
        GOTO 10052
10051   IF((ETIME.GE.0))GOTO 10053
          CALL PRINT(-11,AAAAY0)
10053 CONTINUE
10052 IF((PRIOR0.LE.0))GOTO 10054
        CALL PRINT(-11,AAAAZ0,PRIOR0)
10054 IF((RESTA0.NE.1))GOTO 10055
        CALL PRINT(-11,AAABA0)
10055 IF((FUNIT.EQ.6))GOTO 10056
      IF((FUNIT.LE.0))GOTO 10056
        CALL PRINT(-11,AAABB0,FUNIT)
10056 CALL PRINT(-11,AAABC0)
      IF((EXPAND(AAABD0,BUF,102).EQ.-3))GOTO 10057
      IF((EQUAL(BUF,AAABE0).NE.1))GOTO 10057
        CALL PRINT(-11,AAABF0,TEMPF0)
        GOTO 10058
10057   CALL PRINT(-11,AAABG0,TEMPF0)
10058 RETURN
      END
      SUBROUTINE GETPA0(STR)
      INTEGER STR(1)
      COMMON /SWT$CM/TERMB0(128),TERMC0,TERMD0,ECHAR0,KCHAR0,NLCHA0,EOFC
     *H0,ESCCH0,RTCHA0,ISPHA0,CPUTY0,ERRCO0,STDPO0(6),KILLR0(33),FDMEM0(
     *16,128),RESER0(846),FDBUF0(16384),PASSW0(7),BPLAB0(4),UTEMP0,FDLAS
     *0,PRTDE0(17),PRTFO0(9),UHASH0(37),UTEMQ0(4059),RESES0(985),CMDST0,
     *COMUN0,RTLAB0(4),FIRST0,ARGCA0,ARGVA0(256),TERMA0(6),TERMT0(7),LWO
     *RD0,LSHOA0,LSTOP0,LSNAA0,LSREF0(16384),RESET0(743),TSSTA0,TSGTA0,T
     *SATA0,TSEOS0,TSUNA0(32),TSPSA0(32),TSBFA0(32,32),TSPWA0(3,32),TSPA
     *T0(180),RESEU0(680),NEWSC0(85,51),RESEV0(785),CURSC0(85,51),RESEW0
     *(785),TCCLE0(10),TCCLF0(10),TCCLG0(10),TCCUR0(10),TCCUS0(10),TCCUT
     *0(10),TCCUU0(10),TCCUV0(10),TCABS0(10),TCVER0(10),TCHOR0(10),TCINS
     *0(10),TCDEL0(10),TCINT0(10),TCDEM0(10),TCINU0(10),TCSHI0(10),TCSHJ
     *0(10),TCCOO0,TCSHK0,TCCOP0,TCSEQ0,TCDEN0,TCWRA0,TCCLR0,TCCEO0,TCCE
     *P0,TCABT0,TCVES0,TCHOS0,UNPRI0,COLCH0(51),COLCI0(51),ROWCH0,ROWCI0
     *,LASTC0(51),MAXRO0,MAXCO0,CURRO0,CURCO0,MSGRO0,MSGOW0(85),PADRO0,P
     *ADCO0,PADLE0,DISPL0,FNTAB0(128,20),LASTF0,TABSA0(85),INPUT0(51),IN
     *PUU0(51),INBUF0(85),LASTD0,INSER0,INVER0,DUPLE0,INPUV0,PBBUF0(400)
     *,PBPTR0,FNUSE0(20),DEFBU0(1000),LASTE0,NESTI0,RESEX0(417)
      INTEGER TERMB0,TERMC0,TERMD0,ECHAR0,KCHAR0,NLCHA0,EOFCH0,ESCCH0,RT
     *CHA0,ISPHA0,CPUTY0,ERRCO0,STDPO0,FDMEM0,RESER0,FDBUF0,PASSW0,BPLAB
     *0,UTEMP0,UHASH0,UTEMQ0,RESES0,CMDST0,COMUN0,RTLAB0,FIRST0,ARGCA0,A
     *RGVA0,TERMA0,TERMT0,LSHOA0,LSTOP0,LSNAA0,LSREF0,RESET0,FDLAS0,KILL
     *R0,PRTDE0,PRTFO0,LWORD0,TSSTA0,TSGTA0,TSATA0,TSEOS0,TSUNA0,TSPSA0,
     *TSBFA0,TSPWA0,TSPAT0,RESEU0,NEWSC0,RESEV0,CURSC0,RESEW0,TCCLE0,TCC
     *LF0,TCCLG0,TCCUR0,TCCUS0,TCCUT0,TCCUU0,TCCUV0,TCABS0,TCVER0,TCHOR0
     *,TCINS0,TCDEL0,TCINT0,TCDEM0,TCINU0,TCSHI0,TCSHJ0,TCCOO0,TCSHK0,TC
     *COP0,TCSEQ0,TCDEN0,TCWRA0,TCCLR0,TCCEO0,TCCEP0,TCABT0,TCVES0,TCHOS
     *0,UNPRI0,COLCH0,COLCI0,ROWCH0,ROWCI0,LASTC0,MAXRO0,MAXCO0,CURRO0,C
     *URCO0,MSGRO0,MSGOW0,PADRO0,PADCO0,PADLE0,DISPL0,FNTAB0,LASTF0,TABS
     *A0,INPUT0,INPUU0,INBUF0,LASTD0,INSER0,INVER0,DUPLE0,INPUV0,PBBUF0,
     *PBPTR0,FNUSE0,DEFBU0,LASTE0,NESTI0,RESEX0
      INTEGER FDESC0(16),FDDEV0(1),FDUNI0(1),FDBUG0(1),FDBUH0(1),FDBUI0(
     *1),FDCOU0(1),FDBCO0(1),FDFLA0(1),FDVCS0(1),FDVCT0(1),FDOPS0(1),FDO
     *PT0(1),FDOPU0(1)
      EQUIVALENCE (FDMEM0,FDESC0),(FDDEV0,FDESC0(1)),(FDUNI0,FDESC0(2)),
     *(FDBUG0,FDESC0(3)),(FDBUH0,FDESC0(4)),(FDBUI0,FDESC0(5)),(FDCOU0,F
     *DESC0(6)),(FDBCO0,FDESC0(7)),(FDFLA0,FDESC0(8)),(FDVCS0,FDESC0(9))
     *,(FDVCT0,FDESC0(10)),(FDOPS0,FDESC0(11)),(FDOPT0,FDESC0(12)),(FDOP
     *U0,FDESC0(13))
      CALL SCOPY(PASSW0,1,STR,1)
      RETURN
      END
      INTEGER FUNCTION GETSEQ(STR)
      INTEGER STR(102)
      INTEGER I,FD,T
      INTEGER GETLIN,CREATE,OPEN,CTOI
      INTEGER BUF(102)
      INTEGER BATCH0(21)
      INTEGER AAABH0(5)
      DATA BATCH0/189,246,225,242,243,228,233,242,189,175,174,226,225,24
     *4,227,232,223,243,229,241,0/
      DATA AAABH0/170,233,170,238,0/
      I=1
      GOTO 10061
10059 I=I+(1)
10061 IF((I.GT.5))GOTO 10060
        FD=OPEN(BATCH0,3)
        IF((FD.EQ.-3))GOTO 10062
          GOTO 10060
10062   CALL SLEEP$(INTL(500))
      GOTO 10059
10060 IF((I.LE.5))GOTO 10063
        FD=CREATE(BATCH0,3)
        IF((FD.NE.-3))GOTO 10064
          CALL CANT(BATCH0)
10064   T=1
        GOTO 10065
10063   IF((GETLIN(BUF,FD).NE.-1))GOTO 10066
          T=1
          GOTO 10067
10066     I=1
          T=CTOI(BUF,I)
10067 CONTINUE
10065 CALL REWIND(FD)
      CALL TRUNC(FD)
      CALL PRINT(FD,AAABH0,T+1)
      CALL CLOSE(FD)
      GETSEQ=T
      RETURN
      END
      SUBROUTINE GRABS0(I,STR,STATUS)
      INTEGER I,STATUS
      INTEGER STR(1)
      INTEGER GETARG,LENGTH
      IF((LENGTH(STR).EQ.0))GOTO 10068
        STATUS=-3
10068 I=I+(1)
      IF((GETARG(I,STR,102).NE.-1))GOTO 10069
        STATUS=-3
10069 IF((STR(1).NE.173))GOTO 10070
        STATUS=-3
10070 RETURN
      END
      SUBROUTINE GRABN0(I,NUM,STATUS)
      INTEGER I,NUM,STATUS
      INTEGER J
      INTEGER GETARG,CTOI
      INTEGER STR(102)
      IF((NUM.EQ.0))GOTO 10071
        STATUS=-3
10071 J=GETARG(I+1,STR,102)
      IF((J.EQ.-1))GOTO 10073
      IF((J.EQ.0))GOTO 10073
      IF((STR(1).EQ.173))GOTO 10073
      GOTO 10072
10073   NUM=-1
        GOTO 10074
10072   J=1
        NUM=CTOI(STR,J)
        IF((STR(J).EQ.0))GOTO 10075
          STATUS=-3
10075   I=I+(1)
10074 RETURN
      END
      SUBROUTINE USAGE0
      INTEGER AAABI0(37)
      INTEGER AAABJ0(32)
      INTEGER AAABK0(38)
      INTEGER AAABL0(42)
      INTEGER AAABM0(40)
      INTEGER AAABN0(55)
      INTEGER AAABO0(50)
      DATA AAABI0/213,243,225,231,229,186,160,226,225,244,227,232,160,17
     *3,168,243,252,228,169,219,225,252,244,221,160,219,188,234,239,226,
     *238,225,237,229,190,221,0/
      DATA AAABJ0/160,160,160,160,160,160,160,226,225,244,227,232,160,17
     *3,168,227,252,225,252,242,169,160,188,234,239,226,238,225,237,229,
     *190,0/
      DATA AAABK0/160,160,160,160,160,160,160,226,225,244,227,232,160,17
     *3,237,160,188,234,239,226,238,225,237,229,190,160,251,188,239,240,
     *244,233,239,238,243,190,253,0/
      DATA AAABL0/160,160,160,160,160,160,160,226,225,244,227,232,160,21
     *9,219,173,235,221,160,188,227,239,237,237,225,238,228,190,221,160,
     *251,188,239,240,244,233,239,238,243,190,253,0/
      DATA AAABM0/160,160,160,160,188,239,240,244,233,239,238,243,190,16
     *0,186,186,189,160,173,225,160,188,225,227,227,244,190,160,252,160,
     *173,242,160,252,160,173,238,160,252,0/
      DATA AAABN0/160,160,160,160,160,160,160,160,173,232,160,188,232,23
     *9,237,229,160,228,233,242,190,160,252,160,173,244,160,188,227,240,
     *245,160,244,233,237,229,190,160,252,160,173,229,160,188,229,236,22
     *5,240,243,229,228,190,160,252,0/
      DATA AAABO0/160,160,160,160,160,160,160,160,173,240,160,188,240,24
     *2,233,239,242,233,244,249,190,160,252,160,173,241,160,188,241,245,
     *229,245,229,190,160,160,160,160,252,160,173,230,160,188,245,238,23
     *3,244,190,0/
      CALL REMARK(AAABI0)
      CALL REMARK(AAABJ0)
      CALL REMARK(AAABK0)
      CALL REMARK(AAABL0)
      CALL REMARK(AAABM0)
      CALL REMARK(AAABN0)
      CALL ERROR(AAABO0)
      END
      SUBROUTINE JOBST0(ARG)
      INTEGER ARG(1)
      INTEGER NAME(102)
      INTEGER MAPDN
      INTEGER AAABP0(15)
      INTEGER AAABQ0(16)
      INTEGER AAABR0(28)
      INTEGER AAABS0(5)
      INTEGER AAABT0(7)
      DATA AAABP0/202,207,194,160,170,243,160,173,211,212,193,212,213,21
     *1,0/
      DATA AAABQ0/202,207,194,160,170,243,160,173,196,201,211,208,204,19
     *3,217,0/
      DATA AAABR0/233,238,160,234,239,226,223,243,244,225,244,245,243,18
     *6,160,227,225,238,167,244,160,232,225,240,240,229,238,0/
      DATA AAABS0/160,193,204,204,0/
      DATA AAABT0/160,212,207,196,193,217,0/
      CALL GETJO0(2,NAME)
      IF((MAPDN(ARG(2)).NE.243))GOTO 10076
        CALL PRINT(-11,AAABP0,NAME)
        GOTO 10077
10076   IF((MAPDN(ARG(2)).NE.228))GOTO 10078
          CALL PRINT(-11,AAABQ0,NAME)
          GOTO 10079
10078     CALL ERROR(AAABR0)
10079 CONTINUE
10077 IF((ARG(3).NE.0))GOTO 10080
        CALL PRINT(-11,AAABS0)
        GOTO 10081
10080   IF((MAPDN(ARG(3)).NE.225))GOTO 10082
          GOTO 10083
10082     IF((MAPDN(ARG(3)).NE.244))GOTO 10084
            CALL PRINT(-11,AAABT0)
            GOTO 10085
10084       CALL USAGE0
10085   CONTINUE
10083 CONTINUE
10081 CALL PUTCH(138,-11)
      RETURN
      END
      SUBROUTINE CANCE0(ARG)
      INTEGER ARG(1)
      INTEGER NAME(102)
      INTEGER LENGTH,MAPDN
      INTEGER AAABU0(8)
      INTEGER AAABV0(9)
      INTEGER AAABW0(10)
      INTEGER AAABX0(11)
      INTEGER AAABY0(28)
      DATA AAABU0/202,207,194,160,170,243,160,0/
      DATA AAABV0/173,193,194,207,210,212,170,238,0/
      DATA AAABW0/173,195,193,206,195,197,204,170,238,0/
      DATA AAABX0/173,210,197,211,212,193,210,212,170,238,0/
      DATA AAABY0/233,238,160,227,225,238,227,229,236,223,234,239,226,18
     *6,160,227,225,238,167,244,160,232,225,240,240,229,238,0/
      CALL GETJO0(2,NAME)
      IF((LENGTH(NAME).GT.0))GOTO 10086
        CALL USAGE0
10086 CALL PRINT(-11,AAABU0,NAME)
      IF((MAPDN(ARG(2)).NE.225))GOTO 10087
        CALL PRINT(-11,AAABV0)
        GOTO 10088
10087   IF((MAPDN(ARG(2)).NE.227))GOTO 10089
          CALL PRINT(-11,AAABW0)
          GOTO 10090
10089     IF((MAPDN(ARG(2)).NE.242))GOTO 10091
            CALL PRINT(-11,AAABX0)
            GOTO 10092
10091       CALL ERROR(AAABY0)
10092   CONTINUE
10090 CONTINUE
10088 RETURN
      END
      SUBROUTINE MODIF0
      CALL ERROR('Sorry, job modification not implemented.')
      RETURN
      END
      SUBROUTINE GETJO0(AP,STR)
      INTEGER AP
      INTEGER STR(102)
      INTEGER I
      INTEGER GETARG
      INTEGER ARG(102)
      IF((GETARG(AP,ARG,102).NE.-1))GOTO 10093
        STR(1)=0
        GOTO 10094
10093   IF((ARG(1).NE.173))GOTO 10095
          CALL USAGE0
          GOTO 10096
10095     I=1
          CALL CTOI(ARG,I)
          IF((ARG(I).NE.0))GOTO 10097
            STR(1)=163
            CALL SCOPY(ARG,1,STR,2)
            GOTO 10098
10097       CALL SCOPY(ARG,1,STR,1)
10098   CONTINUE
10096 CONTINUE
10094 RETURN
      END
C ---- Long Name Map ----
C Fdflags                        fdfla0
C Eofchar                        eofch0
C Inputstart                     input0
C Escchar                        escch0
C Invertcase                     inver0
C Tccoordchar                    tccoo0
C Tabs                           tabsa0
C Fdbufstart                     fdbug0
C Rtchar                         rtcha0
C Prtdest                        prtde0
C Tcdelline                      tcdel0
C Colchgstop                     colci0
C Rowchgstart                    rowch0
C Maxcol                         maxco0
C startjob                       start0
C accountinfo                    accou0
C Echar                          echar0
C Tseos                          tseos0
C Fnused                         fnuse0
C homedir                        homed0
C Termcount                      termd0
C Reservedio                     reser0
C Tsstate                        tssta0
C Tccursorright                  tccut0
C Tcabspos                       tcabs0
C Tchorlen                       tchos0
C Reservedopen                   reses0
C Lsna                           lsnaa0
C Tcseqtype                      tcseq0
C Unprintablechar                unpri0
C Fdesc                          fdesc0
C modifyjob                      modif0
C Cputype                        cputy0
C Prtform                        prtfo0
C Tsbf                           tsbfa0
C Curcol                         curco0
C Lastfn                         lastf0
C Insertmode                     inser0
C Fdbuf                          fdbuf0
C Argv                           argva0
C Lstop                          lstop0
C Tcceollen                      tccep0
C grabnum                        grabn0
C Tcshiftchar                    tcshk0
C Inputwait                      inpuv0
C Fdunit                         fduni0
C getjobname                     getjo0
C Termcp                         termc0
C Kchar                          kchar0
C Fdmem                          fdmem0
C Fddev                          fddev0
C Fdvcstat1                      fdvcs0
C Tcdelaytime                    tcden0
C Lastdef                        laste0
C Fdvcstat2                      fdvct0
C Killresp                       killr0
C Padrow                         padro0
C Fntab                          fntab0
C Reservednewscr                 resev0
C Reservedcurscr                 resew0
C Utempbuf                       utemq0
C Rtlabel                        rtlab0
C Lsho                           lshoa0
C Tcvertpos                      tcver0
C Tcinschar                      tcint0
C Tcwraparound                   tcwra0
C Tcceoslen                      tcceo0
C Fdbufend                       fdbui0
C canceljob                      cance0
C Pbbuf                          pbbuf0
C Fdopstat1                      fdops0
C Passwd                         passw0
C Newscr                         newsc0
C Curscr                         cursc0
C Duplex                         duple0
C Fdopstat2                      fdopt0
C batchseq                       batch0
C grabstr                        grabs0
C Tccursorhome                   tccur0
C Fdopstat3                      fdopu0
C Tspath                         tspat0
C Tsat                           tsata0
C Tccursorleft                   tccus0
C Colchgstart                    colch0
C Reservedshell                  reset0
C Inbuf                          inbuf0
C Nestingcount                   nesti0
C getpasswd                      getpa0
C Reservedtscan                  reseu0
C Defbuf                         defbu0
C Uhashtb                        uhash0
C Fdbuflen                       fdbuh0
C Cmdstat                        cmdst0
C Tchorpos                       tchor0
C Tcinsline                      tcins0
C Msgowner                       msgow0
C Fdlastfd                       fdlas0
C Termattr                       terma0
C Tsgt                           tsgta0
C Tcshiftout                     tcshj0
C Inputstop                      inpuu0
C Firstuse                       first0
C Tcshiftin                      tcshi0
C Displaytime                    displ0
C Fdcount                        fdcou0
C tempfile                       tempf0
C priority                       prior0
C Termbuf                        termb0
C Lsref                          lsref0
C Tcabslen                       tcabt0
C Rowchgstop                     rowci0
C Maxrow                         maxro0
C Padcol                         padco0
C Lastcharscanned                lastd0
C Msgrow                         msgro0
C Padlen                         padle0
C Stdporttbl                     stdpo0
C spoolout                       spool0
C Argc                           argca0
C Termtype                       termt0
C Tccleartoeol                   tcclf0
C Tcinsstr                       tcinu0
C Tccursordown                   tccuv0
C Currow                         curro0
C restart                        resta0
C usagemsg                       usage0
C Nlchar                         nlcha0
C Isphantom                      ispha0
C Tsun                           tsuna0
C Tsps                           tspsa0
C Reservedvthmisc                resex0
C jobstatus                      jobst0
C Lastchar                       lastc0
C Utemptop                       utemp0
C Tcdelchar                      tcdem0
C Bplabel                        bplab0
C Tspw                           tspwa0
C Tcclearscreen                  tccle0
C Tccoordtype                    tccop0
C Tcvertlen                      tcves0
C Fdbcount                       fdbco0
C command                        comma0
C Comunit                        comun0
C Tccleartoeos                   tcclg0
C Tccursorup                     tccuu0
C Tcclrlen                       tcclr0
C Errcod                         errco0
C Lword                          lword0
C Pbptr                          pbptr0