1560 LPRINT ES;" ";CHR$(I); 'Increase character space
1570 LPRINT "THE SPACINGS ARE CHANGED"
1580 NEXT I
1590 LPRINT E$;"aO" 'Left justify
1600 LPRINT E$;"3";CHR$(30); 'Set l/6" line spacing
1610 LPRINT ES:" ";CHR$(O); 'Normal character space
1620 LPRINT :LPRINT
1630 LPRINT C$;"Other features:"
1640 LPRINT H$;E$;"q":CHR$(l);'OUTLINED";", ";E$;"q";CHR$(O);
1650 LPRINT E$;"q";CHR$(z);"SHADOWED";", ";E$;"q";CHR$(O);
1660 LPRINT E$;"q";CHR$(3);'0UTLINED WITH SHADOWED";", ";
1670 LPRINT E$;"q";CHR$(O)
1680 LPRINT H$;ES;"E";"Emphasized";E$;"F";", 'I;
1690 LPRINT ES'"G"."Double-strike";E$:~'H":", 'I
, ,
1700 LPRINT H~:E$;;'-l";"Underl~nin~ll~~$;"-O;l;", '1;
1710 LPRINT ES;" l";"Overlin~ng";E$;" O";", "
1720 LPRINT H$:E~;"SO"~"SUPERSCRIPT";E$;"T";", ";
1730 LPRINT E$;“Sl”;“S;BSCRIPT”;E$;“T”;“:, M
1740 LPRINT HS:CS:"Download characters: ;
1750 GOSUB 25i0 .-
1760 LPRINT E$;"SO";
1770 LPRINT E$;"%l";
1780 FOR I=1 TO 5
1790 LPRINT CHR$(BO);
1800 NEXT I
1810 LPRINT E$."%O";
1820 LPRINT E&T";
1630 GOSUB 2650
1840 LPRINT E$;"%l";
1850 FOR I=1 TO 5
1860 LPRINT CHR$(60);
1870 NEXT I
1680 LPRINT E$*"%O"' ' 1890 GOSUB 2520
1900 LPRINT E$;"Sl";
1910 LPRINT E$*"%l";
1920 FOR I=1 T;) 5
1930 LPRINT CHR$(60)
1940 NEXT I
1950 LPRINT E$;"%O"* ,
1960 LPRINT E$*"T" ,
'Select normal character
'Select subscript
'Select download character
; 'Print download character
'Select normal character
'Cancel subscript
1970 LPRINT H$;C$;"Dot graphics:";CHR$(13);
1980 DIH LOGO$(4)
1990 RESTORE 3230
2000 FOR ROW=1 TO 4
2010 FOR COL=l TO 100
2020 READ GD
2030 LOGO$(ROW)=LOGO$(ROW)+CHR$(GD)
2040 NEXT COL
2050 NEXT ROW
'Select superscript
'Select download character
'Print download character
'Select normal character
'Cancel superscript
'Select download character
'Print download character
2060 LPRINT E$;"A";CHR$(B); 'Set e/60" line spacing
2070 FOR ROW=1 TO 4
2080 LPRINT E$;"fO";CHR$(17);
2090 LPRINT E$;"*";CHR$(O); 'Select normal density
2100 LPRINT CHR$(lOO);CHR$(O);
2110 LPRINT LOGO$(ROW)
40