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

Re: NB 8 and U2



Here's the code for the non-NB-functional U2 routine that should have been
at the bottom of my previous post:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5&c}} change directory (cd.pgm)[cr|lf]{002}{<}SX50,@UPR({<
}IS00{>}){>};*;[cr|lf]{<}IF{<}IS50{>}=="J"{>}[BX_]j:[Q2_]{<}S
V50,\mail{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}==""{
>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=="CONF"{>}{<}S
V50,\confer~1{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}=
="OCON"{>}{<}SV50,\confer~1\05{>}{<}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{>}=="W"{>}{<}S
V50,\windows{>}{<}GL-do{>}{<}EI{>};*;[cr|lf]{<}IF{<}IS50{>}==
"HBL"{>}[BX_]c:[Q2_]{<}SV50,\hbl{>}{<}GL-do{>}{<}EI{>};*;[cr|
lf]{<}IF{<}IS50{>}=="UP"{>}{<}SV50,..{>}{<}GL-do{>}{<}EI{>};*
;[cr|lf]{<}IF{<}IS50{>}<>","{>}{<}GL-do{>}{<}EI{>};*; I could
n't figure the below so I took it out[cr|lf];*;{<}SX40,{<}VA$
FP{>}{>};*; full current filespec e.g., C:\xy\foo[cr|lf];*;{<
}SX41,{<}VA$FI{>}{>};*; just the current filename w/o the pat
h e.g., foo[cr|lf];*;{<}XS40,41,50,43,42{>};*; put into s/g 5
0 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_]{<}EI{>}{002}[cr|lf]
-nd
XPLeNCODE

(Yes, I know I should have used a table instead of all those IF statements.)
I checked, and my NB 8 .kbd does have &c loaded onto the same key as I use in Xy4 (viz. F10). Or, that is, I have in both:

68=nojm(,2,.,&,c)

and I LOADed the Xy U2, so that part is invariant.

Harry Binswanger
hb@xxxxxxxx