DIRECTORY AlpsArbiter, AlpsBool, Convert, Rope; AlpsAnd32: CEDAR PROGRAM IMPORTS AlpsBool, Convert, Rope = BEGIN And32: PUBLIC PROC [n: INT] RETURNS [table: AlpsBool.TableOfVariables] = { expr: AlpsBool.Expression _ AlpsBool.true; table _ AlpsBool.InitTableOfVariables[n+1]; FOR i: INT IN [1..n] DO table[i].name _ Rope.Cat["Input", Convert.RopeFromInt[i]]; expr _ AlpsBool.And[table, expr, AlpsBool.Var[i]]; ENDLOOP; AlpsBool.AddOutput[table, NEW[AlpsBool.OutputRec _ [name: "Output", expr: expr]]]; }; END. „AlpsAnd32.mesa Copyright c 1984 by Xerox Corporation. All rights reversed. Created by: Serlet, May 31, 1985 2:46:38 pm PDT Κσ˜– "Cedar" stylešœ™Jšœ Οmœ1™