//
// $Id$
//

FUNCTION MAIN

   LOCAL i

   FOR i := 1 TO 10

      qout( i )

      IF i = 4 .AND. .T.
         __Accept("")
         qout(i)
         i := 9
         qout(i)
         __Accept("")
      ENDIF

   NEXT

   RETURN( NIL )
