|
SEX-INTERCOURSE |
BEGSR |
||||
|
SPERMATOZOA |
DOUGT |
50000000 |
|||
|
ADD |
1 |
SPERMATOZOA |
|||
|
ENDDO |
|||||
|
MOVE |
*FALSE |
ORGASM |
|||
|
MOVE |
WOMAN |
BACKWARD |
|||
|
MOVE |
MAN |
WOMAN |
|||
|
ORGASM |
DOUEQ |
*TRUE |
|||
|
MOVE |
PELVIS |
DOWN |
|||
|
MOVE |
PELVIS |
UP |
|||
|
ENDDO |
|||||
|
EJACULATE |
|||||
|
MOVE |
OVA |
WOMB |
|||
|
RANDOMIZE |
BIRTHCONTROLE |
||||
|
BIRTHCONTROLE |
IFEQ |
*FALSE |
|||
|
RANDOMIZE |
CONCEPTION |
||||
|
CONCEPTION |
IFEQ |
*TRUE |
|||
|
RANDOMIZE |
Y-CHROMOSOME |
||||
|
Y-CHROMOSOME |
IFEQ |
*TRUE |
|||
|
MOVE |
*TRUE |
MALE |
|||
|
ELSE |
|||||
|
MOVE |
*TRUE |
FEMALE |
|||
|
ENDIF |
|||||
|
MOVE |
0 |
SECONDS |
|||
|
MOVE |
0 |
MINUTES |
|||
|
MOVE |
0 |
HOURS |
|||
|
MOVE |
0 |
DAYS |
|||
|
MOVE |
0 |
WEEKS |
|||
|
MOVE |
0 |
MONTHS |
|||
|
MOVE |
0 |
YEARS |
|||
|
CLOCKWORK |
|||||
|
ENDIF |
|||||
©2001 JanBais The Algorithm of an Average Taxpayer's Life The Hague The Netherlands