7 lines
111 B
Text
7 lines
111 B
Text
|
procedure main()
|
||
|
|
|
||
|
|
write("Trying command ",cmd := if &features == "UNIX" then "ls" else "dir")
|
||
|
|
system(cmd)
|
||
|
|
|
||
|
|
end
|