program grafdemo;
{I GRAFPACK.INC for Apple ][e users}
{$I GRAF.INC}
var i:integer;
    r:real;
    s:string[80];
begin
  initgraphics;
  graphcolormode;
  graphwindow(50,10,150,80);
  draw(50,10,150,10,white1);
  draw(150,10,150,80,white1);
  draw(150,80,50,80,white1);
  draw(50,80,50,10,white1);
  saveimage('GRAFDEMO');
  draw(0,191,80,15,blue1);
  draw(60,80,60,10,green);
  draw(0,0,279,191,orange);
  draw(60,20,120,50,white1);
  draw(80,50,120,50,white1);
  draw(50,80,50,10,white1);
  delay(2000);
  fullwindow;
  graphbackground(orange);
  delay(2000);
  graphbackground(blue1);
  delay(2000);
  graphbackground(white1);
  for i:=0 to 279 do begin
    r:=i;r:=r/10;
    plot(i,trunc(50*sin(r)+75),black1)
  end;
  draw(0,75,300,75,black1);
  delay(2000);
  textmode;
  loadimage('GRAFDEMO');
  graphcolormode;
  delay(5000);
end.