We use the following code for a strip menu on some table maintenance programs:
DEF VAR vcmenu AS CHAR EXTENT 11 FORMAT "x(11)" INITIAL
["Create","Modify","Delete","First","Last","Next","Prev","Key","Exit"]
NO-UNDO.
...
DISPLAY vcmenu WITH FRAME menu CENTERED NO-LABELS ROW 18 NO-BOX...