Filter
Top Products
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