I figured if I am going to post multiple small programs, that I should do it in one page, so I'll do it here.
Pong Thing:
This is a little program I wrote. I tried to keep it small. It is a pong program (I know, generic, but I had to start somewhere) Any suggestions to improve it? It is 248 Bytes.
NOTE: This was designed for the TI-83Plus. For the 84, if it is too fast, change the value of T.
Edit: Fixed a lot of bugs
Note: If you convert this with an editor, it will submit -1C as minusC, which will error, so use the syntax that Trenly described below.
ClrHome
1→L:1→X:4→A:16→B:1→C:1→D:0→S:150→T
While L>0
getkey→K
If K
Then
Output(X,1,"
min(8,max((X-(K=25)+(K=34)),1→X
Output(X,1,"[
End
If A≤1 or A≥8
⁻1C→C
If B≤1 or B≥16
-1D→D
Output(A,B,"
A+C->A
B+D->B
Output(A,B,"0
Output(1,7,S
For(H,1,T
End
If A≠X and B=1
L-1→L
If A=X and B=1
S+1→S
End
ClrHome
Disp "GAME OVER
Disp "SCORE:",S
Pause
ClrHome