PROGRAM	"Repeat"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()
DECLARE FUNCTION  Proc ()
DECLARE FUNCTION  Repe (func$, c)

FUNCTION  Entry ()
    Repe ("proc", 5)
PRINT "Loop Ended"

END FUNCTION

FUNCTION Proc ()
    PRINT " Inside loop"
END FUNCTION

FUNCTION  Repe (func$, c)
    FOR i = 1 TO c
        Proc ()
    NEXT i
END FUNCTION
END PROGRAM