Star Micronics LC24-10 - 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 ES:" ";CHR$(O);
'Normal character space
1620 LPRINT :iPRINT
1630 LPRINT C$;"Other features:"
1640 LPRINT H$;E$;"q";CHR$(1);'0UTLINED";", ";E$;"q";CHR$(O);
1650 LPRINT E$;"q";CHR$(2);"SHADOWED";", ";E$;"q";CHR$(O);
1660 LPRINT E$;"q";CHR$(3);"OUTLINED WITH SHADOWED";", ";
1670 LPRINT E$;"q";CHR$(O)
1680 LPRINT H$;EQ;"E";"Emphasized";E$;"F";", I';
1690 LPRINT E$;"G";" Double-strike";EQ."H";" "
1700 LPRINT H$:E$;"-1~:~Underlinlng":~$~~~-O~~,~, ";
1710 LPRINT ?I$;" l";"Overlining";E$;"_O:';"
1720 LPRINT H$;ES;"SO
II ; "S"pmSCRIpT" ; E$ ; ,,,:I ; @a, I! ;
1730 LPRINT E$;"S1";"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 ES*"%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$(BO)
:
'Print download character
1870 NEXT I
1880 LPRINT ES:"%O": 'Select normal character
1890 GOSUB 25ib
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)+CHR$(GD)
2040 NEXT COL
2050 NEXT ROW
2060 LPRINT E$;"A";CHR$(B);
'Set B/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 CIiR$(lOO);CHR$(O);
2110 LPRINT LOGO$(ROW)
40