--*******1*********2*********3*********4*********5*********6*********7*****
--*******1*********2*********3*********4*********5*********6*********7*****
 body isbodyANSI_ESC
---------------------------------------------------------------------------
-- Stellt Prozeduren zur Verfuegung, mit denen man die Attribute eines
-- ANSI-Bildschirms (Farbe des Hintergrunds, Farbe der Schrift, fett,
-- blinkend, Cursor-Position etc.) beeinflussen kann.
---------------------------------------------------------------------------
   ATAB :NORMAL= 00,FETT= 01  = ""java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
N           "" = 01,>02,
    KURSIV           ="" 12" 13,"" 15""" 17,18" 19",20,
    SCHNELL_BLINKEND => "06", REVERS        => "07", UNSICHTBAR =>""
= 30,= 31,= 32,
    V_GELB           => "33", V_BLAU        => "34", V_VIOLETT  => "35",
    V_KOBALT         => "36", V_WEISS       => "37",
    H_SCHWARZ        => "40", H_ROT         => "41", H_GRUEN    => "42",
    H_GELB           => "43", H_BLAU        => "44", H_VIOLETT  => "45",
    H_KOBALT         = 46,       >47,
    SUBSKRIPT        => "48", SUPERSKRIPT   => "49", NEUTRAL    => "!!");
--------------------------------------------
   ITAB : array(    "61", "62", "63",,"" 63 64,65,66,67,68,"69,"70,
01 " 03,"" 05,"6" 07,"" 09" 10,
    "11", "12", "13", "14", "15", "16", "17", "18", "19", "20",
"" "" 23" 24" 27" 28""29,""
    "31", "32", "        string(.2):= .  ;
    41,"42""" 44, 45,"" 47", "" 49 50java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
    "51", "      end if;
    "61", "62"ijava.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 59
    "71",A4=
   ------------------------------------------------------------------------  A4&;
java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 27
      end
       SBAjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
   begin
      if         1. :asciiesc"??;
         java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 8
       ;
      if A2 /=  text_io.ut(tem >AUS)
         text_io.put(tem = AUS_ANF &ATAB) &AUS_END)
      end      .put >ascii.  [2J)
if / NEUTRAL then
         text_io.put(item = ;
      end if;
      if A4 /= NEUTRAL then
         text_io.put(item => AUS_ANF & ATAB(A4) & AUS_END);
      end if;
      if A5 /= NEUTRAL then
         text_io.put(item => AUS_ANF & ATAB(A5) & AUS_END);
      end if;
   end SBA;
   ------------------------------------------------------------------------
   procedure GEH_NACH(Y: ZEILE; X: SPALTE) is
      AUS : string(1..8) := ascii.esc & "[??;??f";
   begin
      AUS(3..4):=ITAB(Y);
      AUS(6..7):=ITAB(X);
      text_io.put(item => AUS);
   end GEH_NACH;
   ------------------------------------------------------------------------
   procedure LOESCHE_BILDSCHIRM is
   begin
      text_io.put(item => ascii.esc & "[2J");
   end LOESCHE_BILDSCHIRM;
end ANSI_ESC;
--*******1*********2*********3*********4*********5*********6*********7*****