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/net/1.7.5/src/net inserter | 50 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 system/net/1.7.5/src/net inserter

(limited to 'system/net/1.7.5/src/net inserter')

diff --git a/system/net/1.7.5/src/net inserter b/system/net/1.7.5/src/net inserter
new file mode 100644
index 0000000..8cccedd
--- /dev/null
+++ b/system/net/1.7.5/src/net inserter	
@@ -0,0 +1,50 @@
+
+{ Inserter fr EUMEL - Netz - Software;                         04.12.83
+  bercksichtigt EUMEL - Versionen 1.7.3 und 1.7.5, sowie Multi / Single } 
+ 
+ 
+INT VAR version :: id (0), cy :: 4;
+IF online THEN head FI;
+
+IF ich bin multi THEN insert multi net
+                 ELSE meldung an single
+FI.
+
+ich bin multi : (pcb (9) AND 255) > 1.
+
+insert multi net :
+   IF version >= 173 THEN IF version < 175 THEN insert and say ("callee") FI; 
+                          insert and say ("net report/M"); 
+                          insert and say ("basic net"); 
+                          insert and say ("net manager/M") 
+                     ELSE versionsnummer zu klein
+   FI.
+
+meldung an single : 
+   cursor (1, cy);
+   putline
+   ("Das EUMEL - Netz ist zur Zeit nur auf Multi - User - Versionen");
+   putline ("installierbar !").
+
+head :
+   page;
+   putline (" E U M E L  -  Netz  -  Inserter");
+   put     ("---------------------------------").
+ 
+versionsnummer zu klein : 
+   cursor (1, cy);
+   putline ("Netzsoftware erst ab Version 1.7.3 insertierbar !").
+ 
+PROC insert and say (TEXT CONST name of packet): 
+   IF online THEN cl eop (1, cy); 
+                  put ("Paket '" + name of packet + "' wird insertiert"); 
+                  line (2);
+                  cy INCR 1
+   FI;
+   insert (name of packet); 
+END PROC insert and say;
+
+PROC cl eop (INT CONST cx, cy) :
+   cursor (cx, cy);
+   out    (""4"")
+END PROC cl eop;
-- 
cgit v1.2.3