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."
