Anonymous user
Bitwise IO: Difference between revisions
m
→version 2: added whitespace, simplified some code, optimized a function.
(Add source for Rust) |
m (→version 2: added whitespace, simplified some code, optimized a function.) |
||
Line 2,729:
===version 2===
<lang rexx>/*REXX pgm encodes/decodes/displays ASCII character strings as (7─bits) binary string.*/
parse arg $; if $=='' then $= 'STRING'
say ' input string=' $ /*display the input string to terminal.*/
out= comp($);
ori= dcomp(out);
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
comp: parse arg x; z=;
/*──────────────────────────────────────────────────────────────────────────────────────*/
dcomp: parse arg x; z=;
end
{{out|output|text= when using the default input:}}
<pre>
|