From c714c442442ef137f20ca4ff9707d5480cb9ba7a Mon Sep 17 00:00:00 2001
From: Charles Forsyth <charles.forsyth@gmail.com>
Date: Wed, 29 Apr 2015 15:19:07 +0100
Subject: remove obsolete minitel, but leave source as example

---
 appl/examples/minitel/event.m | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 appl/examples/minitel/event.m

(limited to 'appl/examples/minitel/event.m')

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
+};
-- 
cgit v1.2.3