unit UPOType;{v0.49}
  { Channel sequence program processor ; source for MakeComp program }
interface
uses
  UlanType, ULRecTyp;{ulanrecs.lst}
const
  UPOExt = '.UPO';
  UPOID = ord('U') + 256* ord('P') + 256 * 256 * ord('O');
  UPOFilter = 'Processor (*.UPO)|*.UPO';

type
  TProcessorName = string[60];
  TProcessorDesc = string[255];

  TUPORec = packed record {<Caption="Processor" RootChild=1 ChildRecIDs=USPID
    AskForSave=1 Enabled=1 Visible=1 NameProp=ProcessorName Uses=USPType>}
    Head: TULRecHead;
    Info: TULRecInfo;
    ProcessorName: TProcessorName;{<Enabled=1 Caption="Processor Name">}
      { Name of the program processor = channel name }
    ProcessorDesc: TProcessorDesc;{<Enabled=1 Caption="Processor Desc.">}
      { Longer description of the channel program processor. }
  end;
  PUPORec = ^TUPORec;

implementation

end.
