Star Micronics MULTI-FONT NX-1000II User Manual page 52

1490
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
1850
1860
1870
1880
1890
1900
1910
1920
1930
1940
2000
2010
2020
LPRINT
LPRINT
LPRINT
NEXT I
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
E$;"A";CHR$(I);
E$;" ";CHR$(I);
"THE SPACINGSARE CHANGED"
E$;"aO" 'Left justify
E$;''3'';CHR$(36); 'Set 1/6" line spacing
E$;" ";CHR$(0); 'Normal character space
:LPRINT
C$;"Other features:M
H$;E$; ''E"; "Emphasized";E$;' 'F";", ";
E$;"G"; "Double-strike''; E$; "H'';'',"
H$;E$; ''-1"; "Underlining''; E$;''-O"; ", ";
E$; "–l"; .@er~lnlng'' ;E$;''-O. ;ti,u
H$;E$; ''SO";"SUPERSCRIPT'';E$;"T" ;", ":
E$;''S1"; "SUBSCRIPT'';E$;"T'';'',"
GOSUB 2020
LPRINT H$;C$;''Download characters:";
LPRINT D$;E$;''%1";
'Selectdownload character
FOR 1=1 TO 5
LPRINT CHR$(60);
'Printd~wnload character
NEXT I
LPRINT E$;''%O":
'Selectnormal character
GOSUB 2120
LPRINT C$;E$;''%1"; 'Selectdownload character
FOR 1=1 TO 5
LPRINT CHR$(60);
'Printdownloadcharacter
NEXT I
LPRINT E$;''%O"
'Selectnormal character
LPRIN'T H$;C$;"Dot graphics:"
DIM LOGO$(4)
RESTORE 2630
FOR ROW-1 TO 4
FOR COL=l"TO 100
READ DG
LOGO$(ROW) = LOGO$(ROW) + CHR$(DG)
NEXT COL
NEXT ROW
LPRINT E$;''A'';CHR$(8) ;
'Set 8/72" line spacing
FOR ROW==l TO 4
LPRINT H$;H$;
LPRINT E$; "*'';CHR$(O);'Selectnormal density
LPRINT CHR$(1OO);CHR$(O) ;
LPRINT LOGO$(ROW)
NEXT ROW
LPRINT E$;''f!"
'Initialize printer
END
' SUBROUTINES
' Define draft download character
—
—
—
—
—
—
—
—
—
—
—