a=a+1
plot [-3:3] [-4:4] "d" every ::::a w lines
pause -1
if (a<1000) reread