to startup
ht
loop [
	repeat 1[print sensor0 wait 100]
	changering	
]
end   

to changering
ifelse sensor0 = 0 [setc red] [setc green fd 1 ]
end