format(25) // so werden einige Stellen hinter der 18. ausgegeben

function y=bin(x_in)
c="."
x=abs(x_in)
a=x-fix(x)
if (a>0)
b=0

for i=-1:-1:-52
if (b+2^i)<=a  
 b=b+2^i
 c=c+"1" 
else c=c+"0"
end
end
end
a=fix(x)
d=""
l=0; // exist. insertierte Stelle?
if (a>0)
b=0
for i=52:-1:0
if (b+2^i<=a)  
 b=b+2^i
 d=d+"1"
 if (l==0) 
   l=1
 end
else 
 if (l>0) d=d+"0";end // 0 insertieren, wenn führende 1 gesetzt
end
end
end
if (x_in<0) s='-'; else s='+'; end
disp (x_in)
format(18)
disp(x_in)
format(25)
y=s+d+c
endfunction;