rem *** DRAW HORIZONTAL RULERS ACROSS TOP OF PAPER IN RED ***
printer ink RGB(255,0,0),RGB(255,255,255)
s# = PRINTER PIXELS IN LENGTH Y(1,units) / mdn
print "step size = ", s#
lp_iy# = iy# * 0.6
hiy = iy# / 2
qiy = iy# / 4
count = 0
dc = 0
x# = 0
s# = PRINTER PIXELS IN LENGTH X(1,units) / mdn
repeat
if (count mod mdn) = 0
PLOT LINE x#,0,x#,hiy
A$ = STR$(dc)
hth# = GET PTEXT WIDTH(A$) / 2.0
LTEXT x# - hth#, lp_iy#, A$
inc dc,1
else
plot line x#,0,x#,qiy
endif
inc count,1
x# = x# + s#
until x# >= width
PRINTER GO
end

<< PREVIOUS