transcribed from 08-rest.pdf

2026-02-04 15:53:49 +00:00 · 2016-02-25 20:06:07 -05:00
parent 09f1418307
commit 08f0bea8d0
1 changed files with 20 additions and 0 deletions
--- a/scans/lease.b
+++ b/scans/lease.b
@@ -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;
+      $)
+  $)