Renamed lease.b to lcase.b

lcase.b is a filter program that converts upper to lower case, tabs to spaces, and removes form feed and carriage returns.
2016-02-29 23:21:52 -05:00
parent ab0427034f
commit a17ba2eec3
2 changed files with 1 additions and 1 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;
+      $)
+  $)