home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
seedump.zip
/
SAMPLES
/
R6.BAG
< prev
next >
Wrap
Text File
|
1995-08-18
|
695b
|
39 lines
/* */
p1 = "aaa10"
struct "dum"
if ( struct.1 = "STRUCT.1" )
then do
say "No structure found with the name dum"
exit 1;
end
say struct.0
say struct.1
parse value struct.1 with a b slen .
globvar p1
addr = d2x(rc)
slen= d2x(slen)
say p1 " at " addr " length "slen
Fetchaddr addr slen
data = rc
do until addr=0
Fetchaddr addr slen
data=rc
do i=0 to struct.0
parse value struct.i with a b c .
if a == "next" then do
addr = intel(data,b,c)
/* say '>>'a 'at ' b ' 'c2x(addr)*/
end
if a == "nn" then do
if substr(data,b+1,7) = "nntext5" then
say '>>'a 'at ' b ' 'substr(data,b+1,c)
end
end
addr=c2x(addr)
end
return 0