.enable substitution
.enable quiet
.; sy42:[1,100]edit.cmd -- edit Srctools macro file
.; jim bostwick  22-MAY-1985 17:13:42 
.; last edit: 22-MAY-1985 17:19:37 
.;
.; this command file takes the archive (.scn file) name as a parameter
.; it does a GET/EDIT <nam>, then EDT <nam>.MAC
.; when EDT exits, an UPD <nam> is done, followed by a <nam.mac>/pu
.; this effectively automates the srctools system at the price of a
.; perennially active ...at.
.;
.; if invoked with no parameters, prompts for filename, then loops back
.; to prompt at end - you can do many files without exiting that way
.;
.setf multi
.sets nam p1
;'nam'
.test nam
.if <strlen> <> 0 .goto 20
.10:
	.asks nam module name
	.sett multi
.20:
	get/edit 'nam'
	edt 'nam'.mac
	.ask u update
	.ift u .goto 30
	.disable quiet
;
; WARNING!! Module 'nam' still checked out from SRCTOOLS!!!
;
	.enable quiet
	.goto 40
.30:
	upd 'nam'
	pur 'nam'.mac
.40:
	.ift multi .goto 10
