#include "hspext.as"
	#define yoko 10		//横の数
	#define tate 30		//縦の数
	m = yoko * (tate-3) - 1
	
;---------------------------------------------
;準備
	
	screen 0,480,640,0 : title "アンカー"
	screen 2,100,50,0  : title ""
	objsize 100,25,10
	
	res = m
	gsel 2,2 : input res
	button gosub "make",*make
	
	sdim n,1024
	
	gosub *make
	
	stop
	
;---------------------------------------------
;アンカー作成
*make
	
	n = ""
	res = res - m
	repeat tate-3
		n += ">"
		repeat yoko-1
			n += "" + res + ">"
			res++
		loop
		n += "" + res + "\n"
		res++
	loop
	n += "\nくらえー、専ブラ落としー！！！＾＾；ちょｗｗｗおまｗｗｗ（ver2.0）\n"
	n += "http://mizukinanasi.blog9.fc2.com/"
	
	gsel 0 : cls
	mesbox n,480,640
	clipset n
	
	return