Subj : Happy Xmas
To   : All
From : Klaus Meinhard
Date : Sat Dec 22 2001 01:59 am

From: "Klaus Meinhard" <K_Meinhard@hotmail.com>

Folks,

here's one I adapted from Mike Bessy's and my MONTAGE.BTM (you can find this 
included in your version 7 EXAMPLES.BTM at the end) to fit the times. Lines 
that start in colums 1 have wrapped (no rapping required!)
:-)

  ::SLEIGH.BTM
    @echo off
    *setlocal
    *unset *
    on break goto :DONE

    drawbox 0 0 %@dec[%_rows] %@dec[%_columns] 0 0 on 0 fill 0
    alias b=`gosub star %+ beep`
    do n=0 to 79
        set f=%@random[1,7]
        vscrput %@eval[%_rows-%f] %n gre on %_bg %@repeat[,%f]
    enddo

  :SLEIGH

    b 587 5  %+ b 587 5  %+ b 587 5 %+ b 587 5  %+ b 659 5 %+ b 587 2
%+ b 494 2 %+ b 392 5  %+ b 440 5 %+ b 494 5
    b 440 2  %+ b 370 2  %+ b 330 5 %+ b 294 18 %+ b 330 5 %+ b 370 5
%+ b 440 5 %+ b 587 5  %+ b 659 5 %+ b 587 2
    b 494 2  %+ b 440 2  %+ b 392 2 %+ b 440 5  %+ b 440 2 %+ b 494 2
%+ b 440 2 %+ b 392 2  %+ b 330 5 %+ b 392 18
    b 587 5  %+ b 587 5  %+ b 587 5 %+ b 587 5  %+ b 659 5 %+ b 587 2
%+ b 494 2 %+ b 392 5  %+ b 440 5 %+ b 494 5
    b 440 2  %+ b 370 2  %+ b 330 5 %+ b 294 18 %+ b 330 5 %+ b 370 5
%+ b 440 5 %+ b 587 5  %+ b 659 5 %+ b 587 2
    b 494 2  %+ b 440 2  %+ b 392 2 %+ b 440 5  %+ b 440 2 %+ b 494 2
%+ b 440 2 %+ b 392 2  %+ b 330 5 %+ b 392 18
    b 311 2  %+ b 330 2  %+ b 494 5 %+ b 311 2  %+ b 330 2 %+ b 494 5
%+ b 294 2 %+ b 330 2  %+ b 494 5 %+ b 554 5
    b 466 18 %+ b 494 5  %+ b 466 2 %+ b 370 2  %+ b 311 5 %+ b 415 18
%+ b 466 5 %+ b 415 2  %+ b 330 2 %+ b 277 2
    b 330 2  %+ b 415 5  %+ b 494 5 %+ b 466 5  %+ b 554 5 %+ b 370 27
%+ b 277 2 %+ b 294 2  %+ b 440 5 %+ b 277 2
    b 294 2  %+ b 440 5  %+ b 262 2 %+ b 294 2  %+ b 440 5 %+ b 494 5
%+ b 415 9 %+ b 440 5  %+ b 415 2 %+ b 330 2
    b 277 5  %+ b 370 18 %+ b 880 5 %+ b 659 2  %+ b 587 2 %+ b 440 5
%+ b 587 5 %+ b 659 2  %+ b 880 2 %+ b 659 5
    b 587 2  %+ b 440 2  %+ b 587 2 %+ b 659 2  %+ b 880 5 %+ b 1174 5
%+ b 880 5 %+ b 587 5  %+ b 587 5 %+ b 587 5
    b 587 5  %+ b 587 5  %+ b 659 5 %+ b 587 2  %+ b 392 2 %+ b 392 5
%+ b 440 5 %+ b 494 5  %+ b 440 2 %+ b 370 2
    b 330 5  %+ b 294 18 %+ b 294 5 %+ b 370 5  %+ b 440 5 %+ b 587 5
%+ b 659 5 %+ b 587 2  %+ b 494 2 %+ b 440 2
    b 392 2  %+ b 440 5  %+ b 440 2 %+ b 494 2  %+ b 440 2 %+ b 392 2
%+ b 330 5 %+ b 392 18 %+ b 587 5 %+ b 587 5
    b 587 5  %+ b 587 5  %+ b 659 5 %+ b 587 2  %+ b 494 2 %+ b 392 5
%+ b 440 5 %+ b 494 5  %+ b 440 2 %+ b 370 2
    b 330 5  %+ b 294 18 %+ b 330 5 %+ b 370 5  %+ b 440 5 %+ b 587 5
%+ b 659 5 %+ b 587 2  %+ b 494 2 %+ b 440 2
    b 392 2  %+ b 440 5  %+ b 440 2 %+ b 494 2  %+ b 440 2 %+ b 392 2
%+ b 330 5 %+ b 392 27

  :DONE

    quit

  :STAR

    screen 0 0
    set _r=%@random[0,%@eval[%_rows - 7]]
    set _c=%@random[0,%@eval[%_columns - 1]]
    set _col=%@random[1,15]
  :: Change this as approrpiate for your character set to
  :: get the best effect!
    set _char=%@word[%@random[0,5],*   � . o]
    scrput %_r %_c %_col on %_bg %_char

  return

Have a happy Xmas and nice holidays,

--
Viele Gr��e, best regards,

*Klaus Meinhard*
07�36'57" East  53�07'52" North
Author of the 4XBTM batch collection at http://www.4xbtm.de

--- BBBS/NT v4.01 Flag-2
 * Origin: Mach2 Systems (1:342/3)

.