'ProgramMode:RUN
1->N
Lbl 1
If N<1500
Then 
1+N->N
Goto 1
IfEnd
Locate 1,1,N
Locate 1,2,Sqrt12
Stop