[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
Re: NB 8 and U2
- Subject: Re: NB 8 and U2
- From: Harry Binswanger hb@xxxxxxxx
- Date: Fri, 30 Dec 2005 17:16:22 -0500
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