RosettaCodeData/Task/Repeat/Chipmunk-Basic/repeat.basic

12 lines
190 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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