.;
.;	Define escape sequences for LA-50 printer
.;		^& turns on underlining
.;		\& turns off underlining
.;		&  underline 1 char
.;		^* turns on bolding
.;		\* turns off bolding
.;		*  bolds 1 char
.;		^~ turns on reverse video	(Ignored on LA-50)
.;		\~ turns off reverse video
.;		^= turns on double width
.;		/= turns off double width
.;		<  Starts subscipt
.;		>  Starts superscript
.;		^% turns on vt100 graphics set
.;		\% turns off vt100 graphics
.;
.;	NOTE:  underlining, bolding, reverse can not be independently combined.
.;	If more than 1 feature is desired they must be turned on and off
.;	together.
.;	Double width is 5 pitch.
.;	Single width is 10 pitch.
.;
.reset escape
.define escape "^*" CHR LCK 27 "[1m"
.define escape "\*" CHR LCK 27 "[0m"
.define escape "^&" CHR LCK 27 "[4m"
.define escape "\&" CHR LCK 27 "[0m"
.define escape "^~" CHR LCK 27 "[7m"
.define escape "\~" CHR LCK 27 "[0m"
.define escape "^=" LCK PSP HSP 2 27 "[5w"
.define escape "\=" LCK PSP HSP 1 27 "[0w"
.define escape "^<" VSP 1 27 "K"
.define subscript 27 "K"
.define escape "^>" VSP -1 27 'L'
.define superscript 27 'L'
.define escape "^#" CHR LCK 27 "[5m"
.define escape "\#" CHR LCK 27 "[0m"
.define escape "^%" CHR LCK 14
.define escape "\%" CHR LCK 15
.no flags underline
.flags special *&<>
.flags escape
.flags equation
.;
.;	The LA-50 can do equations, but half or 1&1/2 spacing
.;	should not be used as it will lose track of the top of form.
.;	If these are used then /-ff:n should be used to specify the physical
.;	page length.
.;