1 files changed, 43 insertions, 0 deletions
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
+