home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / DIR.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  205b  |  13 lines
  1. SUB DIR (Arg$)
  2. IF Arg$="" THEN Arg$="*.*"
  3. OUTSTREAM "Directory {"+Arg$+"}"+CrLf$
  4. A$=DIR$(Arg$)
  5. DO
  6. A$=A$+SPACE$(20-len(A$))
  7. OUTSTREAM A$
  8. A$=DIR$
  9. LOOP WHILE A$<>""
  10. OUTSTREAM CrLf$+CrLf$
  11. END SUB
  12.  
  13.