define tron trace del_old ('c:\tmp\trace.'+str form_me_version) end_define
define troff trace off edit_file ('c:\tmp\trace.'+str form_me_version) end_define

DEFINE Form_stift25  WHITE  END_DEFINE
DEFINE Form_stift35  RED    END_DEFINE
DEFINE Form_stift50  YELLOW END_DEFINE
DEFINE Form_stift70  GREEN  END_DEFINE
DEFINE Form_stift0   BLACK  END_DEFINE
DEFINE stift25  WHITE  END_DEFINE
DEFINE stift35  RED    END_DEFINE
DEFINE stift50  YELLOW END_DEFINE
DEFINE stift70  GREEN  END_DEFINE
DEFINE stift0   BLACK  END_DEFINE

DEFINE Form_stifttext     { FARBE EINSTELLEN FUER TEXTE IN DER }
  TEXT MAGENTA END   { KOORDINATEN TABELLE }
END_DEFINE

DEFINE Form_stift_gewinde  { FARBEINSTELLUNG FUER GEWINDE }
  Form_stift25 END     { SACKLOCH DURCHGANGSLOCH UND DRAUFSICHT }
END_DEFINE


DEFINE Gelb       Form_stift50 LINETYPE SOLID       Farbe_stift END_DEFINE
DEFINE Weiss      Form_stift25 LINETYPE DOT_CENTER  Farbe_stift END_DEFINE
DEFINE Rott       Form_stift35 LINETYPE LONG_DASHED Farbe_stift END_DEFINE
DEFINE Punkte_rot Form_stift35 LINETYPE LONG_DOTTED Farbe_stift END_DEFINE
DEFINE lila       magenta      LINETYPE solid       Farbe_stift END_DEFINE

{------------------------------------------------------------------------------}

DEFINE Farbe_stift  INQ_ENV 3 LET Farbe (INQ 201) LET Stift (INQ 301) END_DEFINE
DEFINE Farbe_stift1 INQ_ENV 3 LET Farb (INQ 201) LET Strich (INQ 301) END_DEFINE
DEFINE Masstab      INQ_ENV 6 LET Masse (INQ 4)                       END_DEFINE

{******************************************************************************}
{ Folgende Befehle kÎnnen bei Bedarf genutzt werden, wenn die Kommentar-       }
{ klammern entfernt werden; standardmÌÞig sollte jedoch die Tablettbelegung    }
{ im ME10 nicht geÌndert werden !                                              }
{------------------------------------------------------------------------------}
 Tm_fc

 TMENU Tm_cc 343,26  361,36          'GELB'                   { FELD 43 }
 TMENU Tm_cc 361,26  382,36          'WEISS'                  { FELD 44 }
 TMENU Tm_cc 382,26  400,36          'ROTT'                   { FELD 45 }

{------------------------------------------------------------------------------}
{ Belegung der Funktionstasten:                                                }
{------------------------------------------------------------------------------}

DEFINE Form_key_alt
  DEFINE_KEY 1 'ò'
  DEFINE_KEY 2 'Ö'
  DEFINE_KEY 3 'þ'
  DEFINE_KEY 6 ('LIST_MACRO_NAMES SCREEN'#M)
  DEFINE_KEY 7 "INPUT     '"
  DEFINE_KEY 5 'ENTER ('
  DEFINE_KEY 8 ')'
END_DEFINE

Form_key_alt



{******************************************************************************}
{ "FORMENBAU 9000" besteht standardmÌÞig aus einem Haupt-Tablett-MenÏ,         }
{ das Ïber eines der Bibliotheksfelder aufzurufen ist. Wenn Sie die zahl-      }
{ reichen Funktionen von "FORMENBAU 9000" auf eigenen Bibliotheksfeldern       }
{ ansprechen mÎchten, dann aktivieren Sie bitte die folgenen Befehle:          }
{------------------------------------------------------------------------------}


Tm_fc
TMENU Tm_cc  285,198     304,209     'DELETE SELECT C_GEO GLOBAL ALL CONFIRM REDRAW'

TMENU Tm_cc 362.2,34 381.2,45        'PUNKTE_ROT'        { Feld 41 }


TMENU Tm_cc 109,34 128,45            'STORE ALL'
TMENU Tm_cc 148,34 167,45            'LOAD'
TMENU Tm_cc 128,34 148,45            'CATALOG ""'
TMENU Tm_cc 128,23 148,34            'SCREEN'
TMENU Tm_cc 245.5,34 265,45          'SPLIT'
TMENU Tm_cc 245.5,23 265,34          'MERGE'
tmenu tm_cc 108,78 126,88            'window zoom 0.5'
tmenu tm_cc 146,78 165,88            'window zoom 2.0'



{******************************************************************************}