DANCING MEN

HERE VALUE seed
: RANDOM seed $107465 * $234567 + DUP TO seed ;
: CHOOSE RANDOM UM* NIP ;

80 VALUE delay ( in ms )
40 VALUE xcenter1 50 VALUE xcenter2 30 VALUE xcenter3
6 VALUE ycenter1 13 VALUE ycenter2 10 VALUE ycenter3

: STICKMAN ( | 6_strings )
0 0 LOCALS| 'start sz |
CREATE HERE TO 'start 0 ,
6 0 DO REFILL 0= ABORT" refill error"
0 WORD COUNT EVALUATE TO sz
HERE sz CMOVE sz ALLOT
LOOP
sz 'start !
DOES> ( X Y ix -- )
@+ DUP 6 / LOCALS| dx dy 'start frame Y X |
6 0 DO X Y I + AT-XY
dy I * 'start +
frame dx * CHARS +
dx TYPE
LOOP ;

\ One string would have been enough, but hey...
STICKMAN zero
S" "
S" "
S" "
S" "
S" "
S" "

STICKMAN one
S" o o o o o o"
S" O / O / o / o / o / O / "
S" o---|- o---|- o---|- o---|- o---|- o---|- "
S" /\ /\ /\ /\ /\ /\ "
S" \ \ _' \ \ \ \ \ _' \ \ \ "
S" - - - - - - - - - - "

STICKMAN two
S" o o o o o o"
S" O / O / O / O / O / O / "
S" o---|- .--|- .-|- .-|- .-|- .--|- "
S" /\ o /\ o /\ |/\ o /\ o /\ "
S" \ \ \ \ \ \ o\ \ \ \ \ \ "
S" - - - - - - - - - - - - "

STICKMAN three
S" o o o o o o"
S" O / O / O / O / O / O / "
S" o---|- o---|- o---|- o---|- o---|- o---|- "
S" /\ /\ /\ /\ /\ /\ "
S" \ \ _| \ _' \ / \ / |_ / / "
S" - - - - - - - - - "

STICKMAN four
S" o "
S" O / O o O O O O "
S" o---|- o---|- o---|-o o---|-. o---|- o---|- "
S" /\ /\ /\ /\ o /\\o /\\ "
S" \ \ | \ / \ / \ / | / / o"
S" - - - - - - - - - - - - "

STICKMAN five
S" o o o o o o"
S" O / O / O / O / O / O / "
S" o---|- .--|- .--|- .-|- .-|- .-|- "
S" /\ o /\ o /\ o /\ | /\ / /\ "
S" \ \ | \ / \ / \ o/ | o / / "
S" - - - - - - - - - - - - "

STICKMAN six
S" o "
S" O / O o O O O O "
S" o---|- .--|- .--|-o .-|-. .-|- .-|- "
S" /\ o /\ o /\ o /\ o | /\\o / /\\ "
S" \ \ _| \ / \ / \ o/ | o / / o"
S" - - - - - - - - - - - "

STICKMAN seven
S" o o o o o o"
S" O / O / o / o / o / O / "
S" o---|- o---|- o---|- o---|- o---|- o---|- "
S" /\ /\ /\ /\ /\ /\ "
S" / / / /_ / /_ / / / / / / "
S" - - - - - - - - - - "

STICKMAN eight
S" o o o o o o"
S" O / O / O / O / O / O / "
S" o---|- .--|- .-|- .-|- .-|- .--|- "
S" /\ o /\ o /\ |/\ o /\ o /\ "
S" / / / / / / o / / /_ / / "
S" - - - - - - - - - - - "

CREATE men
' one , ' two , ' three , ' four ,
' five , ' six , ' seven , ' eight ,

\ TASKs would be nicer, but this is ANS :-)
: HIP-HOP ( -- )
3 CHOOSE xcenter1 + 3 CHOOSE ycenter1 + 8 CHOOSE CELLS men + @
3 CHOOSE xcenter2 + 3 CHOOSE ycenter2 + 8 CHOOSE CELLS men + @
3 CHOOSE xcenter3 + 3 CHOOSE ycenter3 + 8 CHOOSE CELLS men + @
LOCALS| xt3 y3 x3 xt2 y2 x2 xt1 y1 x1 |
6 0 DO x1 y1 I xt1 EXECUTE
x2 y2 I xt2 EXECUTE
x3 y3 I xt3 EXECUTE
delay MS
LOOP
x1 y1 0 zero
x2 y2 0 zero
x3 y3 0 zero ;

: DANCERS ( -- )
PAGE
BEGIN HIP-HOP EKEY? UNTIL
EKEY DROP ;

>>11
You could have noticed the quotation marks. But regardless of that, I already told you in >>6 that you misunderstood me, and you have confessed in >>7 that you do not know the answer. So why do you keep answering me? You can stop at any moment. Go ahead and just cease the conversation. None of us will lose from that.