11 lines
317 B
Plaintext
Executable File
11 lines
317 B
Plaintext
Executable File
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$
|