'タグ情報コピー / Ver. 0.80 / by Kabuneko 99/09/24

proc main
    'パスにスペースが含まれているときは " でくくる
    if instr(@Pathname$, " ") > 0 then
        clipboard$ = """" + @PathName$ + """ (" + \
        ltrim$(str$(@ScrLineToCrLine(@Line))) + ")"
    'そうでなければ " は不要
    else
        clipboard$ = @PathName$ + " (" + \
        ltrim$(str$(@ScrLineToCrLine(@Line))) + ")"
    end if
end proc