Цитата Сообщение от 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
На таком кодить - умом тронуться....

---------- Post added at 20:38 ---------- Previous post was at 20:37 ----------

суть то ясна (команды до одной буквы сокращены), но это блин просто какое-то извращение...