def building 77 def suppotie 76 def tiecheck 75 def writpos 74 def inspect 73 def counter 72 cond *.robage 0 = start 971 inc *971 1 = stop cond *.fixpos 0 > *971 1 != start 0 .fixpos store stop cond *.numties 4 >= *971 1 = start 1 .fixpos store stop cond *.tiecheck *.numties > start *.readtie 80 >= *.readtie 80 *.tiecheck add <= and *.trefnrg 0 = and *.readtie writpos store dropbool 80 *.inspect add * .readtie store .inspect inc *.inspect *.tiecheck > 0 .inspect store stop cond *.tiepres *.suppotie != start *.numties *.tiecheck > *.numties .tiecheck store *.numties .writpos store dropbool *.tiepres .suppotie store *.tiepres 79 *.writpos add store stop cond *.numties 0 > start 50 .sharenrg store 80 *.robage *.numties mod add * .tienum store 500 .fixlen store 100 .stifftie store 628 1256 *.numties div *.robage *.numties mod mult add 1256 mod .fixang store stop cond *.building 0 = start *.numties 4 < *971 1 = and 2 .building store dropbool *.numties 0 > *.numties 2 < and *971 1 > and *971 4 < and *.robage 100 > and 2 .building store dropbool stop cond *.building 1 = *.counter 0 = start *.numties 10 mult 9 rnd add .tie store 50 .counter store stop cond *.building 1 = start .counter dec 0 *.counter = .building dec stop cond *.building 2 = start 20 .repro store .building dec stop end