Files
harbour-core/tests/t1.prg
vszakats a4a357a18b 2013-03-15 11:12 UTC+0100 Viktor Szakats (harbour syenar.net)
* /harbour/* -> /*
    * moved whole Harbour source tree one level up to
      avoid single 'harbour' top dir
2013-03-15 11:13:30 +01:00

19 lines
182 B
Plaintext

/*
* $Id$
*/
// while loop test
PROCEDURE Main()
LOCAL i := 0
LOCAL cb := {|| QOut( "test" ) }
WHILE i < 1000
? i
Eval( cb )
i++
ENDDO
RETURN