#write test file
open OUTF, ">c\\current\\test.bin";
binmode (OUTF);

my $buff = pack "sfff", 99, 1.34, 1.44, 1.55;
print OUTF $buff;
print OUTF $buff;

close OUTF;
print "done.\n";
  

##</code><code>##

 
// test reader in visual c 6
typedef struct
{
    short  ss;
    float  a,b,c;
}
TEST_REC;


void iitest()
{
    FILE	*fd;
    TEST_REC  tester[2];
    long rv;

    fd = fopen("test.bin","r");
        
    rv = fread( tester, sizeof(TEST_REC), 2, fd);
       
    printf(" ss %d, %5.3f, %5.3f, %5.3f, \n", tester[0].ss, tester[0].a,tester[0].b,tester[0].c);
    printf(" ss %d, %5.3f, %5.3f, %5.3f, \n", tester[1].ss, tester[1].a,tester[1].b,tester[1].c);
    
    fclose(fd);
    exit (0);
}