1870 READ GD
1880 LoGO$(ROW)=LOGO$(ROW)+CHR$(GD)
1890 NEXT COL
1900 NEXT ROW
1910 LPRINT E$ ; “A” ;CHR$(8) ; ‘Set 8/72” line spacing 1920 FOR ROW=l TO 4
1930 LPRINT “ “;
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$(0) | ;LOGO$(ROW); |
| ||||||||
1990 LPRINT “ | “; |
|
|
|
|
|
|
| ||
2000 | NEXT B |
|
|
|
|
|
|
|
|
|
2010 | LPRINT |
|
|
|
|
|
|
|
| |
2020 | NEXT ROW |
|
|
| ‘Initialize |
| printer | |||
2030 | LPRINT E5;”@” |
|
|
| ||||||
2040 | END |
|
|
|
|
|
|
|
|
|
3000 | ‘ SUBROUTINES |
|
|
|
|
|
|
| ||
3010 |
|
|
|
|
|
|
| |||
3020 | ‘ Define Draft download character |
|
| |||||||
3030 | LPRINT E$;’’xO’’;E$;”:U;CHR$(0);CHR$(O);CHR$(0); | |||||||||
3040 | LPRINT E$;’’&’’;CHR$(O);CHR$(60);CHR$(60) | |||||||||
3050 | RESTORE 4020 |
|
|
|
|
|
|
| ||
3060 READ LS :LPRINTCHR$(LS); |
|
|
|
| ||||||
3070 | FOR M=l TO 11 |
|
|
|
|
|
|
| ||
3080 | READ MM |
|
|
|
|
|
|
|
| |
3090 | LPRINT CHR$(MM); |
|
|
|
|
|
| |||
3100 | NEXT M |
|
|
|
|
|
|
|
|
|
3110 | RETURN |
|
|
|
|
|
|
|
| |
3120 | ‘ Define NLQ download character |
|
| |||||||
3130 |
|
| ||||||||
3140 | LPRINT C$; |
|
|
|
|
|
|
| ||
3150 | LPRINT E$;’’&’’;CHR$(O);CHR$(60):CHR$(60) | |||||||||
3160 | RESTORE 4060 |
|
|
|
|
|
|
| ||
3170 READ LS :LPRINTCHR$(LS); |
|
|
|
| ||||||
3180 READ CW :LPRINTCHR$(CW); |
|
|
|
| ||||||
3190 | Rl?ADRS :LPRINTCHR$(RS); |
|
|
|
| |||||
3200 | FOR M=l TO CW*3 |
|
|
|
|
|
| |||
3210 | READ MM |
|
|
|
|
|
|
|
| |
3220 | LPRINT CHR$(NM); |
|
|
|
|
|
| |||
3230 | NEXT M |
|
|
|
|
|
|
|
|
|
3240 | RETURN |
|
|
|
|
|
|
|
| |
4000 | ‘ DATA |
|
|
|
|
|
|
|
| |
4010 |
|
|
|
|
|
|
|
| ||
4020 | ‘ Draft download characterdata |
|
| |||||||
4030 | DATA 139 | 0, 66, | 4, 64, 36, 16, | 2, 16, 12, 0 | ||||||
4040 | DATA 124, | |||||||||
4050 | ‘ NLQ download characerdata |
|
|
| ||||||
4060 |
|
|
| |||||||
4070 | DATA | O, 23, | 0 |
|
| 0. 8.124, | 0 | |||
4080 | DATA | 1,248, | 0, | 6, | 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 | O, | 0> | 0, 32, | 0, | 0, | 0,120, | 0 | ||
4120 DATA | 16, | 0, | 0, 8,120, 0, 4, 0, 0 |
9