/* Needs DirectoryOpus V4.? and Dizzer (prg to grab name out of File_Id.Diz
$VER: AbortDizzer V1.0 (17-Aug-95) Allan Odgaard
*/

lf = '0a'x
Font = 'topaz.font 8'

Options Results

Status 3 ; ActiveWin = Result
Status 13 ActiveWin ; DirPath = Result

Address Command 'C:Delete T:DateOfDir.Tmp'

If Right(DirPath,1) = '/' Then Do
	Start = Verify(Reverse(Left(DirPath,Length(DirPath)-1)),'/:',M)
	If Start ~= 0 Then Do
		DirName = SubStr(DirPath,Length(DirPath)-(Start-1),Start-1)
		Path = Left(DirPath,Length(DirPath)-Start)
		Address Command 'C:List "'Path'" Pat "'DirName'" Dirs NoHead Dates LFormat "%d %t" To T:DateOfDir.Tmp'
	End
End

	Busy On
Loop:	GetNextSelected
	Name = Result
	If Name = 0 Then Signal End
	Address Command 'C:Dizzer "'DirPath || Name'" 'Font
	If RC = 25 Then Signal End
	SelectFile '"'Name'"' 0 1
	Signal Loop

End:	Busy Off

	If Open('Date','T:DateOfDir.Tmp','R') = 0 Then Signal ReScan
	DirDate = ReadLn('Date')
	Close('Date')

	Address Command 'C:List "'Path'" Pat "'DirName'" Dirs NoHead Dates LFormat "%d %t" To T:DateOfDir.Tmp'

	Open('Date','T:DateOfDir.Tmp','R')
	NewDate = ReadLn('Date')
	Close('Date')

	If NewDate = DirDate Then Signal NoWay
ReScan:	ReScan
NoWay:	Address Command 'C:Delete T:DateOfDir.Tmp'
	Address Command 'C:Delete T:File_Id.Diz'
	Exit