10 *= 23422
12 .S
14 .P
16 .D ML.DIE.....
100 L100 LDA 855:CMP #0:BNE L102:JMP DONE
102 L102 CMP #1:BNE L104:JMP FALLSTART
104 L104 CMP #2:BNE L106:JMP FANSTART
106 L106 CMP #3:BNE L118:JMP DROWNSTART
118 L118 JMP ANIMATE
120 FALLSTART LDA #136:STA 857:JMP ANIMATE
122 FANSTART LDA #150:STA 857:JMP ANIMATE
124 DROWNSTART LDA #143:STA 857:JMP ANIMATE
130 ANIMATE LDX #255:STX 855:LDX 861:INX:STX 861:CPX #7:BEQ STOP
132 TXA:CLC:ADC 857:STA 2040:STA 3064
134 DONE RTS
140 STOP LDX #0:STX 855:STX 861
142 LDY #0:LDA 851:STA 253:LDA 852:STA 254:LDA #175:STA (253),Y
144 LDA 849:STA 838:LDA 850:STA 839:LDA 853
146 STA 842:LDA 854:STA 843:LDA #0:STA 53249
150 LDX 856:CPX #0:BNE L152:JMP FINNISH
152 L152 DEX:STX 856
154 LDX #0:LDY #6:CLC:JSR $FFF0
156 LDX 856:LDA #0:JSR $BDCD:LDA #32:JSR $FFD2:LDA #104:STA 848
190 JSR 20779
192 JMP DONE
200 FINNISH PLA:PLA:RTS
999 .END TX.DIE.....