Tim Swan's FALLDOWN in ti-Basic

ClrHome
{1,1,1,1}→L₁
{1,1,1,1}→L₂
For(A,1,4
randInt(1,16→L₁(A)
randInt(1,16→L₂(A)
End
1→M
3→Y
8→X
3→T
8→S
While 1
M-1→M
If M=0
8→M
M+Y+1→R
While R>8
R-8→R
End
If fPart(R/2)=0
Then
Y-1→Y
If Y=0
Stop
Y→T
End
If fPart(M/2)=0
Then
M/2→W
randInt(1,16→L₁(W)
randInt(1,16→L₂(W)
"                OOOOOOOOOOOOOOOO                OOOOOOOOOOOOOOOO                OOOOOOOOOOOOOOOO                OOOOOOOOOOOOOOOO→Str1
Else
"OOOOOOOOOOOOOOOO                OOOOOOOOOOOOOOOO                OOOOOOOOOOOOOOOO                OOOOOOOOOOOOOOOO                →Str1
End
For(B,1,4
M-2B→R
While R<1
R+8→R
End
(R-1)16+L₁(B→U
(R-1)16+L₂(B→V
If U>1
sub(Str1,1,U-1)+" "→Str2
If U<128
Str2+sub(Str1,U+1,128-U)→Str2
Str2→Str1
If V>1
sub(Str1,1,V-1)+" "→Str2
If V<128
Str2+sub(Str1,V+1,128-V)→Str2
Str2→Str1
For(H,1,3
Output(Y,X,"θ
If T≠Y≠S
Output(T,S,"
X→S
Y→T
0→A
getKey→A
If A=26
X+1→X
If A=24
X-1→X
If X=17
1→X
If X=0
16→X
If Y<8
Then
M-Y→R
While R<1
R+8→R
End
R/2→W
If fPart(W)=0
Then
Output(Y,L₁(W),"*
Output(Y,L₂(W),"*
If X=L₁(W)=L₂(W)
Y+1→Y
Else
Y+1→Y
End
End
End
Output(Y,X,"θ
End
Output(1,1,Str1
End