#COMPILE EXE
#DIM ALL

DECLARE FUNCTION GetTickCount LIB "kernel32.dll" ALIAS "GetTickCount" () AS LONG
DECLARE FUNCTION GetCurrentProcessId LIB "kernel32.dll" ALIAS "GetCurrentProcessId" () AS LONG
DECLARE SUB Sleep LIB "kernel32.dll" ALIAS "Sleep" (BYVAL dwMilliseconds AS LONG)

FUNCTION PBMAIN() AS LONG
    CALL Sleep(1)
    PRINT "PID:", GetCurrentProcessId()
    PRINT "Uptime ms:", GetTickCount()
    FUNCTION = 0
END FUNCTION
