.*********
.*
.* mwprof script
.*
.* Version 1.00, 1/29/85
.*
.* MacWrite to Script translation table for Xerox 9700 Laser Printer.
.*
.* Norman Meyrowitz
.* Institute for Research in Information and Scholarship (IRIS)
.* Brown University
.* Box 1946
.* Providence, RI 02912
.*
.* (c) 1984, 1985 Brown University.
.*
.* May be copied but not sold without permission
.*
.*********
.*
.* Changes to standard fonts to support Macintosh characters
.*
.ph change cschool-roman AB 7 30 S ;.* |w sigma
.ph change cschool-roman AC 7 30 m ;.* |m mu
.ph change cschool-roman BB 8 30 89;.* |5 infinity
.ph change cschool-roman BC 7 30 D ;.* |j Delta
.ph change cschool-roman BF 7 30 p ;.* |p pi
.ph change cschool-roman CB 7 30 P ;.* |P Pi
.ph change cschool-roman CC 7 30 W ;.* |z omega
.ph change cschool-roman EB 1 23 EB;.* |r registered
.ph change cschool-roman EC 8 30 7D;.* |v square root
.ph change cschool-roman FA 8 30 C9;.* |b integral
.ph change cschool-roman 8F 8 30 A6;.* |x equivalent
.ph change cschool-roman 9A 1 25 9A;.* |t dagger
.ph change cschool-roman 51 8 30 D9;.* |y double dagger y
.ph change cschool-roman 52 8 30 84;.* |V diamond approx
.ph change cschool-roman 53 8 30 BD;.* |> >>
.ph change cschool-roman 54 8 30 AD;.* |< <<
.ph change cschool-roman 55 1 35 50;.* |Y & (special Script control word
.ph change cschool-roman 56 1 13 4B;.* |e . (PERIOD, ft 1 . too bold)
.*
.ph change cschool-italic AB 7 30 S ;.* |w sigma
.ph change cschool-italic AC 7 30 m ;.* |m mu
.ph change cschool-italic BB 8 30 89;.* |5 infinity
.ph change cschool-italic BC 7 30 D ;.* |j Delta
.ph change cschool-italic BF 7 30 p ;.* |p pi
.ph change cschool-italic CB 7 30 P ;.* |P Pi
.ph change cschool-italic CC 7 30 W ;.* |z omega
.ph change cschool-italic EB 1 23 EB;.* |r registered
.ph change cschool-italic EC 8 30 7D;.* |v square root
.ph change cschool-italic FA 8 30 C9;.* |b integral
.ph change cschool-italic 8F 8 30 A6;.* |x equivalent
.ph change cschool-italic 9A 1 25 9A;.* |t dagger
.ph change cschool-italic 51 8 30 D9;.* |y double dagger y
.ph change cschool-italic 52 8 30 84;.* |V diamond approx
.ph change cschool-italic 53 8 30 BD;.* |> >>
.ph change cschool-italic 54 8 30 AD;.* |< <<
.ph change cschool-italic 55 2 35 50;.* |& & (special Script control word
.ph change cschool-italic 56 2 13 4B;.* |e . (PERIOD, special Script cw)
.*
.ph change cschool-bold AB 7 30 S ;.* |w sigma
.ph change cschool-bold AC 7 30 m ;.* |m mu
.ph change cschool-bold BB 8 30 89;.* |5 infinity
.ph change cschool-bold BC 7 30 D ;.* |j Delta
.ph change cschool-bold BF 7 30 p ;.* |p pi
.ph change cschool-bold CB 7 30 P ;.* |P Pi
.ph change cschool-bold CC 7 30 W ;.* |z omega
.ph change cschool-bold EB 1 23 EB;.* |r registered
.ph change cschool-bold EC 8 30 7D;.* |v square root
.ph change cschool-bold FA 8 30 C9;.* |b integral
.ph change cschool-bold 8F 8 30 A6;.* |x equivalent
.ph change cschool-bold 9A 1 25 9A;.* |t dagger
.ph change cschool-bold 51 8 30 D9;.* |y double dagger y
.ph change cschool-bold 52 8 30 84;.* |V diamond approx
.ph change cschool-bold 53 8 30 BD;.* |> >>
.ph change cschool-bold 54 8 30 AD;.* |< <<
.ph change cschool-bold 55 3 34 50;.* |& & (special Script control word
.ph change cschool-bold 56 3 13 4B;.* |e . (PERIOD, special Script cw)
.*
.ph change cschool-bold-italic AB 7 30 S ;.* |w sigma
.ph change cschool-bold-italic AC 7 30 m ;.* |m mu
.ph change cschool-bold-italic BB 8 30 89;.* |5 infinity
.ph change cschool-bold-italic BC 7 30 D ;.* |j Delta
.ph change cschool-bold-italic BF 7 30 p ;.* |p pi
.ph change cschool-bold-italic CB 7 30 P ;.* |P Pi
.ph change cschool-bold-italic CC 7 30 W ;.* |z Omega
.ph change cschool-bold-italic EB 1 23 EB;.* |r registered
.ph change cschool-bold-italic EC 8 30 7D;.* |v square root
.ph change cschool-bold-italic FA 8 30 C9;.* |b integral
.ph change cschool-bold-italic 8F 8 30 A6;.* |x equivalent
.ph change cschool-bold-italic 9A 1 25 9A;.* |t dagger
.ph change cschool-bold-italic 51 8 30 D9;.* |y double dagger y
.ph change cschool-bold-italic 52 8 30 84;.* |V diamond approx
.ph change cschool-bold-italic 53 8 30 BD;.* |> >>
.ph change cschool-bold-italic 54 8 30 AD;.* |< <<
.ph change cschool-bold-italic 55 4 37 50;.* |& & (special Script cw
.ph change cschool-bold-italic 56 4 13 4B;.* |e . (PERIOD, special Script
.*
.ti set |
.*
.ti M 9F;.* missing character
.ti B 16;.* backspace
.ti T 05;.* tab character
.*
.* These need to be redefined because they are unprintable chars or
.* script control words
.*
.ti Y 55;.* & (script control word)
.ti e 56;.* . (script control word indicator)
.*
.* Define the dead keys
.*
.ti G 78;.* grave accent
.ti E 74;.* acute accent
.ti U 72;.* umlaut (diaresis)
.ti N C0;.* tilde
.ti I 71;.* circumflex
.*
.* Other non-ASCII keys
.*
.* "A|B&S'|U.", /* 80 A umlaut */
.* "A|B&x'A1.", /* 81 A angstrom */
.* "C|B&x'76.", /* 82 C cedilla */
.* "E|B&S'|E.", /* 83 E acute */
.* "N|B&S'|N.", /* 84 N tilde */
.* "O|B&S'|U.", /* 85 O umlaut */
.* "U|B&S'|U.", /* 86 U umlaut */
.* "a|B|E", /* 87 a acute */
.* "a|B|G", /* 88 a grave */
.* "a|B|I", /* 89 a circumflex */
.* "a|B|U", /* 8A a umlaut */
.* "a|B|N", /* 8B a tilde */
.* "a|B&x'A1.", /* 8C a angstrom */
.* "c|B&x'76.", /* 8D c cedilla */
.* "e|B|E", /* 8E e acute */
.* "e|B|G", /* 8F e grave */
.*
.* "e|B|I", /* 90 e circumflex */
.* "e|B|U", /* 91 e umlaut */
.* "i|B|U", /* 92 i acute */
.* "i|B|G", /* 93 i grave */
.* "i|B|I", /* 94 i circumflex */
.* "i|B|U", /* 95 i umlaut */
.* "n|B|N", /* 96 n tilde */
.* "o|B|E", /* 97 o acute */
.* "o|B|G", /* 98 o grave */
.* "o|B|I", /* 99 o circumflex */
.* "o|B|U", /* 9A o umlaut */
.* "o|B|N", /* 9B o tilde */
.* "u|B|E", /* 9C u acute */
.* "u|B|G", /* 9D u grave */
.* "u|B|I", /* 9E u circumflex */
.* "u|B|U", /* 9F u umlaut */
.*
.ti t 9A;.* "|t", /* A0 |t dagger */
.ti * A1;.* "|*", /* A1 |* degree */
.ti 4 4A;.* "|4", /* A2 |4 cent sign */
.ti 3 DB;.* "|3", /* A3 |3 british pound sign*/
.ti 6 EA;.* "|6", /* A4 |6 section */
.ti 8 AF;.* "|8", /* A5 |8 bullet */
.ti 7 EE;.* "|7", /* A6 |7 paragraph */
.ti s FC;.* "|s", /* A7 |s beta */
.ti r EB;.* "|r", /* A8 |r registered */
.ti g ED;.* "|g", /* A9 |g copyright */
.* ????? "|2", /* AA |2 trademark(missing)*/
.ti E 74;.* "|E", /* AB |E accent acute */
.ti U 72;.* "|U", /* AC |U umlaut */
.ti = BE;.* "|=", /* AD |= not equals */
.ti " 46;.* "|\"", /* AE |" AE */
.* "O|B\", /* AF |O O slash */
.ti 5 89;.* "|5", /* B0 |5 infinity */
.ti + 9E;.* "|+", /* B1 |+ plus minus */
.ti , 8C;.* "|,", /* B2 |, <= */
.ti . AE;.* "|.", /* B3 |. >= */
.ti y 51;.* "|y", /* B4 |y antenna? */
.ti [ AC;.* "|[", /* B5 |[ mu */
.ti d BB;.* "|d", /* B6 |d lowercase delta */
.ti w AB;.* "|w", /* B7 |w sigma */
.ti P CB;.* "|P", /* B8 |P uppercase pi */
.ti p BF;.* "|p", /* B9 |p lowercase pi */
.ti b FA;.* "|b", /* BA |b integral */
.* "a&x'6D.", /* BB |9 a underscore */
.* "o&x'6D.", /* BC |0 o underscore */
.ti z CC;.* "|z", /* BD |z omega */
.ti ' 66;.* "|'", /* BE |' ae */
.* "|o|B\", /* BF |o o slash */
.*
.ti ? DD;.* "|?", /* C0 |? spanish ? */
.ti ! DC;.* "|!", /* C1 |! spanish ! */
.ti l 5F;.* "|l", /* C2 |l not sign */
.ti v EC;.* "|v", /* C3 |v square root */
.* ???? "|f", /* C4 |f script f */
.ti x 1D;.* "|x", /* C5 |x equivalent */
.ti j BC;.* "|j", /* C6 |j uppercase delta */
.ti > 53;.* "|>", /* C7 |> >> (|| illegal) */
.ti < 54;.* "|<", /* C8 |< << (|\ illegal) */
.* "...", /* C9 |; ellipsis */
.ti S CE;.* "|S", /* CA |S nonbreaking space */
.* "A|B|G", /* CB A grave */
.* "A|B|N", /* CC A tilde */
.* "O|B|N", /* CD O tilde */
.ti Q 47;.* "|Q", /* CE |Q OE */
.ti q 67;.* "|q", /* CF |q oe */
.*
.ti - 60;.* "|-", /* D0 |- small dash */
.ti _ CD;.* "|_", /* D1 |_ large dash */
.ti [ 0E;.* "|[", /* D2 |[ open " */
.ti { 0D;.* "|{", /* D3 |{ close " */
.ti ] 10;.* "|]", /* D4 |] open ' */
.ti } 7D;.* "|}", /* D5 |} close ' */
.ti / 3F;.* "|/", /* D6 |/ division sign */
.ti V 52;.* "|V", /* D7 |V diamond */
.* "y|u" /* D8 y umlaut */
.*
.* The following lines are the initial settings that are need for
.* SCRIPTing a MacWrite document. Mac assumes the 0 left margin setting
.* begins 1 inch into the page, so do an adjust. To make sure that we
.* string together split lines even though they may start with blanks or
.* tabs, the .LB and .LT words are redefined to not cause a break.
.* The \ character is used by the translator to allow split MacWrite
.* paragraphs to be strung together
.*
.*
.ad 1in;.* margin starts at 1" per MacWrite
.dm LB //;.* cause leading blanks to not generate breaks
.dm LT //;.* cause leading tabs to not generate breaks
.dc CONT \;.* \ is continuation character
.tt ////
.bt ////