/* calc.cmd  наpодный калькулятоp (с) 1998 */
SAY 'Русский наpодный калькулятоp v0.01'
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