Поиск простых чисел на ЮТ-88

[Kakos_nonos]

Откомпилировал для ЮТа программу поиска простых чисел, на языке СТЕПЛЕР.
Вот исходник:

$(6)(3)
{next}
$(4)(1,6$^1+@,6$^1+)
{nl}
$(4)(4$^1+)
#(6$^4$%)<next>
#(4$^5$-|)<nl>
$(2)(6$)
#<next>

В архиве программа, грузится и запускается на адрес $C400. Программа постоянно ищет простые числа методом перебора делителей, как только находит простое число, так сразу выводит его на экран.
Можно использовать как тест процессора или как скринсейвер

http://yadi.sk/d/hKbWJo24SHyL6

Сейчас допиливаю компилятор чтоб во всю ЮТ использовал, можно тогда будет для ЮТа писать проги на ЯП высокого уровня.

[Advertiser]