SUBROUTINE MAIN
      INTEGER GETARG, GETLIN, OPEN
      LOGICAL*1 ARG1(36)
      LOGICAL*1 TXTFIL(36)
      LOGICAL*1 TCSFIL(36)
      LOGICAL*1 CLOWER
      INTEGER I, J
      LOGICAL*1 ST001Z(30)
      LOGICAL*1 ST002Z(32)
      LOGICAL*1 ST003Z(15)
      LOGICAL*1 ST004Z(23)
      LOGICAL*1 ST005Z(13)
      DATA ST001Z(1)/117/,ST001Z(2)/115/,ST001Z(3)/97/,ST001Z(4)/103/,ST
     *001Z(5)/101/,ST001Z(6)/58/,ST001Z(7)/32/,ST001Z(8)/32/,ST001Z(9)/9
     *7/,ST001Z(10)/100/,ST001Z(11)/109/,ST001Z(12)/105/,ST001Z(13)/110/
     *,ST001Z(14)/32/,ST001Z(15)/45/,ST001Z(16)/105/,ST001Z(17)/102/,ST0
     *01Z(18)/105/,ST001Z(19)/108/,ST001Z(20)/101/,ST001Z(21)/32/,ST001Z
     *(22)/102/,ST001Z(23)/105/,ST001Z(24)/108/,ST001Z(25)/101/,ST001Z(2
     *6)/46/,ST001Z(27)/116/,ST001Z(28)/99/,ST001Z(29)/115/,ST001Z(30)/0
     */
      DATA ST002Z(1)/63/,ST002Z(2)/32/,ST002Z(3)/85/,ST002Z(4)/115/,ST00
     *2Z(5)/97/,ST002Z(6)/103/,ST002Z(7)/101/,ST002Z(8)/58/,ST002Z(9)/32
     */,ST002Z(10)/32/,ST002Z(11)/97/,ST002Z(12)/100/,ST002Z(13)/109/,ST
     *002Z(14)/105/,ST002Z(15)/110/,ST002Z(16)/32/,ST002Z(17)/45/,ST002Z
     *(18)/105/,ST002Z(19)/102/,ST002Z(20)/105/,ST002Z(21)/108/,ST002Z(2
     *2)/101/,ST002Z(23)/32/,ST002Z(24)/102/,ST002Z(25)/105/,ST002Z(26)/
     *108/,ST002Z(27)/101/,ST002Z(28)/46/,ST002Z(29)/116/,ST002Z(30)/99/
     *,ST002Z(31)/115/,ST002Z(32)/0/
      DATA ST003Z(1)/45/,ST003Z(2)/32/,ST003Z(3)/102/,ST003Z(4)/108/,ST0
     *03Z(5)/97/,ST003Z(6)/103/,ST003Z(7)/32/,ST003Z(8)/109/,ST003Z(9)/1
     *05/,ST003Z(10)/115/,ST003Z(11)/115/,ST003Z(12)/105/,ST003Z(13)/110
     */,ST003Z(14)/103/,ST003Z(15)/0/
      DATA ST004Z(1)/45/,ST004Z(2)/105/,ST004Z(3)/46/,ST004Z(4)/46/,ST00
     *4Z(5)/46/,ST004Z(6)/32/,ST004Z(7)/102/,ST004Z(8)/105/,ST004Z(9)/10
     *8/,ST004Z(10)/101/,ST004Z(11)/110/,ST004Z(12)/97/,ST004Z(13)/109/,
     *ST004Z(14)/101/,ST004Z(15)/32/,ST004Z(16)/109/,ST004Z(17)/105/,ST0
     *04Z(18)/115/,ST004Z(19)/115/,ST004Z(20)/105/,ST004Z(21)/110/,ST004
     *Z(22)/103/,ST004Z(23)/0/
      DATA ST005Z(1)/73/,ST005Z(2)/110/,ST005Z(3)/118/,ST005Z(4)/97/,ST0
     *05Z(5)/108/,ST005Z(6)/105/,ST005Z(7)/100/,ST005Z(8)/32/,ST005Z(9)/
     *102/,ST005Z(10)/108/,ST005Z(11)/97/,ST005Z(12)/103/,ST005Z(13)/0/
      CALL QUERY(ST001Z)
      IF (.NOT.(GETARG(1, ARG1, 36) .EQ. -1 .OR. GETARG(2, TCSFIL, 36) .
     *EQ. -1))GOTO 23000
      CALL ERROR(ST002Z)
