function clearplayfield()

        for x = 0x6, 0x8, 2 do
            for y = 0x02, 0x0B do
                memory.writebyte(0xC800 + (x * 0x10) + y, 0x2F);
            end;
        end;


    end;




    piecevalues = {
        [0x00]  = "L",
        [0x04]  = "J",
        [0x08]  = "I",
        [0x0C]  = "O",
        [0x10]  = "Z",
        [0x14]  = "S",
        [0x18]  = "T",
    };

    pieces      = {};

    for k,v in pairs(piecevalues) do
        pieces[k]   = 0;
    end;

    sum             = 0;

    print("butt");

    donepiece   = true;

    while true do

        if not donepiece and memory.readbyte(0xC201) == 0x18 then
            clearplayfield();
            local curpiece      = memory.readbyte(0xC203);
            donepiece           = true;
            pieces[curpiece]    = pieces[curpiece] + 1;
            sum                 = sum + 1;

        elseif donepiece and memory.readbyte(0xC201) ~= 0x18 then
            donepiece   = false;
        end;

        local temp  = 0;

        inpt    = input.get();
        if inpt['X'] then

            gui.box(96, 0, 159, 144, 0x000000af, 0x000000ff);
            for k,v in pairs(piecevalues) do
                gui.text(100, temp * 7, string.format("%s %6d %5.2f%%", v, pieces[k], pieces[k] / sum * 100));
                temp    = temp + 1;
            end;
            temp        = temp + 1;
        end;

            gui.text(100, temp * 7, string.format("%8d", sum));

        emu.frameadvance();
    end;