{===============================================================}
{                                                               }
{       --------------------                                    }
{        NC - DATENAUSTAUSCH                                    }
{       --------------------                                    }
{                                                               }
{===============================================================}
{                                                               }
{  Dateiname    :               menc_macros                     }
{                                                               }
{  01.03.1994                                   Schaumberger    }
{                                                               }
{===============================================================}
{                                                               }
{  Aenderungen  :                                               }
{                                                               }
{                                                               }
{===============================================================}

DEFINE Ts_menc_menu

IF (I_port)
   Check_i_port
END_IF

IF (NOT I_port)
   CURRENT_MENU 'Ts_menc_hauptmenu'   
   {Scr_men_layout}
   T_clear_menu

   IF (Ts_me10_version >= 5.10)
       Menu_control_icons
   END_IF

	
   MENU Ts_menu_color_1 Ts_kopf_zeile_mittig 'ME-NC 1.0' 'Ts_hauptauswahl'
                                                                  1 Ts_kopf_feld
   MENU Ts_menu_color_3 'KENNUNG'    'Ts_menc_label_on LINE SOLID END LABEL' 3 1
   MENU Ts_menu_color_4 'Setzen'     'Ts_menc_label_on LINE SOLID END LABEL' 3 2
   MENU Ts_menu_color_4 'Zeigen Ein' 'Ts_menc_label_on'                      4 1
   MENU Ts_menu_color_4 'LÎschen'    'DELETE_LABEL'                         4 2
   MENU Ts_menu_color_4 'Zeigen Aus' 'Ts_menc_label_off'                     5 1
   MENU Ts_menu_color_3 'SPRACHE'    'Ts_menc_aus "APT"'                     7 1
   MENU Ts_menu_color_4 'APT'        'Ts_menc_aus "APT"'                     7 2
   MENU Ts_menu_color_4 'APT'        'Ts_menc_aus "APT"'                     7 2
   MENU Ts_menu_color_4 'COMPACT II' 'Ts_menc_aus "COMPACT II"'              8 1
ELSE
   BEEP
END_IF

END_DEFINE 

{-----------------------------------------------------------------------------}
DEFINE Ts_menc_label_on
  SHOW DIMENSIONS OFF
  SHOW GLOBAL HATCHING ALL OFF
  SHOW GLOBAL INFOS '^^LB_T' ON
END_DEFINE

{-----------------------------------------------------------------------------}
DEFINE Ts_menc_label_off
  SHOW GLOBAL INFOS '^^LB_T' OFF
  SHOW DIMENSIONS ON
  SHOW GLOBAL HATCHING ALL ON
END_DEFINE

{-----------------------------------------------------------------------------}
DEFINE Ts_menc_aus
PARAMETER Nc_format

  LOCAL F
  LOCAL Globale_auswertung

  LET Globale_auswertung 0
  IF (Nc_format = 'APT')
     READ STRING 'Dateinamen fÏr APT Ausgabe eingeben' F
  ELSE_IF (Nc_format = 'COMPACT II')
     READ STRING 'Dateinamen fÏr COMPACT II Ausgabe eingeben' F
  END_IF

  DISPLAY_NO_WAIT ('Datei ' + F + ' wird erzeugt')

  INQ_ENV 10
  LET Bs (INQ 4)

  IF (Bs = 2)
    CURRENT_DIRECTORY  "/home/cad/ncgeo"
  ELSE
    CURRENT_DIRECTORY  "X:/Departments/Artisanal/Engineering/Konstruktion/cad/ncgeo"
  END_IF

  TS_MENC_AUSGABE Nc_format F Globale_auswertung
  IF (Ts_menc_error <> '')
    DISPLAY Ts_menc_error
  END_IF

END_DEFINE


{============================================================================}
0               { Dummy }
{============================================================================}