RosettaCodeData/Task/Repeat/BASIC256/repeat.basic

13 lines
184 B
Text
Raw Permalink Normal View History

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