Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  programa
Language: C/C++
Code:
#include <stdio.h>
int main(int argc, char *argv[])
{
     procedure CheckSumA(const Data: String; out BCC1, BCC2: Byte);
var
  I: Integer;
begin
  BCC1 := 0;
  BCC2 := 0;
  for I := 1 to Length(Data) do
  begin
    Inc(BCC1, Ord(Data[I]));
    BCC2 := BCC2 xor Ord(Data[I]);
  end;
  BCC1 := -BCC1;
end;
     
}
          
          
          
          
Comments: