I apologize for including code on this mailing list, but some of us need
some Sunday afternoon diversion now that football season is over. And this
is certainly one way to learn escape sequences. Enjoy, and suggestions for
improvement welcomed.
--Ralph
REBOL [
TITLE: "The Dance Lady"
AUTHOR: "Ralph Roberts, �2000"
DATE: "13-Jan-2000"
PURPOSE: "console animation demo"
FILE: %dancelady.r]
print newline
print "^(1B)[10CPresenting the exotic"
print "^(1B)[10C MS. ASCII REBOLI"
print newline
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
print [newline "^(1B)[10C**applause**applause***^/"]
print "^(1B)[12CNext Show 10 p.m."
