RosettaCodeData/Task/Get-system-command-output/PureBasic/get-system-command-output.basic

If OpenConsole("ls")
  rp=RunProgram("ls", "-l", "",#PB_Program_Open|#PB_Program_Read)
  While ProgramRunning(rp)
    If AvailableProgramOutput(rp)
      r$+ReadProgramString(rp)+#LF$
    EndIf
  Wend
  CloseProgram(rp)
  PrintN(r$)
  Input()
EndIf