Table of Contents
Advertisement
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
17E0
1790
1800
1810
1820
1830
1840
1850
1860
1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2500
2510
2520
2530
2540
2550
2560
2570
2580
LPRINT E$; ''aO"
'Left
justify
LPRINT E$ : "3" :CHR$ (30) :
'Set
1/6"
line
spacing
LPRINT E$; " " :CHR$ (0):
'Normal
character
space
LPRINT :LPRINT
LPRINT RM$;''Other
features:"
LPRINT H$;E$; ''q" :CHR$(l)
;"OUTLINED"; E$;''q'':CHR$
(0);",
";
LPRINT E$; ''q" :CHR$(2) ;VSHADOWED" ; E$; uq";CHR$ (O):",
":
LPRINT E$; "q'':CHR$(3)
; "OUTLINED WITH SHADOWED";
LPRINT E$; ''q'' ;CHR$(0) :",
"
LPRINT H$;E$; "E";"
Emphasized"
;E$; "F"",
";
LPRINT E$; ''G" ;''Doublstrike";";
E$; "H":",
":
LPRINT E$:"4''
:NItalicsu:E$:"5°
;",
u
LPRINT H$;E$:"-
I"; UUnderliningU;E$
:"-0"",
":
LPRINT E$; "(-";CHR$(3)
:CHR$(0):CHR$(l)
;CHR$(2);CHR$(2)
:
LPRINT "Strike-through"
;
LPRINT E$; "(-";CHR$
(3):CHR$(0)
:CHR$(l):
LPRINT E$; U(-";CHR$ (3);CHR$(0)
;CHR$(l):
LPRINT 'Overlinimg":
LPRINT E$:"(-"
LPRINT H$;E$; "SO '; "SUPERSCRIPT"
;E$:UT";"
and ":
LPRINT E$;"S1 ";" SUBSCRIPT'':E$:
"T";",
"
LPRINT H$:RM$:"Download
characters:
'i:
Ss!
GO!
1,P1
CHR$(2);
CHR$(3);
CHR$
CHR$
(0);"
(l);
.... ... ,
';CHR$(3) ;CHR$(0):CHR$ (1);CHR$(3) ;CHR$(0):U, "
. . . ... ....... ,
$=E$+"SOM
SUB 2520
-.RINT
E$; ''%l";
FOR 1=1 TO 5
LPRINT CHR$(60);
NEXT I
LPRINT E$; "%OU:
LPRINT E$;"T";
GOSUB 2650
LPRINT E$; "%l";
FOR 1=1 TO 5
LPRINT CHR$(60);
NEXT I
'Superscript
'Select
download
character
'Print
download
character
'Select
normal
character
'Cancel
superscript
'Select
download
character
'Print
download
character
LPRINT E$:"%O";
'Select
normal
character
SS$=E$+"SIU
'Subscript
GOSUB 2520
LPRINT E$; "%l";
'Select
download
character
FOR 1=1 TO 5
LPRINT CHR$(60);
'Print
download
character
NEXT I
LPRINT E$; "%O";
'Select
normal
character
LPRINT E$;"T"
'Cancel
superscript
LP~INT H$;RM$:"Dot
graphics:"
RESTORE 3170
LPRINT E$; UA":CHR$(8) ;
'Set
8/60"
line
spacing
FOR 1=1 TO 3
LPRINT E$:"fOU;~HR$(8):
LPRINT E$: "*" ;CHR$(33) ;CHR$(240)
;CHR$(0):
FOR J=l
TO 24083
READ DAT
LPRINT CHR$(DAT):
NEXT J
LPRINT
NEXT I
LPRINT E$;U@H
END
' SUBROUTINES
Define
super/subscript
downl
(60)
Initialize
printer
oad character
'Select
super)
;CHR$(60);
'subs cript
136
Advertisement
Table of Contents
