Caixa de Texto

mt, s, t= setmetatable, "", {'Robonado', false}; -- string_Texto, {string_Usuario, boolean_Capslock};
f= mt({
       [8]=function(x) return x:sub(1,#x-1) end,[9]=function(x) return s..'\n' end,[16]= function(x) t[2]= not t[2] return s end},
      {__index= function(a,i,v) return function(str) return s..string[t[2] and 'upper' or 'lower'](tostring(i):char()) end end});

main= table.foreach(f, function(id) system.bindKeyboard(t[1],id,true,true) end) or system.bindKeyboard(t[1],32,true,true);

for keys = 65, 90 do
    tfm.exec.bindKeyboard(t[1],keys,true,true)
end

function eventKeyboard(p,id)                                      -- Shift (Capslock), Tab (Quebra de linha), Backspace (Backspace) --
    s= f[id](s);
    ui.addTextArea(0, s, nil, 50, 50, 300)
end