Initial data commit

Task/Time-a-function/PureBasic/time-a-function-2.basic

@@ -0,0 +1,14 @@
+If OpenConsole()
+  Define Timed.f, cnt
+  PrintN("Starting timing of a calculation,")
+  PrintN("for this we test how many of 0-1000000 are palindromic.")
+  ; Dependent on Droopy-library
+  If MeasureHiResIntervalStart()
+    ; Same Foo() as above...
+    cnt=Foo(1000000)
+    Timed=MeasureHiResIntervalStop()
+  EndIf
+  PrintN("The function need "+StrF(Timed*1000,3)+" msec,")
+  PrintN("and "+Str(cnt)+" are palindromic.")
+  Print("Press ENTER to exit."): Input()
+EndIf