{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple29d ;
Type Point = Record
     x, y : Integer ;
     couleur : Byte ;
     End ;
     PPoint = ^Point ;
Var Pixel1, Pixel2 : PPoint ;
BEGIN
Randomize ;
New(Pixel1);
New(Pixel2);
With Pixel1^ Do
      Begin
      x := 50 ;
      y := 100 ;
      couleur := Random(14)+1 ;
      End ;
Pixel2^ := Pixel1^ ;
Pixel2^.couleur := 0 ;
Dispose(Pixel1);
Dispose(Pixel2);
END.