home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / wb / picticon / source / mod / compare.e < prev    next >
Encoding:
Text File  |  1995-06-08  |  198 b   |  10 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC bigger(a,max) IS IF (a<max) THEN max ELSE a
  5. PROC smaller(a,min) IS IF (a>min) THEN min ELSE a
  6. PROC limit(a,min,max)
  7.     IF a<min THEN a:=min
  8.     IF a>max THEN a:=max
  9. ENDPROC a
  10.