proc S_Return
    if Flag()=1 then
        @@JumpMacro "TTeXpop.mac,main"
    else
        @CharReturn
    end if
end proc

proc C_Return
    if Flag()=1 then
        @@JumpMacro "TTeXfill.mac,FillOut"
    elseif Flag()=2 then
        @CharCompletionMacro
    end if
end proc

function Flag()
    if lcase$(right$(@Filename$,4))=".tex" or lcase$(right$(@Filename$,4))=".sty" or lcase$(right$(@Filename$,4))=".cls" then
        Flag=1
    elseif lcase$(right$(@Filename$,4))=".mac" then
        Flag=2
    else
        Flag=0
    end if
end function