H pB@)o@@K@ 00040 A$*800,FILENAME$*35a@Z@Z@ [@o@"foo@, "f: "f;oo@    A@%  !d o   A o@,  !d:  !d;oo@A@a@ a@o@@P@P@ v@ v@o@ !SAk@B ( FAPTx]]@]]Zha d,$p n,T x l ,$@+HP4 dAtHHJRt 0,Hx2b1<:ZgA$P ?@@ INPUT FIELDS X@,N @.Y@@ @0@9@L@LREPLACE,wbutil\supphelp@Enter filenameFILENAME$P #@NAME=@ ,recl=800@free @-N@rename work[wsid].wbx @ -N@$NAME=WORK[wsid].WBX,recl=800,replace "4AMU\htz*00010! Workstation Basic Utilities00020)#,SHELP 00030! replace LREPLACER00050"Enter filename" 00060 FILENAME$400070# 1: "NAME="&FILENAME$&",recl=800",,>00080#)2: "NAME=WORK[wsid].WBX,recl=800,replace",,P00090#1: A$ 8200000100(POS(A$,"INPUT FIELDS ")=0 ,,170>00110('(X:=POS(A$,",N "))=0 OR POS(A$,".",X)>0 ,,17000120Y=X+3.00130( A$(Y:Y)=" " ,Y=Y+1 : ,130R00140(A$(Y:Y)<"0" OR A$(Y:Y)>"9" ,,170 ! must be looking at attribute00150A$(X+1:X+1)="L"00160A$$00170#2: A$$00180,9000190! 000200#1: 00210#2: $002206"free "&FILENAME$&"-N"N6002306("rename work[wsid].wbx "&FILENAME$&" -N"N 00240/0<00250SHELP: !HELP$("LREPLACE,wbutil\supphelp"): +R