BASIC Example:
100
REM
- Horizontal Cursor position Movement
---
110
REM
-notice
'#'
replaced by decipoint position--
128
LPRINT
CHR$(27);"&ai00H";"Position
100"
130
LPRINT
CHR$(27)j"&a1500H"j"Position
1500"
140
LPRINT
CHR$(27)j"&a4000H";"Position
4000"
150
LPRINT
CHR$(27);"&a3000H";"Position
3000";
,
160
FOR
A=1
TO
5:LPRINT:NEXT A
170
REM
-loop
prints downward
diagonally-------
180
FOR
N=0
TO
2500
STEP
250
190
LPRINT
CHR$(27);"&a"jNj"H";N
200
LPRINT
CHR$(27);"&a"iN+2500i"H";"POSITION"iN+2500;
210
NEXT N
220
LPRINT
CHR$(12);
:REM
-Form
Feed--
VERTICAL CURSOR
POSITIONING
(USING
DECIPOINTS)
The
following escape sequence moves the
current
active position
to
a new vertical position in 1/720 inch increments (decipoints).
Ec&a#V
#
= Vertical position (in decipoints)
The
value field (#) specifies
the
new vertical position in
decipoints-
a plus
(+)
or
minus
(-)
sign
before
the decipoint value
specifies
that
the position
is
relative
to
the
current
active position
(+
moves cursor
downward
and
- moves cursor
upward)-no
plus
or
minus sign indicates
that
the
cursor move
is
absolute,
with
the
zero position defined as
the
top
margin and
the
bottom
determined by
the
bottom
of
the page. Vertical
cursor
positioning ignores
the
perforation
skip mode, allowing
the
cursor
to
move
into
the
top
or
bottom
margin. NOTE:
LaserJet+
and
LaserJet
500+
printers allow you
to
specify fractional values to
two places
after
the
decimal.
2-18