10 *= 17987
12 .D ML.COIN....
13 .S
14 .P
18 JMP L100
20 COINS .BYTE 4
22 EACHL .BYTE 128 136 144 152
24 EACHH .BYTE 43 43 43 43
26 COUNT .BYTE 0
28 COINL .BYTE 192
30 COINH .BYTE 46
100 L100 LDA COUNT
110 CLC
120 ADC #1
130 CMP #4
140 BNE L160
150 LDA #0
160 L160 STA COUNT
170 TAX
180 LDA EACHL,X
190 STA 2
200 LDA EACHH,X
210 STA 3
220 LDA COINL
230 STA 4
240 LDA COINH
250 STA 5
260 LDY #0
270 L270 LDA (2),Y
280 STA (4),Y
290 INY
300 CPY #8
310 BNE L270
320 RTS
999 .END TX.COIN....