; for Lab 2

to tdir
  a, on
  waituntil [newir?]
  if ir = 6 [off wait 20 rd a, on]
  if ir = 7 [off stop]
  tdir
end