Help with program

QubicQuantum 12 Jan 2020 01:51

I am having trouble with a program. Here's the code. TI-84 plus CE

```
ClrDraw
ClrList ⌊Y
ClrList ⌊X
Degree
BackgroundOn BLACK
prgmPRGMPXL
Xmax/2→X
Ymin/2→Y
{X}→⌊X
{Y}→⌊Y
10→R
90→θ
0→G
0→Z
While Z=0 and G≠45
getKey→G
X+cos(θ)→X
Y+sin(θ)→Y
θ-15(G=26)+15(G=24)→θ
TextColor(BLACK
Text(0,0,θ," X:",X," Y:",Y," LENGTH:",dim(⌊X)," "
Pt-On(X,Y,1,GREEN)
TextColor(RED
Text(15,0,"PROB",R
augment({X},⌊X)
augment({Y},⌊Y)
TextColor(GREEN
Text(15,0,"PROB",R
If dim(⌊X)≥R+1
Then
Pt-Off(⌊X(R+1),⌊Y(R+1))
Pt-On(⌊X(R),⌊Y(R))
seq(⌊X(X),X,1,R,1)
seq(⌊Y(X),X,1,R,1)
End
End
ClrDraw
```

The problem code is

```
augment({X},⌊X)
augment({Y},⌊Y)
```

please help