#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine fred(%real x,y)

void FRED(float X, float Y) {
  //     2  %real z

  float Z;

  //     3
  //     4  %if x>0 %and y>0 %then %start

  if (X <= 0) goto L_0001;
  if (Y <= 0) goto L_0001;

    //     5     z=sqrt(x+y)

  Z = _imp_SQRT(X + Y);

  //     6  %else

  goto L_0002;
L_0001:;

//     7     %monitor

/*_imp_monitor(__LINE__, __FILE__, PRETTY_FUNCTION);*/

//     8  %finish

L_0002:;

//     9  %end

  return;
} /* end of FRED */

//    10  %endoffile