So I've been working on a program on my TI-84 CSE for the last few months on and off that turns numbers into rectangles, lines, or just does a paint bucket tool type thing.

I've been wondering if y'all could take a shot at speeding it up a bit or saving some RAM without costing speed.

```
ClrHome
Disp "PIC4 CODE MUST BE IN L₁.","Y₁-Y₀ and L₂ WILL BE","WIPED.
Input "ClrDraw? ",θ
If θ
ClrDraw
AxesOff
SetUpEditor L₁,L₂
ClrList L₂
DelVar Y₁
DelVar Y₂
DelVar Y₃
DelVar Y₄
DelVar Y₅
DelVar Y₆
DelVar Y₇
DelVar Y₈
DelVar Y₉
DelVar Y₀
0→Xmin
264→Xmax
0→Ymax
164→Ymin
dim(L₁→A
For(B,1,A
L₁(B→C
If C>8
Then
iPart(C/12→D
iPart(3fPart(C/12→E
iPart(3fPart(C/9→F
iPart(3fPart(C/6→G
3fPart(C/3→H
If C<313
Then
If G-E≥H-F
Then
For(I,F,H
Line(E,I,G,I,1,D,1
End
Else
For(I,E,G
Line(I,F,I,H,1,D,1
End
End
Else
Line(E,F,G,H,1,D-20,1
End
Else
iPart(C/6→D
3fPart(iPart(C/3)/3)+fPart(C/3→L₂(1
1→E
Repeat not(E
iPart(L₂(E→F
3fPart(L₂(E→G
E-1→dim(L₂
While not(pxl-Test(G-1,F
G-1→G
End
G→L
1→H
1→I
Repeat pxl-Test(G,F
pxl-Test(G,F-1→J
If H and not(J
F-1+G/3→L₂(dim(L₂)+1
J→H
pxl-Test(G,F+1→K
If I and not(K
F+1+G/3→L₂(dim(L₂)+1
K→I
G+1→G
dim(L₂→E
End
Line(F,L,F,G+1,1,D,1
End
End
End
Pause
Input "StorePic Pic1? ",θ
If θ
StorePic Pic1
Input "RESET? ",θ
If θ
Then
10→Xmin
10→Xmax
10→Ymin
10→Ymax
AxesOn
Disp
End
DelVar A
DelVar B
DelVar C
DelVar D
DelVar E
DelVar F
DelVar G
DelVar H
DelVar I
DelVar J
DelVar K
DelVar L
DelVar θ
```

For those of you where you see squares in the code like I do, those are just those tiny capital E's.

I'd appreciate any help I can get.