Star Micronics NX-2415II User Manual page 126

1500 LPRINT E$;" ';CHR$(0); 'Normal character space
1510 LPRINT :LPRINT
1520 LPRINT RM$;''Other features:"
1530 LPRINT H$;E$; ''q'' ;CHR$(l )OUTLINED"ED" ; E$; ''q'';CHR$(O);", ";
1540 LPRINT E$; ''q'' ;CHR$(2) SHADOWED"ED" ;E$; ''q'';CHR$(O);", "
1550 LPRINT H$; E$;''q'';CHR$(3) ;"OUTLINED WITH SHADOWED";
1560 LPRINT E$; "q'';CHR$(0) ;", "
1570 LPRINT H$;E$; ''E'' Emphasizedz;E$';E$ ;"F'';", ";
1580 LPRINT E$; ''G'' Doublebstrike"ke" ;E$;''H'';", ";
1590 LPRINT E$; ''4" ;''Italic;E$ ;"5°"5° ;", "
1600 LPRINT H$;E$; "-1'' ;''Underlining" ;E$;"-O'';", ";
1610 LPRINT E$;''(-";CHR$(3) ;CHR$(0);CHR$(l) ;CHR$(2);CHR$(2);
1620 LPRINT "Strike-through";
1630 LPRINT E$; ''-'' ;CHR$(3);CHR$(O) ;CHR$(l) ;CHR$(2);CHR$(0 );", ";
1640 LPRINT E$; ''-'' ;CHR$(3);CHR$(O) ;CHR$(l) ;CHR$(3);CHR$( 1);
1650 LPRINT "Overlining";
1660 LPRINT E$; ''-'' ;CHR$(3);CHR$(O) ;CHR$(l) ;CHR$(3);CHR$(0 );", "
1670 LPRINT H$; E$; ''SO'' SUPERSCRIPT"PT";E$;''T"; " and ";
1680 LPRINT E$; ''S1''S UBSCRIPTI;E$;;E$; "T'';", "
1690 LPRINT H$;RM$;''Download characters: ";
1700 SS$=E$+''SO"
'Superscript
1710 GOSUB 2520
1720 LPRINT E$;''%l"; 'Select download character
1730 FOR 1=1 TO 5
1740 LPRINT CHR$(60); 'Print download character
1750 NEXT I
1760 LPRINT E$;''%O"; 'Select normal character
1770 LPRINT E$;''T"; 'Cancel superscript
1780 GOSUB 2650
1790 LPRINT E$;''%l"; 'Select download cbaracter
1800 FOR 1=1 TO 5
1810 LPRINT CHR$(60); 'Print download character
1820 NEXT I
1830 LPRINT E$; ''%O"; 'Select normal character
1840 SS$=E$+''S1" 'Subscript
1850 GOSUB 2520
1860 LPRINT E$;''%l"; 'Select download character
1870 FOR 1=1 TO 5
1880 LPRINT CHR$(60); 'Print download character
1890 NEXT I
1900 LPRINT E$;''%O"; 'Select normal character
1910 LPRINT E$;"T" 'Cancel superscript
1920 LPRINT H$;RM$;''Dot graphics:M
1930 RESTORE 3170
1940 LPRINT E$;''A'';CHR$(8); 'Set 8/60" line spacing
1950 FOR 1=1 TO 3
1960 LPRINT E$;''$";CHR$(16O) ;CHR$(0);
'
1 L ;
);cHR$(0);
1980 FOR J=l TO 240*3
1990 READ DAT
2000 LPRINT CHR$(DAT);
2010 NEXT J
2020 LPRINT
2030 NEXT I
2040 LPRINT E$;"@"
2050 END
2500 '
2510 ' SUBROUTINES
'Initialize printer