18 lines
191 B
Text
18 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
|