Welcome to the Lumon Family

Congratulations! 🎉
We are all thrilled you've decided to become part of Macrodata Refinement department, here at Lumon Industries. 
We shall now begin your orientation on being a successful Macrodata Refiner.

OBJECTIVE

• Examine the numbers displayed in the data field in front of you which need refining.
• Using the roller ball, move the magnifying glass around the data field and see the numbers enlarge as it passed over them.
  
• Periodically, certain numbers may start to make you feel a certain way.
• There are four categories of numbers, each of which elicits a different feeling.
  • WO - These numbers elicit melancholy or despair.
  • FC - These numbers elicit joy or ecstasy.
  • DR - These numbers elicit fear, anxiety or apprehension.
  • MA - These numbers elicit rage or a desire to do harm.
• When you are ready, try highlighting a group of numbers by clicking and dragging over a data set. Then release to automatically drop the numbers into a bin.
• Once dropped into a bin, a progress report will display, showing the levels of each number type within that bin.
• Your job is to fill all five bins evenly, with the four kinds of numbers.
• Should you have any further questions, feel free to ask your supervisor.

...and remember - when you reach 75% completion, you'll be rewarded with a
Music/Dance Experience! 🕺🚥

Happy Refining and Praise Kier! 🔢⤵️🗑️

Paul N.
- Macrodata Refinement

CONTROLS

ABOUT

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 _