#! /usr/local/bin/perl

dbmopen (%entities, "./dis-entities", 0644);
@a = (1, 2, 225, 1, 3, 3, 0);
$key = pack ("CCSCCCC",
	$a[0], $a[1], $a[2], $a[3], $a[4], $a[5], $a[6]);
print "We should find an F-16C: \"", $entities{$key}, "\"\n";
@a = (1, 2, 225, 1, 3, 0, 0);
$key = pack ("CCSCCCC",
	$a[0], $a[1], $a[2], $a[3], $a[4], $a[5], $a[6]);
print "We should find an F-16C: \"", $entities{$key}, "\"\n";
@a = (1, 2, 225, 1, 0, 0, 0);
$key = pack ("CCSCCCC",
	$a[0], $a[1], $a[2], $a[3], $a[4], $a[5], $a[6]);
print "We should find an F-16C: \"", $entities{$key}, "\"\n";
dbmclose (entities);
