Here's what I get from a sample of a book.

STORE 1 TO mchoice

DIMENSION scrollarray(5)
STORE 'Apples' TO scrollarray(1)
STORE 'Bananas' TO scrollarray(2)
STORE 'Limes' TO scrollarray(3)
STORE 'Strawberries' TO scrollarray(4)
STORE 'Lemon' TO scrollarray(5)

=ASORT(scrollarray)

@2,2 GET mchoice FROM scrollarray;
SIZE 7,20 VALID scrollproc()

READ
PROCEDURE scrollproc
@12,18 CLEAR
@12,2 SAY 'Your selection: '
@12,18 SAY scrollarray(mchoice)

SHOW GETS
RETURN .T.


Is there any possibility to modify the menu to use DO CASE.
Example,

READ PROCEDURE scrollproc
DO CASE
CASE mchoice = 1
SAY 'Apple'