Star Micronics XB24-15, XB24-10 user manual Modifications for IBM mode

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$;":";"Elitepitch (12 CPI),"
1360	' LPRINT H$;E$;"g";"Semi-condensedpitch (15 CPI),";
1390	LPRINT H$;"Condensedpitch (17 CPI),"
1400	' LPRINT H$;E$;"M";"Condensedelite pitch (20 CPI),";
1490	LPRINT H$;E$;"Wl";"Doublewidth";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); 'Increasecharacter space
:ifz LPRINT E$;"A";EHR$(I);E$;"2";'Set line spacing
	LPRINT ES;"	;CHRS(I); 'Increasecharacter space
1710 LPRINT E$;"3";CHR$(36);'Set l/6" line spacing
1720	' LPRINT ES;" ";CHR$(O); 'Normalcharacter space

1730 LPRINT :LPRINTCHR$(28);"Q";CHR$(80)

1760 ' LPRINT H$;E$;"q";CHR$(1);"0UTLINE";",";E$;"q";CHR$(O); 1770 ' LPRINT E$;"q";CHR$(2);"SHADOW";",";E$;"q";CfR$(O); 1780 ' 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);

101