that are used in different countries. These international characters can be accessed with:

LPRINT CHR$(27)"R"CHR$(n);

where n is a number from zero to eight. The ESCape “R” sequence selects one of these nine countries:

0

USA

3

United

Kingdom 6

Italy

1

France

4

Denmark

7

Spain

2

Germany

5

Sweden

8

Japan

Once you have selected a country, you can use its special characters.

Choosing a new international character set, however, does not give you a completely new set of 256 characters. There are 64 international characters stored in the ROM, 32 in Roman and 32 in Italic typeface, and of these you can only use 12 characters at a time. Each set of 12 is stored as the following ASCII numbers:

35, 36, 64, 91, 92, 93, 94, 96, 123, 124, 125, 126

The next program selects each of the international character sets in turn. When you RUN it, the printout (shown here as Table 6-2)displays the special symbols of each set (if you have problems, consult Appendix F).

NEW

10 DIM ARRAY (12): LPRINT CHR$(27)"M"

20

LPRINT CHR$(27)"D"CHR$(l0)CHR$(0)

30 LPRINT

CHR$(137);

40 LPRINT

“35 36 64 91 92 93 94 96

 

123

124

125

126"

50 FOR X=1 TO 12: READ ARRAY(X): NEXT X

60

DATA

35,36,64,91,92,93,94,96,123,124,125,126

70

FOR Y=0 TO 8: LPRINT CHR$(27)"R"CHR$(Y);

80

READ C$: LPRINT C$CHR$(137)CHR$(14);

90

FOR X=1 TO 12: LPRINT CHR$(ARRAY(X))

100 NEXT X: LPRINT: NEXT Y

110

DATA

"USA","FRANCE","GERMANY","U.K.","DENMARK"

120

DATA

"SWEDEN","ITALY","SPAIN","JAPAN"

130

LPRINT

CHR$(27)"@"

There are a few items in the program that haven’t been covered yet; we’ll cover them later. The important thing now is to understand how you can use the CHR$(27)“R” to gain access to the international characters.

86