mirror of
https://github.com/livingcomputermuseum/pdp7-unix.git
synced 2026-02-07 00:47:56 +00:00
20 lines
368 B
Brainfuck
20 lines
368 B
Brainfuck
main $(
|
|
auto ch;
|
|
extrn read, write;
|
|
|
|
goto loop;
|
|
while (ch != 04)
|
|
$( if (ch > 0100 & ch < 0133)
|
|
ch = ch + 040;
|
|
if (ch==015) goto loop;
|
|
if (ch==014) goto loop;
|
|
if (ch==011)
|
|
$( ch = 040040;
|
|
write(040040);
|
|
write(040040);
|
|
$)
|
|
write(ch);
|
|
loop:
|
|
ch = read()&0177;
|
|
$)
|
|
$) |