13 lines
163 B
Text
13 lines
163 B
Text
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
|