filepath=input("ファイルのフルパスを入力")
if filepath=EMPTY then Exit
if Fopen(filepath,F_exists)=0 then Exit

fid=Fopen(filepath,F_read or F_write)
lines=1
while True
    if Fget(fid,lines)="" then break
    ifb Fget(fid,lines)<>Fget(fid,val(lines)+1)
        lines=val(lines)+1
        Continue
    else
        Fdelline(fid,val(lines)+1)
    endif
    Sleep(0.2)
wend
Fclose(fid)
Sleep(0.2)
MsgBox("done")