Filter
Top Products
I
1540
1550
1560
1570
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
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
LPRI NT
LPRINT
LPRINT
NEXT I
LPRINT
LPRINT
LPRINT
LPRI NT
LPRINT
LPRINT
LPRI NT
LPRI NT
LPRINT
LPRINT
LPRINT
LPRI NT
LPRINT
LPRI NT
LPRI NT
LPRINT
LPRI NT
LPRINT
LPRI NT
LPRI NT
E$ ; “A“ ; CHR$( I ) ; ‘Line spacing set
E$;” “ ;CHR$(I);
‘Increase character
“THE SPACINGS ARE CHANGED”
space
E$; ’’aOU
‘Left justify
E$; ’’3” ;CHR$(3O);
‘Set 1/6” line spacing
E$;” “;CHR$(0);
‘Normal character space
:LPRINT
RM$; ”Other features:”
H$;E$; ’’q’’ ;CHR$(l) ;”OUTLINED” ;E$; ’’q’’ ;CHR$(0) :”, “:
E$; ”qU;CHR$(2) ;’’SHADOWEDU;E$; ”q’’;CHR$(0) ;”, “;
E$; ”q”;CHR$(3) ;“ OUTLINED WITH SHADOWED”;
E$; ”q”;CHR$(0) ;”, “
H$;E$; ’’E”;” Emphasized’’ ;E$;”F” ;“, “:
E$; ”G”;” Double-strike” ;E$;”H” ;“, “;
E$; ”4’’:’’Ital ic;E$;”$; ” 5“;”, “
H$:E$:’’-l ”: ”Underlining” :E$: ”-0”:”, “:
E$; ’’(:’’ ;cHR$(3);cHR$(oj ;CHR$(1);CHR$(2) ;CHR$(2);
“Strike-through”;
E$; U(-’’;CHR$ (3);CHR$(0) ;CHR$(l) :CHR$(2):CHR$(0)
E$; ”(-’’;cHR$(3) ;cHR$(0) ;cHR$(1);cHR$(3) :CHR$(l)
‘Over lining”;
E$; ”(-’’;CHR$(3) ;CHR$(0);CHR$( I) ;CHR$(3):CHR$(0)
H$:E$:”SO’’ : ’’SUPERSCRIPT” :E$:UTU:” and “:
LPRINT E$; ’’Siti; ”StiBSCRIPT’’;E$ ;“T”:i, “
LPRINT H$:RM$: ’’Download characters: “:
SS$=E$+”~6° “
GOSUB 2520
LPRINT E$; ”%l”;
FOR 1=1 TO 5
LPRINT CHR$(60);
NEXT I
LPRINT E$; ”%O”;
LPRINT E$; ’’TN;
GOSUB 2650
LPRINT E$; ’’%l”:
FOR 1=1 TO 5
LPRINT CHR$(60);
NEXT I
LPRINT E$; ”%OU;
SS$=E$+US1”
GOSUB 2520
LPRINT E$; ”%l”;
FOR 1=1 TO 5
LPRINT CHR$(60);
NEXT I
LPRINT E$; ”%O”;
LPRINT E$;”T”
LPRINT H$;RM$; ”Dot gr~
RESTORE 3170
LPRINT E$; ”A”;CHR$(8)
FOR 1=1 TO 3
‘Superscript
,, !,.
!,
1! ,,
‘Select download character
‘Print download character
‘Select normal character
‘Cancel superscript
‘Select download character
‘Print download character
‘Select normal character
‘Subscript
‘Select download character
‘Print download character
‘Select normal character
‘Cancel superscript
phics: “
‘Set 8/60” line spacing
LPRINT E$; ”fO”;CHR$(8);
LPRINT E$
;“*”;CHR$ (33) ;CHR$(240) ;cHR$(0):
FOR J=l TO 240*3
READ DAT
LPRINT CHR$(DAT);
NEXT J
LPRINT
NEXT I
LPRINT E$;”@”
‘Initialize printer
END
‘ SUBROUTINES
Define super/subscript download character