hschumann2/TempleOS-Source-Code

1 2/*The +D flag causes a define-string3look-up and substitution.4 5It is available in the <CTRL-l> text-widget6menu under text entries for use in7documentation.8 9*/10 11DefineLoad("COMPANY","Acme Inc");12"Company: $TX,\"\",D=\"COMPANY\"$\n";13 14DefinePrint("COMPANY_TIME","%T",Now);15 16#exe {17  StreamPrint(18    "#define COMPANY_AGE %0.1f\n",19    (Now-Str2Date("8/1/2003"))/ToF64(1<<32)/CDATE_YEAR_DAYS);20};21 22"Age : $TX,\"\",D=\"COMPANY_AGE\"$ years\n";23"Time: $TX,\"\",D=\"COMPANY_TIME\"$\n";24