.;
.;	Define escape sequences for LN-03 printer
.;		^& turns on underlining
.;		\& turns off underlining
.;		&  underline 1 char
.;		^* turns on bolding
.;		\* turns off bolding
.;		*  bolds 1 char
.;		^= turns on double width
.;		/= turns off double width
.;		<  Starts subscipt
.;		>  Starts superscript
.;		^% turns on vt100 graphics set
.;		\% turns off vt100 graphics
.;		^@ turns on scientific
.;		\@ turns off scientific
.;		^+ turns on Dec supplemental
.;		\+ turns off Dec supplemental
.;		^- TURNS ON STRIKE THROUGH
.;		\- TURNS OFF STRIKE THROUGH
.;
.;
.setup 27,'c'
.reset escape
.define escape "^*" CHR LCK 27 "[1m"		.; Bold starn
.define escape "\*" CHR LCK 27 "[22m"
.define escape "^&" CHR LCK 27 "[4m"		.; Underline start
.define escape "\&" CHR LCK 27 "[24m"
.define escape "^~" CHR LCK 27 "[3m"		.; Start italics
.define escape "\~" CHR LCK 27 "[23m"		.; end italics
.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 27,')0' 14
.define escape "\%" CHR LCK 15
.define escape "^@" chr lck 27 ")>" 14
.define escape "\@" CHR LCK 15
.define escape "^+" chr lck 27 ")<" 14
.define escape "\+" CHR LCK 15
.DEFINE ESCAPE "^-" CHR LCK "[Nm"
.DEFINE ESCAPE "\-" CHR LCK "[Nm"
.no flags underline
.flags special *&<>
.flags escape
.flags equation
.Define escape "^_" HSP,0,PSP,27,"["
.Define escape "\_" HSP,1,PSP,""
.define escape "^]" 12
.define subst /Courier10.0/^_13m\_
.define subst /Courier6.7/^_15m\_
.define subst /Courier10.3/^_16m\_
.define subst /Elite/^_14m\_^_27l\_
.define subst /Portrait/^_0#J\_^]
.define subst /Landscape/^_1#J\_^]