subroutine AXL (ixy,lseg,nseg) c c draws an axis on the Laserwriter page. The arguments are c specified as for the corresponding WX4675 command. c c lsegp=irnd(lseg*72./254.) ! convert from 0.1mm to 1/72" units if (ixy.eq.0) go to 40 if (ixy.eq.1) go to 20 type 10 10 format(' ?AXL - ''ixy'' specified incorrectly') call exit c c x-axis 20 call vmark do 30 i=1,nseg call lgo('I',lseg,0) 30 call vmark return c c y-axis 40 call hmark do 50 i=1,nseg call lgo('I',0,lseg) 50 call hmark return end