program beziercurves2
   implicit none
   real(4),dimension(0:99)::x1,y1
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call linety(1)
   call linewidth(2.0)
   x1(0)=0.50
   y1(0)=0.00
   x1(1)=0.00
   y1(1)=0.50
   x1(2)=0.00
   y1(2)=1.00
   x1(3)=0.50
   y1(3)=0.70
   call newpath
   call plot(x1(0),y1(0),3)
   call curvton(x1,y1,3)
   call stroke
   call fin
   stop
   end