IMPLEMENTATION MODULE Storage ; IMPORT SysStorage ; PROCEDURE ALLOCATE (VAR a: ADDRESS ; Size: CARDINAL) ; BEGIN SysStorage.ALLOCATE(a, Size) END ALLOCATE ; PROCEDURE DEALLOCATE (a: ADDRESS; Size: CARDINAL); BEGIN SysStorage.DEALLOCATE(a, Size) END DEALLOCATE ; PROCEDURE Available (Size: CARDINAL) : BOOLEAN; BEGIN RETURN( SysStorage.Available(Size) ) END Available ; END Storage.