home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug028.ark / CASETWO.ALG < prev    next >
Encoding:
Text File  |  1984-04-29  |  322 b   |  18 lines
  1. BEGIN
  2.  INTEGER TEST;
  3.  WHILE 1=1 DO
  4.    BEGIN
  5.      WRITE( "INPUT AN INTEGER VALUE BETWEEN 0 AND 4");
  6.      READ(TEST);
  7.      CASE TEST OF
  8.        BEGIN
  9.          WRITE("0",TEST);
  10.          WRITE("1",TEST);
  11.          WRITE("2",TEST);
  12.          WRITE("3",TEST);
  13.          WRITE("4",TEST);
  14.        END;
  15.    END;
  16. END
  17. EOF
  18.