Control Structures – Decision making; IF..ENDIF

/*

Control Structures - Decision making; IF..ENDIF

For more information refer here 

*/

PROCEDURE Main()
   CLS

   DO WHILE .T.
      ACCEPT "Enter first number : " TO cString1
      ACCEPT "Enter second Number : " TO cString2
      nNumber1 := VAL( cString1 )
      nNumber2 := VAL( cString2 ) 
      IF nNumber1 = 0 .AND. nNumber2 = 0
         EXIT
      ELSE 
         IF nNumber1 > nNumber2 
            ? nNumber1, "is greater than", nNumber2 
         ELSEIF nNumber1 < nNumber2 
            ? nNumber1, "is less than", nNumber2 
         ELSE
            ? nNumber1, "is equal to", nNumber2 
         ENDIF
         ?
      ENDIF
   ENDDO

RETURN // Main()