PROGRAM LISTING: 89-10a/QDIR.M65

þþ%ƒCOM<H…CLEANŽ˜
†GETDRV¢X; Show only a question mark¬X; as a prompt for file spec¶#X; No room for more in the code.À$>P…ICCOMÞ&†ICBLENè&†ICBLEN
òQ>
?ü ƒCIOX; Accept the user's fileX; specification.Q>…CGTXR$
P…ICCOM.Q>5‡FILEBUF8P†ICBADR
B&†ICBADRLQ>(VP†ICBLEN` ƒCIOjX; FILEBUF now containstX; the text file spec~X; to use as a templateˆX; for the directory’X; listing.œ
†GOTDRV¦$>P°Q>†CCLOSEºP…ICCOM9Ä ƒCIOÎ
Q>„COPNØP…ICCOM9âQ>5‡FILEBUFìP†ICBADR
9öQ>Q>…OPDIRP†ICAUX19Q>€(P†ICAUX292 ƒCIO<
GˆCLOSEDRVF
†GETFILP$>PZQ>P…ICCOM ƒCIO"I†GETFIL,ˆCLOSEDRV6$>P@Q>†CCLOSEJP…ICCOM9T!ƒCIO^
„CODEƒCOMhàr	†GETDRV|