Copy stdin to stdout: Difference between revisions

m
→‎{{header|Phix}}: added syntax colouring, marked p2js incompatible
(Add CLU)
m (→‎{{header|Phix}}: added syntax colouring, marked p2js incompatible)
Line 482:
 
=={{header|Phix}}==
<!--<lang Phix>while true do(notonline)-->
<span style="color: #008080;">without</span> <span style="color: #008080;">js</span>
integer ch = wait_key()
<span style="color: #008080;">while</span> <span style="color: #004600;">true</span> <span style="color: #008080;">do</span>
if ch=#1B then exit end if
<span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
puts(1,ch)
<span style="color: #008080;">if</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">=</span><span style="color: #000000;">#1B</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
end while</lang>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">ch</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
<!--</lang>-->
 
=={{header|PicoLisp}}==
7,795

edits