SUBROUTINE MAIN
      LOGICAL*1 FILE(512), C
      INTEGER I
      INTEGER FD
      LOGICAL*1 AGETCH
      INTEGER GETARG
      INTEGER AOPEN
      LOGICAL*1 USESTR(44)
      DATA USESTR(1)/117/,USESTR(2)/115/,USESTR(3)/97/,USESTR(4)/103/,US
     *ESTR(5)/101/,USESTR(6)/58/,USESTR(7)/32/,USESTR(8)/32/,USESTR(9)/9
     *7/,USESTR(10)/99/,USESTR(11)/97/,USESTR(12)/116/,USESTR(13)/32/,US
     *ESTR(14)/97/,USESTR(15)/114/,USESTR(16)/99/,USESTR(17)/104/,USESTR
     *(18)/105/,USESTR(19)/118/,USESTR(20)/101/,USESTR(21)/96/,USESTR(22
     *)/109/,USESTR(23)/111/,USESTR(24)/100/,USESTR(25)/117/,USESTR(26)/
     *108/,USESTR(27)/101/,USESTR(28)/91/,USESTR(29)/96/,USESTR(30)/109/
     *,USESTR(31)/111/,USESTR(32)/100/,USESTR(33)/117/,USESTR(34)/108/,U
     *SESTR(35)/101/,USESTR(36)/46/,USESTR(37)/46/,USESTR(38)/46/,USESTR
     *(39)/93/,USESTR(40)/32/,USESTR(41)/46/,USESTR(42)/46/,USESTR(43)/4
     *6/,USESTR(44)/0/
      CALL QUERY(USESTR)
      I=1
23000 IF (.NOT.(GETARG(I, FILE, 512) .NE. -1))GOTO 23002
      IF (.NOT.(AOPEN(FILE, FD, SIZE) .EQ. -3))GOTO 23003
      CALL CANT(FILE)
23003 CONTINUE
23005 IF (.NOT.(AGETCH(C, FD, SIZE) .NE. -1))GOTO 23006
      CALL PUTCH(C, 2)
      GOTO 23005
23006 CONTINUE
      CALL CLOSE(FD)
23001 I=I+1
      GOTO 23000
23002 CONTINUE
      IF (.NOT.(I .EQ. 1))GOTO 23007
      CALL ERROR(USESTR)
23007 CONTINUE
      RETURN
      END