Star Micronics NX-1000 User Manual page 52

1490 LPRINT E$;"A";CHR$(I);
1500 LPRINT E$;" ";CHR$(I)J
1510 LPRINT "THE SPACINGS ARE CHANGED"
1520 NEXT I
1530 LPRINT E$
1540 LPRINT E$
1550 LPRINT E$
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$;"-1";"Underlining";E$;"-0";",
1610 LPRINT E$;"_1";"Over1ining";E S ;"_0";","
1620 LPRINT H$;E$;"SO";"SUPERSCRIPT";E $ ;"T";",
LPRINT ES;"SI";"SUBSCRIPT";E $ ;"T";","
1630
1640
GOSUB 2020
1650 LPRINT H $ ;C $ ;"Download characters: ";
1660 LPRINT D$;E$;"%1";
1670 FOR 1-1 TO 5
1680 LPRINT C H R $ (60);
1690
NEXT I
1700 LPRINT, E$;"%0";
1710 GOSUB 2120
1720 LPRINT C$;E$;
1730 FOR 1=1 TO 5
1740 LPRINT C H R $ (60);
1750 NEXT I
1760 LPRINT E$;"%0"
1770 LPRINT H $ ;C $ ;"Dot graphics:"
1780 DIM LO G O S (4)
1790 RESTORE 2630
1800 FOR ROW=l TO 4
1810 FOR COL=l'TO 100
1820 READ DG
LOGOS(ROW)=LOGO$(ROW)+CHRS(DG)
1830
1840 NEXT COL
NEXT ROW
1850
1860 LPRINT E$;"A";CHR$(8);
1870 FOR ROW=l TO 4
1880 LPRINT H$;H$;
LPRINT E$;"*";CHR$(0);
1890
1900 LPRINT C H R $ (100);CHRS(0);
1910 LPRINT LOGOS(ROW)
1920 NEXT ROW
1930 LPRINT E$,-"@"
1940 END
2 0 0 0
201 0
' SUBROUTINES
' Define draft download character
2 020
42
"aO" 'Left justify
"3";CHR$(36);
" ";CHR$(0);
Select download character
Print download character
'Select normal character
"; Select download character
" % 1
Print download character
Select normal character
'Set 1/6" line spacing
'Normal character space
'Set 8/72" line spacing
'Select normal <1enaity
'Initialize p r i n t e r