From 3c55e8a54fbfa8e6e141b246ca5a5d832f267077 Mon Sep 17 00:00:00 2001
From: Masayuki Sugahara <brindflontia@gmail.com>
Date: Tue, 28 Oct 2014 04:34:19 +0900
Subject: [PATCH 1/1] first commit

---
 DAISANJI.sdlbas | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 DAISANJI.sdlbas

diff --git a/DAISANJI.sdlbas b/DAISANJI.sdlbas
new file mode 100644
index 0000000..caf6e5f
--- /dev/null
+++ b/DAISANJI.sdlbas
@@ -0,0 +1,39 @@
+function warp()
+	dim x[120],y[120]
+	dw=displaywidth
+	dh=displayheight
+	randomize()
+	spd=1.001
+	while inkey=0
+		for i=0 to 120
+			plot(x[i]+dw/2,y[i]+dh/2,rgb(0,0,0))
+			if x[i]=0 or x[i]>dw or y[i]>dh then
+				x[i]=rnd(100)-50
+				y[i]=rnd(80)-40
+			end if
+			x[i]*=spd
+			y[i]*=spd
+			plot(x[i]+dw/2,y[i]+dh/2,rgb(255,255,255))
+		next
+	wend
+end function
+
+function wri(maxv,frt,pers)
+	return((maxv*frt/100)+(maxv*(1-frt/100))*pers/100)
+end function
+
+ts=32 'text size
+dw=displaywidth
+dh=displayheight
+
+for i=100 to 0 step -1
+	ink(rgb(0,0,0))
+	text(wri(dw,70,i+1),0,ts,"Start")
+	text(wri(dw,40,i+1),250,ts,"Settings")
+	text(wri(dw,30,i+1),310,ts,"Language")
+	ink(rgb(255,255,255))
+	text(wri(dw,70,i),0,ts,"Start")
+	text(wri(dw,40,i),250,ts,"Settings")
+	text(wri(dw,30,i),310,ts,"Language")
+next
+waitkey
-- 
2.11.0