remove obsolete minitel, but leave source as example

1 files changed, 19 insertions, 0 deletions

diff --git a/appl/examples/minitel/event.m b/appl/examples/minitel/event.m
new file mode 100644
index 00000000..1b524363
--- /dev/null
+++ b/appl/examples/minitel/event.m
@@ -0,0 +1,19 @@
+#
+# Copyright © 1998 Vita Nuova Limited.  All rights reserved.
+#
+
+Event: adt {
+	path: int;					# path for delivery
+	from: int;					# sending module (for reply)
+	pick {
+		Edata =>
+			data: array of byte;
+		Eproto =>
+			cmd: int;
+			s: string;
+			a0, a1, a2: int;		# parameters
+		Equit =>
+	}
+
+	str: 	fn(e: self ref Event) : string;	# convert to readable form
+};