sequence plotter

3 acc = 0.1 : rem decrease for more accuracy, but not zero
4 xz = 10
5 yz = 1



10 hgr2 : hcolor = 1
13 hplot 0,95 to 279,95 : hplot 139,0 to 139,191
19 hcolor = 3
20 gosub 100 : dx=140+n*xz:dy=95.5-y*yz : if dx>0 and dx<239 and dy>0 and dy<191 then hplot dx,dy
25 n = -n : gosub 100 : dx=140+n*xz:dy=95.5-y*yz : if dx>0 and dx<239 and dy>0 and dy<191 then hplot dx,dy
30 n = -n + acc/xz
40 goto 20

100 Y=sin(n)
110 return