home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / Examples / examples.zoo / ascii.rexx next >
Encoding:
OS/2 REXX Batch file  |  1991-11-01  |  206 b   |  11 lines
  1. /* */
  2.  
  3. call open(out,"ram:out",'w')
  4. do i = 0 to 256
  5.     dec = right(i,3,'0')
  6.     hex = "'"right(d2x(i),3,0)"'x"
  7.     oct = "'"right(d2o(i),3,0)"'o"
  8.     char = "'"d2c(i)"'"
  9.     call writeln(out,dec'    'hex'    'oct'    'char)
  10.     end
  11.