Compressed Bytes used
973

Source Code (OPTIONAL)
-- nostalgia
-- BY josh goebel
function n()
d=0
_draw=c
end
menuitem(1,"reboot",n)
function c()
cls(0)
?"⁶!0001⁸"
?"⁶!0040…ワ"
?"⁶!0080zwᵉ"
?"⁶!00c0ぬシ\0"
?"⁶!0101ᶜ\0"
?"⁶!0141\0\0"
sspr(0,0,8,8,0,0,24,24)
print"\n\n\n\ntinybios 2.29c"
print"(c)2024 tinysoft, inc.\n\n"
print"cpu : cyrix 6𝘹86"
print"speed : 166 mh𝘻"
print"\n\nmemory:"
print(d.."𝘬𝘣 ok")
if d<2048then
d+=4
else
?"⁶d9⁷ ⁷ ⁶d0"
d=0
_draw=u
end
print("\npress ᶜ7delᶜ6 to run setup",0,110)
end
n()
function o()
local n={}
for e=1,4do
n[e]={
rnd()*128,
rnd()*128,
v={
rnd()*4,
rnd()*4
}
}
end
return n
end
function a(n,d)
local e={1,2,3,4,1}
line()
for o,e in ipairs(e)do
line(
n[e][1],
n[e][2],
d)
end
end
f={
{
points=o(),
history={},
color=9
},
{
points=o(),
history={},
color=12
}
}
function l()
cls()
foreach(f,function(n)
add(n.history,i(n.points))
if(#n.history>=5)deli(n.history,1)
foreach(n.history,function(e)
a(e,n.color)
end)
end)
if(btn()>0)_draw=s
end
function i(n)
if(type(n)~="table")return n
local e={}
for n,d in pairs(n)do
e[n]=i(d)
end
return e
end
function x(n)
local e,d=n.v[1]<0and 1or-1,n.v[2]<0and 1or-1
if(n[1]<0)n[1]=0n.v[1]=max(rnd()*4,.5)*e
if(n[2]<0)n[2]=0n.v[2]=max(rnd()*4,.5)*d
if(n[1]>127)n[1]=127n.v[1]=max(rnd()*4,.5)*e
if(n[2]>127)n[2]=127n.v[2]=max(rnd()*4,.5)*d
end
r=0
function _update()
r+=1
h=false
if(r%1~=0)h=true return
for e,n in ipairs(f)do
for e,n in ipairs(n.points)do
n[1]+=n.v[1]
n[2]+=n.v[2]
x(n)
end
end
end
function e(n,e,d,o,t)
rectfill(n,e,n+d,e+o,t)
end
function u()
cls(5)
cls(0)
e(13,10,100,105,12)
e(40,30,45,55,0)
e(45,35,15,20,8)
e(65,35,15,20,3)
e(45,60,15,20,1)
e(65,60,15,20,10)
print("windows",50,94,0)
for n=1,10do
e(40+n*4,120,0,0,5)
end
for n=1,min(d/48,10)do
e(40+n*4,120,0,0,7)
if(d>520)_draw=l
end
d+=1
end
function s()
cls(1)
print("²6ᶜ0windows",50,30,7)
print("fatal error #867 at base\naddress 0𝘹5309.",15,50,7)
print("please restart",35,90,7)
end