home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_01 / 2n01049a < prev    next >
Text File  |  1990-11-14  |  221b  |  20 lines
  1.  
  2.  
  3.  
  4. function search(var s : string) : integer;
  5.     label
  6.         1;
  7.     var
  8.         i : integer;
  9.     begin
  10.     for i := MAX downto 1 do
  11.         if s = table[i] then
  12.             begin
  13.             search := i;
  14.             goto 1;
  15.             end;
  16.     search := 0;
  17. 1:
  18.     end;
  19.  
  20.