if (/^I/) {
                        read_cal(substr($_,1), $mode);
                }
                print "|$_|\n";