NEW 10 REM ***************************** ---> UPLOADED FROM 20 REM * PRODOS TEXT FILE SPLITTER * APPLE'S ONLINE! 30 REM * A PUBLIC DOMAIN PROGRAM * 24 HOURS 40 REM * BY LARRY MILLER * 1-718-746-1140 50 REM ***************************** 60 D\$ = CHR\$(4):T=0:N=0:A=0:A\$=" ":B=0:I=0:C\$=" " 70 HOME: VTAB 10:? "PLACE THE DISK WITH THE FILE TO BE":?"SPLIT IN DRIVE 1" 75 ?:?"PRESS TO CONTINUE":CALL 64858 80 ?D\$;"PREFIX,D1" 90 ?D\$;"PREFIX" 100 INPUT PF\$ 110 HOME:VTAB 10:?" ENTER THE NAME OF THE" 120 ?:?" TEXT FILE TO BE SPLIT ":?:INPUT " ";FI\$ 125 F=LEN(FI\$) 130 ?D\$;"OPEN ";PF\$;",TDIR" 140 ?D\$;"READ ";PF\$ 150 INPUT F\$ 160 INPUT F\$ 170 INPUT F\$ 180 INPUT F\$ 190 IF MID\$(F\$,2,F) = FI\$ AND MID\$(F\$,F+2,1) = " " THEN L =VAL(MID\$ (F\$,64,8)) 200 IF F\$<>"" THEN GOTO 180 210 INPUT F\$:F=VAL(MID\$(F\$,13,5)) 220 ?D\$;"CLOSE ";PF\$ 230 IF L=0 THEN GOTO 1000 240 F=(F+6)*512 250 IF FL2 THEN?"2 PIECES OF ABOUT ";L2;" BYTES" 320 IF T-A-3>L3 THEN?"3 PIECES OF ABOUT ";L3;" BYTES" 330 IF T-A-3>L4 THEN?"4 PIECES OF ABOUT ";L4;" BYTES" 340 IFT-A-3