'カーソルのある proc を実行 / Ver. 0.80 / by Kabuneko 99/11/24

proc main
    dim n, x, t, s$
    'マクロファイルでなければ中止
    if lcase$(right$(@Filename$, 4)) <> ".mac" then
        call msgbox("マクロファイルではありません")
        exit proc
    end if
    n = @Line : x = @XDisplay : t = @TopLine
    s$ = @Text$(@Line)       'カーソル行の内容を取得
    'カーソル位置に proc があればＯＫ・なければ上に検索する
    if left$(s$, 4) <> "proc" then
        @FindStringTop "^proc"
        if @@SearchFound = 0 then
            call msgbox("プロシージャがありません")
            exit proc
        end if
    end if
    'プロシージャ名を取得
    @MoveBeginningLine
    @MoveRightWord
    s$ = @GetCursorWord$
    @TopLine = t : @Line = n :@XDisplay = x
    @@JumpMacro @Pathname$ + "," + s$
end proc