From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 app/speedtest/1986/src/notice | 102 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100644 app/speedtest/1986/src/notice

(limited to 'app/speedtest/1986/src/notice')

diff --git a/app/speedtest/1986/src/notice b/app/speedtest/1986/src/notice
new file mode 100644
index 0000000..ea1bca9
--- /dev/null
+++ b/app/speedtest/1986/src/notice
@@ -0,0 +1,102 @@
+PACKET notice DEFINES notice material,
+                      notice heading,
+                      notice operation,
+                      notice result, 
+                      notice frequency,
+                      notice runtime,
+                      output mem :
+
+
+(***************************************************************************)
+(*                                                                         *)
+(*  Autor: A. Steinmann                        Copyright (C): HRZ - Unibi  *)
+(*                                                                         *)
+(***************************************************************************)
+
+
+FILE VAR mem ;
+
+
+
+PROC notice result (TEXT CONST operation, REAL CONST runtime) :
+
+  TEXT VAR layout :: "" ;
+ 
+  layout CAT (operation + (40 - LENGTH operation) * " " + text (runtime, 10, 5) + "   msec") ;
+  putline (mem, layout) 
+
+END PROC notice result ;
+
+
+
+PROC notice material (TEXT CONST name) :
+
+  TEXT VAR layout :: "" ;
+
+  layout CAT ("     " + name) ;
+  line (mem, 4) ;
+  putline (mem, layout) ;
+  layout := "     " + LENGTH name * "=" ;
+  putline (mem, layout) ;
+  line (mem, 3) 
+
+END PROC notice material ;
+
+
+
+PROC notice heading (TEXT CONST name) :
+
+  TEXT VAR layout :: "" ;
+
+  layout CAT ("     " + name) ;
+  line (mem,2) ;
+  putline (mem, layout) ;
+  line (mem, 1) ;
+
+  display (""6""+code(21)+code(0)) ;
+  display (""5""13"") ;
+  display (""15""+" "+name+" "+""14"")
+
+END PROC notice heading ;
+
+
+
+PROC notice frequency (INT CONST frequency 1, frequency 2) :
+
+  line (mem, 1) ;
+  put (mem, "Wiederholungsfaktor f�r schnelle Operationen :   "+text (frequency 1)) ;
+  line (mem, 1) ;
+  put (mem, "Wiederholungsfaktor f�r langsame Operationen :   "+text (frequency 2)) ;
+  line (mem, 1)
+
+END PROC notice frequency ;
+
+
+
+PROC notice operation (TEXT CONST operation) :
+
+  display(""6""+code(22)+code(0)) ;
+  display (""5""13"") ;
+  display (""15""+" "+ operation +" "+""14"") ;
+
+END PROC notice operation ;
+
+
+
+PROC notice runtime (REAL CONST runtime) :
+
+  line (mem, 3) ;
+  putline (mem, "Gesamtlaufzeit : " + text (runtime)) ;
+
+END PROC notice runtime ;
+
+
+
+PROC output mem :
+
+  mem := sequential file (output, "memory")
+
+END PROC output mem ;
+
+
+END PACKET notice ;
-- 
cgit v1.2.3