Spacing
vat~ied
by
1/72
of
an
inch:
-------------------------------------------------
----
...
_
..
----------_.-----------------
--------------------------------.---------------
_
..
_._._.
__
....
_
....
_
....
_
....
__
._---_
..
----,.------------
_._._.---_
..
------------------------_
.....
.....
__
._
...
_--_
...
_
.....
_
...
__
._
...
-
...
_
...
_
..
_._---
..
_--
_._._._---._---------
:-...::::=-E.
__
...
.-::
..
_
...
_
..
__
...
___
_
_
...
__
.
__
....
_
..
_--_
..
_
..
_---_._---
..
---_
..
_------------
-------
....
_
....
_
....
_
..
_.
__
........
__
.....
_
...
__
....
__
....
---_
......
--_
..
----_
..
-------
......
_---_
.....
_--_._--_
.....
_._--_
........
-----------
_
....
M...
_....
...
__
_
..
___
.....
_
........
•
••
_..
..0
........
••••••
.......
_.....
•••••
••
. . -
_._
......
---_.
__
.
................................
_
...........
_
..................................................
_
.........
__
......
_
...............................
_
..
_._._
.....
_
...
_--
In this
program,
line 20 initializes the
counter
K and turns
on
underlining. Line 30 defines the three variable spacing
commands
as
SP$(1), SP$(2),
and
SP$(3).
The
commands
are actually sent in
the
subroutine
beginning at line 110.
The
counter
K determines
which
command
is
needed and line 150 sends it and the value
chr$(n) to the printer.
The
subroutine
at line 210 then prints 35
underlined spaces. Line 180 resets the spacing to six lines per inch
and line 190 skips a line to begin the
next
set
of
lines.
4-10
To Next Page
Loading...
