15 lines
193 B
Text
15 lines
193 B
Text
|
call cont(10000000)
|
||
|
|
print msec; " milliseconds"
|
||
|
|
|
||
|
|
t0 = msec
|
||
|
|
call cont(10000000)
|
||
|
|
print msec+t0; " milliseconds"
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine cont(n)
|
||
|
|
sum = 0
|
||
|
|
for i = 1 to n
|
||
|
|
sum += 1
|
||
|
|
next i
|
||
|
|
end subroutine
|