RosettaCodeData/Task/Execute-a-system-command/FutureBasic/execute-a-system-command-2....

13 lines
183 B
Plaintext

local fn DoUnixCommand( cmd as str255 )
str255 s
open "Unix", 2, cmd
while ( not eof(2) )
line input #2, s
print s
wend
close 2
end fn
fn DoUnixCommand( "ls -A" )