10 *= 18050
12 .S
14 .P
16 .D ML.RAIN....
18 JMP RL100
20 DOWN .BYTE 0
100 RL100 LDA DOWN
110 CLC
120 ADC #1
130 CMP #8
140 BNE RL170
150 LDA #0
170 RL170 STA DOWN
172 LDY #7
175 LDA #44
180 STA 3
190 LDA #136
200 STA 2
210 LDA (2),Y
212 STA 4
214 DEY
216 LDX DOWN
220 RL220 LDA (2),Y
230 CPX #0
240 BNE RL290
250 ASL
260 ADC #0
270 ASL
280 ADC #0
290 RL290 INY
300 STA (2),Y
310 DEY
320 DEY
330 CPY #255
340 BNE RL220
350 LDY #0
360 LDA 4
362 CPX #0
364 BNE RL370
366 ASL:ADC #0
368 ASL:ADC #0
370 RL370 STA (2),Y
380 RTS
999 .END TX.RAIN....