NEW

10 LPRINT CHR$(27) "0"

20 LPRINT CHR$(27) "6"

30 FOR J = 3 TO 6

40 LPRINT " " J CHR$(J) " 'I;

50NEXT

60 LPRINT " 21 " CHR$(21)

70 LPRINT

80 FOR J = 128 TO 254 STEP 10

98 FOR I = J TO J + 9

95 IF I > 254 THEN 110

188 LPRINT I CHR$(I) " ";

110 NEXT I : LPRINT : LPRINT : NEXT J

Figure 8-2 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 100 to this:

I@$?LPRINT I CHR$(27) I'>"CHR$(I) CHR$(27) "="

CHR$(9);

nInternational character sets

 

Table 8-5

 

International

character

set commands

Country

Mode

Control code

U.S.A.

STAR

< ESC > “7” CHR$(O)

 

IBM

< ESC > “R” CHR$(O)

France

1STAR / < ESC > “7” CHR$(l)

 

IBM

< ESC > “R” CHR$(l)

Germany

STAR

< ESC > “7” CHR$(2)

 

IBM

< ESC >

“R” CHR$(2)

England

STAR

< ESC >

“7” CHR$(3)

.-

-

 

IBM

< ESC > “R” CHR$(3)

Denmark

STAR

< ESC >

“7” CHR$(4)

 

IBM

< ESC >

“R” CHR$(4)

Sweden

STAR

< ESC >

“7” CHR$(S)

 

IBM

< ESC >

-

 

“R” CHR$(S)

Italy

STAR

< ESC >

“7” CHR$(6)

 

IBM

< ESC >

“R” CHR$(6)

Spain

STAR

< ESC >

“7” CHR$(7)

 

1IBM

1 < ESC >

“R” CHR$(7)

76

Page 84
Image 84
Star Micronics SB-15 International character sets, ESC 7 CHR$O, Esc R Chr$O, 1STAR / ESC 7 CHR$l, ESC R CHR$l, ESC 7 CHR$2