1490 NEXT I
1500 LPRINT E$;"aO" 'Left justify
1510 LPRINT E$;"3";CHR$(36); 'Set l/6" Line spacing
1520 LPRINT E$;" ";CHR$(O); 'Normal character space
1530 LPRINT E$;"Q";CHR$(BO) 'Set right margin
1540 LPRINT
1550 '
1560 LPRINT C$;"Other features:"
1570 LPRINT H$;E$;"4";"Italics";E$;"5";", I':
1580 LPRINT E$;"E";"Emphasized";E$;"F";", I';
1590 LPRINT E$;"G";"Double-strike";E$;"H";", "
1600 LPRINT H$;E$;"-l";"Underlining";E$;"-0";". 'I;
1610 LPRINT E$;"SO";"SUPER";E$;"T";" and 'I;
1620 LPRINT E$;"S1";"SUBSCRIPT";E$;"T";", "
1630 LPRINT
1640 LPRINT H$;C$;"Download characters: "; -
1650 GOSUB 2040
1660 LPRINT D$;E$;"%l"; 'Select draft download character
1670 FOR I=1 TO 5
1680 LPRINT CHR$(60); 'Print download character
1690 NEXT I
1700 LPRINT E$;"%O"; 'Select normal character
1710 GOSUB 2130
1720 LPRINT C$:E$;"%l"; 'Select NLQ download character
1730 FOR I=1 TO 5
1740 LPRINT CHR$(60); 'Print download character
1750 NEXT I
1760 LPRINT E$;"%O" 'Select normal character
1770 LPRINT
1780 '
1790 LPRINT H$;C$;"Various dot graphic densities:"
1800 DIM LOG0$(4)
1810 RESTORE 2350
1820 FOR ROW=1 TO 4
1830 FOR COL=l TO 65
1840 READ DG
1850 LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)
1860 NEXT COL
1870 NEXT ROW
1880 LPRINT E$;"A";CHR$(8); 'Set 0/72" Line spacing
1890 FOR ROW=1 TO 4
1900 LPRINT 0 ":
1910 FOR B=O TO 6
1920 IF B=2 THEN 1970
1930 IF B=5 THEN 1970
1940 LPRINT E$;"*";CHR$(B); 'Select dot graphics mode
1950 LPRINT CHR$(65):CHR$(O);LOGO$(ROW);
1960 LPRINT ti ";
1970 NEXT B
1980 LPRINT
1990 NEXT ROW
2000 LPRINT E$:"@" 'Initialize printer
2010 END
2020 '
2030 ' SUBROUTINES
2040 ' Define draft download character
2050 LPRINT D$;E$;"&";CHR$(0);CHR$(60~;CHR$(60);
2060 RESTORE 2240
102
-
-