home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / PROG / REXX / CMD / HEX.CMD < prev    next >
Encoding:
Text File  |  1992-12-15  |  657 b   |  33 lines
  1. /*  Converts between Hex and Decimal */
  2. cls
  3. say " "
  4. say "Enter an 'h' to convert to HEX, 'd' to convert to DECIMAL."
  5. say " "
  6. parse pull decision
  7. x=TRANSLATE(decision)
  8. if x="H" then do
  9. say " "
  10. say "Enter a decimal number to convert to hex."
  11. say "Type '0' (zero) to terminate the program."
  12. say " "
  13. do until entry=0
  14. parse pull entry
  15. a=d2x(entry)
  16. say " "
  17. say entry  "is" a "in hexadecimal."
  18. say " "
  19. end
  20. end
  21. else do
  22. say " "
  23. say "Enter a hex number to convert to decimal."
  24. say "Type '0' (zero) to terminate the program."
  25. say " "
  26. do until entry=0
  27. parse pull entry
  28. a=x2d(entry)
  29. say " "
  30. say entry "is" a "in decimal."
  31. say " "
  32. end
  33. end