.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" 
.;
.;  SIMULATE FONT CHANGES WITH REVERSE VIDEO
.;
.;define escape "^8" CHR LCK 27 "[1m"
.;define escape "\3" CHR LCK 27 "[0m"
.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 /E_/^@KScCcSK?-???@????\@#
.define substitute /F_/^@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 /Q_/^@MO___}__OM?-??ABA???\@#
.define substitute /R_/^@?CIIIC??-????????\@#
.define substitute /S_/^@AEiQAAA?-ABAAAAA?\@#
.define substitute /T_/^@?SiiiO??-??AAA@??\@#
.define substitute /U_/^@?KQQ_}Q_}?-????B?B?\@#
.define substitute /V_/^@__??__WEA?-?@A@????\@#
.define substitute /W_/^@wCAAACw?-AB???BA?\@#
.define substitute /X_/^@?AQQQQA?-?AAAAAA?\@#
.define substitute /Y_/^@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?-????????\@#
.define substitute /a_/^@__OGGoOG?-?@AA@@A?\@#
.define substitute /b_/^@?__WSQQk?-E@AAAA@?\@#
.define substitute /c_/^@?GGO____W?-GCA@?@M?\@#
.define substitute /d_/^@?__O[QaC?-?@AAA@??\@#
.define substitute /e_/^@?ogggG??-?@AAAA??\@#
.define substitute /f_/^@__OOOoOg?-HEABAA@?\@#
.define substitute /g_/^@GCGo?__O?-??KN@???\@#
.define substitute /h_/^@GGoOGGo?-??B???N?\@#
.define substitute /i_/^@???w????-???@AA@?\@#
.define substitute /j_/^@oggggo??-@AAAA@??\@#
.define substitute /k_/^@C_{?__OG??-?B@@AA??\@#
.define substitute /l_/^@?CCgO__??-AA@???B?\@#
.define substitute /m_/^@?w????w?-E@AAAA@?\@#
.define substitute /n_/^@CcW??__[?-ABA@@???\@#
.define substitute /o_/^@CCcSGGo?-??@AAA@?\@#
.define substitute /p_/^@?GwGGwG?-?A@??B??\@#
.define substitute /q_/^@__??w??__?-?@ANA@??\@#
.define substitute /r_/^@??__OGGo?-KB??@@??\@#
.define substitute /s_/^@__OGGWgG?-@AAAA@??\@#
.define substitute /t_/^@OGGwGGC?-???BA???\@#
.define substitute /u_/^@????????-????????\@#
.define substitute /v_/^@???_}PPA?-EGGF????\@#
.define substitute /w_/^@oG?__?Go?-@AA@AA@?\@#
.define substitute /x_/^@OgicCC??-?BAIIE??\@#
.define substitute /y_/^@Cw????w?-??@AA@??\@#
.define substitute /z_/^@cQIEEAA?-?@@DDB??\@#
.define substitute /{_/^@OwSOOOO?-??@?????\@#
.define substitute /|_/^@?GC_}CG??-???B????\@#
.define substitute /}_/^@OOOOSwO?-????@???\@#
.define substitute /~_/^@?__?_}?__??-??@B@???\@#
.;
.DEFINE SUBSTITUTE /a$/$a_
.;alpha
.DEFINE SUBSTITUTE /b$/$b_
.;beta
.DEFINE SUBSTITUTE /G$/$G_
.;Gamma (upper case)
.DEFINE SUBSTITUTE /g$/$g_
.;gamma (lower case)
.DEFINE SUBSTITUTE /D$/$D_
.;Delta
.DEFINE SUBSTITUTE /d$/$d_
.;delta
.DEFINE SUBSTITUTE /e$/$e_
.;epsilon
.DEFINE SUBSTITUTE /z$/$z_
.;zeta
.DEFINE SUBSTITUTE /h$/$h_
.;eta
.DEFINE SUBSTITUTE /Th$/$J_
.;THETA
.DEFINE SUBSTITUTE /th$/$j_
.;theta
.DEFINE SUBSTITUTE /i$/$i_
.;iota
.DEFINE SUBSTITUTE /k$/$k_
.;kappa
.DEFINE SUBSTITUTE /L$/$L_
.;LAMDA
.DEFINE SUBSTITUTE /l$/$l_
.;lamda
.DEFINE SUBSTITUTE /r$/$r_
.;rho
.DEFINE SUBSTITUTE /S$/$S_
.; Upper and lowercase Sigma
.DEFINE SUBSTITUTE /s$/$s_
.;
.DEFINE SUBSTITUTE /s2$/O%^%oo\%
.; large lowercase sigma
.DEFINE SUBSTITUTE /t$/$t_
.; tau
.define substitute /U$/$Y_
.DEFINE SUBSTITUTE /u$/$y_
.; upsilon
.DEFINE SUBSTITUTE /Ph$/$F_
.; Capital Phi
.DEFINE SUBSTITUTE /ph$/$f_
.; small phi
.DEFINE SUBSTITUTE \ph2$\O%/
.; large phi
.DEFINE SUBSTITUTE /x$/$x_
.; chi
.DEFINE SUBSTITUTE /Ps$/$Q_
.; Upper and lowercase Psi
.DEFINE SUBSTITUTE /ps$/$q_
.;
.DEFINE SUBSTITUTE /Om$/$W_
.; Upper and lowercase omega
.DEFINE SUBSTITUTE /om$/$w_
.;
.;
.;	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$/$Y_
.DEFINE SUBSTITUTE /upsilon$/$y_
.DEFINE SUBSTITUTE /Phi$/$F_
.DEFINE SUBSTITUTE /phi$/$f_
.DEFINE SUBSTITUTE /chi$/$x_
.DEFINE SUBSTITUTE /Psi$/$Q_
.DEFINE SUBSTITUTE /psi$/$q_
.DEFINE SUBSTITUTE /Omega$/$W_
.DEFINE SUBSTITUTE /omega$/$w_
.;
.;	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$/$E_
.;
.;	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%$|_
.;
.;	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\+
.;
.;	Arrows
.;
.DEFINE SUBSTITUTE /up$/$|_
.DEFINE SUBSTITUTE /down$/$~_
.DEFINE SUBSTITUTE /dn$/$~_
.DEFINE SUBSTITUTE /right$/$}_
.DEFINE SUBSTITUTE /rg$/$}_
.DEFINE SUBSTITUTE /left$/${_
.DEFINE SUBSTITUTE /lf$/${_
.;
.;	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$/$V_
.DEFINE SUBSTITUTE /sq1,1$/$V_>>__<<%
.DEFINE SUBSTITUTE /sq1,2$/$V_>>____<<%%
.DEFINE SUBSTITUTE /sq1,3$/$V_>>______<<%%%
.DEFINE SUBSTITUTE /sq1,4$/$V_>>________<<%%%%
.DEFINE SUBSTITUTE /sq1,6$/$V_>>____________<<%%%%%%
.DEFINE SUBSTITUTE /sq2,1$/$!_%>>$'_^%o<<\%%
.DEFINE SUBSTITUTE /sq2,2$/$!_%>>$'_^%oo<<\%%%
.DEFINE SUBSTITUTE /sq2,3$/$!_%>>$'_^%ooo<<\%%%%
.DEFINE SUBSTITUTE /sq2,4$/$!_%>>$'_^%oooo<<\%%%%%
.DEFINE SUBSTITUTE /sq2,6$/$!_%>>$'_^%oooooo<<\%%%%%%%
.DEFINE SUBSTITUTE /sq2,8$/$!_%>>$'_^%oooooooo<<\%%%%%%%%%
.variant greekmath
.endif greekmath