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