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

---
 install/demo/quad.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/install/demo/quad.pp b/install/demo/quad.pp
index 23ae3bba29..38702e62c1 100644
--- a/install/demo/quad.pp
+++ b/install/demo/quad.pp
@@ -79,6 +79,7 @@ Var b           : array[1..nox,1..noy] Of card;
     bgidirec    : string;
     time        : time_record;
 
+{
 Procedure fatal(fcall:String);
 Begin
   textmode(CO80);
@@ -90,6 +91,7 @@ Begin
   readln;
   halt;
 End;
+}
 
 Procedure ginit640x480x16(direc:String);