Бейсик. Программируем снегопад

[@AlexPayneKU]

SCREEN 12: CLS '21.11.2024 Панин А.А.
PRINT "Снегопад."
PRINT : PRINT
INPUT "Введие количество снежинок:", n
'Генерируем начальное положение каждой снежинки
'Иcходя из разрешения 640*480
DIM snx(n), sny(n) 'Массивы с координатами каждой снежинки
FOR i = 1 TO n 'Заполняем массивы случайными координатами
sny(i) = INT(RND(1) * 640)
snx(i) = INT(RND(1) * 480)
NEXT i
CLS 'Очищаем экран от диалога с пользователем
while inkey$="" 'Цикл до нажатия клавиши
'Выводим снежинки на экран
FOR i = 1 TO n
PSET (sny(i), snx(i))
NEXT i
'Рассчитываем новые координаты снежинок
'х - увеличивается до 480 - максимум, затем сбрасывается в 0
'то есть снежинка, улетевшая вниз за экран - появляется вновь вверху экрана
'y - увеличивается или уменьшается случайным образом
'что создаёт эффект кружения.
FOR i = 1 TO n
IF snx(i)

[@zheka____]

Эх, помню такое. Тоже писали на бейсике всякое в школе. 7 или 8й класс, вроде бы как 97-98й годы.
Снегопад, салют, разные картинки, и ещё примитивные игры.

[@ВладиславГришин-ш7ш]

под win10 бейсик можно запустить?

[@AlexPayneKU]

Я пользуюсь DOS-BOX'ом. Кроме того, есть проект Qbasic64 - тот прямо под Виндой запускается, но мне он не нравится - слишком часто зависает.