100 BEGIN INTEGER X, G,N,  A;
110    PRINT ("GUESS THE NUMBER BETWEEN 1 AND 100.");
120    START: X := ENTIER(RANDOM*100 + 1); N := 0;
130    LOOP: READATA (TELETYPE, G); N := N+1;
140       IF G < X THEN PRINT ("TOO SMALL, GUESS AGAIN")
150       ELSE IF G > X THEN PRINT ("TOO LARGE, GUESS AGAIN")
160       ELSE GOTO DONE;
170       GOTO LOOP;
180    DONE: PRINT ("YOU GUESSED IT, IN ", "", N, "", " TRIES");
185       PRINT ("ANOTHER GAME (YES = 1, NO = O)", "");
190       READATA (TELETYPE, A);
200       IF A = 1 THEN GOTO START
210 END
