/*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";