Segue um codigo bem simples que identifica qual tecla foi pressionada…

DISPLAY “Pressione uma tecla: ” FORMAT “x(20)” WITH FRAME z.

REPEAT:
READKEY.
DISP KEYLABEL(LASTKEY) WITH FRAME z.
IF LASTKEY = KEYCODE(KBLABEL(“GO”)) THEN RETURN.
END.

abs