********    ********
*  -      
MessageBox(DTOC(date())+time()+;
",   :"+chr(10)+chr(13)+;
Sread("Proc.txt"))

Public nTime
nTime=3
MessageBox(" ")
***   IF_ENDIF
IF .t. &&  
  MessageBox(" ")  
ELSE
  MessageBox(" ")    
ENDIF
//  ..   

*   DO While
Do while .t.
  MessageBox("  : "+str(nTime))
  nTime=nTime-1
    if nTime == 0
       exit
    endif
Enddo

*  
nTime=createobject("form")
nTime.Caption="  "
nTime.windowtype=1
nTime.Show

Release nTime
MessageBox(" ")
*   -    (     BREAK)
   
