Mercurial > hg > xemacs-beta
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