```
Repeat D>1
Menu(" FLAPPY BIRD ","STANDARD SPEED",A,"SET SPEED",B,"RANDOM SPEED",C
Lbl A
15→D
Goto D
Lbl B
Input "SPEED",D
Goto D
Lbl C
randInt(1,25)→D
Lbl D
End
ClrHome
4→Y
⁻1→S
Repeat Y>10
randInt(3,7)→H
S+1→S
For(V,26,1,⁻1)
If Y>10:Goto E
If V=2 and (Y≠H and Y≠H-1):Goto E
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 (Do not type in "//one space", we're trying to say "use the space key on the calculator")
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
Lbl E
ClrHome
Disp "GAME OVER!"
Pause S
```

Eternity