 simulate.txt    ׀ 8"`J  JЗٹپtۧ    ׀ATEXTR*ch  @         ~CW                       Y  Prgm5:simulate

:1->a
:1->b
:lbl {THETA}
:if 2!=ipart [a](a,b)
:ipart [a](a,b)->[a](a,b
:is>(a,6
:goto {THETA}
:1->a
:is>(b,6
:goto {THETA}
:1->a
:1->b
:lbl a
:if ipart [a](a,b)!=2
:goto b
:a->d
:b->e
:prgm6
:lbl b
:is>(a,6
:goto a
:1->a
:is>(b,6
:goto a
:1->a
:1->b
:0->n
:0->o
:0->p
:lbl r
:[a](a,b)->c
:if ipart c=2
:n+fpart c->n
:if ipart c=3
:o+fpart c->o
:if ipart c=4
:p+fpart c->p
:if ipart c!=2
:goto g
:if rand70>=[c](1,2)100
:goto g
:c-round(rand,1)->[a](a,b
:if 2>[a](a,b
:2->[a](a,b
:lbl g
:if 2=(c!=1)+(fpart [a](a,b)=0
:0->[a](a,b
:if .01<=rand
:goto m
:if c=0
:goto m
:clrhome
:disp "an accident      caused a place  to disenegrate"
:pause
:0->[a](a,b
:pause
:lbl m
:is>(a,6
:goto r
:1->a
:is>(b,6
:goto r
:n*5+o*10+p*20->n
:ipart ([c](1,2)n50)->n
:[c](1,3)+n->[c](1,3
:[c](1,1)+n->[c](1,1
:[c](1,4)+n->[c](1,4
:prgm2
:clrhome
:disp "taxes collected"
:disp n                                                                                   L   L   2                                                                                                                                                                                                                                                   H 	Monaco                             - 	 - 	V                L   L   2    2  MPSR   
    B`  