code:

---

:init
;Enter the Matrix by Terminator
;Phear my 1337 kix skills ;-)
;rogierg@hotmail.com
srnd(@MSECS)
$fill=0
:key
cls
color b+
at (12,22) "[b]lue pill"
color r+
at (12,44) "[r]ed pill"
get $k
if $k=b goto "end" endif
if $k<>r goto "key" endif
cls
:loop1
$color="n+"
if $fill="60" goto "clear" endif
$fill=$fill + "1"
$xpos=rnd(24)
$ypos=rnd(79)
$length=rnd(10) + "3"
$xposend=$xpos + $length
$colorend=$length / "3"
$colorstep=1
:loop2
if kbhit() goto "end" endif
if $xpos>"24" goto "loop1" endif
$chr=rnd(100) + "150"
color w+
at ($xpos,$ypos) chr($chr)
sleep 0.01
color $color
at ($xpos,$ypos) chr($chr)
sleep 0.01
$colorstep=$colorstep + "1"
if $colorstep=$colorend $colorstep=1 if $color="g" $color="g+" endif if $color="n+" $color="g" endif endif
$xpos=$xpos + "1"
if $xpos=$xposend goto "loop1" else goto "loop2" endif
:clear
cls
$fill=0
goto "loop1"
:end
cls
color g
at (0,0) "The matrix has you..."
color w/b

---