10REM > Split4
   20DIM AREA% &10000
   30INPUT"File to split "A$
   40OSCLI"LOAD "+A$+" "+STR$~AREA%
   50A%=OPENINA$:B%=EXT#A%:CLOSE#A%
   60INPUT"Target filing system "F$
   70OSCLI F$
   80INPUT"Destination "B$
   90A0%=OPENOUT(B$+"0"):A1%=OPENOUT(B$+"1"):A2%=OPENOUT(B$+"2"):A3%=OPENOUT(B$+"3")
  100FORZ%=0TOB%STEP4
  110BPUT#A0%,AREA%?Z%:BPUT#A1%,AREA%?(Z%+1):BPUT#A2%,AREA%?(Z%+2):BPUT#A3%,AREA%?(Z%+3):NEXT
  120CLOSE#A0%:CLOSE#A1%:CLOSE#A2%:CLOSE#A3%