RadiaLog

  if (fTicks mod 300 = 0) and fGMCMode then
  begin
    cComPort.Output := '<GETCPM>>';
  end;

procedure TmainForm.triggerAvail(CP: TObject; Count: Word);
var
  I, curCPM: Integer;
  Character: AnsiChar;
  dateTime: string;
  dataBlock: array [0..1023] of Byte;
begin
  if fGMCMode then
  begin
    cComPort.GetBlock(dataBlock, 1024);

    if Length(dataBlock) >= 2 then
    begin
      # Convert bytes to 16 bit int
      curCPM = (Ord(dataBlock[0]) * 256) + Ord(dataBlock[1]);
      dateTime := FormatDateTime('DD-MM-YYYY HH:MM:SS', Now);
      cCPMEdit.Lines.Add(dateTime);
      cCPMEdit.Lines.Add(#9 + 'curCPM: ' + IntToStr(curCPM) + sLineBreak);

      if fUploadRM then
        fCPMList.Add(curCPM);

      updatePlot(curCPM);
      updateCPMBar(curCPM);
      updateDosiLbl(curCPM);
    end;
  end else
  begin
    if fTimeToWait = -1 then
      fTimeToWait := 1;

    for I := 1 to Count do
    begin
      Character := cComPort.GetChar;

      if Character = #7 then // COM port asks for system to "bell"
        MessageBeep(0)
      else
        if Character in [#32..#126] then // Only accept alpha-numeric Ansi values
          fBuffer := fBuffer + Character;
    end;
  end;
end;