textfeld in bb?
Guestdank.
Type tex Field v$ Field e Field p End Type SetBuffer BackBuffer() Repeat Cls value=GetKey() If value<>0 And value<>27 Then val$=Chr$(value) tex.tex=New tex tex\v$=Chr$(value) tex\e=0 b=b+10 tex\p=b EndIf If KeyHit(29) Then For tex.tex=Each tex If b=tex\p Then tex\e=1 Delete tex b=b-10 Next EndIf For tex.tex=Each tex If tex\e=0 Then Text tex\p,0,""+tex\v$+"" Next Flip Until KeyHit(1)