10 sub proc()
20   print " Inside loop"
30 end sub
40 sub repeat(func$,times)
50   for i = 1 to times
60     proc()
70   next i
80 end sub
90 repeat("proc",5)
100 print "Loop Ended"
110 end