https://basiclang.solarpunk.au/d/12-facebook-basic-online-christmas-contest
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 on my forum, so you don't have to go to Facebook.
Day 8 – Starfield
https://www.facebook.com/groups/2057165187928233/posts/4151104051867659/
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
#retrocomputing #basic #retro #vintagecomputers #vintagecomputing #coding #programming #advent #aoc #adventofcode #permacomputing
Craig Duncan
tom jennings
Friedemann
Beardy Star Stuff 🏴🌹🇵🇸
Ethan Black
vidak
Marcus Rohrmoser 🌻
jgstratton
nix