..
b.
i
i
. .
1.
Printing Text With Delta 39
3050 ITALICS = FALSE
3060 UNDERLINED = FALSE
NOT.UNDERLINED$;
:LPRINT ROMAN$;
:LPRINT
3070 ENLARGED = FALSE :LPRINT NOT.ENLARGED$;
3080 PICA = FALSE
3090 IIIIII~~~II~~~RINT PI~CHESftlfl~fff~~flfffl
3100 LPRINT CONDENSED$;
3110 GOSUB 3500 'PRINT AS REQUIRED
3120 LPRINT ELITE$;
3130 GOSUB 3500 'PRINT AS REQUIRED
3140 LPRINT PICA$; :PICA = TRUE
3150 GOSUB 3500 'PRINT AS REQUIRED
3160 '~~"""SEE WHAT HAS BEEN D0NE""""""
3170 IF ENLARGED = TRUE THEN LPRINT :GOTO 3190
'CHECK IF UNDERLINED
3180 LPRINT ENLARGED$; :ENLARGED = TRUE :GOTO 3080
'ELSE CONTINUE LINE
3190 IF UNDERLINED = TRUE THEN LPRINT :GOTO 3210
'CHECK IF ITALICS
3200 LPRINT UNDERLINED~; :UNDERLINED = TRUE :G0~0
3070 'ELSE PRINT UNDERLINE
3210 IF ITALICS = TRUE THEN LPRINT RESET.ALL$
:RETURN
3220 LPRINT ITALICS; :ITALICS = TRUE :GoTo 3060
'REPEAT WITH ITALICS
3500 111!1l1ll111111ll,1l1ll11ff111ll1ll11l1lflll
3510 ’ 1
3520 ’ PRINT AS REQUIRED 1
3530 ' I
3540 l1l1ll111!rl11ll11llllllllll1ll1lllll11111l1
3550 BLANK$ = STRING$(6,32) :FOUR.DOT$ = "...."
3560 IF EMPHASIZED = FALSE THEN LPRINT "ABcd";
:GOTO 3610
3570 IF PICA = FALSE THEN LPRINT FOUR.DOT$;
:GOTO 3590
3580 LPRINT EMPHASIZED$ "ABcd" ;
3590 IF ENLARGED = TRUE THEN LPRINT 11 ";
:ELSE LPRINT BLANK$;
3600 RETURN
3610 llllft~~lfl~~~~~~~~~~ = FA~SElf"llllflll"
3620 IF ENLARGED = TRUE THEN LPRINT v ";
:RETURN
3630 LPRINT SUPERSCRIPT$; "Xx";
3640 LPRINT SUBSCRIPT$; "YY " ;
3650 LPRINT NOT.SCRIPTED$;
3660 RETURN