VAP

globals [remain]
turtles-own  [compare]

to setup
  clear-all
  create-turtles 15 [
    setxy random-xcor random-ycor
    set shape "person"
    set color yellow
  ]

  set remain Census - Bundle

  reset-ticks
end 

to go
  ask turtles [
    infect
  ]
  tick
end 

to infect
  if remain > 0 [
    set compare random-float 1
    if rate > compare [
      set color red
      set remain remain - 1
    ]
  ]
end