Star Micronics Delta User Manual page 51

..
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