Russian People calculator

/* calc.cmd народный калькулятор (с) 1998 */
SAY 'Русский народный калькулятор v0.0'
XX = "X="; X0 = "X=X"
  SAY 'Введите выражение или 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