|
CARRYING-TIME |
BEGSR |
||||
|
RANDOMIZE |
LABOR PAINS |
||||
|
LABOR PAINS |
IFEQ |
*TRUE |
|||
|
WEEKS |
ANDLT |
26 |
|||
|
MOVE |
*TRUE |
SPONTABORT |
|||
|
ENDIF |
|||||
©2001 JanBais The Algorithm of an Average Taxpayer's Life The Hague The Netherlands