Star Micronics NX-1000 manual LPRINr rn cHR$I

Next the program returns to normal spacing and gives a demonstration of the printer’s word-processing abilities: bold printing, underlining, sub- scripts, etc.

The row of automobiles in the next printed line is created by downloading two new character patterns, which are printed in place of the character “ < ” (character 60). Details can be found in Appendix C.

The final part of the program uses dot graphics to 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 represents eight vertical dots. (See “Graphics commands” in Appendix B for details. See also Figure C-l in Appendix C.)

The pattern is printed in four rows, each eight dots high and 100 dots wide. Lines 1800 to 1850 read the dot data into a string array variable named LOGO$. Line 1860 sets the line spacing to 8/72 inch so that the rows will connect vertically. The loop in lines 1870 to 1940 does 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 change a few of the lines as shown below to allow for difference 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:

1090 P$=CHR$(18)	'Picapitch
1190 LE'RINTCHR$(28);"4";		'Selectitalics
1220 LPRINl-CHR$(28):"5"		'Cancelitalics

1280 ' LPRINTH$;E$;"M";"Condensedelite pitch,";

1400 IPRINT CJiR$(28);"Q";CkfR$(47)'Setright margin 1440 LPRINT E$;"A";CHR$(I);E$;"2";'Linespacingset 1450 ' LPRINT E$;" ";CHR§(I); 'Increasecharacterspace 1490 LPRINT ~;"A";CHR$(I);Eg;"2";

1500	' LPRINr rn;" ";cHR$(I):
1860	IPRINT ~;"A";~(a);M;"2";	-'Set 8/72"
2030	G'RINTD$;~(28);":";cHR$(O);cHR$(O~;~~O~:
2130	LPRINT C$;CHR$(28);":";cwz$(O);~(O);~(O);