! DK:UPDATE.TEC DATE: 8-SEP-83 TIME: 19:43:38 ! ! invoke as disk file with "EISY:UPDATE", loads + starts updater ! ^UZ1#32#ETET<"S0;'>32^_&ETET27:^UZ27:^UZ !MZ sets image mode, drains KB! ! damage prevention first ! Z"G MZ HKp-UPDATE-W- TEXT IN BUFFER - OK to discard? (Y)  -Y"NOXIT|HK'' EWG*Z"G HK MZ HKp-UPDATE-W- OUTPUT FILE OPEN - OK to discard? (Y)  -Y"NOXIT|HKEK'' ERG*Z"G HK MZ HKp-UPDATE-W- INPUT FILE OPEN - OK to discard? (Y)  -Y"NOXIT'' ! ready to go to work - ask for file name ! !GET! MZ HJqI -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 UT QT-13 "E 0,(Q1-3)K 0;' QT-127"E .-Q1"G-D'F<'QT-21 "E Q1,ZKF<' QT"R QTIF<'QT-^^["E QTIF<'QT-^^]"E QTIF<'QT-."E QTIF<'QT--"E QTI'> Z-4"L MZ HKp -UPDATE-I- NO FILE NAME SUPPLIED - STRIKE ANY KEY TO EXIT  HKOXIT' ! save filespec in F, verify existence of supplied file name ! J:S["S1RB,.XF|HXFZJI[-1]' :ERQF"F MZ HKp-UPDATE-W- :GF  DOES NOT EXIST - RE-ENTER (Y) or QUIT (Q) ?  <UTQT-Y"EHK0;'QT-Q"EHKOXIT'7>OGET' HXFHK ! save filespec with length for later ! ! get output volume ID and save it in reg. O ! ERDK:2#EDED_DECRT11A8R.,ZK24R.,ZXOHK2^_&EDED ! clear reg. D, get and install read and merge routines ! 0,0XD ERSY:RDIR.TECHKYHXXERSY:MERGE.TECHKYHXYHK ! display menu, proceed on keystroke ! MZHJp -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 ----  ! exit path, remove prompt, turn off command file and start screen macro ! !XIT!HJq1^_&ETET^UTEI27:^UT:^UTMI27:^UT27:^UTMT