Star Micronics SJ-48 manual Lprint Lprint

1LPRINT :LPRINT

1360	LPRINT	E$; ’’Q’’;CHR$(47)	‘Set right margin
1370	LPRINT TM$: ‘Various line and character spacings:”
1380	LPRINT	E$; ’’al”	‘Center text
1390	FOR 1=1 TO 7		‘Line spacing	set
1400	LPRINT	E$; ’’A’’:CHR$(I);
1410	LPRINT	E$;” ‘;CHR$(I);	‘Increase character		space
1420	LPRINT “THE SPACINGS ARE CHANGEDM
1430	NEXT I
1440	FOR 1=7 TO 1 STEP -1		‘Line spacing	set
1450	LPRINT	E$; ’’A’’;CHR$(I) ;
1460	LPRINT	E$;” ‘;CHR$(I);	‘Increase character		space
1470	LPRINT “THE SPACINGS ARE CHANGED”
1480	NEXT I		‘Left justify
1490	LPRINT	E$; ’’aO”
1500	LPRINT	E$; ”3’’;CHR$(30);	‘Set l/6m line	spacing
1510	LPRINT	E$;” ‘;CHR$(0);	‘Normal character space
1520	LPRINT	:LPRINT
1530	LPRINT	TM$;’’Other features:”
1540	LPRINT H$;E$; VX’’;CHR$(0);
1550	LPRINT	“Economy printing,	‘;
1560	LPRINT E$; ’’x’’;CHR$(1);
1570	LPRINT	“and High Quality. “
1580	LPRINT	H$;E$; ”q’’;CHR$(l);’’OUTLINED”;E$;’’q’’;CHR$(0) ;”, ‘:

1LPRINT E$; ”q’’;CHR$(2);”SHADOWEDu ;E$;’’q’’;CHR$(0) ;”, “;

1600 LPRINT E$; ”q’’;CHR$(3);“OUTLINED WITH SHADOWED”:

1610 LPRINT E$; ”q’’;CHR$(0);”, M

1620 LPRINT H$;E$; ”E’’;’’Emphasized”:E$;”F’’;”, “; 1630 LPRINT E$; ’’G’’Doublebstrike”ke”;E$;’’H’’;”,“;

1640 LPRINT E$; ’’4’’Italicsi;E$’;E:“5’’:”,$ “

1650 LPRINT H$;E$; N-l” ;’’UnderliningM;E$;’’-:”,:”,‘;

1660 LPRINT E$;”- “;CHR$(3);CHR$(0); CHR$( 1):CHR$(2);CHR$(2) :

1670 LPRINT “Strike–through” ;

1680 LPRINT E$;ti(-’’:CHR$(3):CHR$(O) :CHR$(l) ;CHR$(2);CHR$ (0):”, “; 1690 LPRINT E$;N (-”;CHR$(3);CHR$(0) ;CHR$(1):CHR$(3) ;CHR$(l); 1700 LPRINT “Overlining”;

1710 LPRINT E$;N (-’’;CHR$(3) ;CHR$(O);CHR$ (1);CHR$(3) :CHR$(0) ;”, “

1LPRINT H$;E$; ”SO’’;’’SUPERSCRIPT”;E$;’’T”;”and “;

1730 LPRINT E$; ’’S1” “SUBSCRIPT”;E$;”T” ;“, “ 1740 LPRINT H$;TM$; ’Download characters: “; 1750 GOSUB 2520

1760	LPRINT		E$;”%l”	‘Select download			character
1770	FOR	1=1 TO 5		‘Print download			character
1780	LPRINT		CHR$(60
1790	NEXT	I		‘Select normal		character
1800	LPRINT		E$; ’’%O”
1810	GOSUB 2640			‘Select download			character
1820	LPRINT		E$; ’’%l”;
1830	FOR	1=1 TO 5		‘Print download			character
1840	LPRINT		CHR$(60);
1850	NEXT	I		‘Select normal		character
1860	LPRINT		E$; ’’%O”
1870	LPRINT H$;TM$; ’’Dotgraphics:”
1Q80	RESTORE		3290	‘Set 8/60”	line		spacing
1890	LPRINT		E$; ’’A’’:CHR$(8);
1900	FOR	1=1 TO 3
1910	LPRINT E$; ’’fO’’;CHR$(8)
1920	LPRINT		E$; ’’*”;CHR$(33); CHR$(240) ;CHR$(0);
1930	FOR	J=l	TO 240’3
1940	READ	DAT
1950	LPRINT		CHR$(DAT);
1960	NEXT	J
1970	LPRINT
1980	NEXT	I		‘Initialize	printer
1990	LPRINT		E$;”@”

80