24 lines
231 B
Plaintext
24 lines
231 B
Plaintext
// Testing Harbour For Next loops
|
|
|
|
function Main()
|
|
|
|
local n
|
|
|
|
for n = 1 to Limit() Step Step()
|
|
QOut( n )
|
|
next
|
|
|
|
return nil
|
|
|
|
function Limit()
|
|
|
|
QOut( "Limit" )
|
|
|
|
return 10
|
|
|
|
function Step()
|
|
|
|
QOut( "Step" )
|
|
|
|
return 2
|