Here is a 2d graphical effects program. Give it a chance, the worst effects are at the beginning.
randomize timer():hide mouse:do:for a=1 to 640:line a,0,480,a:next a:flip bitmap 0:wait 1500:cls:for a=1 to 100:ink a*1000000,0:line rnd(640),rnd(480),rnd(640),rnd(480):next a:cls:for a=1 to 30
ink a*10000,0: for b=1 to a+1: line a+b*a-b,a*b+a/b,a+b/a-b,a*b-a/b: next b:next a:cls:for a=1 to 30: ink a*10000,0: for b=1 to a+1: dot a+b*a-b,a*b+a/b: next b:next a:cls:for a=1 to 60: ink a*10000,0: for b=1 to a+1
line a+b,a-b,a*b,a/b: next b:next a:cls:ss=rnd(50):for a=1 to 640: ink a*ss+1000*2,0: circle a,240,ss:next a:cls:ss=rnd(50):dd=rnd(50):ff=ss*dd:for a=1 to 640: ink a*ff+1000*2,0
circle a,240,ss:next a:cls:for a=1 to 60: ink a*10000,0: for b=1 to a+1: circle a+320,b+240,tan(sqrt(a*b*(rnd(100)+1))): next b:next a:cls:for a=1 to 60
ink a*10000,0: for b=1 to a+1: dot atanfull(a+rnd(10),b)+320,atanfull(b+rnd(10),a)+240: next b:next a:cls:for a=1 to 60: ink a*10000,0: for b=1 to a+1: c=tan(a*100): d=tan(b*100): e=c*b: dot e+320,a+240: dot b+320,e+240
next b:next a:cls:for a=1 to 60: ink a*10000,0: for b=1 to a+1
dot tan(a*10+100)+320,tan(b*10+100)+240: next b:next a:cls
for a=1 to 60: ink a*10000,0: for b=1 to a+1: dot tan(a*rnd(500)+100)+320,tan(b*rnd(500)+100)+240: next b:next a:cls:for a=1 to 30: ink a*10000,0: for b=1 to a+1: line rnd(a),rnd(b),rnd(b),rnd(a)
next b:next a:cls:for a=1 to 25: ink a*10000,0: for b=1 to a+1: circle 320,240,(a+b)*10
next b:next a:cls:set cursor 320,240:print "Look at the top left corner of the screen":wait 5000:cls:for a=1 to 30: ink a*10000,0: for b=1 to a+1: dot a,b: next b:next a:cls:for a=1 to 60
ink a*10000,0: for b=1 to a+1: dot a*10,b*20: next b:next a:cls:for a=1 to 60: ink a*10000,0: for b=1 to a+1: line sin(a*1000),b*10,a+300,b+300: next b:next a:for a=1 to 640:line a,0,a,480:ink a*1000000,0:next a:loop::
Also, here is an uncompressed version:
randomize timer()
hide mouse
do
for a=1 to 640
line a,0,480,a
next a
flip bitmap 0
wait 1500
cls
for a=1 to 100
ink a*1000000,0
line rnd(640),rnd(480),rnd(640),rnd(480)
next a
cls
for a=1 to 30
ink a*10000,0
for b=1 to a+1
line a+b*a-b,a*b+a/b,a+b/a-b,a*b-a/b
next b
next a
cls
for a=1 to 30
ink a*10000,0
for b=1 to a+1
dot a+b*a-b,a*b+a/b
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
line a+b,a-b,a*b,a/b
next b
next a
cls
ss=rnd(50)
for a=1 to 640
ink a*ss+1000*2,0
circle a,240,ss
next a
cls
ss=rnd(50)
dd=rnd(50)
ff=ss*dd
for a=1 to 640
ink a*ff+1000*2,0
circle a,240,ss
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
circle a+320,b+240,tan(sqrt(a*b*(rnd(100)+1)))
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
dot atanfull(a+rnd(10),b)+320,atanfull(b+rnd(10),a)+240
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
c=tan(a*100)
d=tan(b*100)
e=c*b
dot e+320,a+240
dot b+320,e+240
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
dot tan(a*10+100)+320,tan(b*10+100)+240
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
dot tan(a*rnd(500)+100)+320,tan(b*rnd(500)+100)+240
next b
next a
cls
for a=1 to 30
ink a*10000,0
for b=1 to a+1
line rnd(a),rnd(b),rnd(b),rnd(a)
next b
next a
cls
for a=1 to 25
ink a*10000,0
for b=1 to a+1
circle 320,240,(a+b)*10
next b
next a
cls
set cursor 320,240
print "Look at the top left corner of the screen"
wait 5000
cls
for a=1 to 30
ink a*10000,0
for b=1 to a+1
dot a,b
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
dot a*10,b*20
next b
next a
cls
for a=1 to 60
ink a*10000,0
for b=1 to a+1
line sin(a*1000),b*10,a+300,b+300
next b
next a
for a=1 to 640
line a,0,a,480
ink a*1000000,0
next a
loop