Star Micronics LC-200 user manual 1520

I

1490 NEXT I						‘Left justify
1500 LPRINT E$;“aO”
1510		LPRINT E$;’’3’’;CHR$(36);				‘Set 1/6” Line spacing
1520		LPRINT E$;“ “;CHR$(0);				‘Normal character space
1530		LPRINT E$;’’Q’’;CHR$(8O) ‘Set right margin
1540		LPRINT
1550
1560 LPRINT C$;’’Otherfeatures:”
1570 LPRINT H$;E$; ’’4’’ItalicsM;s”;E$;’’5’’;”,“;
1500 LPRINT E$;’’E’’Emphasizedz;E$’;E;“F’’;”,“;$
1590		LPRINT E$;’’G”;‘Double–striken;E$ ;“H’’;”,“
1600		LPRINT H$;E$; ’’-;’’;’’UnderliningM;E$;H–O’’;”,“;
				‘SJUpERU;E$;!!TU;M and ,,;
1610 LPRINT E$;’’SO”;
1620 LPRINT E$;’’S1’’SUBSCRIPTII;E$;E;nTM;II,M$
1630		LPRINT
1640		LPRINT H$;C$; ”Download characters: II;
1650		GOSUB 2040
1660		LPRINT D$;E$;’’%1”;			‘Select draft download character
1670		FOR 1=1 TO		5
1680		LPRINT CHR$(60);			‘Print download character
1690		NEXT I
1700		LPRINT E$;U%O”;			‘Select normal character
1710		GOSUB 2130
1720		LPRINT C$;E$;’’%1”;			‘Select NLQ download character
1730		FOR 1=1 TO		5
1740		LPRINT CHR$(60);			‘Print download character
1750		NEXT I
1760		LPRINT E$;’’%OU			‘Select normal character
1770		LPRINT
1780
1790		LPRINT H$;C$; ”Various dot graphic densities:”
1800 DIM LOGO$(4)
1810		RESTORE 2350
1820		FOR ROW=l TO 4
1830		FOR COL=l TO 65
1840		READ DG
1850	LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)
1860		NEXT COL
1870		NEXT ROW
1880		LPRINT E$;’’A’’;CHR$(8)				‘Set 8/72M Line spacing
1890		FOR ROW=l	TO 4
1900		LPRINT u		“;
1910		FOR B=O TO 6
1920		IF B=2 THEN		1970
1930		IF B=5 THEN		1970
1940		LPRINT E$;’’*’’;CHR$(B)				‘Select dot graphics mode
1950		LPRINT CHR$(65);CHR$(0) ;LOGO$(ROW);
1960		LPRINT “	“;
1970		NEXT B
1980		LPRINT
1990		NEXT ROW
2000		LPRINT E$;“@n				‘Initialize printer
2010		END
2020
2030		‘ SUBROUTINES
2040 ‘ Define draft download character
2050		LPRINT D$;E$;v&’’;CHR$(0);CHR$(60);CHR$(60) ;
2060 RESTORE 2240