#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %BEGIN

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     2    %ON %EVENT * %START

  if (!_imp_on_event(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)) goto L_0001;

    //     3      PRINT STRING("TRAPPED!"); NEWLINE

  _imp_PRINTSTRING(_imp_str_literal("TRAPPED!"));
  _imp_NEWLINE();

  //     4      %STOP

  _imp_stop(0);

  //     5    %FINISH

L_0001:;

//     6    %SIGNAL 7,5,1

  _imp_signal(7, 5, 1, "");

  //     7  %ENDOFPROGRAM

  _imp_stop(0);
  return 0;
end_0:;
}