home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / max.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  158 b   |  8 lines
  1. #!/usr/local/bin/clip
  2. #ì┼æσÆl maximum
  3. #\!- <val> [<val> ...]
  4. for [@*] = 1; [@*] < @!; [@*]++
  5.     if @:('0 + [@*]) > @0; @0 = @:('0 + [@*]); endif
  6. next
  7. @0
  8.