code:
daynumber=""
::_::
if (btnp()>0) goto donewithintro
cls(1)
f=4-abs(t()-4)
for z=-3,3 do
for x=-1,1 do
for y=-1,1 do
b=mid(f-rnd(.5),0,1)
b=3bb-2bbb
a=atan2(x,y)-.25
c=8+(a8)%8
if (x==0 and y==0) c=7
u=64.5+(x13)+z
v=64.5+(y13)+z
w=8.5b-abs(x)5
h=8.5b-abs(y)5
if (w>.5) rectfill(u-w,v-h,u+w,v+h,c) rect(u-w,v-h,u+w,v+h,c-1)
end
end
end

if rnd()<f-.5 then
?daynumber,69-#daynumber*2,65,2
end

if f>=1 then
for j=0,1 do
for i=1,f50-50 do
x=cos(i/50)
y=sin(i/25)-abs(x)(.5+sin(t()))
circfill(65+x8,48+y3-j,1,2+j*6)
end
end

for i=1,20 do
?sub("your text",i),17+i4,90,mid(1-(-1-i/20+f),0,1)7
end
end

if (t()==8) goto donewithintro

flip()
goto _
::donewithintro::

function _init()

end