PROGRAM Prova_ONLYchr;
USES Crt, giobe;
VAR i: integer;
    tasto:char;
BEGIN
  TextBackground(0);
  Clrscr;
  Viacur;
  TextBackground(4);            {************************}
  TextColor(15); GotoXY (1,8);  {* Stampa nove righe di *}
  FOR i:=1 to 720 DO            {* asterischi   bianchi *}
    write ('*');                {* su   campo   rosso   *}
                                {************************}

                   {*************************************}
  tasto:=readkey;  {* Aspetta la pressione di un  tasto *}
                   {*************************************}

                         {*******************************}
                         {* Cancella  la  riga  mediana *}
  FOR i:=1 to 80 do      {* dello  schermo  (stampa  80 *}
    ONLYchr (12,i,' ');  {* spazi al posto dei caratteri*}
                         {* originali,con stesso colore)*}
                         {*******************************}

  tasto:=readkey; {**************************************}
  GotoXY (1,25);  {* Aspetta un tasto e poi torna a DOS *}
  RipCur;         {**************************************}
END.