11 lines
249 B
Text
11 lines
249 B
Text
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
|