set fp [open CARDPVR.PAC rb]
binary scan [read $fp 0xc] {iii} magic numents hdrlen

if {$magic != 0x00434150} {
	return -code error "unknown magic: $magic"
} else {
	puts "magic = $magic, OK"
}
puts "header length: $hdrlen ($numents entries)"

puts "reading end table..."
set endhdr [read $fp [expr {$numents * 4}]]
binary scan $endhdr "i$numents" endtab
puts $endtab

file mkdir records

set pos $hdrlen
foreach endpt $endtab {
	set length [expr {$endpt - $pos}]
	set data [read $fp $length]
	set fp2 [open records/[format %08x $endpt].bin wb]
	puts $fp2 $data
	close $fp2

	set pos $endpt
}