(:
rr
".
rr
..
C::
*
*
*
*
rr
..
rr
..
C:
rr
..
rr
..
1---
..
c::
rr
..
I::
rr
..
fr
..
rr
..
rr
..
r-
..
rr
..
rr
..
C:: C::
C::
rr
..
rr
..
rr
. .
c::
1---
..
I}:
r-
. .
I}:
This
is
the
Commodot~e
MPS-l;;!12J1ZI
dot
matt~i
}(
pt~inter.
fr
,.
At
1;;!1ZI
cps,
it's
o
lit'
fastest
pt~inter
to
date.
C::
C::
rr
..
rr
..
rr
..
(::
rr
..
rr
..
rr
.L
rr
..
rr
..
rr
. .
rr
..
(:
rr
. .
rr
.L
1---
,L
(:: (::
rr
,L
C:
rr
.L
rr
.L
rr
.L
rr
.L
fr
,L
rr
.L
C::
* * * * * * * * *
* * * *
* *
* * * *
*
* * * * * *
*
This
is
the
Commodot~e
MPS-1200
dot
matt'i
x
pt~intet'.
*
At
120
cps,
it's
out'
fastest
pt'intet~
to
date.
*
* * * * * * * * * * * * * * * * * * * * *
*
* * *
*
*
Special
Effects
Nearly
all
of
the
MPS
1200's character style variations can be used
with
the characters
you
design.
Just
select the user-defined charac-
ter set (with
ESC
% 1 chr$(O)) and
then
use the appropriate
com-
mand
for the desired
print
style.
For
instance, using the
master
pitch
command
or
the master
print
mode
command
you
can use any
of
the available
print
widths: pica,
elite, expanded, compressed,
and
their combinations.
If
you
specify
starting
and
ending
print
columns
as
part
of
the attribute byte
of
the
character, definition,
you
can
print
your
characters in
proportional
width.
Some
of
the
other
special effects that can be used
with
user-defined
characters are emphasized, doublestrike, underlining, reverse print,
tall print, superscripts,
and
subscripts.
The
next
program
uses the characters
you
just
designed, so
don't
reset the printer.
5
openl,4,"l
10
pt'int#l,
cht'$
(2"7)
"P";
"Pica:
";:
gosub
130
20
pt'int#1,
cht'$
(2'7)
"M";
"El
i
te:
";:
gosub
130
30
pt'int#1,cht'$(27)cht·'$(1~3)
"Compt'essed:
"=
:gosub
1.30
40
pt'int#1,
cht'$
(27)
cht'$
(14)
"E:-:panded:
";:
gosub
130
50
pt'int#1,
cht'$
(27)
"E";
"Emphasi
zed:
";:
gosub
1:::;0
60
pt'int#1,cht'$(27)
"G";
"Dollble
stt'ike:
";
:gosub
130
70
pt'int#1,cht'$(2'7)
"-1";
"Undet'lining:
";
:gosub
130
80
pt'int#1,cht'$(27)
"SO";
"Supet'sct"'ipt:
";
:gosub
130
90
pt'int#1,cht'$(27)
"51";
"5ubsct'ipt:
";
:gosub
l::~;U
100
pt'int#l,
cht'$
(27)
cht'$
(126)
"21";
"Revet'se:
";:
gosub
1:<:0
110
pt'int#1,cht'$(27)cht'$(126)
"11";
"Vet'tically
en
lat'ged:
";:
gosub
130
120
end
8-11
To Next Page
Loading...
