Pseudo-random numbers/Middle-square method: Difference between revisions

=={{header|uBasic/4tH}}==

{{trans|c}}

<lang>If Info("wordsize") < 64 Then Print "This needs a 64-bit uBasic" : End

s = 675248

For i = 1 To 5

Print Set(s, FUNC(_random(s)))

Next

End

_random Param (1) : Return (s*s/1000%1000000)</lang>

{{out}}

<pre>959861

333139

981593

524817

432883

0 OK, 0:140

</pre>