17 lines
283 B
Text
17 lines
283 B
Text
Dim Shared seed As Integer = 675248
|
|
Dim i As Integer
|
|
Declare Function Rand As Integer
|
|
For i = 1 To 5
|
|
Print Rand
|
|
Next i
|
|
Sleep
|
|
|
|
Function Rand As Integer
|
|
Dim s As String
|
|
s = Str(seed ^ 2)
|
|
Do While Len(s) <> 12
|
|
s = "0" + s
|
|
Loop
|
|
seed = Val(Mid(s, 4, 6))
|
|
Rand = seed
|
|
End Function
|