.; .; This prefix file defines all of the special symbols .; for the Bonner Lab Florida Data OSP-130 printer with the extra .; font downloaded. .; Written by J. CLEMENT .; .ifnot greekmath .; If already defined skip it .flags substitute .; Turn on substitutions .flags escape .; Turn on escape seq .flags overstrike .; Turn on overstriking .flags equation .; Turn on equation mode .; .; Now define some extra DIABLO compatible escape seq. .; .; 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 .; ^- preceedes ref number .; \- follows ref number .; .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 .;alpha .DEFINE SUBSTITUTE /b$/^8b^3 .;beta .DEFINE SUBSTITUTE /G$/^8G^3 .;Gamma (upper case) .DEFINE SUBSTITUTE /g$/^8g^3 .;gamma (lower case) .DEFINE SUBSTITUTE /D$/^8D^3 .;Delta .DEFINE SUBSTITUTE /d$/^8d^3 .;delta .DEFINE SUBSTITUTE /e$/^8e^3 .;epsilon .DEFINE SUBSTITUTE /z$/^8z^3 .;zeta .DEFINE SUBSTITUTE /h$/^8h^3 .;eta .DEFINE SUBSTITUTE /Th$/^8J^3 .;THETA .DEFINE SUBSTITUTE /th$/^8j^3 .;theta .DEFINE SUBSTITUTE /i$/^8i^3 .;iota .DEFINE SUBSTITUTE /k$/^8k^3 .;kappa .DEFINE SUBSTITUTE /L$/^8L^3 .;LAMDA .DEFINE SUBSTITUTE /l$/^8l^3 .;lamda .DEFINE SUBSTITUTE /r$/^8r^3 .;rho .DEFINE SUBSTITUTE /S$/^8S^3 .; Upper and lowercase Sigma .DEFINE SUBSTITUTE /s$/^8s^3 .; .DEFINE SUBSTITUTE /s2$/O%^8_$_$^3 .; large lowercase sigma .DEFINE SUBSTITUTE /t$/^8t^3 .; tau .DEFINE SUBSTITUTE /u$/^8u^3 .; upsilon .DEFINE SUBSTITUTE /Ph$/^8F^3 .; Capital Phi .DEFINE SUBSTITUTE /ph$/^8f^3 .; small phi .DEFINE SUBSTITUTE \ph2$\O%/ .; large phi .DEFINE SUBSTITUTE /x$/^8x^3 .; chi .DEFINE SUBSTITUTE /Ps$/^8Y^3 .; Upper and lowercase Psi .DEFINE SUBSTITUTE /ps$/^8y^3 .; .DEFINE SUBSTITUTE /Om$/^8W^3 .; Upper and lowercase omega .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 .; Script H .DEFINE SUBSTITUTE /L'/^8I^3 .; Script L .DEFINE SUBSTITUTE /M'/^8M^3 .; Script M .DEFINE SUBSTITUTE /e'/^8E^3 .; .define substitute /l'/^8N^3 .; Script l .; .; 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 substitute /cir$/_^% .; .; 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 .define substitute /hbar$/h^8%v^3 .; .; Bra,bar, and ket .; .DEFINE SUBSTITUTE /bra$/_< .; large "<" .DEFINE SUBSTITUTE /bar$/^8_|^3 .; large vertical line .DEFINE SUBSTITUTE /ket$/_> .; large ">" .DEFINE SUBSTITUTE /bra2$/^!^8<_\%>>_/<^3\! .; double height "<" .DEFINE SUBSTITUTE /bar2$/^!^8<_=>>%_=<^3\! .; double height vertical line .DEFINE SUBSTITUTE /ket2$/^!^8<_/%>>_\<^3\! .; double height ">" .; .; .DEFINE SUBSTITUTE /degree$/^8,^3 .; Degree symbol .DEFINE SUBSTITUTE /deg$/^8,^3 .DEFINE SUBSTITUTE /perp$/^8-^3 .; Perpendicular symbol .DEFINE SUBSTITUTE /partial$/^8.^3 .; Partial derivitive symbol .DEFINE SUBSTITUTE /par$/^8.^3 .; .; less than or =, greater than or =, etc. .; .define substitute /+-$/+%__ .define substitute /-+$/^>-%^<+ .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 .define substitute /def$/^?>>-<<%-<<%->>\? .define substitute /==$/^?>>-<<%-<<%->>\? .define substitute /times$/^8_*^3 .define substitute /dot$/^?>>_.<<\? .; .; Arrows .; .DEFINE SUBSTITUTE /up$/^8[^3 .DEFINE SUBSTITUTE /down$/^8]^3 .DEFINE SUBSTITUTE /dn$/^8]^3 .DEFINE SUBSTITUTE /right$/^8_{^3 .DEFINE SUBSTITUTE /rg$/^8_{^3 .DEFINE SUBSTITUTE /left$/^8_}^3 .DEFINE SUBSTITUTE /lf$/^8_}^3 .; .; Large square brakets .; $[2$ are centered double height .; $[3$ are centered triple height .; .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%_=>%C<^3 .; .; Large summation symbol .; .DEFINE SUBSTITUTE /sum$/^!^8<____%%_/%>>_\%_$_$<^3\! .; .; Square root signs .; $sq$ is ordinary .; $sq1,1 is single height single char width .; $sq1,2 is single height double char width etc.... .; $sq2,1 is double height double char width etc.... .; .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 .variant greekmath .endif greekmath