RANDOMIZE TIMER 'seeds random number generator with the system time
pi = 3.141592653589793#
DIM a(1 TO 1000) AS DOUBLE
CLS
FOR i = 1 TO 1000
  a(i) = 1 + SQR(-2 * LOG(RND)) * COS(2 * pi * RND)
NEXT i