Star Micronics LC24-15 User Manual page 98

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
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300
2310
2320
2330
2340
2350
LPRINT
E$;"Sl ";"SUBSCRIPT";E$;"T";", I(
LPRINT H$;C$;"Download characters: ";
LPRINT E$;"SO";
'Select superscript
GOSUB 2130
LPRINT E$;"%l";
'Select download character
FOR I=1 TO 5
LPRINT CHR$(60);
'Print download character
NEXT I
LPRINT E$;"%O";
'Select normal character
LPRINT E$:"T";
'Cancel superscript
GOSUB 2260
LPRINT E$;"%l";
'Select download character
FOR I=1 TO 5
LPRINT CHR$(60);
'Print download character
NEXT I
LPRINT E$;"%O";
'Select normal character
LPRINT E$;"Sl";
'Select subscript
GOSUB 2130
LPRINT E$* "%l"*
FOR I=1 T6 5 '
'Select download character
LPRINT CHR$(BO);
'Print download character
NEXT I
LPRINT E$;"%O";
'Select normal character
LPRINT E$;"T"
'Cancel superscript
LPRINT H$;C$;"Dot graphics:"
RESTORE 2560
LPRINT E$:"A":CHR$(B):
'Set 8/60" line spacing
FOR I=1 TO 3
LPRINT E$;"fO";CHR$(B):
LPRINT E$;"*":CHR$(33):CHR$(240);
FOR J=l TO 240*3
READ DAT
LPRINT CHR$(DAT);
NEXT J
LPRINT
NEXT I
LPRINT ES;"@" 'Initialize printer
END
' SUBROUTINES
' Define super/subscript download character
LPR,INT E$;"Sl";
LPRINT E$:"&~;CHR$(O);CHR$(6O):CHR$(60);
RESTORE 2400
READ LS :LPRINT CHR$(LS);
READ CW :LPRINT CHR$(CW);
READ RS :LPRINT CHR$(RS);
FOR M=l TO CW*2
READ MM
LPRINT CHR$(MM):
NEXT M
RETURN
' Define LQ pica download character
LPRINT C$:
LPRINT E$;"&":CHR$(O);CHR$(60);CHRSo;
RESTORE 2470
READ LS :LPRINT CHR$(LS);
READ CW :LPRINT CHR$(CW);
READ RS :LPRINT CHR$(RS);
FOR M=l TO CW*3
READ MM
LPRINT CHR$(MM);
90