23000 CONTINUE
      IF (.NOT.(ARG1(1) .NE. 45))GOTO 23002
      CALL ERROR(ST003Z)
      GOTO 23003
23002 CONTINUE
      IF (.NOT.(CLOWER(ARG1(2)) .EQ. 105))GOTO 23004
      I = 3
      J = 1
23006 CONTINUE
      TXTFIL(J) = ARG1(I)
      IF (.NOT.(ARG1(I) .EQ. 0))GOTO 23009
      GOTO 23008
23009 CONTINUE
      I = I+1
      J = J+1
23007 GOTO 23006
23008 CONTINUE
      IF (.NOT.(J .EQ. 1))GOTO 23011
      CALL ERROR(ST004Z)
23011 CONTINUE
      CALL ADMIT(TXTFIL, TCSFIL)
      GOTO 23005
23004 CONTINUE
      CALL ERROR(ST005Z)
23005 CONTINUE
23003 CONTINUE
      RETURN
      END
      SUBROUTINE ADMIT(TXTFIL, TCSFIL)
      LOGICAL*1 TXTFIL(36)
      LOGICAL*1 TCSFIL(36)
      LOGICAL*1 SCRFIL(36)
      INTEGER AMOVE, BMATCH, CREATE, GETLIN, OPEN, PROMPT, INDEXC
      LOGICAL*1 DATE( 10), TIME( 9)
      LOGICAL*1 INBUF(402)
      INTEGER FDTXT, FDSCR
      INTEGER CNT, NOW( 7), IND
      LOGICAL*1 SCT(4)
      LOGICAL*1 ST006Z(5)
      LOGICAL*1 ST007Z(6)
      LOGICAL*1 ST008Z(5)
      LOGICAL*1 ST009Z(7)
      LOGICAL*1 ST00AZ(5)
      LOGICAL*1 ST00BZ(47)
      LOGICAL*1 ST00CZ(3)
      LOGICAL*1 ST00DZ(5)
      LOGICAL*1 ST00EZ(4)
      LOGICAL*1 ST00FZ(5)
      LOGICAL*1 ST00GZ(2)
      LOGICAL*1 ST00HZ(5)
      LOGICAL*1 ST00IZ(2)
      DATA SCT(1)/83/,SCT(2)/67/,SCT(3)/84/,SCT(4)/0/
      DATA ST006Z(1)/37/,ST006Z(2)/37/,ST006Z(3)/115/,ST006Z(4)/32/,ST00
     *6Z(5)/0/
      DATA ST007Z(1)/48/,ST007Z(2)/47/,ST007Z(3)/48/,ST007Z(4)/47/,ST007
     *Z(5)/48/,ST007Z(6)/0/
      DATA ST008Z(1)/37/,ST008Z(2)/37/,ST008Z(3)/100/,ST008Z(4)/32/,ST00
     *8Z(5)/0/
      DATA ST009Z(1)/68/,ST009Z(2)/32/,ST009Z(3)/49/,ST009Z(4)/46/,ST009
     *Z(5)/49/,ST009Z(6)/32/,ST009Z(7)/0/
      DATA ST00AZ(1)/32/,ST00AZ(2)/49/,ST00AZ(3)/32/,ST00AZ(4)/48/,ST00A
     *Z(5)/0/
      DATA ST00BZ(1)/69/,ST00BZ(2)/110/,ST00BZ(3)/116/,ST00BZ(4)/101/,ST
     *00BZ(5)/114/,ST00BZ(6)/32/,ST00BZ(7)/103/,ST00BZ(8)/101/,ST00BZ(9)
     */110/,ST00BZ(10)/101/,ST00BZ(11)/114/,ST00BZ(12)/97/,ST00BZ(13)/10
     *8/,ST00BZ(14)/32/,ST00BZ(15)/99/,ST00BZ(16)/111/,ST00BZ(17)/109/,S
     *T00BZ(18)/109/,ST00BZ(19)/101/,ST00BZ(20)/110/,ST00BZ(21)/116/,ST0
     *0BZ(22)/115/,ST00BZ(23)/32/,ST00BZ(24)/40/,ST00BZ(25)/101/,ST00BZ(
     *26)/110/,ST00BZ(27)/100/,ST00BZ(28)/32/,ST00BZ(29)/119/,ST00BZ(30)
     */105/,ST00BZ(31)/116/,ST00BZ(32)/104/,ST00BZ(33)/32/,ST00BZ(34)/97
     */,ST00BZ(35)/32/,ST00BZ(36)/39/,ST00BZ(37)/100/,ST00BZ(38)/111/,ST
     *00BZ(39)/116/,ST00BZ(40)/45/,ST00BZ(41)/108/,ST00BZ(42)/105/,ST00B
     *Z(43)/110/,ST00BZ(44)/101/,ST00BZ(45)/39/,ST00BZ(46)/41/,ST00BZ(47
     *)/0/
      DATA ST00CZ(1)/62/,ST00CZ(2)/32/,ST00CZ(3)/0/
      DATA ST00DZ(1)/37/,ST00DZ(2)/37/,ST00DZ(3)/99/,ST00DZ(4)/32/,ST00D
     *Z(5)/0/
      DATA ST00EZ(1)/37/,ST00EZ(2)/37/,ST00EZ(3)/84/,ST00EZ(4)/0/
      DATA ST00FZ(1)/37/,ST00FZ(2)/37/,ST00FZ(3)/73/,ST00FZ(4)/32/,ST00F
     *Z(5)/0/
      DATA ST00GZ(1)/49/,ST00GZ(2)/0/
      DATA ST00HZ(1)/37/,ST00HZ(2)/37/,ST00HZ(3)/69/,ST00HZ(4)/32/,ST00H
     *Z(5)/0/
      DATA ST00IZ(1)/49/,ST00IZ(2)/0/
      FDTXT = OPEN(TXTFIL, 1)
      IF (.NOT.(FDTXT .EQ. -3))GOTO 23013
      CALL CANT(TXTFIL)
