 simburb.txt     ׀ 8"`J  JЗٹپt
@   ׀ATEXTR*ch          f  ~C7W                       O  Prgm1:simburb

:clrhome
:disp "simburb"
:disp " by michael"
:disp "    van der kolk"
:disp "1-new 2-old"
:input a
:if a!=1
:goto a
:6->arow
:6->acol
:6->brow
:6->bcol
:6->crow
:6->ccol
:1->a
:1->b
:lbl b
:0->[a](a,b
:0->[c](a,b
:is>(b,6
:goto b
:1->b
:is>(a,6
:goto b
:1000->[c](1,1
:.05->[c](1,2
:lbl a
:function
:rect
:1->xmin
:96->xmax
:16->xscl
:1->ymin
:60->ymax
:10->yscl
:all-off
:grid off
:prgm 2
:lbl c
:clrhome
:disp "1-buy road   50"
:disp "2-buy home  100"
:disp "3-buy shop  200"
:disp "4-buy plant 200"
:disp "5-status"
:disp "6-change taxes"
:disp "7-simulate"
:input w
:ipart w->w
:w->a
:if(a>=1)+(a<=4)=2
:prgm4
:if w=5
:prgm8
:if w=5
:pause
:if w=5
:prgm2
:if w=6
:goto q
:if w=7
:prgm5
:pause
:goto c
:lbl q
:clrhome
:disp "current tax"
:disp [c](1,2
:input a
:a->[c](1,2
:goto c                               L   L   2                                                                                                                                                                                                                                                   H 	Monaco                             - K - KV                L   L   26    2  MPSR   
    >L  