10 *= 28160
12 .S
14 .P
16 .D ML.ELEVATOR
100 LDA #64:STA 2:LDA #45:STA 3
104 LDX 840:DEX:CPX #255:BNE L106:LDX #7
106 L106 STX 840:LDX 841:INX:CPX #8:BNE L110:LDX #0
110 L110 STX 841:LDY #8:LDA (2),Y:STA 4
120 INY
130 L130 LDA (2),Y:DEY:STA (2),Y
140 INY:INY
150 CPY #16:BNE L130
160 LDA 4:DEY:STA (2),Y
200 LDA #96:STA 2:LDA #45:STA 3
210 LDY #15:LDA (2),Y:STA 4
220 DEY
230 L230 LDA (2),Y:INY:STA (2),Y
240 DEY:DEY
250 CPY #7:BNE L230
260 LDA 4:INY:STA (2),Y
270 RTS
999 .END TX.ELEVATOR