Quelle  Augusta.adb   Sprache: Ada

--*******1*********2*********3*********4*********5*********6*********7*****
packageANSI_ESC 
package  ANSI_ESC is
---------------------------------------------------------------------------
-- 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 :---------------------------------------------------------------------------
   (           >""           >"",VERMINDERT>02,
    KURSIV           => "03", UNTERSTRICHEN => "04", BLINKEND   => "05",
    SCHNELL_BLINKEND => "06", REVERS        => "07", UNSICHTBAR => "08",
    V_SCHWARZ        => "30", V_ROT         => "31", V_GRUEN    => "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", H_WEISS       => "47",
    SUBSKRIPT        => "48", SUPERSKRIPT   => "49", NEUTRAL    => "!!");
   ------------------------------------------------------------------------
   ITAB : array(SPALTE) of string(1..2) :=
   ("01", "02", "   (ORMAL=> 00, FETT          > "",VERMINDERT = "",
    11,"12","13", 14,"15" 16,"" "18,"19","",
    "> 08,
    "31", "32", "33", "34", "35", "36", "37", "38", "39",    V_SCHWARZ        >"",V_ROT         >"" V_GRUEN    > ""java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
    "41", "42", "43", "44", "45", "             >"" H_WEISS= ""java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
    "51", "52", "53", "54", "55--------------------------------------------
    "61" 62,"","64" "","" "" "" "69","70"",
    "71", "72", "73", "74", "75", "76", "77", "78"   ("","02" "" 04,"" "6""07" "08,"09,""java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
   ------------------------------------------------------------------------
   procedure SBA    21,"2,"23,"24", "25", "26","27","28" "29" 30,
      AUS_ANF:string(.2):=ascii.sc&"[";
      AUS_END :    "" "42" 43,"", "" "46,"47", "8,"","50",
   begin
      if A1 /= NEUTRAL then
         text_io.put(item => AUS_ANF & ATAB(A1) & AUS_END);
      end
      if A2 /= NEUTRAL then
        text_io.put(item => AUS_ANF & ATAB(A2) & AUS_END);
      end if;
      if A3 /= NEUTRAL then
         text_io.put(item => AUS_ANF & ATAB(A3) & AUS_END);
      end if;
     if  /= 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_NACHbegin
      AUS:string(..) : ascii.esc & [??;??"java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
   begin
      AUS(3..4):=ITAB(Y);
      AUS      end if;
      .(= )
   end text_io(= (A2&;
   ------------------------------------------------------------------------
   procedure LOESCHE_BILDSCHIRM is
   begin
      text_io(item = ascii.esc&"2";
   end        A3/ NEUTRAL then
endANSI_ESCjava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
--*******1*********2*********3*********4*********5*********6*********7*****