#!/usr/bin/perl
open IN,"<0000000013.005" or die "can't read input";
while( read IN,$header,24 )  {

($DataFormatVersion,
$BlockLength,
$FileType,
$Family,
$FamilyVersion,
$FileExtension,
$SessionSequenceNumber,
$TimeStamp,$a1,$a2,$a3,$a4,$a5,$a6,$a7,$Checksum)=unpack("CvCCCCVVVVVVVVC",$header);

print "$DataFormatVersion, BL=$BlockLength, $FileType, F=$Family, FV=$FamilyVersion, $FileExtension, Seq=$SessionSequenceNumber, $TimeStamp, $Checksum\n";
print "Extra $a1,$a2,$a3,$a4,$a5,$a6,$a7,$Checksum\n";
print "Data from: ",scalar localtime ($TimeStamp),"\n";

#1226, read in 24,  need to read in additional 1200 and 2 crc
$q=read IN,$buf, $BlockLength-24-2;
read IN,$crc,2;
#print "read in $q\n";

#if($q == 1200) {
#} else {
	##	strip 4 bytes of nulls and crc of end of q
	##or try to read 1202 bytes and clean up 
#}

for($i=0;$i<$q;$i++) {
	
	$x=unpack("c",substr($buf,$i,1));
	print "$x\n";

}
}
#00 	[02] 		8bit integer	DataFormatVersion
#01	[48 0d] 	16bit integer	BlockLength (in bytes, including header & checksum values)
#03	[00] 		8bit integer	FileType (Defining additional header information)
#04	[05] 		8bit integer	Family
#05	[00] 		8bit integer	Family Version
#06	[02] 		8bit integer	File Extension
#07	[1f 00 00 00] 	32bit integer	Session Sequence Number
#0b	[15 ae 12 4e]	32bit integer 	TimeStamp (UNIX Epoch)