|
PERFORM-BIRTH |
BEGSR |
||||
|
CONCEPTION |
IFEQ |
*TRUE |
|||
|
SPONTABORT |
ANDEQ |
*FALSE |
|||
|
MOVE |
*MAX |
GOLD |
|||
|
MOVE |
GOLD |
HAPPINESS |
|||
|
MOVE |
HAPPINESS |
LIFE |
|||
|
MOVE |
LIFE |
CHILD |
|||
|
MOVE |
CHILD |
WORLD |
|||
|
ENDIF |
|||||
©2001 JanBais The Algorithm of an Average Taxpayer's Life The Hague The Netherlands