ПАДАЮЩИЕ ЛИНИИ

Программа заполняет экран линиями, прочерчивающимися сверху вниз с заданной скоростью, и имеющими случайные координаты по х.

	0	1	2	3	4	5	6	7	8	9
0	Сх	РР П	90	10	К  СЧ	1	2	9	х	К[x]
1	П  0	Сх	П  1	1	0	РР П	90	50	КГРФ	ИП 1
2	ИП  0	РР П	90	11	РРИП	90	50	F x=0	18	ИП  1
3	1	+	П  1	6	5	-	F x=0	18	БП	04

Алгоритм её чрезвычайно прост:
0-3 – очищаем графический экран
4-12 – делаем СЧ и заносим его в П0 (там будет храниться координата х), заносим 0 в П1 (там будет храниться координата у)
13-17 – запускаем таймер [если вместо 10 в адресах 14-15 ввести другое число, скорость прорисовки линий изменится]
18-23 – рисуем точку на графическом экране
24-28 – смотрим, не истекло ли заданное в таймере время, если нет – рисуем точку ещё раз, перейдя назад на адрес 18. Это бесполезное действие повторяется, пока не истечёт время таймера. Когда при очередной проверке оказывается, что время истекло, идём дальше.
29-39 – прибавляем 1 к координате у и проверяем, не достигнута ли точка (х;65). Если нет, рисуем новую точку с новой координатой (шаг 18), если да, возвращаемся к изготовлению случайного числа, чтобы начать новую линию (шаг 4).

***

ПАДАЮЩИЕ ТОЧКИ

Слегка усовершенствованный вариант первой программы – вместо линий выводятся «падающие» точки, координата х которых также случайна.

	0	1	2	3	4	5	6	7	8	9
0	Сх	РР П	90	10	3	РР П	90	01	К  СЧ	1
1	2	9	х	К[x]	П  0	Сх	П  1	ПП	50	КГРФ
2	0	1	РР П	90	50	РРИП	90	50	F x=0	25
3	ПП 	50	ИП  1	1	+	П  1	6	5	-	F x≠0
4	08	ПП	50	БП	19					
5	ИП  1	ИП  0	РР П	90	11	В/0

0-3 – очистка экрана
4-7 – устанавливаем атрибуты вывода так, чтобы дважды выведенная на одно и то же место экрана тёмная точка давала светлую точку.
8-16 – аналогично адресам 4-12 предыдущей программы
17-19 – вызов подпрограммы
20-29 – работа с таймером, аналог которой - в предыдущей программе.
30-44 – вызов подпрограммы, прибавление 1 к П1, проверка, не достигло ли П1 величины 65, если да, переходим к изготовлению СЧ, нет – рисуем тёмную точку с новой координатой П1 и переходим на шаг 19.
50-55 – подпрограмма, рисующая тёмную точку с координатами П0,П1.