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