PROGRAM Prova_STAchr;
USES Crt, giobe;
VAR i: integer;
    tasto:char;
BEGIN
  TextBackground (0);
  ClrScr;
  ViaCur;

  {******************************************************}
  {* Stampa il carattere '*' direttamente in Ram Video, *}
  {* nella posizione indicata dalle coordinate [1,1],   *}
  {* in giallo brillante su rosso                       *}
  {******************************************************}

  STAchr (1,1,14,4,'*');
  {******************************************************}
  {* Evidenzia l'ultima riga dello schermo con una stri-*}
  {* scia bianca (stampa in sequenza 80 spazi, diretta- *}
  {* mente in Ram Video                                 *}
  {******************************************************}

  FOR i:=1 to 80 do 
     STAchr (25,i,0,7,'*');

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