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 ;

>>5
That's not what I was curious about. I was asking why he made a difference between niggers and shitskins when one is obviously a subclass of the other.