DEFINE Eight_menu_slots
  PARAMETER Slot_title
  PARAMETER Slot_command
  PARAMETER Slot_row
  PARAMETER Slot_column
  LOCAL I
  IF ((Slot_row>=26) AND (Slot_row<=27) AND (Slot_column>=1) AND (
    Slot_column<=4))
    LET I ((Slot_row - 26)*4+Slot_column)
    WRITE_LTAB 'Eight_menu_slots_ltab' I 1 1
    WRITE_LTAB 'Eight_menu_slots_ltab' I 2 Slot_title
    WRITE_LTAB 'Eight_menu_slots_ltab' I 3 Slot_command
    MENU Slot_title Slot_command Slot_row Slot_column
  END_IF
END_DEFINE

{  Definiert die 8 KÌstchen mit F1-F8_Macros  }

DEFINE Eight_menu_slots_add
  IF (I_port)
    Check_i_port
  END_IF
  IF (NOT I_port)
    Eight_menu_slots ' F1 '    'Funktion_1' 26 1
    Eight_menu_slots ' F2 '    'Funktion_2' 26 2
    Eight_menu_slots ' F3 '    'Funktion_3' 26 3
    Eight_menu_slots ' F4 '    'Funktion_4' 26 4
    Eight_menu_slots ' F5 '    'Funktion_5' 27 1
    Eight_menu_slots ' F6 '    'Funktion_6' 27 2
    Eight_menu_slots ' F7 '    'Funktion_7' 27 3
    Eight_menu_slots ' F8 '    'Funktion_8' 27 4
  END_IF
END_DEFINE



DEFINE Funktion_1
  DISPLAY 'Alle aktiven Hilfslinien lÎschen ?'
  DELETE SELECT C_GEO ALL CONFIRM END REDRAW
END_DEFINE


DEFINE Funktion_2
 {  }
END_DEFINE


DEFINE Funktion_3
 {  }
END_DEFINE


DEFINE Funktion_4
 {  }
END_DEFINE


DEFINE Funktion_5
 {  }
END_DEFINE


DEFINE Funktion_6
 {  }
END_DEFINE


DEFINE Funktion_7
 {  }
END_DEFINE


DEFINE Funktion_8
 {  }
END_DEFINE