Code for TI-83+ so the calculator acts as an intervalometer

ti-intervalometer.vb

/*
TI-83+ code to use calculator as an intervalometer
Adapted from a comment on:
http://www.instructables.com/id/Turn-a-TI-Graphing-Calculator-into-an-Intervalomet/
*/

Disp "START IN "
Disp "SECONDS"
Prompt A
A*238 -> S
Disp "HOW OFTEN IN "
Disp "SECONDS"
Prompt B
B*238 -> D
/* message needs to be a variable */
1 -> M
/*take 12 hours worth of images*/
60*60*12 / B -> C
/* delay before initial signal*/
For( X, 1, S )
End
/* send a signal to start*/
Send(M)

While C > 0
	// count down
	C-1 -> C
	// delay
	For( X, 1, D )
	End
	// send signal
	Send(M)
End