1 files changed, 50 insertions, 0 deletions
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〉 EUMEL - Netz - Software;                         04.12.83
+  ber…ksichtigt 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;