Hi Rex

I am sorry to send an uncomplete programm extract, here is the right one.
In CP there is no error message, however ETH Oberon do not accept double 
range in the same branch. (err.: case label defined more than once)

Look in Chris Burrows`s answer on Sunday, 19 December 2010 1:57 AM.

Kind regards
Werner Bossert

MODULE UnicodeCase_MappingExtPart;

   PROCEDURE Lower* (ch: INTEGER): INTEGER;
   BEGIN
     CASE ch OF
     |    41H..5AH, 0C0H..0D6H, 0D8H..0DEH:  ch := ch + 20H

     (* Greek Extended *)

     |  1F08H..1F0FH, 1F18H..1F1DH,
        1F28H..1F2FH, 1F38H..1F3FH,
        1F48H..1F4DH,
        1F59H, 1F5BH, 1F5DH, 1F5FH,
        1F68H..1F6FH, 1F88H..1F8FH, 1FB8H..1FB9H,
        1F98H..1F9FH, 1FA8H..1FAFH,
        1FB8H..1FB9H:  ch := ch - 8H

     ELSE
     END;
     RETURN ch
   END Lower;

END UnicodeCase_MappingExtPart.

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV@LISTS.OBERON.C