Table of Contents
Advertisement
Printing
Text With Radix
71
870 'Print a small sample showing upper case, lower
case.
880 'Also show subscripts and superscripts if
appropriate.
;;; lkANK$ = STRING$(6 32)
:FOUR.DOT$ = "...."
910 IF EMPHASIZED = FALSE THEN LPRINT "ABcd"; :GOTO 970
920 IF PICA = FALSE THEN LPRINT FOUR.DOT$;
:GOTO 940
930 LPRINT EMPHASIZED$ "ABcd" j
940 IF EXPANDED = TRUE THEN LPRINT " ";
:ELSE
LPRINT BLANK$;
950 RETURN
960 '
970 'Handle non-emphasized cases.
980 IF EXPANDED OR NLQ THEN LPRINT " ";
990 LPRINT SUPERSCRIPT$; "Xx";
1000 LPRINT SUBSCRIPT$; "YY " ;
1010 LPRINT NOT.SCRIPTED$;
1020 RETURN
:RETURN
Advertisement
Table of Contents
