// 紧急情况中断处理INTERRUPT HANDLER Emergency_HandlerVAR 紧急程度 : INT;BEGIN// 客户现场紧急呼叫 IF 客户来电() THEN 咖啡摄入量 := 咖啡摄入量 + 100.0; 立即响应(); END_IF;// 老婆紧急呼叫 IF 老婆来电() AND 当前时间 > T#20H THEN 解释加班原因(); IF 解释失败() THEN 老婆怒气值 := 老婆怒气值 + 10; END_IF; END_IF;// 老板紧急呼叫 IF 老板来电() THEN 保证完成任务(); 修改时间计划(); END_IF;END_INTERRUPT;
程序结束(理论上)
// 程序结束方法(实际上永远不会执行)METHODProgram_End : VOIDBEGIN// 以下情况程序会结束:// 1. 退休// 2. 转行// 3. 世界末日IF 退休成功() OR 转行成功() THEN 输出信息("恭喜获得自由!");ELSE// 否则继续循环MainProgram();END_IF;END_METHOD;