Hope this makes you feel better.

code:

---

$a = 6
while $a > 0
$x = 2500
$y = 0
while $x >= 0
$y = $y + 1
select
   case $y = 1
        color r+/n
   case $y = 2
        color y+/n
   case $y = 3
        color g+/n
   case $y = 4
        color b+/n
   case 1
        $y = 0
endselect
$r = rnd(23)
$c = rnd(75)
at($r,$c) "*"
$x = $x -1
loop
big
select
   case $a = 6
      color b+/n
      $w = chr(89) + chr(79) + chr(85)
      at(10,15) " $w "
   case $a = 5
      color G+/n
      $w = chr(65) + chr(82) + chr(69)
      at(10,15) " $w "
   case $a = 4
      color y+/n
      $w = chr(78) + chr(79) + chr(84)
      at(10,15) " $w "
   case $a = 3
      color b+/n
      $w = chr(76) + chr(79) + chr(83) + chr(73) + chr(78) + chr(71)
      at(10,15) "$w"
   case $a = 2
      color y+/n
      $w = chr(89) + chr(79) + chr(85) + chr(82)
      at(10,15) " $w "
   case $a = 1
      color r+/n
      $w = chr(77) + chr(73) + chr(78) + chr(68)
      at(10,15) " $w "
   case 1
endselect
small
sleep(2)
$a = $a - 1
if $a > 1
cls
endif
loop 
play "0g6d1000f1200f1300f1400f1500f1600f1700f1800f70d1900f"                   
exit

---

------------------
BoxKite
FACTA NON VERBA

[This message has been edited by BoxKite (edited 25 October 2000).]