transcribed from 08-rest.pdf

2016-02-25 20:06:07 -05:00
parent 09f1418307
commit 08f0bea8d0
1 changed files with 20 additions and 0 deletions
@@ -0,0 +1,20 @@
 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;
      $)
  $)