¤½¤¦¤Ç¤¹¤è¤Í¡£¤½¤ì¡¢ºÇ½é¤Ïʬ¤«¤ê¤Ë¤¯¤¤¤Ç¤¹¤è¤Í¡£
¤É¤Î¤è¤¦¤Ë¸ÀÍÕ¤ÇÀâÌÀ¤·¤¿¤éʬ¤«¤ê¤ä¤¹¤¤¤â¤Î¤Ç¤·¤ç¤¦¤«....¡©
¤¤¤¤ÀâÌÀ¤¬»×¤¤¤Ä¤«¤Ê¤¤¤Î¤Ç¡¢¥µ¥ó¥×¥ë¤ò¤ª¸«¤»¤·¤Þ¤¹¡£
¤È¤ê¤¢¤¨¤º¡¢¤³¤ó¤Ê¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
screen 1,400,200,0 : title "ÁǺà"
picload dir_tv + "sozai14.jpg",1
;pos 200,0 : picload "1.png",1
color 0,0,0 : boxf 200,0,399,199
font msgothic,65,1+16+2
color 255,255,255
pos 200+10,0 : mes "H\n S\n P"
redraw ;(¼ÂºÝ¤ÏÌäÂê¤Ê¤¤¤¬¡¢¤³¤ì¤ò¾Ã¤¹¤È¥¤¥¿¥ê¥Ã¥¯ÂΤ¬·ç¤±¤Æ¸«¤¨¤ë¡£¥á¥â¥ê¾å¤Ç¤Ï¤Á¤ã¤ó¤È¤·¤Æ¤¤¤ë¤Î¤Çredraw¤·¤Ê¤¯¤Æ¤âÌäÂê¤Ï¤Ê¤¤¡£)
screen 0,200,200,0 : title "¼«Í³Ä¢"
color 0,0,0 : boxf
gmode 7,200,200
pos 0,0 : gcopy 1,0,0
¤È¤«¡¢
;¡ã ¥Ö¥ì¥ó¥ÉÀ®Ê¬¤Î½àÈ÷ ¡ä
r = 100 ;(±ß¤ÎȾ·Â)
w = 2*r+1
screen 1,2*w,w ,0 : title "ÁǺà"
picload dir_tv + "hsptv_img.bmp",1
;¡ã ±ß¤òºî¤ë ¡ä
ùx_c = 2*r+1
color 0,0,0 : boxf ùx_c,0 ,ùx_c+2*r,2*r
repeat r
i = sin(0.5*m_pi*cnt/r)*255
color i,i,i
circle ùx_c+cnt,cnt ,ùx_c+2*r-cnt,2*r-cnt,1
loop
;¡ã ¤ª³¨¤«¤ ¡ä
screen 0,w,w,0 : title "¼«Í³Ä¢"
color 0,0,0 : boxf
gmode 7,w,w
gcopy 1,0,0