From a footprint perspective, I would recommend you do this in VB. However, here is the VFP Code:

Local nOldDec,nRand
nOldDec = Set("decimal")
Set Decimals To 6
nRand = 0
Do While nRand < 100000
nRand = Int(rand()*1000000)
EndDo
Set Decimal To &nOldDec
Return x


>I need to get a six (6) digit random generator?
>This needs to be a small program that runs in win95.
>Any ideas?