10 *= 28300
12 .S
14 .P
16 .D ML.BAR.....
18 JMP L100
20 AMT .BYTE 0
22 AMT2 .BYTE 0
24 ADR .BYTE 87 4 8
26 CHR .BYTE 229
100 L100 CMP #1:BNE L102:JMP ADD1
102 L102 CMP #2:BNE L104:JMP SUB1
104 L104 LDA AMT:RTS
110 ADD1 LDX AMT:CPX #104:BEQ L104
111 INX:STX AMT
112 LDX CHR:DEX:STX CHR
114 LDA ADR:STA 2:LDA ADR+1:STA 3
116 LDY AMT2:TXA:STA (2),Y:LDX #8:STX 3:STA (2),Y:LDX #4:STX 3
118 CMP #224:BNE L104
120 LDY AMT2:INY:STY AMT2
122 LDA #228:STA CHR
124 STA (2),Y:LDX #8:STX 3:STA (2),Y:LDX #4:STX 3
126 JMP L104
130 SUB1 LDX AMT:CPX #0:BEQ L104
131 DEX:STX AMT
132 LDX CHR:INX:STX CHR
134 LDA ADR:STA 2:LDA ADR+1:STA 3
136 LDY AMT2:TXA:STA (2),Y:LDX #8:STX 3:STA (2),Y:LDX #4:STX 3
138 CMP #229:BNE L104
140 LDY AMT2:DEY:STY AMT2
142 LDA #225:STA CHR
144 STA (2),Y:LDX #8:STX 3:STA (2),Y:LDX #4:STX 3
146 JMP L104
999 .END TX.BAR.....