SUBROUTINE LIST.SIZE
****************************************
* This subroutine returns the number of
* frames used by a list.  It is called
* from dictionary item LIST.SIZE in the
* master dictionary (MD).
****************************************
$INCLUDE ACCESS.COMMON
CURRENT$=INT(CURRENT$/2000)+1
RETURN CURRENT$