LOCATE statements

LOCATE CHOICE
LOCATE CHOICE : n
Displays 8 choices and assigns the index of the choice to a numeric variable n.
Original Enhancements
LOCATE CHOICE(k) : n
Displays k number of choice and assigns the index of the choice to a numeric variable n,
despite the number is 8 when k=1.
LOCATE CHOICE(1-dimensional-string-array) : n
displays the value of the indexed variables on the buttons, assigns the index of the pushed button to a numeric variable n.
When the lower bound of the array is 1, the index shall coincide with the index on the array.
The number of buttons displayed is the size of the array.

LOCATE VALUE
LOCATE VALUE ,RANGE a TO b : x
displays a slide bar, gets a value between a and b and assigns it to a numeric variable x.
LOCATE VALUE ,RANGE a TO b ,AT initial_value : x
A LOCATE-VALUE statement can contain a directive on the initial position on the slide bar.
The RANGE-clause or the AT clause can be omitted. In that case, the recent values shall be used.

We have at most 20 slide bars
LOCATE VALUE (n) ,RANGE a TO b : x
LOCATE VALUE (n) ,RANGE a TO b ,AT c : x
,where n is one of 1,2,3,…,20, or the numeric expression whose value is one of them.
ASK MAX VALUE DEVICE n
Sustitutes n to the number of available slide bars.
Original enhancements
LOCATE VALUE NOWAIT: x
LOCATE VALUE NOWAIT (n) : x
The current value on the slide bar shall be asigned to x.
A RANGE-clause or an AT-clause can be written.