HSPTV!掲示板

左上が白くなってしまいます。どうすればいいのでしょうか。

	title "図形描画"

	onclick gosub *a
	screen 1,500,60,500,500
	gsel 1,0
	objsize 25,20
	button "Quit",*endo
	gsel 0,2
	mouse 0,-1
*_loop
	redraw 0
	color 255,255,255 : boxf
	color 0,222,55
	if looplevel : line linex,liney,mousex,mousey
	line 0,0,mousex,mousey
	wait 10
	redraw 1
	goto *_loop
*a
	if looplevel = 1 : return : else {
	looplevel = 1
	linex = mousex
	liney = mousey
	return 1
	}
*endo
	end

screen命令のp4をわすれていました｡