      INTEGER GETARG,LENGTH,GETLIN
      INTEGER ARG(102)
      INTEGER AAAAA0(5)
      INTEGER AAAAB0(5)
      DATA AAAAA0/170,233,170,238,0/
      DATA AAAAB0/170,233,170,238,0/
      IF((GETARG(1,ARG,102).NE.-1))GOTO 10000
10001   IF((GETLIN(ARG,-10).EQ.-1))GOTO 10002
          CALL PRINT(-11,AAAAA0,LENGTH(ARG)-1)
        GOTO 10001
10002   GOTO 10003
10000   CALL PRINT(-11,AAAAB0,LENGTH(ARG))
10003 CALL SWT
      END
C ---- Long Name Map ----
