24 lines
238 B
Plaintext
24 lines
238 B
Plaintext
//
|
|
// $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 )
|