Anonymous user
Get system command output: Difference between revisions
→{{header|Forth}}
Line 518:
<lang forth>s" ps " system \ Output only
\ read via pipe into buffer
s" ps " r/o open-pipe throw
dup buffer swap 256 swap
read-file throw
swap close-pipe throw drop
| |||