.; .; This prefix file defines all of the special symbols .; for the Bonner Lab LN-03 .; .; Written by J. CLEMENT .; .ifnot greekmath .; If already defined skip it .define variable spac 4, 27"[11h" 27"[16a" 27"[11l" .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 12 lines/inch .;DEFINE ESCAPE "^!" LCK 27, "[3z" .; Set vertical motion to default lines/inch (normal setting) .;DEFINE ESCAPE "\!" LCK 27, "[0z" .; Up 1/6 of character .;DEFINE ESCAPE "^?" 27,"[", .; Down 1/6 of character .;DEFINE ESCAPE "\?" 27, .; .; Set up references .; ^- preceedes ref number .; \- follows ref number .; .; .; Define escape sequences for LN-03 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 scientific .; \@ turns off scientific .; ^+ turns on Dec supplemental .; \+ turns off Dec supplemental .; .; .; ^_ nnn e/_ moves the vertical pos by nnn decipoints .; ^_ nnn k/_ moves the vertical pos backward by nnn decipoints .; ^_ nnn a/_ moves the horizontal pos by nnn decipoints .; ^_ nnn j/_ moves the horizontal pos backward by nnn decipoints .reset escape .define escape "^_" HSP 0 PSP lck 27,"[" .; Begin arb escape seq .define escape "\_" HSP 1 PSP lck "" .; End arb. escape seq. .DEFine escape "^-" LCK,CHR,27,"[15m",27,"L",27,"[11l",27,"[1w" .;DEFine escape "^-" LCK,CHR,27,"[15m",27,"L",27,"[?29l",27,"[1w" .;DEFine escape "^-" LCK,CHR,27,"[15m",27,"L",27,"[0K" .define escape "\-" lck,chr,27,"K",27,"[11m",27,"[11h" .define escape "^*" CHR LCK 27 "[1m" .define escape "\*" CHR LCK 27 "[22m" .define escape "^&" CHR LCK 27 "[4m" .define escape "\&" CHR LCK 27 "[24m" .define escape "^=" LCK PSP HSP 2 27 "[5w" .define escape "\=" LCK PSP HSP 1 27 "[0w" .define escape "^<" VSP 1 27 "K" .define subscript 27 "K" .define escape "^>" VSP -1 27 'L' .define superscript 27 'L' .define escape "^%" CHR LCK 27,')0' 14 .define escape "\%" CHR LCK 15 .define escape "^@" chr lck 27 ")>" 14 .define escape "\@" CHR LCK 15 .define escape "^+" chr lck 27 ")<" 14 .define escape "\+" CHR LCK 15 .no flags underline .flags special *&<> .; .; .; Use single < or > to sub/superscript .; .; .; 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]/^@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%^_10e\_^%oo\%^_10k\_ .; 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\@ .; .; Misc .; .define substitute /cent]/^+_"\+ .define substitute />>/^+;\+ .define substitute /< .; 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^_20k\_%H^_20e\_\@ .DEFINE SUBSTITUTE /prop]/^@A\@ .DEFINE SUBSTITUTE /inf]/^@B\@ .define substitute /def]/^@O\@ .define substitute /==]/^@O\@ .DEFINE SUBSTITUTE /<=>]^@M\@ .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<<\%%%%%%%%% .; Set font to courier ^_11m\_ .; Set pitch to 10.0 .;^_1w\_ .; Enable decipoint spacing specification ^_11h\_ .; Set no proportional font ^_?27l\_ .variant greekmath .endif greekmath