LET gaspoz_casauni 'c:/Me10'
LET gaspoz_casamacro '/gaspoz/macro'
LET casamoduli '/moduli'
LET casafmt '/formati'

{
Funziona solo sotto HPUX

DEFINE cerca_nome
OPEN_INFILE 3 '|echo $LOGNAME'
READ_FILE 3 nomemio
CLOSE_FILE 3
END_DEFINE
}
{
Funziona solo sotto HPUX

DEFINE cerca_casa
OPEN_INFILE 1 '|echo $HOME'
READ_FILE 1 casamia
CLOSE_FILE 1
END_DEFINE
cerca_nome
cerca_casa
}

  define_key 1 "traccia"#13
  define_key 2 "straccia"#13
  define_key 3 ""
  define_key 4 ""
  define_key 5 ""
  define_key 6 ""
  define_key 7 ""
  define_key 8 ""
  define_key 9 ""
  define_key 10 ""
  define_key 11 ""
  define_key 12 ""
{*********************************************}
DEFINE festoswitch "OFF" END_DEFINE
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/plus_geo_das_color.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/sm_gasp1_layout.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/macchina.bin")


{input ( STR(casamia) + STR(casamiamacro) + "/foro1")}
{input (STR(gaspoz_casamacro)+"/dado")
input (STR(gaspoz_casamacro)+"/filetto")}

LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/colonne.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/boccole.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/maber.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/freccia.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/svi2.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/scl5.bin")
{*********************************************}
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/rrt.bin")
{LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/rrt8.bin")}
{*********************************************}
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/festo.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/Colo7.bin")
{*********************************************}
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/linea_asse.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/linea_solid.bin")
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/linea_trat.bin")
{*********************************************}
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/moduli.bin")
{*********************************************}
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/chi_sono_io.bin")
{*********************************************}
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/robohand.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/star1.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/star2.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/enerpac.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/nsk.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/thk.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/tmt.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/pro_fe.bin")
{LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/libreria_save.bin")}
{LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/leggi_lib.bin)}
{LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/libreria.bin")}
{LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/sm_libreria.bin")}
{LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/salva_in_lib.bin")}
{*********************************************}
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/tcei_sede.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/tcei_lat.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/tcei_pianta.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/tcei_pnt.bin")
{*********************************************}
LOAD_MACRO (STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/tm_color_arancione.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/colore_1.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/colore_2.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/colori.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/zap.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/dac.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/circle_center.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/ssd.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/ssdgoe.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/perdxf.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/mywork.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/scala.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/nomefile.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/oggi.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/ssdmi.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/saveprt.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/vedo.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/mnodo.bin")
INPUT ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/sm_qte")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/codlav.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/posizione.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/fil_pianta.bin")
LOAD_MACRO ( STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/buco.bin")
{*********************************************}
DEFINE M3 scl5 END_DEFINE
DEFINE M4 LOAD SUBPART(STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/rug32") END_DEFINE
DEFINE M5 LOAD SUBPART(STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/rug16") END_DEFINE
DEFINE M6 LOAD SUBPART(STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/rug08") END_DEFINE
DEFINE M7 freccia END_DEFINE
DEFINE M8 svi2 end_define
DEFINE M9 LOAD SUBPART(STR(gaspoz_casauni)+STR(gaspoz_casamacro)+"/arrow_sez") END_DEFINE
DEFINE M10 linea_asse END_DEFINE
DEFINE M11 linea_trat END_DEFINE
DEFINE M12 linea_solid END_DEFINE
DEFINE M13 LOAD SUBPART(STR(gaspoz_casauni)+STR(casafmt)+"/A0") END_DEFINE
DEFINE M14 tcei_sede END_DEFINE
DEFINE M15 foro_sezione_fil END_DEFINE
DEFINE M16 LOAD SUBPART(STR(gaspoz_casauni)+STR(casafmt)+"/A1") END_DEFINE
DEFINE M17 tcei_pianta END_DEFINE
DEFINE M18 foro_sezione_fil_cie END_DEFINE
DEFINE M19 LOAD SUBPART(STR(gaspoz_casauni)+STR(casafmt)+"/A2") END_DEFINE
DEFINE M20 tcei_lat END_DEFINE
DEFINE M21 fil_pianta END_DEFINE
DEFINE M22 LOAD SUBPART(STR(gaspoz_casauni)+STR(casafmt)+"/A3") END_DEFINE
DEFINE M23 tcei_pnt END_DEFINE
DEFINE M24 dim_text_orientation horizontal END_DEFINE
DEFINE M25 LOAD SUBPART(STR(gaspoz_casauni)+STR(casafmt)+"/A4") END_DEFINE
DEFINE M26 buco END_DEFINE
DEFINE M27 dim_text_orientation parallel END_DEFINE
DEFINE M28 LOAD SUBPART(STR(gaspoz_casauni)+STR(gaspoz_casamacro) + "/saldtab") END_DEFINE
DEFINE M29 circle_center END_DEFINE
DEFINE M30 festo END_DEFINE
DEFINE M31 colonne END_DEFINE
DEFINE M32 boccole END_DEFINE
DEFINE M33 maber END_DEFINE
DEFINE M34 sm_pallinatura END_DEFINE
DEFINE M35 sm_moduli END_DEFINE
DEFINE M36 sm_vedo END_DEFINE
DEFINE M37 sm_qte END_DEFINE
DEFINE M38 sm_leggi_lib END_DEFINE
DEFINE M39 sm_archivio_leggi END_DEFINE
DEFINE M40 sm_paj END_DEFINE
DEFINE M41 edit_port END_DEFINE
DEFINE M42 exit END_DEFINE
DEFINE M43 STA_SHOW_TABLE_ON END_DEFINE
DEFINE M44 STA_SHOW_TABLE_ON END_DEFINE
DEFINE M45 STA_SHOW_TABLE_ON END_DEFINE
{*********************************************}
DEFINE alb_slots_menu
MENU Colo1 Bcol5 'NORS' 'CURRENT_VIEWPORT no_raise' 26 1
MENU YELLOW BCOL1 'svWRK' 'mywork' 26 2
MENU CENTER Colo1 BCOL3 'T&L' 'MOVE_DIMENSION' 26 3
MENU colore_1 BCOL4 'svPRT' 'saveprt' 26 4
MENU CENTER colore_1 Bcol4 'SAVE' 'Ssd' 27 1
MENU CENTER Colo1 Bcol1 'F3' 'viewport_autoconf 3' 27 4
MENU CENTER CYAN Bcol3 'S&T' 'move_dimension text_only' 27 3
MENU CENTER Colo1 Bcol1 'F1' 'viewport_autoconf 1' 27 2
END_DEFINE
{*********************************************}
DEFINE eight_menu_slots_add
               alb_slots_menu
END_DEFINE
{*********************************************}
TMENU Tm_cc  128,198      148,209      'split'
TMENU Tm_cc  109,198      128,209      'merge'
TMENU Tm_cc   70,209       89,219      'tm_color_arancione'
TMENU Tm_cc  382,252      402,263      'zap'
TMENU Tm_cc  343.5,187    402,198      'Sh_dbase'
{TMENU Tm_cc  167,209      187,219      'pwd'}
{*********************************************}
INPUT_TOOLBOX ( STR(casamia) + "/strumenti")
INPUT ( STR(casamia) +"/"+STR(nomemio)+"menu")
INPUT ( STR(casamia) + "/definisci_chiavi")
{*********************************************}
TMENU Tm_cc  343.5,22     363,34       'STA_SHOW_TABLE_ON'
TMENU Tm_cc  363,22       382,34       'STA_SHOW_TABLE_ON'
TMENU Tm_cc  382,22       402,34       'STA_SHOW_TABLE_ON'
{*********************************************}
TMENU Tm_cc  167,198      187,209      'DAC'
{*********************************************}
INPUT (STR(gaspoz_casauni)+"/gaspoz_ambiente.init")
{*********************************************}
macchina