proc Tab
if @hwnd=0 then exit proc
if @StyleNo=1 then
@@JumpMacro(@@MacroDirectory$+"\TReturn.mac,C_Return")
elseif @StyleNo=3 then
@UndoBlock=1
@Redraw=0
@MoveLeftChar
dim r
r=@Code
@MoveRightChar
dim x
x=@BytePosCr
if r<>9 and r<>32 and r<>-224 then @CharCompletionMacro
doevents
if @BytePosCr=x then @CharTab
@UndoBlock=0
else
@UndoBlock=1
if @Select then @BlockDelete
@CharTab
@UndoBlock=0
end if
end proc