TempleOSTS_130315.ISO

TempleOS/Demo/Doc/DefineStr.CPP

@@ -0,0 +1,24 @@
+/*
+The +D flag causes a define-string
+look-up and substitution.
+
+It is available in the <CTRL-L> menu
+under text entries for use in
+documentation.
+ 
+*/
+
+
+DefineLoad("COMPANY","Trivial Solutions");
+"Company: $$TX+D,\"\",\"COMPANY\"$$\n";
+
+DefinePrintF("COMPANY_TIME","%T",GetCurTimeCDate);
+
+#exe {
+  StreamPrintF(
+    "#define COMPANY_AGE %h56D\n",GetCurTimeCDate-A2CDate("8/1/2003"));
+};
+
+
+"Age : $$TX+D,\"\",\"COMPANY_AGE\"$$ years\n";
+"Time: $$TX+D,\"\",\"COMPANY_TIME\"$$\n";