From 724cc003460ec67eda269911da85c9f9e40aa6cf Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Fri, 30 Sep 2016 16:57:23 +0200
Subject: Add extracted sources from floppy disk images

Some files have no textual representation (yet) and were added as raw
dataspaces.
---
 dynamo/dyn.print | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 dynamo/dyn.print

(limited to 'dynamo/dyn.print')

diff --git a/dynamo/dyn.print b/dynamo/dyn.print
new file mode 100644
index 0000000..36ea279
--- /dev/null
+++ b/dynamo/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