GPM

-1->Xmin:Ans->Ymin
1->deltaX:1->deltaY
BackgroundOn WHITE
AxesOff:GridOff
FnOff :ClrDraw
SetUpEditor Theta
If not(dim(LTheta
DelVar LThetaStorePic 6
440->dim(LTheta
DelVar ODelVarPDelVar CRecallPic 6
Repeat K=45
Pt-On(3O,3P
getKey->K
1+int(11^-1(55O+P->T
remainder(55O+P,11->U
int(10fPart(LTheta(T)10^(-Ans-1
Pt-On(3O,3P,Ans+7+13(Ans/=5
If K=21
LTheta(T)-10^(U)(Ans-C->LTheta(T
If 2>abs(5-abs(88-K
25-3int(.1K)+10fPart(.1K->C
min(87,max(0,O+sum(deltaList(K={24,26->O
min(54,max(0,P+sum(deltaList(K={34,25->P
End:StorePic 6