function loadDir(path)
    files = sys.dir(path)
    if #files > 0 then
        dir = files[1].name:match("(.+)/[^/]+$")
    else
        dir = path
    end
    table.insert(files, 1, { dir=true, name=".." })
    selected = 0
    offset = 0
    lift_height=-1
    lift_top=0
    if #files>23 then
        lift_height=23*161/#files
    end
end

function goBack()
    dir = dir:match("(.+)/[^/]+$")
    loadDir(dir)
end

function mini.init()
    surf.cls(0)
    folder = surf.new(5,4)
    surf.target(folder)
    for i=0,4 do for j=0,3 do surf.pixel(i,j,0) end end
    for i=2,4 do surf.pixel(i,0,255) end
    surf.target(0)
    loadDir(".")
end

function mini.update()

    local mx,my=mouse.pos()

    view.origin(0,0)
    for i=0,15 do
        draw.rectf(i*8, 0, 8, 8, i)
    end
    pal.trans(255)
    view.origin(20, 20)
    draw.rrectf(0,0,280,200,3,15)
    draw.rrectf(4,4,272,9,2,12)
    draw.rrectf(4,17,272,163,2,12)
    if lift_height>0 then draw.rrectf(271,18+lift_top,4,lift_height,2,14) end

    draw.rrectf(192,185,40,11,2,9)
    draw.rrectf(192,184,40,11,2,10)
    draw.text("OK",209,187,9)

    draw.rrectf(236,185,40,11,2,1)
    draw.rrectf(236,184,40,11,2,2)
    draw.text("CANCEL",245,187,1)

    local y = 19
    draw.text(dir, 6, 6, 0)

    surf.source(folder)

--    if mx>4 and mx<268 and my>=y-1 and my<y+6 then
--        draw.rectf(4,y-1,272,7,13)
--        if mouse.dblclick() then
--            goBack();
--        end
--    end
--    draw.surf(0,0,5,4,7,y+1,5,4)
--    pal.subpal(0,3)
--    draw.surf(0,0,5,4,6,y,5,4)
--    pal.subpal(0)
--    draw.text("..", 13, y, 0) y=y+7
    local count = 0
    for k,file in ipairs(files) do
        local filename = file.name:match("([^/]+)$")
        if count < offset then goto continue end
        --if v:match("%.gif$") then
        if mx>4 and mx<268 and my>=y-1 and my<y+6 then
            draw.rectf(4,y-1,272,7,13)
            if mouse.dblclick() then
                if file.dir then
                    if k==1 then
                        goBack()
                    else
                        loadDir(dir.."/"..filename)
                    end
                else
                    --selected = k
                end
            elseif mouse.press(mouse.LEFT) then
                selected = k
            end
        end
        
        if selected == k then
            draw.rectf(4,y-1,272,7,10)
        end

        if file.dir then
            draw.surf(0,0,5,4,7,y+1,5,4)
            pal.subpal(0,3)
            draw.surf(0,0,5,4,6,y,5,4)
            pal.subpal(0)
            draw.text(filename, 13, y, 0)
        else
            draw.text(filename, 6, y, 0)
        end
        y=y+7
        ::continue::
        count=count+1
        if count-offset>=23 then break end
    end

    if key.press(key.RETURN) and selected~=-1 then
        if files[selected].dir then
            local filename = files[selected].name:match("([^/]+)$")
            loadDir(dir.."/"..filename)
        else
            -- do nothing for now
        end
    elseif key.press(key.DOWN) and selected<#files then
        selected=selected+1
    elseif key.press(key.UP) then
        if selected>1 then
            selected=selected-1
        else
            selected = 1
        end
    end

    local scroll = -mouse.wheel()
    if scroll~=0 then
        offset=offset+scroll
        if offset<0 then offset=0 end
        if offset+23 > #files then offset = #files-23 end
        lift_top=offset*161/#files
    end

end