home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib1 / v_01_06 / 1n06038a < prev    next >
Encoding:
Text File  |  1995-11-01  |  265 b   |  24 lines
  1.  
  2.  
  3. Listing 2
  4.  
  5. uses
  6.     scan;
  7.  
  8. var
  9.     tc : token_code;
  10.  
  11. begin
  12. start_scan;
  13. repeat
  14.     tc := get_token;
  15.     write(token_code_image[tc]);
  16.     if tc = TC_INT then
  17.         write(' : ', int_value);
  18.     writeln;
  19.     if tc = TC_BAD then
  20.         restart_scan;
  21. until tc = TC_EOF;
  22. end.
  23.  
  24.