home *** CD-ROM | disk | FTP | other *** search
- /* 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) '
-