RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Текст программы на REXX


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Папа Карло, http://wiki.laser.ru/os8
To : GPV&KGB
Subj : Текст программы на REXX
>
> P.S.: Листинг этот нужен исключительно в образовательных целях, а посему варезом являться не будет.
В образовательных ?
Ну вот вам
/* calc.cmd наpодный калькулятоp (с) 1998 */
SAY 'Русский наpодный калькулятоp v0.0'
XX = "X="; X0 = "X=X"
SAY 'Введите выpажение или Q для завершения'
DO FOREVER
PULL v
IF v = 'Q' THEN LEAVE
S=LEFT(v,1)
IF(DATATYPE(S,'A'))
THEN
DO
IF(POS('=',v) = 0)
THEN
DO
INTERPRET XX v
SAY 'X=' X
END
ELSE
INTERPRET v
END
ELSE
DO
INTERPRET X0 v
SAY 'X=' X
END
END
EXIT


Wed 10 Oct 2007 04:15 Mozilla/5.0 (OS/2; U; Warp 4.5; en-US; rv:1.8.1.4) Gecko/200



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.