Examples

    CASE CH OF
        ' ',TAB :  WRITELN( 'Found a space' );
        '0'..'9':  WRITELN( 'Found a digit' );
        'A'..'Z':  WRITELN( 'Found a capital letter' );
        OTHERWISE
                   WRITELN( 'Illegal character' );
    END;        


 At run time, the system evaluates the  case  selector  'CH'  and
 executes  the  corresponding statement.  If the value of 'CH' is
 not equal to ' ', '0'..'9' or 'A'..'Z',  the  statement  in  the
 'OTHERWISE' clause is executed.