中規模のものなら、 OPTION STRICT VAR MAIN$="INIT" VAR EXIT=#FALSE REPEAT CALL MAIN$ UNTIL EXIT DEF INIT END いつもこんなかんじに。