|
PERFORM-ADULT-LIFE |
BEGSR |
|||
|
DOUGT |
65 |
|||
|
LETSGO |
OREQ |
*FALSE |
||
|
DAYS |
IFEQ |
|||
|
DAYS |
OREQ |
7 |
||
|
PERFORM |
WEEKEND |
|||
|
ELSE |
||||
|
WEEKDAY |
||||
|
ENDIF |
||||
|
MONTHS |
IFEQ |
4 |
||
|
PERFORM |
PAY-TAX |
|||
|
ENDIF |
||||
|
MONTHS |
IFEQ |
7 |
||
|
PERFORM |
VACATION |
|||
|
ADD |
1 |
MONTHS |
||
|
ENDIF |
||||
| PERFORM |
CHKADULT- |
|||
| PERFORM |
CLOCKWORK |
|||
©2002 JanBais The Algorithm of an Average Taxpayer's Life The Hague The Netherlands