10 MAXFILES=2
15 CLS:PRINT"Work On Files:":PRINT:PRINT"<1> RAM":PRINT"<2> DISK":PRINT@280,"SELECT ";:D$=INPUT$(1):IFD$<>"1"ANDD$<>"2"THENGOTO15
16 CLS:IFD$="1"THEND$="RAM:":FILESELSED$="0:"
17 PRINT:LINEINPUT"Name of file to split:";A$:INPUT"Maximum length of split files:";A:A=A-255:B=0
20 OPENA$FORINPUTAS1
30 ONERRORGOTO50:C=0:B=B+1:B$=D$+"FILE"+RIGHT$(STR$(B),1)+".DO":OPENB$FOROUTPUTAS2:CLS
40 LINEINPUT#1,A$:IFEOF(1)THENPRINT#2,CHR$(26);:CLOSE:MENUELSEC=C+LEN(A$)+1:IFC>=ATHENPRINT#2,A$+CHR$(26);:CLOSE2:GOTO30ELSEPRINT@131,B$;:PRINTC:FORX=1TO100:NEXT:PRINT#2,A$:GOTO40
50 PRINT#2,CHR$(26);:CLOSE:CLS:PRINT"Error ";ERR;" in line ";ERL:END