[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

typing lower case



from Morris,

  Please decode Herb Tyson's capital.pm program which I amended slightly.
It now capitalizes the first letter of the first sentence and eradicates
abbreviations
such as e.G. and i.E. I have used the change command to do this. One of
course
add as many abbreviations as necessary, or write an additional program to
include
as many commonly used abbreviations as possible.

  Perhaps the gurus can improve on this program to take into account any
unforseen problems and include it in their U2 file. I definitely find typing
is
more pleasurable, faster and interesting if the shift and caps lock is not
used.

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SX08,{<}CP{>}{>}[NW_][BC_]uc[XC_][BC_]jmp {<}PV08{>}[XC_]{
<}SV09,YLGNA{27}{>}{<}LBloop{>}{<}PRYes/Lower/Go/Next/Abort{>
}{<}SX01,@upr({<}RC{>}){>}{<}SX02,{<}IS01{>}{238}{<}IS09{>}{>
}{<}IF{<}PV02{>}==3{>}{<}GLnext{>}[cr|lf]{<}EI{>}{<}IF{<}PV02
{>}>3{>}[BC_][GT_]{<}PRAborted{>}{<}EX{>}[cr|lf]{<}EI{>}{<}IF
{<}PV02{>}==2{>}{<}GLGo{>}[cr|lf]{<}EI{>}{<}IF{<}PV02{>}==1{>
}[BC_]lc[cr|lf]{<}GLnext{>}[cr|lf]{<}EI{>}{<}LBGo{>}[BC_]uc[c
r|lf]{<}LBnext{>}[NW_][NS_][BC_]se .[WA_].[cr|lf]{<}IF{<}ER{>
}{>}{<}GLnomore{>}[cr|lf]{<}EI{>}[CL_]{<}IF{<}PV02{>}==2{>}{<
}GLGo{>}[cr|lf]{<}EI{>}{<}GLloop{>}[cr|lf]{<}LBnomore{>}[BC_]
jmp {<}PV08{>}[XC_][BC_]ci /i.E./i.e./[XC_][BC_]ci /e.G./e.g.
/[XC_][CH_][BF_]{<}PRNo more{>}{<}EX{>}           {32}
    {32}
-nd
XPLeNCODE