%title	"Block mode I/O - Close"
	%ident	"V1-002"

	function long bio_close (long bio_lun)

!+
! Version:	V1-002
!
! Facility:	Library routines - Block mode I/O.
!
! Abstract:	Close a file opened for block mode i/o.
!
! Environment:	User mode.
!
! History:
!
!	09-Dec-1988, DBS, Version V1-001
! 001 -	Original version.
!	27-Dec-1995, DBS; Version V1-002
! 002 -	Converted from FORTRAN to BASIC.
!-

!++
! Functional Description:
!	This routine simply closes the file opened by BIO_OPEN and is
!	probably unnecessary but by having it there is some sort of
!	consistency about the code. (?)
!
! Calling Sequence:
!	status = bio_close (lun)
!		-or-
!	pushal	lun
!	calls	#1, g^bio_close
!
! Formal Argument(s):
!	bio_lun.rl.r	Address of a longword containing the logical unit
!			number of the file.
!
! Implicit Inputs:
!	None
!
! Implicit Outputs:
!	None
!
! Completion Codes:
!	Always true.
!
! Side Effects:
!	None
!--

	option	type = explicit,					  &
		constant type = integer,				  &
		size = (integer long, real double)

! External references (and includes)

%include "$SSDEF" %from %library "SYS$LIBRARY:BASIC$STARLET.TLB"

!+
! Mainline
!-
mainline:

	close #bio_lun

	bio_close = ss$_normal

  	end function