.flags substitute
.flags escape
.flags overstrike
.;	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
.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 /sig2$/O%^8_$_$^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
.DEFINE SUBSTITUTE /del$/^8!^3
.DEFINE SUBSTITUTE /umlaut$/^8"^3%
.DEFINE SUBSTITUTE /$dagger/^8'^3
.DEFINE SUBSTITUTE /$ANGSTROM/A%^8^?>,<\?^3
.DEFINE SUBSTITUTE /$bram1/_<
.DEFINE SUBSTITUTE /$barm1/^8_|^3
.DEFINE SUBSTITUTE /$ketm1/_>
.DEFINE SUBSTITUTE /$BRAM2/^!^8<_\%>>_/<^3\!
.DEFINE SUBSTITUTE /$BARM2/^!^8<_=>>%_=<^3\!
.DEFINE SUBSTITUTE /$KETM2/^!^8<_/%>>_\<^3\!
.DEFINE SUBSTITUTE /$degree/^8,^3
.DEFINE SUBSTITUTE /$perp/^8-^3
.DEFINE SUBSTITUTE /$partial/^8.^3
.DEFINE SUBSTITUTE /<=/^8?%^3^?>__<\?
.DEFINE SUBSTITUTE />=/^8_@%^3^?>__<\?
.DEFINE SUBSTITUTE /~=/^?^8<_#%^3>>__<\?
.DEFINE SUBSTITUTE /$app/^8_#^3
.DEFINE SUBSTITUTE /$</^8?^3
.DEFINE SUBSTITUTE /$>/^8_@^3
.DEFINE SUBSTITUTE /~</^!^8?%<_#>^3\!
.DEFINE SUBSTITUTE /~>/^!^8_@%<_#>^3\!
.DEFINE SUBSTITUTE /~~/^8~^3
.DEFINE SUBSTITUTE /$UP/^8[^3
.DEFINE SUBSTITUTE /$DOWN/^8]^3
.DEFINE SUBSTITUTE /$RIGHT/^8{^3
.DEFINE SUBSTITUTE /$LEFT/^8}^3
.FLAGS SPECIAL <
.FLAGS SPECIAL >
.DEFINE SUBSTITUTE /[M2/^8<_<%>_=>%:<^3
.DEFINE SUBSTITUTE /]M2/^8<_>%>_=>%;^3
.DEFINE SUBSTITUTE /[B2/^8_<%>_=>%:^3<<
.DEFINE SUBSTITUTE /]B2/^8_>%>_=>%;^3<<
.DEFINE SUBSTITUTE /$INTM2/^8<B>%_=>%C<^3
.DEFINE SUBSTITUTE /$SUMM1/^!^8<____%%_/%>>_\%_$_$<^3\!