1 MAXFILES=2:CLEAR600:DEFINTI-N:OPEN"DIRLST"FORINPUTAS1:OPEN"ZZZ"FOROUTPUTAS2:SP$="_ 2 IFEOF(1)THEN7 3 LINEINPUT#1,A$:IFLEFT$(A$,1)="<"THEN5 4 PRINT#2,LEFT$(A$,9)SP$" 1"SP$RIGHT$(A$,LEN(A$)-10):GOTO2 5 PRINT#2,"<";:IFLEN(A$)>11THENA$=MID$(A$,2,10)ELSEA$=RIGHT$(A$,LEN(A$)-1)+SPACE$(11-LEN(A$)) 6 PRINT#2,A$DATE$" 88888":GOTO2 7 CLOSE:KILL"DIRLST.DO":NAME"ZZZ.DO"AS"DIRLST.DO":MAXFILES=1:MENU