Star Micronics XR-1000 Printer User Manual


 
1870 READ GD
1880 LOGO$(ROW)=LOGO$(ROW)+CHR$(GD)
1890 NEXT COL
1900 NEXT ROW
1910 LPRINT E$;"A";CHR$(B);
'Set a/72" line spacing
1920 FOR ROW=1 TO 4
1930 LPRINT 11 ";
1940 FOR B=O TO 6
1950 IF B=2 THEN 2000
1960 IF B=5 THEN 2000
1970 LPRINT E$;"*";CHR$(B);
'Select normal density
1980 LPRINT CHR$(65);CHR$(O);LOGO$(ROW);
1990 LPRINT u ";
2000 NEXT B
2010 LPRINT
2020 NEXT ROW
2030 LPRINT EL;"@" 'Initialize printer
2040 END
3000 '
3010 ' SUBROUTINES
3020
' Define Draft download character
3030 LPRINT E$;"xO";E$;":";CHR$(O);CHR$(O);CHR$(O);
3040 LPRINT E$;"&";CHR$(O);CHR$(6O~;CHR$(6O~;
3050 RESTORE 4020
3060 READ LS :LPRINT CHR$(LS);
3070 FOR M=l TO 11
3080 READ MM
3090 LPRINT CHR$(MM);
3100 NEXT M
3110 RETURN
3120 '
3130
' Define NLQ download character
3140 LPRINT C$;
3150 LPRINT E$;"&";CHR$(O);CHR$(60):CHR$(60);
3160 RESTORE 4060
3170 READ LS :LPRINT CHR$(LS);
3180 READ CW :LPRINT CHR$(CW):
3190 READ RS :LPRINT CHR$(RS);
3200 FOR M=l TO CW*3
3210 READ MM
3220 LPRINT CHR$(MM);
3230 NEXT M
3240 RETURN
4000 '
4010 ' DATA
4020
' Draft download character dnta
4030 DATA 139
4040
DATA 124, 0, 66, 4, 64, 36. 16, 2, 16,
12, 0
4050 '
4060
' NLQ downlond characer data
4070 DATA 0, 23, 0
4080 DATA 1,248, 0. 6. 0, 0. 8,124, 0
4090
DATA 16, 2. 0, 32,124, 0, 0, 2, 0
4100 DATA 32,124, 0. 0. 0. 0, 63,248, 0
4110 DATA 0, 0. 0. 32. 0. 0. 0,120, 0
4120
DATA 16. 0. 0. 8,120, 0, 4. 0. 0
92