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”