Filter
Top Products
.—
—
..-
%..
L
L
L
i
L
1
L
L
—
—
-
Nexttheprogramreturnstonormalspacingandgivesademonstration
oftheprinter’sword-processingabilities:boldprinting,underlining,sub-
scripts,etc.
Therow of automobilesin thenextprintedlineiscreatedbydownloading
two newcharacter patterns, which are printed in place of thecharacter”<”
(character 60). Details can be found in Appendix C.
The final part of the program usesdot graphicsto print an “S&S”logo.
The dot pattern of the logo was originally laid out on graph paper, then
converted to the data in lines 2640 to 3030 with the help of a calculator.
Each number representseight vertical dots. (See “Graphics commands” in
Appendix B for details. See also Figure C-1 in Appendix C.)
The pattern is printed in four rows, each eight dots high and 100dots
wide.Lines 1800to 1850read the dot data into a stringarray variablenamed
LOGO$. Line 1860sets
thelinespa@gto8/72 inch so that the rows will
connect vertically.The loop in lines 1870to 1940does the printing in four
passes of the print head.
This program can also be run in IBM mode (DIP switch 1-6 OFF) if
you changea fewof the linesas shown belowto allowfor differencein some
of the commands. You will get a cylinderinstead of a barrel effect, becuase
the IBM mode does not have any command to micro-adjust the character
spacing.
Modifications for IBM mode:
1090 P9KHR$(181
‘Pica pitch
1190 l-PRINfCNR$(28);“4”;
‘8elect italics
1220 LPRI~ CHI?$(28);“5”
‘Cancel italics
1280 ‘ LPRIIWH$;E$;“M”;“Cordeneed elite pitch,”;
1400 LPRItWCHRS(28);“Q”;CHR$(47) ‘Set right margin
1440 LPRIIWE$;“A’’;CI-IR$(I);E$;“2”: ‘Line spacing set
1450 I LPRINTE$; ” “;CHR$(l): ‘Increase character Space
1490 LPRItWE$;“A’’;CHR$(I) ;=; “2”;
1500
‘ LFRIIW~; “ “;CHR$(I);
1860 I.PRI~ ~; “A’’;UR$(8) ;=; “2”;
●’Set 8/72”
2030 LPRIIWD$;CHR$(28);“:‘:;CHR$(OI;_(O) ;-(o) ;
2130 WIUI?f C$;CHR$(28); “:“;CHR$(0);-(O) ;H(0) ;
45