#include <perms.h>
static int JIM(int A, int B);

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %integerfnspec jim(%integer a,b)
//     2  %externalroutine fred %alias "s#go"

void FRED(void) {
  //     3  %integer x

  int X;

  //     4  printstring("fred

  _imp_PRINTSTRING(_imp_str_literal("fred\n"));

  //     5+ ")
  //     6  x=jim(4,5)

  X = JIM(4, 5);

  //     7  write(x,5); newline

  _imp_WRITE(X, 5);
  _imp_NEWLINE();

  //     8
  //     9  %end

  return;
} /* end of FRED */

//    10  %integerfn jim(%integer a,b)

static int JIM(int A, int B) {
  //    11
  //    12  %if a<b %then %result=1 %else %result=0

  if (A >= B) goto L_0001;
  return 1;
L_0001:;
  return 0;

  //    13  %end

} /* end of JIM */

//    14  %endoffile