;---- 3 lines script(^^;
title "/_/~/_/~/ K-K mailto:kawahira@chichibu.ne.jp /~/_/~/_/~/"
boxf:u=winx/2:v=winy/2:x=200:y=50:pos x+u,y+v:repeat:await 1:t=x
x=x/11-y:y=t:color 0,cnt/3,cnt:line x+u,y+v:loop

;---- 3 lines script02(^^;
cls 4:s= "  K-K mailto:kawahira@chichibu.ne.jp         "
repeat 40:wait 10:strmid a,s,cnt,1:repeat 62-cnt*10:pos 640-cnt,200
color:boxf 640-cnt,200,640,216:color ,255:mes a:loop:loop:wait 100

;---- 3 lines script(^^;
cls 4:nx=1<<11:y=0:x=0:repeat 680:pset nx>>6+320,y>>6+200:y=-x*98/100
x=nx:nx=-(97*x)/100+(4<<24/(x*x+4096))+y-(3<<12):color ,cnt*2,:loop
mes "****** K-K mailto:kawahira@chichibu.ne.jp  *******":wait 100

;---- 3 lines script01(^^;
s="/_/~/_/~/ K-K mailto:kawahira@chichibu.ne.jp /~/_/~/_/~/"
cls 4:color 0,255:x=200:y=0:repeat 200:wait 1:k=x/10-y
y=x:x=k:pset x+320,y+240:loop:pos 72,220:mes s:wait 100


;---- 3 lines script(^^;
cls 4:color 0,255,255:bx=winx/2:by=winy/2:x=68:y=12:vx=1:vy=-1:pos x,y
repeat 1300:await cnt&1:vx+=x<bx-(x>bx):vy+=y<by-(y>by):x+=vx:y+=vy
line x,y:loop:dialog "**** K-K mailto:kawahira@chichibu.ne.jp ****"

;---- 3 lines script メールアドレスを中に入れるのは無理でした(^^;
; K-K mailto:kawahira@chichibu.ne.jp
cls 4:dx=winx>>1:dy=winy>>1:repeat:rnd r,16:rnd r,256:rnd g,256:rnd g,256
color r,g,b:rnd a,5000:a+=5000:rnd b,32:b++:rnd c,32:c++:x=1:y=1:wait 1
repeat 3200:ox=x:x=x/c-(a/(x*x+b))+y:y=-ox:pset x>>2+dx,y>>2+dy:loop:loop

;---- 3 lines script(^^;
gsel 0,-1:bgscr 2,24,24:gsel 2,2:title "alt+F4 -> END":objsize 24,24
button "Ｘ",*e:repeat:wait 120:rnd x,dispx-24:rnd y,dispy-24
width ,,x,y:loop:*e:dialog "** by K-K kawahira@chichibu.ne.jp **"

;---- 3 lines script(^^;
title "K-K   kawahira@chichibu.ne.jp" ;ネタ切れ
repeat:wait 1:repeat 255:getkey k,cnt:if k :color 255:else:color 0,0,0
pos cnt>>4*32,cnt&15*24:mes cnt:loop:loop


;---- 3 lines script(^^;
sig=" K-K   kawahira@chichibu.ne.jp" ;読めるかな
buffer 2,640,24:cls 4:color 255,255,255:mes sig:gsel 0:cls 4
repeat 600:await 40:pos 300,20:gzoom 32,256,2,cnt,0,3,16:loop


;---- 3 lines script01(^^;
cls 4:color 0,255:x=200:y=0:repeat 200:k=x:x=x/10-y:y=k
pset x+320,y+240:wait 1:loop:pos 72,220:mes {"
\"_/~/_/~/ K-K mailto:kawahira@chichibu.ne.jp /~/_/~/_\""}:stop