begin

   on event 15 start
     print string("END OF DIAGNOSTICS") and newline
     stop
   finish

   routine the procedure(integer i)
     integer local variable
     local variable = i

     on event 15 start
       print string("Entered from THEPROCEDURE ") and write(i,-1) and newline ; newline
       print string("LOCALVARIABLE = ") and write(local variable,-1) and newline

       signal 15, event_sub, event_info
     finish

     signal 15, 1 if i >= 10
     the procedure(i+3)
   end







     print string("portable version") and newline


   the procedure(1)

endofprogram