.;	All special symbols are enclosed inside square brakets
.;		For example [a] produces an alpha
.;
.;	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'3
.;
.;	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 /R']/^8R^3
.; Script R
.DEFINE SUBSTITUTE /e']/^8E^3
.; Script l
.define substitute /l']/^8N^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 substitute /cir]/^8_^^3%
.define substitute /CV]/C%^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
.define substitute /hbar]/h^8%_/^3
.DEFINE SUBSTITUTE /BR]/^?>>^8_^^3<<\?%
.DEFINE SUBSTITUTE /br]/^?>^8_^^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<B>%_=>%C<^3
.;
.;	Large summation symbol
.;
.DEFINE SUBSTITUTE /sum]/^!^8<____%%_/%>>_\%_$_$<^3\!
.;
.;	Square root signs
.;		[sq]   is ordinary squar root
.;		[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