CMO = 0 -- Counter Metal Input
CES = 0 -- Counter Empty Smeltery

mouseWidth = 0 -- Create MouseWidth Variable
mouseHeight = 0 -- Create MouseHeight Variable
monitor = peripheral.wrap("monitor_1") -- Wrap monitor_0 monitor to "monitor"

monitor.setBackgroundColour((colors.black)) -- Return to standart color BEFORE clearing the screen
monitor.clear() -- Clear Monitor
monitor.setCursorPos(1,1) -- Set Cursor to Pos 1,1

w,h=monitor.getSize() -- set W to Width of Monitor and H to Height

print(w) -- Print Width
print(h) -- Print Height

monitor.setBackgroundColour((colours.lime)) -- Set monitor Background Color For button creation

monitor.setCursorPos(2,2)
monitor.write(" Iron  ")

monitor.setCursorPos(2,4)
monitor.write(" Invar ")

monitor.setCursorPos(11,2) -- Set Cursor postion to (2,2)
monitor.write(" Empty ") -- (Write what ever needs to be 9 characters.)

monitor.setBackgroundColour((colours.black)) -- Set Background color to black


function checkClickPosition()
  if mouseWidth > 1 and mouseWidth < 9 and mouseHeight == 2 then
    -- button one clicked
	if CMO == 0 then
		shell.run("Iron") -- Run program IE
		monitor.setBackgroundColour((colours.red)) -- Set Background color red
		monitor.setCursorPos(2,2) -- set cursor pos to rewrite IE
		monitor.write(" Iron  ") -- rewrite IE
		CMO = 1
	elseif CMO == 1 then
		shell.run("Stop")
		monitor.setBackgroundColour((colours.lime)) -- Set Background color lime
		monitor.setCursorPos(2,2) -- set cursor pos to rewrite IE
		monitor.write(" Iron  ") -- rewrite IE
		CMO = 0
		end
  elseif mouseWidth > 1 and mouseWidth < 9 and mouseHeight == 4 then

	if CMO == 0 then
		shell.run("Invar") -- Run program IE
		monitor.setBackgroundColour((colours.red)) -- Set Background color red
		monitor.setCursorPos(2,4) -- set cursor pos to rewrite IE
		monitor.write(" Invar ") -- rewrite IE
		CMO = 1
	elseif CMO == 1 then
		shell.run("Stop")
		monitor.setBackgroundColour((colours.lime)) -- Set Background color lime
		monitor.setCursorPos(2,4) -- set cursor pos to rewrite IE
		monitor.write(" Invar ") -- rewrite IE
		CMO = 0
		end


  elseif mouseWidth > 10 and mouseWidth < 18 and mouseHeight == 2 then

		if CES == 0 then
			shell.run("Empty")
			monitor.setBackgroundColour((colours.red))
			monitor.setCursorPos(11,2)
			monitor.write(" Empty ")
			CES = 1
		elseif CES == 1 then
			shell.run("Stop")
			monitor.setBackgroundColour((colours.lime))
			monitor.setCursorPos(11,2)
			monitor.write(" Empty ")
			CES = 0
			end
  end -- ends the if loop
end -- ends the function

repeat


  event,p1,p2,p3 = os.pullEvent() -- Get Event data. event,p1,p2,p3 from os.pullEvent()

   if event=="monitor_touch" then -- Event Mouse_touch (right click monitor)

     mouseWidth = p2 -- sets mouseWidth -- Set Mouse Width to p2
     mouseHeight = p3 -- and mouseHeight -- Set Mouse Height to p3
     checkClickPosition() -- this runs our function -- Runs the pervious CheckClickPosition Function

   end -- End the IF statement

until event=="char" and p1==("x") -- Until the event "char" position 1 is X (aka when X is pressed) the programm will loop