10 *= 19420
12 .S
14 .P
16 .D ML.WATER...
18 JMP L100
20 HIGHT .BYTE 0
21 MIN .BYTE 7
22 MAX .BYTE 4
24 DIR .BYTE 2
26 ADR .BYTE 56 46
100 L100 LDA DIR:CMP #1:BNE L160
110 LDX HIGHT:CPX MAX:BEQ L150
120 DEX:STX HIGHT:LDA ADR:STA 2:LDA ADR+1:STA 3
130 LDY HIGHT:LDA #170:STA (2),Y
140 JMP DONE
150 L150 LDA #2:STA DIR:JMP DONE
160 L160 LDA ADR:STA 2:LDA ADR+1:STA 3
170 LDY HIGHT:LDA #0:STA (2),Y
180 INY:STY HIGHT
190 CPY MIN:BNE DONE
200 LDA #1:STA DIR
210 DONE RTS
999 .END TX.WATER...