There is a large and active BASIC community on Facebook:
https://www.facebook.com/groups/2057165187928233
There has been a competition running on the Facebook group.
Please find reproduced a curated selection of competition entries.
Day 8 – Boxrain
Today a bit earlier ( the 24h rule still apply to the last task!):
Your task is to create a pseudo-3D star flight. You must use 6
different characters that become larger the further they move
outward (6 different characters, even if they don’t get larger,
would be just as fine). A maximum of 10 stars should be visible at
any given time, and the entire animation runs until 100 stars have
appeared on the screen. The direction of the stars must be generated
randomly, in which they fly.
Winner Fast - Sven Bastrop
0 sys 65499:dim q(39),e:y=40:t=32:z=160:dim q:x=1024:f=24:for e=. to 39:q(e)=f:next
1 for w=. to 999:q=rnd(.)*y:if q(q)<. then w=w-1:next
2 e=x+q:for e=e to e+y*q(q) step y:poke e-y,t:poke e,z:next:q(q)=q(q)-1:next:print ti
168 Bytes - 7994 Jiffies
2nd Fast - Eyvind Ebsen
1 t=ti:e=160:f=32:d=1024:c=40:h=c:dim s(h),n(h):for r=.to h:n(r)=r:next
2 r=int(rnd(.)*h):w=n(r):a=d+n(r):b=a+(24-s(w))*c
3 for q=a to b step c:poke q,e:poke q-c,f:next:s(w)=s(w)+1:if s(w)<25 then 2
4 if r<39 then for q=r t oh-1:n(q)=n(q+1):next
5 h=h-1:if h>0 then 2
6 print ti-t
225 Bytes - 9371 Jiffies
Winner Short - Sven Bastrop
0 t=ti:a=40:dim q(a):for w=.to 999:q=rnd(.)*a:if q(q)>24 then w=w-1:next
2 e=1024+q:for e=e to e+a*(24-q(q)) step a:poke e-a,32:poke e,160:next:q(q)=q(q)+1:next:print ti-t
130 Bytes - 11765 Jiffies
2nd Short - Jader Monari
1 t=ti:dim c(40):for i=0 to 39:c(i)=25:next
2 for n=0 to 999:a=int(40*rnd(.))
3 c(a)=c(a)-1
4 if c(a)=0 then poke(1024+a),160:goto 7
5 if c(a)<0 then a=(a+1)-40*int((a+1)/40):goto 3
6 for i=1 to c(a):poke (1024+a+40*(i-1)),32:poke(1024+a+40*i),160:next
7 next:print ti-t
216 Bytes - 26334 Jiffies
Out of competition my code:
0 t=ti:dim p,i:a=160:d=32:dim c,e:q=1024:dim h(39):for b= . to 999
1 c=rnd(.)*40:e=h(c):if e=25 goto 1
2 p=q+c:for i= . to 24-e:if i then poke p-40,d
3 poke p,a:p=p+40:next:h(c)=e+1:next:print ti-t
152 Bytes - 12465 Jiffies