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.")