þþ èX;SAVE #D2:DUPDIR.M65òAŽLIST DIRECTORYAü.X; **** DIRECTORY LISTING ROUTINE ****X;X;†DIRLST „DLMG$ †GETIC1.! †USEBUF;;INIT BUFADR & BUFLEN8$ƒPTRB&QƒPAR9;;LAST CHAR OF SEARCH SPECLR> :;;IF COLON, ADD *.*VHƒGLF`Q> *j PƒPAR9t PƒPAR9~Q> .ˆ PƒPAR9’2œ2¦2°&ƒPTRº'ƒGLFQ>‚CR;; Put RETURN at end of bufÄ PƒPAR9Î &„SAVXØ$> â …PIOCBì †GETFILö „PERX)Q>;;READ DIR INFO - use new mode!!!! $> P…ICAX19Q>„OPEN;;OPEN( P…ICCOM92%&„CSRC;;COPY SOURCE=DIRECTORY INFO< …CIOCLFQƒPTRP;Z S„SAVXd0R>;;IF ONLY 3 CHARS, IS 'D:'CR, USE DEFAULTn F…DLST1x…DLST0!„PDES;;GO INTO COPY‚…DLST1$„SAVXŒ QƒPAR9–R> D  H…DLST0ª&!…PDES1;;GO INTO COPY WITH DES='E:'´X;¾1„DLMG A¡DIRECTORY--SEARCH SPEC,LIST FILE?A=‚CR