Win_Clear()
Message("

F12  Zeichenweises Suchen 
-------------------------

 Sucht ab Cursorposition einen zeichenweise einzugebenen String.
 Dabei wird sofort nach Eingabe eines Zeichens weitergesucht.

 Tasten: ESC       : Abbruch
         RETURN    : fertig
         BACKSPACE : 1 Zeichen zurck l”schen


")

getkey("Bitte eine Taste drcken ...")

Key_Add("F12",' [VISUAL EXIT] #98=BN #99=CP BS(33) BY(OK) #96=WF WSPL(#96,1,BOTTOM+ATTACH) repeat (ALL){BS(33) #9=GK("") #2=FSIZE if (#9==21317){BS(#98) GP(#99) Break} if (#9==21314){ if (#2>0){DC(-1) U BS(#98) C(-1) U} Continue} if (#9==21586){Break} IC(#9) U #2=FSIZE RCB(10,0,#2) BS(#98) C(-#2+1) S("|@(10)",NOERR+ADVANCE) if (EM){C(#2-1) Sound(400,100) BS(33) DC(-1) U BS(#98)} U} WDEL(#96) BS(#98)',OK)