#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
# The colour pairs are:-
#
package main;
+use vars qw($maxkhist $maxshist $foreground $background $mycallcolor @colors );
+use Curses;
+
$maxkhist = 100;
$maxshist = 500;
if ($ENV{'TERM'} =~ /(xterm|ansi)/) {