! menu-Dartellung 
! 
ATTACH 'KEYBOARD' 
BOOL m = TRUE                             ! steuert das Menu
STR  ma = ''                              ! Menu-Auswahl 
WHILE m 
  PUT DO CLEAR SCREEN
  PUT AT 10,3 MODE TITLE 'Hauptmen' 
  PUT AT 10,5 MODE NORMAL '1 Eingeben'
  PUT AT 10,6             '2 Ausgeben'
  PUT AT 10,7             '3 Statistiken'
  PUT AT 10,9 MODE PROMPT '<1> <2> <3> <leer:Sonderfunktion>'
  PUT AT 10,10 
  ma=''
  WHILE ma=''
    ma=CALL('GET_CH')
  END WHILE
  IF ma='1'
    PUT 'Menu-Punkt 1 gew„hlt'
   ELSE IF ma='2'
    PUT 'Menu-Punkt 2 gew„hlt'
   ELSE IF ma='3'
    PUT 'menu-Punkt 3 gew„hlt' 
   ELSE IF ma='F10'
    PUT '<do:F10> gedrckt'
   ELSE IF ma='Esc'
    PUT '<undo:ESC> gedrckt'
    m=FALSE 
   ELSE IF ma=' '
    PUT 'Leertaste gedrckt'
   ELSE
    PUT 'irgendwas anderes gedrckt'
  END IF 
  GET ma 
END WHILE 
DETACH 'KEYBOARD'