FoxPro/Visual FoxPro - Como Generar números para bingo

Si alguien me puede ayudar para hacer un programita de generación de numeros para cartones de bingos

Yo lo haria asi:
1- Tengo una tabla donde esta todos los numeros, un registro por cada uno
2- Geraria un numero al azar, ver funcion RAND().
- Busco ese numero al azar en la tabla :
- si no lo encuentra tira otro al azar (esto es porque no creo que los numeros
lleguen hasta el 100 en el carton)
- Si lo encuentra verificar que no haya sido tirado anteriormente en esa jugada.
(En ese caso se pueden ir marcando o irlo poniendo en una tabla aparte

Prueba esto

SELECT 0
DIMENSION laRandomValues[1]
LOCAL lnArrayLen, lnCount, lnFieldCount, lnVal, lcField
laRandomValues[1] = 0
lnArrayLen = 1
CREATE CURSOR bingo (col1 n(2), col2 n(2), col3 n(2), col4 n(2), col5 n(2))
FOR lnCount = 1 TO 5
APPEND BLANK
FOR lnFieldCount = 1 TO 5
lcField = "col" + TRANSFORM(lnFieldCount)
DO WHILE .T.
lnLevel = (16 + (lnFieldCount - 1) * 15)
lnVal = INT(lnLevel * RAND())
IF NOT (lnVal >= lnLevel - 15 AND lnVal < lnLevel)
* value not allowed for this column
* try again
LOOP
ENDIF
IF ASCAN(laRandomValues, lnVal) = 0
lnArrayLen = lnArrayLen + 1
DIMENSION laRandomValues[lnArrayLen]
laRandomValues[lnArrayLen] = lnVal
REPLACE &lcField WITH lnVal
EXIT
ELSE
* random value already placed on the bingo card
* try again
LOOP
ENDIF
ENDDO
ENDFOR
ENDFOR
GO TOP
BROWSE FIELDS col1:H="B", col2:H="I", col3:H="N", col4:H="G", col5:H="O"


Suerte