{

              
            
               ͻ ͻ ͻ    ͻ ͻ
                    ˼ ͹ ͼ ͹     ͻ
                   ͼ          ͼ ͼ

  The MAX Graphics GUI Kit is Copyright 1995-Current Larry L. Athey (LA-Soft).
  Color Averaging procedures are courtesy of Sean Price (Rude Dog Software).
  }

INTERFACE

CONST
 _DOS = 0; {DOS               }
  OS2 = 1; {OS/2              }
  WIN = 2; {WinDoze           }
  DV  = 3; {DesqView          }

VAR
  OS              : BYTE;       {The current operating system running.        }
  ProgramVersion  : STRING[10]; {The version of your program.                 }
  ProgramName     : STRING[40]; {The name of your program.                    }

{}
FUNCTION AllCaps(S : STRING) : STRING;
FUNCTION BooleanToStr(B : BOOLEAN) : STRING;
FUNCTION BoolToStr(B : BOOLEAN) : STRING;
FUNCTION StrToBool(S : STRING) : BOOLEAN;
FUNCTION IntToStr(N : LONGINT) : STRING;
FUNCTION StrToInt(S : STRING) : LONGINT;
FUNCTION StripLead(St : STRING; Ch : CHAR) : STRING;
FUNCTION StripTrail(St : STRING; Ch : CHAR) : STRING;
FUNCTION StripBoth(St : STRING; Ch : CHAR) : STRING;
FUNCTION Center(St : STRING; MaxPlace : BYTE) : STRING;
FUNCTION PadRight(S : STRING; Ch : CHAR; Len : BYTE) : STRING;
FUNCTION PadLeft(S : STRING; Ch : CHAR; Len : BYTE) : STRING;
FUNCTION FSize(Fn : PathStr) : LONGINT;
FUNCTION FExist(Fn : PathStr) : BOOLEAN;
FUNCTION FErase(Fn : PathStr) : BOOLEAN;
FUNCTION DExist(Fn : PathStr) : BOOLEAN;
FUNCTION CopyFile(SourceFile,TargetFile : STRING) : BYTE;
FUNCTION GetFileName(InString : STRING) : STRING;
FUNCTION GetFilePath(InString : STRING) : STRING;
FUNCTION FixPath(Txt : STRING) : STRING;
FUNCTION NoPath(Txt : STRING) : STRING;
FUNCTION OSstr : STRING;
{}
PROCEDURE MakeDir(DirName : STRING);
PROCEDURE TimeSlice;
PROCEDURE DetectOS;
PROCEDURE ClearKeyBuffer;
{}
