File [ivy]<Satterthwaite>Models>Modula.model!1

    -- Modula.model
    -- last edited by Satterthwaite, May 20, 1986 3:35:36 pm PDT

    LET @///SML/OSBasics.modelBcd!581021414 IN
    LET @///SML/CedarBasics.modelBcd!581021540 IN
    LET [CommandTool: TYPE~@/Cedar/Cedar6.1/CommandTool/CommandTool.bcd!546422614] IN

    LAMBDA [
        BasicTimeImpl: BasicTime,
        CommanderImpl: Commander,
        CommandToolImpl: CommandTool,
        FSImpl: FS,
        IOImpl: IO,
        RopeImpl: Rope,
        ViewerIOImpl: ViewerIO] IN

      LET REC [

          &options: STRING~"bjn-sd";

          M2D: TYPE~@M2D.mesa!566418661*[];
          M2DImpl: M2D~@M2DImpl.mesa!566419015*[]*[];

          M2S: TYPE~@M2S.mesa!566419097*[];
          M2SImpl: M2S~@M2SImpl.mesa!574133776*[]*[];

          M2I: TYPE~@M2I.mesa!566170435*[];
          M2IImpl: M2I~@M2IImpl.mesa!574133818*[]*[];

          M2G: TYPE~@M2G.mesa!566329361*[];
          M2GImpl: M2G~@M2GImpl.mesa!566419409*[]*[];

          M2T: TYPE~@M2T.mesa!566271940*[];
          M2TImpl: M2T~@M2TImpl.mesa!566349914*[]*[];

          M2R: TYPE~@M2R.mesa!566243894*[];
          M2RImpl: M2R~@M2RImpl.mesa!574133896*[]*[];

          M2P: TYPE~@M2P.mesa!566183791*[];
          M2PImpl: M2P~@M2PImpl.mesa!579208201*[]*[];

          Modula: CONTROL~@M2Impl.mesa!566418930*[]*[]] IN []