Here is the written code for all future passers-by.

```
SetUpEditor BAP
If not(dim(⌊BAP
{0→⌊BAP
ClrHome
Output(1,7,"Avalanche+
Output(2,7,"by
Output(3,7,"Michael23B
Output(4,7,"----------------
Output(5,7,"SCORE:
Output(7,7,"HIGH:
Output(7,12,⌊BAP(1
For(A,1,8
Output(A,1,"! !
End:1→D:3→A
.5→S
Repeat K=45 or (A=B and Str1="-") or (A≠B and Str1="+
randInt(2,5→B
sub("+-",randInt(1,2),1→Str1
D+1→D
Output(5,13,D
For(C,1,8,S
getKey→K
Output(iPart(C),B,Str1
Output(8,A,"π
If K
Output(8,A,"
A+(K=26)(A<5)-(K=24)(A>2→A
If K=45:8→C
Output(iPart(C),B,"
End
S+.01(S<1→S
End
ClrHome
If D≤⌊BAP(1
Then
Output(1,1,"SCORE:
Output(1,7,D
End
If D>⌊BAP(1
Then
Output(1,1,"NEW HIGH:
Output(1,10,D
D→⌊BAP(1
End
```