'
' Split.BAS - file splitter
'
DEFINT A-Z

OPEN COMMAND$ FOR INPUT AS #1

PRINT "Splitting "; COMMAND$; "...";

Ext = 1

DO WHILE NOT EOF(1)
  '
  ' open output file
  OutFile$ = "Split." + RIGHT$("000" + LTRIM$(RTRIM$(STR$(Ext))), 3)
  OPEN OutFile$ FOR OUTPUT AS #2
 
  DO WHILE NOT EOF(1)
    '
    ' get input
    LINE INPUT #1, Line$
   
    IF RTRIM$(Line$) = "<<<Split!>>>" THEN
      '
      ' open a new output file
      Ext = Ext + 1
      CLOSE #2
      EXIT DO
    ELSE
      '
      ' print to output file
      PRINT #2, Line$
    END IF
  LOOP
LOOP
CLOSE
PRINT "Done!"
END