SUBROUTINE MAIN
      LOGICAL*1 CH, CL, ROOT(40), FILE(40)
      INTEGER I, VERBOS, STATUS
      INTEGER GETARG, EQUAL, CPYMSG
      LOGICAL*1 QUEST(2)
      LOGICAL*1 DFROOT(5)
      LOGICAL*1 MINUSV(3)
      DATA QUEST(1)/63/,QUEST(2)/0/
      DATA DFROOT(1)/116/,DFROOT(2)/109/,DFROOT(3)/115/,DFROOT(4)/103/,D
     *FROOT(5)/0/
      DATA MINUSV(1)/45/,MINUSV(2)/118/,MINUSV(3)/0/
      DATA CH/97/
      DATA CL/97/
      VERBOS = 0
      CALL SCOPY(DFROOT, 1, ROOT, 1)
      I=1
23000 IF(.NOT.(GETARG(I, FILE, 40) .NE. -1))GOTO 23002
      CALL FOLD(FILE)
      IF(.NOT.(EQUAL(FILE, QUEST) .EQ. 1))GOTO 23003
      CALL ERROR(33Husage:  msplit <file [-v] [root].)
      GOTO 23004
23003 CONTINUE
      IF(.NOT.(EQUAL(FILE, MINUSV) .EQ. 1))GOTO 23005
      VERBOS = 1
      GOTO 23006
23005 CONTINUE
      CALL SCOPY(FILE, 1, ROOT, 1)
23006 CONTINUE
23004 CONTINUE
23001 I=I+1
      GOTO 23000
23002 CONTINUE
23007 CONTINUE
      I = 1
      CALL STCOPY(ROOT, 1, FILE, I)
      CALL CHCOPY(CH, FILE, I)
      CALL CHCOPY(CL, FILE, I)
      FILE(I) = 0
      I = 40 - 1
      STATUS = CPYMSG(I, FILE)
      IF(.NOT.(VERBOS .EQ. 1))GOTO 23010
      CALL REMARK(FILE)
23010 CONTINUE
      CL = CL + 1
      IF(.NOT.(CL .GT. 122))GOTO 23012
      CL = 97
      CH = CH + 1
23012 CONTINUE
23008 IF(.NOT.(STATUS .EQ. -1))GOTO 23007
23009 CONTINUE
      RETURN
      END
      INTEGER FUNCTION CPYMSG(N, FILE)
      INTEGER N, OUT, I, STATUS
      INTEGER CREATE, GETLIN, EQUAL
      INTEGER*4 TEMP
      LOGICAL*1 FILE(40), HDRPAT(4), BUF(400)
      DATA HDRPAT/1, 1, 10, 0/
      OUT = CREATE(FILE, 2)
      IF(.NOT.(OUT .EQ. -3))GOTO 23014
      CALL CANT(FILE)
23014 CONTINUE
      I = 0
23016 CONTINUE
      CALL MARKL(1, TEMP)
      STATUS = GETLIN(BUF, 1)
      IF(.NOT.(STATUS .EQ. -1))GOTO 23019
      GOTO 23018
23019 CONTINUE
      IF(.NOT.(EQUAL(BUF, HDRPAT) .EQ. 1))GOTO 23021
      I = I + 1
      IF(.NOT.(I .GT. N))GOTO 23023
      CALL SEEK(TEMP, 1)
      STATUS = N
      GOTO 23018
23023 CONTINUE
23021 CONTINUE
      CALL PUTLIN(BUF, OUT)
23017 GOTO 23016
23018 CONTINUE
      CALL CLOSE(OUT)
      CPYMSG = STATUS
      RETURN
      END