Star Micronics ND-10/15 user manual Next J

89

You can also specify the power-on default character set by setting DIP switch 2-4 on for character set #l and off for character set #2. The following program will print out all of the graphics characters available:

10LPRINT CHR5(27) ; “0”;

20LPRINT. CHR$(27) ; “6” ;

30 FOR J=3 TO 6

40 LPRINT. ” “;J;CHR$(Jl;CHR$t9):

50 NEXT J

60LPRINT ” 21 “;CHR5(21)

70 LPRINT

80 FOR J=128 TO 254 STEP 5

90 FOR I=J TO Jt4

100IF I>254 THEN 140

110 LPRINT I;CHR$(I);CHR$t91;

120NEXT I

130 LPRINT :LPRINT

140 NEXT J

Figure 6-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. You can get the correct printout by changing line

110 to this:

110LPRINT I;CHR5(27);“>“;CHR$(I);CHR$(27);”=”; CHR5(9) ;

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

10 LPRINT CHR5(27) ; “6’;;

20 LPRINT CHR5(218);CHR$(l96);CHR5(196); CHR$(l96);CHR$(196);CHR$(l96);CHR$(191)

33 LPRINT CHR$(179);CHR$(53);CHR5(32);CHR$(32); CHR$(32);CHR$(32);CHR$(1791

40 LPRINT CHR$(1791;CHR5(32);CHR$(5);CHR5(32); CHR$(5);CHR$(32);CHR$(l79)

50 LPRINT CHR5(179);CHR5(32);CHR5(32);CHR5(5):

CHR$(32);CHR$(32);CHR5(179)

60 LPRINT CHR$(179);CHR5(32);CHR$(5);CHR$(32); CHR$(5);CHR$(32);CHR$(l79)