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 >
Wrap
Text File
|
2000-06-30
|
256b
|
14 lines
Function EVAL(RAD:Integer; NUM:strng):Real;
Const T = '0123456789ABCDEF';
Var N : Real;
Begin
n := 0;
While Length(num) <> 0 do
Begin
n := n * rad + Pos(num[1],t)-1;
Delete(num,1,1)
End;
eval := n;
End;