Anonymous user
Copy stdin to stdout: Difference between revisions
Added solution for Action!
(Add C# solution.) |
(Added solution for Action!) |
||
Line 27:
section .bss
buffer: resb BUFSZ</lang>
=={{header|Action!}}==
<lang Action!>PROC Main()
CHAR c
DO
c=GetD(7)
Put(c)
UNTIL c=27 ;repeat until Esc key is pressed
OD
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Copy_stdin_to_stdout.png Screenshot from Atari 8-bit computer]
<pre>
COPY STDIN TO STDOUT
</pre>
=={{header|Ada}}==
| |||