home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / HUFF.ZIP / SAMPLE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-23  |  532 b   |  19 lines
  1.             /**** SAMPLE.C    C Code ****/
  2.  
  3. #include "nandef.h"     /* Clipper header files */
  4. #include "extend.h"
  5. #include "extor.h"
  6.  
  7. /* C Code to demonstrate Clipper's Extend System */
  8.  
  9. CLIPPER Addit()
  10. /*--------------------------------------------------------*/
  11. {    /* test if the params are all there and are integers */
  12.  
  13. if(PCOUNT == 2 && ISNUM(1) && ISNUM(2))
  14.     _retni(_parni(1) + _parni(2));      /* return the sum */
  15. else
  16.     _retni(0);        /* bombed out..failed..flunked..dud */
  17. }
  18. /** EOF Addit **/
  19.