2120 | NEXT | ROW |
|
|
|
|
|
|
|
|
| |
2130 | LPRINT | ES;"@" |
|
| 'Initialize printer | |||||||
2140 | END |
|
|
|
|
|
|
|
|
|
|
|
2500 |
|
|
|
|
|
|
|
|
|
|
|
|
2510 | ' SUBROUTINES |
|
|
|
|
|
|
|
| |||
2520 | ' Define super/subscript download | character | ||||||||||
2530 | LPRINT E$;"Sl";E$;":"; CHR$(O);CHR$(O);CHR$(O); | |||||||||||
2540 | LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60); |
|
| |||||||||
2550 | RESTORE | 3020 |
|
|
|
|
|
|
|
| ||
2560 | READ LS :LPRINT CHR$(LS); |
|
|
|
|
| ||||||
2570 | READ CW :LPRINT CHR$(CW); |
|
|
|
|
| ||||||
2580 | READ RS :LPRINT CHR$(RS); |
|
|
|
|
| ||||||
2590 | FOR | M=l | TO | CW"2 |
|
|
|
|
|
|
| |
2600 | READ | MM |
|
|
|
|
|
|
|
|
|
|
2610 LPRINT CHR$(MM); |
|
|
|
|
|
|
| |||||
2620 | NEXT H |
|
|
|
|
|
|
|
|
|
| |
2630 | RETURN |
|
|
|
|
|
|
|
|
|
| |
2640 |
|
|
|
|
|
|
|
|
|
|
|
|
2650 ' Define LQ pica download character |
|
| ||||||||||
2660 LPRINT C$; |
|
|
|
|
|
|
|
|
| |||
2670 LPRINT E$;"6";CHR$(O);CHR$(6O):CHR$(6O); |
|
| ||||||||||
2680 | RESTORE | 3100 |
|
|
|
|
|
|
|
| ||
2690 READ LS :LPRINT CHR$(LS); |
|
|
|
|
| |||||||
2700 READ CW :LPRINT CHR$(CW); |
|
|
|
|
| |||||||
2710 READ RS :LPRINT CHR$(RS); |
|
|
|
|
| |||||||
2720 FOR M=l TO CW*3 |
|
|
|
|
|
|
| |||||
2730 | READ | MM |
|
|
|
|
|
|
|
|
|
|
2740 LPRINT CHR$(MM); |
|
|
|
|
|
|
| |||||
2750 | NEXT | M |
|
|
|
|
|
|
|
|
|
|
2760 | RETURN |
|
|
|
|
|
|
|
|
|
| |
3000 |
|
|
|
|
|
|
|
|
|
|
|
|
3010 | ' DATA |
|
|
|
|
|
|
|
|
|
| |
3020 | t Super/subscript | download | character | data |
| |||||||
3030 | DATA |
| 7, | 23, | 6 |
|
|
| 80, |
|
|
|
3040 | DATA | 12, | 0, | 16, | 0‘ | 44‘ | 0, | 0, | 44,120 | |||
3050 | DATA | 64,128, 33,120, 94,128, 33,120, 94,128 | ||||||||||
3060 | DATA | 33, | 24, | 66, | 0, | 33, | 24, | 94,128, | 33,120 | |||
3070 | DATA | 94,128, | 33,120, | 64,128, | 44,120, | 80, | 0 | |||||
3080 | DATA | 44, | 0, | 16, | 0, | 12, | 0 |
|
|
|
| |
3090 |
|
|
|
|
|
|
|
|
|
|
|
|
3100 ' LQ pica download characer data |
|
|
| |||||||||
3110 | DATA |
| 4, | 29, | 3 |
|
|
|
|
|
|
|
3120 | DATA |
| 7, 0, 0, 8, 0, 0. 23, 0, 0 |
| ||||||||
3130 | DATA | 40, | 0, | 0, | 19, | 15,192, | 40, | 16, | 0 |
| ||
3140 | DATA | 80, | 47,192, | 32, | 80, | 0, | 80,175,192 |
| ||||
3150 | DATA | 47, | 80, | 0, | 80,175,192, | 47, | 80, | 0 |
| |||
3160 | DATA | 80,163,192, | 33, | 64, | 0, | 80,163,192 |
| |||||
3170 | DATA | 33, | 64, | 0, | 80,163,192, | 47, | 80, | 0 |
| |||
3180 | DATA | 80,175,192, | 47, | 80, | 0, | 80,175,192 |
| |||||
3190 | DATA | 32, | 80, | 0, | 80, | 47,192, | 40, | 16, | 0 |
| ||
3200 | DATA | 19, | 15,192, | 40, | 0, | 0, | 23, | 0, | 0 |
| ||
3210 | DATA |
| 8, | 0, | 0, | 7, | 0, | 0 |
|
|
|
|
3220 | 1 |
|
|
|
|
|
|
|
|
|
|
|
3230 | I Dot graphics | data |
|
|
|
|
|
| ||||
3240 | DATA |
| 0, 0, 0, 0, 1, 3, 7, 7, 7, 15 | |||||||||
3250 | DATA | 14, | 14, | 14, | 14, | 14, | 7, | 7, | 3, | 3, | 15 | |
41
