RosettaCodeData/Task/Pseudo-random-numbers-Middl.../Chipmunk-Basic/pseudo-random-numbers-middl...

6 lines
122 B
Plaintext

10 semilla = 675248
20 for i = 1 to 5
30 print i;": ";semilla
31 semilla = ((semilla*semilla)/1000) mod 1000000
40 next i