require service { protected shared int plays; resource HiScore; shared int record; shared string holder; html GuessDoc = Please guess a number between 0 and 99: ; html Again = That is not correct. Try a <[correction]> number: ; html Done = You got it, using <[trys]> guesses. ; html Record = That makes you the new record holder, beating the old record of <[old]> guesses.

Please enter your name for the hi-score list ; html HiScoreDoc = In <[plays]> plays of this game, the record holder is <[holder]> with <[record]> guesses. ; session Play() { int number, guesses, guess, r; number = random(100); writer (plays) { plays++; } show GuessDoc receive[guess = guess]; guesses = 1; while (guess!=number) { if (guess>number) { show Again <[correction = "lower"] receive[guess = guess]; } if (guess=guesses) { string name; show Record <[old=r] receive [name=name]; writer (HiScore) { holder = name; record = guesses; } } exit Thank you for playing this exciting game; } session HiScore() { int p,r; string h; reader (plays) { p = plays; } reader (HiScore) { r = record; h = holder; } exit HiScoreDoc <[plays=p,holder=h,record=r]; } }