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