NewList lslist.s()

If OpenConsole("ls-sim")
  If ExamineDirectory(0,GetCurrentDirectory(),"*.*")
    While NextDirectoryEntry(0)
      AddElement(lslist()) : lslist()=DirectoryEntryName(0)
    Wend
    FinishDirectory(0)
    SortList(lslist(),#PB_Sort_Ascending)
    ForEach lslist()
      PrintN(lslist())
    Next
  EndIf
  Input()
EndIf