.nolist
	.include <ti81.inc>
	.list

	.db tQuote, tPtOn, tPtOn, tPtOn, tPtOn
	.db tPtOn, tPtOn, tPtOn, tPtOn
	.db tPtOn, tPtOn, tPtOn, tPtOn
	.db tPtOn, tPtOn, tPtOn, tPtOn
	.db tQuote, tStore, tX3T, tEnter

	.db tX, tAdd, t1, tStore, tX, tEnter ; X + 1 -> X
	.db tIf, tX, tLT, t9, tEnter	     ; If X < 9
	.db tProg, t2, tEnter		     ; prgm2
	.db t0, tStore, tX, tEnter	     ; 0 -> X
	.db tInput, tX			     ; Input X