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