home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG028.ARK / CASETWO.ALG < prev    next >
Text File  |  1984-04-29  |  322b  |  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.