DEFINE Ok_macro
  PARAMETER Fragetext
  LOCAL Antwort
  LOCAL Textlaenge
  LOCAL Str_0
  LOCAL Str_1
  LOCAL Str_2

  LET Textlaenge (LEN Fragetext)
  IF (Textlaenge < 9)
    LET Textlaenge 9
  END_IF
  IF ((FRACT (Textlaenge / 2)) = 0.5)
    LET Textlaenge (Textlaenge +2)  
  ELSE
    LET Textlaenge (Textlaenge +3)
  END_IF
  
  LET Str_0 ' | |'
  REPEAT LET Str_0 (Str_0+' ') UNTIL (LEN Str_0 = (Textlaenge-2))  
  LET Str_0 (Str_0+'| ')
  LET Str_1 ''
  REPEAT LET Str_1 (Str_1+' ') UNTIL (LEN Str_1 = Textlaenge)  
  LET Str_2 ''
  REPEAT LET Str_2 (Str_2+' ') UNTIL (LEN Str_2 = ((Textlaenge-1)/2))
  LET Str_2 (Str_2 +'|')
  REPEAT LET Str_2 (Str_2+' ') UNTIL (LEN Str_2 = Textlaenge)  
  
  CURRENT_MENU 'Ok_menu' 
  MENU_LAYOUT
  (1*Text_slot_height) Str_0
  (2*Text_slot_height) Str_1
  (3*Text_slot_height) Str_2
  (Graphic_area_low_left+((Graphic_area_up_right - Graphic_area_low_left)/2))
  END
  Menu_control_icons
  MENU Colo0 Bcol5 CENTER 'Frage:' '' 1 3
  MENU Colo0 Bcol5 CENTER (Fragetext) '' 2 1
  MENU BLACK GREEN CENTER 'JA' "'JA'" 3 1
  MENU BLACK RED CENTER 'NEIN' "'NEIN'" 3 2
  READ STRING PROMPT Fragetext Antwort
  MENU_STATUS UNMAP
  { DISPLAY Antwort ->fuehrt in UI Windows zum Aufpoppen einer Aufforderung }
  TEXT ('Die Antwort war: '+Antwort+' !') 0,0
  END
  WINDOW FIT  
END_DEFINE