.;
.;	This prefix file defines all of the special symbols
.;	for the Diablo compatible with Bonner lab Florida data
.;	font downloaded.
.;
.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.
.;
.reset escape
.;	Set vertical motion to 8 lines/inch
.DEFINE ESCAPE "^!" LCK 27, 30, 7	.; Vert motion = 8 lines/inch
.DEFINE ESCAPE "\!" LCK 27, 30, 9	.; Vert motion = 6 lines/inch
.;	Set vertical motion to 24 lines/inch (12 sections/char)
.DEFINE ESCAPE "^?" LCK 27, 30, 2	.; Vert motion = 48 lines/inch
.DEFINE ESCAPE "\?" LCK 27, 30, 9	.; Vert motion = 6 lines/inch
.define escape "^`" LCK 27, 'U'		.; Superscript no count
.define escape "\`" LCK 27, 'D'		.; Subscript no count
.define escape "`>" 27,30,2' ',27,30,13	.; Move right by min increment
.define escape "`<" 27,30,2, 8,27,30,13	.; Move left by min increment
.;
.;		Set up references
.;	^- preceedes ref number
.;	\- follows ref number
.;
.define escape "^-" lck 27 'D'
.define escape "\-" lck 27 'U'
.define escape "^@" lck 14	.; Alternate font
.define escape "\@" lck 15	.; Regular font
.define escape "^*" lck 27,'W'	.; Begin shadow print
.define escape "\*" lck 27,'&'	.; End shadow print
.;
.;	Use single < or > to sub/superscript
.;
.define escape '^>' VSP -1, 27,'D'
.define escape '^<' VSP  1, 27,'U'
.FLAGS SPECIAL <
.FLAGS SPECIAL >
.;
.;	Define upper and lower case greek symbols
.;		"abbreviated"
.;
.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$/^@(\@
.;THETA (upper case)
.DEFINE SUBSTITUTE /th$/^@H\@
.;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$/^@2\@
.; Upper and lowercase Sigma
.DEFINE SUBSTITUTE /s$/^@R\@
.;
.DEFINE SUBSTITUTE /s2$/O^?'\'\'\%^@kk\@`^`^`^`\?
.; large lowercase sigma
.DEFINE SUBSTITUTE /t$/`t
.; tau
.DEFINE SUBSTITUTE /u$/`u
.; 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$/`Y
.; Upper and lowercase Psi
.DEFINE SUBSTITUTE /ps$/`y
.;
.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$/^@(\@
.DEFINE SUBSTITUTE /theta$/^@H\@
.DEFINE SUBSTITUTE /iota$/`i
.DEFINE SUBSTITUTE /kappa$/`k
.DEFINE SUBSTITUTE /Lambda$/`L
.DEFINE SUBSTITUTE /lambda$/`l
.DEFINE SUBSTITUTE /mu$/`m
.DEFINE SUBSTITUTE /nu$/`n
.DEFINE SUBSTITUTE /Xi$/`Q
.DEFINE SUBSTITUTE /xi$/`q
.DEFINE SUBSTITUTE /Pi$/`P
.DEFINE SUBSTITUTE /pi$/`p
.DEFINE SUBSTITUTE /rho$/`r
.DEFINE SUBSTITUTE /Sigma$/^@2\@
.DEFINE SUBSTITUTE /sigma$/^@R\@
.DEFINE SUBSTITUTE /tau$/`t
.DEFINE SUBSTITUTE /upsilon$/`u
.DEFINE SUBSTITUTE /Phi$/`F
.DEFINE SUBSTITUTE /phi$/`f
.DEFINE SUBSTITUTE /chi$/`x
.DEFINE SUBSTITUTE /Psi$/`Y
.DEFINE SUBSTITUTE /psi$/`y
.DEFINE SUBSTITUTE /Omega$/`W
.DEFINE SUBSTITUTE /omega$/`w
.;
.;	Script symbols
.;
.DEFINE SUBSTITUTE /H'/^@'\@
.; Script H
.DEFINE SUBSTITUTE /L'/L
.; Script L
.DEFINE SUBSTITUTE /M'/M
.; Script M
.DEFINE SUBSTITUTE /e'/^@@\@
.; Script e
.define substitute /l'/^@Y\@
.; Script l
.;
.;	Scientific symbol del
.;
.DEFINE SUBSTITUTE /del$/`V
.;
.;	Foreign language symbol should appear in front of letter to be marked
.;
.DEFINE SUBSTITUTE /umlaut$/`:%
.DEFINE SUBSTITUTE /uml$/`:%
.;
.;	Define a dagger
.;
.DEFINE SUBSTITUTE /dagger$/`!
.DEFINE SUBSTITUTE /dag$/`!
.;
.;	Define a bullet
.;
.DEFINE SUBSTITUTE /bul$/`"
.;
.;	Angstrom symbol
.;
.DEFINE SUBSTITUTE /angstrom$/`A
.DEFINE SUBSTITUTE /angs$/`A
.define substitute /hbar$/h%/
.;
.;	Bra,bar, and ket
.;
.DEFINE SUBSTITUTE /bra$/_<
.; large "<"
.DEFINE SUBSTITUTE /bar$/_|
.; large vertical line
.DEFINE SUBSTITUTE /ket$/_>
.; large ">"
.DEFINE SUBSTITUTE /bra2$/^!>/<<%_\>\!
.; double height "<"
.DEFINE SUBSTITUTE /bar2$/>_|<<%_|>
.; double height vertical line
.DEFINE SUBSTITUTE /ket2$/^!>_\<<%/>\!
.; double height ">"
.;
.;
.DEFINE SUBSTITUTE /degree$/`0
.; Degree symbol
.DEFINE SUBSTITUTE /deg$/`0
.DEFINE SUBSTITUTE /perp$/<->%_|
.; Perpendicular symbol
.DEFINE SUBSTITUTE /partial$/`6
.; Partial derivitive symbol
.DEFINE SUBSTITUTE /par$/`6
.;
.;	less than or =, greater than or =, etc.
.;
.define substitute /==$/`E
.define substitute /+-$/`+
.define substitute /-+$/^?`^`^`^`^-`\`\`\`\\?%+
.DEFINE SUBSTITUTE /<=$/^@l\@
.DEFINE SUBSTITUTE />=$/^@m\@
.DEFINE SUBSTITUTE /~=$/^!<^@n\@%>_=\!
.DEFINE SUBSTITUTE /~$/^@n\@
.DEFINE SUBSTITUTE /<$/_<
.DEFINE SUBSTITUTE />$/_>
.DEFINE SUBSTITUTE /~<$/<^@n\@%>_<
.DEFINE SUBSTITUTE /~>$/<^@n\@%>_>
.DEFINE SUBSTITUTE /~~$/^@o\@
.DEFINE SUBSTITUTE /prop$/`&
.DEFINE SUBSTITUTE /inf$/`%
.define substitute /def$/^?`^`^`^-`\`\`\%-`\`\`\%-`^`^`^\?
.define substitute /times$/^@_|\@
.define substitute /dot$/^@Z\@
.;
.;	Arrows
.;
.DEFINE SUBSTITUTE /up$/`3
.DEFINE SUBSTITUTE /down$/`4
.DEFINE SUBSTITUTE /dn$/`4
.DEFINE SUBSTITUTE /right$/`2
.DEFINE SUBSTITUTE /rg$/`2
.DEFINE SUBSTITUTE /left$/`1
.DEFINE SUBSTITUTE /lf$/`1
.;
.;	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$/^!>`J<<%`j>\!
.;
.;	Large summation symbol
.;
.DEFINE SUBSTITUTE /sum$/^@9\@
.;
.;	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$/^@[\@
.DEFINE SUBSTITUTE /sq1,1$/^@[k\@%
.DEFINE SUBSTITUTE /sq1,2$/^@[kk\@%%
.DEFINE SUBSTITUTE /sq1,3$/^@[kkk\@%%%
.DEFINE SUBSTITUTE /sq1,4$/^@[kkkk\@%%%%
.DEFINE SUBSTITUTE /sq1,6$/^@[kkkkkk\@%%%%%%
.DEFINE SUBSTITUTE /sq2,1$/^!^@[\@>>/^@k\@%<<\!
.DEFINE SUBSTITUTE /sq2,2$/^!^@[\@>>/^@kk\@%%<<\!
.DEFINE SUBSTITUTE /sq2,3$/^!^@[\@>>/^@kkk\@%%%<<\!
.DEFINE SUBSTITUTE /sq2,4$/^!^@[\@>>/^@kkkk\@%%%%<<\!
.DEFINE SUBSTITUTE /sq2,6$/^!^@[\@>>/^@kkkkkk\@%%%%%%<<\!
.DEFINE SUBSTITUTE /sq2,8$/^!^@[\@>>/^@kkkkkkkk\@%%%%%%%%<<\!
.variant greekmath
.endif greekmath
.;
.;
.FLAGS ESCAPE `
.DEFINE ESCAPE  "`(",HSP,1,14,';',15
.DEFINE ESCAPE  "`)",HSP,1,14,'<',15
.DEFINE ESCAPE  "`*",HSP,1,14,'|',15
.DEFINE ESCAPE  "`+",HSP,1,14,'j',15
.DEFINE ESCAPE  "`.",HSP,1,14,'Z',15
.DEFINE ESCAPE  "`/",HSP,1,14,'}',15
.;
.;	Greek scientific font
.;
.DEFINE ESCAPE  "`=",HSP,1,14,'o',15
.DEFINE ESCAPE  "`@",HSP,1,14,'@',15
.DEFINE ESCAPE  "`C",HSP,1,14,'.',15
.DEFINE ESCAPE  "`D",HSP,1,14,'$',15
.DEFINE ESCAPE  "`F",HSP,1,14,'5',15
.DEFINE ESCAPE  "`G",HSP,1,14,'#',15
.DEFINE ESCAPE  "`I",HSP,1,14,'?',15
.DEFINE ESCAPE  "`L",HSP,1,14,'+',15
.DEFINE ESCAPE  "`O",HSP,1,14,'(',15
.DEFINE ESCAPE  "`P",HSP,1,14,'0',15
.DEFINE ESCAPE  "`S",HSP,1,14,'2',15
.DEFINE ESCAPE  "`T",HSP,1,14,'9',15
.DEFINE ESCAPE  "`U",HSP,1,14,'4',15
.DEFINE ESCAPE  "`V",HSP,1,14,':',15
.DEFINE ESCAPE  "`W",HSP,1,14,'8',15
.DEFINE ESCAPE  "`Y",HSP,1,14,'7',15
.DEFINE ESCAPE  "`[",HSP,1,14,'=',15
.DEFINE ESCAPE  "`]",HSP,1,14,'>',15
.DEFINE ESCAPE  "`_",HSP,1,14,'k',15
.DEFINE ESCAPE  "`a",HSP,1,14,'A',15
.DEFINE ESCAPE  "`b",HSP,1,14,'B',15
.DEFINE ESCAPE  "`c",HSP,1,14,'N',15
.DEFINE ESCAPE  "`d",HSP,1,14,'D',15
.DEFINE ESCAPE  "`e",HSP,1,14,'E',15
.DEFINE ESCAPE  "`f",HSP,1,14,'U',15
.DEFINE ESCAPE  "`g",HSP,1,14,'C',15
.DEFINE ESCAPE  "`h",HSP,1,14,'G',15
.DEFINE ESCAPE  "`i",HSP,1,14,'I',15
.DEFINE ESCAPE  "`k",HSP,1,14,'J',15
.DEFINE ESCAPE  "`l",HSP,1,14,'K',15
.DEFINE ESCAPE  "`m",HSP,1,14,'L',15
.DEFINE ESCAPE  "`n",HSP,1,14,'M',15
.DEFINE ESCAPE  "`o",HSP,1,14,'H',15
.DEFINE ESCAPE  "`p",HSP,1,14,'P',15
.DEFINE ESCAPE  "`r",HSP,1,14,'Q',15
.DEFINE ESCAPE  "`s",HSP,1,14,'R',15
.DEFINE ESCAPE  "`t",HSP,1,14,'S',15
.DEFINE ESCAPE  "`v",HSP,1,14,'[',15
.DEFINE ESCAPE  "`w",HSP,1,14,'X',15
.DEFINE ESCAPE  "`x",HSP,1,14,'V',15
.DEFINE ESCAPE  "`y",HSP,1,14,'W',15
.DEFINE ESCAPE  "`z",HSP,1,14,'F',15
.DEFINE ESCAPE  "`{",HSP,1,14,']',15
.DEFINE ESCAPE  "`|",HSP,1,14,'Y',15
.DEFINE ESCAPE  "`}",HSP,1,14,'\',15
.DEFINE ESCAPE  "`~",HSP,1,14,'n',15
.DEFINE ESCAPE  "`8",HSP,1,14,'~',15
.define escape	"`1",hsp,1,14,1,15
.define escape	"`2",hsp,1,14,2,15
.define escape	"`3",hsp,1,14,3,15
.define escape	"`4",hsp,1,14,4,15
.DEFINE ESCAPE  '`"',HSP,1,14,5,15
.DEFINE ESCAPE  '`,',HSP,1,14,6,15
.DEFINE ESCAPE  "`:",HSP,1,14,7,15
.DEFINE ESCAPE  "`?",HSP,1,14,8,15
.DEFINE ESCAPE  "`!",HSP,1,14,9,15
.DEFINE ESCAPE  "`-",HSP,1,14,10,15
.DEFINE ESCAPE  "`J",HSP,1,14,11,15
.DEFINE ESCAPE  "`j",HSP,1,14,12,15
.DEFINE ESCAPE  "`0",HSP,1,14,13,15
.DEFINE ESCAPE  "`A",HSP,1,14,14,15
.DEFINE ESCAPE  "`#",HSP,1,14,16,15
.DEFINE ESCAPE  "`&",HSP,1,14,17,15
.DEFINE ESCAPE  "`6",HSP,1,14,18,15
.DEFINE ESCAPE  "`$",HSP,1,27,89
.DEFINE ESCAPE  "`'",HSP,1,27,90