RosettaCodeData/Task/Repeat/BASIC256/repeat.basic

subroutine proc()
	print " Inside loop"
end subroutine

subroutine repeat(func, times)
	for i = 1 to times
		call proc()
	next
end subroutine

call repeat("proc", 5)
print "Loop Ended