github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-18 01:02:15 +00:00
Code Issues Releases Wiki Activity

Fix ADVENT to use another input file name.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-02-02 09:55:45 +01:00
parent 49f9da1664
commit 1e4a80b7de
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
build/build.tcl
View File

@ -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"

2
src/games/advent.f4
View File

@ -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)