NEW

 

 

20

Y$(1)="SINGLE-STRIKE

Y$(2)="SNGL-STRIKE

 

EMPHASIZED

"

 

30

Y$(3)="DOUBLE-STRIKE

Y$(4)="DBL-STRIKE

 

EMPHASIZED

"

 

40 Z$(1)="PICA

Z$(2)="ELITE :

 

Z$(3)="COMPRESSED

 

50, FOR X=1 TO 2

 

60

FOR Y=1 TO 4

 

70

FOR Z=1 TO 3

 

80

READ N: IF N<0 THEN 130

 

90

LPRINT CHR$(27)"!"CHR$(0);: IF N<10 THEN LPRINT

"" ;

95 ' OK to substitute CHR$(2) for CHR$(0)l00 LPRINT N; CHR$(27)"!"CHR$(N);110 LPRINT Y$(Y);: IF X=2 THEN LPRINT "EXPANDED "; 120 LPRINT Z$(Z)130 NEXT Z: NEXT Y: NEXT X140 LPRINT CHR$(27)"!"CHR$(0)150 DATA 0,1,4,8,-1,-1,16,17,20,24,-1,-1

160 DATA 32,33,36,40,-1,-1,48,49,52,56,-1,-1

Figure 5-1. Master Select Program

If you want to see this in underlined Italic add the following line:

10 LPRINT CHR$(27)"-1"CHR$(27)"S0"CHR$(27)"4";

Now when you want to use Double-Strike Emphasized Expanded Pica, you do not have to type out the long sequence:

LPRINT CHR$(27)"G"CHR$(27)"E"CHR$(27)"W1"

since you can get the same result by using:

LPRINT CHR$(27)"!"CHR$(56)

or even (after consulting the ASCII table for the equivalent of 56):

LPRINT CHR$(27)"!8"

Because this latter format is the ultimate in simplicity, we use it in Table 5-1below. You can find the Master Select code for any valid combination of pitch and weight by reading across in the row for the pitch you have selected and down in the column for the weight you want. Where the two intersect you will find the ASCII symbol to use in the simplified format. For example, to combine Compressed with

74