home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / TESTCASE < prev    next >
Text File  |  1985-08-08  |  512b  |  22 lines

  1. PROGRAM TESTCASE; {use this to test that case indexes out of range are caught}
  2. VAR
  3.     CI:INTEGER;
  4.  
  5. BEGIN
  6.   REPEAT
  7.     WRITE('enter a label: ');
  8.     READLN(CI);
  9.     CASE CI OF
  10.       0: WRITELN('0');
  11.       1: WRITELN('1');
  12.       2: WRITELN('2');
  13.       3: WRITELN('3');
  14.  
  15.       7: WRITELN('7');
  16.       8: WRITELN('8');
  17.       9: WRITELN('9');
  18.       10: WRITELN('10');
  19.      END;
  20.    UNTIL CI = 99;
  21.  END.
  22.