! DK:DIRSRT.TEC DATE: 1-JUN-83 TIME: 10:43:02 ! ! invoke as disk file with "EISY:DIRSRT", sort directory file ! ^UZ1#32#ETET<"S0;'>32^_&ETET27:^UZ27:^UZ !MZ sets image mode, drains KB! ! damage prevention first ! Z"G MZ HKp-DIRSRT-W- TEXT IN BUFFER - OK to discard? (Y)  -Y"NOXIT|HK'' EWG*Z"G HK MZ HKp-DIRSRT-W- OUTPUT FILE OPEN - OK to discard? (Y)  -Y"NOXIT|HKEK'' ERG*Z"G HK MZ HKp-DIRSRT-W- INPUT FILE OPEN - OK to discard? (Y)  -Y"NOXIT'' ! get and install sort routine ! ERSY:DSORT.TECHKYHXXHK ! ready to go to work - ask for file name ! MZ HJqI -TECO- -DIRSRT- MULTI-VOLUME DIRECTORY SORTER REV 1-JUN-83 PLEASE MOUNT DIRECTORY VOLUME 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 -DIRSRT-I- NO FILE NAME SUPPLIED - STRIKE ANY KEY TO EXIT  OXIT' ! open/backup file on DK: max. length if none entered ! JIEB:S]"FZJI[-1]' ZJ27I27IHXYHKMY0,0XY Y<:;MXP>EF !XIT!HJq1^_&ETET^UTEI27:^UT:^UTMI27:^UT27:^UTMT