/*
 * $Id$
 */

// quick exit test

PROCEDURE Main()

   LOCAL x := 0

   DO WHILE x < 10
      ++ x
      IF x == 5
         EXIT
      ENDIF
   ENDDO

   QOut( "do exit test", iif( x == 5, "passed", "fail" ) )

   FOR x := 1 TO 10
      IF x == 5
         EXIT
      ENDIF
   NEXT

   QOut( "for exit test", iif( x == 5, "passed", "fail" ) )

   RETURN