{
  common.pas

  Common functionality that's useful across my toolkit.

  TYPES
  - FilePath is a string used for storing filenames on CP/M.

  Procedures:
  -  Procedure ExpandFile(var fil : BinFile; var pos : Integer; pad : Integer);
}

type
FilePath = String[12];


function IMax(a, b : Integer): Integer;
begin
    if a > b then IMax := a else IMax := b;
end;


function BMax(a, b : Byte): Byte;
begin
    if a > b then BMax := a else BMax := b;
end;


function IMin(a, b : Integer): Integer;
begin
    if a > b then IMin := b else IMin := a;
end;


function BMin(a, b : Byte): Byte;
begin
    if a > b then BMin := b else BMin := a;
end;