home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / HEX.PRG < prev    next >
Text File  |  1990-10-22  |  520b  |  22 lines
  1. ***********
  2. * HEX.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO HEX WITH <expN> 
  7. * RETURN: <expC> hexadecimal value of <expN>
  8. *         4-byte string if -32768 <= <expN> <= 65535
  9. *         8-byte string otherwise
  10. ***********
  11. PARAMETERS par1 
  12. CALL Trpass  WITH par1
  13. CALL Trexe   WITH "HEX"
  14. CALL Trexe   WITH "TRRETCLEN"
  15. IF fox
  16.    PRIVATE tr_temp
  17.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  18.    RETURN (tr_temp)
  19. ENDIF
  20. * eof hex *
  21.  
  22.