pro wdeleteall

    while !d.window ge 0 do wdelete
        
end