TWINCAPS

[cld@xxxxxxxx (Carl Distefano)]

I'm not big on correct-as-you-go typing aids, but one such feature
that I do like, which WordPerfect has but Xy lacks, is a facility
for on-the-fly correction of the TWo INitial CAps caused by delayed
release of the Shift key. I do that quite a bit, so I decided to
implement something via XPL.

U2 users can DECODE the frame below, plug it into U2 and follow the
included directions for modifying the keyboard file. For testing
purposes, I'll send a non-U2 version as an attachment to a separate
message.

At a minimum, you'll need to modify the Space key. For more
complete results, you can also modify the Hyphen and Enter keys.
One possible downside is that the keys so modified may not work as
expected with the Menus or other XPL programs. Feedback requested.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5twincaps}} Auto-correct TWo INitial CAPS typing error [CL
D rev. 3/25/02][cr|lf]{2};*;     Assign via .KBD file (i
n TABLE= only) to[cr|lf];*;      Space key:[cr|lf];*; {32}
     57=NO, ,JM,2,.,t,w,i,n,c,a,p,s,Q2[cr|lf];*;    {32}
  Optionally also modify:[cr|lf];*;      the Hyphen key
:[cr|lf];*;       12=NO,[255+50+68],JM,2,.,t,w,i,n,c,a,
p,s,Q2[cr|lf];*;      and one or both Enter key(s):[cr|l
f];*;       28=NO,[255+48+68],JM,2,.,t,w,i,n,c,a,p,s,Q2
[cr|lf];*;      104=NO,[255+48+68],JM,2,.,t,w,i,n,c,a,p
,s,Q2[cr|lf];*;[cr|lf];*; Caution: Modifying the Enter key m
ay interfere[cr|lf];*;      with some Menu functions![cr
|lf];*;[cr|lf];*; TWINCAPS is enabled if either Auto-Replace{32}
(func AZ)[cr|lf];*; or Auto-Correct (func AC) is ON, disabled
 if both are OFF[cr|lf];*;[cr|lf]{<}IF{<}VA$TX{>}<1!{<}VA$WS{
>}>1!{<}VA$AR{>}<1&{<}VA$AC{>}<1{>}{<}EX{>}{<}EI{>}[DX_][YD_]
[DF_][PW_][DF_][DE_]{<}SV01,abcdefghijklmnopqrstuvwxyz{132}{1
34}{145}{135}{130}{164}{148}{129}{>}{<}SV02{>}{<}SV03,{27}X{2
7}X{>}{<}SV04,{>}{<}XS02,03,,03,04{>}{<}IF{<}IS04{>}==@upr({<
}IS04{>})!{<}VA|04{>}<2!{<}VA|03{>}>2{>}[YD_]{<}EX{>}{<}EI{>}
{<}SV02,{27}X{>}{<}SX05,{<}IS04{>}{>}{<}LBa{>}{<}IF{<}VA|05{>
}>0{>}{<}SV06,{>}{<}XS05,02,,07,06{>}{<}IF@upr({<}IS01{>}){24
0}{<}IS07{>}{>}[YD_]{<}EX{>}{<}EI{>}{<}SX05,{<}IS06{>}{>}{<}G
La{>}{<}EI{>}{<}XS03,02,,02,05{>}{<}IF@upr({<}IS01{>}){240}{<
}IS02{>}&@upr({<}IS01{>}){240}{<}IS05{>}{>}{<}XS01,05,,05,03{
>}{<}SX02,{<}IS02{>}+{<}IS05{>}+{<}IS04{>}{>}[DN_]{<}GT02{>}[
DO_][FF_]{<}EX{>}{<}EI{>}[YD_]{<}EX{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/