1
0
mirror of https://github.com/PDP-10/its.git synced 2026-02-08 01:11:18 +00:00

Fix ADVENT to use another input file name.

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

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)