      INTEGER GETCH,GETARG,OPEN
      INTEGER CH,ARG(102)
      INTEGER COUNT,FD
      IF((GETARG(1,ARG,102).NE.-1))GOTO 10000
        FD=-10
        GOTO 10001
10000   FD=OPEN(ARG,1)
        IF((FD.NE.-3))GOTO 10002
          CALL CANT(ARG)
10002 CONTINUE
10001 CONTINUE
10003 IF((GETCH(CH,FD).EQ.-1))GOTO 10004
        CALL PUTCH(CH,-11)
        COUNT=1
        GOTO 10007
10005   COUNT=COUNT+1
10007   IF((COUNT.GT.7500))GOTO 10006
        GOTO 10005
10006   IF((CH.NE.138))GOTO 10008
          CALL SLEEP$(INTL(300))
10008 GOTO 10003
10004 IF((FD.EQ.-10))GOTO 10009
        CALL CLOSE(FD)
10009 CALL SWT
      END
C ---- Long Name Map ----
