Мини ЭВМ "Искра 226"

[Archie]

Попали в руки пара-тройка распечаток с Искры. Вот это что такое вообще за язык?

ВЫВОД ПРОГРАММ...23-JAN-92     15:52



RUL145

RUL145
RULETKA D ¬%CURSORD W !,IES,"ПРИГЛАШАЮ ВАС ЗА СТОЛ С РУЛЕТКОЙ !"
        W !,!,"НУЖНЫ ЛИ ВАМ ИНСТРУКЦИИ 1-ДА,0-НЕТ " R O
        I O=0 G START
        W !,!,"    ПОЛЕ НОМЕРОВ    !                 ТИПЫ СТАВОК"
        W !,"                    !   ЧИСЛО ОТ 1 ДО 36 ОЗНАЧАЕТ ПРЯМУЮ СТАВКУ"
        W !," ",YINV,"1",NINV,"      2      ",YINV,"3",NINV
        W "    !   НА СООТВЕТСТВУЮЩИЙ НОМЕР.ОПЛАЧИВАЮТСЯ 35:1"

...


START   F I=1:1:38 S X(I)=0
        S P=1000,D=100000
D       W IES R !,"СКОЛЬКО СТАВОК ? ",Y
        I Y<1 G D
        I Y>Y\1 G D
        F i=1:1:50 S A(I)=0
        S C=1

[Advertiser]