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

The valid clause calls the function below. The function has to return a logical. If .T. is returned, the selection is valid and code execution continues. If .F. is returned, the selection is invalid and menu execution continues.

PROCEDURE scrollproc
llRetVal = .f.
DO CASE
   CASE mchoice = 1
      some code here (optional)
      llRetVal = .T.
   CASE mchoice = 2
      some code here (optional)
      llRetVal = .T.
   blah, blah, blah
ENDCASE
Return llRetVal