BrainFuck 作ってみますた。バグあるっぽいけど。

D=winx:E=winy/2:K=$8000:sdim A,K:sdim B,K:dim I,256:objmode 1:mesbox A,D,E-10,5
objsize D,20:button"Go",*C:mesbox B,D,E-10,4:title"BF":stop:*C:F=0:H=0:L=0:M=0
sdim B,K:sdim G,K:J=-1:N=0:repeat:peek O,A,H:H++:peek P,G,L:if(O=0)|(N!0){break
}if O=93{M--:if M<0{N=1}if J!M{if P{H=I.M}}else{J=-1}}if O=46{poke B,F,P:F++
objprm 2,B}if O=91{I.M=H-1:if(J<0)&(P=0){J=M}M++:if M=256{N=2}}if(O=62)|(O=60){
L+=O-61:if(L<0)|(L>(K-1)){N=3}}if(O=43)|(O=45){P-=O-44:if(P<0)|(P>255){N=4}
poke G,L,P}if O=44{poke B,F,95:objprm 2,B:repeat:Q=-1:repeat 240:getkey R,cnt
if R{Q=cnt:break}loop:if Q<0{poke G,L,Q}wait 1:loop:poke B,F,0:objprm 2,B}loop
if N {H--:B+="\n\nErr"+N+"-"+H}else{B+="\n\nDone."}objprm 2,B:stop