INTEGER A$BUF(200)
      INTEGER I,LIMLO,LIMHI
      INTEGER GETARG,GCTOI
      INTEGER ARG(102)
      INTEGER UMSG(52)
      INTEGER PARSCL
      INTEGER AAAAA0(6)
      INTEGER CTOC
      INTEGER AAAAB0(3)
      DATA UMSG/213,243,225,231,229,186,160,233,239,244,225,160,219,173,
     *230,160,188,230,239,242,237,225,244,190,221,160,219,188,236,239,24
     *7,229,242,223,236,233,237,190,221,160,188,245,240,240,229,242,223,
     *236,233,237,190,0/
      DATA AAAAA0/230,188,242,243,190,0/
      DATA AAAAB0/170,233,0/
      IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000
        CALL ERROR(UMSG)
10000 IF((A$BUF(230-225+1).EQ.2))GOTO 10001
        A$BUF(230-225+27)=A$BUF(53)
        A$BUF(53)=A$BUF(53)+(1+CTOC(AAAAB0,A$BUF(A$BUF(53)),200))
10001 IF((GETARG(1,ARG,102).NE.-1))GOTO 10002
        CALL ERROR(UMSG)
10002 LIMLO=1
      I=1
      LIMHI=GCTOI(ARG,I,10)
      IF((ARG(I).EQ.0))GOTO 10003
        CALL ERROR(UMSG)
10003 IF((GETARG(2,ARG,102).EQ.-1))GOTO 10004
        LIMLO=LIMHI
        I=1
        LIMHI=GCTOI(ARG,I,10)
        IF((ARG(I).EQ.0))GOTO 10005
          CALL ERROR(UMSG)
10005 CONTINUE
10004 IF((LIMLO.GE.LIMHI))GOTO 10006
        I=LIMLO
        GOTO 10009
10007   I=I+(1)
10009   IF((I.GT.LIMHI))GOTO 10008
          CALL PRINT(-11,A$BUF(A$BUF(230-225+27)),I)
          CALL PUTCH(138,-11)
        GOTO 10007
10008   GOTO 10010
10006   I=LIMLO
        GOTO 10013
10011   I=I-(1)
10013   IF((I.LT.LIMHI))GOTO 10012
          CALL PRINT(-11,A$BUF(A$BUF(230-225+27)),I)
          CALL PUTCH(138,-11)
        GOTO 10011
10012 CONTINUE
10010 CALL SWT
      END
C ---- Long Name Map ----