zOs/REXX.O08/CHARSET
do i=0 by 16 to 240
m = "'x" c2x(d2c(i)) "-" c2x(d2c(i+15)) "= "
do j=i to i+15
if d2c(j) == "'" then
m = m"''"
else
m = m || d2c(j)
end
$ m"'"
end
$***out 20080522 17:54:35
'x 00 - 0F =
'
'x 10 - 1F =
'
'x 20 - 2F = '
'x 30 - 3F = '
'x 40 - 4F = [.<(+|'
'x 50 - 5F = &]$*);^'
'x 60 - 6F = -/!,%_>?'
'x 70 - 7F = `:#@''="'
'x 80 - 8F = abcdefghi'
'x 90 - 9F = jklmnopqrƤ'
'x A0 - AF = ~stuvwxyz[ޮ'
'x B0 - BF = !]'
'x C0 - CF = {ABCDEFGHI'
'x D0 - DF = }JKLMNOPQR'
'x E0 - EF = \STUVWXYZ'
'x F0 - FF = 0123456789ڟ'
$***out 20080522 17:53:20
x 00 - 0F = '
'
x 10 - 1F = '
'
x 20 - 2F = ''
x 30 - 3F = ''
x 40 - 4F = ' [.<(+|'
x 50 - 5F = '&]$*);^'
x 60 - 6F = '-/!,%_>?'
x 70 - 7F = '`:#@''="'
x 80 - 8F = 'abcdefghi'
x 90 - 9F = 'jklmnopqrƤ'
x A0 - AF = '~stuvwxyz[ޮ'
x B0 - BF = '!]'
x C0 - CF = '{ABCDEFGHI'
x D0 - DF = '}JKLMNOPQR'
x E0 - EF = '\STUVWXYZ'
x F0 - FF = '0123456789ڟ'
$***out 20080522 17:51:34