! DK:UPDATE.TEC   DATE: 8-SEP-83   TIME: 19:43:38 !

! invoke as disk file with "EISY:UPDATE", loads + starts updater !
^UZ1#32#ETET<^T"S0;'>32^_&ETET$27:^UZ$27:^UZ$$ !MZ sets image mode, drains KB!
! damage prevention first !
Z"G MZ ^A$H$K^G$p-UPDATE-W- TEXT IN BUFFER - OK to discard? (Y) ^A
^T-^^Y"NOXIT$|HK''
EW$G*Z"G HK MZ ^A$H$K^G$p-UPDATE-W- OUTPUT FILE OPEN - OK to discard? (Y) ^A
^T-^^Y"NOXIT$|HKEK''
ER$G*Z"G HK MZ ^A$H$K^G$p-UPDATE-W- INPUT FILE OPEN - OK to discard? (Y) ^A
^T-^^Y"NOXIT$''
! ready to go to work - ask for file name !
!GET! MZ ^A$H$J$q^AI



			-TECO- -UPDATE-  MULTI-VOLUME
			      DIRECTORY UPDATER
			        REV 8-SEP-83

			COPYRIGHT 1983    M. VAN SWAAY

	  PLEASE MOUNT VOLUME HOLDING CURRENT DIRECTORY ON DEVICE DK:

			AND ENTER DIRECTORY FILE NAME:

				DK:$ .U1 ZJ
8#2#ETET < -1W ^TUT
QT-13 "E^T$ 0,(Q1-3)K 0;'
QT-127"E .-Q1"G-D'F<'QT-21 "E Q1,ZKF<'
QT"R QTI$F<'QT-^^["E QTI$F<'QT-^^]"E QTI$F<'QT-^^."E QTI$F<'QT-^^-"E QTI$'>
Z-4"L
   MZ ^A$H$K$p^A
   ^A-UPDATE-I- NO FILE NAME SUPPLIED - STRIKE ANY KEY TO EXIT ^A
   ^THKOXIT$'
! save filespec in F, verify existence of supplied file name !
J:S[$"S1RB,.XF|HXFZJI[-1]$'
:ER^EQF$"F
   MZ
   ^A$H$K^G$p-UPDATE-W- ^A:GF
   ^A DOES NOT EXIST - RE-ENTER (Y) or QUIT (Q) ? ^A
   <^TUTQT-^^Y"EHK0;'QT-^^Q"EHKOXIT$'7^T>OGET$'
HXFHK   ! save filespec with length for later !
! get output volume ID and save it in reg. O !
ERDK:$2#EDED_DECRT11A$8R.,ZK24R.,ZXOHK2^_&EDED$
! clear reg. D, get and install read and merge routines !
0,0XD ERSY:RDIR.TEC$HKYHXXERSY:MERGE.TEC$HKYHXYHK
! display menu, proceed on keystroke !
MZ^A$H$J$p^A
^A-UPDATE-M- ESC V (PF4) READS NEW VOLUME - ESC W (PF5) MERGES OUTPUT -
     ---- POSTPONE INSERTION OF  COMMENTS UNTIL MERGE STAGE ----     
     ---- strike any key to remove this message and proceed ----     ^A^T
! exit path, remove prompt, turn off command file and start screen macro !
!XIT!^A$H$J$q^A1^_&ETET^UTEI$27:^UT$:^UTMI$27:^UT$27:^UT$MT$$
                             