Star Micronics XB24-15 Printer User Manual


 
1880 GOSUB 3020
1890 LPRINT E$;"SO";
1900 LPRINT E$;"%l";
1910 FOR I=1 TO
5
1920 LPRINT CHR$(60);
1930 NEXT I
1940 LPRINT E$;"%O";
1950 LPRINT E$;"T";
1960 GOSUB 3150
1970 LPRINT E$;"%l";
1980 FOR I=1 TO
5
1990 LPRINT CHR$(60);
2000 NEXT I
2010 LPRINT E$;"%O";
2020 GOSUB 3020
2030 LPRINT E$;"Sl";
2040 LPRINT E$;"%l";
2050 FOR I=1 TO
5
2060 LPRINT CHR$(60);
2070 NEXT I
'Select superscript
'Select download character
'Print download character
'Select normal character
'Cancel superscript
'Select download character
'Print download character
'Select normal character
'Select subscript
'Select download character
'Print download character
2080 LPRINT E$;"%O";
'Select normal character
2090 LPRINT E$;"T"
'Cancel subscript
2100 LPRINT H$;C$;"Dot graphics:";CHR$(13);
2110 DIM LOG0$(4)
2120 RESTORE 4230
2130 FOR ROW=1 TO 4
2140 FOR COL=l TO 65
2150 READ GD
2160 LOGO$(ROW)=LOGO$(ROW)+CHR$(GD)
2170 NEXT COL
2180 NEXT ROW
2190 LPRINT E$;"A";CHR$(8);
'Set 8/60" line spacing
2200 FOR ROW=1 TO 4
2210 LPRINT II
2220 FOR B=O TO ;'
2230 IF B=2 THEN 2280
2240 IF B=5 THEN 2280
2250 LPRINT E$;"*";CHR$(B);
'Sele
2260 LPRINT CHR$(65);CHR$(O);LOGO$
2270 LPRINT (I ";
2280 NEXT B
2290 LPRINT
ct normal density
(ROW) ;
2300 NEXT ROW
2310 LPRINT ES:"@"
'Init
ialize printer
2320 END " -
3000 '
3010 '
SUBROUTINES
3020 '
Define super/subscript download character
3030 LPRINT E$;"Sl";E$;":"
;CHR$(O);CHR$(O);CHR$(O);
3040 LPRINT E$;"&";CHR$(O);CHR$(60);CHR$(60);
3050 RESTORE 4020
3060 READ LS :LPRINT CHR$(LS);
3070 READ CW :LPRINT CHR$(CW);
3080 READ RS :LPRINT CHR$(RS);
30.90 FOR M=l TO CW*2
3100 READ MM
3110 LPRINT CHR$(MM);
98