begin
  on event 3,4,9 start
    printstring("EM CHAR IN STMNT - DISASTER"); newline
    stop
  finish
  integerfn x
  integer j,k
  if j=k then j=j else if k=j then k=k else if j=k then k=j else start
    begin
      k=j
      return   ; ! NOT HANDLED PROPERLY. In some version of Imp77 this is a return from the begin/end block.
    end
  finish
  result=1
  end
  integer y
  cycle
    y=x
  repeat until x=y
endofprogramme