CIRCULO PROGRAMADO CON BASIC-256

clg
input "introduce numero de pasos de la pelota->", npasos
input "introduce distancia entre los pasos->", ndistancia

do
for i=1 to npasos
     print i
      clg
      colour cyan
      circle 20+(ndistancia*i),20,8
      pause 0.1
next i

input "¿quieres repetir?", X$
until X$="NO" OR X$="no"
print "fin del programa"