c--Simple1.for WINAPP INTEGER N,winio@,i,k PARAMETER(N=38) REAL*8 x(N),y(N) real,dimension(38)::der
c--Create the data to be plotted. k=0 DO i= -180,180,10 k=k+1 der(k)=(i*3.1415962)/180 x(k)=i y(k)=SIN(der(k)) END DO
c--Plot the data. i=winio@('%ca[evren]%bg[blue]&') i=winio@('%pl[x_array]&',700,700,N,x,y) i=winio@('%ff%cn%tt[OK]')
END[/quote][/code]