Table of Contents
Advertisement
70
Radix User's Manual
460 GOSUB 540 'Print four lines double strike.
470 LPRINT "*EMPHASIZED*"
480 EMPHASIZED = TRUE
490 GOSUB 540 'Print four lines emphasized.
500 LPRINT "*DOUBLE STRIKE & EMPHASIZED*"
510 LPRINT DOUBLE.STRIKE$ EMPBASIZED$;
520 GOSUB 540 'Print double strike & emphasized.
530 Em
540 '
550 'Subroutine to print four lines.
560 'Each shows NLQ, also the three different pitches
570 'are shown in normal and expanded.
580 'Roman, roman underlined, italic, and italic
underlined.
590 '
600 ITALICS
= FALSE
610 UNDERLINED = FALSE
620 EXPANDED = FALSE
630 PICA
= FALSE
640 '
:LPRINT ROMAN$ ;
:LPRINT NOT.UNDERLINED$ ;
:LPRINT NOT.EXPANDED$ j
650 'Produce a line in four different pitches.
660 IF EXPANDED THEN 720
670 IF ITALICS THEN LPRINT ".... " ; : GOT0 720
680 IF DS.OR.EMP THEN LPRINT ".... " ; : GOT0 720
690 LPRINT NLQ$ ; : NLQ = TRUE
700 GOSUB 860
'Print near-letter-
quality.
710 LPRINT NOT.NLQ$ ; : NLQ = FALSE
720 LPRINT CONDENSED$ ;
730 GOSUB 860
'Print condensed.
740 LPRINT ELITE$ ;
.750 GOSUB 860
'Print elite.
760 LPRINT PICA$ j : PICA = TRUE
770 GOSUB 860
'Print pica.
780 '
790 'See what has just been done and prepare for next
-
line.
800 IF EXPANDED = TRUE THEN LPRINT :GOTO 820
810 LPRINT EXPANDED$; :EXPANDED = TRUE :GOTO 630
820 IF UNDERLINED = TRUE THEN LPRINT :GOTO 840
830 LPRINT UNDERLINED$; :UNDERLINED = TRUE :GOTO 620
840 IF ITALICS = TRUE THEN LPRINT RESET.ALL$ :RETURN
850 LPRINT ITALIC$; :ITALICS = TRUE :GOTO 610
860 '
Advertisement
Table of Contents
