14. BASIC-256, Círculo en movimiento

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"