#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine fred

void FRED(void) {
  //     2    %integer i

  int I;

  //     3    i = 1

  I = 1;

  //     4    i = i+i

  I = I + I;

  //     5  %end

  return;
} /* end of FRED */

//     6  %externalroutine fred2(%integer param)

void FRED2(int PARAM) {
  //     7    %integer i

  int I;

  //     8    i = 1

  I = 1;

  //     9    i = i+param

  I = I + PARAM;

  //    10  %end

  return;
} /* end of FRED2 */

//    11  %endoffile