PROGRAM Prova_AttrFind;
USES Crt, giobe;
VAR colore,sfondo,ppiano:byte;
    carattere:char;
    i,col,rig:integer;
    testo: array[1..17] of CHAR;
    tasto:char;
BEGIN
  Viacur;
                    {************************************}
  Riempi1(7,1,''); {* Clearscreen  con il carattere ''*}
                    {* con colore Blu(1) su  Bianco (7) *}
                    {************************************}
  Cornice1 ( 3,25,34,3,15,4,1,1);
  Riempi3 (1,1,15,1,' ');
  Riempi3 (25,25,15,1,' ');
  textbackground(1);textcolor(15); gotoxy (27,1);
  write(' Prova della Funzione AttrFind');
  gotoxy (28,25);
  write('Premi ~ESC~ per terminare');
  testo:='Ciao da Giobe2000';{frase da stampare}

  FOR i:=0 to 16 Do {Stampa la frase}
  begin
    gotoxy(34+i,4);
    textcolor (15-i); {colore iniziale =15= bianco brillante 1111B=FH}
    textbackground (i); {sfondo iniziale = 1= blu 0001B=1H}
    write(testo[i+1]);
  end;

  FOR i:=0 to 16 Do
  begin
    ppiano:=AttrFind(34+i,4) AND $0F;
    sfondo:=AttrFind(34+i,4) AND $70 SHR 4;

    textbackground(7);textcolor(0);
    gotoxy( 8,7+i); write ('Carattere puntato = ');
    carattere:= ChrFind(34+i,4);
    textcolor (ppiano);
    textbackground (sfondo); write (carattere);

    textbackground(7);textcolor(0);
    write (', Colore ~Primo piano~= ');
    IF ppiano <10 THEN write(' ');
    textcolor (ppiano); write(ppiano);

    textbackground(7);textcolor(0);
    write (', Colore ~Sfondo~= ');
    textbackground(sfondo);textcolor(15);
    write(sfondo);
  end;
  tasto:=readkey; {**************************************}
  GotoXY (1,25);  {* Aspetta un tasto e poi torna a DOS *}
  RipCur;         {**************************************}
END.