From 422de0f484ab0b98b23f83df7b189d27a0e63766 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 10 Apr 2019 20:17:51 +0200
Subject: [PATCH] WAR - old Spacewar.

---
 build/misc.tcl  | 17 +++++++++++++++++
 doc/programs.md |  1 +
 2 files changed, 18 insertions(+)

diff --git a/build/misc.tcl b/build/misc.tcl
index 065f4c78..0643d100 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -509,6 +509,23 @@ expect ":KILL"
 respond "*" ":midas games;ts ckr_agb;ckr\r"
 expect ":KILL"
 
+# Old Spacewar
+respond "*" ":cwd spcwar\r"
+respond "*" ":midas;324 spcwar; war\r"
+expect ":KILL"
+respond "*" ":midas spcwar; stars\r"
+expect ":KILL"
+respond "*" ":midas;324 spcwar; math\r"
+expect ":KILL"
+respond "*" ":stink\r"
+respond "\n" "mspcwar; war\033l\033\033"
+respond "\n" "mstars\033l\033\033"
+respond "\n" "mmath\033l\033\033"
+respond "\n" "jwar\033d\033\033"
+respond "\n" "\033y"
+respond " " "dsk0:.;@ war\r"
+respond "*" ":kill\r"
+
 # Spacewar, standalone
 respond "*" ":midas;324 dsk0:.;@ spcwar_spcwar; newwar\r"
 respond "ITS version" "NO\r"
diff --git a/doc/programs.md b/doc/programs.md
index 894cc444..99c329a1 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -348,6 +348,7 @@
 - XHOST, tool for replacing host nicknames with real hostnames.
 - XLISP, teaches Lisp -- part of TEACH system.
 - WA, a Wumpus advisor game.
+- WAR, old Spacewar.
 - WEBSER, HTTP server.
 - WHAT, humorous quips to various "what" questions.
 - WHO%, list index/uname/jname/%time in sorted list.