PSB No: P-0082

Page: 11 of 14

page contains a print sample of the Registered Tables available in printers sold in the U.S. In order to print the first 31 characters in Tables 1 through 9, the ESC ( h command must be sent.

Listed below is a Basic language program and an explanation of the program that will print the output illustrated on page 13 of this bulletin.

10FOR Z=l TO 6

20READ Y,Y$

30 LPRINT “Table”;Y;” “;Y$

40 LPRINTCHR$(27);“(t”;CHR$(3);CHR$(O);CHR$(O);CHR$(Y);CHR$(O);

50LPRINTCHR$(27);“t”;CHR$(O)

60IF Y=O THEN GOT0 100

70LPRINT CHR$(27);“( h “;CHR$(31);CHR$(O);

80FOR X=1 TO 255:LPRlNT CHR$(X);:NEXT X

90GOT0 120

100FOR X=33 TO 126:LPRINT CHR$(X);:NMT X

110FOR X=161 TO 254:LPRlNT CHR$(X);:NEXT X

120LPRINT CHR$(lO):LPRINT CHR$(lO) 13ONEXTZ

140DATA O,ttalic,l ,PC437 (US),3,PC850 (Intemational),7,PC860 (Portugal)

150DATA 8, PC863 (Canada-French),S,PC865 (Norway)

Program Description

10 Begin loop to print the 6 Registered Tables

20Read Registered Table number and Table Name

30Print Registered Table number and Table Name

40Send the Assign Character Table command to the printer assigning the Registered Character Table read in line 20 to Selectable Character Table 0.

50Send the Select Character Table command to the printer selecting Selectable Table number 0 as the current Character Table for printing.

60 If the Registered Character Table number is 0, do not execute commands in lines 70 through 90. This is because the Italic Character Table duplicates control codes and non-displayable characters in ASCII values 127 through 160. Program lines 100 and 110 prevent the attempted printing of this range of ASCII values.

Note: tines 70 through 90 will execute ONLY if the Registered Character Table to be printed is NOT table number 0. Refer to the conditional command in line 60.

70tf the Registered Character Table number is not 0, send the Print Data as Characters command to the printer. Speckally, this command, as listed, tells the printer to print the next 31 bytes as data, not control codes.