PROGRAM Prova_ATTRchr;
USES Crt, giobe;
VAR i: integer;
    tasto: char;
BEGIN
  TextBackground(0);
  Clrscr;
  Viacur;
  TextColor(15); GotoXY (1,1);
  FOR i:=1 to 640 DO
    write ('*');
                   {*************************************}
  tasto:=readkey;  {* Aspetta la  pressione di un tasto *}
                   {*************************************}
  FOR i:=1 to 80 DO
    ATTRchr (2,i,14,1);

  REPEAT                                   {*************}
    tasto:=readkey;                        {*Aspetta  un*}
  UNTIL (UpCase(tasto)='Q') OR (tasto=#27);{*tasto e poi*}
  GotoXY (1,25);                           {*torna a DOS*}
  RipCur;                                  {*************}
END.