/* *** data here.  See below for comments.
nbsp/required space/non-break space
iexcl/inverted exclamation/
cent/cent sign/
pound/pound sign/Sterling
curren/currency sign/
yen/yen sign/
brvbar/broken bar/<b>*M</b>
sect/section sign/
uml/umlaut/umlaut or diaeresis
copy/copyright sign/
ordf/feminine ordinal/
laquo/left angle quotes/guillemet L
not/logical not sign/
shy/soft hyphen/(see intro notes)
reg/registered trademark/(this is not "TM"!)
macr/spacing macron/overbar
deg/degree sign/
plusmn/plus-minus sign
sup2/superscript 2/<b>*M</b>
sup3/superscript 3/<b>*M</b>
acute/spacing acute/
micro/micro sign/
para/pilcrow/paragraph sign
middot/middle dot/
cedil/spacing cedilla/
sup1/superscript 1/<b>*M</b>
ordm/masculine ordinal/
raquo/right angle quotes/guillemet R
frac14/one quarter/<b>*M</b>
frac12/one half/<b>*M</b>
frac34/three quarters/<b>*M</b>
iquest/inverted question mark/
Agrave/A grave/
Aacute/A acute/
Acirc/A circumflex/
Atilde/A tilde/
Auml/A diaeresis/
Aring/A ring/
AElig/AE ligature/
Ccedil/C cedilla/
Egrave/E grave/
Eacute/E acute/
Ecirc/E circumflex/
Euml/E diaeresis/
Igrave/I grave/
Iacute/I acute/
Icirc/I circumflex/
Iuml/I diaeresis/
ETH/ETH/<b>*M</b>
Ntilde/N tilde/
Ograve/O grave/
Oacute/O acute/
Ocirc/O circumflex/
Otilde/O tilde/
Ouml/O diaeresis/
times/multiplication sign/<b>*M</b>
Oslash/O slash/
Ugrave/U grave/
Uacute/U acute/
Ucirc/U circumflex/
Uuml/U diaeresis/
Yacute/Y acute/<b>*M</b>
THORN/THORN/<b>*M</b>
szlig/sharp s/
agrave/a grave/
aacute/a acute/
acirc/a circumflex/
atilde/a tilde/
auml/a diaeresis/
aring/a ring/
aelig/ae ligature/
ccedil/c cedilla/
egrave/e grave/
eacute/e acute/
ecirc/e circumflex/
euml/e diaeresis/
igrave/i grave/
iacute/i acute/
icirc/i circumflex
iuml/i diaeresis/
eth/eth/<b>*M</b>
ntilde/n tilde/
ograve/o grave/
oacute/o acute/
ocirc/o circumflex/
otilde/o tilde/
ouml/o diaeresis/
divide/division sign/
oslash/o slash/
ugrave/u grave/
uacute/u acute/
ucirc/u circumflex/
uuml/u diaeresis/
yacute/y acute/<b>*M</b>
thorn/thorn/<b>*M</b>
yuml/y diaeresis/
*/
/* End of data.  Comments follow  ***
This is a rexx program to write a table of
ISO8859-1 characters (from 160 to 255, which
is the interesting part).  For convenience,
the data is included within the file.    

Invoking this without an argument will produce an HTML3 TABLE;
invoking it with any non-null argument will produce preformatted text.
Results will be written to standard output (typically will be
redirected to an output file).
*** */

trace o
Parse arg thing .  /* non null argument means we want <pre> */

Parse source . . infile .  /* get our own file name */

say '<p align=center><b>This table lists the iso8859-1 character code,<br>'
say 'and illustrates how your own browser displays it.</b></p>'
say '<p>Only the positions 160 and above are shown; below 128, the<br>'
say 'well-known US-ASCII code applies, and 128-159 are "reserved".</p>'

line = linein(infile)  /* ignore first line */

If thing = '' then do
  say '<table border>'
  say '<tr align=center><th> 1 <th> 2 <th> 3 <th> 4 <th> 5 <th> 6 <th>'||,
        ' 7 <th> 8 <th> 9 <br>' 
  say '<tr align=center><th> hex <th> dec <th> oct <th> entity <th>'||,
              ' description '||,
      '<th> 8-bit char <th> &amp;#num; <th> &amp;entity; <th> comment <br>'
  end
Else do
  say '<pre>' 
  say ' 1   2   3    4             5            6    7    8               9'
  say 'hex dec oct entity      description     char &amp;#n; &amp;entity;      comment'
  say ' '
  end

do i = 160 to 255

  line = linein(infile)
  Parse var line entity '/' descrip '/' comment

  If entity = '*' then leave   /* we have reached the end */

  ent = entity
  if ent <> '' Then ent = '&'ent';'

If thing = '' then ,
  say '<tr align=center><td> 'd2x(i)' <td> 'i' <td> 'd2o(i)' <td> 'entity||,
   ' <td> 'descrip' <td> 'd2c(i)' <td> &#'i'; <td> 'ent' <td> 'comment' <br>'

else ,
  say ' 'd2x(i) i d2o(i)||center(entity,8)||center(descrip,22)||,
      d2c(i) '   &#'i';    'ent'   'center(comment,19)
end

If thing='' then say '</table>'

else say '</pre>'

say '<p><hr><p>'
say '<a href="./">Up - to topic contents</a>'
say '<p><hr>'


Exit 0

d2o: procedure
parse arg n .
s = ''
do until n=0
 s = (n//8)||s
 n = n%8
end
return s