Sorry your browser is not supported!

rem *****************************************************
rem * Created by Jon "Angry Kreyon" Ericson  8-27-07    *
rem *****************************************************
sync on : sync rate 0 : hide mouse : sH=screen height() : sW=screen width() : set cursor sW /2,sH /2 : set text font "symbol" : set text to bold : set text size 18 : dim x(20) : dim y(20)
   for i = 1 to 20 :  y(i) = 0 : x(i) = rnd(screen width()) :  next i : randomize 255 : do :  drop(rnd(2),800/rnd(66)) : loop

function drop(H,W) : ink rgb(0,255,0),rgb(0,0,0) : x(i) = rnd(screen width() ) : for i = 1 to 20 : for c = 1 to 35 : ink rgb(0,255-(c*5),0),rgb(0,0,0)
   center text x(i),y(i),chr$(192+rnd(61)):sync : center text x(i),y(i),chr$(rnd(255)):sync : center text x(i)*0.2,y(i),chr$(192+rnd(21)):sync : center text x(i)*0.6,y(i),chr$(rnd(61)):sync : center text x(i)/0.2,y(i),chr$(rnd(200)):sync : center text x(i)/0.6,y(i),chr$(192+rnd(161)):sync
   if y(i) > screen height() : x(i) = rnd(screen width() ) : y(i) = 0 - rnd(screen height() ) : else : y(i) = y(i) + 18 : endif
   if scancode() = 25 : drop(1,rnd(W)): endif : if scancode()=1 : exit : endif : next c : fade bitmap 0,98 : next i : flip bitmap 0 : mirror bitmap 0 : ink rgb(0,255,0),rgb(0,0,0)
 endfunction

rem *****************************************************
rem * Created by Jon "Angry Kreyon" Ericson  8-27-07    *
rem *****************************************************
sync on : sync rate 0
hide mouse
randomize 255

sH=screen height() : sW=screen width()
set cursor sW /2,sH /2
set text font "symbol"
set text to bold
set text size 18
dim x(20)
dim y(20)

for i = 1 to 20
   x(i) = rnd(screen width())
   y(i) = 0
next i

`Main Loop
DO
   drop(rnd(2),800/rnd(66))
LOOP

`Function
function drop(H,W)
   ink rgb(0,255,0),rgb(0,0,0)
   x(i) = rnd(screen width() )
   for i = 1 to 20
      for c = 1 to 35
         ink rgb(0,255-(c*5),0),rgb(0,0,0)
         center text x(i),y(i),chr$(192+rnd(61))
         sync
         center text x(i),y(i),chr$(rnd(255))
         sync
         center text x(i)*0.2,y(i),chr$(192+rnd(21))
         sync
         center text x(i)*0.6,y(i),chr$(rnd(61))
         sync
         center text x(i)/0.2,y(i),chr$(rnd(200))
         sync
         center text x(i)/0.6,y(i),chr$(192+rnd(161))
         sync
         if y(i) > screen height()
            x(i) = rnd(screen width() )
            y(i) = 0 - rnd(screen height() )
         else
            y(i) = y(i) + 18
         endif
         if scancode() = 25 then drop(1,rnd(W))
         if scancode()=1 then exit
      next c

      fade bitmap 0,98
   next i

   flip bitmap 0
   mirror bitmap 0
   ink rgb(0,255,0),rgb(0,0,0)
endfunction

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

sH=screen height() : sW=screen width()
set cursor sW /2,sH /2
set text font "symbol"
set text to bold
set text size 18
dim x(20)
dim y(20)
dim ltr$(20)

for i = 1 to 20
   x(i) = rnd(screen width())
   y(i) = rnd(screen height())
   ltr$(i)=chr$(rnd(255))
next i

`Main Loop
DO

   drop(rnd(2),800/(rnd(66)+1))

LOOP

`Function
function drop(H,W)
 ink rgb(0,255,0),rgb(0,0,0)
 c=1
 For drop1 = 1 to 30
   for i = 1 to 20
     ink rgb(0,255-(c*5),0),rgb(0,0,0)
     center text x(i),y(i),ltr$(i)
     if scancode() = 25 then drop(1,rnd(W))
     if scancode()=1 then exit
     y(i) = y(i) + 15
     if y(i)>480
       y(i)=0
       x(i) = rnd(screen width())
       ltr$(i)=chr$(rnd(255))
     Endif
   next i
   sync
   fade bitmap 0,90
 Next drop1
   `flip bitmap 0
  ` mirror bitmap 0
ink rgb(0,255,0),rgb(0,0,0)
endfunction