[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
Re: NotaBene S/G usage vs. U2
- Subject: Re: NotaBene S/G usage vs. U2
- From: Harry Binswanger hb@xxxxxxxx
- Date: Tue, 20 Apr 2010 12:13:47 -0400
The specific frame I for which I had to renumber the high S/Gs is the
frame for my version of $X, which I named $H. I'll encode it and include it.
Forgot to do that. Here it is, with the original S/G numbering (works fine
in Xy):
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$H}} Issue COMMAND[ arg(s)] or U2_FRAMENAME[ arg(s
)] with a single key. HB modification of CLD rev.9/2
9/08. NB: assumes Setting.dfl has df WA=0. And 'hbcd' is my f
rame for Changing Directories[cr|lf]{002}{176}IF{176}VA$TX{17
7}>0{177}[159+048+068]{176}EX{177}{176}EI{177};*;[cr|lf]{176}
SX91,{176}IS00{177}{177};*;[cr|lf]{176}IF{176}IS91{177}=="nb{
177}[BX_]cd \nb[Q2_]{176}EX{177}{176}EI{177};*; kludge so 'NB
' isn't non-break[cr|lf]{176}SX90,"[BX_]es 1[Q2_][BX_]d eb=76
8,20000[Q2_][BX_]es[Q2_]"{177};*; reset EB (while es is off)[
cr|lf]{176}IF"D EB"{244}@upr({176}IS91{177})==0{177}{176}PRTo
change EB, change U2 frame $H{177}{176}EX{177}{176}EI{177};*
;[cr|lf];*;{176}IF"VA/NV EB"{244}@upr({176}IS91{177})==0{177}
[XC_]{176}EX{177}{176}EI{177};*;[cr|lf][BX_]d eb=0,0[Q2_];*;{032}
[cr|lf]{176}SV92,HELP {177};*;[cr|lf]{176}IF{176}IS92{177}{24
4}@upr({176}IS91{177})==0{177}{176}XS91,92,92,,50{177};*; put
argument of HELP in 50[cr|lf][JM_]2.HELP[Q2_]{176}PV90{177}{
176}EX{177}{176}EI{177};*; get help and exit[cr|lf][XC_];*; X
C for most cases: i.e., U2 call, Xy internal command, or hbcd
[cr|lf]{176}IF@not({176}ER{177}){177}{176}PV90{177}{176}EX{17
7}{176}EI{177};*; did native cmd fine; reset & exit[cr|lf][BX
_]wait[Q2_]{176}IF{176}VA$ER{177}<>12{177};*; some regular Xy
cmd executed but gave error[cr|lf]{176}SX91,{176}VA$ER{177}{
177}{176}PR\@91{177}{176}PV90{177}[BX_]beep[Q2_]{176}EX{177}{
176}EI{177};*; store msg first; prompt message, reset, allow{032}
beep, beep, exit[cr|lf];*; below here, wasn't a native Xy cmd
, so either U2, hbcd or nonsense[cr|lf][JM_]2.PrsCMline[Q2_];
*; try doing it as a U2 call[cr|lf]{176}IF{176}VA$ER{177}>135
1{177}[JM_]2.hbcd[Q2_]{176}EI{177};*; try doing it as hbcd ca
ll[cr|lf]{176}PV90{177}{176}SV90,{177}{176}SV91,{177}{176}SV9
2,{177}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE
Harry Binswanger
hb@xxxxxxxx