Lumon-8 (#Pico1K)

LUMON-8 was an attempt to demake the Macrodata Refining (MDR) Program from the TV show Severance, using only 1,024 compressed bytes of code, for #Pico1k Jam 2022.

I also recommend listening to the Severance Soundtrack while you are refining numbers (it's your Outie's favourite! 🎵)

ACKNOWLEDGEMENTS

• This is a fan creation and has no affiliation with Apple.
• A large chunk of the code was taken up creating a custom font for the tiny numbers, which was inspired the fonts Not Jam Pixel 5 and Particle.
• Carl Chimes for CRT HTML plate
  (uses @Mattias_G's shader + based on @Ultrabrite's HTML template)
• 2DArray's Demo-Man - for lerping code snippets.
• Simplified UI inspired by this online clone of MDM interface.
• Severance, Recreated in Blender 3.1
• The Severance - The Lexington Letter eBook - for MDM reference.
• This Lumon Industries fan site - for more reference
  (+for letting me generate this sweet business card... 🤓)

SOURCE CODE (1,024 bytes) poke(24365,1)poke(22016,4,4,6)poke(22401,2,5,5,2,0,0,0,0,3,2,2,2,0,0,0,0,3,4,2,7,0,0,0,0,7,2,4,3,0,0,0,0,5,5,15,4,0,0,0,0,7,1,4,3,0,0,0,0,2,1,5,2,0,0,0,0,7,4,2,1,0,0,0,0,7,5,7,7,0,0,0,0,2,5,4,2,0,0,0,0,0,5,2,5,0,0,0,0,9,4,2,9,0,0,0,0,1,3,5,9,15,1,0) u=0 v=0 f={}g={ {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}}?"\astb3a#ga#a#gg" a={1,2,3,4,5}::_:: oval(90,1,126,15,12) oval(99,2,116,14) rect(5,4,121,12) r=false x=stat(32) y=stat(33) if stat(34)>0 and #a>0 then if (not d) d=true j=x k=y else if (d) then r=true v=.01 s=rnd(a) end d=false j=nil end rect(-1,17,128,19) rect(-1,101,128,103) for i=0,127 do n=f[i] or { n=rnd()*10\1, x=(i*8)%128+2, y=((i*8)\128)*10+22, a=(i*8)%128+2, b=((i*8)\128)*10+22, z=.5, v=rnd(), }z=n.z+sin(u+n.v) if(j)n.s=n.x<x and="" n.x="">j and n.y<y and="" n.y="">k and z>1.4 ?((((x-n.x)^2+(y-n.y)^2)^█<12 or z>1.4) and "" or "\14")..n.n,n.x,n.y,n.s and 7 or 12 if(r and n.s) n.u=(s-1)*24+12 if n.u then n.x=n.a*(1-v)+n.u*v n.y=n.b*(1-v)+103*v if(v>1)then n=nil k=rnd{1,2,3,4}g[s][k]=min(g[s][k]+1,25) end end f[i]=n end if (d) rect(j,k,x,y) u+=.0005 if v>0 then v+=.04 l=(s-1)*24+5w=mid(.77-abs(v/2%4-.77),.37)-.25 for i=1,4 do ?"⁶#"..({"WO","FC","DR","MA"})[i].." ",l+2,112+i*6-w*4*65,("3421")[i] rectfill(l+11,113+i*6-w*4*65,l+11+.36*g[s][i],113+i*6+3-w*4*65) line(l,110,l+sin(w)*10,110-cos(w)*10,7) line(l+20,110,l+20-sin(w)*10,110-cos(w)*10) end if(v>4)v=0 end p=0rectfill(0,110,127,127,c)for i=1,5 do b=g[i] b[0]=b[1]+b[2]+b[3]+b[4] l=(i-1)*24+5 rectfill(l,119,l+.2*b[0],126,7) ?"\14 0"..i.."\n\|j"..b[0]..";",(i-1)*24+8,111,12 rect(l,110,l+20,117) rect(l,119,l+20,126) if(b[0]==100)del(a,i) p+=b[0]c=0 end if(p\5==75)c=t()\1%4 ?"sIENA ⁶w⁶x3\#"..c.."⁶-bLUMON",9,6 if(p\5==100)?"⁶w⁶t⁶#100%",50,50,7 ?"\14\f7<⁶1⁶c"..c,x,y ?(p\5).."% cOMPLETE",38,6 goto _