L

L

L.

L

L

67

10 LPRINT CHR$(27);"0";

20 LPRINT CHR$(27);"6";

30 FOR J=3 TO 6

40 LPRINT w ";J;CHR$(J);CHR$(g);

50 NEXT J

60 LPRINT ' 20 ";CHR$(20)

70 LPRINT

80 LPRINT ' 21 ";CHR$(21);CHR$(9);

90 LPRINT ' 26 ";

100 LPRINT CHR$(26)

120 LPRINT

130 FOR J=128 TO 254 STEP 5

140 FOR I=J TO J+4

150 IF I>254 THEN 170

160 LPRINT I;CHR$(I);CHR$(9);

170 NEXT I

180 LPRINT :LPRINT

190 NEXT J

Figure 5-1 shows what this program will print. If your chart doesn’t 1001like this because it has regular letters and numbers instead of the special symbols, then your computer is only using seven bits. You can get the correct printout by changing line

160 to this:

160 LPRINT I;CHR$(27);">";CBR$(I);CHR$(27);"="; aw(9);

A note for the IBM-PC users:

When you run this program, you cannot get the right-pointed arrow (CHR$(26)) with the IBM-PC computers. This is because the IBM-PC does not send this code to the printer.

There is a solution to avoid this problem. Change lines 100 and 120 to the either set of the following lists.

100 O=INP(&H379) : IF 0<128 THEN 100

110 OUT &H378,26 : OUT &H37A,5 : OUT &H37A,4

120 LPRINT : LPRINT

100 O=INP(&H3BD) : IF 0<128 THEN 100

110 OUT &H3BC,26 : OUT &H3BE,5 : OUT &H3BE,4

120 LPRINT : LPRINT

Page 73
Image 73
Star Micronics NP-IO manual Next J