remove obsolete minitel, but leave source as example

1 files changed, 19 insertions, 0 deletions

diff --git a/appl/examples/minitel/event.b b/appl/examples/minitel/event.b
new file mode 100644
index 00000000..f751f55b
--- /dev/null
+++ b/appl/examples/minitel/event.b
@@ -0,0 +1,19 @@
+#
+# Copyright © 1998 Vita Nuova Limited.  All rights reserved.
+#
+
+Event.str(ev: self ref Event) : string
+{
+	s := "?";
+	pick e := ev {
+		Edata =>
+			s = sprint("Edata %d = ", len e.data);
+			for(i:=0; i<len e.data; i++)
+				s += hex(int e.data[i], 2) + " ";
+		Equit =>
+			s = "Equit";
+		Eproto =>
+			s = sprint("Eproto %ux (%s)", e.cmd, e.s);
+	}
+	return s;
+}