Table of Contents
Advertisement
'Set HT
1100
' Start
printing
1110 WIDTH
"LPT1:",255
1120 LPRINT
E$;"D";CHR$(3):CHR$(24);CHR$(O)
1130 LPRINT
C$; "Font
styles
are:"
1140 LPRINT
H$;D$;"Draft
characters,":
1150 LPRINT
H$;C$;"Courier
characters,"
1160 LPRINT
H$:P$;"Prestige
characters,";
1170 LPRINT
H$;O$;"Orator
characters,"
1180 LPRINT
H$;S$; "Script
characters,"
1190 LPRINT
E$;"4";
'Select
ital
1200 LPRINT
H$*D$*"and
";C$;"italics
":P$;"for
";
,
I
1210 LPRINT
O$;"ali
";S$;"styles."
1220 LPRINT
E$;"S"
'Cancel
ital
1230 LPRINT
C$:"Print
pitches
are:"
1240 LPRINT
H$:PI$;"Pica
pitch
(10 CPI),";
1250 LPRINT
H$:E$:"M";"Elite
pitch
(12 CPI),"
its
its
1260 LPRINT
H$;E$;"g";"
Semi-condensed
pitch
(15 CPI),";
1270 LPRINT
H$;PI$;
1280 LPRINT
CHR$(lS);
'Select
condensed
pr ,i
1290 LPRINT
"Condensed
pica
pitch
(17 CPI),"
1300 LPRINT
H$,E$-"M"
1310 LPRINT
CH&(;S)
*"Condensed
elite
pitch
(20 CPI),";
'
'Cancel
condensed
pr ,i
1320 LPRINT
H$;E$;"pl";
'Select
proportional
1330 LPRINT
PI$:"Normal
proportional,";
1340 LPRINT
H$:CHR$(lS);
"And condensed
proportional.";
1350 LPRINT
CHR$(lS):
1360 LPRINT
E$;"pO"
'Cancel
proportional
1370 LPRINT
1380 LPRINT
H$;E$;"wl";"Double-height,":E$:"wO'
1390 LPRINT
H$;E$;"Wl";"Double
width,
";E$;"WO"
1400 LPRINT
H$;CHR$(28);
"E";CHR$(2);"Triple
width,";
1410 LPRINT
CHR$(28);"E":CHR$(O)
1420 LPRINT
H$;E$;"h";CHR$(l);"Double-sized,"
1430 LPRINT
H$;E$:"h":C!HR$(2);"Quad-sized.";
1440 LPRINT
E$;"h";CHR$(O)
1450 LPRINT
:LPRINT
1460 LPRINT
E$;"Q";CHR$(47)
'Set right
margin
1470 LPRINT
C$;"Various
line and
character
spacings:"
'Center
text
'Line
spacing
set
ARE CHANGED"
'Increase
character
space
1480 LPRINT
E$;"al"
1490 FOR
I=1 TO 7
1500 LPRINT
E$;"A";CHR$(I
1510 LPRINT
ES;"
";CHR$(I
1520 LPRINT
"THE SPACINGS
1530 NEXT
I
1540 FOR
I=6 TO 1 STEP
-1
1550 LPRINT
E$;~~A~*;cHR$(I
1560 LPRINT
ES;"
";CHR$(I
1570 LPRINT
"THE SPACINGS
1580 NEXT
I
'Line
spacing
set
;\RE CHANGED"
'Increase
character
space
nt
nt
spacing
spacing
1590 LPRINT
E$;."aO"
1600 LPRINT
E$;"3";CHR$(30);
'Left
justify
'Set l/6"
line
spacing
1610 LPRINT
ES;"
";CHR$(O);
'Normal
character
space
1620 LPRINT
:LPRINT
1630 LPRINT
C$; "Other
features:"
1640 LPRINT
H$;E$;"q";CHR$(l);"OUTLINED";~$;"q";CHR$(O);",
";
1650 LPRINT
E$;"q";CHR$(2);"SHADOWED":E$;"q";CHR$(O);",
";
1660 LPRINT
E$;"q";CHR$(3):"OUTLINED
WITH
SHADOWED";
1670 LPRINT
E$;"q";CHR$(O);",
"
1680 LPRINT
H$;E$;"E";"Emphasized";E$:"F";",
";
1690 LPRINT
E$;"G";"Double-strike";E$:"H";",
";
1700 LPRINT
ES;"-l";"Underlining";E$;"-O";",
I(
1710 LPRINT
H$;E$;"
l";"Overlining";E$;"
O";",
";
1720 LPRINT
E$;"SO"j"SUPERSCRIPT";E$;"T"i"
and
";
89
Advertisement
Table of Contents
