home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume2 / pstrings / part01 / neS.p < prev    next >
Encoding:
Text File  |  1991-08-07  |  146 b   |  14 lines
  1.  
  2.  
  3.  
  4.  
  5. # include "strings.h"
  6.  
  7. function neS{(left,right: String):Boolean};
  8. {
  9. * left <> right
  10. }
  11. begin
  12.     neS := compare(left, right) <> eq
  13. end{ -- neS};
  14.