e'"@C@K@00030 A$*10000 )&o@ aZ@x@ aZ@x@a@a@a@ Y@&  :  ;o   A  A@x@a@Y@ !$ A@ xx@a@ o@ "! A@  o A A@!0 [@  o o@ o@  o@-!doj !d !o@m !o@o@ xxx@a@ P P@o@ ^@I ^@I !SAk@,$(HX)27tX<=FKPQZXZ dc nl x s  Tj(2 R#H hL (^,Dk, ",H6@4 J@!TV& ,/ %#0B!Hh@1Enter the name of the file (with the extension): FILENAME$@ @5Enter the PHYSICAL record length of the BASICA file: RECLEN$@@6Should the first record in the BASICA file be omitted @ (i.e. is it a header record)?@ Enter y or n.HEADER$@@y@YSTART@?@>Is the first character in the BASICA file a delete byte (y/n).DELBYTE$@e@ANow copying the file to a WORKSTATION BASIC internal file format.@NAME=@,RECL=RECLENRN@NAME=WBFILE.$$$,REPLACE,RECL=A$P'@D@>The new file is on the default drive with a name of WBFILE.$$$@FILECONV,wbutil\supphelp?X)BHS_kw!+<JVz*00010! Workstation Basic Utilities00020FILECONVO00035)#,SHELPP000403"Enter the name of the file (with the extension): ":  FILENAME$$ 000500R000607"Enter the PHYSICAL record length of the BASICA file: ": RECLEN$N 000700F000808"Should the first record in the BASICA file be omitted ":.00090 " (i.e. is it a header record)?"00100"Enter y or n."00110HEADER$D00120(HEADER$="y" OR HEADER$="Y" ,START=2 -START=1d 001300N00140@"Is the first character in the BASICA file a delete byte (y/n)."00150DELBYTE$&00160DELBYTE$=UPRC$(DELBYTE$) 00170: NP00180C"Now copying the file to a WORKSTATION BASIC internal file format."B00190#%1: "NAME="&FILENAME$&",RECL="&RECLEN$, ,,(40 00200RECLEN=VAL(RECLEN$)<00210( DELBYTE$="Y" , RN=RECLEN-1 - RN=RECLENL@00220#+2: "NAME=WBFILE.$$$,REPLACE,RECL="&STR$(RN),,P400230(START=2 ,#1,330: A$ 83000&00240#1,330: A$ 8300C00250( DELBYTE$="Y" ,@00260( A$(1:1)="D" ,*-#2,340:  A$(2:RECLEN)"00270-#2,340: A$00280,24000290: : NN00300@"The new file is on the default drive with a name of WBFILE.$$$"00310#1: : #2: : 00320/000330C RECLENL00340C RNC<00400SHELP: "HELP$("FILECONV,wbutil\supphelp") : +