0 *= 17664
1 .D ML.SMOOTH..
2 .S
3 .P
9 JMP SL100
38 SCNUM .BYTE 1
40 MAPX .BYTE 0
100 SL100 CMP #1:BEQ SL102:CMP #2:BEQ SL104:LDA MAPX:JSR MAP
101 SL101 LDA MAPX:LDX MAP+38:LDY 49273:RTS
102 SL102 JMP SLEFT
104 SL104 JMP SRIGHT
110 SLEFT LDA 49273:SEC:SBC #1:CMP #15:BEQ SL112:JMP SL130
112 SL112 LDA MAPX:CLC:ADC #1:CMP #255:BNE SL114:LDA #16:JMP SL130
114 SL114 STA MAPX:JMP SL140
120 SRIGHT LDA 49273:CLC:ADC #1:CMP #24:BEQ SL122:JMP SL130
122 SL122 LDA MAPX:SEC:SBC #1:CMP #0:BNE SL124:LDA #23:JMP SL130
124 SL124 STA MAPX:JMP SL140
130 SL130 STA 49273:JMP SL160
140 SL140 LDA SCNUM:CLC:ADC #1:CMP #3:BNE SL142:LDA #1
142 SL142 STA SCNUM:CMP #1:BEQ SC1:JMP SC2
144 SC1 LDA #4:STA MAP+38:LDA MAPX:JSR MAP:LDY #159
145 L145 LDA 2048,Y:STA 1024,Y:DEY:CPY #255:BNE L145
146 JSR GETY:LDA #27:LDX #4:STA 49276:STX 648:STY 49273:JMP SL160
150 SC2 LDA #8:STA MAP+38:LDA MAPX:JSR MAP:LDY #159
151 L151 LDA 1024,Y:STA 2048,Y:DEY:CPY #255:BNE L151
152 JSR GETY:LDA #43:LDX #8:STA 49276:STX 648:STY 49273:JMP SL160
160 SL160 RTS
162 GETY LDY 49273:CPY #16:BNE SL164:LDY #23:RTS
164 SL164 CPY #23:BNE SL166:LDY #16:RTS
166 SL166 LDA #1:STA 53280:RTS
170 MAP .BYTE 24 105 0 133 4 169
172 .BYTE 48 105 0 133 5 162 0
174 .BYTE 224 0 240 16 165 4 24
176 .BYTE 105 255 133 4 165
178 .BYTE 5 105 0 133 5 202
180 .BYTE 208 240 169 160 133
182 .BYTE 2 169 4 133 3 162
184 .BYTE 20 160 39 177 4 145
186 .BYTE 2 136 16 249 165 2
188 .BYTE 24 105 40 133 2 165
190 .BYTE 3 105 0 133 3 165 4
192 .BYTE 24 105 255 133 4
194 .BYTE 165 5 105 0 133 5
196 .BYTE 202 16 218 96
999 .END TX.SMOOTH..