include qlib.inc
include dos.inc
include string.inc
include stdio.inc
include conio.inc

.data
  fileblk ffblk <>
 
.code
main proc
  callp clrscr
  callp findfirst,"*.*",10h,offset fileblk  ;DIRS!
  .if eax==ERROR
    jmp done1
  .endif
@@:
  .if fileblk.ff_attrib==10h
    callp printf,"\\%s\n",offset fileblk.ff_name
  .endif
  callp findnext,offset fileblk
  .if eax==ERROR
    jmp done1
  .endif
  jmp @b
done1:
  callp findfirst,"*.*",0h,offset fileblk  ;FILES!
  .if eax==ERROR
    jmp done2
  .endif
@@:
  callp printf,"%s\n",offset fileblk.ff_name
  callp findnext,offset fileblk
  .if eax==ERROR
    jmp done2
  .endif
  jmp @b
done2:
  ret
main endp

end