CLS
DO
PRINT "Calcule el doble de un numero"
INPUT "Diga un numero", A1
LET B1 = 2 * A1
PRINT "El doble de un numero es", B1
LOOP
END