Filter
Top Products
The row of telephone symbols in the next printed line is created by
downloading two new character patterns, which are printed in place of the
character “c” (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 4240 to 4550 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 tows, each eight dots high and 65 dots wide.
Lines 2110 to 2 180 read the dot data into a string array variable named
LOGO$. Line 2190 sets the line spacing to 8/60 inch so that the tows will
connect vertically. The loop in lines 2200 to 2300 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, becuase the IBM mode does not have
any command to micro-adjust the character spacing.
Modifications for IBM mode:
1070 P$=CHR$(18)
'Pica pitch
1350 LPBINT H$:E$;":";"Elite pitch (12 CPI),"
1360 '
LPRINT H$;E$;"g";
"Semi-condensed pitch (15 CPI),";
1390 LPRINT H$;"Condensed pitch (17 CPI),"
1400
' LPRINT H$;E$;"M";
"Condensed elite pitch (20 CPI),";
1490 LPRINT H$;E$;"Wl";"Double width";E$;"WO"
1500 ' LPRINT CHR$(28);"E";CHR$(2);"Triple";
151Q ' LPRINT CHR$(28);"E";CHR$(O);" width,"
1570 LPRINT CHR$(28);"Q";CHR$(47) 'Set right margin
1610 LPRINT E$;"A";CHR$(I);E$;"2"; 'Set line spacing
1620 '
LPRINT ES;" ";CHR$(I);
'Increase character space
:ifz LPRINT E$;"A";EHR$(I);E$;"2"; 'Set line spacing
LPRINT ES;"
;CHRS(I);
'Increase character space
1710 LPRINT E$;"3";CHR$(36); 'Set l/6" line spacing
1720
' LPRINT ES;" ";CHR$(O);
'Normal character space
1730 LPRINT :LPRINT CHR$(28);"Q";CHR$(80)
1760 ' LPRINT H$;E$;"q";CHR$(1);"0UTLINE";", ";E$;"q";CHR$(O);
1770 '
1780
LPRINT E$;"q";CHR$(2);"SHADOW";", ";E$;"q";CfR$(O);
' LPRINT E$;"q";CHR$(3);"0UTLINE & SHADOW";", ;
1790
' LPRINT E$;"q";CHR$(O);
1800 LPRINT H$;CHR$(28);"4";"Italics";CHR$(28);"5";", "
2190 LPRINT E$;"A";CHR$(8);E$;"2"; 'Set 8/60" line spacing
3030 LPRINT E$;"Sl";CHR$(28);":";CHR$(O);CHR$(O);CHR$(O);
3040 LPRINT ES;"=";
CHR$(O);CHR$(60);CHR$(60);
3170 LPRINT ES;"=";
CHR$(O);CHR$(6O);CHR$(60);
L
101