program arrow1
   implicit none
   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)
   call newpath
   call arrow(0.1,0.1,0.9,0.1,0.025)
   call stroke
   call newpath
   call arrowa(0.1,0.2,0.9,0.2,0.025)
   call stroke
   call newpath
   call arrowb(0.1,0.3,0.9,0.3,0.025)
   call stroke
   call newpath
   call arrowc(0.1,0.4,0.9,0.4,0.025)
   call stroke
   call newpath
   call arrowwide(0.1,0.5,0.9,0.5,0.05,0.01)
   call stroke
   call fin
   stop
   end