DEFINITION MODULE FilePool; (* LG 05.06.80 *) (* for RT-11 operating system *) EXPORT QUALIFIED GetFileNumber; PROCEDURE GetFileNumber(VAR filenum: CARDINAL); (* get file number of free channel *) END FilePool.