program lines5
   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 setcmyk(1.0,0.0,0.0,0.0)
   call newpath
   call plot(0.1,0.1,3)
   call plot(0.9,0.1,2)
   call stroke
   call setcmyk(0.5,0.5,0.0,0.0)
   call newpath
   call plot(0.1,0.2,3)
   call plot(0.9,0.2,2)
   call stroke
   call setcmyk(0.0,1.0,0.0,0.0)
   call newpath
   call plot(0.1,0.3,3)
   call plot(0.9,0.3,2)
   call stroke
   call setcmyk(0.0,0.5,0.5,0.0)
   call newpath
   call plot(0.1,0.4,3)
   call plot(0.9,0.4,2)
   call stroke
   call setcmyk(0.0,0.0,1.0,0.0)
   call newpath
   call plot(0.1,0.5,3)
   call plot(0.9,0.5,2)
   call stroke
   call setcmyk(0.0,0.0,0.5,0.5)
   call newpath
   call plot(0.1,0.6,3)
   call plot(0.9,0.6,2)
   call stroke
   call setcmyk(0.0,0.0,0.0,1.0)
   call newpath
   call plot(0.1,0.7,3)
   call plot(0.9,0.7,2)
   call stroke
   call setcmyk(0.5,0.0,0.0,0.5)
   call newpath
   call plot(0.1,0.8,3)
   call plot(0.9,0.8,2)
   call stroke
   call fin
   stop
   end