Star Micronics NX-1001 manual Lpri~

1650 LPRI~		H$;C$; ‘Tbwnload characters:						“;
1660 LPRI~		D$;E$; “%1”;			‘Select		download character
1670 FOR1==1ITI 5
1680 LPRI~		CliR$(60) :			‘Print	downltid			character
1690 NEXTI
1700 LPRIm E$; “%0”;					‘Select		normal		character
1710 GC@JB2200
1720 IYRINTC$;E$; “%1”;					‘Select		download character
1730 FOR1=1 TU 5
1740 LPRINTCHR$(60);					‘Print	download character
1750 NEXTI
1760 LPRI~		E$; “%0”			‘Select		normal		character
1770 LPRINTH$;C$; “Varioue					dot graphic densltles:”
1780 DIMKKQ$(4)
1790 RE3P3RE2390
1800 m	Row=l To 4
1810 FCRCOL=l TO 65
1820 RADrKi
1830 LX130(RQW)”LIXO$(RW$ +CliR$(D3)
1840 NEXTCOL
1850
1860 ~N!!!!;			“A”;CHR$(8) ;		‘Set8/72”			line .spacirq
1870 m	ROW-l m			4
1880 LPRINTH$;“				“;
1890 mB-o		To4
1900 IF 8=2 TIiD41940
1910 LPRINTE$; “*’’;CHR$(B);					‘Select		dot	gra~ica		mode
1920 LPRINTCHR$(65);CHR$(0);I.CX33$(Ii0W);
1930 LPRIIW“			“;
1940 NEXTB
1950 ~INT
1960 mm
1970 LPRI~
1980 m	ROW”lm			4
1990 ~1~		H$; “ “;
2000 m	B-5 m		7
2010 tYRINTE$; ““” ;CliR$(B);					‘Select		dot	gra@ics		rode
2020 LPRI~		CIiR$(65) ;CJ-IR$(0);LCGO$(ROW)
2030 LPRI~		“	“;
2040 NEXTB
2050 LPRINT
2060 mm
2070 LPRINTE$; “@”					‘Initialize			printer
2080 m
2090	SUBR3WINE5
2100 ‘

2110 ‘ Define draft download character

2120 LPRINTD$;E$; “&’’;CHR$(O);CHR$(60);CHR$(60); 2130 REEKK!E2300

2140 FORM=EOIU 11

2150 READMM

2160 LPRINI’CHR$(MM);

2170 NEXTM M