From 08f0bea8d09b6a5bf7a7a756c2f637a6eeb75fc2 Mon Sep 17 00:00:00 2001
From: rswier <rswier@acm.org>
Date: Thu, 25 Feb 2016 20:06:07 -0500
Subject: [PATCH] transcribed from 08-rest.pdf

---
 scans/lease.b | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 scans/lease.b

diff --git a/scans/lease.b b/scans/lease.b
new file mode 100644
index 0000000..df6c6df
--- /dev/null
+++ 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;
+      $)
+  $)
\ No newline at end of file