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