Star Micronics lC-10 - 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”