anchor.diff:  
   uses GetSystems, BlockDb, Graphics, Diagnostics, ownConvert, ownStrUtils,
     TJCDatabase, fMain, TCPServerPanel, TrainDb, THVDatabase, BlockTrack,
  -  RCSErrors, RCS, UPO;
  +  RCSErrors, RCS, UPO, TCPAreasRef;
   
   constructor TBlkPst.Create(index: Integer);
   begin
  
positive.code: 
  procedure TBlkPst.UPONPstDone(Sender: TObject);
  begin
    Self.status := pstOff;
  end;
  
  procedure TBlkPst.MenuSTITClick(SenderPnl: TIdContext; SenderOR: TObject);
  
negative.code:         UPO_EscCallback: TNotifyEvent);
  
      procedure UPOPstDisDone(Sender: TObject);
      procedure UPONPStDone(Sender: TObject);
      procedure CSNPStDone(Sender: TIDContext; success: Boolean);
  
    public
  
  