From 1e4a80b7dee1db11d1ba58e65cb53366a586e087 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 2 Feb 2018 09:55:45 +0100
Subject: [PATCH] Fix ADVENT to use another input file name.

---
 build/build.tcl     | 4 +---
 src/games/advent.f4 | 2 +-
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/build/build.tcl b/build/build.tcl
index 6e14d53b..64c0d52f 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -1070,10 +1070,8 @@ respond "*" "advent=advent\r"
 respond "CORE USED" "\032"
 type ":kill\r"
 respond "*" ":dec sys:loader\r"
-respond "*" "advent\r"
-respond "*" "/go\r"
+respond "*" "advent/go\r"
 respond "EXIT" ":start\r"
-respond "(ALT)" "advent.dat\033"
 respond "*" "\032"
 type ":start 45\r"
 respond "Command:" "d"
diff --git a/src/games/advent.f4 b/src/games/advent.f4
index 456ebe85..d4d3c320 100644
--- a/src/games/advent.f4
+++ b/src/games/advent.f4
@@ -37,7 +37,7 @@ C READ THE PARAMETERS
 	IF(I.LE.100)RTEXT(I)=0
 1001	LTEXT(I)=0
 	I=1
-	CALL IFILE(1,'TEXT')
+	CALL IFILE(1,'ADVENT')
 1002	READ(1,1003) IKIND
 1003	FORMAT(G)
 	GOTO(1100,1004,1004,1013,1020,1004,1004)(IKIND+1)