h datfmt(*iso) * * AFPDS Printer Layout Sheet * * * * flayoutpr o e printer oflind(*in02) * Horizontal Lines c eval valx=0.25 c eval valy=0.25 c eval vall=8.25 c dow valx<11 c write phrz1 c eval p#val1=valx c write phrz2 c eval valx=valx+0.50 c enddo * Sub c eval valx=0.20 c eval valy=1.00 c eval vall=1.50 c dow valx<11 c write phrz3 c eval valx=valx+0.10 c enddo * Sub c eval valx=0.20 c eval valy=1.25 c eval vall=1.00 c dow valx<11 c write phrz3 c eval valx=valx+0.05 c enddo * Vertical Lines c eval valx=0.25 c eval valy=0.25 c eval vall=10.75 c dow valy<10 c write pvrt1 c eval p#val1=valy c write pvrt2 c eval valy=valy+0.50 c enddo * Sub c eval valx=1.00 c eval valy=0.20 c eval vall=1.50 c dow valy<11 c write pvrt3 c eval valy=valy+0.10 c enddo * Sub c eval valx=1.25 c eval valy=0.20 c eval vall=1.00 c dow valy<11 c write pvrt3 c eval valy=valy+0.05 c enddo c eval *inlr=*on c return