PARAMETER TOP_STREAM = 50, TOP_BUFFER = 1000, TOP_MBX_BUFFER = 50
C
        COMMON /STORAGE/ STREAMS, BUFFERS, MBX_BUFFERS
C
        RECORD /STREAMBLOCK/ STREAMS(TOP_STREAM)
        RECORD /VOTSBUFFER/  BUFFERS(TOP_BUFFER)
        RECORD /MBXBUFFER/   MBX_BUFFERS(TOP_MBX_BUFFER)
C