10 *= 23296
12 .S
14 .P
16 .D ML.SCROLL..
100 L100 LDA 53248:CMP #38:BCC SLEFT
102 CMP #60:BCS SRIGHT:JMP CHKSCROLL
110 SRIGHT LDA 53264:AND #1:CMP #1:BEQ SCRIGHT
112 JMP CHKSCROLL
120 SLEFT LDA 53264:AND #1:CMP #0:BEQ SCLEFT
122 JMP CHKSCROLL
130 SCRIGHT LDA #100:STA 859
132 LDA #1:STA 860:JMP CHKSCROLL
140 SCLEFT LDA #100:STA 859
142 LDA #2:STA 860
150 CHKSCROLL LDA 859:CMP #0:BEQ DONE
152 LDX 859:DEX:STX 859
154 LDA 860:JSR 17664
156 LDA 860:CMP #1:BEQ L160
158 LDA 53248:CLC:ADC #1:STA 53248:LDA 53264:ADC #0:STA 53264:JMP DONE
160 L160 LDA 53248:SEC:SBC #1:STA 53248:LDA 53264:SBC #0:STA 53264
162 DONE RTS
999 .END TX.SCROLL..