home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / XOR.PRG < prev   
Text File  |  1990-10-22  |  445b  |  17 lines
  1. ***********
  2. * XOR.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO XOR <expL1>, <expL2> 
  7. * RETURN: <expL> exclusive OR of two logical expressions.
  8. * NOTE  : Taken from "THE ADVANCED PROGRAMMER'S GUIDE" page 219.
  9. ***********
  10. PARAMETERS par1, par2 
  11. tr_retl = (( par1 .OR. par2 ) .AND. .NOT. ( par1 .AND. par2 ))
  12. IF fox
  13.    RETURN (tr_retl)
  14. ENDIF
  15. * eof xor *
  16.  
  17.