hgr;
*c=0; *j=0; *i=0; *x=0; *y=0;
for j = 0 to 100
{
  for i = 0 to 255
  {
    x = (1000 + cos i) >> 5;
    y = (1000 + sin i) >> 5;
    hplot x + j, y + j, i + j;
  }
};

while c <> 27 { in tty c };
text;
FIN