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

semilla = 675248
for i = 1 to 5
	print i, ": ", Random()
next i
end

sub Random()
	semilla = floor(mod(((semilla*semilla)/1e3), 1e6))
	return int(semilla)
end sub