１回にりのイベントの「ペットフォーム」の改造末尾の
（略）
        &input('radio','mode','event02_02','','叱る');
        print "</td>\n";
        print "</tr>\n";
    }
    else {
        &input('radio','mode','feed',' checked','餌をあげる<br>');
（中略）
        print "</tr>\n";
    }

（略）
        &input('radio','mode','event02_02','','叱る');
        print "</td>\n";
        print "</tr>\n";
    }
    elsif ($timeafter == 1 || $timeafter == 3 || $timeafter == 5 ||
        $timeafter == 7 || $timeafter == 9 || $timeafter == 11 ||
        $timeafter == 13 || $timeafter == 15 || $timeafter == 17 ||
        $timeafter == 19 || $timeafter == 21 || $timeafter == 23) {

        &input('radio','mode','feed',' checked','餌をあげる<br>');
        &input('radio','mode','pat','','なでる<br>');
        &input('radio','mode','out','','外に出す');
        print "</td>\n";
        print "<td>\n";
        &input('radio','mode','play','','遊ぶ<br>');
        &input('radio','mode','hit','','しかる<br>');
        &input('radio','mode','owner','','飼い主ランキング');
        print "</td>\n";
        print "</tr>\n";
    }
    else {
        &input('radio','mode','feed',' checked','餌をあげる<br>');
        &input('radio','mode','pat','','なでる<br>');
        &input('radio','mode','out','','外に出す');
        print "</td>\n";
        print "<td>\n";
        &input('radio','mode','play','','遊ぶ<br>');
        &input('radio','mode','hit','','しかる<br>');
        &input('radio','mode','owner','','飼い主ランキング');
        print "</td>\n";
        print "</tr>\n";
    }