#COMPILE EXE FUNCTION PBMAIN AS LONG REGISTER i AS LONG REGISTER samp AS LONG LOCAL time AS SINGLE time = TIMER FOR i = 0 TO 100000000 samp = RND * &HFFFF NEXT MSGBOX STR$(TIMER - time) END FUNCTION