sincerement, tu passerais 1 heure a lire le manuel que tu ferais un programme plus adapte au potentiel de la ti89.
t'a juste a lire les chapitre portant sur :
- les chaines de caracters
- les listes
- et les truc poure fair un peu de math, de manipulation binaire

en plus ce code s'optimise facilement en 3 lignes au plus :

EndFor:
Lbl e
If b>7 Then
Disp "f(h)=",y1(x)*l2(8)
Pause :EndIf
If b>6 Then
Disp "f(g)=",y1(x)*l2(7)
Pause :EndIf
If b>5 Then
Disp "f(f)=",y1(x)*l2(6)
Pause :EndIf
If b>4 Then
Disp "f(e)=",y1(x)*l2(5)
Pause :EndIf
If b>3 Then
Disp "f(d)=",y1(x)*l2(4)
Pause :EndIf
If b>2 Then
Disp "f(c)=",y1(x)*l2(3)
Pause :EndIf
If b>1 Then
Disp "f(b)=",y1(x)*l2(2)
Pause :EndIf
If b>0 Then
Disp "f(a)=",y1(x)*l2(1)
Pause :EndIf

en faisant correctement un truc du genre ( je signale que j'ai juste jete un coup d'oeil rapide au code ).

premiere optimisation

If b>7 Then
Disp "f(h)=",y1(x)*l2(8)
ElseIf 0<b and b<8 Then
Disp "f(" & char( ord("a" ) - b - 1 ) & ")=", y1(x)*l2(b)
ElseIf b=0 Then
Disp "f(a)=",y1(x)*l2(1)
EndIf
Pause

En reflechissant un peu plus on peut arriver a une ligne peut-etre.

If MIN<b and b<MAX Then
Disp "f("& char( F(b) ) & " )=",y1(x)*l2( G(b) )
Pause
EndIf

A toi de trouver les fonctions F et G