10 REM Split a large file into smaller chunks
   20 CLS : B%=32*1024
   30 INPUT "FILENAME.EXT =",fin$
   40 in_ptr=OPENIN(fin$) : size=EXT#in_ptr 
   50 no_of_chunks=INT((size/B%)+1)
   60 J%=no_of_chunks+100 : PRINT size,no_of_chunks
   70 FOR I%=101 TO J%
   80 length=LEN(fin$) : K%=length-3 : fout$=MID$(fin$,1,K%)+STR$(I%)
   90 PRINT TAB(0,6),fout$ : out_ptr=OPENOUT(fout$)
  100 K%=0
  110 REPEAT
  120   char=BGET#in_ptr : BPUT#out_ptr,char
  130   K%=K%+1 : PRINT TAB(13,6),K%
  140 UNTIL K%>B% OR EOF#in_ptr
  150 CLOSE#out_ptr
  160 NEXT
  170 CLOSE#in_ptr
  180 STOP
  190 END