34 lines
433 B
Plaintext
34 lines
433 B
Plaintext
// Testing Harbour For Next loops
|
|
|
|
function Main()
|
|
|
|
local n := 1
|
|
|
|
QOut( "Testing Harbour For Next loops. Going up quick" )
|
|
|
|
for n:=1 to 10 step 4
|
|
QOut( n )
|
|
next n
|
|
|
|
QOut( "Going down" )
|
|
|
|
for n:=10 to 1 step -1
|
|
QOut( n )
|
|
next n
|
|
|
|
QOut( "No step" )
|
|
|
|
for n:=1 to 10
|
|
QOut( n )
|
|
next n
|
|
|
|
QOut( "No production" )
|
|
|
|
for n:=1 to 10 step -1
|
|
QOut( n )
|
|
next n
|
|
|
|
QOut( "Ok!" )
|
|
|
|
return nil
|