y p:*!@@))o@ " A@K@"00050 A$*10000,FILENAME$*35 !a@ aY@o@"E A  A@ 4"F A@1a@(Z@((!d!$ A@(/:(0;oo@)(* aa Z@6 !d: !d;o+(,6o@((- !0#!0o@ ""A A@" A@ o o@(75#o@45!#o5P@4!"b ax@o@ ^@I"Do o@P   A@o@ o@o@n@ 2a@%o.a@n@3a@o@ 9!SAk@,'2FJP(XZ8p$<^h4(h  ,0 HR `n ] "h~, .6@5<H=H>,n,>.^?*^( Q_ @H9J E"nHrx,, o% T.\#^H:`(dV(:&(x0h`i)rHlmA$P'@NAME OF THE INPUT FILE? FILENAME$P #?@NAME=Rf@AL@@C@X$@ @@,SHR@HENTER F AND ENTER TO FORMAT OR JUST ENTER IF DISKETTE ALREADY FORMATTED@f@F@You will need approximately @ diskettes.MAXBYTESA@,replace,RECL=@DRIVE$@A @INSERT BLANK DISKETTE IN DRIVE @, LABELLED NUMBER @SYSTEM FORMAT @:@:TEMP.@&Redimension A$ in program filbreak to @A@Z@LEnter a one character DRIVE name that you will use for your floppy diskettes@Error reading @Error writing to floppyMAXRECS@V@@@:TEMP.0,REPLACE@FILBREAK,wbutil\supphelp 19EP\iu ,<P\o$*0*00010! Workstation Basic UtilitiesV00020H! Filbreak program used to break up files that will not fit on 1 floppy. 00030)#,SHELP00040MAXBYTES=36000000060NEWPAGE800070"NAME OF THE INPUT FILE? ":  FILENAME$M800080#1: "NAME="&FILENAME$&",SHR",,,(6000090L=RLN(1): C=100100MAXRECS=LREC(1)b00110PR: N"Enter a one character DRIVE name that you will use for your floppy diskettes" 00120DRIVE$ &00130DRIVE$=UPRC$(DRIVE$(1:1))000140(DRIVE$<'A' OR DRIVE$>'Z' ,,110n00150<"INSERT BLANK DISKETTE IN DRIVE ";DRIVE$;", LABELLED NUMBER ";C: J"ENTER F AND ENTER TO FORMAT OR JUST ENTER IF DISKETTE ALREADY FORMATTED": X$R00160(X$(1:1)="f" OR X$(1:1)="F" ,6"SYSTEM FORMAT "&DRIVE$&":" (170RV00170#;2: "NAME="&DRIVE$&":TEMP."&STR$(C)&",replace,RECL="&STR$(L),,(150x00180MAXBYTES=FREESP(2) V! Do this every time in case one high density disk is followed by one low density one.00190R=MAXBYTES/(L+1) 00200(C>1 ,,290>00210##3: "NAME="&DRIVE$&":TEMP.0,REPLACE",,(350*00220# 3: MAXRECS (350: #3: P00230="You will need approximately ";ROUND(MAXRECS/R,0);" diskettes.": .00240#1,250: A$ 8310 (320500250C L"00260( REC(2) < R ,,290400270#2: : C=C+100280,150&00290#2,250: A$ (270200300,240 00310.6(00320"Error reading ";FILENAME$$F00330(L>10000 ,)"Redimension A$ in program filbreak to ";LL 00340.9&00350"Error writing to floppy" 00360/5<00370SHELP: "HELP$("FILBREAK,wbutil\supphelp") : +