1 files changed, 29 insertions, 0 deletions
diff --git a/system/net/1.7.5/src/net report-M b/system/net/1.7.5/src/net report-M
new file mode 100644
index 0000000..3ce67ff
--- /dev/null
+++ b/system/net/1.7.5/src/net report-M
@@ -0,0 +1,29 @@
+PACKET net report DEFINES report: 
+
+LET reportcode = 99;
+
+PROC report (TEXT CONST x):
+  report(x,"") 
+END PROC report;
+
+PROC report (TEXT CONST txt, info): 
+  IF storage (old("report")) > 20 THEN forget ("report",quiet) FI;
+  reportfile := sequential file (output, "report");
+  put (reportfile, date);
+  put (reportfile, time of day);
+  put (reportfile, txt); 
+  INT VAR i; 
+  FOR i FROM 1 UPTO length (info) REP 
+    INT VAR z :=  code (infoSUBi)  ;
+    IF z < 32 OR z > 126 
+      THEN put (reportfile,"%"+text(z)) 
+      ELSE put (reportfile,infoSUBi)
+    FI
+  PER; 
+  line (reportfile); 
+  DATASPACE VAR net report := old ("report"); 
+  send (father, report code , net report)
+END PROC report; 
+FILE VAR reportfile; 
+ 
+END PACKET net report;