CORSEC - memory allocation * processor time.
Usage:
used = corsec(a)
Where:
    - used 
 
    - is a real value equal to the number of page-seconds of
        memory that the program has used. 
 
    - a 
 
    - is a real variable where the result is also returned. 
 
Description:
This subroutine provides a means of obtaining the product of
memory allocation and processor time. 1 page is 1024 words.
Copyright © 1996, Thinkage Ltd.