.flags substitute
.flags escape
.flags overstrike
.flags equation
.;	Set vertical motion to 8 lines/inch
.DEFINE ESCAPE "^!" LCK 27, 30, 7
.;	Set vertical motion to 6 lines/inch (normal setting)
.DEFINE ESCAPE "\!" LCK 27, 30, 9
.;	Set vertical motion to 24 lines/inch (6 sections/char)
.DEFINE ESCAPE "^?" LCK 27, 30, 3
.;	Set vertical motion to 6 lines/inch (normal setting)
.DEFINE ESCAPE "\?" LCK 27, 30, 9
.;	Set up references
.define escape "^-" LCK,CHR,27,"D",27,"I",9
.define escape "\-" LCK,CHR,27,"U",27,"I",4
.;
.;	Use single < or > to sub/superscript
.;
.FLAGS SPECIAL <
.FLAGS SPECIAL >
.;
.;	Define upper and lower case greek symbols
.;		"abbreviated"
.;
.DEFINE SUBSTITUTE /a$/^8a^3
.DEFINE SUBSTITUTE /b$/^8b^3
.DEFINE SUBSTITUTE /G$/^8G^3
.DEFINE SUBSTITUTE /g$/^8g^3
.DEFINE SUBSTITUTE /D$/^8D^3
.DEFINE SUBSTITUTE /d$/^8d^3
.DEFINE SUBSTITUTE /e$/^8e^3
.DEFINE SUBSTITUTE /z$/^8z^3
.DEFINE SUBSTITUTE /h$/^8h^3
.DEFINE SUBSTITUTE /Th$/^8J^3
.DEFINE SUBSTITUTE /th$/^8j^3
.DEFINE SUBSTITUTE /i$/^8i^3
.DEFINE SUBSTITUTE /k$/^8k^3
.DEFINE SUBSTITUTE /L$/^8L^3
.DEFINE SUBSTITUTE /l$/^8l^3
.DEFINE SUBSTITUTE /r$/^8r^3
.DEFINE SUBSTITUTE /S$/^8S^3
.DEFINE SUBSTITUTE /s$/^8s^3
.DEFINE SUBSTITUTE /s2$/O%^8_$_$^3
.DEFINE SUBSTITUTE /t$/^8t^3
.DEFINE SUBSTITUTE /u$/^8u^3
.DEFINE SUBSTITUTE /Ph$/^8F^3
.DEFINE SUBSTITUTE /ph$/^8f^3
.DEFINE SUBSTITUTE \ph2$\O%/
.DEFINE SUBSTITUTE /x$/^8x^3
.DEFINE SUBSTITUTE /Ps$/^8Y^3
.DEFINE SUBSTITUTE /ps$/^8y^3
.DEFINE SUBSTITUTE /Om$/^8W^3
.DEFINE SUBSTITUTE /om$/^8w^3
.;
.;	Now full definition
.;
.DEFINE SUBSTITUTE /alpha$/^8a^3
.DEFINE SUBSTITUTE /beta$/^8b^3
.DEFINE SUBSTITUTE /Gamma$/^8G^3
.DEFINE SUBSTITUTE /gamma$/^8g^3
.DEFINE SUBSTITUTE /Delta$/^8D^3
.DEFINE SUBSTITUTE /delta$/^8d^3
.DEFINE SUBSTITUTE /epsilon$/^8e^3
.DEFINE SUBSTITUTE /zeta$/^8z^3
.DEFINE SUBSTITUTE /eta$/^8h^3
.DEFINE SUBSTITUTE /Theta$/^8J^3
.DEFINE SUBSTITUTE /theta$/^8j^3
.DEFINE SUBSTITUTE /iota$/^8i^3
.DEFINE SUBSTITUTE /kappa$/^8k^3
.DEFINE SUBSTITUTE /Lambda$/^8L^3
.DEFINE SUBSTITUTE /lambda$/^8l^3
.DEFINE SUBSTITUTE /mu$/^8m^3
.DEFINE SUBSTITUTE /nu$/^8n^3
.DEFINE SUBSTITUTE /Xi$/^8Q^3
.DEFINE SUBSTITUTE /xi$/^8q^3
.DEFINE SUBSTITUTE /Pi$/^8P^3
.DEFINE SUBSTITUTE /pi$/^8p^3
.DEFINE SUBSTITUTE /rho$/^8r^3
.DEFINE SUBSTITUTE /Sigma$/^8S^3
.DEFINE SUBSTITUTE /sigma$/^8s^3
.DEFINE SUBSTITUTE /tau$/^8t^3
.DEFINE SUBSTITUTE /upsilon$/^8u^3
.DEFINE SUBSTITUTE /Phi$/^8F^3
.DEFINE SUBSTITUTE /phi$/^8f^3
.DEFINE SUBSTITUTE /chi$/^8x^3
.DEFINE SUBSTITUTE /Psi$/^8Y^3
.DEFINE SUBSTITUTE /psi$/^8y^3
.DEFINE SUBSTITUTE /Omega$/^8W^3
.DEFINE SUBSTITUTE /omega$/^8w^3
.;
.;	Script symbols
.;
.DEFINE SUBSTITUTE /H'/^8H^3
.DEFINE SUBSTITUTE /L'/^8I^3
.DEFINE SUBSTITUTE /M'/^8M^3
.DEFINE SUBSTITUTE /e'/^8E^3
.;
.;	Scientific symbol del
.;
.DEFINE SUBSTITUTE /del$/^8!^3
.;
.;	Foreign language symbol should appear in front of letter to be marked
.;
.DEFINE SUBSTITUTE /umlaut$/^8"^3%
.DEFINE SUBSTITUTE /uml$/^8"^3%
.;	Define a dagger
.DEFINE SUBSTITUTE /dagger$/^8'^3
.DEFINE SUBSTITUTE /dag$/^8'^3
.;	Define a bullet
.DEFINE SUBSTITUTE /bul$/^8o^3
.;	Angstrom symbol
.DEFINE SUBSTITUTE /angstrom$/A%^8^?>,<\?^3
.DEFINE SUBSTITUTE /angs$/A%^8^?>,<\?^3
.;	Single line bra,bar, and ket
.DEFINE SUBSTITUTE /bra$/_<
.DEFINE SUBSTITUTE /bar$/^8_|^3
.DEFINE SUBSTITUTE /ket$/_>
.;	2 line bra,line, and ket
.DEFINE SUBSTITUTE /bra2$/^!^8<_\%>>_/<^3\!
.DEFINE SUBSTITUTE /bar2$/^!^8<_=>>%_=<^3\!
.DEFINE SUBSTITUTE /ket2$/^!^8<_/%>>_\<^3\!
.;	Degree symbol
.DEFINE SUBSTITUTE /degree$/^8,^3
.DEFINE SUBSTITUTE /deg$/^8,^3
.;	Perpendicular symbol
.DEFINE SUBSTITUTE /perp$/^8-^3
.;	Partial derivitive symbol
.DEFINE SUBSTITUTE /partial$/^8.^3
.DEFINE SUBSTITUTE /par$/^8.^3
.;
.;	less than or =, greater than or =, etc.
.;
.DEFINE SUBSTITUTE /<=$/^8?%^3^?>__<\?
.DEFINE SUBSTITUTE />=$/^8_@%^3^?>__<\?
.DEFINE SUBSTITUTE /~=$/^?^8<_#%^3>>__<\?
.DEFINE SUBSTITUTE /~$/^8_#^3
.DEFINE SUBSTITUTE /<$/^8?^3
.DEFINE SUBSTITUTE />$/^8_@^3
.DEFINE SUBSTITUTE /~<$/^!^8?%<_#>^3\!
.DEFINE SUBSTITUTE /~>$/^!^8_@%<_#>^3\!
.DEFINE SUBSTITUTE /~~$/^8~^3
.DEFINE SUBSTITUTE /prop$/^8A^3
.DEFINE SUBSTITUTE /inf$/^8O^3
.;
.;	Arrows
.;
.DEFINE SUBSTITUTE /up$/^8[^3
.DEFINE SUBSTITUTE /down$/^8]^3
.DEFINE SUBSTITUTE /right$/^8_{^3
.DEFINE SUBSTITUTE /left$/^8_}^3
.DEFINE SUBSTITUTE /dn$/^8]^3
.DEFINE SUBSTITUTE /rg$/^8_{^3
.DEFINE SUBSTITUTE /lf$/^8_}^3
.;
.;	Large square brakets
.;		$[2$ are centered
.;
.DEFINE SUBSTITUTE /[2$/^8<_<%>_=>%:^3<
.DEFINE SUBSTITUTE /]2$/^8<_>%>_=>%;^3<
.DEFINE SUBSTITUTE /[3$/^8<<_<%>_=%>_=%>_=%>:^3<<
.DEFINE SUBSTITUTE /]3$/^8<<_>%>_=%>_=%>_=%>;^3<<
.DEFINE SUBSTITUTE /[4$/^8<<<_<%>_=%>_=%>_=%>_=%>_=%>:^3<<<
.DEFINE SUBSTITUTE /]4$/^8<<<_>%>_=%>_=%>_=%>_=%>_=%>;^3<<<
.DEFINE SUBSTITUTE /[5$/^8<<<<_<%>_=%>_=%>_=%>_=%>_=%>_=%>_=>%:^3<<<<
.DEFINE SUBSTITUTE /]5$/^8<<<<_>%>_=%>_=%>_=%>_=%>_=%>_=%>_=>%;^3<<<<
.;
.;	Large integral sign
.;
.DEFINE SUBSTITUTE /int$/^8<B>%_=>%C<^3
.;
.;	Large summation symbol
.;
.DEFINE SUBSTITUTE /sum$/^!^8<____%%_/%>>_\%_$_$<^3\!
.DEFINE SUBSTITUTE /sq$/^8_%^3
.DEFINE SUBSTITUTE /sq1,1$/^8_%_$%^3
.DEFINE SUBSTITUTE /sq1,2$/^8_%_$_$%%^3
.DEFINE SUBSTITUTE /sq1,3$/^8_%_$_$_$%%%^3
.DEFINE SUBSTITUTE /sq1,4$/^8_%_$_$_$_$%%%%^3
.DEFINE SUBSTITUTE /sq1,6$/^8_%_$_$_$_$_$_$%%%%%%^3
.DEFINE SUBSTITUTE /sq2,1$/^8^!_%>>_/_$%<<\!^3
.DEFINE SUBSTITUTE /sq2,2$/^8^!_%>>_/_$_$%%<<\!^3
.DEFINE SUBSTITUTE /sq2,3$/^8^!_%>>_/_$_$_$%%%<<\!^3
.DEFINE SUBSTITUTE /sq2,4$/^8^!_%>>_/_$_$_$_$%%%%<<\!^3
.DEFINE SUBSTITUTE /sq2,6$/^8^!_%>>_/_$_$_$_$_$_$%%%%%%<<\!^3
.DEFINE SUBSTITUTE /sq2,8$/^8^!_%>>_/_$_$_$_$_$_$_$_$%%%%%%%%<<\!^3