f e844@@@)o@K@.00045 NAME$*35,TOSTR$*200,FROMSTR$*2000 !a@a@Z@ xa@a@ Z  !$ A@a@Z@ o o@ $ A@  o 1A@ x&a@ Z@' !d: !d;o@ a@ a@ %a@P@/h@a@' !d: !d;o@o@$a@P@/h@a@$Z@ $ &o@a@ Z@7 !d: !d;o  Aon@/h@ a@Z@ o%o@  o 1A@o@o1'o@  (3o@) A, A@H'))!d*:'))!d+;o)) A1o)) A0o@@/h@g@ !SAk@ ,B(0| H._7]2A<HNFW -PH Z(+KbkJ^ Lt d`n ~xH &Hd4,9 B,D "~J{(j&~d6H!@"J %TF$^,\&OH#h(r (,j)m*n,'_<<| F>-(# VE.2# tY/<#f0F#lx1Z#@3'"x#2@PRINTER,wbutil\supphelpNAME$P#@GEnter initialization string to be sent to the printer or Enter for none@NWhat kind of numeric values will you be using for the printer specifications ?@9Enter printer name or press Enter for the default printer@7Enter O for Octal, H for Hexadecimal , or D for DecimalMODE$@@@HREPLY$@n?@y@Yo@@ Old setting@ Write this to \WB\WBCONFIG.SYS ?@NAME=\WB\WBCONFIG.SYS,USE@PRINTER @INIT @/Enter string to translate FROM starting with 2B@Do you wish to continue ?TOSTR$P@Enter string to translate TOFROMSTR$P@ New setting.@ Do you wish to test this string?A$@S@DX@,@ YFNTRANS$-!)uG`eqLpx .*00010! Workstation Basic Utilities00020 ! printer:00030,! builds PRINTER statements for WBCONFIG.SYS 00040)#,SHELP00050NEWPAGEH00060;"Enter printer name or press Enter for the default printer"00070NAME$b00074: P"What kind of numeric values will you be using for the printer specifications ?"?F000759"Enter O for Octal, H for Hexadecimal , or D for Decimal"*00076MODE$: MODE$=UPRC$(MODE$)V00080I"Enter initialization string to be sent to the printer or Enter for none"00090TOSTR$r$00095( TOSTR$="" ,,NEXTSTR00100FROMSTR$="INIT " .00110( MODE$<>"H" ,FNTRANS$(TOSTR$)400120: ""Do you wish to test this string?"i00130REPLY$200140("REPLY$(1:1)="y" OR REPLY$(1:1)="Y" ,"00150#255: "Old setting"00160# 255: TOSTR$$$00170#255: "New setting.""00175#255: 00180/(000190""Write this to \WB\WBCONFIG.SYS ?" 200200("REPLY$(1:1)="y" OR REPLY$(1:1)="Y" ,<00270#1: "NAME=\WB\WBCONFIG.SYS,USE",,(300U400280# 1: "PRINTER ";NAME$;FROMSTR$;TOSTR$$00290#1: 00300/(J00310NEXTSTR: 1"Enter string to translate FROM starting with 2B" 00320FROMSTR$r00330( FROMSTR$="" ,N*00335"Do you wish to continue ?"00340REPLY$yN00350("REPLY$(1:1)="Y" OR REPLY$(1:1)="y" ,NAME$="": ,60 -.P00360/(,00362"Enter string to translate TO""00365TOSTR$R 00366( TOSTR$="" ,,335.00370( MODE$<>"H" ,FNTRANS$(TOSTR$)00380,12009000&FNTRANS$(A$*200) 09010( MODE$="D" ,N09020X=1: Y=1 X09030(A$(X:X)="," OR A$(X:X)=" " ,X=X-1 : ,9050 -X=X+1 : ,9030 09050! ???09080/( 09999'9:99999SHELP:  HELP$("PRINTER,wbutil\supphelp"): +