Okay, okay--I'll quit after this, but one lady dancing was so much fun, I
did a whole chorus line.

Enjoy.

--Ralph


REBOL[
        TITLE: "The REBOL City REBOLettes"
        AUTHOR: "Ralph Roberts, �2000"
        DATE: "13-Jan-2000"
        PURPOSE: "console animation demo"
        FILE: %chorusline.r]

 print newline
 print "^(1B)[10CPresenting the REBOL City Music Hall REBOLettes"
 print newline

loop 4 [

print "^(1B)[2C    .@@@.        .@@@.        .@@@.        .@@@.        .@@@.
"
print "^(1B)[2C    @o_o@        @o_o@        @o_o@        @o_o@        @o_o@
"
print "^(1B)[2C    /\v/\        /\v/\        /\v/\        /\v/\        /\v/\
"
print "^(1B)[2C    \(_)/        \(_)/        \(_)/        \(_)/        \(_)/
"
print "^(1B)[2C     | |          | |          | |          | |          | |
"
print "^(1B)[2C    _| |_        _| |_        _| |_        _| |_        _| |_
"

wait .5 prin "^(1B)[6A"
print "^(1B)[2C   .@@@.        .@@@.        .@@@.        .@@@.        .@@@.
"
print "^(1B)[2C   @o_o@        @o_o@        @o_o@        @o_o@        @o_o@
"
print "^(1B)[2C   /\v/\/       /\v/\/       /\v/\/       /\v/\/       /\v/\/
"
print "^(1B)[2C   \ (_)        \ (_)        \ (_)        \ (_)        \ (_)
"
print "^(1B)[2C     / \          / \          / \          / \          / \
"
print "^(1B)[2C   _/   |_      _/   |_      _/   |_      _/   |_      _/
|_      "

wait .5 prin "^(1B)[6A"
print "^(1B)[2C    .@@@.        .@@@.        .@@@.        .@@@.        .@@@.
"
print "^(1B)[2C    @o_o@        @o_o@        @o_o@        @o_o@        @o_o@
"
print "^(1B)[2C    /\v/\/       /\v/\/       /\v/\/       /\v/\/
/\v/\/    "
print "^(1B)[2C    \(_)____,    \(_)____,    \(_)____,    \(_)____,
\(_)____,"
print "^(1B)[2C     |            |            |            |            |
"
print "^(1B)[2C    _|           _|           _|           _|           _|
"


wait .5 prin "^(1B)[6A"
print "^(1B)[2C   .@@@.        .@@@.        .@@@.        .@@@.        .@@@.
"
print "^(1B)[2C   @o_o@        @o_o@        @o_o@        @o_o@        @o_o@
"
print "^(1B)[2C   /\v/\/       /\v/\/       /\v/\/       /\v/\/       /\v/\/
"
print "^(1B)[2C   \ (_)        \ (_)        \ (_)        \ (_)        \ (_)
"
print "^(1B)[2C     / \          / \          / \          / \          / \
"
print "^(1B)[2C   _/   |_      _/   |_      _/   |_      _/   |_      _/
|_      "


wait .1 prin "^(1B)[6A"
print "    .@@@.        .@@@.        .@@@.        .@@@.        .@@@.      "
print "    @o_o@        @o_o@        @o_o@        @o_o@        @o_o@      "
print "    /\v/\        /\v/\        /\v/\        /\v/\        /\v/\      "
print "    \(_)/        \(_)/        \(_)/        \(_)/        \(_)/      "
print "     | |          | |          | |          | |          | |       "
print "    _| |_        _| |_        _| |_        _| |_        _| |_      "


wait .1 prin "^(1B)[6A"
print "     .@@@.         .@@@.         .@@@.         .@@@.         .@@@.
"
print "     @o_o@         @o_o@         @o_o@         @o_o@         @o_o@
"
print "    \/\v/\        \/\v/\        \/\v/\        \/\v/\        \/\v/\
"
print "     (_) /         (_) /         (_) /         (_) /         (_) /
"
print "     / \           / \           / \           / \           / \
"
print "   _|   \_       _|   \_       _|   \_       _|   \_       _|   \_
"

wait .1 prin "^(1B)[6A"
print "    .@@@.        .@@@.        .@@@.        .@@@.        .@@@.      "
print "    @o_o@        @o_o@        @o_o@        @o_o@        @o_o@      "
print "   \/\v/\       \/\v/\       \/\v/\       \/\v/\       \/\v/\      "
print ",____(_)/    ,____(_)/    ,____(_)/    ,____(_)/    ,____(_)/      "
print "       |            |            |            |            |       "
print "       |_           |_           |_           |_           |_      "

wait .1 prin "^(1B)[6A"
print "     .@@@.         .@@@.         .@@@.         .@@@.         .@@@.
"
print "     @o_o@         @o_o@         @o_o@         @o_o@         @o_o@
"
print "    \/\v/\        \/\v/\        \/\v/\        \/\v/\        \/\v/\
"
print "     (_) /         (_) /         (_) /         (_) /         (_) /
"
print "     / \           / \           / \           / \           / \
"
print "   _|   \_       _|   \_       _|   \_       _|   \_       _|   \_
"

wait .1 prin "^(1B)[6A"

print "    .@@@.        .@@@.        .@@@.        .@@@.        .@@@.      "
print "    @o_o@        @o_o@        @o_o@        @o_o@        @o_o@      "
print "    /\v/\        /\v/\        /\v/\        /\v/\        /\v/\      "
print "    \(_)/        \(_)/        \(_)/        \(_)/        \(_)/      "
print "     | |          | |          | |          | |          | |       "
print "    _| |_        _| |_        _| |_        _| |_        _| |_      "

wait .1 prin "^(1B)[6A"

]
wait .1 prin "^(1B)[7B"

print [newline "^(1B)[10C**applause**applause***^/"]
print "^(1B)[12CNext Show 10 p.m."

Reply via email to