/* calc.cmd  народный калькулятор 1998 */
SAY 'Русский народный калькулятор v0.0'
XX = "X="; X0 = "X=X"
  SAY 'Введите выражение или Q для завершения'
DO FOREVER
  PULL v
  IF v = 'Q' THEN LEAVE 
  S = LEFT
  IF )
    THEN
      DO
        IF = 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

 Русский народный калькулятор v0.0
 Введите выражение или Q для завершения
 >300+
 X= 330.0
 >Y=X*2
 >Y+2
 X= 662.0
 >+33
 X= 695.0
 >+123
 X= 818.0
 >/10
 X= 81.8
 >//2
 X= 1.8
 >+1024
 X= 1025.8
 >%4
 X= 256