Star Micronics XB24-10, XB24-15 user manual 1880

1880	GOSUB 3020	'Selectsuperscript
1890	LPRINT E$;"SO";
1900 LPRINT E$;"%l";		'Selectdownload character
1910	FOR I=1 TO 5	'Printdownload character
1920 LPRINT CHR$(60);
1930 NEXT I		'Selectnormal character
1940	LPRINT E$;"%O";
1950	LPRINT E$;"T";	'Cancelsuperscript
1960	GOSUB 3150	'Selectdownload character
1970	LPRINT E$;"%l";
1980	FOR I=1 TO 5	'Printdownload character
1990	LPRINT CHR$(60);
2000	NEXT I	'Selectnormal character
2010	LPRINT E$;"%O";
2020	GOSUB 3020	'Selectsubscript
2030	LPRINT E$;"Sl";
2040	LPRINT E$;"%l";	'Selectdownload character
2050	FOR I=1 TO 5	'Printdownload character
2060	LPRINT CHR$(60);
2070	NEXT I	'Selectnormal character
2080	LPRINT E$;"%O";
2090	LPRINT E$;"T"	'Cancelsubscript
2100	LPRINT H$;C$;"Dotgraphics:";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); 'Select normal density
2260	LPRINT CHR$(65);CHR$(O);LOGO(ROW)$ ;
2270	LPRINT (I ";
2280	NEXT B
2290	LPRINT
2300	NEXT ROW		'Initialize printer
2310	LPRINT ES:"@"
2320 END		" -
3000	'
3010	' SUBROUTINES
3020	' Define super/subscriptdownload 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 :LPRINTCHR$(LS);

3070 READ CW :LPRINTCHR$(CW);

3080 READ RS :LPRINTCHR$(RS); 30.90FOR M=l TO CW*2

3100 READ MM

3110 LPRINT CHR$(MM);

98