/* BuildArchive */
/* 24 May 1996 19:22:22 */

RevFileName = 'Backup_Rev.Rev'
LHABinName = 'Reserve/Backup_Bin_V3.'
LHASrcName = 'Reserve/Backup_Src_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 a '       || LHABinName || ' Backup Backup.info #?TAPE#? '
address command 'lha -x a '    || LHABinName || ' Guide/~(Backup_ohne_Index#?) '
address command 'lha -r -x a ' || LHABinName || ' BackupScripts catalogs/#?.catalog '

address command 'lha a '       || LHASrcName || ' #?Archive debug makefile '
address command 'lha -x a '    || LHASrcName || ' gui  Guide/Backup_ohne_Index#?'
address command 'lha -x a '    || LHASrcName || ' #?.(c|h|asm|cd|brush|ced) '
address command 'lha -x a '    || LHASrcName || ' install/Install-Backup#? install/BuildDisk install/#?.c '
address command 'lha -r -x a ' || LHASrcName || ' catalogs/~(#?.catalog) '
