extern channel_tape * load_form(char * formname);
extern channel_tape standard_tape;
extern channel_tape current_tape;