Star Micronics NB-15 user manual LPRINTCHR$270 20 LPRINTCHR$276 30 FOR J=3 TO

I_

.

..

e..

10LPRINTCHR$(27);"0";

20 LPRINTCHR$(27);"6";

30 FOR J=3 TO 6

40 LPRINT'* ";J;CHR$(J);CHR$(9);

50 NEXT J

60 LPRINT'* 21 ";CHR$(21)

70LPRINT

80 FOR J=128TO 254 STEP 5

90 FOR I=J TO J+4

95 IF I>254THEN 110

100LPRINTI;CHR$(I);CHR$(9);

110NEXT I

120LPRINT :LPRINT

130NEXT J

Figure 7-l shows what this program will print. If your chart doesn’t look like this because it has regular letters and numbers instead of the special symbols, then your computer is only using seven bits (unless you have set DIP switches 2-2 and 2-5 off by mistake). You can get the correct printout by changing line 100 to this:

100 LPRINTI;CHR$(27);">";CHR$(I);CHR$(27);"=";CHR$(g

So how are all of these strange characters used? Here is a short program that demonstrate how the graphics characters can be combined to create a figure: the 5 of clubs.

10 LPRINTCHR$(27);"6";

20LPRINTCHR$(218);CHR$(196);CHR$(l96);CHR$(l96); CHR$(196);CHR$(196);CHR$(l91)

30LPRINTCHR$(179);CHR$(53);CHR$(32);CHR$(32); CHR$(32);CHR$(32);CHR$(l79)

40LPRINTCHR$(179);CHR$(32);CHRSo;CHR$(32);CHR$(5); CHR$(32);CHR$(179)

50LPRINTCHR$(179);CHR$(32);CHR$(32);CHR$(5); CHR$(32);CHR$(32);CHR$(l79)

60LPRINTCHR$(179):CHR$(32);CHR$(5);CHR$(32);CHR$(5) CHR$(32);CHR$(179)

70LPRINTCHR$(179);CHR$(32);CHR$(32);CHR$(32); CHR$(32);CHR$(53);CHR$(179)

80LPRINTCHR$(192);CHR$(196);CHR$(l96);CHR$(l96); CHR$(196);CHR$(196);CHR$(217)

90 LPRINTCHR$(27);"7"