home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PROGJRN / PJ_6_3.ARC / LISTING3 < prev    next >
Encoding:
Text File  |  1988-04-05  |  678 b   |  31 lines
  1. Listing 3 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 of the author.
  4.  
  5. program case2;
  6. var i : integer;
  7.     table : array[ 0 .. 3 ] of word;
  8.  
  9. procedure jump( index : word );
  10.    inline( $5B/ $D1/ $E3/ $FF/ $97/ table );
  11.  
  12. procedure proc0; begin writeln(0) end;
  13. procedure proc1; begin writeln(1) end;
  14. procedure proc2; begin writeln(2) end;
  15. procedure proc3; begin writeln(3) end;
  16.  
  17. begin
  18.  
  19.    table[ 0 ] := ofs( proc0 );
  20.    table[ 1 ] := ofs( proc1 );
  21.    table[ 2 ] := ofs( proc2 );
  22.    table[ 3 ] := ofs( proc3 );
  23.  
  24.    for i := 0 to 3 do
  25.       jump( i )
  26.  
  27. end.
  28.  
  29.  
  30. Listing 3
  31.