From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/setup/3.1/src/setup eumel 0: -S | 35 ++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 system/setup/3.1/src/setup eumel 0: -S

(limited to 'system/setup/3.1/src/setup eumel 0: -S')

diff --git a/system/setup/3.1/src/setup eumel 0: -S b/system/setup/3.1/src/setup eumel 0: -S
new file mode 100644
index 0000000..50a8330
--- /dev/null
+++ b/system/setup/3.1/src/setup eumel 0: -S	
@@ -0,0 +1,35 @@
+PACKET setup eumel singleuserspecials      (* Copyright (C) 1985, 1988 *)
+DEFINES terminal setup,                    (* Martin Schönbeck, Spenge *)
+        break,                             (* Lutz Prechelt, Karlsruhe *)
+        indirect list,                     (* Stand: 07.05.88   2.1    *)
+        setup testing :
+
+LET printer channel  = 15,
+    screen  channel  =  1;
+
+ 
+PROC break (QUIET CONST quiet): 
+END PROC break; 
+ 
+PROC terminal setup:
+  setup
+END PROC terminal setup;
+
+PROC indirect list (BOOL CONST make indirection) :
+  (* Man beachte, daß es nicht besonders sinnvoll ist, auf einem Drucker
+     cout zu machen...
+  *)
+  IF make indirection
+  THEN continue (printer channel)
+  ELSE continue (screen channel)  FI.
+END PROC indirect list;
+
+PROC setup testing (BOOL CONST new):
+END PROC setup testing;
+
+BOOL PROC setup testing :
+  FALSE.
+END PROC setup testing;
+
+END PACKET setup eumel singleuserspecials;
+
-- 
cgit v1.2.3