ContentsIndexPreviousNext

Examples

The first example creates a simple push button with an ID of "100". The key letter of the push button is "H".

DISPLAY PUSH-BUTTON,
        "&Help",  ID 100,  HANDLE IN BUTTON-1

This next example creates a very tall push button:

DISPLAY PUSH-BUTTON,
        TITLE "Tall",  LINES 3,  HANDLE IN BUTTON-2

The following Screen Section entry creates an "OK" button:

03 PUSH-BUTTON  OK-BUTTON,  LINE 10,  COLUMN 20.

This last example creates a default push button that generates a termination value of "200":

03 PUSH-BUTTON  "&Find",  DEFAULT-BUTTON,
        TERMINATION-VALUE = 200.