INTEGER I,AP,IR,OR
      INTEGER GETARG,GETLIN
      INTEGER ARG(102)
      INTEGER * 4 NUM
      INTEGER * 4 GCTOL
      INTEGER A$BUF(200)
      INTEGER PARSCL
      INTEGER AAAAA0(22)
      INTEGER AAAAB0(60)
      INTEGER AAAAC0(7)
      INTEGER AAAAD0(7)
      DATA AAAAA0/233,188,242,229,241,160,233,238,244,190,160,239,188,24
     *2,229,241,160,233,238,244,190,0/
      DATA AAAAB0/213,243,225,231,229,186,160,160,242,225,228,233,248,16
     *0,219,173,233,160,188,242,225,228,233,248,160,233,238,190,221,160,
     *219,173,239,160,188,242,225,228,233,248,160,239,245,244,190,221,16
     *0,251,160,188,238,245,237,226,229,242,190,160,253,0/
      DATA AAAAC0/170,172,163,236,170,238,0/
      DATA AAAAD0/170,172,163,236,170,238,0/
      IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000
        CALL ERROR(AAAAB0)
10000 IF((A$BUF(233-225+1).EQ.2))GOTO 10001
        A$BUF(233-225+27)=10
10001 IF((A$BUF(239-225+1).EQ.2))GOTO 10002
        A$BUF(239-225+27)=10
10002 IR=A$BUF(233-225+27)
      OR=A$BUF(239-225+27)
      AP=1
      GOTO 10005
10003 AP=AP+(1)
10005 IF((GETARG(AP,ARG,102).EQ.-1))GOTO 10004
        I=1
        NUM=GCTOL(ARG,I,IR)
        CALL PRINT(-11,AAAAC0,OR,NUM)
      GOTO 10003
10004 IF((AP.GT.1))GOTO 10006
10007   IF((GETLIN(ARG,-10).EQ.-1))GOTO 10008
          I=1
          NUM=GCTOL(ARG,I,IR)
          CALL PRINT(-11,AAAAD0,OR,NUM)
        GOTO 10007
10008 CONTINUE
10006 CALL SWT
      END
C ---- Long Name Map ----