1 {-Test prog for crc_sick, we 17.12.10}
2 
3 program t_sick;
4 
5 {$i STD.INC}
6 
7 {$ifdef APPCONS}
8   {$apptype console}
9 {$endif}
10 
11 
12 uses
13   {$ifdef WINCRT} WinCRT, {$endif}
14   crc_sick;
15 begin
16   writeln('CRC/Hash test program [CRC-16/Sick]   (c) 2002-2012 W.Ehrhardt');
17   writeln('CRC-16/Sick selftest: ',crc_sick_selftest);
18 end.
19