proc main:
	local win1%, win2%, win3%

	rem 左のウィンドウ
	win1% = gCreate(0,0, 150, 100, 1, 1)
	gAt 0,0 : gBox 150,100
	gAt 50,50 : gPrint "ウィンドウ1です。"

	rem 右のウィンドウ
	win2% = gCreate(200,0, 150, 100, 1, 1)
	gAt 0,0 : gBox 150,100
	gAt 50,50 : gPrint "ウィンドウ2です。"

	get

	rem gCreateBitで作ったbitmapを右のウィンドウに貼る
	win3% = gCreateBit(90,90,1)
	gAt 50,50 : gPrint "3です。"
	gAt 0,0 : gBox 90,90

	gUSE win2% : gAT 1,1
	gCOPY win3%, 0, 0, 100, 100, 3

	get
endp