Random setSeed(Date asNumber)
number := (Random value() * 99 + 1) floor
writeln("Guess a number between 1 and 100")
guess := 0
times := 1
"Your guess: " print
guess := File standardInput readLine() asNumber
while (number != guess,
if (number > guess,
writeln("The number is bigger"),
writeln("The number is smaller"))
"Your guess: " print
guess := File standardInput readLine() asNumber
times := times + 1)
writeln("It did take you " .. times .. " tries to find the number.")