Star Micronics Multi-Font NX-2415 User Manual page 98

-
1730 LPRINT E$;"Sl";"SVBSCRIPT";E$;"T";", "
1740 LPRINT H$:C$;"Download characters: ":
-..
1750 LPRINT E$;"SO";
'Select superscript
1760 GOSUB 2130
1770 LPRINT E$;"%l";
'Select download character
1780 FOR I=1 TO 5
1790 LPRINT CHR$(60);
'Print download character
1800 NEXT I
1810 LPRINT E$;"%O";
'Select normal character
-
1820 LPRINT E$;"T";
'Cancel superscript
1830 GOSUB 2260
1840 LPRINT E$;"%l";
'Select download character
-
1850 FOR I=1 TO 5
1860 LPRINT CHR$(60);
'Print download character
1870 NEXT I
1880 LPRINT E$;"%O";
--
'Select normal character
1890 LPRINT E$;"Sl";
'Select subscript
1900 GOSUB 2130
1910 LPRINT E$;"%l"*
'Select download character
1920 FOR I=1 TO 5 '
1930 LPRINT CHR$(BO);
'Print download character
1940 NEXT I
-
1950 LPRINT E$;"%O";
'Select normal character
1960 LPRINT E$;"T"
'Cancel superscript
1970 LPRINT H$;C$;"Dot graphics:"
1980 RESTORE 2560
-
1990 LPRINT E$;"A";CHR$(B):
'Set 8/60" line spacing
2000 FOR I=1 TO 3
2010 LPRINT E$;"fO";CHR$(B):
-
2020 LPRINT E$;"*";CHR$(33):CHR$(24O):CHR$(O);
2030 FOR J=l TO 240*3
2040 READ DAT
.-
2050 LPRINT CHR$(DAT);
2060 NEXT J
2070 LPRINT
2080 NEXT I
2090 LPRINT ES;"@"
'Initialize printer
2100 END
2110 '
2120 ' SUBROUTINES
2130 ' Define super/subscript download character
2140 LPRINT E$;"Sl":
-
2150 LPRINT E$;"&";CHR$(0);CHR$(60);CHR$(60);
2160 RESTORE 2400
2170 READ LS :LPRINT CHR$(LS);
2180 READ CW :LPRINT CHR$(CW);
-
2190 READ RS :LPRINT CHR$(RS);
-'
2200 FOR M=l TO CW'2
2210 READ MM
-
2220 LPRINT CHR$(MM):
2230 NEXT M
2240 RETURN
-
2250 '
2260 ' Define LQ pica download character
2270 LPRINT C$;
2280 LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60);
-
2290 RESTORE 2470
2300 READ LS :LPRINT CHR$(LS);
2310 READ CW :LPRINT CHR$(CW);
-
2320 READ RS :LPRINT CHR$(RS);
2330 FOR M=l TO CW*3
2340 READ MM
-
2350 LPRINT CHR$(MM):
90
-