Ah, it's ok now I changed the line:

Code:
FOR k = 1 TO 5000: NEXT k
to

Code:
FOR k = 1 TO 50000: NEXT k
runs fine now. I'm with everybody else...IT'S COOL