Star Micronics LC-10 User Manual page 50

1490 LPRINT E$;"A";CHR$(I);
1500 LPRINT E$;" ";CHR$(I);
1510 LPRINT "THE SPACINGS ARE CHANGED"
1520 NEXT I
1530 LPRINT E$;"aO"
'Left justify
1540 LPRINT E$;"3";CHR$(36): 'Set l/6" line spacing
1550 LPRINT E$;" ";CHR$(O); 'Normal character space
1560 LPRINT :LPRINT
1570 LPRINT C$;"Other features:"
1580 LPRINT H$;E$;"E";"Emphasized";E$;"F";", ";
1590 LPRINT E$;"G";"Double-strike";E$;"H";","
1600 LPRINT H$;E$;"-l";"Underlining";E$;"-O";", 'I;
1610 LPRINT E$;"~l";"Overlining";E$;"~O";","
1620 LPRINT H$;E$;"SO";"SUPERSCRIPT";E$;"T";", ";
1630 LPRINT E$;"S1":"SUBSCRIPT";E$;"T";","
1640 GOSUB 2020
1650 LPRINT H$;C$;"Download characters: ";
1660 LPRINT D$;E$;"%l"; 'Select download character
1670 FOR I-l TO 5
1680 LPRINT CHR$(60); 'Print download character
1690 NEXT I
1700 LPRINT E$;"%O"; 'Select normal character
1710 GOSUB 2120
1720 LPRINT C$:E$;"%l"; 'Select 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 H$;C$;"Dot graphics:"
1780 DIM LOG0$(4)
1790 RESTORE 2630
1800 FOR ROW=1 TO 4
1810 FOR COL=l'TO 100
1820 READ DG
1830 LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)
1840 NEXT COL
1850 NEXT ROW
1860 LPRINT E$;"A";CHR$(8);
'Set a/72" line spacing
1870 FOR ROW=1 TO 4
1880 LPRINT H$;H$;
1890 LPRINT E$;"*";CHR$(O); 'Select normal density
1900 LPRINT CHR$(lOO);CHR$(O):
1910 LPRINT LOGO$(ROW)
1920 NEXT ROW
1930 LPRINT E$;"@"
'Initialize printer
1940 END
2000 '
2010 ' SUBROUTINES
2020
' Define draft download character
42