Re: Use ENTER instead of

[Harry Binswanger hb@xxxxxxxx]

> What are the differences, or advantages, of your version? You never
> say.
Partly because I've forgotten! I personalized it by taking out the setting
and re-setting of WA, which i don't need, and included a way to launch
HBCD, and I thought the test for outputting a cr-lf should be terminated
right away, rather than having so long an IF EI as your code did.
> Also, to the extent that your mod depends on your private external
> frame HBCD, it may not work for anyone who doesn't have that
> additional frame. You don't include it.
I'm embarrassed to. It's a great routine, but not economically written. It
evolved over decades. Okay, here it is, but don't chortle:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5hbcd}} change directory (cd.pgm)[cr|lf]{002}{<}SX50,@UPR(
{<}IS00{>}){>};*;[cr|lf];*;[BC_]{<}PV50{>}{<}EX{>}[cr|lf]{<}I
F{<}IS50{>}=="K"{>}[BX_]K:[Q2_]{<}SV50,\mail{>}{<}GL-do{>}{<}
EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="I"{>}[BX_]ca c:\oac\itoe[Q2_
]{<}EX{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}==""{>}{<}GL-do{>}{
<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="CONF"{>}{<}SV50,\confer~1{
{062}}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="OCON"{>}{<}S
V50,\confer~1\08-Eco~1{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<
}IS50{>}=="OAC"{>}{<}SV50,\oac{>}{<}GL-do{>}{<}EI{>};*;[cr|lf
]{<}IF{<}IS50{>}=="X"{>}{<}SV50,\text{>}{<}GL-do{>}{<}EI{>};*
;[cr|lf]{<}IF{<}IS50{>}=="B"{>}{<}SV50,\book{>}{<}GL-do{>}{<}
EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="XL"{>}{<}SV50,\xl{>}{<}GL-do
{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="R"{>}{<}SV50,\{>}{<}GL
-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="M"{>}{<}SV50,\mailh
bl{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="MY"{>}{<}
SV50,\docs\{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="
NB"{>}{<}SV50,\nbwin{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}I
S50{>}=="DEF"{>}{<}SV50,\nbwin\users\default{>}{<}GL-do{>}{<}
EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="W"{>}{<}SV50,\windows{>}{<}G
L-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="32"{>}{<}SV50,\win
dows\system32{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=
="H"{>}{<}SV50,\hb-email{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF
{<}IS50{>}=="HB"{>}{<}SV50,\hb-email{>}{<}GL-do{>}{<}EI{>};*;
[cr|lf];*;{<}IF{<}IS50{>}=="MYSCAN"{>}{<}SV50,\docs\myscan~1{
{062}}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="HBL"{>}[BX_]
c:[Q2_]{<}SV50,\hbl{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS
50{>}=="P"{>}[BX_]c:[Q2_]{<}
SV50,\progra~1{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}
=="T"{>}[BX_]c:[Q2_]{<}SV50,\docume~1\hb\MyDocu~1\Tame5~1.1{>
}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="PRO"{>}[BX_]c
:[Q2_]{<}SV50,\progra~1{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{
<}IS50{>}=="DOC"{>}[BX_]c:[Q2_]{<}SV50,\docume~1\HarryB~1\{>}
{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="U"{>}{<}SV50,.
{046}{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}<>","{>}{<}GL
-do{>}{<}EI{>};*; I couldn't figure the below so I took it ou
t[cr|lf];*;{<}SX40,{<}VA$FP{>}{>};*; full current filespec e.
g., C:\xy\foo[cr|lf];*;{<}SX41,{<}VA$FI{>}{>};*; just the cur
rent filename w/o the path e.g., foo[cr|lf];*;{<}XS40,41,50,4
3,42{>};*; put into s/g 50 the current path e.g., c:\xy[cr|lf
]{<}LB-do{>};*;[cr|lf][BX_]es 1[Q2_];*;[cr|lf][BX_]cd {<}PV50
{>}[Q2_];*; [cr|lf]{<}IF{<}ER{>}{>}[BX_]cd \{<}PV50{>}[Q2_][B
C_]{<}EI{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE
>  And if even you did include
> it, your mod still may not work for others if HBCD uses paths,
> diretory names, etc., that are peculiar to your system.
Yes, natcherly. But the way it's written, it's obvious how to replace my
path-names with one's own.


Harry Binswanger
hb@xxxxxxxx