Procedure AddSlash(StIn:String;Var StOut:String);

    This procedure adds a '\' to the  end  of  the string, if there isn't
    already a '\' present.  This is  ideal  for  adding file names to the
    path presented.

    Example

    Write('Enter BGI Path:');
    ReadLn(StOut);
    AddSlash(StOut,StOut);
    StOut:=StOut+'EGAVGA.BGI';