1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
hgr; *i=0; *x=0; *y=0; *c=0; for i = 0 to 100 { for x = 0 to 319 { for y = 0 to 199 { hplot x, y, (x+y+i); } } }; while c <> 27 in tty c; text; FIN