#include "hsp3dish.as"

	tamas=ginfo_newid
	celload dir_tv+"tamane_s1.png",tamas		; 素材フォルダから読み込みます

	;	標準のサイズで表示
	screen 0,800,600

	x=0:y=1024-600
*main
	redraw 0
	color 0,255,255
	boxf

	gmode 2
	pos 0,0-y
	celput tamas

	if y>0 : y=y-1

	redraw 1
	await 16
	goto *main