[pax]

Вот набросал небольшой примерчик как использовать оператор SeedRnd() для получения одинаковых последовательностей случайных величин. Этот оператор можно например использавать для генерации одинаковых карт на основе операторов Rnd() и Rand().

Global T$=""
seed%=MilliSecs()
SeedRnd(seed%)
For i=1 To 25
	T$=T$+" "+Rand(1,100)
Next
Print "Первая последовательность целых чисел:"
Print T$
T$=""
SeedRnd(seed%)
For i=1 To 25
	T$=T$+" "+Rand(1,100)
Next
Print "Вторая последовательность целых чисел:"
Print T$
T$=""
SeedRnd(seed%)
For i=1 To 15
	T$=T$+" "+Rnd(1,100)
Next
Print "Первая последовательность вещественных чисел:"
Print T$
T$=""
SeedRnd(seed%)
For i=1 To 15
	T$=T$+" "+Rnd(1,100)
Next
Print "Вторая последовательность вещественных чисел:"
Print T$
WaitKey()