{* Движущийся круг *}

REM basic

' Движущийся круг


SCREEN 1
x = 1
y = 1
{цвет фона - 0(черный), цвет рисунка - 1
}
For i = 1 To 150

{Рисуем объект цветом отличным от цвета фона.
}c = 1
CIRCLE (x, y), 2, c

{задержка
}For j = 1 To 250000
Next j

{Рисуем объект цветом цветом фона.
}c = 0
CIRCLE (x, y), 2, c

{Изменяем координаты
}x = x + 2
y = y + 1

Next i
End