From da4fbd9ec11aa604122d4af80faba4e5a99fe793 Mon Sep 17 00:00:00 2001
From: alex <alex>
Date: Tue, 22 Feb 2000 03:14:17 +0000
Subject: [PATCH] fixed the warning

---
 install/demo/blackbox.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/install/demo/blackbox.pp b/install/demo/blackbox.pp
index efeb4a714c..29524b0ff5 100644
--- a/install/demo/blackbox.pp
+++ b/install/demo/blackbox.pp
@@ -148,6 +148,7 @@ begin
   Writeln ('Beam exited at : (',x-dx,',',y-dy,',',z-dz,')');
 end;
 
+{
 Procedure DumpCube ;
 
 Var x,y,z : longint;
@@ -159,6 +160,7 @@ begin
         if Cube[x,y,z]<>0 then
           writeln ('Atom at (',x,',',y,',',z,')');
 end;
+}
 
 begin
   FillCube;
@@ -187,7 +189,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  1998-09-11 10:55:20  peter
+  Revision 1.3  2000-02-22 03:14:17  alex
+  fixed the warning
+
+  Revision 1.2  1998/09/11 10:55:20  peter
     + header+log
 
 }