!					!
! UPDATE MODULE REVISION DATE/TIME	!
!					!
!	!!VERSION V02.08!!		!
!					!
!  LAST REVISED:  9-OCT-80	BY KJC	!
!					!
! V02.08 - REMOVED SCREEN ERASE ON CRT	!
!					!
! Q-REG USAGE:	3 $ TEMPORARY STORAGE	!
!					!
!		3 # TEMPORARY STORAGE	!
!					!
!		4 $ STORAGE FOR THE	!
!		    REVISION MACRO IF	!
!		    NEEDED		!
!					!
!		D $ MACRO TO INSERT	!
!		    DATE/TIME IN FORMAT	!
!		    "DD-MMM-YY HH:MM"	!
!					!
!		U $ LOADED WITH A	!
!		    MACRO TO INVOKE	!
!		    THE APPROPRIATE	!
!		    REVISION MACRO	!
!					!
! SAVE Q-REGS				!
!					!
[D [3 EDU3 [3 0ED
!					!
! DEFINE MACRO TO INSERT DATE/TIME	!
!					!

@^UD#^B&31+100\ 3RD 2C @I%-% .UDZJ
@I%JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC% 39R
^B/32&15*3C.,.+3X3ZJ-36DQDJG3 @I%-% ^B/512\ @I% %
^HUDQD/1800U3 Q3+100\ 3RD 2C @I%:%
QD-(1800*Q3)/30+100\ 3RD 2C #

!					!
! IF VTEDIT WAS CALLED, SAVE THE VTEDIT	!
! FILESPEC, AND RESTORE IT AT THE END.	!
! ALSO, SET BIT 4 IN THE ED FLAG TO	!
! INHIBIT ARBITRARY MEMORY EXPANSION	!
! IN CASE A YANK IS REQUIRED.		!
!					!

Q1&1"N [2 ZJ G* ^YX2 ^YK @EW%% 0,4ED '

!					!
! IF THERE'S NOTHING IN THE BUFFER,	!
! TRY TO DO A YANK.  CLEAR BIT 2048 IN	!
! Q-REG 1 INDICATING A YANK WAS DONE.	!
!					!

Z"E @ER%% G* ^S"N EY Q1#2048-2048U1 ' @EW%% '

!					!
! STORE THE UPDATE FILENAME IN Q-REG U	!
! (EXCEPT FOR .CMD FILES - IT'S JUST	!
!  A NUISANCE FOR THEM)			!
!					!

ZJ ZU3 G* Z-Q3"G -:@S%.^ER^ER^ER%  "S 3R
::@S%CMD% "U @^UU%:EILB:[201,5]% .,.+3:XU
:@^UU%REV.TEC% 27:@^UU%% :@^UU%"U @^A#
Module update macro file not found: #:G*@^A#
#'% @^A%
MU loaded.
% ' ' Q3J K '

!					!
! TRY TO FIND THE HISTORY BLOCK		!
!					!

J:2@S%^X**-%"S

!					!
! BLOCK FOUND - GO CHANGE EDIT DATE	!
!					!

J @S%% :@S%Last edit: %"S K MD @I%
%

!					!
! IF THE TERMINAL IS A CRT, TYPE THE	!
! "Last edit" LINE.			!
!					!

ET&512"N -T ' @S%**-%

-:@S%Version ^EA^ED^ED.^ED^ED ^X^ED-^EA^EA^EA-^ED^ED ^ED^ED:^ED^ED - %"S
K MD @I%
% | @O!IRH! ' | !IRH! @^A%
Invalid revision history block.
% ' @O!X! '

!					!
! REVISION HISTORY BLOCK NOT FOUND.	!
! GET THE FILENAME.  IF IT'S "DMY" OR	!
! "DUMMY", THEN FORGET IT.		!
!					!

ZJ ZU3 G* -:@S%]%"U @O%K% '
::@S%DMY.% "S @O!K!' ::@S%DUMMY.% "U

!					!
! NOT DMY OR DUMMY.  CHECK THE		!
! EXTENSION TO SEE IF IT HAS A DEFINED	!
! UPDATE ROUTINE.			!
!					!

@S%.% ::@S%FLE% "S @O!GO! '
 ::@S%FTN% "S @O!GO! '
 ::@S%MAC% "S @O!GO! '
 ::@S%PAS% "S @O!GO! '
 ::@S%RNO% "S @O!GO! '
 ::@S%ODL% "U @O!K! ' !GO! .,.-3X3 Q3J K
EP:@ER%LB:[201,5]^EQ3REV.TEC%"S

!					!
! READ THE FILE INTO Q-REG 4 AND	!
! EXECUTE IT.  THE ITERATION LOOP IS	!
! REQUIRED TO MAKE SURE THE WHOLE FILE	!
! IS READ INTO THE Q-REG.  IF THE LOOP	!
! IS REQUIRED, LOADING WILL BE VERY SLOW!
!					!

[4 A Q3,ZX4 Q3,ZK ^N"F <1:A; Q3,Z:X4 Q3,ZK> '
@EI%% M4^[ ]4 ' @ER%% @O!X! '

!K! Q3J K '

!					!
! RESTORE Q-REGS AND EXIT		!
!					!

!X! Q1&1"N :@EI%^EQ2% ]2 ' ]3 Q3ED ]3 ]D BJ