home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PROGJRN / PJ_6_3.ARC / LISTING1 < prev    next >
Encoding:
Text File  |  1988-04-05  |  530 b   |  25 lines
  1. Listing 1 from "A CASE of the Jumps" by Tom Swan.  Copyright 1988
  2. by Tom Swan.  No commercial use of this code without express
  3. permission from the author.
  4.  
  5. program case1;
  6. var i : integer;
  7.  
  8. procedure proc0; begin writeln(0) end;
  9. procedure proc1; begin writeln(1) end;
  10. procedure proc2; begin writeln(2) end;
  11. procedure proc3; begin writeln(3) end;
  12.  
  13. begin
  14.    for i := 0 to 3 do
  15.       case i of
  16.          0 : proc0;
  17.          1 : proc1;
  18.          2 : proc2;
  19.          3 : proc3
  20.       end { case }
  21. end.
  22.  
  23.  
  24. Listing 1
  25.