CALL plotwindow(0,500,0,500)
x0=0
y0=0
xorig=250
yorig=250
yscale=100
xscale=6.28/250.0
dt=1.0
FOR n=0 TO 250
x=n*dt
y=yscale*sin(x*xscale)
LINE (xorig+x0,yorig-y0)-(xorig+x,yorig-y)
x0=x
y0=y
NEXT n

PAUSE 10 
END 



SUB plotwindow(xmin, xmax, ymin, ymax)

ntick=10

pad=10

dx=(xmax-xmin)/ntick
dy=(ymax-ymin)/ntick
tckw=(xmax-xmin)/40
sizex=xmax+pad
sizey=ymax+pad
SCREEN (100, 100), 500, 500

LINE (xmax/2,0)-(xmax/2,ymax)
LINE (0,ymax/2)-(xmax,ymax/2)
FOR itick=0 TO 10
col=xmin+itick*dx
row=ymin+itick*dy
LINE (col,250-tckw/2)-(col,250+tckw/2)
LINE (250-tckw/2,row)-(250+tckw/2,row)
NEXT itick

END SUB