RosettaCodeData/Task/Fractran/TI-83-BASIC/fractran.basic

100->T
2->N
{17,78,19,23,29,77,95,77, 1,11,13,15,15,55}->LA
{91,85,51,38,33,29,23,19,17,13,11,14, 2, 1}->LB
Dim(LA)->U
T->Dim(LC)
For(I,1,T)
	1->J: 1->F
	While J<=U and F=1
		If remainder(N,LB(J))=0
		Then
			Disp N
			N->LC(I)
			iPart(N/LB(J))*LA(J)->N
			0->F
		End
		J+1->J
	End
End