        print *,'Error in coding number.'
       endif
    else
       print *,'Error in decoding number.'
    endif
 enddo INFINITE

 end program demo_decodebase
</pre><h2><a class="anchor" id="autotoc_md112"></a>
AUTHOR</h2>
<p>John S. Urban</p>
<p>Ref.: "Math matiques en Turbo-Pascal by M. Ducamp and A. Reverchon (2), Eyrolles, Paris, 1988".</p>
<p>based on a F90 Version By J-P Moreau (www.jpmoreau.fr)</p>
<h2><a class="anchor" id="autotoc_md113"></a>
LICENSE</h2>
<p>Public Domain </p>

<p class="referen