Table of Contents
Advertisement
Printing
Text With Radix
69
40
'Initialize constants.
50 ITALIC$ = CHR$(27) +
"4"
60
ROMAN$ = CHR$(27) +
"5"
70
EXPANDED$ =
CHR$(27)
+ "W" + CHR$(l)
80 NOT.EXPANDED$ = CHR$(27) + "W" + CHR$(@)
90
PICA$
=
CHR$(27)
+ "B" + CHR$(l)
100
ELITE$
=
CHF@(27)
+ "B" + CHR$(2)
110
CONDENSED$ = CHR$(27) + "B" +
CHR$(3)
120
NLQ$
=
CHR$(27)
+ "B" +
CHR$(4)
130
NOT.NLQ$
=
CHFQ(27)
+ "B" +
CHR$(S)
140
EMPHASIZED$
=
CHR$(27)
+ "E"
150 NOT.EMPHASIZED$
=
CHR$(27)
+ "F"
160
DOUBLE.STRIKE$ = CHR$(27) + "G"
170 NOT.DOUBLE.STRIKE$ = CHR$(27) + "H"
180
UNDERLINED$
= CHR$(27) + 11-11 + CHR$(l)
190 NOT.UNDERLINED$
=
CHR$(27)
+ I'-" + CHR$(0)
200
SUPERSCRIPT$ =
CHR$(27)
+
"S" + CHR$(@)
210
SUBSCRIPT$
=
CHFi$(27) + "S" + CHR$(l)
220
NOT.SCRIPTED$
=
CHR$(27) + "T"
230
RE~ET.ALL$ = NOT.EMPHASIZED$ + NOT.UNDERLINED$ +
NOT.DOUBLE.STRIKE$
240 RESET.ALL$ = RESET.ALL$ + ROMAN$ + PICA$ +
NOT.EXPANDED$ + NOT.NLQ$
250
TRUE = 1 :FALSE = 0
260 '
270 '
280 'Print heading.
290 LPRINT RESET.ALL$
300
LPRINT EXPANDED$ "
NORMAL
EXPANDED "
310
LPRINT RESET.ALL$;
320
LPRINT UNDERLINED$ ;
330 LPRINT NLQ$
II NLQ " NOT.NLQ$ ;
340 LPRINT CONDENSED$ "CONDENSED " ;
350 LPRINT ELITE$
" ELITE
" ;
360 LPRINT PICA$
" PICA
" ;
370 LPRINT CONDENSED$ "CONDENSED " ;
380
LPRINT ELITE$
" ELITE
" ;
390 LPRINT PICA$
" PICA
"
400 LPRINT RESET.ALL$
410 LPRINT "*REGULAR*"
420 GOSUB 540 'Print four lines regular.
430 LPRINT "*DOUBLE STRIKE*"
440
LPRINT DOUBLE.STRIKE$;
450 DS.OR.EMP = TRUE
Advertisement
Table of Contents
