mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-13 07:20:05 +00:00
a17ba2eec3
lcase.b is a filter program that converts upper to lower case, tabs to spaces, and removes form feed and carriage returns.
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;
|
|
$)
|
|
$) |