program drawcurve do i=0,20 x=i*2*3.1416/20. y=sin(x) n=nint(30+y*30+1) print*,(' ',j=1,n-1),'*' enddo end