```
:2.072→Z
:prgmSETUPGPH
:DelVar Z
:"Press ENTER to "→Str1
:: //I use double colon to signify a new section of code, since comments are awkward to use.
:ClrDraw
:Lbl 1
:Text(Ymax-6,Xmin+3,"( X //The indicators
:Text(Ymax-6,Xmin+15,", Y"
:Text(Ymax-6,Xmin+27,")"
:Text(Ymax-6,Xmin+32,"D T"
:Text(Ymax-6,round(11Xmax/16,0),"R%"
:If Z=1.1134
:Goto 2
:Text(Ymin+2,Xmin+3,"X-row pixel was drawn" //States the information
:Text(Ymin+8,Xmin+3,"Y-col. pixel was drawn"
:Text(Ymin+14,Xmin+3,"D=1 or 0, could not couldn't"
:Text(Ymin+20,Xmin+8,"draw pixel"
:Text(Ymin+26,Xmin+3,"T-attempts to draw pixel"
:Text(Ymin+32,Xmin+3,"R-completion indicator
:Text(Ymin+46,Xmin+3,Str1,"continue..."
:Pause
::
:ClrDraw
:1.1134→Z
:Goto 1 //Instead of repeating the indicators, I just jump to it then out before the previous section
:Lbl 2
:DelVar Z
:Text(Ymin+10,Xmin+6,"[F1]-Exit program"
:Text(Ymin+16,Xmin+11,"prematurely."
:Text(Ymin+36,Xmin+6,Str1,"start prgm.
:Pause
::
:ClrDraw
:SetUpEditor AVGS,AVGPT //⸤AVGS is the averages per 10-percentile, ⸤AVGPT is the numbers for the end of each 10-percentile
:10→dim(⸤AVGS
:10→dim(⸤AVGPT
:Fill(0,⸤AVGS
:ClockOn //Make sure that the timer will work
:startTmr→F
:0→A:0→B:0→X
:0→Y:0→M:4732→E
:0→J
:round(E/10,0→H
:{H,2H,3H,4H,5H,6H,7H,8H,9H,E→⸤AVGPT
::
:For(I,1,E)
:1→P
:I/E→V
:Repeat T
:If K=11
:Goto A
:R→Y
:C→X
:randInt(2,Xmax-2→C
:randInt(2,Ymax-9→R
:not(pxl-Test(R,C→T
:If P=1
:Text(Ymax-6,Xmin+42," " //12 spaces
:Text(Ymax-6,Xmin+32,T," ",P //2 spaces b/w T and P
:P+not(T→P
:End
:If P>M
:P→M
:If max(I=⸤AVGPT:Then
:A+B→A
:B/J→⸤AVGS(sum(I>⸤AVGPT-H
:0→B:0→J
:Else
:B+P→B
:J+1→J
:End
:Pxl-On(R,C
:If Y≥10 and R<10:Then
:Text(Ymax-6,Xmin+3,"( ",R //4 spaces before R
:Else
:Text(Ymax-6,Xmin+3,"(",R
:End
:If X≥10 and C<10:Then
:Text(Ymax-6,Xmin+15,", ",C //5 spaces b/w the comma and C
:Else
:Text(Ymax-6,Xmin+15,", ",C //1 space b/w the comma and C
:End
:Text(Ymax-6,Xmin+27,")"
:If 2=sum(100={round(100V,2),V:Then //Check if the program is near completion to make sure that 100% is not shown early
:Text(Ymax-6,round(11Xmax/16,0),"99.99%"
:Else
:Text(Ymax-6,round(11Xmax/16,0),round(100V,2),"%"
:End:End
::
:Lbl A
:If I=E+1 //The next few lines are to make sure the data is presented correctly
:E→I
:If A<I
:I→A
:checkTmr(F+1)→G
::
:ClrDraw
:Text(Ymin+3,Xmin+10,I,"/",E," pixels drawn." //Display the stats
:Text(Ymin+9,Xmin+10,"Approx. ",G," seconds"
:Text(Ymin+15,Xmin+13,"elapsed."
:Text(Ymin+21,Xmin+10,A," attempts made."
:Text(Ymin+27,Xmin+10,round(100I/A,2),"% accuracy."
:Text(Ymin+33,Xmin+13,"Min: 1 Max: ",M //Three spaces b/w "1" and "Max"
:Text(Ymin+39,Xmin+13,"Overall Avg: ",round(A/I,3 //Two spaces b/w "Overall" and "Avg"
:Text(Ymax-12,Xmin+10,Str1,"view"
:Text(Ymax-6,Xmin+13,"more data."
:Pause
::
:ClrDraw
:Text(Ymin+3,Xmin+5,"Averages:"
:For(I,1,5)
:Text(Ymin+3+6I,Xmin+5,10I,"%: ",round(⸤AVGS(I),3 //2 spaces after "%:"
:Text(Ymin+3+6I,round(Xmax/2,0)-3,10(I+5),"%: ",round(⸤AVGS(I+5),3 //Same here
:End
:Text(Ymax-6,Xmin+10,Str1,"exit."
:Pause
::
:2.0721→Z
:prgmSETUPGPH
```