RosettaCodeData/Task/Program-termination/Action-/program-termination.action
2023-07-01 13:44:08 -04:00

9 lines
160 B
Text

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