19 lines
191 B
Text
19 lines
191 B
Text
|
uses console
|
||
|
|
|
||
|
|
sub proc
|
||
|
|
printl " Inside loop"
|
||
|
|
end sub
|
||
|
|
|
||
|
|
macro rep (func, n)
|
||
|
|
int i
|
||
|
|
for i = 1 to n
|
||
|
|
func()
|
||
|
|
next
|
||
|
|
end macro
|
||
|
|
|
||
|
|
rep (proc, 5)
|
||
|
|
printl "Loop Ended"
|
||
|
|
|
||
|
|
printl cr "Enter ..."
|
||
|
|
waitkey
|