Star Micronics Multi-Font NX-2410 User Manual page 48

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 EQ;" ";CHI$(O);
'Normal character space
1620 LPRINT :LPRINT
1630 LPRINT C$;"Other features:"
1640 LPRINT H$;E$;"q";Cmt$(l);"OU~INED";", ";E$;"q";CBR$(O);
1650 LPRINT E$;"q";CHR$(2):'SHADOWED";", ";E$;"q";CHR$(~);
1660 LPRINT E$;"q";CHR$(3);"OUTLINED WITH SHADOWED":", ;
1670 LPRINT E$;"q";CHR$(O)
1680 LPRINT H$;E$;"E";"Emphasized";E$;"F";", I';
1690 LPRINT E$;"G ";"Double-strike";E$;"H";", II
1700 LPRINT H$;E$;"-l";"Underlining";E$;"-O"~,", ";
1710 LPRINT ES;" l";"Overlining";E$;"_O";",
1720 LPRINT H$;E~;"SO";"SUPERSCRIPT";E$;"T";", ";
1730 LPRINT E$;"Sl";"SUBSCRIPT";E$;"T";", ((
1740 LPRINT H$;C$;"Download characters: ";
1750 GOSUB 2520
1760 LPRINT E$;"SO"; 'Select superscript
1770 LPRINT E$;"%l"; 'Select download character
1780 FOR I=1 TO 5
1790 LPRINT CHR$(BO);
'Print download character
1800 NEXT I
1810 LPRINT E$;"%O"; 'Select normal character
1820 LPRINT E$;"T";
'Cancel superscript
1830 GOSUB 2650
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 GOSUB 2520
1900 LPRINT E$;"Sl"; 'Select subscript
1910 LPRINT E$;"%l";
'Select download character
1920 FOR I=1 TO 5
1930 LPRINT CHR$(60); 'Print download character
1940 NEXT I
1950 LPRINT E$;"%O";
'Select normal character
1960 LPRINT E$;"T" 'Cancel subscript
1970 LPRINT H$;C$;"Dot graphics:";CHR$(13);
1980 DIM 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)+CHRS(GD)
2040 NEXT COL
2050 NEXT ROW
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