home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / MENU.ZIP / ARRAYFUN.CH next >
Encoding:
Text File  |  1990-05-15  |  244 b   |  8 lines
  1. // ACOMP( aArray, bCompare, [nStart], [nStop] ) ---> uElement
  2.  
  3. //....Sample Blocks for comparisons
  4. #define acMAX {|x,y| x > y}
  5. #define acMIN {|x,y| x < y}
  6. #define acMAXLEN {|x,y| len(x) > len(y)}
  7. #define acMINLEN {|x,y| len(x) < len(y)}
  8.