RosettaCodeData/Task/Iterated-digits-squaring/Craft-Basic/iterated-digits-squaring.basic

for i = 1 to 1000

	let j = i

	do

		let k = 0

		do

			let k = int(k + (j % 10) ^ 2)
			let j = int(j / 10)

			wait

        loop j <> 0

        let j = k

	loopuntil j = 89 or j = 1

	if j > 1 then

		let n = n + 1

	endif

	print "iterations: ", i

next i

print "count result: ", n

end