WD exemple de code aléatoire

//exemple randon
rank is int = 0
sorteio is int = 0
numero is int = 0
leumatriz is real = 0


// por matriz

MatCreate("matriz")
FOR sorteio = 1 TO 50
FOR rank = 1 TO 10
numero = Random(1,100)
ResRead = MatRead("matriz", numero, 2)
IF Error(MatError("matriz")) = 0 THEN
MatWrite("matriz", MatRead("matriz", numero, 2) + 1, numero, 2)
ELSE
MatWrite("matriz", 1, numero, 2)
END
END
END

///por tabela

//tabela = sorteio
//campos = numerosorteado, qtsorteio
//chave = numerosorteado

FOR sorteio = 1 TO 50
FOR rank = 1 TO 10
numero = Random(1,100)
HReadSeek(sorteio,numerosorteado,Numero,hIdentical)
IF HFound(sorteio)
sorteio.qtsorteio += 1
HModify(sorteio)
ELSE
HReset(sorteio)
sorteio.numerosorteado = numero
sorteio.qtsorteio = 1
HAdd(sorteio)
END
END
END