program UsbHid;

var cnt, kk : char;

var readbuff : array[64] of char;
var writebuff : array[64] of char;

begin
  CHECON := 0x32;
  AD1PCFG := 0xFFFF;
  HID_Enable(@readbuff,@writebuff);
  while TRUE do
    begin
      USB_Polling_Proc();
      kk := HID_Read();
      if (kk <> 0) then
      begin
        for cnt:=0 to 63 do
          writebuff[cnt]:=readbuff[cnt];
        HID_Write(@writebuff,64);
      end ;
    end;
end.