RosettaCodeData/Task/Program-termination/Action-/program-termination.action

PROC Main()
  DO
    IF Rand(0)=10 THEN
      PrintE("Terminate program by Break() procedure")
      Break()
    FI
  OD
  PrintE("This is a dead code")
RETURN