; Программа для расчёта энергии текущего поколения
; и суммы этих энергий во время ядерного удара.
;
;            ----- БРЭМ, 1972 -----
;
; стартовые значения
LOAD 21 1000000        ; начальное количество делений
LOAD 22 0.000000000032 ; энергия одного деления
LOAD 4 0               ; общая энергия
LOAD 5 10              ; множитель делений
LOAD 6 0               ; счётчик поколений
LOAD 7 10              ; максимум поколений
LOAD 8 1               ; для инкремента
LOAD 9 20              ; строка начала цикла
LOOPI 6 < 7            ; начало взрыва
MUL 3 21 22            ; энергия текущего поколения
ADD 4 4 3              ; накапливаем суммарную
MUL 21 21 5            ; больше делений
ADD 6 6 8              ; следующее поколение
SLEEP 500
END