-- Test/PowerTest.mesa
-- Satterthwaite November 18, 1985 4:39:10 pm PST

 
PowerTest: PROGRAM ~ {

  Test: PROC~{
    x, y: CARDINAL;
    x _ y/1; x _ y MOD 1;
    x _ y/2; x _ y MOD 2;
    x _ y/4096; x _ y MOD 4096;
    x _ y/32768; x _ y MOD 32768;
    };
    
  }.