! DK:DIRSRT.TXT DATE: 1-JUN-83 TIME: 10:43:02 ! ! invoke as disk file with "EISY:DIRSRT", sort directory file ! ^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-DIRSRT-W- TEXT IN BUFFER - OK to discard? (Y) ^A ^T-^^Y"NOXIT$|HK'' EW$G*Z"G HK MZ ^A$H$K^G$p-DIRSRT-W- OUTPUT FILE OPEN - OK to discard? (Y) ^A ^T-^^Y"NOXIT$|HKEK'' ER$G*Z"G HK MZ ^A$H$K^G$p-DIRSRT-W- INPUT FILE OPEN - OK to discard? (Y) ^A ^T-^^Y"NOXIT$'' ! get and install sort routine ! ERSY:DSORT.TEC$HKYHXXHK ! ready to go to work - ask for file name ! MZ ^A$H$J$q^AI -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 ^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-DIRSRT-I- NO FILE NAME SUPPLIED - STRIKE ANY KEY TO EXIT ^A ^TOXIT$' ! open/backup file on DK: max. length if none entered ! JIEB$:S]$"FZJI[-1]$' ZJ27I$27I$HXYHKMY0,0XY Y<^N:;MXP>EF !XIT!^A$H$J$q^A1^_&ETET^UTEI$27:^UT$:^UTMI$27:^UT$27:^UT$MT$$