.ifnot greekmath
.;
.;	Define escape sequences for LA-50 printer
.;		^& turns on underlining
.;		\& turns off underlining
.;		&  underline 1 char
.;		^* turns on bolding
.;		\* turns off bolding
.;		*  bolds 1 char
.;		^~ turns on reverse video	(Ignored on LA-50)
.;		\~ turns off reverse video
.;		^= turns on double width
.;		/= turns off double width
.;		<  Starts subscipt
.;		>  Starts superscript
.;		^% turns on vt100 graphics set
.;		\% turns off vt100 graphics
.;		^@ turns on graphics
.;		\@ turns off graphics
.;		^+ turns on Dec supplemental
.;		\+ turns off Dec supplemental
.;
.;	NOTE:  underlining, bolding, reverse can not be independently combined.
.;	If more than 1 feature is desired they must be turned on and off
.;	together.
.;	Double width is 5 pitch.
.;	Single width is 10 pitch.
.;
.define variable space 1 ' '		.; No variable spacing
.reset escape
.define escape "^*" CHR LCK 27 "[1m"
.define escape "\*" CHR LCK 27 "[0m"
.define escape "^~" CHR LCK 27 "[7m"
.define escape "\~" CHR LCK 27 "[0m"
.define escape "^=" LCK PSP HSP 2 27 "[5w"
.define escape "\=" LCK PSP HSP 1 27 "[0w"
.define escape "\-" VSP 1 27 "K"
.define escape "^<" VSP 1 27 "K"
.define subscript 27 "K"
.define escape "^-" VSP -1 27 'L'
.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		.; Turn on VT-100 line drawing
.define escape "\%" CHR LCK 15
.define escape "^+" chr lck 27 ")<" 14		.; Turn on multinational
.define escape "\+" CHR LCK 15
.define escape "^@" HSP 0 PSP 27"Pq"		.; Turn on graphics mode
.define escape "\@" HSP 1 PSP "$" 27"\" 27"L" 
.flags escape
.flags equation
.;
.;	The LA-50 can do equations, but half or 1&1/2 spacing
.;	should not be used as it will lose track of the top of form.
.;	If these are used then /-ff:n should be used to specify the physical
.;	page length.
.;
.;
.;
.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 "^!" ""
.;	Set vertical motion to 6 lines/inch (normal setting)
.DEFINE ESCAPE "\!" ""
.;	Set vertical motion to 24 lines/inch (6 sections/char)
.DEFINE ESCAPE "^?" ""
.;	Set vertical motion to 6 lines/inch (normal setting)
.DEFINE ESCAPE "\?" ""
.;
.;		Set up references
.;	^- preceedes ref number
.;	\- follows ref number
.;
.;
.;	Use single < or > to sub/superscript
.;
.FLAGS SPECIAL <>
.define substitute /!]/^@____?~????-??@B????\@#
.define substitute /"]/^@???oOOOO-???N????\@#
.define substitute /#]/^@OOOOOOOO-????????\@#
.define substitute /$$]/^@???_}@@A?-???N????\@#
.define substitute /%]/^@???~????-CGGF????\@#
.define substitute /&]/^@???~????-???N????\@#
.define substitute /']/^@???_}AAA?-???N????\@#
.define substitute /(]/^@???~????-???FCCC?\@#
.define substitute /)]/^@AAA_}????-???N????\@#
.define substitute /*]/^@???~????-CCCF????\@#
.define substitute /+]/^@???_{A@??-???N????\@#
.define substitute /,]/^@???~????-???BCG??\@#
.define substitute /-]/^@?@A_{????-???N????\@#
.define substitute /.]/^@???~????-?GCB????\@#
.define substitute "/$"^@?__ON????-??@M????\@#
.define substitute /0]/^@???NO__??-???M@???\@#
.define substitute /1]/^@???OoOOO-?????@AC\@#
.define substitute /2]/^@???OWSQP-????????\@#
.define substitute /3]/^@@ACGO__??-??????@?\@#
.define substitute /4]/^@???__OGC?-CA@?????\@#
.define substitute /5]/^@OOOOOOo?-??????@?\@#
.define substitute /6]/^@OOOOOO[?-????????\@#
.define substitute /7]/^@@ACGo???-GCA@????\@#
.define substitute /8]/^@?_}AAA???-?BAAA???\@#
.define substitute /9]/^@??WWW???-????????\@#
.define substitute /:]/^@??AAA_}??-??AAAB??\@#
.define substitute /;]/^@GGG_}GGG?-AAAAAAA?\@#
.define substitute /<]/^@?OWSQOO?-?@@@@@@?\@#
.define substitute /=]/^@?ggwkig?-?A@?????\@#
.define substitute />]/^@?OOQSWO?-?@@@@@@?\@#
.define substitute /?]/^@???_}@@A?-CGGF????\@#
.define substitute /@]/^@???KK???-?BB??BB?\@#
.define substitute /A]/^@wCCwCCC?-?@@?@@@?\@#
.define substitute /B]/^@wCCwCCw?-?@@?@@??\@#
.define substitute /C]/^@OOOSOOO?-???@????\@#
.define substitute /D]/^@?oKAKo??-BAAAAAB?\@#
.define substitute /PH]/^@Wcd~dcW?-??ABA???\@#
.define substitute /G]/^@?@~@@B??-?ABA????\@#
.define substitute /H]/^@OGGO____O?-????????\@#
.define substitute /I]/^@GCCGOOG?-@@@@@@@?\@#
.define substitute /J]/^@wCQQQCw?-?@AAA@??\@#
.define substitute /K]/^@?CgOgC??-?@???@??\@#
.define substitute /L]/^@?oKAKo??-BA???AB?\@#
.define substitute /M]/^@gkigikg?-?@A?A@??\@#
.define substitute /N]/^@?gggikg?-????A@??\@#
.define substitute /O]/^@?gggggg?-?AAAAAA?\@#
.define substitute /P]/^@A_}AAA_}A?-?B???B??\@#
.define substitute /PS]/^@MO___}__OM?-??ABA???\@#
.define substitute /R]/^@?CIIIC??-????????\@#
.define substitute /S]/^@AEiQAAA?-ABAAAAA?\@#
.define substitute /T]/^@?SiiiO??-??AAA@??\@#
.define substitute /Y]/^@?KQQ_}Q_}?-????B?B?\@#
.define substitute /OM]/^@wCAAACw?-AB???BA?\@#
.define substitute /X]/^@?AQQQQA?-?AAAAAA?\@#
.define substitute /U]/^@CAA_{AAC?-???B????\@#
.define substitute /Z]/^@oGCCCCC?-?@AAAAA?\@#
.define substitute /$]/^@CCCCCGo?-AAAAA@??\@#
.define substitute /\]/^@wCAAACw?-B?????B?\@#
.define substitute /]]/^@_}?????_}?-?@AAA@??\@#
.define substitute /^]/^@?oKAKo??-B?????B?\@#
.define substitute /_]/^@EW__?__WE?-??@A@???\@#
.define substitute /`]/^@?GGGGGW?-????????\@#
.;alpha
.define substitute /a]/^@__OGGoOG?-?@AA@@A?\@#
.;	beta
.define substitute /b]/^@?__WSQQk?-E@AAAA@?\@#
.define substitute /c]/^@?GGO____W?-GCA@?@M?\@#
.;	delta
.define substitute /d]/^@?__O[QaC?-?@AAA@??\@#
.;	epsilon
.define substitute /e]/^@?ogggG??-?@AAAA??\@#
.;	phi
.define substitute /ph]/^@__OOOoOg?-HEABAA@?\@#
.;	gamma
.define substitute /g]/^@GCGo?__O?-??KN@???\@#
.;	eta
.define substitute /h]/^@GGoOGGo?-??B???N?\@#
.;	iota
.define substitute /i]/^@???w????-???@AA@?\@#
.;	theta
.define substitute /th]/^@oggggo??-@AAAA@??\@#
.;	kappa
.define substitute /k]/^@C_{?__OG??-?B@@AA??\@#
.;	lambda
.define substitute /l]/^@?CCgO__??-AA@???B?\@#
.define substitute /m]/^@?w????w?-E@AAAA@?\@#
.define substitute /n]/^@CcW??__[?-ABA@@???\@#
.define substitute /o]/^@CCcSGGo?-??@AAA@?\@#
.;	phi
.define substitute /p]/^@?GwGGwG?-?A@??B??\@#
.; large phi
.DEFINE SUBSTITUTE \ph2$\O%/
.;	psi
.define substitute /ps]/^@__??w??__?-?@ANA@??\@#
.;	rho
.define substitute /r]/^@??__OGGo?-KB??@@??\@#
.;	sigma
.define substitute /s]/^@__OGGWgG?-@AAAA@??\@#
.; large lowercase sigma
.DEFINE SUBSTITUTE /s2]/O%^%oo\%
.;	tau
.define substitute /t]/^@OGGwGGC?-???BA???\@#
.define substitute /y]/^@????????-????????\@#
.define substitute /v]/^@???_}PPA?-EGGF????\@#
.;	omega
.define substitute /om]/^@oG?__?Go?-@AA@AA@?\@#
.;	chi
.define substitute /x]/^@OgicCC??-?BAIIE??\@#
.;	upsilon
.define substitute /u]/^@Cw????w?-??@AA@??\@#
.;zeta
.define substitute /z]/^@cQIEEAA?-?@@DDB??\@#
.;
.;
.;
.;	Now full definition
.;
.DEFINE SUBSTITUTE /alpha]/[a]
.DEFINE SUBSTITUTE /beta]/[b]
.DEFINE SUBSTITUTE /Gamma]/[G]
.DEFINE SUBSTITUTE /gamma]/[g]
.DEFINE SUBSTITUTE /Delta]/[D]
.DEFINE SUBSTITUTE /delta]/[d]
.DEFINE SUBSTITUTE /epsilon]/[e]
.DEFINE SUBSTITUTE /zeta]/[z]
.DEFINE SUBSTITUTE /eta]/[h]
.DEFINE SUBSTITUTE /Theta]/[J]
.DEFINE SUBSTITUTE /theta]/[j]
.DEFINE SUBSTITUTE /iota]/[i]
.DEFINE SUBSTITUTE /kappa]/[k]
.DEFINE SUBSTITUTE /Lambda]/[L]
.DEFINE SUBSTITUTE /lambda]/[l]
.DEFINE SUBSTITUTE /mu]/^+5\+
.DEFINE SUBSTITUTE /nu]/[n]
.DEFINE SUBSTITUTE /Xi]/[X]
.DEFINE SUBSTITUTE /xi]/[x]
.DEFINE SUBSTITUTE /Pi]/[P]
.DEFINE SUBSTITUTE /pi]/[p]
.DEFINE SUBSTITUTE /rho]/[r]
.DEFINE SUBSTITUTE /Sigma]/[S]
.DEFINE SUBSTITUTE /sigma]/[s]
.DEFINE SUBSTITUTE /tau]/[t]
.DEFINE SUBSTITUTE /Upsilon]/[U]
.DEFINE SUBSTITUTE /upsilon]/[u]
.DEFINE SUBSTITUTE /Phi]/[PH]
.DEFINE SUBSTITUTE /phi]/[ph]
.DEFINE SUBSTITUTE /chi]/[x]
.DEFINE SUBSTITUTE /Psi]/[PS]
.DEFINE SUBSTITUTE /psi]/[ps]
.DEFINE SUBSTITUTE /Omega]/[OM]
.DEFINE SUBSTITUTE /omega]/[om]
.;
.;	Arrows
.;
.DEFINE SUBSTITUTE /dn]/[down]
.DEFINE SUBSTITUTE /rg]/[right]
.DEFINE SUBSTITUTE /lf]/[left]
.;	Up arrow
.define substitute /UP]/^@?GC_}CG??-???B????\@#
.;	Down arrow
.define substitute /DOWN]/^@?__?_}?__??-??@B@???\@#
.;	Right arrow
.define substitute /RIGHT]/^@OOOOSwO?-????@???\@#
.;	Left arrow
.define substitute /LEFT]/^@OwSOOOO?-??@?????\@#
.;
.;	Script symbols
.;
.DEFINE SUBSTITUTE /H']/H
.; Script H
.DEFINE SUBSTITUTE /L']/^+_#\+
.; Script L
.DEFINE SUBSTITUTE /M']/M
.; Script M
.define substitute /R']/R
.; Script R
.DEFINE SUBSTITUTE /e']/e
.; 
.define substitute /l']/l
.; Script l
.;
.;	Scientific symbol del
.;
.define substitute /del]/^@KScCcSK?-???@????\@#
.;
.;	Foreign language symbol should appear in front of letter to be marked
.;
.DEFINE SUBSTITUTE /umlaut]/["]%
.DEFINE SUBSTITUTE /uml]/["]%
.define substitute /cir]/_^%
.define substitute /CV]/C%[UP]
.;
.;	Define a dagger
.;
.DEFINE SUBSTITUTE /dagger]/|%-
.DEFINE SUBSTITUTE /dag]/|%-
.;
.;	Define a bullet
.;
.DEFINE SUBSTITUTE /bul]/O%[DOT]
.;
.;	Angstrom symbol
.;
.DEFINE SUBSTITUTE /angstrom]/^+E\+
.DEFINE SUBSTITUTE /angs]/^+E\+
.;	H bar
.define substitute /hbar]/h%/
.DEFINE SUBSTITUTE /BR]/_~%
.DEFINE SUBSTITUTE /br]/_~%
.;
.;	Bra,bar, and ket
.;
.DEFINE SUBSTITUTE /bra]/_<
.; large "<"
.DEFINE SUBSTITUTE /bar]/_|
.; large vertical line
.DEFINE SUBSTITUTE /ket]/_>
.; large ">"
.DEFINE SUBSTITUTE /bra2]/<[3]%>>[4]<
.; double height "<"
.DEFINE SUBSTITUTE /bar2]/<[&]%>>[&]<
.; double height vertical line
.DEFINE SUBSTITUTE /ket2]/<[4]%>>[3]<
.; double height ">"
.;
.;
.; Degree symbol
.DEFINE SUBSTITUTE /degree]/^+0\+
.DEFINE SUBSTITUTE /deg]/^+0\+
.; Perpendicular symbol
.DEFINE SUBSTITUTE /perp]/<^%v\%>
.DEFINE SUBSTITUTE /partial]/[o]
.; Partial derivitive symbol
.DEFINE SUBSTITUTE /par]/[o]
.;
.;	less than or =, greater than or =, etc.
.;
.define substitute /+-]/^+1\+
.define substitute /-+]/^+1\+
.DEFINE SUBSTITUTE /<=]/[<]
.DEFINE SUBSTITUTE />=]/[>]
.DEFINE SUBSTITUTE /~=]/[I]
.DEFINE SUBSTITUTE /~]/[H]
.DEFINE SUBSTITUTE /<]/_<
.DEFINE SUBSTITUTE />]/_>
.DEFINE SUBSTITUTE /~<]/<[H]%>_<
.DEFINE SUBSTITUTE /~>]/<[H]%>_>
.DEFINE SUBSTITUTE /~~]/[H]%>[H]<
.DEFINE SUBSTITUTE /prop]/[A]
.DEFINE SUBSTITUTE /inf]/[B]
.define substitute /def]/[O]
.define substitute /==]/[O]
.define substitute /times]/[K]
.define substitute /dot]/^+7\+
.;
.;	Large square brakets
.;		[[2] are centered double height
.;		[[3] are centered triple height
.;
.DEFINE SUBSTITUTE /$2]/<[(]>>%[']<
.DEFINE SUBSTITUTE /]2]/<[*]>>%[)]<
.DEFINE SUBSTITUTE /$3]/<<[(]>>%[&]>>%[']<<
.DEFINE SUBSTITUTE /]3]/<<[*]>%[&]>>%[)]<<
.DEFINE SUBSTITUTE /$4]/<<<[(]>>%[&]>>%[&]>>%[']<<<
.DEFINE SUBSTITUTE /]4]/<<<[*]>>%[&]>>%[&]>>%[)]<<<
.DEFINE SUBSTITUTE /$5]/<<<<[(]>>%[&]>>%[&]>>%[&]>>%[']<<<<
.DEFINE SUBSTITUTE /]5]/<<<<[*]>>%[&]>>%[&]>>%[&]>>%[)]<<<<
.;
.;	Large integral sign
.;
.DEFINE SUBSTITUTE /int]/<[%]>>%[[]<
.;
.;	Large summation symbol
.;
.DEFINE SUBSTITUTE /sum]/<____%%[4]>>%[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]/^@__??__WEA?-?@A@????\@#
.DEFINE SUBSTITUTE /sq1,1]/[sq]>>__<<%
.DEFINE SUBSTITUTE /sq1,2]/[sq]>>____<<%%
.DEFINE SUBSTITUTE /sq1,3]/[sq]>>______<<%%%
.DEFINE SUBSTITUTE /sq1,4]/[sq]>>________<<%%%%
.DEFINE SUBSTITUTE /sq1,6]/[sq]>>____________<<%%%%%%
.DEFINE SUBSTITUTE /sq2,1]/[sq]%>>[']^%o<<\%%
.DEFINE SUBSTITUTE /sq2,2]/[sq]%>>[']^%oo<<\%%%
.DEFINE SUBSTITUTE /sq2,3]/[sq]%>>[']^%ooo<<\%%%%
.DEFINE SUBSTITUTE /sq2,4]/[sq]%>>[']^%oooo<<\%%%%%
.DEFINE SUBSTITUTE /sq2,6]/[sq]%>>[']^%oooooo<<\%%%%%%%
.DEFINE SUBSTITUTE /sq2,8]/[sq]%>>[']^%oooooooo<<\%%%%%%%%%
.variant greekmath
.endif greekmath