lib-s.mod

<B>Digital的Unix操作系统VAX 4.2源码</B>

(*#@(#)lib-s.mod	4.1	Ultrix	7/17/90 *)
MODULE testlib;
IMPORT SYSTEM, BITOPERATIONS, IO, Storage, unix, parameters, strings, math;
VAR
    f : IO.FILE;
    i : INTEGER;
    a : SYSTEM.ADDRESS;
BEGIN
    i := unix.open("test",0);
    f := IO.OPEN("test","r");
    Storage.ALLOCATE(a,100);
END testlib.