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 ;

Very nice, but this is irrelevant compared to the upcoming dubs by >>11

Dancing is for niggers and shitskins

>>3
"And"?

>>4
True white aryans like >>3 goose-step in marching lines singing Horst-Wessel-Lied.

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

>>6
The intricacies of modern racial theories are unknown to me. Probably he meant two different things or he defines them differently.

>>7
If you're not him and do not have any relevant knowledge, then why do you attempt to answer?

>>8
Because you replied to me? I never mentioned i'm >>3.

>>9
You were the first to reply to me in >>5. I only responded to clarify what my question was about (because your reply was wildly irrelevant to it).

>>10
I assumed your reply is like "And what about it?" and not about the word ``and"

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

>>12
It hurts my autism to leave things unexplained.

>>12
And..quote the entire line next time like this
>>3

niggers and shitskins

>>14
Then where do I put the question mark?

niggers and shitskins

?

^
|
|
This looks bad and unobvious.

>>15 just add a real human sentence with a question?

>>3

niggers [b]and[/b] shitskins

How are they different?

>>16
This is a crime against brevity and terseness, unfortunately.

>>17
Brevity and terseness considered harmful

check my DUPs

>>17
yeah, lets talk like 13-old girls messaging each other with SMS
you=u
and=&
to=2
saves tons of space and time. Looks really advanced and sophisticated too. Like Heinlein's Speedtalk. I wonder why baka autists don't like it?

ｇℴℴ₯      ℰ√ℰℕίℕｇ      ℋℴℳℴϨℰ☓⋃αℒϨ,

ί      αℳ      Ҟℕℴѡℕ      αϨ      ℐℴℕα†ℋαℕ,      αℕ₯      ί      ℳ⋃Ϩ†      α₯ℳί†      †ℋα†      α      ℛα†ℋℰℛ      Ϩ†ℛℴℕｇ,      ℕℰｇα†ί√ℰ      ℱℰℰℒίℕｇ      ℴ√ℰℛѡℋℰℒℳϨ      ℳℰ      ѡℋℰℕ      ί      ℱίℕ₯      ℳϒϨℰℒℱ      ίℕ      ϒℴ⋃ℛ      ℘ℛℰϨℰℕ☾ℰ.      √ℰℛίℒϒ,      ί†      ℋαϨ      ℬℰ☾ℴℳℰ      α℘℘αℛℰℕ†      †ℋα†      ϒℴ⋃ℛ      ｇℛℴ⋃℘      ℋαϨ      α      ѡℰίｇℋ†      ℘ℛℴℬℒℰℳ,      α      ℛα†ℋℰℛ      ℒℴѡ      ί.ℚ.,      αℕ₯      Ϩ⋃ℱℱℰℛϨ      ℱℛℴℳ      √αℛίℴ⋃Ϩ      αℕ†ίϨℴ☾ίαℒ      ₯ίϨℴℛ₯ℰℛϨ,      ℘ℰℛϨℰ√ℰℛα†ίℕｇ      ℴℕ      αℕ      ℴℬϨℰϨϨίℴℕ      ѡί†ℋ      ℘ℋℴ†ℴｇℛα℘ℋϒ      αℕαℒϒϨίϨ.      ϒℴ⋃ℛ      ℰ☓ίϨ†ℰℕ☾ℰ      ίϨ      ☾⋃ℒ†⋃ℛαℒℒϒ      ℬαℕҞℛ⋃℘†      αℕ₯      Ϩℴ☾ίαℒℒϒ      ίℕℱℰ☾†ίℴ⋃Ϩ.      ℕℴѡ,      ℬℰ      †ℛ⋃†ℋℱ⋃ℒ:      ₯ℴ      αℕϒ      ℴℱ      ϒℴ⋃      Ҟℕℴѡ      †ℋℰ      ѡαϒϨ      ℴℱ      α      ѡℴℳαℕ?      ί      ☾αℕ      ⋃ℕ₯ℰℛϨ†αℕ₯      †ℋα†      Ϩ⋃☾ℋ      ѡℰαҞ      ℰｇℴϨ      ℳαϒ      ℒℰα₯      †ℴ      ℘⋃ℬℒί☾      ℋαℛαϨϨℳℰℕ†,      ℬ⋃†      †ℋℰ      α☾†ίℴℕϨ      ☾ℴℳℳί††ℰ₯      ℋℰℛℰ      αℛℰ      α℘℘αℒℒίℕｇ.      Ϩ⋃☾ℋ      ℬℰℋα√ίℴℛ      ℰ☓☾ℰℰ₯Ϩ      †ℋℰ      Ϩ†ίｇℳα      ℴℱ      Ϩℴίℒℰ₯      †ℋℴ⋃ｇℋ†Ϩ      ѡℋℰℕ      √ίℰѡίℕｇ      †ℋℰ      ℘ℋℴ†ℴｇℛα℘ℋϨ      ℴℱ      α☾ℚ⋃αίℕ†αℕ☾ℰϨ.

