PROCEDURE Broken()
INCLUDE "program.cps"
ENDPROCEDURE