17. BASIC-256, Adivina número

CONTADOR=0

Z= RAND

Z=Z*50

PRINT Z

CLS

Z=INT(Z)

PRINT Z

CLS

DO

INPUT "Introduce un número entre 0 y 50-> ", X

IF X<Z THEN

CLS

PRINT "Es más grande"

END IF

IF X>Z THEN

CLS

PRINT "Es más pequeño"

END IF

CONTADOR=CONTADOR+1

UNTIL X=Z OR CONTADOR=5

CLS

IF X=Z THEN

PRINT "Acertaste, enhorabuena!!"

END IF

IF CONTADOR=5 AND X<Z OR X>Z THEN

PRINT "Fallaste"

END IF