home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / CODES2.CMD < prev    next >
OS/2 REXX Batch file  |  1992-12-12  |  324b  |  16 lines
  1. /*  Returns numeric codes of Ascii letters */
  2. cls
  3. say " "
  4. say "Enter a letter to see it's numeric code in decimal and hex"
  5. say "Type 'end' to terminate the program"
  6. say " "
  7. do until entry="end"
  8. parse pull entry
  9. a=c2d(entry)
  10. say " "
  11. say entry "= decimal "a 
  12. say " "
  13. b=d2x(a)
  14. say b "in hexadecimal"
  15. say " "
  16. end