Поиск простых чисел на ЮТ-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]

[Ewgeny7]

на языке СТЕПЛЕР

---------- Post added at 23:52 ---------- Previous post was at 23:48 ----------

А какого-нибудь С нету? (жалобным голосом)

[demetrius2003]

А что за СТЕПЛЕР? Где про него почитать можно?

[denpopov]

А какого-нибудь С нету? (жалобным голосом)

алгоритм Си гуглится..
а поиск простых чисел тут:
http://math.exeter.edu/rparris/wincalc.html

[Kakos_nonos]

demetrius2003, вот: http://zx-pk.ru/showthread.php?t=19642
и вот: http://zx-pk.ru/showthread.php?t=18452

А какого-нибудь С нету? (жалобным голосом)

Есть, от vinxru.