home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_01_06
/
1n06038a
< prev
next >
Wrap
Text File
|
1990-09-30
|
265b
|
24 lines
Listing 2
uses
scan;
var
tc : token_code;
begin
start_scan;
repeat
tc := get_token;
write(token_code_image[tc]);
if tc = TC_INT then
write(' : ', int_value);
writeln;
if tc = TC_BAD then
restart_scan;
until tc = TC_EOF;
end.