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

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" )
Initial data commit 2023-07-01 11:58:00 -04:00			`local fn DoUnixCommand( cmd as str255 )`
Data update 2023-09-01 09:35:06 -07:00			`str255 s`
Initial data commit 2023-07-01 11:58:00 -04:00
			`open "Unix", 2, cmd`
			`while ( not eof(2) )`
			`line input #2, s`
			`print s`
			`wend`
			`close 2`
			`end fn`

			`fn DoUnixCommand( "ls -A" )`