;--------------------------------------
;	masu p1,p2,p3,p4		[マスの表示]
;
;	p1 ： 横の数
;	p2 ： たての数
;	p3 ： ひとつの幅
;	p4 ： ひとつの高さ
;	
;	マスの左上の座標はカレントポジションです
;--------------------------------------
#module
#deffunc masu int,int,int,int
	mref x_piece,0
	mref y_piece,1
	mref w,2
	mref h,3
	x=csrx : y=csry
	redraw 0
	repeat y_piece+1,0
		line x,y,w*x_piece+x,y
		y+=h
	loop

	y=y-(y_piece+1*h)
	repeat x_piece+1,0
		line x,y,x,h*y_piece+y
		x+=w
	loop
	redraw 1
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;-------------------------------------
	pos 50,50
	masu 5,10,40,20
	stop