-
1730 LPRINT E$;"Sl";"SVBSCRIPT";E$;"T";", "
1740 LPRINT H$:C$;"Download characters: ":
-..
1750 LPRINT E$;"SO"; 'Select superscript
1760 GOSUB 2130
1770 LPRINT E$;"%l"; 'Select download character
1780 FOR I=1 TO 5
1790 LPRINT CHR$(60); 'Print 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
1860 LPRINT CHR$(60); 'Print download character
1870 NEXT I
1880 LPRINT E$;"%O"; --
'Select normal character
1890 LPRINT E$;"Sl"; 'Select subscript
1900 GOSUB 2130
1910 LPRINT E$;"%l"* 'Select download character
1920 FOR I=1 TO 5 '
1930 LPRINT CHR$(BO); 'Print download character
1940 NEXT I -
1950 LPRINT E$;"%O"; 'Select normal character
1960 LPRINT E$;"T" 'Cancel superscript
1970 LPRINT H$;C$;"Dot graphics:"
1980 RESTORE 2560 -
1990 LPRINT E$;"A";CHR$(B): 'Set 8/60" line spacing
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 -