10 DEFFNS="Split"
   20 MODE128
   30 HIMEM=&2000
   40 PRINT'"File Splitter By C.J.Richardson For 8-Bit Software."'
   50 *.
   60 PRINT'"Filename to split:"
   70 INPUT J$
   80 F%=OPENIN J$
   90 PRINT'"Name of parts: "
  100 INPUT J$
  110 B%=&900
  120 C%=0
  130 REPEAT
  140 PROCld
  150 C%=C%+1
  160 C$=J$+STR$ (C%)
  170 G%=OPENOUT C$
  180 PROCsv
  190 CLOSE#G%
  200 UNTILEOF#F%
  210 CLOSE#F%
  220 PRINT'"Done!"'"Parts are named from ";J$;"1 To ";C$
  230 END
  240 DEFPROCld
  250 IF EXT#F%-PTR#F%>&4FFF H%=&5000 ELSE H%=EXT#F%-PTR#F%
  260 A%=4
  270 X%=B% MOD 256
  280 Y%=B% DIV 256
  290 B%?0=F%
  300 B%!1=&2000
  310 B%!5=H%
  320 CALL&FFD1
  330 T%=0
  340 IF PTR#F%=EXT#F% ENDPROC
  350 S%=&6FFF
  360 D%=0
  370 REPEAT
  380 D%=D%+1
  390 S%=S%+1
  400 T%=T%+1
  410 R%=BGET#F%
  420 ?S%=R%
  430 UNTIL?S%=13 OR ?S%=10 OR D%=80 
  440 ENDPROC
  450 DEFPROCsv
  460 A%=2
  470 X%=B% MOD 256
  480 Y%=B% DIV 256
  490 B%?0=G%
  500 B%!1=&2000
  510 B%!5=H%+T%
  520 CALL&FFD1
  530 ENDPROC