'Reading the 12 outputs of a chiming bells ornament. (untested)
'It records the time (mS) when each bell is struck and the number of the bell(s)
setpin gp0, din
setpin gp1, din
setpin gp2, din
setpin gp3, din
setpin gp4, din
setpin gp5, din
setpin gp6, din
setpin gp7, din
setpin gp8, din
setpin gp9, din
setpin gp10, din
setpin gp11, din

Dim integer Bells(200,2), n, tmp, tmp2

Timer = 0

for n = 0 to 200 'or whatever the sequence length is
 tmp = Port(gp0,12)
 do while Port(gp0,12) = tmp : loop : tmp2 = Port(gp0,12) 'wait for a chime
 Bells(n,0) = Timer
 Bells(n,1) = tmp2
 Pause 50 'Wait for solenoid pulse to end. Make longer than a solenoid pulse.
  'Needs to be shorter than the shortest interval between chimes
next

for n = 0 to 200
 Print Bells(n,0), Bells(n,1), Bin$(Bells(n,1),12)
next

end