diff lisp/games/flame.el @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
line wrap: on
line diff
--- a/lisp/games/flame.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/games/flame.el	Mon Aug 13 09:02:59 2007 +0200
@@ -1,32 +1,3 @@
-;;; flame.el --- Automated insults
-
-;; Copyright status Unknown
-
-;; Author: Unknown
-;; Adapted-By: Ian G. Batten, Batten@uk.ac.bham.multics
-;; Keywords: games
-
-;; This file is part of XEmacs.
-
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; XEmacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-;;; Synched up with: Not in FSF
-
-;;; Commentary:
-
 ;;; "Flame" program.  This has a chequered past.
 ;;;
 ;;; The original was on a Motorola 286 running Vanilla V.1,
@@ -39,7 +10,6 @@
 ;;; Ian G. Batten, Batten@uk.ac.bham.multics
 ;;;
 
-;;; Code:
 (random t)
 
 (defvar sentence
@@ -338,5 +308,3 @@
     (flame2 (if (= (random 2) 0) 2 1))
     (sit-for 0)
     (doctor-ret-or-read 1)))
-
-;;; flame.el ends here