1640 | GOSUB 2100 |
| |
1650 | LPRINT H$;C$;’’Downloadcharacters: “; | ||
1660 | LPRINT D$;E$;”%l”; | ‘Selectdownload character | |
1670 | FOR 1=1 TO 5 |
| |
1680 | LPRINT CHR$(60); | ‘Print downloaded character | |
1690 | NEXT I |
|
|
1700 | LPRINT D$;E$;’’%O”; | ‘Selectnormal character | |
1710 | GOSUB 2180 |
| |
1720 | LPRINT C$;E$;”%l”; | ‘Selectdownload character | |
1730 | FOR 1=1 TO 5 |
| |
1740 | LPRINT CHR$(60); | ‘Printdownloaded character | |
1750 | NEXT I |
|
|
1760 | LPRINT D$;E$;“%0” | ‘Selectnormal character | |
1770 | LPRINT H$;C$;’’Variousdot fraphic densities:“ | ||
1780 | DIM LOGO$(4) |
| |
1790 | RESTORE 2370 |
| |
1800 | FOR ROW=l TO 4 |
| |
1810 | FOR COL=l TO 65 |
| |
1820 | READ DG |
|
|
1830 | LOGO$(ROW)=LOGO$(ROW)+CHR$ DG) | ||
1840 | NEXT COL |
|
|
1850 | NEXT ROW |
| ‘Set 8/72” line spacing |
1860 | LPRINTE$; ’’A’’;CHR$(8) | ||
1870 | FOR ROW=l TO 4 |
| |
1880 | LPRINT H$;” “; |
| |
1890 | FOR B=O TO 4 |
| |
1900 | IF B=2 THEN 1940 |
| |
1910 | LPRINT E$;’’*”;CHR$(B); ‘Selectdot grapgics mode | ||
1920 | LPRINT CHR$(65);CHR$(0);LOGO$(ROW); | ||
1930 | LPRINT “ | “; | . |
1940 | NEXT B |
| |
1950 | LPRINT |
|
|
1960 | NEXT ROW |
|
|
1970 | LPRINT |
|
|
1980 | FOR ROW=l TO 4 |
| |
1990 | LPRINTH$; ” “; |
| |
2000 | FOR B=5 TO 7 |
| |
2010 | LPRINT E$;”*’’;CHR$(B); | ‘Selectdot grapgics m,ode | |
2020 | LPRINT CHR$(65);CHR$(0);LOGO$(ROW); | ||
2030 | LPRINT “ | “; |
|
2040 | NEXT B |
|
|
2050 | LPRINT |
|
|
2060 | NEXT ROW |
|
|
2070 | LPRINT E$;”@” | ‘Initializeprinter | |
2080 | END |
|
|
2090 | ‘ SUBROUTINES | ||
2100 | t Define draft download character | ||
2110 | LPRINT D$;E$;’’&’’;CHR$(O);CHR$(60);CHR$(60); | ||
2120 | RESTORE 2280 |
| |
2130 | FOR M=O TO 11 |
| |
2140 | READ MM |
|
|
2150 | LPRINT CHR$(MM); |
| |
2160 | NEXT M |
|
|
2170 | RETURN |
|
|
2180 ‘ Define NLQ download character
84