10 (PROGRAM13)
20 "Brainfuck"
30 #=2000

100 (READ 1BYTE)
110 T=@(R+1024)
120 D=T/256*(K=0)+(%*K)
130 #=!

200 (SEARAH [)
210 S=!
220 C=0
230 K=(K=0)
235 R=R-(K=1)
240 #=100
250 #=(D=91)*(C=0)*280
260 C=C+(D=93)-(D=91)
270 #=230
280 #=S

300 (SEARCH ])
310 S=!
320 C=0
330 K=(K=0)
335 R=R+(K=0)
340 #=100
350 #=(D=93)*(C=0)*380
360 C=C+(D=91)-(D=93)
370 #=330
380 #=S

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

420 K=(K=0)
425 R=R+(K=0)
430 #=(R*2+K)=&*60000
440 #=100
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*300
870 #=420

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

2000 (INIT DATA)
2120 "INIT DATA..."
2130 P=0
2140 @(P)=0
2150 P=P+1
2160 #=(P<512)*2140
2170 P=0

2200 (SEARCH PRG TOP)
2210 "SEARCH PRG..."
2220 R=750
2225 K=0

2230 K=(K=0)
2235 R=R+(K=0)
2240 #=100
2250 #=(D=57)*2270
2260 #=2230

2270 K=(K=0)
2275 R=R+(K=0)
2280 #=100
2290 #=(D=57)*2310
2300 #=2230

2310 K=(K=0)
2315 R=R+(K=0)
2320 #=100
2330 #=(D=57)*2350
2340 #=2230

2350 K=(K=0)
2355 R=R+(K=0)
2360 #=100
2370 #=(D=57)*400
2380 #=2230

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