wsh color escape sequences

Thu Mar 28 02:41:02 AEST 1991

I don't know anything about rulers in wsh, but as for wsh <ESC> character
colours, these (ported from an IBM PC running ANSI.SYS, yet!) may help.

Have a look at the file below (just `cat` it, then peek with `vi`.)  It's
UUEncoded, 'cause I dunno what MAIL would do to it (suspect the results
would not be salubrious!).  Use `uudecode` this_thing to use it.

In conjunction with the "wshcolor" escape sequence, ("\033""[101;$1/y")
you can do just about anything you want.

------ *snip* ------ *snip* ------ *snip* ------ *snip* ------ *snip* ------
begin 644 colors
M5&AI<R!F:6QE(&-O;G1A:6YS('1H92`\15-#/B!S97%U96YC97,@=&\@<V5T
M(&-O;&]U<G,@;VX at 82!S=&%N9&%R9"!!3E-)"G1E<FUI;F%L+B`@5&AE>2!A
M<F4@;V8@=&AE(&9O<FTZ"@IE<V-;:3LT0CLS9FT*"E=H97)E(&5S8STQ0B`H
M9&5C:6UA;"`R-R!O<B`B7#`S,R(@;V-T86PI"B`@("`@(&D],"P@,2`H;W(@
M-2!F;W(@8FQI;FLI"B`@("`@($(]8F%C:V=R;W5N9"!C;VQO=7(@*#`M-RD*
M("`@("`@9CUF;W)G<F]U;F0 at 8V]L;W5R("@P+3<I"B`@("`@(&T](&ES(&$@
M;&ET=&5R86P@(FTB"@II($)F9F9F9F9F9D)F9F9F9F9F9D)F9F9F9F9F9D)F
M9F9F9F9F9D)F9F9F9F9F9D)F9F9F9F9F9D)F9F9F9F9F9D)F9F9F9F9F9 at H;
M6S`[,S<[-#!M,"`;6S`[,S<[-#!M,!M;,#LS,#LT,&TP&ULP.S,Q.S0P;3$;
M6S`[,S([-#!M,AM;,#LS,SLT,&TS&ULP.S,T.S0P;30;6S`[,S4[-#!M-1M;
M,#LS-CLT,&TV&ULP.S,W.S0P;3<;6S`[,S<[-#!M,1M;,#LS,#LT,6TP&ULP
M.S,Q.S0Q;3$;6S`[,S([-#%M,AM;,#LS,SLT,6TS&ULP.S,T.S0Q;30;6S`[
M,S4[-#%M-1M;,#LS-CLT,6TV&ULP.S,W.S0Q;3<;6S`[,S<[-#!M,AM;,#LS
M,#LT,FTP&ULP.S,Q.S0R;3$;6S`[,S([-#)M,AM;,#LS,SLT,FTS&ULP.S,T
M.S0R;30;6S`[,S4[-#)M-1M;,#LS-CLT,FTV&ULP.S,W.S0R;3<;6S`[,S<[
M-#!M,QM;,#LS,#LT,VTP&ULP.S,Q.S0S;3$;6S`[,S([-#-M,AM;,#LS,SLT
M,VTS&ULP.S,T.S0S;30;6S`[,S4[-#-M-1M;,#LS-CLT,VTV&ULP.S,W.S0S
M;3<;6S`[,S<[-#!M-!M;,#LS,#LT-&TP&ULP.S,Q.S0T;3$;6S`[,S([-#1M
M,AM;,#LS,SLT-&TS&ULP.S,T.S0T;30;6S`[,S4[-#1M-1M;,#LS-CLT-&TV
M&ULP.S,W.S0T;3<;6S`[,S<[-#!M-1M;,#LS,#LT-6TP&ULP.S,Q.S0U;3$;
M6S`[,S([-#5M,AM;,#LS,SLT-6TS&ULP.S,T.S0U;30;6S`[,S4[-#5M-1M;
M,#LS-CLT-6TV&ULP.S,W.S0U;3<;6S`[,S<[-#!M-AM;,#LS,#LT-FTP&ULP
M.S,Q.S0V;3$;6S`[,S([-#9M,AM;,#LS,SLT-FTS&ULP.S,T.S0V;30;6S`[
M,S4[-#9M-1M;,#LS-CLT-FTV&ULP.S,W.S0V;3<;6S`[,S<[-#!M-QM;,#LS
M,#LT-VTP&ULP.S,Q.S0W;3$;6S`[,S([-#=M,AM;,#LS,SLT-VTS&ULP.S,T
M.S0W;30;6S`[,S4[-#=M-1M;,#LS-CLT-VTV&ULP.S,W.S0W;3<*&ULP.S,W
M.S0P;3$@&ULP.S,W.S0P;3`;6S$[,S`[-#!M,!M;,3LS,3LT,&TQ&ULQ.S,R
M.S0P;3(;6S$[,S,[-#!M,QM;,3LS-#LT,&TT&ULQ.S,U.S0P;34;6S$[,S8[
M-#!M-AM;,3LS-SLT,&TW&ULP.S,W.S0P;3$;6S$[,S`[-#%M,!M;,3LS,3LT
M,6TQ&ULQ.S,R.S0Q;3(;6S$[,S,[-#%M,QM;,3LS-#LT,6TT&ULQ.S,U.S0Q
M;34;6S$[,S8[-#%M-AM;,3LS-SLT,6TW&ULP.S,W.S0P;3(;6S$[,S`[-#)M
M,!M;,3LS,3LT,FTQ&ULQ.S,R.S0R;3(;6S$[,S,[-#)M,QM;,3LS-#LT,FTT
M&ULQ.S,U.S0R;34;6S$[,S8[-#)M-AM;,3LS-SLT,FTW&ULP.S,W.S0P;3,;
M6S$[,S`[-#-M,!M;,3LS,3LT,VTQ&ULQ.S,R.S0S;3(;6S$[,S,[-#-M,QM;
M,3LS-#LT,VTT&ULQ.S,U.S0S;34;6S$[,S8[-#-M-AM;,3LS-SLT,VTW&ULP
M.S,W.S0P;30;6S$[,S`[-#1M,!M;,3LS,3LT-&TQ&ULQ.S,R.S0T;3(;6S$[
M,S,[-#1M,QM;,3LS-#LT-&TT&ULQ.S,U.S0T;34;6S$[,S8[-#1M-AM;,3LS
M-SLT-&TW&ULP.S,W.S0P;34;6S$[,S`[-#5M,!M;,3LS,3LT-6TQ&ULQ.S,R
M.S0U;3(;6S$[,S,[-#5M,QM;,3LS-#LT-6TT&ULQ.S,U.S0U;34;6S$[,S8[
M-#5M-AM;,3LS-SLT-6TW&ULP.S,W.S0P;38;6S$[,S`[-#9M,!M;,3LS,3LT
M-FTQ&ULQ.S,R.S0V;3(;6S$[,S,[-#9M,QM;,3LS-#LT-FTT&ULQ.S,U.S0V
M;34;6S$[,S8[-#9M-AM;,3LS-SLT-FTW&ULP.S,W.S0P;3<;6S$[,S`[-#=M
M,!M;,3LS,3LT-VTQ&ULQ.S,R.S0W;3(;6S$[,S,[-#=M,QM;,3LS-#LT-VTT
M&ULQ.S,U.S0W;34;6S$[,S8[-#=M-AM;,3LS-SLT-VTW"AM;,#LS-SLT,&TR
M(!M;,#LS-SLT,&TP&ULR.S,P.S0P;3`;6S([,S$[-#!M,1M;,CLS,CLT,&TR
M&ULR.S,S.S0P;3,;6S([,S0[-#!M-!M;,CLS-3LT,&TU&ULR.S,V.S0P;38;
M6S([,S<[-#!M-QM;,#LS-SLT,&TQ&ULR.S,P.S0Q;3`;6S([,S$[-#%M,1M;
M,CLS,CLT,6TR&ULR.S,S.S0Q;3,;6S([,S0[-#%M-!M;,CLS-3LT,6TU&ULR
M.S,V.S0Q;38;6S([,S<[-#%M-QM;,#LS-SLT,&TR&ULR.S,P.S0R;3`;6S([
M,S$[-#)M,1M;,CLS,CLT,FTR&ULR.S,S.S0R;3,;6S([,S0[-#)M-!M;,CLS
M-3LT,FTU&ULR.S,V.S0R;38;6S([,S<[-#)M-QM;,#LS-SLT,&TS&ULR.S,P
M.S0S;3`;6S([,S$[-#-M,1M;,CLS,CLT,VTR&ULR.S,S.S0S;3,;6S([,S0[
M-#-M-!M;,CLS-3LT,VTU&ULR.S,V.S0S;38;6S([,S<[-#-M-QM;,#LS-SLT
M,&TT&ULR.S,P.S0T;3`;6S([,S$[-#1M,1M;,CLS,CLT-&TR&ULR.S,S.S0T
M;3,;6S([,S0[-#1M-!M;,CLS-3LT-&TU&ULR.S,V.S0T;38;6S([,S<[-#1M
M-QM;,#LS-SLT,&TU&ULR.S,P.S0U;3`;6S([,S$[-#5M,1M;,CLS,CLT-6TR
M&ULR.S,S.S0U;3,;6S([,S0[-#5M-!M;,CLS-3LT-6TU&ULR.S,V.S0U;38;
M6S([,S<[-#5M-QM;,#LS-SLT,&TV&ULR.S,P.S0V;3`;6S([,S$[-#9M,1M;
M,CLS,CLT-FTR&ULR.S,S.S0V;3,;6S([,S0[-#9M-!M;,CLS-3LT-FTU&ULR
M.S,V.S0V;38;6S([,S<[-#9M-QM;,#LS-SLT,&TW&ULR.S,P.S0W;3`;6S([
M,S$[-#=M,1M;,CLS,CLT-VTR&ULR.S,S.S0W;3,;6S([,S0[-#=M-!M;,CLS
M-3LT-VTU&ULR.S,V.S0W;38;6S([,S<[-#=M-PH;6S`[,S<[-#!M,R`;6S`[
M,S<[-#!M,!M;,SLS,#LT,&TP&ULS.S,Q.S0P;3$;6S,[,S([-#!M,AM;,SLS
M,SLT,&TS&ULS.S,T.S0P;30;6S,[,S4[-#!M-1M;,SLS-CLT,&TV&ULS.S,W
M.S0P;3<;6S`[,S<[-#!M,1M;,SLS,#LT,6TP&ULS.S,Q.S0Q;3$;6S,[,S([
M-#%M,AM;,SLS,SLT,6TS&ULS.S,T.S0Q;30;6S,[,S4[-#%M-1M;,SLS-CLT
M,6TV&ULS.S,W.S0Q;3<;6S`[,S<[-#!M,AM;,SLS,#LT,FTP&ULS.S,Q.S0R
M;3$;6S,[,S([-#)M,AM;,SLS,SLT,FTS&ULS.S,T.S0R;30;6S,[,S4[-#)M
M-1M;,SLS-CLT,FTV&ULS.S,W.S0R;3<;6S`[,S<[-#!M,QM;,SLS,#LT,VTP
M&ULS.S,Q.S0S;3$;6S,[,S([-#-M,AM;,SLS,SLT,VTS&ULS.S,T.S0S;30;
M6S,[,S4[-#-M-1M;,SLS-CLT,VTV&ULS.S,W.S0S;3<;6S`[,S<[-#!M-!M;
M,SLS,#LT-&TP&ULS.S,Q.S0T;3$;6S,[,S([-#1M,AM;,SLS,SLT-&TS&ULS
M.S,T.S0T;30;6S,[,S4[-#1M-1M;,SLS-CLT-&TV&ULS.S,W.S0T;3<;6S`[
M,S<[-#!M-1M;,SLS,#LT-6TP&ULS.S,Q.S0U;3$;6S,[,S([-#5M,AM;,SLS
M,SLT-6TS&ULS.S,T.S0U;30;6S,[,S4[-#5M-1M;,SLS-CLT-6TV&ULS.S,W
M.S0U;3<;6S`[,S<[-#!M-AM;,SLS,#LT-FTP&ULS.S,Q.S0V;3$;6S,[,S([
M-#9M,AM;,SLS,SLT-FTS&ULS.S,T.S0V;30;6S,[,S4[-#9M-1M;,SLS-CLT
M-FTV&ULS.S,W.S0V;3<;6S`[,S<[-#!M-QM;,SLS,#LT-VTP&ULS.S,Q.S0W
M;3$;6S,[,S([-#=M,AM;,SLS,SLT-VTS&ULS.S,T.S0W;30;6S,[,S4[-#=M
M-1M;,SLS-CLT-VTV&ULS.S,W.S0W;3<*&ULP.S,W.S0P;30@&ULP.S,W.S0P
M;3`;6S0[,S`[-#!M,!M;-#LS,3LT,&TQ&ULT.S,R.S0P;3(;6S0[,S,[-#!M
M,QM;-#LS-#LT,&TT&ULT.S,U.S0P;34;6S0[,S8[-#!M-AM;-#LS-SLT,&TW
M&ULP.S,W.S0P;3$;6S0[,S`[-#%M,!M;-#LS,3LT,6TQ&ULT.S,R.S0Q;3(;
M6S0[,S,[-#%M,QM;-#LS-#LT,6TT&ULT.S,U.S0Q;34;6S0[,S8[-#%M-AM;
M-#LS-SLT,6TW&ULP.S,W.S0P;3(;6S0[,S`[-#)M,!M;-#LS,3LT,FTQ&ULT
M.S,R.S0R;3(;6S0[,S,[-#)M,QM;-#LS-#LT,FTT&ULT.S,U.S0R;34;6S0[
M,S8[-#)M-AM;-#LS-SLT,FTW&ULP.S,W.S0P;3,;6S0[,S`[-#-M,!M;-#LS
M,3LT,VTQ&ULT.S,R.S0S;3(;6S0[,S,[-#-M,QM;-#LS-#LT,VTT&ULT.S,U
M.S0S;34;6S0[,S8[-#-M-AM;-#LS-SLT,VTW&ULP.S,W.S0P;30;6S0[,S`[
M-#1M,!M;-#LS,3LT-&TQ&ULT.S,R.S0T;3(;6S0[,S,[-#1M,QM;-#LS-#LT
M-&TT&ULT.S,U.S0T;34;6S0[,S8[-#1M-AM;-#LS-SLT-&TW&ULP.S,W.S0P
M;34;6S0[,S`[-#5M,!M;-#LS,3LT-6TQ&ULT.S,R.S0U;3(;6S0[,S,[-#5M
M,QM;-#LS-#LT-6TT&ULT.S,U.S0U;34;6S0[,S8[-#5M-AM;-#LS-SLT-6TW
M&ULP.S,W.S0P;38;6S0[,S`[-#9M,!M;-#LS,3LT-FTQ&ULT.S,R.S0V;3(;
M6S0[,S,[-#9M,QM;-#LS-#LT-FTT&ULT.S,U.S0V;34;6S0[,S8[-#9M-AM;
M-#LS-SLT-FTW&ULP.S,W.S0P;3<;6S0[,S`[-#=M,!M;-#LS,3LT-VTQ&ULT
M.S,R.S0W;3(;6S0[,S,[-#=M,QM;-#LS-#LT-VTT&ULT.S,U.S0W;34;6S0[
M,S8[-#=M-AM;-#LS-SLT-VTW"AM;,#LS-SLT,&TU(!M;,#LS-SLT,&TP&ULU
M.S,P.S0P;3`;6S4[,S$[-#!M,1M;-3LS,CLT,&TR&ULU.S,S.S0P;3,;6S4[
M,S0[-#!M-!M;-3LS-3LT,&TU&ULU.S,V.S0P;38;6S4[,S<[-#!M-QM;,#LS
M-SLT,&TQ&ULU.S,P.S0Q;3`;6S4[,S$[-#%M,1M;-3LS,CLT,6TR&ULU.S,S
M.S0Q;3,;6S4[,S0[-#%M-!M;-3LS-3LT,6TU&ULU.S,V.S0Q;38;6S4[,S<[
M-#%M-QM;,#LS-SLT,&TR&ULU.S,P.S0R;3`;6S4[,S$[-#)M,1M;-3LS,CLT
M,FTR&ULU.S,S.S0R;3,;6S4[,S0[-#)M-!M;-3LS-3LT,FTU&ULU.S,V.S0R
M;38;6S4[,S<[-#)M-QM;,#LS-SLT,&TS&ULU.S,P.S0S;3`;6S4[,S$[-#-M
M,1M;-3LS,CLT,VTR&ULU.S,S.S0S;3,;6S4[,S0[-#-M-!M;-3LS-3LT,VTU
M&ULU.S,V.S0S;38;6S4[,S<[-#-M-QM;,#LS-SLT,&TT&ULU.S,P.S0T;3`;
M6S4[,S$[-#1M,1M;-3LS,CLT-&TR&ULU.S,S.S0T;3,;6S4[,S0[-#1M-!M;
M-3LS-3LT-&TU&ULU.S,V.S0T;38;6S4[,S<[-#1M-QM;,#LS-SLT,&TU&ULU
M.S,P.S0U;3`;6S4[,S$[-#5M,1M;-3LS,CLT-6TR&ULU.S,S.S0U;3,;6S4[
M,S0[-#5M-!M;-3LS-3LT-6TU&ULU.S,V.S0U;38;6S4[,S<[-#5M-QM;,#LS
M-SLT,&TV&ULU.S,P.S0V;3`;6S4[,S$[-#9M,1M;-3LS,CLT-FTR&ULU.S,S
M.S0V;3,;6S4[,S0[-#9M-!M;-3LS-3LT-FTU&ULU.S,V.S0V;38;6S4[,S<[
M-#9M-QM;,#LS-SLT,&TW&ULU.S,P.S0W;3`;6S4[,S$[-#=M,1M;-3LS,CLT
M-VTR&ULU.S,S.S0W;3,;6S4[,S0[-#=M-!M;-3LS-3LT-VTU&ULU.S,V.S0W
M;38;6S4[,S<[-#=M-PH;6S`[,S<[-#!M-B`;6S`[,S<[-#!M,!M;-CLS,#LT
M,&TP&ULV.S,Q.S0P;3$;6S8[,S([-#!M,AM;-CLS,SLT,&TS&ULV.S,T.S0P
M;30;6S8[,S4[-#!M-1M;-CLS-CLT,&TV&ULV.S,W.S0P;3<;6S`[,S<[-#!M
M,1M;-CLS,#LT,6TP&ULV.S,Q.S0Q;3$;6S8[,S([-#%M,AM;-CLS,SLT,6TS
M&ULV.S,T.S0Q;30;6S8[,S4[-#%M-1M;-CLS-CLT,6TV&ULV.S,W.S0Q;3<;
M6S`[,S<[-#!M,AM;-CLS,#LT,FTP&ULV.S,Q.S0R;3$;6S8[,S([-#)M,AM;
M-CLS,SLT,FTS&ULV.S,T.S0R;30;6S8[,S4[-#)M-1M;-CLS-CLT,FTV&ULV
M.S,W.S0R;3<;6S`[,S<[-#!M,QM;-CLS,#LT,VTP&ULV.S,Q.S0S;3$;6S8[
M,S([-#-M,AM;-CLS,SLT,VTS&ULV.S,T.S0S;30;6S8[,S4[-#-M-1M;-CLS
M-CLT,VTV&ULV.S,W.S0S;3<;6S`[,S<[-#!M-!M;-CLS,#LT-&TP&ULV.S,Q
M.S0T;3$;6S8[,S([-#1M,AM;-CLS,SLT-&TS&ULV.S,T.S0T;30;6S8[,S4[
M-#1M-1M;-CLS-CLT-&TV&ULV.S,W.S0T;3<;6S`[,S<[-#!M-1M;-CLS,#LT
M-6TP&ULV.S,Q.S0U;3$;6S8[,S([-#5M,AM;-CLS,SLT-6TS&ULV.S,T.S0U
M;30;6S8[,S4[-#5M-1M;-CLS-CLT-6TV&ULV.S,W.S0U;3<;6S`[,S<[-#!M
M-AM;-CLS,#LT-FTP&ULV.S,Q.S0V;3$;6S8[,S([-#9M,AM;-CLS,SLT-FTS
M&ULV.S,T.S0V;30;6S8[,S4[-#9M-1M;-CLS-CLT-FTV&ULV.S,W.S0V;3<;
M6S`[,S<[-#!M-QM;-CLS,#LT-VTP&ULV.S,Q.S0W;3$;6S8[,S([-#=M,AM;
M-CLS,SLT-VTS&ULV.S,T.S0W;30;6S8[,S4[-#=M-1M;-CLS-CLT-VTV&ULV
M.S,W.S0W;3<*&ULP.S,W.S0P;3<@&ULP.S,W.S0P;3`;6S<[,S`[-#!M,!M;
M-SLS,3LT,&TQ&ULW.S,R.S0P;3(;6S<[,S,[-#!M,QM;-SLS-#LT,&TT&ULW
M.S,U.S0P;34;6S<[,S8[-#!M-AM;-SLS-SLT,&TW&ULP.S,W.S0P;3$;6S<[
M,S`[-#%M,!M;-SLS,3LT,6TQ&ULW.S,R.S0Q;3(;6S<[,S,[-#%M,QM;-SLS
M-#LT,6TT&ULW.S,U.S0Q;34;6S<[,S8[-#%M-AM;-SLS-SLT,6TW&ULP.S,W
M.S0P;3(;6S<[,S`[-#)M,!M;-SLS,3LT,FTQ&ULW.S,R.S0R;3(;6S<[,S,[
M-#)M,QM;-SLS-#LT,FTT&ULW.S,U.S0R;34;6S<[,S8[-#)M-AM;-SLS-SLT
M,FTW&ULP.S,W.S0P;3,;6S<[,S`[-#-M,!M;-SLS,3LT,VTQ&ULW.S,R.S0S
M;3(;6S<[,S,[-#-M,QM;-SLS-#LT,VTT&ULW.S,U.S0S;34;6S<[,S8[-#-M
M-AM;-SLS-SLT,VTW&ULP.S,W.S0P;30;6S<[,S`[-#1M,!M;-SLS,3LT-&TQ
M&ULW.S,R.S0T;3(;6S<[,S,[-#1M,QM;-SLS-#LT-&TT&ULW.S,U.S0T;34;
M6S<[,S8[-#1M-AM;-SLS-SLT-&TW&ULP.S,W.S0P;34;6S<[,S`[-#5M,!M;
M-SLS,3LT-6TQ&ULW.S,R.S0U;3(;6S<[,S,[-#5M,QM;-SLS-#LT-6TT&ULW
M.S,U.S0U;34;6S<[,S8[-#5M-AM;-SLS-SLT-6TW&ULP.S,W.S0P;38;6S<[
M,S`[-#9M,!M;-SLS,3LT-FTQ&ULW.S,R.S0V;3(;6S<[,S,[-#9M,QM;-SLS
M-#LT-FTT&ULW.S,U.S0V;34;6S<[,S8[-#9M-AM;-SLS-SLT-FTW&ULP.S,W
M.S0P;3<;6S<[,S`[-#=M,!M;-SLS,3LT-VTQ&ULW.S,R.S0W;3(;6S<[,S,[
M-#=M,QM;-SLS-#LT-VTT&ULW.S,U.S0W;34;6S<[,S8[-#=M-AM;-SLS-SLT
C-VTW"@H;6S`[.VT@*BH at 3V]O;V at L('!R971T>2$@*BH*(`IM
`
end
-------- Snip here too, but maybe UUDECODE does not care ----------------

 /PJ                                                SofPJF at VM.UoGuelph.Ca