Segway Video and TI Pong

Yes, its been over a month, but I have made quite a it of progress on my Segway, and, without further adieu:

Item #1:

Initial Segway Test from Kerry Snyder on Vimeo.

It balances itself! Now all I need to do is adjust the PID constants. And put in a big red E-Stop switch.

Item #2: TI calculator Pong

I made this while I was bored in math class last year, all by myself, programmed in a BASIC-like language on our school's graphing calculators, which I believe are TI-83+'s.

Here is the calculator manual, with programming information: Chapter 16

And here is the code:

Lbl F
ClrHome
Menu("PLAY PONG","PLAY",Z,"HIGH SCORE",K,"QUIT",S)
Pause
Lbl Z
1→B
0→G
1→O
1→P
0→J
Lbl U
getKey→A
If A=34
Then
B+1→B
Then
8→B
End
ClrHome
Output(B,1,"[")
End
If A=25
Then
B-1→B
If B<1
Then
1→B
End ClrHome
Output(B,1,"[")
End
If G=0
Then
randInt(3,6)→X
randInt(6,10)→Y
Output(X,Y,"+")
G+1→G
Else
Output(X,Y,"+")
If P=1
Then
X+1→X
Else
X-1→X
End
If O=1
Then
Y+1→Y
Else
Y-1→Y
End
If X>8
Then
8→X
0→P
End
If X<1
Then
1→X
1→P
End
If Y>16
Then
16→Y
0→O
End
If Y<2
Then
If X=B or B-1=X or B+1=X
Then
2→Y
1→O
J+1=J
Else
ClrHome
Disp "GAME OVER"
Pause
Output(5,4,"SCORE:")
Output(5,11,J)
Pause
If J>E
Then
J→E
ClrHome
Output(5,2,"NEW HIGH SCORE")
Pause
End
Pause
Menu("GAME OVER","PLAY AGAIN",H,"QUIT",S)
End
End
ClrHome
Output(B,1,"[")
Output(X,Y,"+")
End
Goto U
Lbl H
1→B
0→G
1→O
1→P
0→J
Goto F
Lbl S
0→J
ClrHome
Stop
Lbl K
Output(5,2,"HIGH SCORE:")
Output(5,14,E)
Pause
Goto F