Select Code to Download

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

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