{
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  ßßß   ßßß   ßßßßß   ßß   ßß
  ßßßß ßßßß  ßß   ßß   ßß ßß
  ßß ßßß ßß  ßßßßßßß    ßßß    ÉÍÍ ËÍ» ÉÍ» ËÍ» Ë Ë Ë ÉÍ» ÉÍ»
  ßß  ß  ßß  ßß   ßß   ßß ßß   º Ë Ì˼ Ì͹ Ìͼ Ì͹ º º   ÈÍ»
  ßß     ßß  ßß   ßß  ßß   ßß  Èͼ ÊÈÍ Ê Ê Ê   Ê Ê Ê Èͼ Èͼ
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  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;
{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}