10 REM COPYRIGHT 1984 JOEL M. RUBIN--COMMERCIAL RIGHTS RESERVED
20 REM SPLIT A BIG TEXT FILE FOR WORDPROCESSING
70 REM ** STRING THING (UNIVERSAL) **
80 REM **     JIM BUTTERFIELD      **
90 REM STRING MUST BE FIRST VARIABLE
100 A$="ABCDEFGHIJKLMNOPQ"
110 A$=A$+A$+A$+A$+A$
120 A$=A$+A$+A$
130 REM ABOVE SETS STRING FOR MAX (255)
200 DATA 160,2,177,45,153,137,0,200,192,6
210 DATA 208,246,162,1,32,198,255
220 DATA 32,228,255,201,13,240,15,164,142,145
230 DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
250 FORJ=896TO937:READX:POKEJ,X:T=T+X:NEXTJ
260 IFT<>6120THENSTOP
400 PRINT"[147]INPUT FILE IS ON DEVICE 8,"
410 PRINT"DRIVE 0"
420 INPUT"I/P FILE";FI$
430 OPEN15,8,15,"I0"
440 OPEN1,8,2,FI$+",S,R":INPUT#15,A,B$,C,D:IFATHENPRINTA;B$C;D:STOP
450 INPUT"OUTPUT DEVICE  8[157][157][157]";OD
460 INPUT"OUTPUT DRIVE  0[157][157][157]";OE
470 OPEN14,OD,15:IF(OD<>8)OROETHENPRINT#14,"I"+CHR$(48+OE)
480 INPUT"APPROX. BYTES/O-P FILE";BY
490 NF=0
500 OPEN3,8,3,FI$+MID$(STR$(NF),2)+",S,W":NB=0:PRINT"[207]/[208] [198]ILE #"NF
505 INPUT#14,A,B$,C,D:IFA<>0THENCLOSE2:PRINTA;B$C;D:STOP
510 SYS896:L=PEEK(142):NB=NB+L:SS=ST:PRINT#3,LEFT$(A$,L)
520 IFSSTHENCLOSE1:CLOSE3:END
530 IFNB>BYTHENCLOSE3:NF=NF+1:GOTO500
540 GOTO510