Table of Contents
Advertisement
I
N
c
t c
a
o t p
al
o t
p
t
t
i e
a
c
l
t g
a b
e
T
w
i d
b f
p
c
a c
s
t r
m
(
1
a c
c
(
1
a
v
t l
s
(
1
a
1
a
a c
t m
t
s
b
c
(
1
a
1
N
t p
r
t n
s
a g
a d
o t
p
w
o
a
i
p
b
p
u
i
s
u
e
The K)W
o c s
i t
next printed line is created by downloading
two new character patterns, which are printed in place of the character "<"
(character 60).
The final part of the program uses dot graphics to print an "SW" logo. The
dot pattern of the logo was originally laid out on graph paper, then converted
to the data in lines 4180 to 4490 with the help of a calculator. Each number
represents eight vertical dots. (See "Graphics commands" in Chapter 4 for
details.)
The pattern is printed in four rows, each eight dots high and 65 dots wide.
Lines 1830 to 1900 read the dot data into a string array variable named
LOGC)$. Line 1910 sets the line spacing to 8172inch SOthat the rOwSwill
connect vertically. The loop in lines 1920 to 2020 does the printing in four
passes of the print head.
This program can also be run in IBM mode if you change a few of the lines
as shown below to allow for differences in some of the commands. You will
get a cylinder instead of a barrel effect, bccuase the IBM
m
d
n h
a
c
t m
i
t
c
s
M
o
f I
m
1070 P$=CHR$( 18)
' Pica pitch
1250 LPRINT H$;E$; ":";"Elite pitch (12 CPI),"
1290 ' LPRINT H$;E$; "M";"Condensede1ite pitch (20 CPI),";
1420 LPRINT CHR$( 28);"Q";CHR$( 47)
' Set right margin
1460 LPRINT E$;"A";CHR$(I);E$;"2"; ' Set 1ine spacing
1470 ' LPRINT E$;" ";CHR$( I); 'Increase characterspace
1510 LPRINT E$;"A";CHR$( I);E$; "2"; ' Set 1ine spacing
1520 ' LPRINT E$;" "; CHR$(I); 'Increase characterspace
1570 ' LPRINT E$;" "; CHR$(O);
' Normal characterspace
1580 LPRINT : LPRINT CHR$(28);"Q";CHR$(80)
1610 LPRINT H$ ;CHR$( 28);"4";"Italics" ;CHR$(28);"5";", ";
1910 LPRINT E$;"A";CHR$(8); E$;"2";
' Set 8/72" 1ine spacing
3030 LPRINT E$;
"
;
CHR$( 28);":"; CHR$( O); CHR$(O);CHR$( O);
3150 LPRINT CHR$(28);"&";CHR$( O); CHR$(60);CHR$(60);
94
Advertisement
Table of Contents
