Article 1759 of comp.sys.handhelds:
From: conte@crest.csg.uiuc.edu (Tom Conte)
Newsgroups: comp.sys.handhelds
Subject: Two tools for 48sx
Keywords: 48sx, hp
Date: 8 Apr 90 21:40:19 GMT
Organization: University of Illinois at Urbana

The second tool is useful for finding out the USER-mode bindings of
a key.  You execute SKEY and then hit a key, and it shows you all
the assignments for that key.

xsum: #DB67h, bytes: 371.5
'SKEY'
\<< 10 CF
"Press key to see\010its assignments:"
1 DISP 1 FREEZE
  WHILE KEY 0 ==
  REPEAT
  END LASTARG DROP
{ "  :" " L:" " R:"
" \Ga:" "L\Ga:" "R\Ga:" }	@ \Ga means `alpha', right-shifted A
RCLKEYS \-> k l a @ just a plain old lower-case "K L A" here
  \<< "" 1 6
      FOR i l i GET a	@ lower-case a
k i 10 / + POS
        IF DUP 0 \=/	@ \=/ is the not-equals sign, right-shifted Y
        THEN 1 - a	@ lower-case a
SWAP GET \->STR 10 SF
        ELSE DROP ""
        END "\010"	@ a new-line
+ + +
        NEXT
        IF 10 FC?
        THEN DROP
"No assignments\010"	@ a new-line
        END 1 DISP 3
FREEZE
  \>>
\>>


Tom Conte	  Center for Reliable and High-Performance Computing
 conte@uiuc.edu   University of Illinois, Urbana-Champaign, Illinois