	VAR
		szCurDir	: Array [0..96] of Char;
		szFile	: Array [0..96] of Char;
	
	BEGIN
		GetCurDir (szCurDir, 0);
		StrCopy (szFile, szCurDir);
		StrCat (szFile, '\');
		StrCat (szFile, 'DTV.SC');
	END;
