: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
     Source: geocities.com/paris/arc/1927/ti85
               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)