!--- EDIT # 0030	1 Nov 1979    9:18:32	DR1:[300,3]TAD.TEC;77  !
!--- PREVIOUS EDIT	26 Oct 1979   10:59:48	DR1:[300,3]TAD.TEC;76  !
! Q REGISTERS	A=INPUT FILE SPEC	B=UIC OF OLD VERSION
C= UIC OF NEW VERSION	D=NAME PART OF FILESPEC!
! E = VERSION PART OF NEW	F = VERSION PART OF OLD!

@^UT*.U0<U1 Q1I Q1-13"E I -1U0 0;' Q1-27"E -DI
 .-2,.T' Q1-127"E -D .-Q0"E I?' .-1,.T -D' Q1-21"E 0K


' Q1-26"E 0K 


 0U0 0;'>*
EI

 This produces an audit trail on modules that have been updated.
It prompts for:
  - Filename of the module		(e.g. LOGGER.MAC )
  - SPEC of old (original) version	(e.g. [40,31] )
  - SPEC of new (editted) version	(e.g. DK0:[300,4];47 )
Any part of the SPEC that is omitted takes standard defaults.
If the 1st char of the SPEC is "-", it takes the same value as last time.
The final output is the updated copy with an audit trail in the current UIC.

 0,16ET <!N!.U2 

FILENAME ? 
 MT Q0; Q2,.-2XA -K

SPEC of old version ? 
 MT  Q0"U ON' Q2J ::S-"U 0,0XE 0,0XB
  Z,:S;"S R.,+.-2XE :QED' LQ2,.-2XB' Q2J K
:ENQBQAQE :EN"U 
 ERROR-cannot find file 
 :GB:GA:GE


 ON' G*0L XXK

SPEC of updated version ? 
 MT Q0"U ON' Q2J ::S-"U 0,0XF 0,0XC
  Z,:S;"S R.,+.-2XF :QFD' LQ2,.-2XC' Q2J K
:ENQCQAQF :EN"U 
 ERROR-cannot find file 
 :GC:GA:GF


 ON' G*0L XYK
G* 0L S]0K S.R 0XD 0LK
ICMP GDI.SLP/SL=GXI,GYI
MUN SLPID,GXI
SLP @GDI.SLP
!-----------
>
Z"E 
NO OUTPUT COMMAND FILE
EX'

EWUPDATE.CMDEC 
Now invoke command file "UPDATE.CMD"

   EX