I want to add this one Flappy Bird clone I made to the wiki, but first I need to see if it's optimized fully.

Here is the code. Press UP to flap, CLEAR to exit, and ENTER once you lose to quit. It saves your highscore.

```
ClrHome
DelVar P24→Q
32→S
5→Y
SetUpEditor FBIRD
1→dim(∟FBIRD
Ans→E
Output(Ans,Ans,"GET READY
Output(4,4,"θ≥
Repeat 10=abs(Ans
getKey-35
End
If Ans=10
Goto E
Output(1,1,"SCORE:
Repeat K=45 or Y>8 or int(Q/3)=1 and (Y≤R+2 or Y≥R+6) or int(S/3)=1 and (Y≤T+2 or Y≥T+6
Q-1+16(Q=1→Q
S-1+16(S=1→S
P+(P<999 and (Q=4 or S=4→P
Output(1,8,Ans
getKey→K
If Ans=25
1→E
(E<3)(E+not(not(E→E
Y+1-2not(not(Ans→Y
If Ans<2
2->Y
If Ans<9
Output(Ans,4,"θ≥
If Q≤16 or S≤16
Then
If Q=16
int(3rand→R
If S=16
int(3rand→T
For(Z,0,1
For(X,2,R+2
Output(X,Q,sub("II ",1+2Z,1+(Q<16
End
For(X,R+6,8
Output(X,Q,sub("II ",1+2Z,1+(Q<16
End
If S<=16
Then
For(X,2,T+2
Output(X,S,sub("II ",1+2Z,1+(S<16
End
For(X,T+6,8
Output(X,S,sub("II ",1+2Z,1+(S<16
End
End
If not(Z
rand(3
End
Else
rand(10
End
If Y<9
Output(Y,4,"
End
ClrHome
Output(2,4,"GAME OVER
Output(4,4,"SCORE:
Output(4,11,P
If P>∟FBIRD(1
Then
{P→FBIRD
"HIGH SCORE
Else
Output(6,11,∟FBIRD(1
"BEST:
End
Output(6,4,Ans
Pause
Lbl E
ClrHome
```

This has been confirmed working on all calcs in the 83+ series (including the color ones) (fastest on TI-84+).

Is there anything I can improve on, and how can I get this on the wiki?

```
:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome
```