CERROR( ) example

The following program segment uses CERROR( ) in a DO WHILE loop to make the user edit the program until it compiles successfully:

DO WHILE .T.
 Clear
 MODIFY COMMAND USER.PRG
 ON ERROR ? ERROR(), MESSAGE(), CERROR()
 COMPILE USER.PRG
 IF CERROR( )>0
    ?
    WAIT "Your program didn't compile. Press a key to edit your .PRG."
    LOOP
 ELSE
    EXIT
 ENDIF
ENDDO