|
// Rosetta Code problem: https://www.rosettacode.org/wiki/Get_system_command_output
|
|
// by Jjuanhdez, 06/2022
|
|
|
|
if peek$("os") = "unix" then
|
|
c$ = "ls *"
|
|
else //"windows"
|
|
c$ = "dir *.*"
|
|
fi
|
|
|
|
open("dir_output.txt") for writing as #1
|
|
print #1 system$(c$)
|
|
close #1
|