Clipper/FiveWin - números aleatorios

Necesito un programa en Clipper que genere números aleatorios, por ejemplo del 1 al 1000 (sin repetirse) y que salgan en una lista mas o menos así:
1.- 50
2.- 501
3.- 12
4.- 1000
etc.
Seré su eterno agradecido
Omar, de Chile

No se si te sirve el dato.
Pero yo necesitaba numeros aleatorios para generar una llave a un sistema y me base en el reloj del bios, aplique algunas funciones y obtuve un numero decimal de 10 digitos para mi clave.

Tal vez haciendo lo mismo obtengas el rango que necesites.

Saludos
Cesar

Esto fue publicad anteriormente en este foro..
Checale esa function,,
saludos..
sintaxis,,,
crand(1000)
//me regresa un numero
//entre el 1 y el 1000

function cRand(n)
static xrndseed := .123456789
if xrndseed = .123456789
xrndseed += val(substr(time(), 7, 2)) / 100
endif
xrndseed := (xrndseed * 31415821 + 1) / 1000000
return int( (xrndseed -= int(xrndseed)) * n)

Salu2