timeToGen = 0 rndNum = 0 While Not KeyHit(1) If MilliSecs()>timeToGen Then rndNum = Rnd(1,20) timeToGen = MilliSecs()+10000 EndIf Print rndNum Wend