home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Guide / set-use.e < prev    next >
Encoding:
Text File  |  1994-12-13  |  421 b   |  25 lines
  1. MODULE '*set'
  2.  
  3. PROC main() HANDLE
  4.   DEF s=NIL:PTR TO set
  5.   NEW s.create(20)
  6.   s.add(1)
  7.   s.add(-13)
  8.   s.add(91)
  9.   s.add(42)
  10.   s.add(-76)
  11.   IF s.member(1) THEN WriteF('1 is a member\n')
  12.   IF s.member(11) THEN WriteF('11 is a member\n')
  13.   WriteF('s = ')
  14.   s.print()
  15.   WriteF('\n')
  16. EXCEPT DO
  17.   END s
  18.   SELECT exception
  19.   CASE "NEW"
  20.     WriteF('Out of memory\n')
  21.   CASE "full"
  22.     WriteF('Set is full\n')
  23.   ENDSELECT
  24. ENDPROC
  25.