What are you trying to achieve?... doing an AD conversion once per minute, otherwise keeping time in 1mS Steps?

CounterA var word

Loop:
For CounterA=0 to 60000
Pause 1
Next CounterA
Gosub A2D
Goto Loop