` ``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

]]>