mon = peripheral.wrap("top")
mon.setBackgroundColor(32768)
mon.setTextScale(1)
mon.clear()


function calc_color(color)
    return math.pow(2, color - 1)
end

function msg(gap, line, color, groundb, text)
    mon.setBackgroundColor(calc_color(groundb))
    mon.setCursorPos(gap,line)
    mon.setTextColor(calc_color(color))
    text = mon.write(text)
end

    mon.setBackgroundColor(32768)
    mon.clear()
	msg(02,02,05,16,"Automatic Smeltery")
	msg(02,03,01,16,"~~~~~~~~~~~~~~~~~~")
	msg(02,05,01,16,"1 Iron Ore         ->   2x Iron Inpot")
	msg(02,06,01,16,"1 Gold Ore         ->   2x Gold Ingot")
	msg(02,07,01,16,"1 Tin Ore          ->   2x Tin Ingot")
	msg(02,08,01,16,"1 Copper Ore       ->   2x Copper Ingot")
	msg(02,09,01,16,"1 Ferrous Ore      ->   2x Ferrous Ingot")
	msg(02,10,01,16,"1 Silver Ore       ->   2x Silver Ingot")
	msg(02,11,01,16,"1 Stone Brick      ->   1x Basalt Cobblestone")
	msg(02,12,01,16,"1 Lead Ore         ->   1x Lead Ingot")
	msg(02,13,01,16,"1 Sticky Resin     ->   3x Rubber")
	msg(02,14,01,16,"1 Sand             ->   1x Glas")
	msg(02,15,01,16,"1 Cobblestone      ->   1x Stone")
	msg(02,16,01,16,"1 Clay             ->   1x Brick")