1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

crc16& = 65535
FOR c% = 1 to LEN(message$)
crc16& = crc16& XOR ASC(MID$(message$, c%, 1))
FOR bit% = 1 to 8
IF crc16& MOD 2 THEN
crc16& = (crc16& \ 2) XOR 40961
ELSE
crc16& = crc16& \ 2
END IF
NEXT BIT%
NEXT c%
crch% = CRC16& \ 256: crcl% = CRC16& MOD 256
message$ = message$ + CHR$(crcl%) + CHR$(crch%)
CRC = CRC16&
END FUNCTION CRC                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

function crc (command: string): string;
var
  Crc16, i, Bit: Integer;
  Crch, Crcl: Byte;
begin
  Crc16 := 65535;
  for i := 1 to Length(Command) do
  begin
    Crc16 := Crc16 XOR StrToInt(Command[i]);
    for Bit := 1 to 8 do
    begin
      if (Crc16 mod 2) = 1 then
      begin
        Crc16 := (Crc16 \ 2) XOR 40961;
        end
      else
        Crc16 := Crc16 / 2;
      end;
    end;
  Crch := Crc16 / 256;
  Crcl := Crc16 MOD 256;
  Command = Command + Chr(Crcl) + Chr(Crch);

  Result := Command;
end;