********************************************************************************************************************
*****                 This Lisp was written by Heiko Mertens on 13.05.2004                                     *****
*****                 Version 1.0 by HM2004                                                                    *****
*****                 Version 1.1 by HM2004, 15.11.2004 - Textdeu and Texteng added                            *****
*****		      Version 1.2 by HM2005, 21.09.2005 - Layer für SFeld2 (Kd. Schriftfeld) hinzu	       *****
********************************************************************************************************************

; This Lisp switches the Layer Header, Frame and Headerattrib off
; and switches the Layers Headertext, Frametext and Headerattriben on.


(Defun C:int ()
    (setvar "cmdecho" 1)
  (command "_.-Layer" "_SET" "0" "")
  (Command "_.-LAYER" "_OFF" "Header" "")
  (Command "_.-LAYER" "_OFF" "Frame" "")
  (Command "_.-LAYER" "_OFF" "Headerattrib" "")
  (Command "_.-LAYER" "_OFF" "Textdeu" "")
  (Command "_.-LAYER" "_OFF" "Header2" "")
  (Command "_.-LAYER" "_OFF" "Headerattrib2" "")
  (Command "_.-LAYER" "_ON" "Headertext" "")
  (Command "_.-LAYER" "_ON" "Frametext" "")
  (Command "_.-LAYER" "_ON" "Headerattriben" "")
  (command "_.-LAYER" "_ON" "Texteng" "")
  (Command "_.-LAYER" "_ON" "Headertext2" "")
  (Command "_.-LAYER" "_ON" "Headerattriben2" "")

  (setvar "cmdecho" 1)
  (prompt "\nThe Header is international.")

  (princ)
)