memorytest.lua

local str = ""

local gpu = component.list("gpu")()
local screen = component.list("screen")()
component.invoke(gpu, "bind", screen)
local comp = computer
do
  local w,h = component.invoke(gpu, "getResolution")
  component.invoke(gpu, "fill", 1, 1, w, h, " ")
end
gpu = component.proxy(gpu)

function update()
  local free = comp.freeMemory()
  gpu.set(1, 1, "Memory used: " ..  (comp.totalMemory()-free).."                   ")
  gpu.set(1,2 ,"Memory free: " .. free.."            ")
  gpu.set(1,3,"Total: " .. #str .. "         ")
end
update()

while true do
  if comp.freeMemory() < 10 then
    gpu.set(1, 5, "Memory low! " ..comp.freeMemory())
    while comp.pullSignal() ~= "key_up" do end
    gpu.set(1, 5, "                                            ")
  end
  str = str .. "A"
  if (#str % 100) == 0 then
    update()
    comp.pullSignal(0.05)
  end
end