Tutorial de QBasic, código fuente del ejercicio práctico

Publicado el 08 agosto 2013 por Dracux @isladelmono

Y entonces como les fue con el ejercicio práctico propuesto en los capítulos 9 y 10?

Como lo prometí, les paso el código fuente con una posibilidad de como hacerlo que es el de los videos:

REM "UN JUEGO DE ADIVINAR EL NUMERO"
REM "SI NO ACIERTA TIENE QUE DECIR SI ES MAS ALTO O MAS BAJO"
REM "EL USUARIO ARRANCA CON 0 PUNTOS A MEDIDA QUE NO ACIERTE SE LE SUMA UN PUNTOS POR ERROR"
REM "VAN A HABER 3 NIVELES"
REM "1-FACIL: 1 al 10"
REM "2-INTERMEDIO: 1 al 50"
REM "3-DIFICIL: 1 al 100"
REM "AL FINAL TENEMOS QUE MOSTRAR EL NUMERO QUE ACERTO Y CUANTOS PUNTOS HIZO"

INPUT "En que nivel quiere jugar (1-F,2-I,3-D): ", nivel
RANDOMIZE TIMER
SELECT CASE nivel
    CASE 1
        correcto = INT(RND * 10) + 1
    CASE 2
        correcto = INT(RND * 50) + 1
    CASE 3
        correcto = INT(RND * 100) + 1
    CASE ELSE
        PRINT "El nivel ingresado no existe"
END SELECT
nro = 0
puntaje = 0
DO WHILE correcto <> nro
    INPUT "Ingrese n£mero: ", nro
    IF nro = correcto THEN
        PRINT "Acertaste!"
        PRINT puntaje
    ELSE
        puntaje = puntaje + 1
        IF nro > correcto THEN
            PRINT "El n£mero correcto es menor"
        ELSE
            PRINT "El n£mero correcto es mayor"
        END IF
    END IF
LOOP

Espero que les haya servido y pronto más de QBasic, hay muchas cosas que ver!