Table of Contents
Advertisement
Example: Assigning font numbers
Now let's do a
program in BASIC.
First we'll assign
font numbers to the
Courier
and Presigeresidentfontsandto a cartridgefont,IBMPC Courier.
Then we'll print samplesof each font.
100
LPRINTCHR$ (27) ; "
(8U" ;
110
LPRINTCHR$ (
27 ) ; " ( sOp10h12vOs Ob3T" ;
120 LPRINT CHR$( 15) ;
130 LPRINT CHR$(27) ; "*cID"
;
140 LPRINT CHR$( 27 ) ; "*c6F"
;
150 LPRINT CHR$( 27 ) ; " ( 8u" ;
160 LPRINT CHR$(27) ; " (sOp12h10vOsOb8T"
;
170 LPRINT CHR$(15) ;
180 LPRINT CHR$(27) ; "*c2D"
;
190 LPRINT CHR$(27) ;"*c6F"
;
200 LPRINT CHR$(27);''(1OU"
;
210 LPRINT CHR$(27) ;''(soplOhl2vOsOb3T'"
;
220 LPRINT CHR$(15);
230 LPRINT CHR$(27) ;"*c3D";
240 LPRINT CHR$(27);
''*C6F" ;
250 LPRINT CHR$(27) ;"(lX";
260 LPRINT "Font
1 - Resident
Courier"
270 LPRINT CHR$(27);
''(2X"
;
280 LPRINT "Font
2 - Resident
Prestige"
29Q LPRINT CHR$(27);
''(3X"
;
300 LPRINT "Font
3 - Cartridge
PC Courier"
310 LPRINT CHR$(27);
''(1X"
;
320 LPRINT CHR$(12)
Line 100and 110 calls the internalCourierfontand line 120makes itthe
pnmaryfont. Line 130 gives it font ID number l, and line 140 makesit
temporary.
Lines 150through190dothe samethingforthePrestige fon~andlines200
through240forthccartridgcfont NoticethatthccartridgefonthastheIBM
symbolset code 10U.
Lines250through300printout samplesofthethreefonts.Finally, line310
resetsthedefaulttoourintemal Counerfont,andline320performsthefinal
form feed to printthe page.
84
Advertisement
Table of Contents
