
<<File: MF.mod>>
<<Last changed by Pavel on October 31, 1985 5:05:54 pm PST>>
    <<Michael Plass, September 27, 1985 12:28:47 pm PDT>>
<<>>
<<Note: In the beginning of the module-assignment portion of this file, there are two pieces of text, labelled (TRAP) and (~TRAP) 
respectively.  (TRAP) should only be used for the TRAP test and (~TRAP) only otherwise.  Always comment out one or the other.>>

(configuration m_f(basic_time, bitmap_viewer, commander, convert, default_remote_names, f_s, i_o, imager_pixel_map, message_window, 
rope, safe_storage, unsafe_storage, user_profile, viewer_ops, v_m);
definitions pascal_basic; external;
definitions pascal_wizard_files; external;
definitions imager_pixel_maps; external;
definitions v_m; external;
definitions bitmap_viewer; external;
definitions viewer_classes; external;
program pascal_basic_impl; external;
program pascal_wizard_files_impl; external;
program no_file; trash;
definitions m_f_types(pascal_basic*, pascal_wizard_files*); forward;
definitions m_f_proc_array.hint$(pascal_basic, pascal_wizard_files, m_f_types); forward;
definitions m_f_externals(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_init(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_interaction(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_math(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_memory(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_symbols(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_paths(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_moves(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_edges(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_octants(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_contours(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_envelopes(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_time(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_screen(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_equations(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_input(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_file_names(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_parsing(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_ops(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_t_f_m(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_g_f(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_debug(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
definitions m_f_rest(pascal_basic*, pascal_wizard_files*, m_f_types*); forward;
program m_f_interaction_impl(pascal_basic, pascal_wizard_files, m_f_types, m_f_externals, m_f_math, m_f_symbols, m_f_input, 
m_f_file_names, m_f_interaction*, m_f_debug, m_f_init); forward;
program m_f_math_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_interaction, m_f_math*); forward;
program m_f_math_impl2(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_interaction, m_f_math); forward;
program m_f_memory_impl(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_symbols, m_f_memory*); 
forward;
program m_f_symbols_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_externals, m_f_interaction, 
m_f_memory, m_f_symbols*, m_f_input, m_f_parsing); forward;
program m_f_symbols_impl2(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_symbols, 
m_f_input, m_f_parsing); forward;
program m_f_paths_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_paths*); forward;
program m_f_paths_impl2(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory*, 
m_f_symbols, m_f_paths, m_f_parsing); forward;
program m_f_moves_impl(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_interaction, m_f_math, m_f_moves*); forward;
program m_f_edges_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_edges*); 
forward;
program m_f_edges_impl2(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_moves, 
m_f_edges, m_f_parsing); forward;
program m_f_edges_impl3(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_moves, m_f_edges, m_f_contours); forward;
program m_f_edges_impl4(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_memory, m_f_edges); forward;
program m_f_octants_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_octants*); forward;
program m_f_octants_impl2(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_memory, m_f_octants, m_f_contours); 
forward;
program m_f_octants_impl3(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_math, m_f_octants); forward;
program m_f_octants_impl4(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_paths, m_f_octants, m_f_parsing, m_f_contours); forward;
program m_f_octants_impl5(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_math, m_f_octants, m_f_contours, 
m_f_symbols); forward;
program m_f_octants_impl6(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_math, m_f_octants, m_f_contours); 
forward;
program m_f_contours_impl(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_symbols, m_f_paths, 
m_f_moves, m_f_edges, m_f_envelopes, m_f_octants, m_f_contours*); forward;
program m_f_envelopes_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_octants, m_f_contours, m_f_envelopes*, m_f_parsing); forward;
program m_f_envelopes_impl2(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_math, m_f_octants, 
m_f_envelopes*); forward;
program m_f_envelopes_impl3(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_symbols, 
m_f_paths, m_f_moves, m_f_edges, m_f_octants, m_f_contours, m_f_envelopes); forward;
program m_f_envelopes_impl4(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, 
m_f_symbols, m_f_moves, m_f_edges, m_f_octants, m_f_contours, m_f_envelopes); forward;
program m_f_envelopes_impl5(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_math, m_f_memory, m_f_symbols, 
m_f_interaction, m_f_edges, m_f_octants, m_f_contours, m_f_envelopes); forward;
program m_f_time_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_math, m_f_octants, m_f_time); forward;
program m_f_time_impl2(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_moves, m_f_time); forward;
program m_f_time_impl3(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_moves, m_f_time); forward;
program m_f_screen_impl(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_externals, m_f_math, m_f_edges, 
m_f_screen*); forward;
program m_f_equations_impl(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_paths, m_f_edges, m_f_parsing, m_f_equations*); forward;
program m_f_input_impl1(pascal_basic, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_externals, m_f_interaction, m_f_math, 
m_f_memory, m_f_symbols, m_f_input*, m_f_parsing); forward;
program m_f_input_impl2(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_symbols, 
m_f_input); forward;
program m_f_input_impl3(pascal_basic*, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_externals, m_f_interaction, m_f_memory, 
m_f_symbols, m_f_input, m_f_file_names, m_f_parsing); forward;
program m_f_file_names_impl(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_interaction, m_f_symbols, m_f_input, 
m_f_file_names*); forward;
program m_f_parsing_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_paths, m_f_edges, m_f_octants, m_f_envelopes, m_f_equations, m_f_input, m_f_parsing); forward;
program m_f_parsing_impl2(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_paths, m_f_edges, m_f_octants, m_f_envelopes, m_f_equations, m_f_input, m_f_parsing, m_f_debug, m_f_ops); forward;
program m_f_parsing_impl3(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_paths, 
m_f_octants, m_f_input, m_f_parsing, m_f_ops); forward;
program m_f_ops_impl1(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_paths, m_f_edges, m_f_octants, m_f_envelopes, m_f_input, m_f_file_names, m_f_parsing, m_f_ops*, m_f_t_f_m); 
forward;
program m_f_ops_impl2(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_paths, m_f_octants, m_f_envelopes, m_f_time, m_f_equations, m_f_parsing, m_f_ops); forward;
program m_f_ops_impl3(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_symbols, 
m_f_paths, m_f_edges, m_f_octants, m_f_contours, m_f_envelopes, m_f_equations, m_f_input, m_f_parsing, m_f_ops); forward;
program m_f_ops_impl4(pascal_basic, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_edges, m_f_octants, m_f_time, m_f_equations, m_f_input, m_f_file_names, m_f_parsing, m_f_ops, m_f_g_f); forward;
program m_f_ops_impl5(pascal_basic, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_externals, m_f_interaction, m_f_math, 
m_f_memory, m_f_symbols, m_f_edges, m_f_octants, m_f_screen, m_f_input, m_f_file_names, m_f_parsing, m_f_ops, m_f_t_f_m, m_f_g_f, 
m_f_init); forward;
program m_f_ops_impl6(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_edges, m_f_equations, m_f_parsing, m_f_ops, m_f_envelopes); forward;
program m_f_ops_impl7(pascal_basic*, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, m_f_symbols, m_f_input, 
m_f_parsing, m_f_ops); forward;
program m_f_t_f_m_impl(pascal_basic, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_interaction, m_f_math, m_f_memory, 
m_f_symbols, m_f_t_f_m*); forward;
program m_f_g_f_impl(pascal_basic, pascal_wizard_files, m_f_types*, m_f_externals, m_f_interaction, m_f_math, m_f_symbols, 
m_f_file_names, m_f_g_f*, m_f_ops); forward;
program m_f_finalize_impl(pascal_basic, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_externals, m_f_interaction, m_f_math, 
m_f_memory, m_f_symbols, m_f_input, m_f_file_names, m_f_ops, m_f_t_f_m, m_f_g_f, m_f_rest, m_f_octants); forward;
program m_f_main_control_impl(pascal_basic*, pascal_wizard_files*, m_f_types*, m_f_interaction, m_f_input, m_f_parsing, m_f_ops, 
m_f_rest*); forward;
program m_f_externals_impl.hint$(pascal_basic, pascal_wizard_files, m_f_types*, imager_pixel_maps, bitmap_viewer, viewer_classes); 
forward;
program m_f_proc_array_impl.hint$(pascal_basic, pascal_wizard_files, m_f_types*, v_m); forward;
program m_f_init_impl1(pascal_basic*, pascal_wizard_files, m_f_types*, m_f_init*, m_f_proc_array, m_f_externals, m_f_interaction, 
m_f_memory, m_f_symbols, m_f_input, m_f_ops); forward;
program m_f_init_impl2(pascal_basic, pascal_wizard_files*, m_f_types*, m_f_init, m_f_interaction, m_f_math, m_f_symbols, 
m_f_octants, m_f_contours, m_f_screen, m_f_equations, m_f_input, m_f_parsing, m_f_ops, m_f_t_f_m, m_f_g_f, m_f_debug); forward;
program m_f_debug_impl(pascal_basic, pascal_wizard_files, m_f_types*, m_f_proc_array, m_f_interaction, m_f_memory, m_f_symbols, 
m_f_ops, m_f_debug*); forward;
program m_f_main(pascal_basic, pascal_wizard_files, m_f_types*, m_f_init, m_f_externals, m_f_interaction, m_f_math, m_f_symbols, 
m_f_input, m_f_file_names, m_f_ops, m_f_rest); forward;
begin
m_f_types, no_file := $other_types$, $other_consts$;
m_f_proc_array, m_f_proc_array_impl := mem;
<<(~TRAP) Define external versions of graphics routines.>>
m_f_externals, m_f_externals_impl := reset_term_in, rewrite_term_out, read_the_clock, file_get_pos, set_pool_name, 
read_profile_for_directories, set_normal_priority, set_background_priority, stuff_on_cmd_line, register_mf_commands, a_open_in, 
b_open_in, w_open_in, a_open_out, b_open_out, w_open_out, a_close, b_close, w_close,
init_screen, update_screen, blank_rectangle, paint_row,
pack_buffered_name, pack_default_area, pack_all_default, a_make_name_string, b_make_name_string, w_make_name_string;
<<(TRAP) Don't define external versions of graphics routines.>>
<<m_f_externals, m_f_externals_impl := reset_term_in, rewrite_term_out, read_the_clock, file_get_pos, set_pool_name, 
read_profile_for_directories, set_normal_priority, set_background_priority, stuff_on_cmd_line, register_mf_commands, a_open_in, 
b_open_in, w_open_in, a_open_out, b_open_out, w_open_out, a_close, b_close, w_close,

pack_buffered_name, pack_default_area, pack_all_default, a_make_name_string, b_make_name_string, w_make_name_string;>>
<<m_f_externals, m_f_main := init_screen, update_screen, blank_rectangle, paint_row;>>
m_f_init, m_f_init_impl1 := bad, base_ident, base_file, init_terminal, get_strings_started, open_base_file, load_base_file, 
init_tab, init_prim;
m_f_init, m_f_init_impl2 := initialize;
m_f_interaction, m_f_interaction_impl := xord, xchr, name_of_file, name_length, buffer, first, last, max_buf_stack, term_in, 
term_out, str_pool, str_start, pool_ptr, str_ptr, init_pool_ptr, init_str_ptr, max_pool_ptr, max_str_ptr, str_ref, pool_file, 
log_file, selector, dig, tally, term_offset, file_offset, trick_buf, trick_count, first_count, interaction, deletions_allowed, 
history, error_count, help_line, help_ptr, use_err_help, err_help, interrupt, ok_to_interrupt;
m_f_interaction, m_f_interaction_impl := slow_print, print_ln, print_char, print, print_nl, print_the_digs, print_int, 
print_scaled, print_two, print_type, begin_diagnostic, end_diagnostic, print_diagnostic, flush_string, jump_out, error, 
fatal_error, overflow, confusion, make_string, str_eq_buf, str_vs_str, print_dd, term_input, normalize_selector, 
pause_for_instructions, missing_err, open_log_file;
m_f_math, m_f_math_impl1 := arith_error, two_to_the, spec_log, spec_atan, n_sin, n_cos, randoms, j_random;
m_f_math, m_f_math_impl1 := clear_arith, round_decimals, make_fraction, take_fraction, take_scaled, make_scaled, velocity, 
ab_vs_cd, floor_scaled, floor_unscaled, round_unscaled;
m_f_math, m_f_math_impl2 := round_fraction, square_rt, pyth_add, pyth_sub, m_log, m_exp, n_arg, n_sin_cos, new_randoms, 
init_randoms, unif_rand, norm_rand;
m_f_memory, m_f_memory_impl := temp_ptr, var_used, dyn_used, max_var_used, avail, mem_end, rover, lo_mem_max, hi_mem_min;
m_f_memory, m_f_memory_impl := get_avail, get_node, free_node, sort_avail, flush_list, flush_node_list;
m_f_symbols, m_f_symbols_impl1 := internal, int_name, int_ptr, old_setting, char_class, hash_used, st_count, hash, eqtb, 
big_node_size, save_ptr, g_pointer;
m_f_symbols, m_f_symbols_impl1 := show_token_list, runaway, print_op, fix_date_and_time, id_lookup, primitive, new_num_tok, 
flush_token_list, delete_mac_ref, print_cmd_mod, print_capsule, token_recycle;
m_f_symbols, m_f_symbols_impl2 := show_macro, init_big_node, id_transform, new_root, print_variable_name, new_structure, 
find_variable, flush_below_variable, flush_variable, und_type, clear_symbol, save_variable, save_internal, unsave, show_cmd_mod, 
show_context, interesting;
m_f_paths, m_f_paths_impl1 := path_tail, delta_x, delta_y, delta, psi, theta, uu, vv, ww, st, ct, sf, cf;
m_f_paths, m_f_paths_impl1 := toss_knot_list, null_path, print_path, copy_knot, copy_path, htap_ypoc, curl_ratio, set_controls;
m_f_paths, m_f_paths_impl2 := make_choices, solve_choices;
m_f_moves, m_f_moves_impl := move, move_ptr, bisect_stack, bisect_ptr;
m_f_moves, m_f_moves_impl := make_moves, smooth_moves;
m_f_edges, m_f_edges_impl1 := cur_edges, cur_wt, trace_x, trace_y, trace_yy;
m_f_edges, m_f_edges_impl1 := toss_edges, init_edges, new_edges, print_edges, print_weight, fix_offset, edge_prep, copy_edges, 
negate_edges;
m_f_edges, m_f_edges_impl2 := y_reflect_edges, x_reflect_edges, y_scale_edges, x_scale_edges, xy_swap_edges;
m_f_edges, m_f_edges_impl3 := begin_edge_tracing, trace_a_corner, end_edge_tracing, trace_new_edge, line_edges, move_to_edges;
m_f_edges, m_f_edges_impl4 := sort_edges, cull_edges, merge_edges, total_weight;
m_f_octants, m_f_octants_impl1 := cur_spec, cur_x, cur_y, turning_number, octant_number, octant_code, octant_dir, max_allowed, 
cur_pen, cur_path_type, rev_turns, cur_gran, cur_rounding_ptr, max_rounding_ptr, before, after, node_to_round;
m_f_octants, m_f_octants_impl1 := unrotate, rotate, crossing_point, print_spec, split_cubic, unskew, abnegate, print_strange, 
compromise, good_val, before_and_after, make_safe;
m_f_octants, m_f_octants_impl2 := remove_cubic, new_boundary;
m_f_octants, m_f_octants_impl3 := quadrant_subdivide;
m_f_octants, m_f_octants_impl4 := make_spec;
m_f_octants, m_f_octants_impl5 := xy_round, diag_round;
m_f_octants, m_f_octants_impl6 := octant_subdivide;
m_f_contours, m_f_contours_impl := x_corr, y_corr, xy_corr, z_corr, cur_m, cur_n, cur_d, cur_dd, octant, good1, good2, good3, m0, 
n0, m1, n1, x0, y0, x1, y1, d0, dd0, d1;
m_f_contours, m_f_contours_impl := skew, make_good, fill_spec;
m_f_envelopes, m_f_envelopes_impl1 := env_move, toss_pen, print_pen, dup_offset, make_pen, find_offset, trivial_knot, make_path, 
end_round;
m_f_envelopes, m_f_envelopes_impl2 := split_for_offset, fin_offset_prep;
m_f_envelopes, m_f_envelopes_impl3 := fill_envelope;
m_f_envelopes, m_f_envelopes_impl4 := dual_moves;
m_f_envelopes, m_f_envelopes_impl5 := offset_prep, skew_line_edges, make_ellipse;
m_f_time, m_f_time_impl1 := cur_t, cur_tt, delx, dely, uv, xy, find_direction_time, path_intersection, tol_step, time_to_go, tol, 
three_l;
m_f_time, m_f_time_impl2 := cubic_intersection;
m_f_time, m_f_time_impl3 := inter_subdivide;
m_f_screen, m_f_screen_impl := screen_started, screen_ok, window_open, left_col, right_col, top_row, bot_row, m_window, n_window, 
window_time, row_transition;
m_f_screen, m_f_screen_impl := open_a_window, disp_edges;
m_f_equations, m_f_equations_impl := fix_needed, watch_coefs, dep_final;
m_f_equations, m_f_equations_impl := show_implied_equation, ring_delete, print_dependency, max_coef, p_plus_fq, p_plus_q, 
p_times_v, p_over_v, p_with_x_becoming_q, fix_dependencies, new_dep, linear_eq, new_ring_entry, nonlinear_eq, ring_merge, 
make_known, slow_add, val_too_big;
m_f_input, m_f_input_impl1 := cur_cmd, cur_mod, cur_sym, input_stack, input_ptr, max_in_stack, cur_input, in_open, input_file, 
line, line_stack, param_stack, param_ptr, max_param_stack, file_ptr, scanner_status, warning_info, force_eof, cond_ptr, if_limit, 
cur_if, if_line, loop_ptr, bg_loc, eg_loc;
m_f_input, m_f_input_impl1 := input_ln, begin_token_list, end_token_list, cur_tok, back_input, back_error, ins_error, 
begin_file_reading, end_file_reading, clear_for_error_prompt, check_outer_validity, get_next, firm_up_the_line, scan_toks, 
get_symbol;
m_f_input, m_f_input_impl2 := get_clear_symbol, check_equals, make_op_def, check_delimiter, scan_declared_variable, scan_def, 
read_toks, print_macro_name;
m_f_input, m_f_input_impl3 := print_arg, macro_call, get_x_next, stack_argument, pass_text, change_if_limit, check_colon, 
conditional, bad_for, begin_iteration, resume_iteration, stop_iteration, start_input, scan_text_arg, expand;
m_f_file_names, m_f_file_names_impl := cur_name, cur_area, cur_ext, area_delimiter, ext_delimiter, mf_area, job_name, log_name, 
gf_file, output_file_name;
m_f_file_names, m_f_file_names_impl := print_file_name, begin_name, more_name, end_name, pack_file_name, make_name_string, 
scan_file_name, pack_job_name, prompt_file_name;
m_f_parsing, m_f_parsing_impl1 := cur_type, cur_exp, var_flag, max_c, max_ptr, max_link, recycle_value, flush_cur_exp, flush_error, 
put_get_error, put_get_flush_error, print_dp, stash_cur_exp, unstash_cur_exp, print_exp, disp_err, bad_exp, stash_in, back_expr, 
bad_subscript, obliterated, const_dependency, single_dependency, copy_dep_list, new_knot;
m_f_parsing, m_f_parsing_impl2 := encapsulate, install, make_exp_copy, binary_mac, materialize_pen, known_pair, new_fragment, 
fix_fragment, scan_primary, scan_suffix, scan_direction;
m_f_parsing, m_f_parsing_impl3 := scan_secondary, scan_tertiary, scan_expression, get_boolean;
m_f_ops, m_f_ops_impl1 := txx, txy, tyx, tyy, tx, ty, start_sym, long_help_seen;
m_f_ops, m_f_ops_impl1 := do_nullary, nice_pair, print_known_or_unknown_type, bad_unary, negate_dep_list, pair_to_path, take_part, 
str_to_num, path_length, test_known, do_unary;
m_f_ops, m_f_ops_impl2 := bilin1, add_mult_dep, bilin2, bilin3, big_trans, cat, chop_string, chop_path, pair_value, set_up_offset, 
set_up_direction_time;
m_f_ops, m_f_ops_impl3 := do_interim, do_let, do_new_internal, do_show, disp_token, do_show_token, do_show_stats, disp_var, 
do_show_var, do_show_dependencies, do_show_whatever, find_edges_var, do_add_to;
m_f_ops, m_f_ops_impl4 := find_point, do_binary, frac_mult, ship_out, try_eq, make_eq, do_equation;
m_f_ops, m_f_ops_impl5 := tfm_check, do_ship_out, do_display, get_pair, do_open_window, do_cull, do_message, get_code, set_tag, 
do_tfm_command, do_special, store_base_file, do_statement, scan_with;
m_f_ops, m_f_ops_impl6 := bad_binary, dep_finish, add_or_subtract, dep_mult, hard_times, dep_div, set_up_trans, set_up_known_trans, 
trans, path_trans, edges_trans, tarnished;
m_f_ops, m_f_ops_impl7 := do_assignment, do_type_declaration, do_random_seed, do_protection, def_delims, boc_c, boc_p;
m_f_t_f_m, m_f_t_f_m_impl := tfm_file, metric_file_name, bc, ec, tfm_width, tfm_height, tfm_depth, tfm_ital_corr, char_exists, 
char_tag, char_remainder, header_byte, lig_kern, nl, nk, ne, np, nw, nh, nd, ni, perturbation, dimen_head, max_tfm_dimen, 
tfm_changed, kern, exten, param;
m_f_t_f_m, m_f_t_f_m_impl := sort_in, min_cover, threshold, skimp, tfm_warning, fix_check_sum, fix_design_size, tfm_two, tfm_four, 
tfm_qqqq, dimen_out;
m_f_g_f, m_f_g_f_impl := gf_min_m, gf_max_m, gf_min_n, gf_max_n, gf_prev_ptr, total_chars, char_ptr, gf_width, gf_buf, half_buf, 
gf_limit, gf_ptr, gf_offset, gf_ext, gf_dx, gf_dy;
m_f_g_f, m_f_g_f_impl := write_gf, gf_swap, gf_four, gf_two, gf_three, gf_paint, gf_new_row, gf_string, init_gf, gf_boc;
m_f_rest, m_f_finalize_impl := close_files_and_terminate, final_cleanup;
m_f_rest, m_f_main_control_impl := main_control;
m_f_debug, m_f_debug_impl := free, was_free, was_mem_end, was_lo_max, was_hi_min, panicking, check_mem, search_mem, debug_help, 
print_word;
m_f_rest, m_f_main := $other_vars$, $other_procs$;
m_f_types, m_f_main := $global_labels$, $main$;
end) := mf.pas;
<<Turn off bounds checking and NIL checking.>>
COMPILERSWITCHES '-~b~n';
INLINE mem;
INVENTFILENAMES FALSE;
MAKEFILE compile_m_f;
PROCARRAY mem;
TARGET cedar;