'Append File with Date Header / ver. 0.80 / by Kabuneko 2000/04/14

proc main
    dim i, d$, t$, s$, f$
    if @Select > 0 then         '選択されていれば現在時刻
        d$ = date0$
        d$ = left$(d$, 4) + "/" + mid$(d$, 6, 2) + "/" + right$(d$, 2)
        t$ = left$(time0$, 5)
        s$ = "==" + @Filename$ + " (" + d$ + " " + t$ + ")" + "========"
    else                        '選択でなければファイルのタイムスタンプ
        t$ = filedatetime$(@Pathname$)
        do while 1
            i = instr(t$, " ")
            if i = 0 then exit do
            if i >= 9 then exit do
            t$ = left$(t$, i-1) + "0" + mid$(t$, i + 1)
        loop
        s$ = "==" + @Filename$ + " (20" + left$(t$, 14) + ")" + "========"
    end if
    f$ = getfilename$("", @Filename$, "追加されるファイルを選択")
    if f$ = "" then exit proc
    open f$ for append as #1
    print #1, s$
    close #1
    call @Append(f$)            'QX の @Append は選択あればその部分のみ
    print f$ + " に追加しました"
end proc