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