! DK:MAKE.TEC   DATE: 8-SEP-83   TIME: 19:38:14 !

! invoke as disk file with "EISY:MAKE", loads + starts dir. maker !
^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-MAKE-W- TEXT IN BUFFER - OK to discard? (Y) ^A
^T-^^Y"NOXIT$|HK''
EW$G*Z"G HK MZ ^A$H$K^G$p-MAKE-W- OUTPUT FILE OPEN - OK to discard? (Y) ^A
^T-^^Y"NOXIT$|HKEK''
ER$G*Z"G HK MZ ^A$H$K^G$p-MAKE-W- INPUT FILE OPEN - OK to discard? (Y) ^A
^T-^^Y"NOXIT$''
! ready to go to work - ask for file name !
MZ ^A$H$J$q^AI



			-TECO- -MAKE-  MULTI-VOLUME
			    DIRECTORY GENERATOR
			       REV 8-SEP-83

			COPYRIGHT 1983  M. VAN SWAAY

		PLEASE MOUNT DIRECTORY OUTPUT 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-MAKE-I- NO OUTPUT FILE SUPPLIED - STRIKE ANY KEY TO EXIT ^A
^TOXIT$'
! open output file on DK: max. length if none entered !
JIEW$:S]$"FZJI[-1]$'
ZJ27I$27I$HXYHKMY0,0XY
! 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 write routines !
0,0XD ERSY:RDIR.TEC$HKYHXXERSY:WROUT.TEC$HKYHXYHK
! display menu, proceed on keystroke !
MZ^A$H$J$p^A
^A-MAKE-M- ESC V (PF4) READS NEW VOLUME - ESC W (PF5) WRITES OUTPUT -
    ---- 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$$
                                                                                                                                                                                                                                                                                                                                                