include pic/include/standard.inc
include pic/include/print.inc
include pic/include/address.inc
include pic/include/display.inc
include pic/include/ir.inc
include pic/include/sensor.inc

on-white-button [main]

to main
	display-print-string 1 "|     Solvik Gard|
	display-print-string 2 "|  Antenna Controller|
	

	loop
	[
		if ((sensor 1) > 200)
		[
			put-ir 1
			display-clear-line 6
			display-print-string 6 "|Left|
			waituntil [(sensor 1) < 100]
		]
		if ((sensor 2) > 200)
		[
			put-ir 2
			display-clear-line 6
			display-print-string 6 "|                Right|
			waituntil [(sensor 2) < 100]
		]
	]
end