home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / JSAGE / ZSUS / PROGPACK / NZ-TURBO.LBR / EVAL.FUN < prev    next >
Text File  |  2000-06-30  |  256b  |  14 lines

  1. Function EVAL(RAD:Integer; NUM:strng):Real;
  2. Const T = '0123456789ABCDEF';
  3. Var   N : Real;
  4. Begin
  5.   n := 0;
  6.   While Length(num) <> 0 do
  7.     Begin
  8.       n := n * rad + Pos(num[1],t)-1;
  9.       Delete(num,1,1)
  10.     End;
  11.   eval := n;
  12. End;
  13.  
  14.