Table of Contents
Advertisement
1100
' Start
printing
1110 WIDTH
"LPT1:",255
1120 LPRINT
E$;"D";CHR$(3);CHR$(24);CHR$(O)
'Set HT
1130 LPRINT
C$:"Font
styles
are:"
1140 LPRINT
H$;D$;"Draft
characters,";
1150 LPRINT
HS:CS:"Courier
characters."
1160 LPRINT
H$jP$:"Prestige
characters,";
1170 LPRINT
H$;O$;"Orator
characters,"
1180 LPRINT
H$;S$;"Script
characters,"
1190 LPRINT
E$;"4";
'Select
italics
1200 LPRINT
H$;D$;"and
";C$:"italics
";P$;"for
":
1210 LPRINT
O$:"all
";S$:"styles."
1220 LPRINT
E$;"S"
'Cancel
italics
1230 LPRINT
C$:"Print
pitches
are:"
1240 LPRINT
H$;PI$;"Pica
pitch
(10 CPI),";
1250 LPRINT
H$:E$;"H":"Elite
pitch
(12 CPI),"
1260 LPRINT
H$;E$;"g";
"Semi-condensed
pitch
(15 CPI),":
1270 LPRINT
H$;PI$;
1280 LPRINT
CHR$(15);
'Select
condensed
print
1290 LPRINT
"Condensed
pica
pitch
(17 CPI),"
1300 LPRINT
H$*E$"'li"*
1310 LPRINT
CHR$(;8)
'
"Condensed
elite
pitch
(20 CPI),";
'Cancel
condensed
print
1320 LPRINT
H$;E$;"pl";
'Select
proportional
spacing
1330 LPRINT
PI$;"Normal
proportional,";
1340 LPRINT
H$;CHR$(15);"And
condensed
proportional.";
1350 LPRINT
CHRC(18);
1360 LPRINT
E$;"pO"
'Cancel
proportional
spacing
1370 LPRINT
1380 LPRINT
H$.E$*"wl
"."Double-height,";ES;"wO"
1390 LPRINT
HSIESI"Wl"I"Double
width.
":ES:"WO"
1400 LPRINT
H$iCti$(28j;0'Et';CHR$(2);;1Tripie
width,";
1410 LPRINT
CHR$(28);"E";CHR$(O)
1420 LPRINT
H$;E$;"h":CHR$(l);"Double-sized,"
1430 LPRINT
H$:E$:"h";CHR$(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:"
1480 LPRINT
E$;"al"
'Center
text
1490 FOR
I=1 TO 7
1500 LPRINT
E$;"A";CHR$(I);
'Line
spacing
set
1510 LPRINT
ES;"
";CHR$(I);
'Increase
character
space
1520 LPRINT
"THE SPACINGS
ARE CHANGED"
1530 NEXT
I
1540 FOR
I=6 TO 1 STEP
-1
1550 LPRINT
E$:"A":CHR$(I);
'Line spacing
set
1560 LPRINT
ES:"
";CHR$(I):
'Increase
character
space
1570 LPRlNT
"THE SPACINGS
ARE CHANGED"
1580 NEXT
I
1590 LPRINT
E$:"aO"
'Left
justify
1600 LPRINT
E$;"3";CHR$(30);
'Set l/6"
line
spacing
1610 LPRINT
ES;"
";CHR$(O);
'Normal
character
space
1620 LPRINT
:LPRINT
1630 LPRINT
CS:"Other
features:"
1640 LPRINT
H~~E$:"q";CHR$(l):"OUTLINED";E$;"q";C~$(O);",
";
1650 LPRINT
E$;"q";CHR$(2);"SHADCWED";E$;"q";CHR$(O);",
";
1660 LPRINT
E$:"q";CHR$(3);'OUTLINED
WITH
SHADOWED":
1670 LPRINT
ES:"o":CHRS(O):".
"
1680 LPRINT
H$.E$'"E"." 'Emphasized";E$;"F";",
a*;
1690 LPRINT
E$, :"&;
"Dbuble-strlke";E$;
"H";",
44;
1700 LPRINT
ES:"-l";"Underlining";E$;"-O";",
"
1710 LPRINT
H$;E$;"
l";"Overlining";E$;"
O";",
";
1720 LPRINT
E$;"SO"T"SUPERSCRIPT";E$:"T"T"
and
";
89
Advertisement
Table of Contents
