2120 | NEXT | ROW |
|
|
|
|
|
|
|
|
| |
2130 | LPRINT | ES;"@" |
|
| 'Initialize printer | |||||||
2140 | END |
|
|
|
|
|
|
|
|
|
|
|
2500 |
|
|
|
|
|
|
|
|
|
|
|
|
2510 | ' SUBROUTINES |
|
|
|
|
|
|
|
| |||
2520 | I Define super/subscript download character | |||||||||||
2530 | LPRINT E$;"Sl";E$;":" ;CHR$(O);CHR$(O);CHR$(Oj; | |||||||||||
2540 | LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(6O); |
|
| |||||||||
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 | M |
|
|
|
|
|
|
|
|
|
|
2630 | RETURN |
|
|
|
|
|
|
|
|
|
| |
2640 |
|
|
|
|
|
|
|
|
|
|
|
|
2650 | ' Define LQ pica download character |
|
| |||||||||
2660 | LPRINT C$; |
|
|
|
|
|
|
|
|
| ||
2670 LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60); |
|
| ||||||||||
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 | * Super/subscript | download | character | data |
| |||||||
3030 | DATA |
| 7, | 23, | 6 |
|
|
|
|
|
|
|
3040 | DATA | 12, | 0, | 16, | 0, | 44, | 0, | 80, | 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, 0, 0, 0, 23, 0, 0 |
| |||||||
3130 | DATA | 40, | 0, | 0, | 19, | 15,192, | 40, | 16, | 0 |
| ||
3140 | DATA | 00, | 47,192, | 32, | 80, | 0, | 80,175,192 |
| ||||
3150 | DATA | 47, | 00, | 0, | 80,175,192, | 47, | 60, | 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, | 00, | 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 |
|
|
|
|
|
|
|
|
|
|
|
|
3230 | ' 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
