Diferentes ejercicios con BASIC 256

EJERCICIOS BÁSICOS QUE PUEDES HACER CON EL PROGRAMA BASIC 256

EJERCICIO 1: En este ejercicio preguntaremos por un valor entre 50 y100, si al introducir un número no cumple esa condición saldrá valor erróneo, entonces te volverá a dar una oportunidad preguntando, si logras acertar acabarás el juego y saldrá el valor que has introducido es correcto. 
-A continuación paso a paso el proceso: 

do
 
input " Introduce un valor entre 50 y 100 ", x
 
clg
cls
 
if 50 < x and x < 100 then
print "Has acertado"
colour purple
rect 100, 200, 60, 70
 
else
 
print "Has fallado "
colour red
rect 100, 200, 60, 70
 
end if

until 50 < x and x < 100

EJERCICIO 2: Con este proceso podemos realizar un ejercicio que es, ¿Cómo hacer que un punto en el gráfico se mueva? Una vez hayas realizado este proceso puedes modificarlo añadiendo más puntos al gráfico con la función Circle.

-A continuación paso a paso el proceso:

CLG

CLS

DO

INPUT "ELIGE EL NÚMERO DE PASOS ", Y

CLS

INPUT "ELIGE CUANTOS PIXELS QUIERE QUE RECORRA POR CADA PASO LA BOLITA ", X

FOR M = 1 TO Y

CLG

COLOR PURPLE

CIRCLE (X*M),250,15

COLOR BLUE

CIRCLE (X*M), 125,50

PAUSE (0.1)

NEXT M

INPUT "¿QUIERES REPETIR EL PROCESO? ", Z$

UNTIL (Z$="no")

PRINT "Gracias por jugar"