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

---
 lang/dynamo/1.8.7/src/dyn.print | 43 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 lang/dynamo/1.8.7/src/dyn.print

(limited to 'lang/dynamo/1.8.7/src/dyn.print')

diff --git a/lang/dynamo/1.8.7/src/dyn.print b/lang/dynamo/1.8.7/src/dyn.print
new file mode 100644
index 0000000..36ea279
--- /dev/null
+++ b/lang/dynamo/1.8.7/src/dyn.print
@@ -0,0 +1,43 @@
+PACKET dynamo printer DEFINES initialize print, new line, print :
+ 
+BOOL VAR prt;
+TEXT VAR headline;
+REAL VAR prtper, nextprint;
+ 
+PROC initialize print (TEXT CONST h) :
+ headline := h;
+ prtper := get prtper;
+ nextprint := 0.0
+END PROC initialize print;
+ 
+PROC new line (REAL CONST time) :
+ IF time >= nextprint
+  THEN do lf
+  ELSE prt := FALSE
+ FI; 
+ WHILE time >= nextprint REP
+  nextprint INCR prtper
+ PER.
+ 
+ do lf :
+  print line;
+  prt := TRUE;
+  IF pagefeed necessary OR NOT was print
+   THEN vdt;
+        sys page;
+        print headline
+  FI;
+  print (time).
+ 
+ print headline :
+  println ("TIME          " + headline).
+END PROC new line;
+ 
+PROC print (REAL CONST r) :
+ IF prt
+  THEN print output (text (text (round (r, 5)), 13))
+ FI
+END PROC print
+ 
+END PACKET dynamo printer
+
-- 
cgit v1.2.3