DEFINE Frs_m_verz_wechseln
LOCAL Frs_vg_mbody
LOCAL Frs_vg_z 
LOCAL Frs_vg_s
LET Frs_vg_z 1
LET Frs_vg_s 1
LET Frs_vg_mbody 0
CURRENT_MENU 'e'
MENU_LAYOUT Menu_position RIGHT
Headline_height  ' | |                  | '
LOOP 
Text_slot_height '                        '
LET Frs_vg_mbody (Frs_vg_mbody + 1)
EXIT_IF 
(Frs_vg_mbody = 36)
END_LOOP 
                 '          |             '
INQ_ENV 10
LET look (INQ 19)
IF
	(look = 0)
INQ_ENV 1
(PNT_XY ((Window_x_size) - Menu_width)(Window_y_size))
ELSE 

DEFINE_KEY 9 PLAIN EXECUTE 'Frs_m_verz_wechseln Fbt_dtabs_all_on all'
LET pos_xy (INQ 104)
MENU_STATUS MOVE (pos_xy) END
 wui_classic off 
END_IF    
T_clear_menu Menu_control_icons
{***************************************************}
MENU Colo0 Bcol5 CENTER 'Verzeichnissliste'  '' 1 3
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol7 CENTER 'SYSTEMVERZEICHNISSE' '' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1        'ME10 Verzeichniss' 'CURRENT_DIRECTORY (GETENV "MEDIR") Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1        'ME10 TMP Verzeichniss' 'CURRENT_DIRECTORY (GETENV "METMPDIR")  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1        'USER $HOME' 'CURRENT_DIRECTORY (GETENV "USERPROFILE") Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol7 CENTER 'ZEICHNUNGSVERZEICHNISSE' '' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE A' 'CURRENT_DIRECTORY "d:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE B' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE C' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE D' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE E' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE F' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE G' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE H' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE I' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE J' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol5 CENTER 'AUSBLENDEN' 'MENU_STATUS UNMAP Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_s (Frs_vg_s + 1)
MENU Colo0 Bcol5 CENTER 'SCHLIESSEN' 'MENU_STATUS UNMAP Fbt_dtabs_off' (Frs_vg_z) Frs_vg_s
END
END_DEFINE

DEFINE Sm_file_1
INQ_ENV 0
LET me_vg_version (INQ 2)
LET Lastmen 'Tm_file_1'
IF 
(I_port)
    Check_i_port
END_IF
IF 
(NOT I_port)
        MENU_BUFFER ON
        CURRENT_MENU Sm_file_1_layout_name T_clear_menu Menu_control_icons
IF 
  ((me_vg_version > 9) AND (me_vg_version > 10.5))
        MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'FILE 1') '' 1 3
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'LOAD') 'LOAD' 2 1
    MENU (DGETTEXT 'me10mac' 'Drw/Part') 'LOAD' 2 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") '"workfile"' 3 1
    MENU (DGETTEXT 'me10mac' 'Subpart') 'LOAD SUBPART' 3 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'ABSOLUTE') 'ABSOLUTE' 4 1
    MENU (DGETTEXT 'me10mac' 'ToNewInst') 'To_new_inst' 4 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'LOAD HPGL') 'LOAD_HPGL' 5 1
    Sm_update_store_file
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") 'DEL_OLD "workfile"'
    11 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'FBROWSER') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 13
    1
    MENU (DGETTEXT 'me10mac' 'Nokeep') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 13 2
    MENU (DGETTEXT 'me10mac' 'Permanent') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 1' 14 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'CURR DIR') 'Frs_m_verz_wechseln' 15
    1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'COPY') 'COPY_FILE ' 16 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'PURGE') 'PURGE_FILE' 16 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'EDIT FILE') 'EDIT_FILE' 17 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'INPUT') 'INPUT' 17 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') 'DEL_OLD' 21 1
    MENU (DGETTEXT 'me10mac' 'Delete Old') 'DEL_OLD' 21 2
    MENU (DGETTEXT 'me10mac' 'Printer') 'PRT' 22 1
    MENU (DGETTEXT 'me10mac' 'Append') 'APPEND' 22 2
    MENU (DGETTEXT 'me10mac' 'Recursive') 'RECURSIVE' 23 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'FILE 2') 'Tm_file_2' 25 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'ASSDOC') 'Tm_file_3' 25 2
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'REVCHK') 'Tm_file_4' 25 3
    Eight_menu_slots_add
