SE'
STORE ' ' TO choice
SET CONSOLE OFF
WAIT TO choice
STORE !(choice) TO choice
SET CONSOLE ON
ERASE
DO CASE
   CASE choice = '1'
      DO CONFIG
   CASE choice ='2'
      DO VENDOR
   CASE choice = '3'
      DO INVENT
   CASE choice = '4'
      DO ORDERS
   CASE choice = '5'
      DO RECEIVE
   CASE choice = '6'
      DO RETURN
   CASE choice = '7'
      DO POP
   CASE choice = '8'
      DO UTILIT
   CASE choice = '9'
      ERASE
      ? CHR(27)+"d"
      CANCEL
ENDCASE
?