I've looked through the code a bit, and I haven't found the problem yet. I have more time to search for the problem later today. So if I find anything, I'll let you know.
EDIT: I fixed the problem!
In the object: objNew_File at the draw event you wrote the code:
if not (variable_global_exists('font')) then global.font=font_add_sprite(spr_Text,'!',0,0);
draw_set_font(global.font);
change that to:
global.font=font_add_sprite(spr_Text,'!',0,0);
draw_set_font(global.font);