/* FreshenArchive */
/* 24 May 1996 19:25:38 */

RevFileName = 'Backup_Rev.Rev'
LHASrcName = 'Reserve/Backup_Src_V3.'
LHABinName = 'Reserve/Backup_Bin_V3.'

if open('RevFile', RevFileName) = 0 then
	DO
	say 'Cannot open ' | RevFileName
	exit
	END

RevNr = readln('RevFile')
LHASrcName = LHASrcName || RevNr || '.lha'
LHABinName = LHABinName || RevNr || '.lha'

address command 'lha f ' || LHASrcName
address command 'lha f ' || LHABinName
