home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
progjrn
/
pj_6_3.arc
/
LISTING1
< prev
next >
Wrap
Text File
|
1988-04-05
|
530b
|
25 lines
Listing 1 from "A CASE of the Jumps" by Tom Swan. Copyright 1988
by Tom Swan. No commercial use of this code without express
permission from the author.
program case1;
var i : integer;
procedure proc0; begin writeln(0) end;
procedure proc1; begin writeln(1) end;
procedure proc2; begin writeln(2) end;
procedure proc3; begin writeln(3) end;
begin
for i := 0 to 3 do
case i of
0 : proc0;
1 : proc1;
2 : proc2;
3 : proc3
end { case }
end.
Listing 1