Re: keycode program

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Robert Holmgren"  Sun, 12 Jan
2003 23:38:26 -0500

> The basic code of Myron's revision does adhere to the original
> and does work, in both Xy4 and NB, even if it won't print to
> the screen anymore and the SUbroutine mod makes no sense.
> Crippled it may be, but it's inconceivable that it could bring
> NB down, much less necessitate a computer reboot.

Well, "crippled" was going too far. And, you're right, NB should have
taken Myron's minor change in stride. The program is so straight-
forward in its basic elements, I can't imagine what the problem was in
NB. Could it be the vertical bar in ? If it's 
itself, we're in big trouble. Presumably all of the other routines in
U2 that depend on | to test user input (and there are
many) would crash NB as well. That would be very discouraging.

FWIW, here's a slightly simpler version of SCANCODE.PM which drops the
vertical bar from the PRompt statment and eliminates two Save/Gets (50
and 04):

XPLeNCODE v2.0
b-gin [UNTITLED]
;*; SCANCODE.PM -- C.L.Distefano 3/27/92 rev. 1/13/03[cr|lf];
*; Obtain the scan code [VA$SC] for any pressed key (standalo
ne version)[cr|lf][XH_][BX_]es 1[Q2_][GT_]{<}SV01, {>}{<}SV0
2,{<}SX03,"Scan Code: "+{<}IS01{>}+" [Esc quits]"{>}{<}PR@03
{>}{>}{<}PV02{>}{<}IF"/"{238}{<}IS00{>}==0{>}{<}SX02,{<}IS02{
>}+"{<}IF{<}PV01{>}>1{>}{<}PV01{>}|[FF_]{<}EI{>}"{>}{<}EI{>}{
<}LBb{>}{<}SX01,{<}RK{>}{>}{<}SX01,{<}VA$SC{>}{>}{<}PV02{>}{<
}IF{<}PV01{>}>1{>}{<}GLb{>}{<}EI{>}[BX_]p[Q2_]{<}SX01,{<}VA$M
G{>}{>}{<}PR@01{>}{<}EX{>}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/