Yep, it's been a good learning experience. Here's a quick and dirty example.


*--Main Class
DEFINE CLASS myclass AS session OLEPUBLIC

PROCEDURE MaxOutCPU AS VOID
*--Count to Half a billion.
lnStart = SECONDS()
FOR i = 1 TO 500000000
NEXT i
=STRTOFILE("Process Took: " + TRANSFORM(SECONDS() - lnStart) + " seconds" + CHR(13) + CHR(10), "C:\FoxStats.txt",1)
ENDPROC

PROCEDURE CallExternal(cExternal as String) &&--Must contain UNC path and file name.
DO (cExternal)
=STRTOFILE("Ran external Func: " + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), "C:\FoxStats.txt",1)
ENDPROC

ENDDEFINE