-
1730 | LPRINT |
| E$;"Sl";"SVBSCRIPT";E$;"T";", | " |
|
|
| |||||
1740 | LPRINT |
| H$:C$;"Download | characters: | ": |
|
|
| ||||
|
|
|
|
| ||||||||
1750 | LPRINT |
| E$;"SO"; |
|
| 'Select | superscript |
| ||||
1760 | GOSUB | 2130 |
|
|
| 'Select | download | character |
| |||
1770 | LPRINT |
| E$;"%l"; |
|
|
| ||||||
1780 FOR I=1 TO 5 |
|
|
|
|
|
|
| |||||
1790 | LPRINT |
| CHR$(60); |
|
| download | character |
| ||||
1800 | NEXT |
| I |
|
|
|
|
|
|
|
| - |
1810 | LPRINT |
| E$;"%O"; |
|
| 'Select | normal | character | ||||
|
|
|
| |||||||||
1820 | LPRINT | E$;"T"; |
|
| 'Cancel | superscript |
| |||||
1830 | GOSUB | 2260 |
|
|
|
|
|
|
| - | ||
1840 | LPRINT |
| E$;"%l"; |
|
| 'Select | download | character | ||||
1850 FOR I=1 TO 5 |
|
| download | character |
| |||||||
1860 | LPRINT | CHR$(60); |
|
|
| |||||||
1870 | NEXT |
| I |
|
|
|
|
|
|
|
| |
1880 | LPRINT | E$;"%O"; |
|
| 'Select | normal | character |
| ||||
1890 | LPRINT | E$;"Sl"; |
|
| 'Select | subscript |
| |||||
1900 | GOSUB | 2130 |
|
|
| 'Select | download | character |
| |||
1910 | LPRINT | E$;"%l"* |
|
|
| |||||||
1920 | FOR | I=1 | TO | 5 ' |
|
| download | character |
| |||
1930 | LPRINT | CHR$(BO); |
|
| - | |||||||
1940 | NEXT |
| I |
|
|
|
|
|
|
|
| |
|
|
|
|
| 'Select | normal | character |
| ||||
1950 | LPRINT | E$;"%O"; |
|
|
| |||||||
1960 | LPRINT | E$;"T" |
|
| 'Cancel | superscript |
| |||||
1970 | LPRINT | H$;C$;"Dot graphics:" |
|
|
|
| - | |||||
1980 | RESTORE | 2560 |
|
|
|
| line | spacing |
| |||
1990 | LPRINT | E$;"A";CHR$(B): |
| 'Set 8/60" |
| |||||||
2000 FOR I=1 TO 3 |
|
|
|
|
|
| - | |||||
2010 | LPRINT E$;"fO";CHR$(B): |
|
|
|
|
| ||||||
|
|
|
|
|
| |||||||
2020 LPRINT E$;"*";CHR$(33):CHR$(24O):CHR$(O); |
|
|
|
| ||||||||
2030 | FOR J=l TO 240*3 |
|
|
|
|
|
| .- | ||||
2040 | READ |
| DAT |
|
|
|
|
|
|
| ||
|
|
|
|
|
|
|
|
| ||||
2050 | LPRINT CHR$(DAT); |
|
|
|
|
|
|
| ||||
2060 | NEXT |
| J |
|
|
|
|
|
|
|
|
|
2070 | LPRINT |
|
|
|
|
|
|
|
|
| ||
2080 | NEXT |
| I |
|
|
|
|
|
|
|
|
|
2090 | LPRINT | ES;"@" |
|
| 'Initialize | printer |
| |||||
2100 | END |
|
|
|
|
|
|
|
|
|
|
|
2110 | ' |
|
|
|
|
|
|
|
|
|
|
|
2120 | ' SUBROUTINES |
|
|
|
|
|
|
| ||||
2130 | ' Define super/subscript | download character |
|
|
| - | ||||||
2140 | LPRINT | E$;"Sl": |
|
|
|
|
|
| ||||
|
|
|
|
|
|
| ||||||
2150 | LPRINT E$;"&";CHR$(0);CHR$(60);CHR$(60); |
|
|
|
|
| ||||||
2160 | RESTORE | 2400 |
|
|
|
|
|
| - | |||
2170 | READ |
| LS | :LPRINT | CHR$(LS); |
|
|
|
| |||
2180 READ CW :LPRINT CHR$(CW); |
|
|
|
| ||||||||
2190 READ RS :LPRINT CHR$(RS); |
|
|
|
| ||||||||
|
|
|
|
| ||||||||
2200 | FOR | M=l | TO | CW'2 |
|
|
|
|
|
| - | |
2210 | READ |
| MM |
|
|
|
|
|
|
|
|
|
2220 | LPRINT CHR$(MM): |
|
|
|
|
|
|
| ||||
2230 | NEXT |
| M |
|
|
|
|
|
|
|
| - |
2240 | RETURN |
|
|
|
|
|
|
|
| |||
|
|
|
|
|
|
|
|
| ||||
2250 | ' |
|
|
|
|
|
|
|
|
|
|
|
2260 ' Define LQ pica download character |
|
|
|
| - | |||||||
2270 | LPRINT | C$; |
|
|
|
|
|
|
| |||
2280 | LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60); |
|
|
|
|
| ||||||
2290 | RESTORE | 2470 |
|
|
|
|
|
|
| |||
2300 | READ |
| LS | :LPRINT | CHR$(LS); |
|
|
|
| - | ||
2310 READ CW :LPRINT CHR$(CW); |
|
|
|
|
| |||||||
2320 READ RS :LPRINT CHR$(RS); |
|
|
|
|
| |||||||
2330 FOR M=l TO CW*3 |
|
|
|
|
|
| - | |||||
2340 | READ |
| MM |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
2350 LPRINT CHR$(MM):
-
90