Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

  ◄Example► ◄Contents► ◄Index►                                    ◄Back►
 
PROGRAM qcase;
 
{ QCASE.PAS : Demonstrates CASE statement. }
 
VAR
    my_val : Integer;
 
BEGIN
 
    my_val := 33;
 
    CASE my_val OF
        10 : Writeln( 'Ten' );
        20 : Writeln( 'Twenty' )
        ELSE
            Writeln( 'Not ten or twenty' );
        END;
 
END.