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:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user