//  Copyright 2006 Hewlett-Packard Development Company, L.P.
//
//  An example of using lib$crc_table and lib$crc on OpenVMS.
//
#include <descrip.h>
#include <lib$routines.h>
#include <starlet.h>
#include <stdio.h>
main()
    {
    $DESCRIPTOR( Dove, "DOVE");
    $DESCRIPTOR( Hose, "HOSE");
    int CrcArray[16], Crc1, Crc2;
    lib$crc_table( &0120001, CrcArray );
    Crc1 = lib$crc( CrcArray, &0, &Dove ) & 32767;
    Crc2 = lib$crc( CrcArray, &0, &Hose ) & 32767;
    printf("Crc1: %d, Crc2: %d\n", Crc1, Crc2 );
    return 1;
    }