PROGRAMA DE ADIVINAR NUMERO CON BASIC-256

x = RAND* 50

x = int (x)

cuenta=0

do

input "Introduzca un numero", y

if x = y then

print "correcto"

end if

if x > y then

print "Introduce un numero más grande"

end if

if x < y then

print "Introduce un numero más pequeño"

end if

cuenta=cuenta+1

until x = y OR cuenta>=5

if cuenta >= 5 then

print "No te quedan intentos"