PROCEDURE Set_BG_Color (Farbe : Color_Type);

(* setzt die Hintergrundfarbe neu.
   Color_Type mu~ vor dem Aufruf mit
   =>    TYPE Color_Type = (hell, dunkel)
   definiert werden! *)

CONST TE_SET_PAPER = $08EE;
      TE_SET_PEN   = $08F6;

VAR   color        : BYTE;

BEGIN
  CASE Farbe OF
    hell   : color := 63;
    dunkel : color := 0;
  END;
  INLINE(
  $3A/color/      (* LD   A,(color)    *)
  $CD/$5A/$FC/    (* CALL 0FC5AH       *)
  TE_SET_PAPER/   (* DEFW TE_SET_PAPER *)
  $3A/color/      (* LD   A,(color)    *)
  $2F/            (* CPL               *)
  $E6/$3F/        (* AND  A,03FH       *)
  $CD/$5A/$FC/    (* CALL 0FC5AH       *)
  TE_SET_PEN);    (* DEFW TE_SET_PEN   *)
END;