Eine Möglichkeit sind 2 Zähler und ein schalter
Code:
dim Gesamt    as long  
dim Vielfache  as word
dim A as word
dim sw as byte

Anfang:
Gesamt    = 0
Vielfache =  0
A = 0
sw = 0

do 
 if sw = 1 then 
     print str(a)
     sw = 0
 end if
loop
'---------------------------------------
Interrupt:
   incr Gesamt
   incr Vielfache
   if   Vielfache = 2750 then 
        Vielfache = 0
        incr A
        sw = 1
  end if
 return
Was da fehlt, ist CONFIG INT0 etc.
UND
Eine Endebedingung.