Commit | Line | Data |
---|---|---|
1 | main $( | |
2 | auto ch; | |
3 | extrn read, write; | |
4 | ||
5 | goto loop; | |
6 | while (ch != 04) | |
7 | $( if (ch > 0100 & ch < 0133) | |
8 | ch = ch + 040; | |
9 | if (ch==015) goto loop; | |
10 | if (ch==014) goto loop; | |
11 | if (ch==011) | |
12 | $( ch = 040040; | |
13 | write(040040); | |
14 | write(040040); | |
15 | $) | |
16 | write(ch); | |
17 | loop: | |
18 | ch = read()&0177; | |
19 | $) | |
20 | $) |