PONG
This is pong for the Ti-83 calulator and works on TI-83 plus, should work on most TI calculators I guess but i havn’t tested it.Oh and [sto] will represent the sto arrow. DO NOT TYPE IT ALL IN ALPHA, REFER TO MANUAL IF NEED BE.
0[sto]S
1[sto]B
3[sto]Y
7[sto]X
-1[sto]L
-1[sto]M
0[sto]C
2[sto]Q
While 1
getKey[sto]K
If K=26
Then
If B<13
Then
B+1[sto]B
End
End
If K=24
Then
If B>1
Then
B-B[sto]B
End
End
ClrHome
Output(7,B,”MMMM”)
Output(Y,X,”O”)
If C=Q
Then
Output(Y,X,”O”)
Output(1,1,5)
0[sto]C
X+M[sto]X
Y+L[sto]X
If Y=0
Then
1[sto]Y
L*-1[sto]L
X-M[sto]X
End
If X=0
Then
1[sto]X
M*-1[sto]M
Y-L[sto]Y
End
If X=17
Then
16[sto]X
M*-1[sto]M
Y-L[sto]Y
End
If Y=7
Then
If X>=B
Then
If X<=B+3
Then
S+1[sto]S
L*-1[sto]L
End
End
End
If Y=8
Then ClrHome
Disp “You Loose”
Stop
End
End
1+C[sto]C
If S=5
1[sto]Q
End