Table of Contents
Advertisement
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
Advertisement
Table of Contents
