Star Micronics lC-10 User Manual page 50

1910 LPRINT E$;"r";CHR$(O);
1920 LPRINT E$;"%O"
'Select normal character
1930 LPRINT H$;C$;"Dot graphics:";
1940 DIM LOG0$(4)
1950 RESTORE 2450
1960 FOR ROW-1 TO 4
1970 FOR COL-1 TO 100
1980 READ DG
1990 LOGO$(ROW)=LOGO$(ROW)tCHR$(DG)
2000
NEXT COL
2010 NEXT ROW
2020 LPRINT E$;"A";CHR$(8);
'Set 8/72" line spacing
2030 FOR ROW-1 TO 4
2040
LPRINT H$;H$;
2050 LPRINT E$;"*";CHR$(O);
'Select normal density
2060 LPRINT CHR$(lOO);CHR$(O);
2070
LPRINT LOGO$(ROW)
2080 NEXT ROW
2090 LPRINT E$;"O"
'Initialize printer
2100 END
2110
'
2120 ' SUBROUTINES
2130
' Define draft download character
2140 LPRINT D$;E$;":" ;CHR$(O);CHR$(O);CHR$(O);
2150
LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60);
2160
RESTORE 2340
2170 FOR M-O TO 11
2180
READ MM
2190
LPRINT CHR$(MM);
2200 NEXT M
2210
RETURN
2220 4
2230 ' Define NLQ download character
2240 LPRINT C$;E$;":";
CHR$(O);CHR$(O);CHR$(O);
2250
LPRINT E$;"&";CHR5(0);CHR$(60);CHR$(60);
2260
RESTORE 2380
2270
FOR M-O TO 46
2280
READ MM
2290
LPRINT CHR$(MM);
2300 NEXT M
2310
RETURN
2320
'
2330 ' DATA
2340 ' Draft download character data
2350
DATA 139,124, 0,
66.
4, 64, 36, 16, 2, 16
2360
DATA 12, 0
2370
'
2380
' NLQ download character data
2390 DATA 128, 14, 16, 38, 1. 70, 1, 70. 0,126
2400 DATA 0, 0, 70. 0. 38. 0, 22. 9. 6. 9
43
p"