23 lines
350 B
Text
23 lines
350 B
Text
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
|