:Disp "cranwell@yahoo.com" :Lbl E:Input N:N-2üN:NüM :Lbl A:N+2üN:3üQ:If N==0 :Prompt N,Q :Lbl B:Outpt(8,9,N) :Lbl Q:N/QüP:Outpt(8,2,Qò) :If fPart P==0:Goto A :Q+2üQ :If Q