cells column 1 row 1 stringValue () Prgm ClrIO Disp "Interval in seconds?" Prompt interval Disp "Number of pictures?" Prompt quantity quantity*interval→total timeCnv(total)→list Disp "This will run for…" Disp list Disp "{days hrs min secs}" Pause "Ready to start?" Disp "Running…" For i,quantity,0,–1 startTmr()→time checkTmr(time)→t While t≤interval checkTmr(time)→t EndWhile Try Send {1} Else ClrErr EndTry Disp i EndFor Disp done EndPrgm device name camera device type TI-89 Titanium isProtected object type Program