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 | TO 4 |
|
|
|
|
|
|
|
| |||
1970 | FOR | 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 |
|
|
|
|
|
|
|
| ||||
2040 | LPRINT H$;H$; |
|
|
| 'Select | normal | density | ||||||
2050 | LPRINT | E$;"*";CHR$(O); |
| ||||||||||
2060 | LPRINT CHR$(lOO);CHR$(O); |
|
|
|
|
| |||||||
2070 | LPRINT LOGO$(ROW) |
|
|
|
|
|
|
| |||||
2080 | NEXT ROW |
|
|
|
| 'Initialize | printer |
| |||||
2090 | LPRINT | E$;"O" |
|
|
|
| |||||||
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 |
|
|
|
|
|
|
|
| ||||
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 |
|
|
|
|
|
|
|
| ||||
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”