Procedure SpacesToZeros (StIn:String;Var StOut:String);
    Function  PosFrom       (SubS:String;StIn:String;FarIn:Byte):Byte;
    Function  RevPosFrom    (SubS:String;StIn:String;FarIn:Byte):Byte;
    Procedure UpperCase     (StIn:String;Var StOut:String);
    Procedure PadVar        (StIn:String;Var StOut:String;Count:Byte);
    Procedure PadVarWith    (StIn:String;Var StOut:String;Count:Byte;
                                                          WithMe:Char);
    Procedure FormatVar     (StIn:String;Var StOut:String;
                             Size:Byte;Format:TextFormats);
    Procedure UnPadVar      (StIn:String;Var StOut:String);
    Procedure UnPadVarRight (StIn:String;Var StOut:String);
    Procedure UnPadVarLeft  (StIn:String;Var StOut:String);
    Procedure RightJustify  (StIn:String;Var StOut:String;
                             Margin:Byte;JType:JustifyFormats);
    Procedure PadFileName   (StIn:String;Var StOut:String);

    Function  AdjustMeter   (StartMeter1,EndMeter1,ValueMeter1,
                             StartMeter2,EndMeter2:LongInt):LongInt;

    Function  MemoryCount   (P:Pointer):LongInt;
    Procedure GetLowestOfs  (P:Pointer;Var S,O:Word);
    Procedure AdjustPtr     (Var P:Pointer;Amount:LongInt);

    Procedure SaveCursorSize(Var Data:Word);
    Procedure RestCursorSize(Data:Word);
    Procedure SaveXYPos     (Var Position:XYPosData);
    Procedure RestXYPos     (Var Position:XYPosData);
    Procedure CursorSize    (UpLim,DownLim:Byte);

    Procedure PushCursorSize;
    Procedure PopCursorSize;
    Procedure PushXYPos;
    Procedure PopXYPos;
    Procedure PushTextColor;
    Procedure PopTextColor;

    Procedure KeyBuffer     (Option:KeyBufferFunction);

    Procedure SwapBytes     (Var A,B:Byte);
    Procedure SwapIntegers  (Var A,B:Integer);
    Procedure SwapWords     (Var A,B:Word);
    Procedure SwapLongInts  (Var A,B:LongInt);
    Procedure SwapReals     (Var A,B:Real);
    Procedure SwapSingles   (Var A,B:Single);
    Procedure SwapDoubles   (Var A,B:Double);
    Procedure SwapExtendeds (Var A,B:Extended);
    Procedure SwapStrings   (Var A,B:String);