projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 69f28986 KT |
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 | $) |