1323c323 2< PARAMETER (INPUT0=5, NOISE=0, LUNIT=4) 3--- 4> PARAMETER (INPUT0=5, NOISE=0, LUNIT=9) 5659c659 6< OPEN (UNIT=INPUT+1,ERR=101,STATUS='OLD',FILE=TITLE(J:K)) 7--- 8> OPEN (UNIT=INPUT-1,ERR=101,STATUS='OLD',FILE=TITLE(J:K)) 9661c661 10< INPUT = INPUT + 1 11--- 12> INPUT = INPUT - 1 131105d1104 14< & DISPOSE='DELETE', 151111c1110 16< OPEN (UNIT=INPUT+1,ERR=71,STATUS='OLD', 17--- 18> OPEN (UNIT=INPUT-1,ERR=71,STATUS='OLD', 191122c1121 20< OPEN (UNIT=INPUT+1,ERR=73,STATUS='OLD',FILE=FULLNAME) 21--- 22> OPEN (UNIT=INPUT-1,ERR=73,STATUS='OLD',FILE=FULLNAME) 231128,1129c1127,1128 24< INPUT = INPUT + 1 25< CALL ASSERT(INPUT-INPUT0.LE.MAXLEV, 26--- 27> INPUT = INPUT - 1 28> CALL ASSERT(INPUT0-INPUT.LE.4, 292307c2306 30< IF (INPUT.GT.INPUT0) THEN 31--- 32> IF (INPUT.LT.INPUT0) THEN 332310c2309 34< INPUT = INPUT - 1 35--- 36> INPUT = INPUT + 1 37