Найти арифметическое выражение 3

REM
REM  123456789
REM
REM  1 + 2 + 34 - 5 + 67 - 8 + 9 = 100
REM
 
DECLARE FUNCTION f! (A AS STRING)
 
CLS
CONST p = " "
DIM A AS STRING
DIM B AS STRING
B = "1 2 3 4 5 6 7 8 9"
 
 
FOR i1 = -1 TO 1
FOR i2 = -1 TO 1
FOR i3 = -1 TO 1
FOR i4 = -1 TO 1
FOR i5 = -1 TO 1
FOR i6 = -1 TO 1
FOR i7 = -1 TO 1
FOR i8 = -1 TO 1
   n = 0
   A = B
   n = n + ABS(i1) + ABS(i2) + ABS(i3) + ABS(i4)
   n = n + ABS(i5) + ABS(i6) + ABS(i7) + ABS(i8)
 
   IF n = 6 THEN
      k = 0
      IF i1 > 0 THEN MID$(A, 2, 1) = "+": k = k + 1
      IF i1 < 0 THEN MID$(A, 2, 1) = "-": k = k + 1
      IF i2 > 0 THEN MID$(A, 4, 1) = "+": k = k + 1
      IF i2 < 0 THEN MID$(A, 4, 1) = "-": k = k + 1
      IF i3 > 0 THEN MID$(A, 6, 1) = "+": k = k + 1
      IF i3 < 0 THEN MID$(A, 6, 1) = "-": k = k + 1
      IF i4 > 0 THEN MID$(A, 8, 1) = "+": k = k + 1
      IF i4 < 0 THEN MID$(A, 8, 1) = "-": k = k + 1
      IF i5 > 0 THEN MID$(A, 10, 1) = "+": k = k + 1
      IF i5 < 0 THEN MID$(A, 10, 1) = "-": k = k + 1
      IF i6 > 0 THEN MID$(A, 12, 1) = "+": k = k + 1
      IF i6 < 0 THEN MID$(A, 12, 1) = "-": k = k + 1
      IF i7 > 0 AND k < 6 THEN MID$(A, 14, 1) = "+": k = k + 1
      IF i7 < 0 AND k < 6 THEN MID$(A, 14, 1) = "-": k = k + 1
      IF i8 > 0 AND k < 6 THEN MID$(A, 16, 1) = "+": k = k + 1
      IF i8 < 0 AND k < 6 THEN MID$(A, 16, 1) = "-": k = k + 1
 
      IF f(A) = 100 THEN PRINT A
   END IF
NEXT i8, i7, i6, i5, i4, i3, i2, i1
 
END
 
FUNCTION f (A AS STRING)
   DIM B AS STRING
  
   DO WHILE INSTR(A, p)
      k = INSTR(A, p)
      A = LEFT$(A, k - 1) + MID$(A, k + 1)
   LOOP
 
   FOR i = 2 TO 14
      B = MID$(A, i, 1)
      IF INSTR("+-", B) THEN
         IF n1 = 0 THEN n1 = i: GOTO 100
         IF n2 = 0 THEN n2 = i: GOTO 100
         IF n3 = 0 THEN n3 = i: GOTO 100
         IF n4 = 0 THEN n4 = i: GOTO 100
         IF n5 = 0 THEN n5 = i: GOTO 100
         IF n6 = 0 THEN n6 = i: GOTO 100
      END IF
100
   NEXT
 
   s1 = VAL(A)
   s2 = VAL(MID$(A, n1 + 1, n2 - n1 - 1))
   s3 = VAL(MID$(A, n2 + 1, n3 - n2 - 1))
   s4 = VAL(MID$(A, n3 + 1, n4 - n3 - 1))
   s5 = VAL(MID$(A, n4 + 1, n5 - n4 - 1))
   s6 = VAL(MID$(A, n5 + 1, n6 - n5 - 1))
   s7 = VAL(MID$(A, n6 + 1))
   
   B = MID$(A, n1, 1)
   IF B = "+" THEN S = s1 + s2 ELSE S = s1 - s2
   B = MID$(A, n2, 1)
   IF B = "+" THEN S = S + s3 ELSE S = S - s3
   B = MID$(A, n3, 1)
   IF B = "+" THEN S = S + s4 ELSE S = S - s4
   B = MID$(A, n4, 1)
   IF B = "+" THEN S = S + s5 ELSE S = S - s5
   B = MID$(A, n5, 1)
   IF B = "+" THEN S = S + s6 ELSE S = S - s6
   B = MID$(A, n6, 1)
   IF B = "+" THEN S = S + s7 ELSE S = S - s7
 
   f = S
END FUNCTION