/*The +D flag causes a define-string
look-up and substitution.
It is available in the <CTRL-l> text-widget
menu under text entries for use in
documentation.
*/
DefineLoad("COMPANY","Acme Inc");
"Company: $TX,\"\",D=\"COMPANY\"$\n";
DefinePrint("COMPANY_TIME","%T",Now);
#exe {
StreamPrint(
"#define COMPANY_AGE %0.1f\n",
(Now-Str2Date("8/1/2003"))/ToF64(1<<32)/CDATE_YEAR_DAYS);
};
"Age : $TX,\"\",D=\"COMPANY_AGE\"$ years\n";
"Time: $TX,\"\",D=\"COMPANY_TIME\"$\n";