SUBROUTINE IFTEMP( ITEMP) INCLUDE '[RADIX]INTERFACE.COM' ITEMP = TMPRTR * 100 RETURN END