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 |
| a | i | p | b | p | o | u |
i | s | e |
|
|
|
|
|
| u |
The K)Wo 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 | t c | s | i |
M | f | I | m | o |
|
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); ‘Increasecharacterspace |
| |||
1510 LPRINT E$;“A”;CHR$(I);E$;“2”; ‘Set 1ine spacing |
| ||||
1520 | ‘ LPRINT E$;“ “;CHR$(I); ‘Increasecharacterspace |
| |||
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