100 (PROGRAM11)
110 "Brainfuck"
120 "INIT DATA..."
130 P=0
140 @(P)=0
150 P=P+1
160 #=(P<512)*140
170 P=0

200 (SEARCH PRG TOP)
210 "SEARCH PRG..."
220 Q=1000

230 Q=Q+1
240 #=1200
250 #=(D=57)*270
260 #=230

270 Q=Q+1
280 #=1200
290 #=(D=57)*310
300 #=230

310 Q=Q+1
320 #=1200
330 #=(D=57)*350
340 #=230

350 Q=Q+1
360 #=1200
370 #=(D=57)*390
380 #=230

400 (FETCH & EXEC)
410 "RUN..."

420 Q=Q+1
430 #=(Q=&)*110
440 #=1200
450 #=(D=62)*550
460 #=(D=60)*600
470 #=(D=43)*650
480 #=(D=45)*700
490 #=(D=46)*750
500 #=(D=44)*800
510 #=(D=91)*850
520 #=(D=93)*900
530 #=420

550 (>)
560 P=P+1
570 #=420

600 (<)
610 P=P-1
620 #=420

650 (+)
660 @(P)=@(P)+1
670 #=420

700 (-)
710 @(P)=@(P)-1
720 #=420

750 (.)
760 %=@(P)
770 >=59
780 #=420

800 (,)
810 >=62
820 @(P)=%
830 #=420

850 ([)
860 #=@(P)=0*1100
870 #=420

900 (])
910 #=@(P)>0*1000
920 #=420

1000 (SEARAH [)
1010 S=!
1020 C=0
1030 Q=Q-1
1040 #=1200
1050 #=(D=91)*(C=0)*1080
1060 C=C+(D=93)-(D=91)
1070 #=1030
1080 #=S

1100 (SEARCH ])
1110 S=!
1120 C=0
1130 Q=Q+1
1140 #=1200
1150 #=(D=93)*(C=0)*1180
1160 C=C+(D=91)-(D=93)
1170 #=1130
1180 #=S

1200 (READ 1BYTE)
1210 T=@(Q/2+1024)
1220 U=%
1230 D=T/256*(U=0)+(%*U)
1240 #=!

9999 [Brainfuck Program]
10000 +[,+.]