DEFINE Make_layers

  LET I (CHECK_ERROR)

  INIT_SUBPART 'Hilfstext'
  TEXT 'Hilfstext' 0,0
  END_PART

  TRAP_ERROR
  ADD_ELEM_INFO 'LAYER: VISIBLE' SELECT GLOBAL GEO ALL AND GLOBAL WHITE CONFIRM END
  ADD_ELEM_INFO 'LAYER: THREAD' SELECT GLOBAL GEO ALL AND GLOBAL YELLOW AND GLOBAL SOLID1 CONFIRM END
  ADD_ELEM_INFO 'LAYER: INVISIBLE' SELECT GLOBAL LONG_DASHED CONFIRM END
  ADD_ELEM_INFO 'LAYER: CENTER' SELECT GLOBAL DOT_CENTER CONFIRM END
  ADD_ELEM_INFO 'LAYER: CENTER' SELECT GLOBAL DASH_CENTER CONFIRM END
  ADD_ELEM_INFO 'LAYER: DIMENSION' SELECT GLOBAL DIMENSIONS ALL CONFIRM END
  ADD_ELEM_INFO 'LAYER: HATCHING' SELECT GLOBAL HATCHING ALL CONFIRM END
  ADD_ELEM_INFO 'LAYER: TEXT050' SELECT GLOBAL TEXTS ALL AND GLOBAL WHITE CONFIRM END
  ADD_ELEM_INFO 'LAYER: TEXT035' SELECT GLOBAL TEXTS ALL AND GLOBAL GREEN CONFIRM END
  ADD_ELEM_INFO 'LAYER: TEXT025' SELECT GLOBAL TEXTS ALL AND GLOBAL YELLOW CONFIRM END
  LET I (CHECK_ERROR)

  EDIT_PART 'Hilfstext'
  DELETE ALL CONFIRM
  END_PART

END_DEFINE