FUNCTION PBMAIN()

   STDOUT "Command --> ";
   STDIN LINE cmd$
   x1# = TIMER
   SHELL cmd$
   x2# = TIMER

   dif# = x2# - x1#
   STDOUT
   COLOR 15
   STDOUT "Execution took " & FORMAT$(dif#, "0000.00") & " seconds."
   color 7
   STDOUT

END FUNCTION