cls
setpin 52,cin
do
for x=0 to 59                   '60 seconds
 pause 1000                     '1 second increments
 text 200,20,str$(x,4),LM,5,1   'display seconds in top corner of screen
 if x = 9 then                  'display count after 10 seconds on 1 line
    GETA                        'call sub to read pin 52 and assign to "a"
    text 10,20,str$(a,4),LM,5,1 ' display text on separate line.
 endif
 if x = 19 then                 ' display after 20 sec.
    GETA
    text 10,50,str$(a,4),LM,5,1
 endif
 if x = 29 then                 ' display after 30 sec.
    GETA
    text 10,80,str$(a,4),LM,5,1
 endif
 if x = 39 then                 ' display after 40 sec.
    GETA
    text 10,110,str$(a,4),LM,5,1
 endif
 if x = 49 then                 ' display after 50 sec.
    GETA
    text 10,140,str$(a,4),LM,5,1
 endif
next x
GETA
print  a
text 160,170,str$(a,4),CM,5,1    ' display after 1 min.
setpin 52,CIN                    ' reset count
Loop                             ' do it again
end

sub GETA
  a=Pin(52)
end sub