RosettaCodeData/Task/Repeat/True-BASIC/repeat.basic

SUB proc
    PRINT " Inside loop"
END SUB

SUB rep (func$, c)
    FOR i = 1 to c
        CALL proc
    NEXT i
END SUB

CALL rep ("proc", 5)
PRINT "Loop Ended"
END