home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPMATH.EXE / LINEAR.EXE / INNER < prev    next >
Encoding:
Text File  |  1987-02-09  |  118 b   |  8 lines
  1. (* Inner product *)
  2.  
  3. DEF Inner AS 
  4.    trans | EACH * END | 
  5.    IF null THEN #0 
  6.    ELSE INSERT + END 
  7.    END;
  8.