Numere pentru LOTO 6/49

Do While nVueltas > nControl
cNum = Transform(Int(49 * Rand() + 1) )
nControl = nControl + 1
@Srows()/2, (Scols()/2 - (Len(cNum)/2))Say cNum Font "Tahoma",30 Style "B"
Enddo