!     Plotting program for general purpose using postscript
      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 plot(0.1, 0.1, 3)
      call plot(0.8, 0.1, 2)
      call stroke
      call linety(2)
      call plot(0.1, 0.2, 3)
      call plot(0.8, 0.2, 2)
      call stroke
      call linety(3)
      call plot(0.1, 0.3, 3)
      call plot(0.8, 0.8, 2)
      call stroke
      call fin
      stop
      end