SparrowOSTS_121127.ISO

SparrowOS/Demo/Prompt.CPP

@@ -0,0 +1,25 @@
+U0 PromptDemo()
+{
+  F64 d;
+  I64 i;
+  U8 *name;
+  CDate ltdt;
+
+  "\n\nNow prompting from the cmd line.\n\n"
+  "$$FG,GREEN$$<ENTER>$$FG$$ keeps default.\n\n";
+
+  i=PmtI64("Enter int expression(%d):",123);
+  "Int=%d\n",i;
+
+  d=PmtF64("Enter float expression(%12g):",1.2e3);
+  "Float=%e\n",d;
+
+  name=PmtStr("Name (%s):","John");
+  "Name:%s\n",name;
+  Free(name);
+
+  ltdt=PmtCDate("Date (%D):",GetCurTimeCDate);
+  "Date=%D\n",ltdt;
+}
+
+PromptDemo;