INT GUESS
INT TRIESNB
INT ANSWER


: SCAN
  0 --> ANSWER
  0
  BEGIN
    10 = NOT
  WHILE
    KEY
      DUP 47 > OVER 58 < AND
    IF
      DUP DUP EMIT
      48 - ANSWER 10 * + --> ANSWER
    THEN
  REPEAT
;


: GAME
  RAND 2000 MOD 1 + --> GUESS
  1 --> TRIESNB
  10 EMIT
  ." Guess a number between 1 and 2000 in less than 10 tries"
  10 EMIT
  
  BEGIN
    TRIESNB 11 <
  WHILE
    SCAN

      ANSWER GUESS =
    IF
      ."  you win in "
      TRIESNB .
        TRIESNB 1 >
      IF
        ."  tries!"
      ELSE
        ."  try!"
      THEN
      100 --> TRIESNB
    ELSE
        ANSWER GUESS <
      IF
        ."  is too small"
      ELSE
        ."  is too big"
      THEN
    THEN

    10 EMIT
    TRIESNB 1 + --> TRIESNB
  REPEAT
  
    TRIESNB 11 =
  IF
    ." Looser! The number to guess was "
    GUESS .
    10 EMIT
  THEN
;