%%HP: T(3)A(R)F(.);
\<< "The Keyman box" 0
7
  FOR X 1200 X XLIB~
  NEXT { "Set Menu"
1200 MENU } 9 \->LIST
DUP \-> \<-
  \<< 1 { {
    \<< Index 9 <
"HELP" "" IFTE
    \>>
    IF Index 9 <
    THEN {
"IfD: o1 o2 \-> If Double
click then o1 else o2"
"IfL: o1 o2 \-> If Long
hold then o1 else o2"
"IfE/P: o1 o2 \-> If Edit
mode then o1 else o2"
"\->TO?: o \-> TakeOver o"
"A?D: Assign or Delete
a key"
"RclK: Rcl Usr Key"
"K&SA: Key + Std Assmt"
"More tools" } Index
GET MSGBOX
    END } { \->STK
\<-.Index GET } {
    \<< Index 9 <
"Eval" "" IFTE
    \>>
    IF Index 9 <
    THEN SaveS \<-
Index GET EVAL RestS
    END } Halt }
    IF CHOOSX
    THEN EVAL
    END
  \>>
\>>