Iterative Checklist

fn iterativeChecklist num =
(
	theString = "rollout roName \"Name v1.0\"\n(\n"
	for i = 1 to num do (theString += ("checkbox cbx"+i as string + " \"test\" across:4\n"))
	theString += ")\n"
	theString+= "createDialog roName width:230 height:120 pos:[10,240]\n"
	theString
)
execute (iterativeChecklist 20)