ELSE_IF 
    (me_vg_version < 9) 
    MENU Colo0 Bcol5 CENTER 'DATEI 1' '' 1 3
    MENU Colo0 Bcol1 'LADEN' 'LOAD' 2 1
    MENU 'Zchn/Teil' 'LOAD' 2 2
    MENU Colo0 Bcol7 "'ArbDatei'" '"workfile"' 3 1
    MENU 'Einzelteil' 'LOAD SUBPART' 3 2
    MENU Colo0 Bcol7 'ABSOLUT' 'ABSOLUTE' 4 1 Sm_update_store_file
    MENU Colo0 Bcol7 "'ArbDatei'" 'DEL_OLD "workfile"' 10 1
    MENU Colo0 Bcol1 'DATEILISTE' 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12 1
    MENU 'Mit LÎsch' 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12 2
    MENU Colo0 Bcol7 'WECHSELN' 'Frs_m_verz_wechseln' 13 1
    MENU 'Ohne LÎsch' 'Fbt_dtabs_all_on 1' 13 2
  MENU Colo0 Bcol1 'VERZ AKT' 'CURRENT_DIRECTORY' 14 1
    MENU Colo0 Bcol1 'KOPIEREN' 'COPY_FILE ' 15 1
    MENU Colo0 Bcol1 'LÚSCHEN' 'PURGE_FILE' 16 1
    MENU Colo0 Bcol1 'DATEI EDIT' 'EDIT_FILE' 17 1
    MENU Colo0 Bcol1 'EINGABE' 'INPUT' 18 1
    MENU Colo0 Bcol1 'SICHERN' 'SAVE' 19 1
    MENU Colo0 Bcol7 'OPTIONEN' 'DEL_OLD' 21 1
    MENU 'LÎsch Alt' 'DEL_OLD' 21 2
    MENU 'Drucker' 'PRT' 22 1
    MENU 'AnfÏgen' 'APPEND' 22 2
    MENU 'Rekursiv' 'RECURSIVE' 23 1
    MENU Colo0 Bcol5 'DATEI2' 'Tm_file_2' 25 1
    MENU Colo0 Bcol5 'ASSDOK' 'Tm_file_3' 25 2
    MENU Colo0 Bcol5 'ØNDSTD' 'Tm_file_4' 25 3 Eight_menu_slots_add
ELSE 
    MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'FILE 1') '' 1 3
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'LOAD') 'LOAD' 2 1
    MENU (DGETTEXT 'me10mac' 'Drw/Part') 'LOAD' 2 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") '"workfile"' 3 1
    MENU (DGETTEXT 'me10mac' 'Subpart') 'LOAD SUBPART' 3 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'ABSOLUTE') 'ABSOLUTE' 4 1
    Sm_update_store_file
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") 'DEL_OLD "workfile"'
    10 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'FBROWSER') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12
    1
    MENU (DGETTEXT 'me10mac' 'Nokeep') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12 2
    MENU (DGETTEXT 'me10mac' 'Permanent') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 1' 13 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'CURR DIR') 'Frs_m_verz_wechseln' 14
    1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'COPY') 'COPY_FILE ' 15 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'PURGE') 'PURGE_FILE' 16 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'EDIT FILE') 'EDIT_FILE' 17 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'INPUT') 'INPUT' 18 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'SAVE') 'SAVE' 19 1
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') 'DEL_OLD' 21 1
    MENU (DGETTEXT 'me10mac' 'Delete Old') 'DEL_OLD' 21 2
    MENU (DGETTEXT 'me10mac' 'Printer') 'PRT' 22 1
    MENU (DGETTEXT 'me10mac' 'Append') 'APPEND' 22 2
    MENU (DGETTEXT 'me10mac' 'Recursive') 'RECURSIVE' 23 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'FILE 2') 'Tm_file_2' 25 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'ASSDOC') 'Tm_file_3' 25 2
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'REVCHK') 'Tm_file_4' 25 3
    Eight_menu_slots_add
END_IF
END_IF 
END_DEFINE