Язык программирования на одном из basic-ов

REM    PROGRAMMING LANGUAGE
REM    5*25*(77-69)/10+1
 
DECLARE FUNCTION M$ (n AS INTEGER)
DECLARE FUNCTION IND$ (s AS STRING)
DECLARE FUNCTION SSTR$ (u AS INTEGER)
DECLARE FUNCTION ARW! (s AS STRING)
DECLARE FUNCTION Ziff% (s AS STRING)
DECLARE SUB ARW2 (c1%, c2%)
DECLARE SUB DEL (s AS STRING, n%, l%)
DECLARE SUB VST (s AS STRING, s2 AS STRING, n%)
 
CLS
 
DIM SHARED A(10 TO 80) AS STRING
DIM SHARED B(10 TO 80)
DIM SHARED s AS STRING
DIM SHARED si AS STRING
DIM SHARED o AS INTEGER
DIM s2 AS STRING
 
CLEAR , , 25000
 
OPEN "F.txt" FOR INPUT AS #1
 
LINE INPUT #1, s2
 
s = " (" + s2 + ") "
s = IND(s)
 
FOR i = 10 TO 80
   B(i) = VAL(A(i))
NEXT i
 
PRINT s2; " ="; ARW(s)
IF o THEN CLS : PRINT " Division 0"
CLOSE #1
END
 
FUNCTION ARW (s AS STRING)
   DIM c1 AS INTEGER
   DIM c2 AS INTEGER
   DIM i AS INTEGER
   DIM j AS INTEGER
 
   FOR i = 2 TO LEN(s)
      c2 = INSTR(i, s, ")")
      IF c2 THEN
         FOR j = c2 - 1 TO 1 STEP -1
            IF M(j) = "(" THEN
               c1 = j
               GOTO 100
            END IF
         NEXT j
      ELSE
         ARW = B(10)
         EXIT FUNCTION
      END IF
   NEXT i
100 :
   CALL ARW2(c1, c2)
   IF o THEN EXIT FUNCTION
   MID$(s, c1, 2) = si
   DEL s, c1 + 2, c2 - c1 - 1
   ARW = ARW(s)
END FUNCTION
 
SUB ARW2 (c1 AS INTEGER, c2 AS INTEGER)
   DIM s2 AS STRING
   DIM k AS INTEGER
   DIM k1 AS INTEGER
   DIM k2 AS INTEGER
   DIM k3 AS INTEGER
   DIM k4 AS INTEGER
   DIM i1 AS INTEGER
   DIM i2 AS INTEGER
   s2 = MID$(s, c1 + 1, c2 - c1 - 1)
 
   k1 = INSTR(1, s2, "=")
   
   IF k1 THEN
      i2 = VAL(MID$(s2, k1 + 1, 2))
      b2 = B(i2)
      B(i2) = -b2
      DEL s2, k1, 1
   END IF
   
   DO
      k1 = INSTR(1, s2, "*")
      k2 = INSTR(1, s2, "/")
      k3 = INSTR(1, s2, "+")
      k4 = INSTR(1, s2, "-")
      k = k1 + k2 + k3 + k4
 
   IF k THEN
      IF k1 > 0 AND (k1 < k2 OR k2 = 0) THEN
         i1 = VAL(MID$(s2, k1 - 2, 2))
         i2 = VAL(MID$(s2, k1 + 1, 2))
         b1 = B(i1)
         b2 = B(i2)
         B(i1) = b1 * b2
         DEL s2, k1, 3
      ELSEIF k2 > 0 AND (k2 < k1 OR k1 = 0) THEN
         i1 = VAL(MID$(s2, k2 - 2, 2))
         i2 = VAL(MID$(s2, k2 + 1, 2))
         b1 = B(i1)
         b2 = B(i2)
         IF b2 = 0 THEN o = -1: EXIT SUB
         B(i1) = b1 / b2
         DEL s2, k2, 3
      ELSEIF k3 THEN
         i1 = VAL(MID$(s2, k3 - 2, 2))
         i2 = VAL(MID$(s2, k3 + 1, 2))
         b1 = B(i1)
         b2 = B(i2)
         B(i1) = b1 + b2
         DEL s2, k3, 3
      ELSEIF k4 THEN
         i1 = VAL(MID$(s2, k4 - 2, 2))
         i2 = VAL(MID$(s2, k4 + 1, 2))
         b1 = B(i1)
         b2 = B(i2)
         B(i1) = b1 - b2
         DEL s2, k4, 3
      END IF
   END IF
   LOOP WHILE k
   si = s2
END SUB
 
SUB DEL (s AS STRING, n AS INTEGER, l AS INTEGER)
   DIM s1 AS STRING
   DIM s2 AS STRING
   
   s1 = LEFT$(s, n - 1)
   s2 = RIGHT$(s, LEN(s) - n - l + 1)
   s = s1 + s2
END SUB
 
FUNCTION IND$ (s AS STRING)
   DIM i AS INTEGER
   DIM j AS INTEGER
   DIM k AS INTEGER
   DIM k0 AS INTEGER
   i = 10: k = 0: j = 0
 
   DO
      k = k + 1
      IF Ziff(M(k)) THEN
         k0 = k
         DO WHILE Ziff(M(k))
            A(i) = A(i) + M(k)
            j = j + 1
            k = k + 1
         LOOP
         
         DEL s, k0, j
         VST s, SSTR(i), k0
 
         k = k - j + 1
         i = i + 1
         j = 0
      END IF
   LOOP UNTIL k >= LEN(s)
 
   DO
      k = INSTR(1, s, "(-")
      IF k THEN MID$(s, k + 1, 1) = "="
   LOOP WHILE k
 
   IND = s
END FUNCTION
 
FUNCTION M$ (n AS INTEGER)
   M = MID$(s, n, 1)
END FUNCTION
 
FUNCTION SSTR$ (u AS INTEGER)
   SSTR = LTRIM$(STR$(u))
END FUNCTION
 
SUB VST (s AS STRING, s2 AS STRING, n AS INTEGER)
   DIM s3 AS STRING
   DIM s4 AS STRING
 
   s3 = LEFT$(s, n - 1)
   s4 = RIGHT$(s, LEN(s) - (n - 1))
   s = s3 + s2 + s4
END SUB
 
FUNCTION Ziff% (s AS STRING)
   Ziff = INSTR(1, "1234567890.", s)
END FUNCTION