Ex - Comunidad de Programadores, Nuevo Leon

REM Juego de adivinanzas
REM Programado por Rajeev Pandey en 4/2/93 y modificado por LazyEye en 2/2/09 
DECLARE SUB InicioJuego(contador!,numero!)
DECLARE SUB Intento(contador!, conjetura!, numero!)
DECLARE SUB FinJuego(numero!)
CLS
CALL InicioJuego(contador,numero)
DO 
    CALL Intento(contador, conjetura, numero)
LOOP UNTIL (conjetura=numero) OR (contador=7)
IF conjetura <> numero THEN
    CALL FinJuego(numero)
ENDIF

SUB InicioJuego(contador,numero)
    PRINT "Adivina este número, es un número del uno al cien."
    PRINT "Tienes siete intentos para adivinarlo."
    contador = 0
    RANDOMIZE TIMER
    numero = INT(RND * 100)
END SUB

SUB Intento(contador, conjetura, numero)
    PRINT "Intento número"; contador + 1
    INPUT "Escribe un número:"; conjetura
    IF conjetura = numero THEN
        PRINT "¡Correcto!"
        PRINT "Lo adivinaste al intento numero"; contador + 1
    ELSE
        IF conjetura < numero THEN
            PRINT "No ese no es, es mas grande."
        ELSE
            PRINT "No ese no es, es mas pequeño."
        END IF
    END IF
    contador = contador + 1
END SUB

SUB FinJuego(numero)
    IF conjetura <> numero THEN
        PRINT "No pudiste adivinarlo."
        PRINT "El nÚmero era el"; numero
    END IF
END SUB