Re: keycode program

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Myron Gochnauer"  Sun, 12 Jan 2003
15:49:12 -0400

Myron:

> Could someone have a look and make some suggestions? Without
> the slight addition at the beginning of the code (which came
> from the PrsCMLine routine) it won't work.

I'm sure you meant well, but your addition crippled the program.
What's called for is, simply, ">" -- to hand off the
CMline argument, if any, to Save/Get 50 (which we use to pass
arguments in U2). Also, why did you feel compelled to rename the
routine "Keycode"? The routine returns Scan Codes (VA$SC), which are
sensitive to shifted states, not Key Codes (VA$KC), which aren't.
Which is why, ahem, I call it SCANCODE.

Without getting overly proprietary about it, may I ask that, in the
future, you consult Robert and/or me before attempting to modify and
redistribute his/my/our code? We're pretty clear about it at XyWWWeb:
"We assert a copyright over any program of which we are jointly or
separately the author. Any program written by Carl and/or Robert must
be distributed intact and unaltered."

Here's the standalone version of SCANCODE.PM:

XPLeNCODE v2.0
b-gin [UNTITLED]
;*; SCANCODE.PM (standalone version)[cr|lf];*; C.L.Distefano
 3/27/92 rev. 7/15/93[cr|lf][XH_][BX_]es 1[Q2_][GT_]{<}SX50,{
<}IS00{>}{>}{<}SV01, {>}{<}SV02,{<}SX03,"Scan Code: "+{<}IS0
1{>}+" [Esc quits]"{>}{<}PR|@03{>}{>}{<}PV02{>}{<}SV04,{<}IF
{<}PV01{>}>1{>}{<}PV01{>}|[FF_]{<}EI{>}{>}{<}IF"/"{238}{<}IS5
0{>}==0{>}{<}SX02,{<}IS02{>}+{<}IS04{>}{>}{<}EI{>}{<}LBb{>}{<
}SX01,{<}RK{>}{>}{<}SX01,{<}VA$SC{>}{>}{<}PV02{>}{<}IF{<}PV01
{>}>1{>}{<}GLb{>}{<}EI{>}[BX_]p 1[Q2_]{<}PR {>}{<}EX{>}[cr|lf
][cr|lf]
-nd
XPLeNCODE

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