ui/src/nt/TrestleOS.m3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman, Mark Manasse and Greg Nelson           

UNSAFE MODULE TrestleOS;

IMPORT NTClient;

PROCEDURE Init() =
  BEGIN NTClient.Init();
  END Init;

PROCEDURE UserName(): TEXT =
  BEGIN
    RETURN "Some idiot running NT"
  END UserName;

BEGIN
END TrestleOS.