I'm trying to make a simple pong-like game on my calculator, just for educational purposes (I'm pretty new to this language). I modified a program script found on wikibooks.org, changing it to run at a much higher resolution. The program works fine so far, but the only problem is that it runs pretty slowly on the calculator (I know they don't have very fast processors…) I'm wondering if there are changes I can make to the program to speed it up a little. Here is the code.

First, I'll explain the variables. I programmed this using the pxl-on and pxl-off commands. If a coordinate for a pixel was (5,6), it would be the 5th row of pixels and the 6th column. Okay. Anyway. A and B are the coordinates of the "ball". C keeps the program running. D and E control the ball's movement. G is for the getKey function. The ball moves by steps of 2 pixels, as does the paddle.

```
:ClrDraw
:ClrAllLists
:ClrHome
:{50,51,52,53,54,55,56}→L1
:59→A
:52→B
:0→C
:2→D
:-2→E
:0→G
:While C=0
:Pxl-On(A,B)
:For(X,1,7)
:Pxl-On(62,L1(X))
:If B≥92
:-D→D
:If B≤1
:-D→D
:End
:If A≥61
:Then
:If B≥L1(1) and B≤L1(7)
:-E→E
:End
:If A≤1
:-E→E
:If A≥62
:1→C
:Pxl-Off(A,B)
:(B+D)→B
:(A+E)→A
:getKey→G
:If G=24
:Pxl-Off(62,L1(7))
:If G=24
:Pxl-Off(62,L1(6))
:If G=26
:Pxl-Off(62,L1(1))
:If G=26
:Pxl-Off(62,L1(2))
:L1-2(G=24)→L1
:L1+2(G=26)→L1
:End
:Pause "YOU LOSE"
```