Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
UNSAFE MODULE; IMPORT NTClient; PROCEDURE TrestleOS Init () = BEGIN NTClient.Init(); END Init; PROCEDUREUserName (): TEXT = BEGIN RETURN "Some idiot running NT" END UserName; BEGIN END TrestleOS.