dillon@CORY.BERKELEY.EDU (Matt Dillon) (01/28/88)
By popular demand, and because I openned my big mouth, I just wrote
a neat little window-title setting program.... Operation is quite simple,
TITLE will set the console device's window title to whatever you specify. It
keeps track of all windows with modified titles, and automatically deallocates
the title if the application does a CloseWindow() (i.e. it patches
CloseWindow). Additionaly, you can restore individual titles to their
previous state. TITLE makes part of itself resident (106 bytes) when it
patches CloseWindow.
Source will be posted as soon as I get it organized
Please mail me if you find bugs...
TITLE -print out command list (help)
TITLE This is a new title -sets window title and returns.
patches CloseWindow() if not
already patched.
TITLE CLEAR -restore the current title to
it's original state.
TITLE QUIT -restore ALL titled windows and
remove CloseWindow() patch.
TITLE LIST -list all windows currently titled
with TITLE.
-Matt
begin 644 title
M```#\P`````````#``````````(```<%````J0````$```/I```'!4[Z"@A.
M5?[R3KH$OBM`_OI"K(*>#*T````"``AL6DAZ`F).N@WD6$](>@)^3KH-VEA/
M2'H"K$ZZ#=!83TAZ`KM.N@W&6$](>@*R3KH-O%A/2'H"S$ZZ#;)83TAZ`O%.
MN@VH6$](>@,13KH-GEA/2'@``4ZZ&$Q83T(M_P!P`3M`_OY(P&`Z,"W^_DC`
MY8`@;0`,+S`(`$AM_P!.N@T"4$\P+?[^2,!2@+"M``AL#DAZ`NY(;?\`3KH,
MYE!/4FW^_C`M_OY(P+"M``AMNDJM_OIF%$AZ`LQ.N@TP6$](>``!3KH7WEA/
M0J=(>@++3KH:>%!/*4""ED*G2'H"S4ZZ&FA03RE`@II*K(*69P`!4DJL@IIG
M``%*2'H"P$AM_P!.N@RH4$]*@&<22'H"LTAM_P!.N@R64$]*@&8\3KH'0BM`
M_O)*K?[R;PI(>@*83KH,NEA/2JW^\F8*2'H"DTZZ#*I83TJM_O)L"DAZ`IE.
MN@R:6$]@``#J2'H"LTZZ&8Q83TJ`9A9.N@7V*T#^\B\M_O)(>@*E3KH-9%!/
M2'H"O4ZZ&6A83RM`_O9*K?[V9P``IDAZ`K-(;?\`3KH,#E!/2H!G$DAZ`J9(
M;?\`3KH+_%!/2H!F#"\M_O9.N@/P6$]@?B\M_O8O+?[Z3KH$:E!/*T#^\DAZ
M`GM(;?\`3KH+S%!/2H!G$DAZ`F](;?\`3KH+NE!/2H!F'DJM_O)G#$AZ`EU.
MN@OF6$]@"DAZ`F!.N@O:6$]@*DAM_P`O+?[V+RW^^DZZ!)Q/[P`,2'H"7$ZZ
M"[I83V`*2'H"7DZZ"ZY83TJL@I9G"B\L@I9.NAA>6$]*K(*:9PHO+(*:3KH8
M3EA/3EU.=51)5$Q%("`@("!6,2XP("`@("U3970@=VEN9&]W('1I=&QE<RX`
M*$,I0V]P>7)I9VAT(#$Y.#@L($UA='1H97<@1&EL;&]N+"!!;&P@4FEG:'1S
M(%)E<V5R=F5D+@!&<F5E=V%R92`H;F]T(%-H87)E=V%R92D``%1)5$Q%('1I
M=&QE("`@("`@("US970@=VEN9&]W('1I=&QE`%1)5$Q%(%%5250@("`@("`@
M("UR97-T;W)E(&%L;"!T:71L92=D('=I;F1O=W,`5$E43$4@0TQ%05(@("`@
M("`@+7)E<W1O<F4@8W5R<F5N="!W:6YD;W<`5$E43$4@3$E35"`@("`@("`@
M+6QI<W0@=&ET;&5D('=I;F1O=W,`(`!5;F%B;&4@=&\@9V5T('=I;F1O=P!I
M;G1U:71I;VXN;&EB<F%R>0!G<F%P:&EC<RYL:6)R87)Y`%%5250`<75I=`!5
M;G!A=&-H:6YG`%!A=&-H(&%L<F5A9'D@<F5M;W9E9`!!;F]T:&5R('5T:6QI
M='D@:&%S('!A=&-H960@:6X@869T97(@;64`5$E43$4N4$%40T@`4&%T8VAE
M9"!I;BP@;W9E<FAE860@/2`E;&0@8GET97,*`%1)5$Q%+E!!5$-(`$Q)4U0`
M;&ES=`!#3$5!4@!C;&5A<@!4:71L92!R97-T;W)E9`!7:6YD;W<@;F]T(&-U
M<G)E;G1L>2!T:71L960`3F5W('1I=&QE('-E=`!#;W5L9"!N;W0@9FEN9"!P
M;W)T`$Y5_^Q"ITZZ%D183RM`__P@;?_\2J@`I&8&<`!.74YU2'D``0`!2'@`
M1$ZZ%@)03RM`__A(>0`!``%(>``D3KH5[E!/*T#_]"!M__@@+?_XT+P````4
M(4``"B!M__@A;?_X`!0@;?_X("W__-"\````7"%``!@@;?_X(7P````9`!P@
M;?_X("W_].2`(4``*"\M__@@;?_\+R@`I$ZZ%AQ03R!M__Q(:`!<3KH65EA/
M(&W__$AH`%Q.NA7"6$\@;?_X*V@`(/_P(&W_]"MH`!S_[$AX`$0O+?_X3KH5
MC%!/2'@`)"\M__1.NA5^4$]*K?_P9@9P`&``_R0@+?_L8`#_'$Y5``!(YP`P
M(&T`""1H`")!^@/J0_H$)B`)D(CD@.6`U<!@*DJK``AG!B`K``A@!D'Z`%$@
M""\`2&L`$"\K``1(>@`:3KH(ZD_O`!`D2R92(`MFT$S?#`!.74YU5TE.1$]7
M("4P.&QX(%1I=&QE.B`E+3(P<R!/<FEG.B`E+3(P<PH`*&YU;&PI`$Y5``!(
MYP`P(&T`#"1H`").NA2^0?H#7$/Z`Y@@"9"(Y(#E@-7`8`P@+0`(L*L`!&<(
M)$LF4B`+9NX@"V=$))-.NA3D(&T`"")+T_P````0("@`(+")9B!(>/__+RL`
M""\M``A.NA5&3^\`#"\K``PO"TZZ%&A03W`!3-\,`$Y=3G5.NA2B<`!@\$Y5
M``!(YP@P(&T`#"1H`"(O+0`03KH,L%A/*`#8O````!%(>``!+P1.NA/N4$\F
M0"=M``@`!"!M``@G:``@``@G1``,+RT`$$AK`!!.N@;,4$].NA/R0?H"T"`(
M0?H"BI"(Y(#E@":R"`!!^@*\(`A!^@)VD(CD@.6`)8L(`$ZZ%!Q(>/__2&L`
M$"\M``A.NA223^\`#$S?#!!.74YU3E4``$CG`#!(>``!0?H"@$/Z`CB1R2\(
M3KH38%!/)$!!^@)L0_H"))')+P@O"DAZ`AI.NA,H3^\`#"\*3KH"!"\`+RR"
MEDZZ$^1/[P`,0?H"-B((0?H!])*(Y('E@26`&`!!^@(F(`A!^@'@D(CD@.6`
M0K((`$AX``%(>``F3KH2^E!/)D`G2@`B%WP`!``(0BL`"4AX``%(>``,3KH2
MW%!/)T``"DAZ`$XO*P`*3KH%S%!/%WP``@`.0JL`$$AK`!1.NA,46$\O"TZZ
M$J)83T'Z`;P@"$'Z`7*0B-"\````)DS?#`!.74YU5$E43$4N4$%40T@`5$E4
M3$4N4$%40T@`3E7__$CG#C!(>@$>3KH2?%A/)$!*@&<``0HO"DZZ$O183R9J
M`").NA)^0?H!6"`(0?H!%I"(Y(#E@"\S"`!.N@$`+P`O+(*63KH2X$_O``PL
M`+R+9RHO"DZZ$A)83R\&3KH`WB\`+RR"EDZZ$KY/[P`,3KH2B'#_3-\,<$Y=
M3G5.NA)Z2'@`,DZZ$5!83T'Z`/@@"$'Z`+*0B.2`Y8`H,P@`8$8@1"MH``3_
M_"!$*A`@;?_\(D33_````!`L:``@O<EF%DAX__\@1"\H``@O+?_\3KH2KD_O
M``P@1"\H``PO!$ZZ$<Y03R@%2H1FMD'Z`)Q#^@!4D<DO""\+3KH1M%!/2'@`
M#"\J``I.NA&F4$](>``F+PI.NA&:4$]P`6``_UAP`&``_U)4251,12Y0051#
M2`!4251,12Y0051#2``@//___[A.=4CG`+(B>@`V3I$L>``$3J[_?$?Z`"PD
M2R92(`MG%"`K``2PEV;P)),@*P`,(DM.KO\N3J[_=DS?30!.=0``````````
M87!#[()21>R"4K7)9@XR/``4:PAT`"+"4<G__"E/@E8L>``$*4Z"6DCG@(`(
M+@`$`2EG$$OZ``A.KO_B8`9"I_-?3G-#^@`@3J[^:"E`@EYF#"X\``.`!TZN
M_Y1@!$ZZ`!I03TYU9&]S+FQI8G)A<GD`2?D``'_^3G5.50``+PI(>0`!```P
M+().P?P`!B\`3KH07E!/*4""8F840J=(>0`!``!.NA``4$\N;()63G4@;()B
M0F@`!"!L@F(Q?``!`!`B;()B,WP``0`*(&R"5B`L@E:0J``$4(`I0()F(&R"
M9B"\34%.6$*G3KH0(EA/)$!*J@"L9S`O+0`,+RT`""\*3KH`M$_O``PI?```
M``&"GB!L@F(`:(````0@;()B`&B````*8$1(:@!<3KH0EEA/2&H`7$ZZ$`98
M3RE`@FH@;()J2J@`)&<0(&R":B)H`"0O$4ZZ#NQ83R\L@FHO"DZZ`MI03REL
M@FJ";DZZ#O@@;()B((!.N@\8(&R"8B%```9G%DAX`^U(>@`L3KH.]%!/(&R"
M8B%```PO+()N+RR"<DZZ]%903T*G3KH-"EA/)%].74YU*@!.50``2.<,,"1M
M`!`@;0`(("@`K.6`*``@1"`H`!#E@"9`$!-(@$C`T*T`#%2`*4""=D*G+RR"
M=DZZ#OY03RE`@GIF"$S?##!.74YU$!-(@$C`+P`@2U*(+P@O+()Z3KH!6D_O
M``Q(>@%0$!-(@$C`T*R">B\`3KH!OE!/+RT`#"\*+RR">DZZ`5I/[P`,0JR"
M<B9L@GHD2Q`32(!(P"H`L+P````@9R"ZO`````EG&+J\````#&<0NKP````-
M9PBZO`````IF!%*+8,P,$P`@;0``C`P3`")F,E*+($M2BQ`02(!(P"H`9R`@
M2E**$(6ZO````")F$`P3`")F!%*+8`9"*O__8`)@TF!$($M2BQ`02(!(P"H`
M9S"ZO````"!G*+J\````"6<@NKP````,9QBZO`````UG$+J\````"F<(($I2
MBA"%8,(@2E**0A!*A68"4XM2K()R8`#_/$(20J<@+()R4H#E@"\`3KH-RE!/
M*4"";F8(0JR"<F``_L9Z`"9L@GI@&B`%Y8`@;()N(8L(`"\+3KH&2EA/4H#7
MP%*%NJR"<FW@(`7E@"!L@FY"L`@`8`#^CB``3.\#```$(`@B+P`,8`(0V5?)
M__QG!E)!8`)"&%')__Q.=3`\?_]@!#`O``X@;P`$2AAF_%-((F\`"%-`$-E7
MR/_\9P)"$"`O``1.=3`\?_]@!#`O``Y30&L4(&\`!")O``BQ"68,4TA*&%?(
M__9P`$YU8P1P`4YU</].=2!O``0@"")O``@0V6;\3G5.50``+PHD;0`(2A)G
M)"!*4HH0$$B`2,`O`$ZZ!9)83["\_____V8(</\D7TY=3G5@V$AX``I.N@5V
M6$]@[$Y5``!(YPXP)&T`"$*G2'H`CDZZ#1!03RE`@J)F"$S?#'!.74YU(&T`
M#")H`"0O*0`$3KH->EA/*`!G4DAZ`&T@1"\H`#9.N@U,4$\F0$J`9S1(>`/M
M+PM.N@OL4$\L`&<D(`;E@"H`($4E:``(`*0E1@"<2'@#[4AZ`#A.N@O(4$\E
M0`"@+P1.N@T86$\O+(*B3KH+[EA/0JR"HF"`:6-O;BYL:6)R87)Y`%=)3D1/
M5P`J`$Y5``!(;0`,+RT`"$AZ!*Y.N@"03^\`#$Y=3G5.50``2.<(("1M`!`,
MK0````0`%&8((&T`""@08!1*K0`,;P@@;0`(*!!@!B!M``@H$$*M`!1*K0`,
M;!)$K0`,2H1L"D2$*WP````!`!0B+0`,(`1.N@/20>R``E.*%+`(`"(M``P@
M!$ZZ`\HH`&;>2JT`%&<&4XH4O``M(`I,WP003EU.=4Y5_Q1(YP@P)&T`""9M
M``Q"K?_X*VT`$/_\($M2BQ`02(!(P"@`9P`#,+B\````)68``PI"+?\B*WP`
M```!__0K?````"#_\"M\```G$/_L($M2BQ`02(!(P"@`L+P````M9A!"K?_T
M($M2BQ`02(!(P"@`N+P````P9A0K?````##_\"!+4HL0$$B`2,`H`+B\````
M*F8:(&W__%BM__PK4/_H($M2BQ`02(!(P"@`8#1"K?_H8")R"B`M_^A.N@G`
MT(20O````#`K0/_H($M2BQ`02(!(P"@`0>R`%0@P``)(`&;2N+P````N9F(@
M2U*+$!!(@$C`*`"PO````"IF&B!M__Q8K?_\*U#_["!+4HL0$$B`2,`H`&`T
M0JW_[&`B<@H@+?_L3KH)5M"$D+P````P*T#_["!+4HL0$$B`2,`H`$'L@!4(
M,``"2`!FTBM\````!/_DN+P```!L9A8@2U*+$!!(@$C`*``K?`````3_Y&`4
MN+P```!H9@P@2U*+$!!(@$C`*``@!&!^*WP````(_^!@'"M\````"O_@8!(K
M?````!#_X&`(*WS____V_^`O+?_D2&W_(B\M_^`O+?_\3KK]M$_O`!`K0/_<
M("W_Y-&M__Q@6B!M__Q8K?_\*U#_W"\M_]Q.N@(<6$\K0/_D8$H@;?_\6*W_
M_"@00>W_(2M(_]P0A&`HD+P```!C9^)3@&>4D+P````+9P#_;EF`9[15@&<`
M_VY7@&<`_W)@S$'M_R*1[?_<*TC_Y"`M_^2PK?_L;P8K;?_L_^1*K?_T9W`@
M;?_<#!``+6<*(FW_W`P1`"MF-`RM````,/_P9BI3K?_H(&W_W%*M_]P0$$B`
M2,`O`$Z26$^PO/____]F"G#_3-\,$$Y=3G5@&"\M__!.DEA/L+S_____9@1P
M_V#B4JW_^"`M_^A3K?_HL*W_Y&[:0JW_X&`D(&W_W%*M_]P0$$B`2,`O`$Z2
M6$^PO/____]F!'#_8*I2K?_@(&W_W$H09PH@+?_@L*W_[&W*("W_X-&M__A*
MK?_T9BI@&DAX`"!.DEA/L+S_____9@9P_V``_W!2K?_X("W_Z%.M_^BPK?_D
M;MA@&"\$3I)83["\_____V8&</]@`/](4JW_^&``_,0@+?_X8`#_.$CG2`!"
MA$J`:@1$@%)$2H%J!D2!"D0``6$^2D1G`D2`3-\`$DJ`3G5(YT@`0H1*@&H$
M1(!21$J!:@)$@6$:(`%@V"\!81(@`2(?2H!.=2\!808B'TJ`3G5(YS``2$%*
M068@2$$V`30`0D!(0(##(@!(0#("@L,P`4)!2$%,WP`,3G5(028!(@!"04A!
M2$!"0'0/T(#3@;:!8@22@U)`4<K_\DS?``Q.=2!O``0@"$H89OR1P"`(4X!.
M=4Y5``!(;("L+RT`"$ZZ``A03TY=3G5.50``+P0H+0`(+RT`#"\$3KH`-%!/
MN+P````*9B8@;0`,$"@`#$B`2,`(```'9Q1(>/__+RT`#$ZZ`/Y03R@?3EU.
M=6#X3E4``"\*)&T`#"!2L>H`!&4:("T`","\````_R\`+PI.N@#04$\D7TY=
M3G4@4E*2$"T`"Q"`2(!(P,"\````_V#D3E4``"\*0>R`EB1(($K5_````!8O
M"&$06$]![().M<AEZB1?3EU.=4Y5``!(YP@@)&T`"'@`(`IF"G#_3-\$$$Y=
M3G5**@`,9U0(*@`"``QG#$AX__\O"F%64$\H`!`J``U(@$C`+P!.N@4(6$^(
M@`@J``$`#&<*+RH`"$ZZ`CQ83P@J``4`#&<4+RH`$DZZ`MA83R\J`!).N@(@
M6$]"DD*J``1"J@`(0BH`#"`$8(Q.5?_^2.<(("1M``A!^O]"*4B"?@@J``0`
M#&<*</],WP003EU.=0@J``(`#&<R*!*8J@`(+P0O*@`($"H`#4B`2,`O`$ZZ
M`I9/[P`,L(1G$`CJ``0`#$*20JH`!'#_8+X,K?____\`#&80"*H``@`,0I)"
MJ@`$<`!@I$JJ``AF""\*3KH`I%A/#&H``0`09C`;;0`/__](>``!2&W__Q`J
M``U(@$C`+P!.N@(R3^\`#+"\`````6:8("T`#&``_V`DJ@`(,"H`$$C`T*H`
M""5```0(Z@`"``P@4E*2$"T`#Q"`2(!(P,"\````_V``_S!.50``+PI![("6
M)$A**@`,9QC5_````!9![().M<AE"'``)%].74YU8.)"DD*J``1"J@`((`I@
MZDY5__PO"B1M``A(>`0`3KH`PEA/*T#__&88-7P``0`0(`K0O`````XE0``(
M)%].74YU-7P$```0".H``0`,)6W__``($"H`#4B`2,`O`$ZZ`-Y83TJ`9P8`
M*@"```Q@S$Y5``!(YP`P)&R"4F`4)E(@*@`$4(`O`"\*3KH$C%!/)$L@"F;H
M0JR"4DS?#`!.74YU3E4``"\*0?K_QBE(@H)"IR`M``A0@"\`3KH$(E!/)$!*
M@&8(<``D7TY=3G4DK()2)6T`"``$*4J"4B`*4(!@YDY5```O+0`(8;983TY=
M3G5.50``2.<`,)?+)&R"4F`.(&T`"%&(L<IG$B9*)%(@"F;N</],WPP`3EU.
M=2`+9P0FDF`$*5*"4B`J``10@"\`+PI.N@/B4$]P`SE4``"\*<@8@+0`(
M3KH"M"1`U>R"8DJM``AM$C`L@DY(P"(M``BR@&P$2I)F$"E\`````H*&</\D
M7TY=3G5R!B`M``A.N@)\(&R"8B\P"`!.N@+46$]*@&<$<`%@`G``8-9.50``
M+RT`"$ZZ`IY83TJ`9@Y.N@*H*4""AG#_3EU.=7``8/A.50``2.<,("@M``A.
MN@!V<@8@!$ZZ`B8D0-7L@F)*A&T.,"R"3DC`N(!L!$J29A(I?`````*"AG#_
M3-\$,$Y=3G4P*@`$P'P``V8,*7P````%@H9P_V#B+RT`$"\M``PO$DZZ`EY/
M[P`,*@"PO/____]F#$ZZ`B(I0(*&</]@NB`%8+9.5?_\2'@0`$*G3KH#3%!/
M*T#__`@```QG$DJL@IYF""`M__Q.74YU3KH`!G``8/1.50``2'@`!$AZ`!Y.
MN@'X+P!.N@'Z3^\`#$AX``%.N@`,6$].74YU7D,*`$Y5``!*K()^9P8@;()^
M3I`O+0`(3KH`"%A/3EU.=4Y5__PO!"MM``C__$JL@F)G+'@`8`HO!$ZZ`,Y8
M3U*$,"R"3DC`N(!M[#`L@D[!_``&+P`O+()B3KH"'%!/2JR"@F<&(&R"@DZ0
M2JR"BF<*+RR"BDZZ`9A83TJL@HYG"B\L@HY.N@&(6$]*K(*29PHO+(*23KH!
M>%A/+'@`!`@N``0!*6<4+PU+^@`*3J[_XBI?8`9"I_-?3G-*K()J9BI*K()Z
M9R(O+()V+RR">DZZ`:903R`L@G)2@.6`+P`O+()N3KH!DE!/8`Y.N@%^+RR"
M:DZZ`>I83R`M__PN;()63G4H'TY=3G5.50``2.<.("@M``AR!B`$3KH`1"1`
MU>R"8DJ$;0XP+().2,"X@&P$2I)F$BE\`````H*&</],WP1P3EU.=3`J``3`
M?(``9@@O$DZZ`"Y83T*2<`!@X$CG<``T`<3`)@%(0\;`2$-"0]2#2$#`P4A`
M0D#0@DS?``Y.=2(O``0L;()>3N[_W"(O``0L;()>3N[_@B(O``0L;()>3N[_
M.B(O``0L;()>3N[_N"QL@EY.[O_*+&R"7D[N_WPB+P`$+&R"7D[N_RA,[P`&
M``0L;()>3N[_XBQL@EY.[O_$3.\`#@`$+&R"7D[N_]!(YP$$3.\@@``,+&R"
M6DZN_Y1,WR"`3G5.^@`"(F\`!"QL@EI.[OYB3.\#```$("\`#"QL@EI.[OV0
M(F\`!"QL@EI.[OZ>3OH``DSO``,`!"QL@EI.[O\Z(F\`!"QL@EI.[OYZ3OH`
M`B)O``0L;():3N[^VD[Z``(L;():3N[_?$[Z``(B;P`$("\`""QL@EI.[O\N
M3OH``B!O``0L;():3N[^C"!O``0@B%B00J@`!"%(``A.=4[Z``(L;():(F\`
M!"`O``A.[OW8+&R"6D[N_W9,[P,```0L;():3N[^DB)O``0L;():3N[^F")O
M``0L;():3N[^AB)O``0@;P`(("\`#"QL@EI.[OY<3.\``P`$+&R"6D[N_LY.
M^@`"(&\`!"QL@EI.[OZ`3.\#```$+&R"HD[N_Z`@;P`$+&R"HD[N_Z8@;P`$
M+&R"HD[N_[(O"DSO!P``""QL@I9.KO[L)%].=0```^P````!`````0``"GX`
M```````#\@```^H```"4,#$R,S0U-C<X.6%B8V1E9@```"`@("`@("`@(#`P
M,#`P("`@("`@("`@("`@("`@("`@D$!`0$!`0$!`0$!`0$!`0`P,#`P,#`P,
M#`Q`0$!`0$!`"0D)"0D)`0$!`0$!`0$!`0$!`0$!`0$!`0%`0$!`0$`*"@H*
M"@H"`@("`@("`@("`@("`@("`@("`D!`0$`@``````````````````$`````
M`0`````````````````````!`0````$``````````````````````0(````!
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
F`````````````````````````!0``````_(```/K`````0```_(`
`
end