PROGRAM SineText;
USES Crt, GFX3;
VAR
 X : integer; { The X Co'ord }
 Y : real; { The Y Co'ord }
 I : integer;
 K : string;
 Z : Integer;
 C : INTEGER;
 P : Integer;
 A : boolean; { Used in looping }
 S, R, G, B : BYTE;
BEGIN
 SetMCGA;
 SetUpVirtual;
 Cls(vga, 0);
 P := 1;
 for i := 0 to 128 do
  Pal(i,i div 4, 0,0);
 for i := 255 downto 128 do begin
  Pal(i,c div 4, 0,0);
  c := c + 1
 end;

 for i := 1 to 1280 do begin

  for x := 1 to 255 do begin
   y := sin((x / 10)-i) * 10 +11;
    for z := 0 to 160 do BEGIN
     PutPixel(x+17,ROUND(y) + z,x+z, Vaddr);
     {PutPixel(x+17,ROUND(y) + 50 + z,x+z, Vaddr);
     PutPixel(x+17,ROUND(y) + 100 + z,x+z, Vaddr);
     PutPixel(x+17,ROUND(y) + 150 + z,x+z, Vaddr);}
    END;
  end;
  if keypressed then BEGIN
   ShutDown;
   SetText;
   Halt;
  END;
{  WaitRetrace;}
  flip(vaddr, VGA);
  cls(Vaddr, 0);

 end;
 ShutDown;
 SetText;
END.