WORD work_in[11],work_out[57];
WORD handle;
WORD wcell, hcell, wbox, hbox;

WORD
screen_open( VOID )
{
	WORD i;

	handle = graf_handle( &wcell, &hcell, &wbox, &hbox);

	work_in[0] = Getrez() + 2;
	for(i = 1;i < 10;work_in[i++] = 1);
	work_in[10] = 2;

	v_opnvwk(work_in, &handle, work_out);

	return (handle == 0);
}