ods escapechar='^';
ods rtf file='d:/rtf/underline1.rtf';
data _null_;
file print ods;
px= "^R/RTF'\brdrb\brdrs\brdrw19 ' undeline";
put _ods_;
run;
ods rtf close;
Other goodies?
title;
footnote;
%let ods_ul = %str(^R/RTF'\brdrb\brdrs\brdrw19 '); /* RTF sequence for cell underline */
%let ods_space = %str(^R/RTF'\~'); /* RTF sequence for single blank space */
%let ods_le = %str(^R/RTF'{\uc1\u8804\~}'); /* RTF character for less than or equal to */
%let ods_ne = %str(^R/RTF'{\uc1\u8800\~}'); /* RTF character for not equal to */
%let ods_mu = %str(^R/RTF'{\uc1\u956\~}') ; /* RTF character for Greek mu */
%let ods_ge = %str(^R/RTF'{\uc1\u8805\~}'); /* RTF character for greater than or equal to */
%let ods_dg = %str(^R/RTF'{\uc1\u176\~}') ; /* RTF character for degree C */
/* T808880 Nice sample of RTF tages from Pharmasug
Bob Hull, SynteractHCR, Inc., Carlsbad, CA
Robert Howard, Veridical Solutions, Del Mar, CA
talicize \i title '\i italicized title';
Underline \ul title '\ul underline title';
Double underline \dul title '\dul title';
New line \line title 'this is the first \line this is the second ';
Bullet \bullet title '\bullet bullet preceding title';
Emboss \embo title '\embo embossed title';
Engrave \impr title '\impr engraved title';
Subscript \sub title 'This is a subscript T\sub 1';
Superscript \super title 'This is a subscript T\super 2';
Outline \outl title '\outl This is outlined';
Shadow \shad title '\shad This is shadowed';
Strike \strike title '\strike This is striked';
double strike \strikedl
dotted underline \uld title '\uld dotted underline';
Wave underline \ulw title '\ulw wave underline';
Thick underline \ulth title '\ulth thick underline';
foreground color \cfn title '\cf2 foreground color';
Font size in half points \fs24 title '\fs40 fonts increased';
Highlight \highlightN title '\highlight2';
Bold \b title '\b bold title';
Left aligned \ql title '\ql left aligned.
Right aligned \qr title '\qr right aligned.
centered \qc title '\qc left aligned.
*/
%include "c:\oto\utl_rtflan100.sas";
%utl_rtflan100;
ods escapechar='~';
title "~S={font_weight=bold}RTF Syntax ~S={}";
data example;
set sashelp.class;
if _n_<=4;
*example to show plain, italic and bold text;
if _n_=1 then
a="plain ~S={font_style=italic} italic ~S={font_weight=bold}Bold";
*create a character return display a greater than or equal to sign;
if _n_=2 then a="Force ~n Break ~{unicode 2264}";
*underline text;
if _n_=3 then a='Plain {\ul UnderlineMe} Plain~{super 7}';
*change the font color to red;
if _n_=4 then a="~S={foreground=red}Red!~S={}";
run;
ods rtf file="c:\utl\rtf.rtf" style=utl_rtflan100;
proc report data=example nowindows style(header column)=[protectspecialchars=off];
columns a ("\brdrb\brdrs\brdrw1 spanning " name weight) ;
define a /display "" style(column)=[cellwidth=1.5 in];
define name /display "Name~{super 7}";
define weight /display "~{unicode 2265} Weight~{sub 5}" style(column)=[font_weight=bold];
run;
ods rtf close;
%Let Gre =%str(\R/RTF""\u8805\%'76""); /* greater-than or equal to, U+2265 ISOtech */
%Let AELIG =%str(\R/RTF""\u198\%'02""); /* latin capital letter AE = latin capital ligature AE, U+00C6 ISOlat1 */
%Let AACUTE =%str(\R/RTF""\u193\%'03""); /* latin capital letter A with acute, U+00C1 ISOlat1 */
%Let ACIRC =%str(\R/RTF""\u194\%'04""); /* latin capital letter A with circumflex, U+00C2 ISOlat1 */
%Let AGRAVE =%str(\R/RTF""\u192\%'05""); /* latin capital letter A with grave = latin capital letter A grave, U+00C0 ISOlat1 */
%Let ALPHA =%str(\R/RTF""\u913\%'06""); /* greek capital letter alpha, U+0391 */
%Let ARING =%str(\R/RTF""\u197\%'07""); /* latin capital letter A with ring above = latin capital letter A ring, U+00C5 ISOlat */
%Let ATILDE =%str(\R/RTF""\u195\%'08""); /* latin capital letter A with tilde, U+00C3 ISOlat1 */
%Let AUML =%str(\R/RTF""\u196\%'09""); /* latin capital letter A with diaeresis, U+00C4 ISOlat1 */
%Let BETA =%str(\R/RTF""\u914\%'0A""); /* greek capital letter beta, U+0392 */
%Let CCEDIL =%str(\R/RTF""\u199\%'0B""); /* latin capital letter C with cedilla, U+00C7 ISOlat1 */
%Let CHI =%str(\R/RTF""\u935\%'0C""); /* greek capital letter chi, U+03A7 */
%Let DAGGER =%str(\R/RTF""\u8225\%'0D""); /* double dagger, U+2021 ISOpub */
%Let DELTA =%str(\R/RTF""\u916\%'0E""); /* greek capital letter delta, U+0394 ISOgrk3 */
%Let ETH =%str(\R/RTF""\u208\%'0F""); /* latin capital letter ETH, U+00D0 ISOlat1 */
%Let EACUTE =%str(\R/RTF""\u201\%'10""); /* latin capital letter E with acute, U+00C9 ISOlat1 */
%Let ECIRC =%str(\R/RTF""\u202\%'11""); /* latin capital letter E with circumflex, U+00CA ISOlat1 */
%Let EGRAVE =%str(\R/RTF""\u200\%'12""); /* latin capital letter E with grave, U+00C8 ISOlat1 */
%Let EPSILON =%str(\R/RTF""\u917\%'13""); /* greek capital letter epsilon, U+0395 */
%Let ETA =%str(\R/RTF""\u919\%'14""); /* greek capital letter eta, U+0397 */
%Let EUML =%str(\R/RTF""\u203\%'15""); /* latin capital letter E with diaeresis, U+00CB ISOlat1 */
%Let GAMMA =%str(\R/RTF""\u915\%'16""); /* greek capital letter gamma, U+0393 ISOgrk3 */
%Let IACUTE =%str(\R/RTF""\u205\%'17""); /* latin capital letter I with acute, U+00CD ISOlat1 */
%Let ICIRC =%str(\R/RTF""\u206\%'18""); /* latin capital letter I with circumflex, U+00CE ISOlat1 */
%Let IGRAVE =%str(\R/RTF""\u204\%'19""); /* latin capital letter I with grave, U+00CC ISOlat1 */
%Let IOTA =%str(\R/RTF""\u921\%'1A""); /* greek capital letter iota, U+0399 */
%Let IUML =%str(\R/RTF""\u207\%'1B""); /* latin capital letter I with diaeresis, U+00CF ISOlat1 */
%Let KAPPA =%str(\R/RTF""\u922\%'1C""); /* greek capital letter kappa, U+039A */
%Let LAMBDA =%str(\R/RTF""\u923\%'1D""); /* greek capital letter lambda, U+039B ISOgrk3 */
%Let MU =%str(\R/RTF""\u924\%'1E""); /* greek capital letter mu, U+039C */
%Let NTILDE =%str(\R/RTF""\u209\%'1F""); /* latin capital letter N with tilde, U+00D1 ISOlat1 */
%Let NU =%str(\R/RTF""\u925\%'20""); /* greek capital letter nu, U+039D */
%Let OELIG =%str(\R/RTF""\u338\%'21""); /* latin capital ligature OE, U+0152 ISOlat2 */
%Let OACUTE =%str(\R/RTF""\u211\%'22""); /* latin capital letter O with acute, U+00D3 ISOlat1 */
%Let OCIRC =%str(\R/RTF""\u212\%'23""); /* latin capital letter O with circumflex, U+00D4 ISOlat1 */
%Let OGRAVE =%str(\R/RTF""\u210\%'24""); /* latin capital letter O with grave, U+00D2 ISOlat1 */
%Let OMEGA =%str(\R/RTF""\u937\%'25""); /* greek capital letter omega, U+03A9 ISOgrk3 */
%Let OMICRON =%str(\R/RTF""\u927\%'26""); /* greek capital letter omicron, U+039F */
%Let OSLASH =%str(\R/RTF""\u216\%'27""); /* latin capital letter O with stroke = latin capital letter O slash, U+00D8 ISOlat1 */
%Let OTILDE =%str(\R/RTF""\u213\%'28""); /* latin capital letter O with tilde, U+00D5 ISOlat1 */
%Let OUML =%str(\R/RTF""\u214\%'29""); /* latin capital letter O with diaeresis, U+00D6 ISOlat1 */
%Let PHI =%str(\R/RTF""\u934\%'2A""); /* greek capital letter phi, U+03A6 ISOgrk3 */
%Let PI =%str(\R/RTF""\u928\%'2B""); /* greek capital letter pi, U+03A0 ISOgrk3 */
%Let PRIME =%str(\R/RTF""\u8243\%'2C""); /* double prime = seconds = inches, U+2033 ISOtech */
%Let PSI =%str(\R/RTF""\u936\%'2D""); /* greek capital letter psi, U+03A8 ISOgrk3 */
%Let RHO =%str(\R/RTF""\u929\%'2E""); /* greek capital letter rho, U+03A1 */
%Let SCARON =%str(\R/RTF""\u352\%'2F""); /* latin capital letter S with caron, U+0160 ISOlat2 */
%Let SIGMA =%str(\R/RTF""\u931\%'30""); /* greek capital letter sigma, U+03A3 ISOgrk3 */
%Let THORN =%str(\R/RTF""\u222\%'31""); /* latin capital letter THORN, U+00DE ISOlat1 */
%Let TAU =%str(\R/RTF""\u932\%'32""); /* greek capital letter tau, U+03A4 */
%Let THETA =%str(\R/RTF""\u920\%'33""); /* greek capital letter theta, U+0398 ISOgrk3 */
%Let UACUTE =%str(\R/RTF""\u218\%'34""); /* latin capital letter U with acute, U+00DA ISOlat1 */
%Let UCIRC =%str(\R/RTF""\u219\%'35""); /* latin capital letter U with circumflex, U+00DB ISOlat1 */
%Let UGRAVE =%str(\R/RTF""\u217\%'36""); /* latin capital letter U with grave, U+00D9 ISOlat1 */
%Let UPSILON =%str(\R/RTF""\u933\%'37""); /* greek capital letter upsilon, U+03A5 ISOgrk3 */
%Let UUML =%str(\R/RTF""\u220\%'38""); /* latin capital letter U with diaeresis, U+00DC ISOlat1 */
%Let XI =%str(\R/RTF""\u926\%'39""); /* greek capital letter xi, U+039E ISOgrk3 */
%Let YACUTE =%str(\R/RTF""\u221\%'3A""); /* latin capital letter Y with acute, U+00DD ISOlat1 */
%Let YUML =%str(\R/RTF""\u376\%'3B""); /* latin capital letter Y with diaeresis, U+0178 ISOlat2 */
%Let ZETA =%str(\R/RTF""\u918\%'3C""); /* greek capital letter zeta, U+0396 */
%Let AACUTES =%str(\R/RTF""\u225\%'3D""); /* latin small letter a with acute, U+00E1 ISOlat1 */
%Let ACIRCS =%str(\R/RTF""\u226\%'3E""); /* latin small letter a with circumflex, U+00E2 ISOlat1 */
%Let ACUTES =%str(\R/RTF""\u180\%'3F""); /* acute accent = spacing acute, U+00B4 ISOdia */
%Let AELIGS =%str(\R/RTF""\u230\%'40""); /* latin small letter ae = latin small ligature ae, U+00E6 ISOlat1 */
%Let AGRAVES =%str(\R/RTF""\u224\%'41""); /* latin small letter a with grave = latin small letter a grave, U+00E0 ISOlat1 */
%Let ALEFSYM =%str(\R/RTF""\u8501\%'42""); /* alef symbol = first transfinite cardinal, U+2135 NEW */
%Let ALPHAS =%str(\R/RTF""\u945\%'43""); /* greek small letter alpha, U+03B1 ISOgrk3 */
%Let AMPS =%str(\R/RTF""\u38\%'44""); /* ampersand, U+0026 ISOnum */
%Let AND =%str(\R/RTF""\u8743\%'45""); /* logical and = wedge, U+2227 ISOtech */
%Let ANG =%str(\R/RTF""\u8736\%'46""); /* angle, U+2220 ISOamso */
%Let ARINGS =%str(\R/RTF""\u229\%'47""); /* latin small letter a with ring above = latin small letter a ring, U+00E5 ISOlat1 */
%Let ASYMP =%str(\R/RTF""\u8776\%'48""); /* almost equal to = asymptotic to, U+2248 ISOamsr */
%Let ATILDES =%str(\R/RTF""\u227\%'49""); /* latin small letter a with tilde, U+00E3 ISOlat1 */
%Let AUMLS =%str(\R/RTF""\u228\%'4A""); /* latin small letter a with diaeresis, U+00E4 ISOlat1 */
%Let BDQUO =%str(\R/RTF""\u8222\%'4B""); /* double low-9 quotation mark, U+201E NEW */
%Let BETAS =%str(\R/RTF""\u946\%'4C""); /* greek small letter beta, U+03B2 ISOgrk3 */
%Let BRVBAR =%str(\R/RTF""\u166\%'4D""); /* broken bar = broken vertical bar, U+00A6 ISOnum */
%Let BULL =%str(\R/RTF""\u8226\%'4E""); /* bullet = black small circle, U+2022 ISOpub */
%Let CAP =%str(\R/RTF""\u8745\%'4F""); /* intersection = cap, U+2229 ISOtech */
%Let CCEDILS =%str(\R/RTF""\u231\%'50""); /* latin small letter c with cedilla, U+00E7 ISOlat1 */
%Let CEDILS =%str(\R/RTF""\u184\%'51""); /* cedilla = spacing cedilla, U+00B8 ISOdia */
%Let CENT =%str(\R/RTF""\u162\%'52""); /* cent sign, U+00A2 ISOnum */
%Let CHIS =%str(\R/RTF""\u967\%'53""); /* greek small letter chi, U+03C7 ISOgrk3 */
%Let CIRC =%str(\R/RTF""\u710\%'54""); /* modifier letter circumflex accent, U+02C6 ISOpub */
%Let CLUBS =%str(\R/RTF""\u9827\%'55""); /* black club suit = shamrock, U+2663 ISOpub */
%Let CONG =%str(\R/RTF""\u8773\%'56""); /* approximately equal to, U+2245 ISOtech */
%Let COPY =%str(\R/RTF""\u169\%'57""); /* copyright sign, U+00A9 ISOnum */
%Let CRARR =%str(\R/RTF""\u8629\%'58""); /* downwards arrow with corner leftwards = carriage return, U+21B5 NEW */
%Let CUP =%str(\R/RTF""\u8746\%'59""); /* union = cup, U+222A ISOtech */
%Let CURREN =%str(\R/RTF""\u164\%'5A""); /* currency sign, U+00A4 ISOnum */
%Let DARR =%str(\R/RTF""\u8659\%'5B""); /* downwards double arrow, U+21D3 ISOamsa */
%Let DAGGER =%str(\R/RTF""\u8224\%'5C""); /* dagger, U+2020 ISOpub */
%Let DARR =%str(\R/RTF""\u8595\%'5D""); /* downwards arrow, U+2193 ISOnum */
%Let DEG =%str(\R/RTF""\u176\%'5E""); /* degree sign, U+00B0 ISOnum */
%Let DELTAS =%str(\R/RTF""\u948\%'5F""); /* greek small letter delta, U+03B4 ISOgrk3 */
%Let DIAMS =%str(\R/RTF""\u9830\%'60""); /* black diamond suit, U+2666 ISOpub */
%Let DIVIDE =%str(\R/RTF""\u247\%'61""); /* division sign, U+00F7 ISOnum */
%Let EACUTES =%str(\R/RTF""\u233\%'62""); /* latin small letter e with acute, U+00E9 ISOlat1 */
%Let ECIRCS =%str(\R/RTF""\u234\%'63""); /* latin small letter e with circumflex, U+00EA ISOlat1 */
%Let EGRAVES =%str(\R/RTF""\u232\%'64""); /* latin small letter e with grave, U+00E8 ISOlat1 */
%Let EMPTY =%str(\R/RTF""\u8709\%'65""); /* empty set = null set = diameter, U+2205 ISOamso */
%Let EMSP =%str(\R/RTF""\u8195\%'66""); /* em space, U+2003 ISOpub */
%Let ENSP =%str(\R/RTF""\u8194\%'67""); /* en space, U+2002 ISOpub */
%Let EPSILONS =%str(\R/RTF""\u949\%'68""); /* greek small letter epsilon, U+03B5 ISOgrk3 */
%Let EQUIV =%str(\R/RTF""\u8801\%'69""); /* identical to, U+2261 ISOtech */
%Let ETAS =%str(\R/RTF""\u951\%'6A""); /* greek small letter eta, U+03B7 ISOgrk3 */
%Let ETHS =%str(\R/RTF""\u240\%'6B""); /* latin small letter eth, U+00F0 ISOlat1 */
%Let EUMLS =%str(\R/RTF""\u235\%'6C""); /* latin small letter e with diaeresis, U+00EB ISOlat1 */
%Let EURO =%str(\R/RTF""\u8364\%'6D""); /* euro sign, U+20AC NEW */
%Let EXIST =%str(\R/RTF""\u8707\%'6E""); /* there exists, U+2203 ISOtech */
%Let FNOFS =%str(\R/RTF""\u402\%'6F""); /* latin small f with hook = function = florin, U+0192 ISOtech */
%Let FORALL =%str(\R/RTF""\u8704\%'70""); /* for all, U+2200 ISOtech */
%Let FRAC12 =%str(\R/RTF""\u189\%'71""); /* vulgar fraction one half = fraction one half, U+00BD ISOnum */
%Let FRAC14 =%str(\R/RTF""\u188\%'72""); /* vulgar fraction one quarter = fraction one quarter, U+00BC ISOnum */
%Let FRAC34 =%str(\R/RTF""\u190\%'73""); /* vulgar fraction three quarters = fraction three quarters, U+00BE ISOnum */
%Let FRASL =%str(\R/RTF""\u8260\%'74""); /* fraction slash, U+2044 NEW */
%Let GAMMAS =%str(\R/RTF""\u947\%'75""); /* greek small letter gamma, U+03B3 ISOgrk3 */
%Let Gre =%str(\R/RTF""\u8805\%'76""); /* greater-than or equal to, U+2265 ISOtech */
%Let GrtT =%str(\R/RTF""\u62\%'77""); /* greater-than sign, U+003E ISOnum */
%Let HARR =%str(\R/RTF""\u8660\%'78""); /* left right double arrow, U+21D4 ISOamsa */
%Let HARR =%str(\R/RTF""\u8596\%'79""); /* left right arrow, U+2194 ISOamsa */
%Let HEARTS =%str(\R/RTF""\u9829\%'7A""); /* black heart suit = valentine, U+2665 ISOpub */
%Let HELLIP =%str(\R/RTF""\u8230\%'7B""); /* horizontal ellipsis = three dot leader, U+2026 ISOpub */
%Let IACUTES =%str(\R/RTF""\u237\%'7C""); /* latin small letter i with acute, U+00ED ISOlat1 */
%Let ICIRCS =%str(\R/RTF""\u238\%'7D""); /* latin small letter i with circumflex, U+00EE ISOlat1 */
%Let IEXCL =%str(\R/RTF""\u161\%'7E""); /* inverted exclamation mark, U+00A1 ISOnum */
%Let IGRAVES =%str(\R/RTF""\u236\%'7F""); /* latin small letter i with grave, U+00EC ISOlat1 */
%Let IMAGE =%str(\R/RTF""\u8465\%'80""); /* blackletter capital I = imaginary part, U+2111 ISOamso */
%Let INFIN =%str(\R/RTF""\u8734\%'81""); /* infinity, U+221E ISOtech */
%Let INT =%str(\R/RTF""\u8747\%'82""); /* integral, U+222B ISOtech */
%Let IOTA =%str(\R/RTF""\u953\%'83""); /* greek small letter iota, U+03B9 ISOgrk3 */
%Let IQUEST =%str(\R/RTF""\u191\%'84""); /* inverted question mark = turned question mark, U+00BF ISOnum */
%Let ISIN =%str(\R/RTF""\u8712\%'85""); /* element of, U+2208 ISOtech */
%Let IUMLS =%str(\R/RTF""\u239\%'86""); /* latin small letter i with diaeresis, U+00EF ISOlat1 */
%Let KAPPAS =%str(\R/RTF""\u954\%'87""); /* greek small letter kappa, U+03BA ISOgrk3 */
%Let LARR =%str(\R/RTF""\u8656\%'88""); /* leftwards double arrow, U+21D0 ISOtech */
%Let LAMBDAS =%str(\R/RTF""\u955\%'89""); /* greek small letter lambda, U+03BB ISOgrk3 */
%Let LANG =%str(\R/RTF""\u9001\%'8A""); /* left-pointing angle bracket = bra, U+2329 ISOtech */
%Let LAQUO =%str(\R/RTF""\u171\%'8B""); /* left-pointing double angle quotation mark = left pointing guillemet, U+00AB */
%Let LARR =%str(\R/RTF""\u8592\%'8C""); /* leftwards arrow, U+2190 ISOnum */
%Let LCEIL =%str(\R/RTF""\u8968\%'8D""); /* left ceiling = apl upstile, U+2308 ISOamsc */
%Let LDQUO =%str(\R/RTF""\u8220\%'8E""); /* left double quotation mark, U+201C ISOnum */
%Let Lse =%str(\R/RTF""\u8804\%'8F""); /* less-than or equal to, U+2264 ISOtech */
%Let LFLOOR =%str(\R/RTF""\u8970\%'90""); /* left floor = apl downstile, U+230A ISOamsc */
%Let LOWAST =%str(\R/RTF""\u8727\%'91""); /* asterisk operator, U+2217 ISOtech */
%Let LOZ =%str(\R/RTF""\u9674\%'92""); /* lozenge, U+25CA ISOpub */
%Let LRM =%str(\R/RTF""\u8206\%'93""); /* left-to-right mark, U+200E NEW RFC 2070 */
%Let LSAQUO =%str(\R/RTF""\u8249\%'94""); /* single left-pointing angle quotation mark, U+2039 ISO proposed */
%Let LSQUO =%str(\R/RTF""\u8216\%'95""); /* left single quotation mark, U+2018 ISOnum */
%Let Lst =%str(\R/RTF""\u60\%'96""); /* less-than sign, U+003C ISOnum */
%Let MACR =%str(\R/RTF""\u175\%'97""); /* macron = spacing macron = overline = APL overbar, U+00AF ISOdia */
%Let MDASH =%str(\R/RTF""\u8212\%'98""); /* em dash, U+2014 ISOpub */
%Let MICRO =%str(\R/RTF""\u181\%'99""); /* micro sign, U+00B5 ISOnum */
%Let MIDDOT =%str(\R/RTF""\u183\%'9A""); /* middle dot = Georgian comma = Greek middle dot, U+00B7 ISOnum */
%Let MINUS =%str(\R/RTF""\u8722\%'9B""); /* minus sign, U+2212 ISOtech */
%Let MUS =%str(\R/RTF""\u956\%'9C""); /* greek small letter mu, U+03BC ISOgrk3 */
%Let NABLA =%str(\R/RTF""\u8711\%'9D""); /* nabla = backward difference, U+2207 ISOtech */
%Let NBSP =%str(\R/RTF""\u160\%'9E""); /* no-break space = non-breaking space, U+00A0 ISOnum */
%Let NDASH =%str(\R/RTF""\u8211\%'9F""); /* en dash, U+2013 ISOpub */
%Let NEq =%str(\R/RTF""\u8800\%'A0""); /* not equal to, U+2260 ISOtech */
%Let NI =%str(\R/RTF""\u8715\%'A1""); /* contains as member, U+220B ISOtech */
%Let NOTeq =%str(\R/RTF""\u172\%'A2""); /* not sign = discretionary hyphen, U+00AC ISOnum */
%Let NOTIN =%str(\R/RTF""\u8713\%'A3""); /* not an element of, U+2209 ISOtech */
%Let NSUBS =%str(\R/RTF""\u8836\%'A4""); /* not a subset of, U+2284 ISOamsn */
%Let NTILDES =%str(\R/RTF""\u241\%'A5""); /* latin small letter n with tilde, U+00F1 ISOlat1 */
%Let NUS =%str(\R/RTF""\u957\%'A6""); /* greek small letter nu, U+03BD ISOgrk3 */
%Let OACUTES =%str(\R/RTF""\u243\%'A7""); /* latin small letter o with acute, U+00F3 ISOlat1 */
%Let OCIRCS =%str(\R/RTF""\u244\%'A8""); /* latin small letter o with circumflex, U+00F4 ISOlat1 */
%Let OELIGS =%str(\R/RTF""\u339\%'A9""); /* latin small ligature oe, U+0153 ISOlat2 */
%Let OGRAVES =%str(\R/RTF""\u242\%'AA""); /* latin small letter o with grave, U+00F2 ISOlat1 */
%Let OLINE =%str(\R/RTF""\u8254\%'AB""); /* overline = spacing overscore, U+203E NEW */
%Let OMEGAS =%str(\R/RTF""\u969\%'AC""); /* greek small letter omega, U+03C9 ISOgrk3 */
%Let OMICRONS =%str(\R/RTF""\u959\%'AD""); /* greek small letter omicron, U+03BF NEW */
%Let OPLUS =%str(\R/RTF""\u8853\%'AE""); /* circled plus = direct sum, U+2295 ISOamsb */
%Let OR =%str(\R/RTF""\u8744\%'AF""); /* logical or = vee, U+2228 ISOtech */
%Let ORDF =%str(\R/RTF""\u170\%'B0""); /* feminine ordinal indicator, U+00AA ISOnum */
%Let ORDM =%str(\R/RTF""\u186\%'B1""); /* masculine ordinal indicator, U+00BA ISOnum */
%Let OSLASHS =%str(\R/RTF""\u248\%'B2""); /* latin small letter o with stroke, = latin small letter o slash, U+00F8 ISOlat1 */
%Let OTILDES =%str(\R/RTF""\u245\%'B3""); /* latin small letter o with tilde, U+00F5 ISOlat1 */
%Let OTIMES =%str(\R/RTF""\u8855\%'B4""); /* circled times = vector product, U+2297 ISOamsb */
%Let OUMLS =%str(\R/RTF""\u246\%'B5""); /* latin small letter o with diaeresis, U+00F6 ISOlat1 */
%Let PARA =%str(\R/RTF""\u182\%'B6""); /* pilcrow sign = paragraph sign, U+00B6 ISOnum */
%Let PART =%str(\R/RTF""\u8706\%'B7""); /* partial differential, U+2202 ISOtech */
%Let PERMIL =%str(\R/RTF""\u8240\%'B8""); /* per mille sign, U+2030 ISOtech */
%Let PERP =%str(\R/RTF""\u8869\%'B9""); /* up tack = orthogonal to = perpendicular, U+22A5 ISOtech */
%Let PHIS =%str(\R/RTF""\u966\%'BA""); /* greek small letter phi, U+03C6 ISOgrk3 */
%Let PIS =%str(\R/RTF""\u960\%'BB""); /* greek small letter pi, U+03C0 ISOgrk3 */
%Let PIVS =%str(\R/RTF""\u982\%'BC""); /* greek pi symbol, U+03D6 ISOgrk3 */
%Let PLUSMN =%str(\R/RTF""\u177\%'BD""); /* plus-minus sign = plus-or-minus sign, U+00B1 ISOnum */
%Let POUND =%str(\R/RTF""\u163\%'BE""); /* pound sign, U+00A3 ISOnum */
%Let PRIME =%str(\R/RTF""\u8242\%'BF""); /* prime = minutes = feet, U+2032 ISOtech */
%Let PROD =%str(\R/RTF""\u8719\%'C0""); /* n-ary product = product sign, U+220F ISOamsb */
%Let PROP =%str(\R/RTF""\u8733\%'C1""); /* proportional to, U+221D ISOtech */
%Let PSIS =%str(\R/RTF""\u968\%'C2""); /* greek small letter psi, U+03C8 ISOgrk3 */
%Let QUOT =%str(\R/RTF""\u34\%'C3""); /* quotation mark = APL quote, U+0022 ISOnum */
%Let RARR =%str(\R/RTF""\u8658\%'C4""); /* rightwards double arrow, U+21D2 ISOtech */
%Let RADIC =%str(\R/RTF""\u8730\%'C5""); /* square root = radical sign, U+221A ISOtech */
%Let RANG =%str(\R/RTF""\u9002\%'C6""); /* right-pointing angle bracket = ket, U+232A ISOtech */
%Let RAQUO =%str(\R/RTF""\u187\%'C7""); /* right-pointing double angle quotation mark = right pointing guillemet, U+00BB */
%Let RARR =%str(\R/RTF""\u8594\%'C8""); /* rightwards arrow, U+2192 ISOnum */
%Let RCEIL =%str(\R/RTF""\u8969\%'C9""); /* right ceiling, U+2309 ISOamsc */
%Let RDQUO =%str(\R/RTF""\u8221\%'CA""); /* right double quotation mark, U+201D ISOnum */
%Let REAL =%str(\R/RTF""\u8476\%'CB""); /* blackletter capital R = real part symbol, U+211C ISOamso */
%Let REG =%str(\R/RTF""\u174\%'CC""); /* registered sign = registered trade mark sign, U+00AE ISOnum */
%Let RFLOOR =%str(\R/RTF""\u8971\%'CD""); /* right floor, U+230B ISOamsc */
%Let RHOS =%str(\R/RTF""\u961\%'CE""); /* greek small letter rho, U+03C1 ISOgrk3 */
%Let RLM =%str(\R/RTF""\u8207\%'CF""); /* right-to-left mark, U+200F NEW RFC 2070 */
%Let RSAQUO =%str(\R/RTF""\u8250\%'D0""); /* single right-pointing angle quotation mark, U+203A ISO proposed */
%Let RSQUO =%str(\R/RTF""\u8217\%'D1""); /* right single quotation mark, U+2019 ISOnum */
%Let SBQUO =%str(\R/RTF""\u8218\%'D2""); /* single low-9 quotation mark, U+201A NEW */
%Let SCARONS =%str(\R/RTF""\u353\%'D3""); /* latin small letter s with caron, U+0161 ISOlat2 */
%Let SDOT =%str(\R/RTF""\u8901\%'D4""); /* dot operator, U+22C5 ISOamsb */
%Let SECT =%str(\R/RTF""\u167\%'D5""); /* section sign, U+00A7 ISOnum */
%Let SHY =%str(\R/RTF""\u173\%'D6""); /* soft hyphen = discretionary hyphen, U+00AD ISOnum */
%Let SIGMAS =%str(\R/RTF""\u963\%'D7""); /* greek small letter sigma, U+03C3 ISOgrk3 */
%Let SIGMAF =%str(\R/RTF""\u962\%'D8""); /* greek small letter final sigma, U+03C2 ISOgrk3 */
%Let SIM =%str(\R/RTF""\u8764\%'D9""); /* tilde operator = varies with = similar to, U+223C ISOtech */
%Let SPADES =%str(\R/RTF""\u9824\%'DA""); /* black spade suit, U+2660 ISOpub */
%Let SUB =%str(\R/RTF""\u8834\%'DB""); /* subset of, U+2282 ISOtech */
%Let SUBE =%str(\R/RTF""\u8838\%'DC""); /* subset of or equal to, U+2286 ISOtech */
%Let SUM =%str(\R/RTF""\u8721\%'DD""); /* n-ary sumation, U+2211 ISOamsb */
%Let SUP =%str(\R/RTF""\u8835\%'DE""); /* superset of, U+2283 ISOtech */
%Let SPP1 =%str(\R/RTF""\u185\%'DF""); /* superscript one = superscript digit one, U+00B9 ISOnum */
%Let SPP2 =%str(\R/RTF""\u178\%'E0""); /* superscript two = superscript digit two = squared, U+00B2 ISOnum */
%Let SPP3 =%str(\R/RTF""\u179\%'E1""); /* superscript three = superscript digit three = cubed, U+00B3 ISOnum */
%Let SUPE =%str(\R/RTF""\u8839\%'E2""); /* superset of or equal to, U+2287 ISOtech */
%Let SZLIGS =%str(\R/RTF""\u223\%'E3""); /* latin small letter sharp s = ess-zed, U+00DF ISOlat1 */
%Let TAUS =%str(\R/RTF""\u964\%'E4""); /* greek small letter tau, U+03C4 ISOgrk3 */
%Let THERE4 =%str(\R/RTF""\u8756\%'E5""); /* therefore, U+2234 ISOtech */
%Let THETAS =%str(\R/RTF""\u952\%'E6""); /* greek small letter theta, U+03B8 ISOgrk3 */
%Let THETASYM =%str(\R/RTF""\u977\%'E7""); /* greek small letter theta symbol, U+03D1 NEW */
%Let THINSP =%str(\R/RTF""\u8201\%'E8""); /* thin space, U+2009 ISOpub */
%Let THORNS =%str(\R/RTF""\u254\%'E9""); /* latin small letter thorn with, U+00FE ISOlat1 */
%Let TILDES =%str(\R/RTF""\u732\%'EA""); /* small tilde, U+02DC ISOdia */
%Let TIMES =%str(\R/RTF""\u215\%'EB""); /* multiplication sign, U+00D7 ISOnum */
%Let TRADE =%str(\R/RTF""\u8482\%'EC""); /* trade mark sign, U+2122 ISOnum */
%Let UARRS =%str(\R/RTF""\u8657\%'ED""); /* upwards double arrow, U+21D1 ISOamsa */
%Let UACUTE =%str(\R/RTF""\u250\%'EE""); /* latin small letter u with acute, U+00FA ISOlat1 */
%Let UARRS =%str(\R/RTF""\u8593\%'EF""); /* upwards arrow, U+2191 ISOnum */
%Let UCIRCS =%str(\R/RTF""\u251\%'F0""); /* latin small letter u with circumflex, U+00FB ISOlat1 */
%Let UGRAVE =%str(\R/RTF""\u249\%'F1""); /* latin small letter u with grave, U+00F9 ISOlat1 */
%Let UML =%str(\R/RTF""\u168\%'F2""); /* diaeresis = spacing diaeresis, U+00A8 ISOdia */
%Let UPSIHS =%str(\R/RTF""\u978\%'F3""); /* greek upsilon with hook symbol, U+03D2 NEW */
%Let UPSILONS =%str(\R/RTF""\u965\%'F4""); /* greek small letter upsilon, U+03C5 ISOgrk3 */
%Let UUML =%str(\R/RTF""\u252\%'F5""); /* latin small letter u with diaeresis, U+00FC ISOlat1 */ ______________________________________________________________*\
%Let WEIERPS =%str(\R/RTF""\u8472\%'F6""); /* script capital P = power set = Weierstrass p, U+2118 ISOamso */ |
%Let XIS =%str(\R/RTF""\u958\%'F7""); /* greek small letter xi, U+03BE ISOgrk3 */ e n d p r o g r a m |
%Let YACUTES =%str(\R/RTF""\u253\%'F8""); /* latin small letter y with acute, U+00FD ISOlat1 */ _______________________________________________________________|
%Let YEN =%str(\R/RTF""\u165\%'F9""); /* yen sign = yuan sign, U+00A5 ISOnum */ */
%Let YUMLS =%str(\R/RTF""\u255\%'FA""); /* latin small letter y with diaeresis, U+00FF ISOlat1 */ !@#;
%Let ZETAS =%str(\R/RTF""\u950\%'FB""); /* greek small letter zeta, U+03B6 ISOgrk3 */
%Let ZWJ =%str(\R/RTF""\u8205\%'FC""); /* zero width joiner, U+200D NEW RFC 2070 */ acro runifchanged;
%Let ZWNJ =%str(\R/RTF""\u8204\%'FD""); /* zero width non-joiner, U+200C NEW RFC 2070 */
%let l= %str(\R/RTF'\li270 ');
%let s= %str(\R/RTF'{\super -x} ');
%let ZWNJ=%str(\R/RTF""\cf2\b\u956\%'9C\u177\%'BD\u963\%'D7\b0""); /* mu plus or minus sigma */
%let ZWNK=%str(\R/RTF""\cf13\b\u915\%'16\u923\%'1D\u931\%'30\b0""); /* capital Gamma Lamda Sigma */
/* Show symbols withou5 % */
%put ZWNJ=&ZWNJ.;
%put ZWNK=&ZWNK.;
