BrainF*ck Complier Loops????

[Zeppelin]

Hey,
I decided to type a mock up simple Brainf*ck compiler in QB and cant figure out a way to implement loops.
Any ideas or help is appreciated

Code: QB64: [Select]

1. DIM dat(1000)
2. DIM SHARED index AS INTEGER
3. INPUT "", bfin$
4.  
5. FOR n = 1 TO LEN(bfin$)
6.     find$ = MID$(bfin$, n, 1)
7.     IF find$ = "+" THEN
8.         dat(index) = dat(index) + 1
9.     ELSEIF find$ = "-" THEN
10.         dat(index) = dat(index) - 1
11.     ELSEIF find$ = ">" THEN
12.         index = index + 1
13.     ELSEIF find$ = "<" THEN
14.         index = index - 1
15.     ELSEIF find$ = "[" THEN
16.  
17.     ELSEIF find$ = "]" THEN
18.  
19.     ELSEIF find$ = "." THEN
20.         IF dat(index) > 0 THEN
21.             PRINT CHR$(dat(index));
22.         ELSE
23.             PRINT "Error 001: ASCII Index out of range"
24.         END IF
25.     ELSE
26.         PRINT "Error 002: Unidentified command at "; n
27.     END IF
28. NEXT n
29.  
30. PRINT
31. PRINT "END"

Thanks
Zeppelin

[bplus]

Hi Zeppelin

Recently discussed here: https://www.qb64.org/forum/index.php?topic=566.0
(A working translator can be found there. Your dat array will likely need to be _UNSIGNED _BYTE to read your signature at least)

I had had problem with reading your signature with my translator of QB45 code from Rosetta Code but Fellippe located the problem.

How did you code your signature message?

My real name is Mark also. :)