r pd0+@@K@"00030 A$*10000,FILENAME$*35)*o@ !a@   A@ aY@a@Z@!d!$ A@:;oo@ ,a Z@ !0o@  &o@ "E A@!0o@-'o@)'o@'P*)"! A@/h@ o@ ^@I o@o@P   A@"F*on@o@n@a@oa@n@P@ &a@o@ %a@o@ /!SAk@, (FHJx ],hfGȔ\(g y H'6   ( xH<@23n,~ddhZPaPHX A"H4, \ X!(6@HT  J^H)l"(#($( %,.&XB  (0|+h,*rH8A$P'@NAME OF THE OUTPUT FILE? FILENAME$P #?L@@@NAME=C@X$@ @,REPLACE,RECL=DRIVE$@A l@A@Z@LEnter a one character DRIVE name that you will use for your floppy diskettes@:TEMP.@Error reading input file@@-Need to redimension A$ in program FILRTRN to @Insert diskette number @ in drive @Problem writing to @Problem opening @MAXREC$@ 89 MAXREC@V@@ and press Enter when ready@:TEMP.0@FILRTRN,wbutil\supphelp 2:GS_jx +HT<H*00010! Workstation Basic UtilitiesP00020B! Filrtrn program used to recombine temporary files into one file.L00040)#,SHELP00050NEWPAGE00060C=1800070"NAME OF THE OUTPUT FILE? ":  FILENAME$b00080PR: N"Enter a one character DRIVE name that you will use for your floppy diskettes" 00090DRIVE$E&00100DRIVE$=UPRC$(DRIVE$(1:1)).00110(DRIVE$<'A' OR DRIVE$>'Z' ,,80b00120I"Insert diskette number ";C;" in drive ";DRIVE$;" and press Enter when ready": X$>00130#"1: "NAME="&DRIVE$&":TEMP."&STR$(C),,9120U00140(C=1 ,N00150L=RLN(1) N00160#-2: "NAME="&FILENAME$&",REPLACE,RECL="&STR$(L),,,(320800170#3: "NAME="&DRIVE$&":TEMP.0",,(290"00180# 3: MAXREC$ (290,00190#3: : MAXREC=VAL(MAXREC$)00200/(.00210#1,220: A$ 8250 (290500220C L&00230#2,220: A$ (350400240,21000250#1: : C=C+1"00260(LREC(2)>=MAXREC ,.P00270,120 00280.0(00290"Error reading input file""L00300(L>10000 ,0"Need to redimension A$ in program FILRTRN to ";L 00310.700320#1: *00330"Problem opening ";FILENAME$$00340,70 ,00350"Problem writing to ";FILENAME$ 00360/5<00370SHELP: !HELP$("FILRTRN,wbutil\supphelp") : +R