! NAM.N ! ZKEWDIR.NNN0JZKERIN1na.tttAZJ-ZXA0JZK0JZKERIN2NA.TTTA0JZXBZK0JI $ DIR/OUT:GAI/BRI/COL:1 GB I $ TECO namef.nnn ECEWNAMEF.nnn0JZKI0JZKEBGA27II0JZKAAA27II0J27II0J SORY 27II0K27IIS]27II0XA-ZK27II 2KZJ-2K0J27IIEG27I27IEG@DIR.nnn ZKEWDIR.NNN! OPEN UP THE DIR.NNN COM LINE! 0JZKERIN1NA.TTT! GET THE NAME OF THE NAME LIST THE USER DESIRES ! A! ELIMINATE ANY CARRIAGE RETURNS! ZJ-ZXA0JZK ! SAVE IT IN "A" BUFFER! 0JZKERIN2NA.TTT! GET THE SEARCH CRITERIAA FOR THE DIR THE USER DESIRES ! A! ELIMINATE ANY CARRIAGE RETURNS! 0JZXBZK ! SAVE IT IN "B" BUFFER! ! BUILD THE DIR COM LINE! I $ DIR/OUT:GAI/BRI/COL:1 GB I $ TECO namef.nnn EC !CLOSE THIS FILE! ! NOW CREATE NAMEF.nnn! EWNAMEF.nnn0JZKI0JZKEBGA27I I0JZKAAA27II0J ! CLEAN OFF THE HEADER AND TRAILER JUNK! SORY 27II0K27IIS]27II0XA-ZK27II 2KZJ-2K ! eliminate the stuff after the ";"'s ! I0J27I! PUT THE USER ID IN FRONT OF THE LINES:! !*HERE IF I WISH TO PUT THE USER ID FROM BUFF "A" IN FRONT OF EVERY LINE *! ! ELIMINATE THE SPACES! 0J27IIEG27I27IEG@DIR.NNN! CLOSE THE OUTPUT FILE & EXECUTE THE DIR.NNN FILE!