:Disp "cranwell@yahoo.com" :Lbl CRANWELL :Lbl A:Input "SQRT=ð",Q:round(Q,0)üQ:QüR:0üN:1üP:1üL :If fPart ðQ==0:ðQ-1üN :Repeat Nò>(Q/2) :If N==3:2üL:N+LüN:Q/NòüP:Outpt(8,1,Nò*2) :If fPart P==0:Then:ClLCD:0üZ :Repeat 10^Z>(ðR/ðP):Z+1üZ:End :Outpt(2,5,"ð"):Outpt(2,6,R) :Outpt(4,10-Z,ðR/ðP):Outpt(4,10,"ð") :Outpt(4,11,P):Outpt(6,8,ðR/ðP*ðP) :PüQ:1üN:End:End:RüR:Goto A :