symbol index = B0
symbol images = B1
symbol count = B2
symbol Delay = 3               ' minutes between photographs
symbol shutter = 2             ' i/o pin of shutter
symbol indicator = 1           ' i/o pin of led indicator
symbol last_photo = 25         ' the number of frames on the roll of film

Commit:
  if pin3 = 0 then Commit      ' wait for commit pin to be pulled before recording pictures
  read 0,index                 ' but first, read number of images recorded on last mission
  sertxd ("images: ",#index)   ' then display number of images
  high indicator               ' now flash LED to indicate timer is started
  pause 1000
  low indicator
  pause 1000

Camera_Timer:
  for count = 1 to last_photo
    high indicator             ' light LED
    high shutter               ' trigger camera shutter
    pause 2000
    low shutter
    low indicator
    images = images + 1        ' update number of images recorded
    write 0,images             ' save to memory
    for index = 1 to Delay     ' wait for delay between pictures
      pause 60000
    next
  next
  end