e.[@C@K@00030  FILENAME$*35 )o@ !a@a@Z@ o@o@^@UUUU  A@P@ o ao@a@ Z@   !$ A@(  o A "!  o@a@!0 ^@/  o u u@o@o@oo@ o@P@   oaa@o@^@I Z!SAk@, (V-2Hj:<CF(JP(bZ0wdP nHh x,z H >^r # 6S(Pj,py  :F'^,& #0@%,HVFILENAME$P #@4Enter the drive and file name (i.e. B:CUSTOMER.FIL).?@NAME=@,RECL=15LAST@FTYPE@RLEN&@OFFSET6@@@Not an Internal file.RECNUM$@A @AFIRST?@Now recovering deleted records.X@Y$@D@D@ @,All deleted records have now been recovered.@Record RENUM$@@ has been recovered.@,RECL=@(Number of record to RECOVER OR A FOR ALL@REMVDEL,wbutil\supphelp JV`q 2@Y_e*00010! Workstation Basic Utilities00020REMVDEL00035)#,SHELP00040NEWPAGED000506"Enter the drive and file name (i.e. B:CUSTOMER.FIL)." 00060 FILENAME$<00070#1: "NAME="&FILENAME$&",RECL=15", ,,(50000080#1,90: LAST,FTYPE,RLEN,OFFSET 00090B 4,X 4,B 1,B 2,B 200100 RLEN=RLEN+100110#1: <00120(FTYPE<>4 ,"Not an Internal file.": ,500800130*"Number of record to RECOVER OR A FOR ALL""00140RECNUM$$00150RECNUM$=UPRC$(RECNUM$) L00160( RECNUM$="A" ,FIRST=1 -LAST=FIRST=VAL(RECNUM$) (130.00170!"Now recovering deleted records."@00180#(1: "NAME="&FILENAME$&",RECL="&STR$(RLEN), ,,AV00190( RECNUM$="A" ,#1,5OFFSET+1: -#1,5OFFSET+1+(LAST-1)*RLEN: s00200"X=1 )LAST 00210#1,270: Y$.00220(Y$="D" ,#1,270: " ":00230#X00240#1: |00250( RECNUM$="A" ,/"All deleted records have now been recovered." -%"Record ";RENUM$;" has been recovered."" 00260/400270C 1:00300SHELP:  HELP$("REMVDEL,wbutil\supphelp"): +