this code was taken from another code base entry named Binary Fall Screensaver by Luke Brown, after playing around with the values in the code, i found that changing the value of s

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Rem Project: Binary Fall
Rem Created: 25/08/2006 22:42:17

Rem ***** Main Source File *****

randomize timer()
hide mouse
sync on:sync rate 0

`sw#=(screen height()/10)
sw#=75

set text font "Lucida Sans Unicode"
`set text size 17

do

r#=rnd(screen width())
s#=rnd(screen width())
t#=rnd(screen width())

u#=rnd(screen width())
v#=rnd(screen width())
w#=rnd(screen width())

x#=rnd(screen width())
y#=rnd(screen width())
z#=rnd(screen width())

ink rgb(0,50,0),rgb(0,0,0)
for x= 1 to sw#
a#=rnd(1)
if a#=0 then set cursor x#,(x*10):print "0"
if a#=1 then set cursor x#,(x*10):print "1"

if a#=0 then set cursor w#,(x*10):print "0"
if a#=1 then set cursor w#,(x*10):print "1"

next x

ink rgb(0,100,0),rgb(0,0,0)
for x= 1 to sw#
a#=rnd(1)
if a#=0 then set cursor z#,(x*10):print "0"
if a#=1 then set cursor z#,(x*10):print "1"

if a#=0 then set cursor v#,(x*10):print "0"
if a#=1 then set cursor v#,(x*10):print "1"

next x

ink rgb(0,75,0),rgb(0,0,0)
for x= 1 to sw#
a#=rnd(1)
if a#=0 then set cursor y#,(x*10):print "0"
if a#=1 then set cursor y#,(x*10):print "1"

if a#=0 then set cursor u#,(x*10):print "0"
if a#=1 then set cursor u#,(x*10):print "1"

next x

ink rgb(50,170,50),rgb(0,0,0)
for x= 1 to sw#
a#=rnd(1)
if a#=0 then set cursor r#,(x*10):print "0"
if a#=1 then set cursor r#,(x*10):print "1"

if a#=0 then set cursor s#,(x*10):print "0"
if a#=1 then set cursor s#,(x*10):print "1"

next x



sync
loop