first commit

diff --git a/DAISANJI.sdlbas b/DAISANJI.sdlbas
new file mode 100644 (file)
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