Kd *** 'BREAKUP' IS A PROGRAM WHICH WILL TAKE ANY SEQUENTIAL TEXT FILEn *** AND DIVIDE IT UP INTO SMALLER SEQUENTIAL TEXT FILES. IT'S MAINx *** USE IS FOR THOSE WHO HAVE WORD PROCESSORS WITH SMALL BUFFERS,% *** AND WOULD LIKE TO VIEW, CHANGE, ETC., A LARGE SEQUENTIAL FILE./ ***z *** 'BREAKUP' USES THE NAME OF THE ORIGINAL FILE AND APPENDS -1, -2, *** -3, -4, ETC., TO THE END OF IT FOR EACH SUB FILE. YOU MAY CHOOSE  *** THE MAXIMUM LENGTH OF THESE SUB FILES BY EITHER THE NUMBER OF? *** BYTES, OR BY THE NUMBER OF DISK BLOCKS.I *** *** I'VE WRITTEN THIS PROGRAM FOR THE PUBLIC DOMAIN. IT MAY BE UP- *** LOADED TO ANY BBS OR NATIONAL ON-LINE NETWORK, PROVIDED THAT *** ALL STATEMENTS REMAIN INTACT, AND THAT THE POLICY OF THEc *** NETWORK IS ONE SUCH AS AMERICAN PEOPLE LINK'S; THAT IS, ONCE *** YOU HAVE DOWNLOADED THIS PROGRAM, YOU ARE FREE TO GIVE (BUT *** NOT SELL) IT TO ANYONE WHO WISHES IT, WHETHER HE/SHE IS OR  *** IS NOT A MEMBER OF THE NETWORK."  ***i  *** PLEASE E-MAIL ALL COMMENTS TO ME (CBM*BOB), THE 128 CHAIRMAN " *** OF PLINK'S COMMODORE CLUB. , *** TO RECEIVE A ONE-HOUR FREE DEMO ON PLINK, CALL:!6 *** (VOICE) 1-800-524-0100 FROM 9 AM TO 10 PM CST; OR5!@ *** (MODEM) 1-800-826-8855, 24 HOURS A DAY?!J ***Y!T (142): 1000: 5,4!^ "DEVICE NUMBER FOR  INPUT FILE? 8";D1!h "DRIVE NUMBER? 0";Z1!r "DEVICE NUMBER FOR  OUTPUT FILE? 8";D2"| "DRIVE NUMBER? 0";Z2 "/" "DO YOU WANT SMALLER FILES BY:"V" "  1 A MAXIMUM OF BYTES"" "  2 A MAXIMUM OF DISK BLOCKS"" "TYPE 1 OR 2"" K$: K$"1" K$"2" 430" K$"2" 510"# "ENTER THE MAXIMUM NUMBER OF BYTES YOU WANT IN EACH SUB-FILE.":# "THEN PRESS  RETURN "P# NB:NB(NB150)Z# 570`## "ENTER THE MAXIMUM NUMBER OF DISK BLOCKS YOU WANT FOR EACH SUB-FILE."# "(EACH DISK BLOCK IS 256 BYTES.)# "THEN PRESS  RETURN "$& BL:BL(BL)$0NB (BL256)150#$:Q$D "PRESS  F3 TO SEE THE DIRECTORY."o$N "INPUT FILE NAME";IN$$X IN$"DIRECTORY" 1550:570$b (IN$)12 640$l "FILE NAME MUST BE FEWER THAN 13 CHARACTERS."%v "PLEASE RENAME THE FILE AND BEGIN AGAIN.":%%3% #1,(IN$),D(Z1),U(D1)[% DS62 "FILE NOT FOUND."::s%FI0:BY0:HY$(45)%FIFI1:FI$(FI):FI$(FI$,2,2)%OU$IN$HY$FI$%H$OU$% #2,(OU$),D(Z2),U(D2),W%2:2% "WRITING FILE: ";H$&2,"*** FILE: ";:2,H$;:2," ***"&&21&#1,A$C& ST64 920N& 2,A$;X& A$;x&  BY50 (BY50) ".";&*BYBY1&4 BY NB 760&> A$ (13) 760&H2,A$&R&\F2FI1:F2$(F2):F2$(F2$,2,2)&fNE$IN$HY$F2$-'p2,"*** CONTINUED IN FILE: ";:2,NE$;:2," ***"4'z2='BY0G' 680j'2:2:2,"*** END OF FILE ***"w'2:&:' "": 1,30,11,"BREAKUP IS FINISHED!"' "V1O4T8U15X0IEE#GQBI#G.HB"' 1,21,14 ( "DO YOU WISH TO BREAKUP ANOTHER FILE? N";Y$&( Y$"Y" "": 350,(2(B( 6,1: 5,4s( 1,22,4," "( 1,22,5," "( 1,22,6," ") 1,22,7," "/)$ 1,22,8," "_). 1,22,9," ")8 1,22,10," ")B 1,33,14," ")L 1,33,15," ")V 1,33,16," " *` 1,33,17," "#*j 1,33,18," "=*t 1,33,19," "W*~ 1,33,20," "`* 2* 1,22,8," "* "V1O3T0U5X0IC$EQG": 1* 1,22,9," "+ "V1O3T0U5X0I$DEQ$A": 13+ 1,22,10," "Q+ "V1O3T0U5X0IDFQA": 1l+ 1,33,18," "+ "V1O3T0U5X0I$E$GQ$B": 1+ 1,33,19," "+ "V1O3T0U5X0IEGQB": 1+ 1,33,20," ", "V1O3T0U5X0IF$AO4QC": 1 ,  5,14`, 1,7,2,"A PROGRAM WHICH BREAKS UP LARGE SEQUENTIAL FILES INTO SMALLER ONES",1i, 2s,( 5,8,2 1,25,12,"BY BOB UMFER (PLINK'S CBM*BOB)",1,< 2,F 5,5,P 1,25,22,"FOR THE C128 IN 80-COLUMN MODE",1,Z 2,d 5,2-n X078-x: 1,X,0,"""- X3- Y 0 23F-: 1,78,Y,""Y-: 1,77,Y,""a- Yu- X78 0 1-: 1,X,23,""- X- Y 23 0 1-: 1,0,Y,""-: 1,1,Y,""- Y- 4:-- 45,3,78,23:. "  HIT ANY KEY "#." J$0., "":