**TI85** Slope Fields by Harvey Carruthð ãSLFL3ãá.65CÖClDrwÖFnOffÖDisp "Enter F(x,y)"ÖInpSt FUNCTIONÖStEq(FUNCTION,F)ÖDisp "Enter yMin"ÖInput yMinÖDisp "Enter yMax"ÖInput yMaxÖyMinxMinÖyMaxxMaxÖZSqrÖDisp "Enter Nx"ÖInput NXÖDisp "Enter Ny"ÖInput NYÖ(xMax-xMin)/NXHÖ(yMax-yMin)/NYVÖ1IÖLbl AÖ1JÖLbl BÖxMin+(J-1)*H+H/2xÖyMin+(I-1)*V+V/2yÖFMÖy-M*C*H/2SÖy+M*C*H/2ZÖx-C*H/2PÖx+C*H/2QÖIf abs (Z-S)>C*VÖGoto DÖLbl EÖLine(P,S,Q,Z)ÖIS>(J,NX)ÖGoto BÖIS>(I,NY)ÖGoto AÖStopÖLbl DÖy-V/2SÖy+V/2ZÖ(S-y)/M+xPÖ(Z-y)/M+xQÖGoto EÖ¬