Star Micronics NX-1000 manual Set control codes

1000 ' Set control codes		'Escape code
1010 E$=CHR$(27)
1020	D$-E$+"xO"	'Draft quality
1030	N$=E$+"xl"	'Near letter quality
1040	C$-E$+"kO"tN$	'Courier characters
1050	S$-E$+"kl"+N$	'Sanserif characters
1060	Ol$-E$+"kl"+N$	'Orator with	small capital
1070	02$-E$t"k3"+N$	'Orator with	lower case
1080	H$=CHR$(9)	'Horizontal tab
1090	P$-E$+"P"	'Pica pitch
1100	( Start printing
1110	WIDTH "LPT1:",255
1120	LPRINT E$;"D";CHR$(3);CHR$(13);CHR$(O) 'Set HT
1130	LPRINT C$;"Type styles are:"
1140	LPRINT H$;D$;"Draft characters, U
1150	LPRINT H$;C$;"Courier characters."
1160	LPRINT H$;S$;"Sanserif characters,"
1170	LPRINT H$;Ol$; "Orator with small capitals, or U
1180	LPRINT H$;02$;"	with lower case characters,"
1190 LPRINT E$;"4";		'Select italics
1200 LPRINT H$;02$;"and ";Ol$;"italics ";S$;"for I';
1210 LPRINT C$;"all ";D$;"styles."
1220 LPRINT E$;"5"		'Cancel italics
1230 LPRINT C$;"Print pitches are:"
1240 LPRINT H$;P$;"Pica pitch,"
1250 LPRINT H$;E$;"M";"Elite pitch,"
1260 LPRINT H$;CHR$(15);		'Condensed pitch

1270	LPRINT P$;"Condensed pica pitch,"
1280	LPRINT H$;E$;"M"; "Condensed elite pitch,";
1290	LPRINT	P$;	'Pica pitch
1300	LPRINT	CHR$(18)	'Cancel condensed print
1310	LPRINT H$;E$;"pl";		'Select proportional	spacing
1320	LPRINT "proportional spacing for all pitches,"
1330	LPRINT	E$;"pO"	'Cancel proportional	spacing
1340	LPRINT	H$;E$;"Wl";"Expanded, ";E$;"WO";
1350	LPRINT E$;"wl";"Double-height, ";E$;"wO"
1360	LPRINT	H$;E$;"h";CHR$(l);"Double-sized,"
1370	LPRINT	H$;E$;"h";CHR$(2);"Quad-sized.";
1380 LPRINT E$;"h";CHR$(O)
1390 LPRINT		:LPRINT

1400	LPRINT E$;"Q";CHR$(47)		'Set right margin
1410	LPRINT C$;"Various	line and character spacings:"
1420	LPRINT E$;"al"	'Center text
1430	FOR I-l TO 10
1440	LPRINT E$;"A";CHR$(I);		'Set line spacing
1450	LPRINT E$;" ";CHR$(I); 'Increase character space
1460	LPRINT "THE SPACINGS ARE CHANGED"
1470	NEXT I

1480 FOR I-10 TO 1 STEP -1

41