Star Micronics NX-1000, User Manual

Page: 52 / 122

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
2 0 0 0
201 0
2 0 2 0
LPRINT E$;"A";C H R $ (I );
LPRINT E $ ; " ";CHR$(I)J
LPRINT "THE SPACINGS ARE CHANGED"
NEXT I
LPRINT E$
LPRINT E$
LPRINT E$
"aO" 'Left justify
"3";C H R $ (36); 'Set 1/6" line spacing
" ";CHR$(0);
'Normal character space
LPRINT :LPRINT
LPRINT C$;"Other features:"
LPRINT H$;E$;"E";"Emphasized";E $ ;"F";",
LPRINT E$;"G";"Double-strike";E $ ;"H";","
LPRINT H$;E$;"-1";"Underlining";E$;"-0";",
LPRINT E$;"_1";"Over1ining";E S ;"_0";","
LPRINT H$;E$;"SO";"SUPERSCRIPT";E $ ;"T";",
LPRINT ES;"SI";"SUBSCRIPT";E $ ;"T";","
GOSUB 2020
LPRINT H $ ;C $ ;"Download characters: ";
LPRINT D$;E$;"%1";
FOR 1-1 TO 5
LPRINT C H R $ (60);
NEXT I
LPRINT, E$;"%0";
'Select normal character
GOSUB 2120
LPRINT C$;E$;
" % 1 ";
FOR 1=1 TO 5
LPRINT C H R $ (60);
NEXT I
LPRINT E$;"%0"
LPRINT H $ ;C $ ;"Dot graphics:"
DIM L O G O S (4)
RESTORE 2630
FOR ROW=l TO 4
FOR CO L = l ‘TO 100
READ DG
L O G O S (ROW)=LOGO$(ROW)+CHRS(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$(0); 'Select normal <1enaity
LPRINT C H R $ (100);C H R S (0);
LPRINT LOGOS(ROW)
NEXT ROW
LPRINT E$,-"@"
'Initialize
p r i n t e r
END
' SUBROUTINES
' Define draft download character
Select download character
Print download character
Select download character
Print download character
Select normal character
42