Some cool 2d effects using color and lines and dots.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    randomize timer()
hide mouse

for a=1 to 640
line a,0,480,a
next a
flip bitmap 0

wait 5000
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