z  I?,@@K@00030 F$(5),S$(5),D$(5))/o@L@200050 Normal,Reverse,Underline,Blink,HighliteT@"po@# !0 A@ o@ o@x@    o@% !1 !1 !1!# !Rs@   o@ o@  S@"po@# !0S@ o@ S@ !a@)o@"po@< !1#!"# !1#!"#a@o@#a@ o@)o@ !1%!"a@@7 !1%!"H !1%% 3!"Ha@7 !1%!"G !1%% 3!"Ga@A !1%!"F !1%% 3% 3!"Fa@@ !1%!"a@@ !1#!".a@4### ##a@)o@ x1a@@'Z@''!d:'!d;!o@2!o@@/%%%%%a@@P@/h@ x-a@'Z@''!d:'!d;'o@3(%%%%%6'o@ !a@@/h@ x)a@'Z@,'!d:'!d;oo@n@ 0!SAk@@+o345:789o@!74!""" A85!""" A@s::;<6o9:7"c;:8"c;;A77 4 A88 4 A:6o39!1!# A@@g@, -24/<peF lPZ dLn x    Z  h v% 0K fs~ . B` HL;T^+rFR|` g( d!Dx"#$ %(&hN'D~\(a)n*,u.h6J (0Z'/H0&T10 d2:6^5oj,o/4D 7Nz w":,$/<96g=@>JMAT F$QMAMAT S$QMAMAT D$QXX@?@o@(@(@Yp@&@;@@@ 1,65,C 15,N@@ENTER OPTIONS:@@ ,65,C 15,N4@@invalid hex code for @ @ SCREEN N @@,R @@,U @@,B @@,H @@ ,75,CU 2,NA@@y@@YZZ$YZZ$@ @@CONFIG SCREEN N @+@+Do you wish to run the program again (Y/N)?@@2Reset the current attributes with the above (Y/N)?@@Your wbconfig.sys statement is:@@ATTRIB,wbutil\supphelp@@AAdd this to the WBCONFIG.SYS file in the current directory (Y/N)?@@NAME=WBCONFIG.SYS,USEB_EFNOR$1A$@B$@ABCPOWER*@@Rev+Uline+Hilite@Underline+Hilite@Reverse+Hilite(Hdp|0@HP\dlx8\x4DTht*00010! Workstation Basic Utilities.00020!! display all possible attributes00040)#,SHELP00060MAT D$00070"X=1 )UDIM(F$)*00080F$(X)=STR$(X+2)&",75,CU 2,NA"00090#X 00100"X=1 )255 *125 00110300120"Y=X )X+11:00130'CHR$(27);CHR$(Y);RPAD$(UNHEX$(CHR$(Y)),4);00140#Y00150#X.00160"1,65,C 15,N": "ENTER OPTIONS:"00170"X=1 )UDIM(D$),00180STR$(X+2)&",65,C 15,N": D$(X)00190#X00200MAT F$: MAT S$$00210NEWPAGE00220)(,26000230"X=1 )UDIM(D$)J002404CHR$(27);HEX$(S$(1));D$(X);TAB(20);CHR$(27);HEX$(S$(X));D$(X)00250,270*00260"invalid hex code for ";D$(X)00270#X00280)h7T"00290CHR$(27);HEX$(S$(1)))n00300WCHR$(27);HEX$(S$(1));"Reverse+Hilite";TAB(20);CHR$(27);HEX$(FNOR$(S$(2),S$(5)));"Reverse+Hilite""r00310[CHR$(27);HEX$(S$(1));"Underline+Hilite";TAB(20);CHR$(27);HEX$(FNOR$(S$(3),S$(5)));"Underline+Hilite""~00320hCHR$(27);HEX$(S$(1));"Rev+Uline+Hilite";TAB(20);CHR$(27);HEX$(FNOR$(FNOR$(S$(3),S$(5)),S$(2)));"Rev+Uline+Hilite""00330CHR$(27);HEX$(S$(1)))D003404CHR$(27);HEX$(S$(1));"Your wbconfig.sys statement is:""N003508"SCREEN N ";S$(1);",R ";S$(2);",U ";S$(3);",B ";S$(4);",H ";S$(5)00360)(7TV00370: C"Add this to the WBCONFIG.SYS file in the current directory (Y/N)?"00380ZZ$,00390(ZZ$(1:1)="y" OR ZZ$(1:1)="Y" ,800400#1: "NAME=WBCONFIG.SYS,USE",,h430pT00410#;1: "SCREEN N ";S$(1);",R ";S$(2);",U ";S$(3);",B ";S$(4);",H ";S$(5)00420#1: :00430/(F00440: 4"Reset the current attributes with the above (Y/N)?"/00450ZZ$,00460(ZZ$(1:1)="y" OR ZZ$(1:1)="Y" ,`004706H"CONFIG SCREEN N "&S$(1)&",R "&S$(2)&",U "&S$(3)&",B "&S$(4)&",H "&S$(5) h490o00480NEWPAGE00490/(>00500: -"Do you wish to run the program again (Y/N)?"00510ZZ$400520(ZZ$(1:1)="y" OR ZZ$(1:1)="Y" ,,100i 00530.8:00540SHELP:  HELP$("ATTRIB,wbutil\supphelp") : +00550! &00560&FNOR$(A$,B$;POWER,A,B,C) 200570A=ORD(HEX$(A$)) : B=ORD(HEX$(B$))00580" POWER = 0 i13 !: 3C += (2 ** POWER) * (REM(A,2) > 0 OR REM(B,2) > 0) !: A = INT(A / 2) !: B = INT(B / 2) !: #POWER !: FNOR$ = UNHEX$(CHR$(C))00590ENDOR: '