procedure TPU$INIT_POSTPROCEDURE
edo_define_keys;
mainb := Current_buffer;
mainw := Current_window;
z_buffer := Create_buffer("Z");
z_window := Create_window(1,21,ON);
Set(NO_WRITE,z_buffer,ON);
write_in_progress := 0;
set (mouse,off);
style := "false";
ENDPROCEDURE;