ί      ⋃ℛｇℰ      αℒℒ      ℬℰℱℴℛℰ      ℳℰ      †ℴ      ℬℰ      ℋℴℕℰϨ†.      ᆆℰℳ℘†      αℕ      ίℕϨ⋃ℒ†,      ϒℴ⋃      ѡίℒℒ      ℱίℕ₯      †ℋα†      ί†      ίϨ      ℚ⋃ί†ℰ      ₯ίℱℱί☾⋃ℒ†.      ℳϒ      ℬℴ₯ϒ      αℕ₯      ℳίℕ₯      αℛℰ      ℘ℰℛℱℰ☾†ℒϒ      ℬαℒαℕ☾ℰ₯      αℕ₯      ☾ℴℳ℘ℒℰ†ℰℒϒ      ℰℱℱί☾ίℰℕ†.      ί      Ϩℰℛ√ℰ₯      αϨ      †ℋℰ      ℋℴℕℴℛαℬℒℰ      ☾α℘†αίℕ      ℴℱ      †ℋℰ      ℛ⋃ｇℬϒ      ☾ℒ⋃ℬ,      αℕ₯      ѡαϨ      ℴℕℰ      ℴℱ      †ℋℰ      ℳℴϨ†      †αℒℰℕ†ℰ₯      ℳℰℳℬℰℛϨ      ℴℱ      †ℋℰ      ℘ℴℒℴ      †ℰαℳ      ίℕ      ℳϒ      ｇℰℕ†ℒℰℳαℕ'Ϩ      ☾ℒ⋃ℬ.      ίℱ      ί      ℳαϒ      ίℕℚ⋃ίℛℰ,      ίℕ      ѡℋί☾ℋ      α☾†ί√ί†ίℰϨ      ₯ℴℰϨ      †ℋℰ      ℒℴ†      ℴℱ      ϒℴ⋃      ℘αℛ†αҞℰ,      ℬℰϒℴℕ₯      α⋃†ℴ-ℰℛℴ†ί☾      ℘ℒℰαϨ⋃ℛℰϨ      ίℕ      †ℋℰ      ℘ℛℰϨℰℕ☾ℰ      ℴℱ      αℕίℳα†ℰ₯      ℱℰα†⋃ℛℰϨ      ℱℛℴℳ      †ℋℰ      ℱαℛ      ℰαϨ†?      ℬℰϒℴℕ₯      †ℋℰ      αℱℴℛℰℳℰℕ†ίℴℕℰ₯      †ℛαί†Ϩ,      ί      ℋα√ℰ      α      ℘ℛίϨ†ίℕℰ      α☾α₯ℰℳί☾      ℛℰ☾ℴℛ₯      αℕ₯      α      ℒℴ√ℰℛ      ѡℋℴϨℰ      ℬℴ₯ϒ      ѡαϨ      Ϩ☾⋃ℒ℘†ℰ₯      ℬϒ      αℕｇℰℒϨ      (ℋℰℛ      ℳℴϨ†      ℛℰ☾ℰℕ†      ℱℰℒℒα†ίℴℕ      ⋃℘ℴℕ      ℳϒ      ℘ℋαℒℒ⋃Ϩ      ☾α⋃Ϩℰ₯      αℕ      ℰ☾Ϩ†αϨϒ      ｇℛℰα†ℰℛ      †ℋαℕ      αℒℒ      ℴℱ      †ℋℰ      ℚ⋃ℰℰℕ'Ϩ      ｇℴℒ₯).      ℋℴℳℴϨℰ☓⋃αℒϨ      Ϩ⋃☾ℋ      αϨ      ϒℴ⋃ℛϨℰℒ√ℰϨ      ѡℴ⋃ℒ₯      ℬℰ      ℬℰ††ℰℛ      ℴℱℱ      †ℰℛℳίℕα†ίℕｇ      ϒℴ⋃ℛ      ℴѡℕ      ℒί√ℰϨ      αϨ      α      ℱα√ℴℛ      †ℴ      †ℋℰ      Ϩ†α†⋃Ϩ      ℚ⋃ℴ      ℴℱ      †ℋℰ      ｇℰℕℰℛαℒ      ℘⋃ℬℒί☾.

dubs

>>1

Thank you very much for posting this piece of illuminating Forth. Thank you very very very much.

Seriously, thanks. Ignore all the shitposts. Thank you.

Post more if you can. Sorry if my message of thanks came a little late. Keep posting.