11 lines
210 B
Text
11 lines
210 B
Text
|
Procedure.i MSRandom()
|
||
|
|
Static.i seed=675248
|
||
|
|
seed = (seed*seed/1000)%1000000
|
||
|
|
ProcedureReturn seed
|
||
|
|
EndProcedure
|
||
|
|
|
||
|
|
If OpenConsole()
|
||
|
|
For i=1 To 5 : PrintN(Str(i)+": "+Str(MSRandom())) : Next
|
||
|
|
Input()
|
||
|
|
EndIf
|