Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
C	TITLE I N L R G E
C		INCREASES FILE CAPACITY 
	INTEGER ANSWER
      DIMENSION IB(10),B(10),IPAR(10),IFRMAT(3,19)
	COMMON IPAR
      COMMON IFRMAT
      EQUIVALENCE (IB(1),B(1)),(IPAR(1),IDF)
	ID=ANSWER('FILE ID?')
	N=NANSWR('NUMBER OF RECORDS TO ADD?')
      CALL EXPNDF(ID,N)
	CALL SAVEF
	CALL EXIT
	END