RosettaCodeData/Task/Pseudo-random-numbers-Middle-square-method/PureBasic/pseudo-random-numbers-middle-square-method.basic

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