KEYFUNCTION ( expression )
|
DEFINE VARIABLE msg AS CHARACTER NO-UNDO EXTENT 3.
DEFINE VARIABLE ix AS INTEGER NO-UNDO INITIAL 1. DEFINE VARIABLE newi AS INTEGER NO-UNDO INITIAL 1. DEFINE VARIABLE func AS CHARACTER NO-UNDO. DISPLAY " Please choose " SKIP(1) " 1 Run order entry " @ msg[1] ATTR-SPACE SKIP " 2 Run receivables " @ msg[2] ATTR-SPACE SKIP " 3 Exit " @ msg[3] ATTR-SPACE SKIP WITH CENTERED FRAME menu NO-LABELS. REPEAT: COLOR DISPLAY MESSAGES msg[ix] WITH FRAME menu. READKEY. func = KEYFUNCTION(LASTKEY). IF func = "CURSOR-DOWN" AND ix < 3 THEN newi = ix + 1. ELSE IF func = "CURSOR-UP" AND ix > 1 THEN newi = ix - 1. ELSE IF func = "GO" OR func = "RETURN" THEN LEAVE. IF ix <> newi THEN COLOR DISPLAY NORMAL msg[ix] WITH FRAME menu. ix = newi. END. |