/* BuildDisk */
/* 30 May 1996 20:48:17 */

parse arg Dest RevNr

if Dest = '' then
	do
	say 'Usage: BuildDisk <Device> [Version]'
	exit
	end


BackupRevFileName = 'sc:Backup/Backup_Rev.Rev'
RestoreRevFileName = 'sc:Restore/Restore_Rev.Rev'

BackupBinLHAName = 'sc:Backup/Reserve/Backup_Bin_V3.'
RestoreBinLHAName = 'sc:Restore/Reserve/Restore_Bin_V3.'
BackupSrcLHAName = 'sc:Backup/Reserve/Backup_Src_V3.'
RestoreSrcLHAName = 'sc:Restore/Reserve/Restore_Src_V3.'

if RevNr = '' then
	DO
	if open('BackupRevFile', BackupRevFileName) = 0 then
		DO
		say 'Cannot open ' | BackupRevFileName
		exit
		END

	BackupRevNr = readln('BackupRevFile')
	END
else
	BackupRevNr = RevNr

BackupRevNr = strip(BackupRevNr, 'b');


BackupBinLHAName = BackupBinLHAName || BackupRevNr || '.lha'
BackupSrcLHAName = BackupSrcLHAName || BackupRevNr || '.lha'

if RevNr = '' then
	DO
	if open('RestoreRevFile', RestoreRevFileName) = 0 then
		DO
		say 'Cannot open ' | RestoreRevFileName
		exit
		END

	RestoreRevNr = readln('RestoreRevFile')
	END
else
	RestoreRevNr = RevNr

RestoreRevNr = strip(RestoreRevNr, 'b');

RestoreBinLHAName = RestoreBinLHAName || RestoreRevNr || '.lha'
RestoreSrcLHAName = RestoreSrcLHAName || RestoreRevNr || '.lha'

address command 'relabel ' || Dest || ' Backup&Restore'

address command 'copy FROM lhx LHX.Readme AddAGPath WrapGuide Install-Backup#? ' || BackupBinLHAName || ' ' || RestoreBinLHAName || ' TO ' || Dest
