lua peripheral testing program

--Computercraft Peripheral Methods testing program by Pegmode/Ghkj2
--Printer goes on top, Test peripheral goes on left
local printer = peripheral.wrap("top")
local x = 1
local y = 1
printer.newPage()
px, py = printer.getPageSize()
--header
if #peripheral.getType("left") > px then
	printer.write(string.sub(peripheral.getType("left"), 1, px))
	for i = 2, #peripheral.getType("left")/px+1 do
		y = y+1
		printer.setCursorPos(1,y)
		printer.write(string.sub(peripheral.getType("left"), px+i, i*px+1))

	end
	else
	printer.write(peripheral.getType("left"))
end
y = y+2
--write main body
for k,v in pairs(peripheral.getMethods("left")) do
	printer.setCursorPos(x, y)
	printer.write(k..' = '..v)
	print(k, '=', v)
	x, y = printer.getCursorPos()
	if y == py then
		printer.setPageTitle("Peripheral Functions list")
		printer.endPage()
		printer.newPage()
		x = 1
		y = 1
		else
		y = y+1
		x = 1
	end
end
printer.endPage()