See it in action: https://www.youtube.com/watch?v=wgbOkv4KLck

` ``0->dim(L1 ClrDraw 0->Xmin:264->Xmax ~164->Ymin:0->Ymax AxesOff DispGraph DelVar IDelVar ADelVar BDelVar CDelVar D "~155+16.4(.1abs(L1(X)-101->|u "~26+52.8(L1(X)-10iPart(.1L1(X->|v While 1 getKey If Ans Then Ans->L1(1+dim(L1 dim(L1)-(dim(L1)>1->X |u->A:|v->B dim(L1->X:|u->C:|v->D Line(B,A,D,C 0->I Else I+1->I If Ans>=10 and dim(L1 Then ClrDraw 0->dim(L1 End End End`

Also, I optimized the code a bit. I added this right before the While 1, taking advantage of the special blue variables.

` ``"~155+16.4(.1abs(L1(X)-101->|u "~26+52.8(L1(X)-10iPart(.1L1(X->|v`

And in the Central Portion, it becomes:

` ``Line(B,A,D,C,0 1->X |u->A |v->B dim(L1->X |u->C |v->D Line(B,A,D,C 0->dim(L1`

You can see it in action here (please ignore the scruff marks around the screen):

https://www.youtube.com/watch?v=SQfMjDxo1lg

` ``0->dim(L1 ClrDraw 0->Xmin:264->Xmax ~164->Ymin:0->Ymax AxesOff DispGraph DelVar IDelVar ADelVar BDelVar CDelVar D While 1 getKey If Ans Then Ans->L1(1+dim(L1 0->I Else I+1->I If Ans>=20 and dim(L1 Then If A Line(B,A,D,C,0 ~164+(164/10)(abs(L1(1)-101)/10->A iPart(L1(1)/10)*10 (264/5)(L1(1)-Ans)-26->B ~164+(164/10)(abs(L1(dim(L1))-101)/10->C iPart(L1(dim(L1))/10)*10 (264/5)(L1(dim(L1))-Ans)-26->D Line(B,A,D,C 0->dim(L1 End End End`