.ifnot greekmath
.;
.;
.; This file defines a whole set of fonts for the DIABLO
.;	Written by Steve Preston, Rice Univ
.;	The definitions are intended to be compatible with
.;		TEDI
.;	TEDI is a text fomatter written at Los Alamos National Lab
.;		by Clair Nielson
.;
.;	Define TEDI specific commands
.define command /HN/NUMBER LEVELS
.;	Define TEDI specific header level formats
.list 0 .display elements D
.list 0 .display elements LU
.list 0 .display elements LL
.list 0 .display elements RU
.list 0 .display elements RL
.els 0.els 0.els 0.els 0.els 0
.RESET ESCAPE			.; Reset default escape seq
.no flags underline
.no flags uppercase
.no flags lowercase
.no flags accept
.no flags space
.flags overstrike \
.flags tab !
.flags hyphenate ~
.flags space _
.flags accept @
.flags equation
.DEFINE ESCAPE "^]" VSP,1,27,"U"	.; Subscript
.DEFINE ESCAPE "^[" VSP,-1,27,"D"	.; Superscript
.flags special []&
.define escape "^|" 8,14 "~" 27 "D"27 "D"	.; define underscoring with ~
.flags special |
.FLAGS ESCAPE &
.ENABLE 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
.DEFINE ESCAPE  "\0",HSP,1,14,'`',15
.DEFINE ESCAPE  "^0",HSP,1,14,'p',15
.DEFINE ESCAPE  "\1",HSP,1,14,'a',15
.DEFINE ESCAPE  "&1",HSP,1,14,'q',15
.DEFINE ESCAPE  "\2",HSP,1,14,'b',15
.DEFINE ESCAPE  "&2",HSP,1,14,'r',15
.DEFINE ESCAPE  "\3",HSP,1,14,'c',15
.DEFINE ESCAPE  "&3",HSP,1,14,'s',15
.DEFINE ESCAPE  "\4",HSP,1,14,'d',15
.DEFINE ESCAPE  "&4",HSP,1,14,'t',15
.DEFINE ESCAPE  "\5",HSP,1,14,'e',15
.DEFINE ESCAPE  "&5",HSP,1,14,'u',15
.DEFINE ESCAPE  "\6",HSP,1,14,'f',15
.DEFINE ESCAPE  "&6",HSP,1,14,'v',15
.DEFINE ESCAPE  "\7",HSP,1,14,'g',15
.DEFINE ESCAPE  "&7",HSP,1,14,'w',15
.DEFINE ESCAPE  "\8",HSP,1,14,'h',15
.DEFINE ESCAPE  "&8",HSP,1,14,'x',15
.DEFINE ESCAPE  "\9",HSP,1,14,'i',15
.DEFINE ESCAPE  "&9",HSP,1,14,'y',15
.DEFINE ESCAPE  "&<",HSP,1,14,'l',15
.DEFINE ESCAPE  "&=",HSP,1,14,'o',15
.DEFINE ESCAPE  "&>",HSP,1,14,'m',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  "&!",HSP,1,14,9,15
.DEFINE ESCAPE  '&"',HSP,1,14,5,15
.DEFINE ESCAPE  "&#",HSP,1,14,16,15
.DEFINE ESCAPE  "&&",HSP,1,14,17,15
.DEFINE ESCAPE  "&,",HSP,1,14,6,15
.DEFINE ESCAPE  "&-",HSP,1,14,10,15
.DEFINE ESCAPE  "&0",HSP,1,14,13,15
.DEFINE ESCAPE  "&6",HSP,1,14,18,15
.DEFINE ESCAPE  "&8",HSP,1,14,'~',15
.DEFINE ESCAPE  "&:",HSP,1,14,7,15
.DEFINE ESCAPE  "&?",HSP,1,14,8,15
.DEFINE ESCAPE  "&A",HSP,1,14,14,15
.DEFINE ESCAPE  "&J",HSP,1,14,11,15
.DEFINE ESCAPE  "&j",HSP,1,14,12,15
.DEFINE ESCAPE  "^l",HSP,1,14,1,15
.DEFINE ESCAPE  "^r",HSP,1,14,2,15
.DEFINE ESCAPE  "^u",HSP,1,14,3,15
.DEFINE ESCAPE  "^d",HSP,1,14,4,15
.DEFINE ESCAPE  "&$",HSP,1,27,89
.DEFINE ESCAPE  "&'",HSP,1,27,90
.endif greekmath