#const wx 300
#const wy 200
#const mysizex 30 //自機の大きさX (MySizeX)
#const mysizey 20 //自機の大きさY
	//変数初期化
	myx=0 : myy=0 //自機の位置

	randomize
	buffer 3,wx,wy //背景バッファ
		color 1,1,1 : boxf //背景作成
		color 255,255,255 : repeat 500 : pset rnd(wx),rnd(wy) : loop //星作成
		pos 55,20 : color 255,255,255 : mes "シューティングゲーム(仮)" //別に必要ない描画処理
	buffer 2 //キャラデータバッファ
	picload "char.gif" //キャラ画像をロード
	screen 0,wx,wy
	gmode 2 //黒を透明色に (黒色は、gcopyでコピーされなくなる)
*main
	redraw 0
	gosub *draw //描画ルーチン
	redraw 1
	await 5
	goto *main

*draw
	pos 0,0 : gcopy 3,0,0,wx,wy //背景
	pos 0,0 : gcopy 2,0,0,mysizex,mysizey //自機を表示
	return