      INTEGER GETARG,GETLIN,OPEN
      INTEGER I,FILE
      INTEGER OUTCH,LINE(102)
      FILE=-10
      IF((GETARG(1,LINE,102).EQ.-1))GOTO 10000
        FILE=OPEN(LINE,1)
        IF((FILE.NE.-3))GOTO 10001
          CALL CANT(LINE)
10001 CONTINUE
10000 CONTINUE
10002 IF((GETLIN(LINE,FILE).EQ.-1))GOTO 10003
        I=1
        GOTO 10006
10004   I=I+(1)
10006   IF((LINE(I).EQ.160))GOTO 10005
        GOTO 10004
10005   CONTINUE
10007     I=I+(1)
          OUTCH=0
          GOTO 10010
10008     I=I+(1)
10010     IF(((LINE(I).EQ.160).OR.(LINE(I).EQ.138)))GOTO 10009
            OUTCH=8*OUTCH+LINE(I)-176
          GOTO 10008
10009     CALL T1OU(OUTCH)
        IF((LINE(I).NE.138))GOTO 10007
      GOTO 10002
10003 CALL CLOSE(FILE)
      CALL SWT
      END
C ---- Long Name Map ----