%%HP: T(3)A(D)F(.);
@ Program DL - Directory List
@ RBJ 4/12/90
@     5/03/90 Added CLLCD for new RDL display characteristics
\<< 
  "DL Directory Listing" PR1 DROP           @ Print "Header"
  DATE TIME TSTR PR1 DROP CR                @ Date and Time Stamp
  CLLCD PATH                                @ Clear Screen, Save curr path
  RCLF STD                                  @ Save flags, set STD
  HOME VARS RDL                             @ Actual directory list
  STOF EVAL                                 @ Restore flags, path
  CR "DL Complete" PR1 DROP                 @ Print "Trailer"
\>>
