I typed this into my TI-84+ CE and noticed a few improvements that could be made.
1) The first digit of the score is displayed at an X-coordinate of 16. On older calculators, the second and third digits of the score are displayed at coordinates of 1 and 2, respectively. The display should be at 14 to prevent a looped score.
2) The way the game ends when the bird dies is kind of abrupt, so Pause should be put after the last End.
Also, I made a full screen version for the TI-84+ CSE and CE:
15→D
ClrHome
4→Y
⁻1→S
Repeat Y>10
randInt(3,7)→H
S+1→S
For(V,26,1,⁻1)
If Y>10:Stop
If V=2 and (Y≠H and Y≠H-1):Stop
If Y≤10:Output(Y,2,">"
For(E,1,H-2)
Output(E,V,"I"
End
For(E,H+1,10)
Output(E,V,"I")
End
For(E,1,D)
End
For(E,1,10)
Output(E,V," " //one space
End
Output(1,24,S
getKey→K
If not(K)
Then
If Y≤10:Output(Y,2," " //one space
Y+1→Y
End
If K and Y>1
Then
If Y≤10:Output(Y,2," " //one space
Y-1→Y
End
End
End
Pause
I'll upload the CSE/CE version to the archives shortly.