RosettaCodeData/Task/Repeat/BASIC256/repeat.basic
2023-07-01 13:44:08 -04:00

12 lines
184 B
Text

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