;initpalSample.hsp	initpalのサンプル hsp3.21
#include "initpal.as"

	sy=(ginfo_dispy-480)/2
	screen 0,640,480,1,0,sy
	mes "initpalを実行しない場合"
	gosub *l_boxf

	if ginfo_dispx<1292 { sx=ginfo_dispx-646 }
	else { sx=646 }
	screen 2,640,480,1,sx,sy
	initpal
	mes "initpalを実行した場合"
	gosub *l_boxf
stop

*l_boxf
	y=32: pal=0
	repeat 16
		x=0
		repeat 16
			palcolor pal
			boxf x,y,x+39,y+27
			x+=40
			pal++
		loop
		y+=28
	loop
return