var CRC16;
var b;

#define SEED 0xFFFF  //inicializace pro CRC16
#define GP   0xA001  //generujici polynom (zmenit v pripade jineho protokolu)

Calc_CRC
{
   var carry;
   var i;

   CRC16 = CRC16 ^ (b & 0xFF);
   
   CRC16 = CRC16 & 0xFFFF;


   i=0; 
nextb:
   if (i<8)
   {
      carry = CRC16 & 0x0001;

      CRC16 = CRC16 >> 1;

      if (carry != 0) 
       { CRC16 = CRC16 ^ GP; };

      CRC16 = CRC16 & 0xFFFF;

      i++;
      goto nextb;
   }
}

main
{

 //priklad
 // spocitat CRC pro text[0] az text[3] (v poli text[0] az text[3] je zprava - toto je priklad...)

 // start
 CRC16 = SEED; // vzdy spravne nastavit na zacatek

 // provest
 b = text[0];
 Calc_CRC();
 b = text[1];
 Calc_CRC();
 b = text[2];
 Calc_CRC();
 b = text[3];
 Calc_CRC();

 // vysledek
 echo(' crc je = ', CRC16);

}