23013 CONTINUE
      CALL SCRATF(SCT, SCRFIL)
      FDSCR = CREATE(SCRFIL, 2)
      IF (.NOT.(FDSCR .EQ. -3))GOTO 23015
      CALL CANT(SCRFIL)
23015 CONTINUE
      CALL PUTLIN(ST006Z, FDSCR)
      CALL PUTLIN(ST007Z, FDSCR)
      CALL PUTCH(10, FDSCR)
      CALL PUTLIN(ST008Z, FDSCR)
      CALL PUTLIN(ST009Z, FDSCR)
      CALL GETNOW(NOW)
      CALL FMTDAT( DATE, TIME, NOW, 1)
      CALL PUTLIN( DATE, FDSCR)
      CALL PUTCH(32, FDSCR)
      CALL PUTLIN( TIME, FDSCR)
      CALL PUTCH(32, FDSCR)
      CALL MAILID(INBUF)
      IND = INDEXC(INBUF, 32)
      IF (.NOT.(IND .GT. 0))GOTO 23017
      INBUF(IND) = 0
23017 CONTINUE
      CALL PUTLIN(INBUF, FDSCR)
      CALL PUTLIN(ST00AZ, FDSCR)
      CALL PUTCH(10, FDSCR)
      CALL PUTLIN(ST00BZ, 3)
      CALL PUTCH(10, 3)
23019 CONTINUE
      CNT = PROMPT(ST00CZ, INBUF, 1)
      IF (.NOT.(CNT .EQ. -1))GOTO 23022
      GOTO 23021
23022 CONTINUE
      IF (.NOT.((CNT .EQ. 2) .AND. (INBUF(1) .EQ. 46)))GOTO 23024
      GOTO 23021
23024 CONTINUE
      CALL PUTLIN(ST00DZ, FDSCR)
      CALL PUTLIN(INBUF, FDSCR)
23020 GOTO 23019
23021 CONTINUE
      CALL PUTLIN(ST00EZ, FDSCR)
      CALL PUTCH(10, FDSCR)
      CALL PUTLIN(ST00FZ, FDSCR)
      CALL PUTLIN(ST00GZ, FDSCR)
      CALL PUTCH(10, FDSCR)
23026 IF (.NOT.(GETLIN(INBUF, FDTXT) .NE. -1))GOTO 23027
      CALL PUTLIN(INBUF, FDSCR)
      GOTO 23026
23027 CONTINUE
      CALL PUTLIN(ST00HZ, FDSCR)
      CALL PUTLIN(ST00IZ, FDSCR)
      CALL PUTCH(10, FDSCR)
      CALL CLOSE(FDTXT)
      CALL CLOSE(FDSCR)
      IF (.NOT.( AMOVE( SCRFIL, TCSFIL) .EQ. -3 ))GOTO 23028
      CALL CANT(TCSFIL)
23028 CONTINUE
      RETURN
      END