Star Micronics Delta User Manual page 50

.-
38
Delta User's Manual
1140
fllllll'SP~CIA~ PRINT ~~~~~Ill,llllllllllIt
1151a
EMPHASIZED$ = CHR$(27) + CHR$(69)
116g NOT.EMPHASIZED$ = CHR$(27) + CHR$('I@)
11.7g
DOUBLE.STRIKE$ = CHR$(27) + CHR$(71)
1180 NOT.DOUBLE.STRIKE$ = CHR$(27) + CHR$(72)
1190
UNDERLINED$ = CHR$(27) + CHR$(45) +
CHR$(l)
12pl0 NOT.UNDERLINED$ = CHR$(27) + CHR$(45) +
CHR$(0)
1210 SUPERSCRIPT$ = CHR$(27) + CHR$(83) +
CHR$(0)
1220 SUBSCRIPT$ = CHR$(27) + CHR$(83) +
CHR$(l)
1230
NOT.SCRIPTED$ = CHR$(27) + CHR$(84)
1240 RESET.ALL$ = NOT.EMPHASIZED$ + NOT.UNDERLINED$
+ NOT.DOUBLE.STRIKE$
1250 RESET.ALL$ = RESET.ALL$ + ROMAN$ + PICA$ +
NOT.ENLARGED$
1260 IlllllllllltlllI~~~~~~~~~l"ll"l,lf'll"l,'
1270 TRUE = 1 :FALSE = 0
1280 REGULAR.HEADING$ = STRING$(27,"*") + "REGULAR"
+ STRING$(27,"*")
1290 RETURN
2000
,r,,,11l1,lll,111l111llr1l1ll,l1l,,r11lf1111
2010
I
1
2020
1
PRINT HEADING '
2030
'
1
2040
,,1l,,11l111r1111l111ll11ll1!1l11,11l111rlll
2050 LPRINT RESET.ALL$
2060 LPRINT ENLARGED$ lr NORMAL ENLARGED lr
2070 LPRINT RESET.ALL$;
2080 LPRINT UNDERLINED$;
2090 LPRINT CONDENSED$ "CONDENSED I';
2100 LPRINT ELITE$ " ELITE I';
2110 LPRINT PICA$ " PICA I';
2120 LPRINT CONDENSED$ "CONDENSED ";
2130 LPRINT ELITES " ELITE 'I;
2140 LPRINT PICA$ " PICA "
2150 LPRINT RESET.ALL$
2160 RETURN
3000
,,ll,1llrl,11,l,l11l1ll,l1l,1l1l11r11,1,1fl
3010 ' '
3020 '
PRINT FOUR LINES
,
3030 ' '
3040
,111,l,,,,,,,ll,,,1!1~1111,1111,1l1111f1111
-
-.
-
-
-
-